TOUCHSCREEN RANDOMIZE TIMER FOR II=1 TO 10 CLS ATTR(0) FOR I=1 TO 160 PRINT RND(9); NEXT I ATTR(1) FOR I=1 TO 160 PRINT INT(RND*10); NEXT I WAIT 15 WHILE NOT TOUCH WAIT VBL WEND NEXT II CLS I=0 WHILE I<10 PRINT I; WAIT 15 WHILE NOT TOUCH WAIT VBL WEND INC I WEND PRINT WHILE I>-1 PRINT I; WAIT 15 WHILE NOT TOUCH WAIT VBL WEND DEC I WEND I=0 PRINT WHILE I<100 PRINT I WAIT 15 WHILE NOT TOUCH WAIT VBL WEND ADD I,5,0 TO 100 WEND WHILE I>0 PRINT I WAIT 15 WHILE NOT TOUCH WAIT VBL WEND ADD I,-5,0 TO 100 WEND CLS ATTR(2) FONT 0 FOR I=1 TO 100 PRINT "#$%&"; NEXT I WAIT 15 WHILE NOT TOUCH FOR I=1 TO 8 FOR II=0 TO 80 ROL $8000+II,1 ROR $8000+80+II,1 NEXT II WAIT 3 NEXT I WEND CLS COPY $E000,$800 TO $9000 ATTR(4) I=1 ITOUCH=0 DO IF TOUCH THEN ITOUCH=1 CELL TOUCH.X\8,TOUCH.Y\8,I ELSE IF ITOUCH=1 THEN ADD I,1,0 TO 1 ITOUCH=0 COPY $9000,256 TO $E000 END IF END IF LOOP #1:MAIN PALETTES 150B0B15003838140030383C003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0018245A5A24180000183C66663C1800 00000000000000000000000000000000 FF80BFA0A0BF80FF007F7F60607F7F00 FF01FD0505FD01FF00FEFE0606FEFE00 FF80BFA0A0BF80FFFFFFC0C0C0C0FFFF FF01FD0505FD01FFFFFF03030303FFFF