extern long xbios();

extern int gemdos();

int handle;
long s;

int liste[]={   0,0x000,2,0x067,4,0x333,6,0x770,8,0x260,10,0x050,12,0x701,
                14,0x776,16,0x111,18,0x457,20,0x047,22,0x005,24,0x227,
                26,0x666,28,0x222,30,0x777,-1,
                0,0x202,2,0x213,4,0x045,6,0x334,8,0x410,10,0x510,12,0x610,
                14,0x710,16,0x720,18,0x730,20,0x740,22,0x750,24,0x662,
                26,0x774,28,0x557,30,0x507,-1,
                0,0x000,2,0x160,4,0x150,6,0x140,8,0x130,10,0x120,12,0x330,
                14,0x003,16,0x577,18,0x467,20,0x357,22,0x137,24,0x016,
                26,0x005,28,0x337,30,0x357,-1 };


main()
{
asm("dc.w $a00a");                      /* Mauscursor aus */
s=xbios(2);
handle=gemdos(0x3d,"triple.bin",0);
if(handle>=0)
        {
        gemdos(0x3f,handle,32000L,s);
        gemdos(0x3e,handle);
        ondlist(liste,67);              /* Display-List ein */
        gemdos(7);
        offdlist();                     /* Display-List aus */
        }
asm("dc.w $a009");
}