KEYBOARD ON PRINT "PRESS THE KEYS" PRINT "1-9 0 AND SPACE" PRINT "FOR DIFFERENT" PRINT "EFFECTS" WAIT 120 GOTTO=RND(9) FONT 0 MAINLOOP: A$=INKEY$ IF A$="1" THEN GOTTO=0 IF A$="2" THEN GOTTO=1 IF A$="3" THEN GOTTO=2 IF A$="4" THEN GOTTO=3 IF A$="5" THEN GOTTO=4 IF A$="6" THEN GOTTO=5 IF A$="7" THEN GOTTO=6 IF A$="8" THEN GOTTO=7 IF A$="9" THEN GOTTO=8 IF A$="0" THEN GOTTO=9 IF A$=" " THEN GOTTO=10 CLS END IF IF GOTTO=0 THEN GOSUB TEST IF GOTTO=1 THEN GOSUB TEST1 IF GOTTO=2 THEN GOSUB TEST2 IF GOTTO=3 THEN GOSUB TEST3 IF GOTTO=4 THEN GOSUB TEST4 IF GOTTO=5 THEN GOSUB TEST5 IF GOTTO=6 THEN GOSUB TEST6 IF GOTTO=7 THEN GOSUB TEST7 IF GOTTO=8 THEN GOSUB TEST8 IF GOTTO=9 THEN GOSUB TEST9 IF GOTTO=10 THEN GOSUB TEST10 WAIT VBL GOTO MAINLOOP TEST: PRINT "ABCDCBA"; RETURN TEST1: PRINT MID$("/\",RND(1)+1,1); RETURN TEST2: PRINT MID$("/_\",RND(2)+1,1); RETURN TEST3: PRINT MID$("PQR",RND(2)+1,1); RETURN TEST4: PRINT MID$(" *",RND(3)+1,1); RETURN TEST5: PRINT MID$("FG",RND(1)+1,1); RETURN TEST6: PRINT MID$("MNO",RND(2)+1,1); RETURN TEST7: PRINT "_.-^-._"; RETURN TEST8: PRINT MID$("HIJKL",RND(5)+1,1); RETURN TEST9: PRINT MID$("STUV",RND(3)+1,1); RETURN TEST10: TEXT 9,7,MID$("STUVWXYZ",RND(7)+1,1) WAIT RND(15)+3 RETURN #1:MAIN PALETTES 063F1B0100383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00000000000000FF0000000000000000 000000000000FF000000000000000000 0000000000FF00000000000000000000 00000000FF0000000000000000000000 000000FF000000000000000000000000 01020408102040800000000000000000 80402010080402010000000000000000 AA55AA55AA55AA550000000000000000 92000092000092000000000000000000 AA11AA44AA11AA440000000000000000 AA00AA00AA00AA000000000000000000 82000000000082000000000000000000 181818FFFF1818180000000000000000 18181818181818180000000000000000 000000FFFF0000000000000000000000 00000000001838380000000000280838 00000000183838000000000028083800 00000018383800000000002808380000 7E81A58181BD817E0000000000000000 7E81A58199A5817E0000000000000000 7E81A581A599817E0000000000000000 7E81A58199A5997E0000000000000000 7E81A18181BD817E0000000000000000 7E81858199A5817E0000000000000000 7E81A181A599817E0000000000000000 7E81858199A5997E0000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000