REM WASHAW GAMES BG 1 ATTR(3,0,0,0,0) BG FILL 0,0 TO 19,15 CHAR 32 REM 32 EMPTY REM 0-9 = 0-9 REM 10. 11= 12+ 13- 14* 15/ 16C 17< CALL PUTBLOCK(1,13,68,5,2,0) CALL PUTBLOCK(7,13,40,2,2,10) CALL PUTBLOCK(1,10,2,2,2,1) CALL PUTBLOCK(4,10,4,2,2,2) CALL PUTBLOCK(7,10,6,2,2,3) CALL PUTBLOCK(1,7,8,2,2,4) CALL PUTBLOCK(4,7,10,2,2,5) CALL PUTBLOCK(7,7,12,2,2,6) CALL PUTBLOCK(1,4,34,2,2,7) CALL PUTBLOCK(4,4,36,2,2,8) CALL PUTBLOCK(7,4,38,2,2,9) CALL PUTBLOCK(10,10,14,2,5,11) CALL PUTBLOCK(14,10,76,2,2,12) CALL PUTBLOCK(17,10,74,2,2,13) CALL PUTBLOCK(14,13,44,2,2,14) CALL PUTBLOCK(17,13,42,2,2,15) CALL PUTBLOCK(12,4,64,2,2,16) CALL PUTBLOCK(16,4,66,2,2,17) DIM N$(3) N$(1)="" N$(2)="" N$(3)="" A$="" AN$="" IDO=3 DO IF TOUCH THEN BG 1 C=CELL.C(TOUCH.X\8,TOUCH.Y\8) IF C<32 THEN CALL FLASHBLOCK(C) IF C<=10 THEN REM 0-9 AND . IF IDO=3 THEN IDO=1 GOSUB CLEARALL END IF IF C<10 THEN C$=STR$(C) ELSE C$="." N$(IDO)=N$(IDO)+C$ ELSE IF C=16 THEN REM "C" GOSUB CLEARALL ELSE IF C=14 AND IDO=1 AND VAL(N$(1))<>0 THEN A$="*" IDO=2 ELSE IF C=12 AND IDO=1 AND VAL(N$(1))<>0 THEN A$="+" IDO=2 ELSE IF C=13 AND IDO=1 AND VAL(N$(1))<>0 THEN A$="-" IDO=2 ELSE IF C=15 AND IDO=1 AND VAL(N$(1))<>0 THEN A$="/" IDO=2 ELSE IF C=17 THEN REM "<" IF LEN(N$(IDO))>0 THEN N$(IDO)=LEFT$(N$(IDO),LEN(N$(IDO))-1) ELSE IF C=11 AND VAL(N$(2))<>0 THEN IDO=3 AN$=" = " IF A$="+" THEN AN$=AN$+STR$(VAL(N$(1))+VAL(N$(2))) IF A$="-" THEN AN$=AN$+STR$(VAL(N$(1))-VAL(N$(2))) IF A$="*" THEN AN$=AN$+STR$(VAL(N$(1))*VAL(N$(2))) IF A$="/" THEN AN$=AN$+STR$(VAL(N$(1))/VAL(N$(2))) END IF BG 0 ATTR(4,0,0,0,0) TEXT 1,0,N$(1)+" "+A$+" "+N$(2) TEXT 1,2,AN$ END IF WAIT 5 LOOP CLEARALL: BG 0 FOR Y=0 TO 3 TEXT 1,Y," " NEXT Y IDO=1 N$(1)="" A$="" N$(2)="" AN$="" RETURN SUB FLASHBLOCK(C) FOR Y=0 TO 15 FOR X=0 TO 19 BG 1 CHECK=CELL.C(X,Y) IF CHECK=C THEN BG 0 ATTR(1,0,0,1,0) CELL X,Y, END IF NEXT X NEXT Y WAIT 5 FOR Y=0 TO 15 FOR X=0 TO 19 BG 1 CHECK=CELL.C(X,Y) IF CHECK=C THEN BG 0 ATTR(0,0,0,1,0) CELL X,Y, END IF NEXT X NEXT Y END SUB SUB PUTBLOCK(X,Y,I,W,H,C) FOR IY=0 TO (H-1) FOR IX=0 TO (W-1) BG 0 ATTR(0,0,0,1,0) CELL X+IX,Y+IY,I+IX+(16*IY) BG 1 ATTR(0,0,0,0,0) CELL X+IX,Y+IY,C NEXT IX NEXT IY END SUB #1:MAIN PALETTES 05080400000C083F000E0C0100021603 003E3F14003F2A15003B3E2F003F2A15 #2:2X2 CHARSETSERS 00000000000000000000000000000000 00000000000000000000000000000000 007F7F7F7F7F7F7FFF80808180808080 00FEFEFEFEFEFEFEFF01018181818181 007F7F7F7F7F7F7FFF80808384808080 00FEFEFEFEFEFEFEFF0101C121111161 007F7F7F7F7F7F7FFF80808384808081 00FEFEFEFEFEFEFEFF0101C1211111E1 007F7F7F7F7F7F7FFF80808182848890 00FEFEFEFEFEFEFEFF01018181818181 007F7F7F7F7F7F7FFF80808F8888888F 00FEFEFEFEFEFEFEFF0101F1010101E1 007F7F7F7F7F7F7FFF8080838488888B 00FEFEFEFEFEFEFEFF0101E1010101C1 007F7F7F7F7F7F7FFF80808080808080 00FEFEFEFEFEFEFEFF01010101010101 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F0080808080838080FF FEFEFEFEFEFEFE0081818181E10101FF 7F7F7F7F7F7F7F0081828484838080FF FEFEFEFEFEFEFE0081010101F10101FF 7F7F7F7F7F7F7F0080808084838080FF FEFEFEFEFEFEFE0021111121C10101FF 7F7F7F7F7F7F7F009F808080808080FF FEFEFEFEFEFEFE00F1818181810101FF 7F7F7F7F7F7F7F00808080808F8080FF FEFEFEFEFEFEFE0011111121C10101FF 7F7F7F7F7F7F7F008C888884838080FF FEFEFEFEFEFEFE0021111121C10101FF 7F7F7F7F7F7F7F7F8080808080808080 FEFEFEFEFEFEFEFE0101010101010101 5AC33CA5A53CC35A55AA55AA55AA55AA 00000000000000000000000000000000 007F7F7F7F7F7F7FFF80808F80808080 00FEFEFEFEFEFEFEFF0101F111112141 007F7F7F7F7F7F7FFF808083848C8483 00FEFEFEFEFEFEFEFF0101C1213121C1 007F7F7F7F7F7F7FFF80808384888888 00FEFEFEFEFEFEFEFF0101C121111131 007F7F7F7F7F7F7FFF80808080808080 00FEFEFEFEFEFEFEFF01010101010101 007F7F7F7F7F7F7FFF80808080808080 00FEFEFEFEFEFEFEFF01010911214181 007F7F7F7F7F7F7FFF80808884828180 00FEFEFEFEFEFEFEFF01010911214181 7F7F7F7F7F7F7F7F8087808080808780 FEFEFEFEFEFEFEFE01F101010101F101 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F0080818284888080FF FEFEFEFEFEFEFE0081010101010101FF 7F7F7F7F7F7F7F0084888884838080FF FEFEFEFEFEFEFE0021111121C10101FF 7F7F7F7F7F7F7F0087808080878080FF FEFEFEFEFEFEFE00D1111121C10101FF 7F7F7F7F7F7F7F0080808181808080FF FEFEFEFEFEFEFE0001018181010101FF 7F7F7F7F7F7F7F0081828488808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0081828488808080FF FEFEFEFEFEFEFE0041211109010101FF 7F7F7F7F7F7F7F7F8080808080808080 FEFEFEFEFEFEFEFE0101010101010101 007F7F7F7F7F7F7FFF80808384888888 00FEFEFEFEFEFEFEFF0101C121010101 007F7F7F7F7F7F7FFF80808182848F84 00FEFEFEFEFEFEFEFF0101010101E101 007F7F7F7F7F7F7FFF80808080808080 00FFFFFFFFFFFFFFFF00000000000000 00FFFFFFFFFFFFFFFF00003C42818181 00FFFFFFFFFFFFFFFF00000000000000 00FEFEFEFEFEFEFEFF01010101010101 00FEFEFEFEFEFEFEFF01010101010101 007F7F7F7F7F7F7FFF80808080808087 00FEFEFEFEFEFEFEFF010101010101F1 007F7F7F7F7F7F7FFF80808080808087 00FEFEFEFEFEFEFEFF010101818181F1 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0084838080808080FF FEFEFEFEFEFEFE0021C10101010101FF 7F7F7F7F7F7F7F0082818080808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080808080808080FF FFFFFFFFFFFFFF0000000000000000FF FFFFFFFFFFFFFF00818181423C0000FF FFFFFFFFFFFFFF0000000000000000FF FEFEFEFEFEFEFE0001010101010101FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0081818101010101FF 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181404040C100C00000C1C1C0C080C 004812121200000000247E3612000000 0024601B12401B1200001E3F363E3F12 000830271021170400000E1F1E1F1F04 00401132040C11230022753A142A5723 00102A021013001D000C1E3A7E773A1D 0010040C1800000000081C3C18000000 0008160C0800000600040E3C38180C06 0030000002060C180000180C0E1E3C18 00002012402708120000040A3E3F2C12 000018144027040C0000000C3E3F1C0C 0000000010040C1800000000081C3C18 00000000603F0000000000001E3F0000 000000000010040C0000000000081C0C 00040B060C1830200002071E3C787020 002058110119031E001C3E7F777F3F1E 001024040404403F00081C1C1C1C3E3F 00205833060C003F001C3E3F1E3C7E3F 002058330041031E001C3E3F06273F1E 00665501390101030000337F3F070703 00605F003801433E001E3F7C3E073F3E 00102E001811031E000C1E7C7E773F1E 00603903060C0818001E3F0F1E3C3818 002058031811031E001C3E3F7E773F1E 002058011941031E001C3E3F1F273F1E 000000100C100C00000000080C080C00 000000100C100C18000000080C083C18 000008160C0000060000040E3C180C06 000000603F403F000000001E3F3E3F00 0000300000060C18000000180C1E3C18 00205833060C100C001C3E3F1E0C080C 002058191117001E001C3E777F773C1E 001020180119113300081C7E7F7F7733 006058031811033E001C3E7F7E777F3E 002058131010031E001C3E7370763F1E 006050101113063C00183C76777F7E3C 00605F001C10003F001E3F787C707E3F 00605F001C101030001E3F787C707030 00205E1C1111031E001C3E7277773F1E 00665501191111330000337F7F777733 003006040404001E000C1E1C1C1C3C1E 001C09010141031E00020F0707273F1E 00645B06041010330002377E7C7C7633 006050101010003F0000307070707E3F 0042450901191133000023777F7F7733 00664501111111330000337F7F777733 002058111111031E001C3E7777773F1E 006058031E101030001C3E7F7E707030 002058111111001F001C3E777B7D3E1F 0060580306101033001C3E7F7E7C7633 00205F001801033E001E3F3C1E077F3E 007027040404040C000E3F1C1C1C1C0C 006655111111031E0000337777773F1E 006655111103060C00003377773F1E0C 00665515011931210000336B7F7F7321 00640B06001811330002371E3C7E7733 0066550B0604040C000033371E1C1C0C 006033060C58003F001E3F1E3C387E3F 00302E080808001E000C1E3838383C1E 0060000000000101000030180C060301 003812020202021E00041E0E0E0E3E1E 001020183300000000081C7E33000000 000000000000603F0000000000001E3F