RANDOMIZE TIMER TOUCHSCREEN OPERATION$="#" OPERATIONCHAR=34 NUM1=RND(40) NUM2=RND(40) DO BG COPY 0,0,20,16 TO 0,0 I=RND(3)+1 IF I=1 THEN OPERATION$="+" OPERATIONCHAR=58 RESULT=NUM1+NUM2 ELSE IF I=2 THEN OPERATION$="-" OPERATIONCHAR=59 RESULT=NUM1-NUM2 ELSE IF I=3 THEN OPERATION$="*" OPERATIONCHAR=60 RESULT=NUM1*NUM2 ELSE IF I=4 THEN OPERATION$="/" OPERATIONCHAR=61 RESULT=NUM1/NUM2 END IF RESULT=INT(RESULT) CALL XPRINT(STR$(NUM1),2,7) CALL OPERATIONPRINT(OPERATIONCHAR,7,7) CALL XPRINT(STR$(NUM2),11,7) IF I=1 THEN CALL XPRINT(STR$(RESULT),3,12) CALL XPRINT(STR$(RESULT+RND(10)),9,12) CALL XPRINT(STR$(RESULT-RND(10)),15,12) ELSE IF I=2 THEN CALL XPRINT(STR$(RESULT-RND(10)),3,12) CALL XPRINT(STR$(RESULT),9,12) CALL XPRINT(STR$(RESULT+RND(10)),15,12) ELSE CALL XPRINT(STR$(RESULT+RND(10)),3,12) CALL XPRINT(STR$(RESULT-RND(10)),9,12) CALL XPRINT(STR$(RESULT),15,12) END IF REPEAT WAIT VBL UNTIL TAP LOOP SUB XPRINT(NUM$,CX,CY) FONT 16 LOCATE CX,CY PRINT NUM$ FONT 192 END SUB SUB OPERATIONPRINT(NUM,CX,CY) CELL CX,CY,NUM END SUB #1:MAIN PALETTES 2A3F2A1500383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 000F181010180F000000000000000000 0000C040000000C70000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000F00000000000000000 0000000C0E0A0B080000000000000000 00000070D09010100000000000000000 00000008080808080000000000000000 000000C0404040400000000000000000 000078440408133C0000000000000000 081E3121125C00000000000000000000 FFFFC0C0C0C0C0C00000000000000000 FEFD0303030303030001030303030303 FFFF0000000000000000000000000000 C0C0C0C0C0C0C0C00000000000000000 00000000000000000000000000000000 00002020180F00000000000000000000 27242C28CC0700000000000000000000 CB2D2828488800000000000000000000 19FBCACA8B8900000000000000000000 901030C000F000000000000000000000 08080808080800000000000000000000 13141017141700000000000000000000 8E4848C8C86700000000000000000000 40784444444400000000000000000000 3000030C193126040000000000000000 3EC818E0C08000000000000000000000 C0C0C0C0C0C0BF7F0000000000003F7F 030303030303FFFF030303030303FFFF 000000000000FFFF000000000000FFFF 03030303030303030303030303030303 001C6242424438000000000000000000 00183868080808000000000000000000 003C644C08307E000000000000000000 003C440C04643C000000000000000000 006848487E0808000000000000000000 003C203E02263C000000000000000000 001C20784C4438000000000000000000 003E043E081010000000000000000000 001C2C303C2438000000000000000000 001C22263E0438000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000007C000000000000000000000000 00000000080830000000000000000000 00000000000000000000000000000000 3F40808080C07F3F3F40808080C07F3F 3F7FFFFFFFFF7F3F3F40808080C07F3F FF0000000000FFFFFF0000000000FFFF FFFFFFFFFFFFFFFFFF0000000000FFFF FC0201010103FEFCFC0201010103FEFC FCFEFFFFFFFFFEFCFC0201010103FEFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0010107C101000000000000000000000 0000007C000000000000000000000000 00262C183C2640000000000000000000 001000067C0010000000000000000000 00427E00607E00000000000000000000 003E6206180010000000000000000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001D181E181E181E181E181E181E18 1E181E181E181E181E181E181C180000 000000000000000000001F1801000200 03000400050000000600070008000900 0A000B000F1800000000000000000000 00001F18110012001300140015000000 16001700180019001A001B000F180000 000000000000000000000D180E180E18 0E180E180E180E180E180E180E180E18 0E180E180C1800000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000001D181E181E181C180000 1D181E181C1800001D181E181E181C18 00000000000000000000000000001F18 000000000F1800001F1800000F180000 1F18000000000F1800003E0000003F00 0000000000000D180E180E180C180000 0D180E180C1800000D180E180E180C18 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0C000E000E000E000D0000000C000E00 0E000E000D0000000C000E000E000E00 0D000000000000000F00000000000000 1F0000000F000000000000001F000000 0F000000000000001F00000000000000 1C001E001E001E001D0000001C001E00 1E001E001D0000001C001E001E001E00 1D000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000