REM ORIGINAL CODE BY MCPEPIC REM REMIX BY WAS8BIT GOSUB INIT DO IF SLEN = AREA THEN GOTO WIN IF UP TAP(0) THEN SVX = 0 SVY =-1 ELSE IF DOWN TAP(0) THEN SVX = 0 SVY = 1 ELSE IF LEFT TAP(0) THEN SVX =-1 SVY = 0 ELSE IF RIGHT TAP(0) THEN SVX = 1 SVY = 0 END IF IF TIMER MOD 20 = 0 THEN IF SNAKEX(0) = AX AND SNAKEY(0) = AY THEN INC SLEN CALL MOVEAPPLE END IF FOR S = SLEN TO 1 STEP -1 IF SNAKEX(0) = SNAKEX(S) AND SNAKEY(0) = SNAKEY(S) THEN GOTO GAMEOVER SNAKEX(S) = SNAKEX(S - 1) SNAKEY(S) = SNAKEY(S - 1) NEXT S ADD SNAKEX(0), SVX, 0 TO MAPW ADD SNAKEY(0), SVY, 1 TO MAPH CALL DRAWBOARD END IF WAIT VBL LOOP GAMEOVER: CALL CTEXT(MAPW / 2, MAPH / 2 - 1, "GAME OVER") CALL CTEXT(MAPW / 2, MAPH / 2 + 1, "LENGTH: " + STR$(SLEN)) DO LOOP WIN: CALL CTEXT(MAPW / 2, MAPH / 2, "YOU WIN!") DO LOOP SUB MOVEAPPLE CLS ANSWER=0 WHILE ANSWER<1 OR ANSWER>99 OR (ANSWER<>INT(ANSWER)) N1=RND(98)+1 N2=RND(98)+1 R=RND(5) IF R=0 THEN O$="+" ANSWER=N1+N2 ELSE IF R=1 THEN O$="-" ANSWER=N1-N2 ELSE IF R=2 THEN O$="*" ANSWER=N1*N2 ELSE O$="/" ANSWER=N1/N2 END IF WEND BG 0 TEXT 1,0,STR$(N1)+" "+O$+" "+STR$(N2) BG 1 REPEAT AX = RND(MAPW) AY = RND(MAPH-1)+1 UNTIL CELL.C(AX, AY) = 0 TEXT AX,AY,"A" REPEAT AX2 = RND(MAPW) AY2 = RND(MAPH-1)+2 UNTIL CELL.C(AX2, AY2) = 0 TEXT AX2,AY2,"A" ANSWER2=RND(98)+1 REPEAT AX3 = RND(MAPW) AY3 = RND(MAPH-1)+1 UNTIL CELL.C(AX3, AY3) = 0 ANSWER3=RND(98)+1 END SUB SUB DRAWBOARD CLS 1 CELL AX, AY, ANSWER+1 CELL AX2, AY2, ANSWER2+1 CELL AX3,AY3,ANSWER3-1 FOR S = 0 TO SLEN CELL SNAKEX(S), SNAKEY(S),102 NEXT S END SUB SUB CTEXT(X,Y,T$) TX = X - LEN(T$) / 2 TEXT TX, Y, T$ END SUB INIT: RANDOMIZE TIMER GLOBAL MAPW, MAPH, AREA, ANSWER MAPW = 20 MAPH = 16 AREA = MAPW * MAPH - 1 DEC MAPW DEC MAPH DIM GLOBAL SNAKEX(AREA), SNAKEY(AREA) GLOBAL SVX,SVY, SLEN, AX,AY, AX2,AY2, AX3,AY3, ANSWER, ANSWER2, ANSWER3 SVY=-1 SNAKEX(0) = RND(MAPW) SNAKEY(0) = RND(MAPH) CALL MOVEAPPLE GAMEPAD 1 RETURN #1:MAIN PALETTES 053F370000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00FEFEFEFEFEFEFE00FEC6D6D6D6C6FE 00FEFEFEFEFEFEFE00FECEEEEEEEC6FE 00FEFEFEFEFEFEFE00FEC6F6C6DEC6FE 00FEFEFEFEFEFEFE00FEC6F6E6F6C6FE 00FEFEFEFEFEFEFE00FED6D6C6F6F6FE 00FEFEFEFEFEFEFE00FEC6DEC6F6C6FE 00FEFEFEFEFEFEFE00FEC6DEC6D6C6FE 00FEFEFEFEFEFEFE00FEC6F6F6F6F6FE 00FEFEFEFEFEFEFE00FEC6D6C6D6C6FE 00FEFEFEFEFEFEFE00FEC6D6C6F6C6FE 00FEFEFEFEFEFEFE00FE30B4B4B410FE 00FEFEFEFEFEFEFE00FE32BABABA10FE 00FEFEFEFEFEFEFE00FE30BCB0B610FE 00FEFEFEFEFEFEFE00FE30BCB8BC10FE 00FEFEFEFEFEFEFE00FE34B4B0BC1CFE 00FEFEFEFEFEFEFE00FE30B6B0BC10FE 00FEFEFEFEFEFEFE00FE30B6B0B410FE 00FEFEFEFEFEFEFE00FE30BCBCBC1CFE 00FEFEFEFEFEFEFE00FE30B4B0B410FE 00FEFEFEFEFEFEFE00FE30B4B0BC10FE 00FEFEFEFEFEFEFE00FE10D4147410FE 00FEFEFEFEFEFEFE00FE12DA1A7A10FE 00FEFEFEFEFEFEFE00FE10DC107610FE 00FEFEFEFEFEFEFE00FE10DC187C10FE 00FEFEFEFEFEFEFE00FE14D4107C1CFE 00FEFEFEFEFEFEFE00FE10D6107C10FE 00FEFEFEFEFEFEFE00FE10D6107410FE 00FEFEFEFEFEFEFE00FE10DC1C7C1CFE 00FEFEFEFEFEFEFE00FE10D4107410FE 00FEFEFEFEFEFEFE00FE10D4107C10FE 00FEFEFEFEFEFEFE00FE10D414D410FE 00FEFEFEFEFEFEFE00FE12DA1ADA10FE 00FEFEFEFEFEFEFE00FE10DC10D610FE 00FEFEFEFEFEFEFE00FE10DC18DC10FE 00FEFEFEFEFEFEFE00FE14D410DC1CFE 00FEFEFEFEFEFEFE00FE10D610DC10FE 00FEFEFEFEFEFEFE00FE10D610D410FE 00FEFEFEFEFEFEFE00FE10DC1CDC1CFE 00FEFEFEFEFEFEFE00FE10D410D410FE 00FEFEFEFEFEFEFE00FE10D410DC10FE 00FEFEFEFEFEFEFE00FE505414D4D0FE 00FEFEFEFEFEFEFE00FE525A1ADAD0FE 00FEFEFEFEFEFEFE00FE505C10D6D0FE 00FEFEFEFEFEFEFE00FE505C18DCD0FE 00FEFEFEFEFEFEFE00FE545410DCDCFE 00FEFEFEFEFEFEFE00FE505610DCD0FE 00FEFEFEFEFEFEFE00FE505610D4D0FE 00FEFEFEFEFEFEFE00FE505C1CDCDCFE 00FEFEFEFEFEFEFE00FE505410D4D0FE 00FEFEFEFEFEFEFE00FE505410DCD0FE 00FEFEFEFEFEFEFE00FE107414D410FE 00FEFEFEFEFEFEFE00FE127A1ADA10FE 00FEFEFEFEFEFEFE00FE107C10D610FE 00FEFEFEFEFEFEFE00FE107C18DC10FE 00FEFEFEFEFEFEFE00FE147410DC1CFE 00FEFEFEFEFEFEFE00FE107610DC10FE 00FEFEFEFEFEFEFE00FE107610D410FE 00FEFEFEFEFEFEFE00FE107C1CDC1CFE 00FEFEFEFEFEFEFE00FE107410D410FE 00FEFEFEFEFEFEFE00FE107410DC10FE 00FEFEFEFEFEFEFE00FE1074145410FE 00FEFEFEFEFEFEFE00FE127A1A5A10FE 00FEFEFEFEFEFEFE00FE107C105610FE 00FEFEFEFEFEFEFE00FE107C185C10FE 00FEFEFEFEFEFEFE00FE1474105C1CFE 00FEFEFEFEFEFEFE00FE1076105C10FE 00FEFEFEFEFEFEFE00FE1076105410FE 00FEFEFEFEFEFEFE00FE107C1C5C1CFE 00FEFEFEFEFEFEFE00FE1074105410FE 00FEFEFEFEFEFEFE00FE1074105C10FE 00FEFEFEFEFEFEFE00FE10D4D4D4D0FE 00FEFEFEFEFEFEFE00FE12DADADAD0FE 00FEFEFEFEFEFEFE00FE10DCD0D6D0FE 00FEFEFEFEFEFEFE00FE10DCD8DCD0FE 00FEFEFEFEFEFEFE00FE14D4D0DCDCFE 00FEFEFEFEFEFEFE00FE10D6D0DCD0FE 00FEFEFEFEFEFEFE00FE10D6D0D4D0FE 00FEFEFEFEFEFEFE00FE10DCDCDCDCFE 00FEFEFEFEFEFEFE00FE10D4D0D4D0FE 00FEFEFEFEFEFEFE00FE10D4D0DCD0FE 00FEFEFEFEFEFEFE00FE1054145410FE 00FEFEFEFEFEFEFE00FE125A1A5A10FE 00FEFEFEFEFEFEFE00FE105C105610FE 00FEFEFEFEFEFEFE00FE105C185C10FE 00FEFEFEFEFEFEFE00FE1454105C1CFE 00FEFEFEFEFEFEFE00FE1056105C10FE 00FEFEFEFEFEFEFE00FE1056105410FE 00FEFEFEFEFEFEFE00FE105C1C5C1CFE 00FEFEFEFEFEFEFE00FE1054105410FE 00FEFEFEFEFEFEFE00FE1054105C10FE 00FEFEFEFEFEFEFE00FE105414D410FE 00FEFEFEFEFEFEFE00FE125A1ADA10FE 00FEFEFEFEFEFEFE00FE105C10D610FE 00FEFEFEFEFEFEFE00FE105C18DC10FE 00FEFEFEFEFEFEFE00FE145410DC1CFE 00FEFEFEFEFEFEFE00FE105610DC10FE 00FEFEFEFEFEFEFE00FE105610D410FE 00FEFEFEFEFEFEFE00FE105C1CDC1CFE 00FEFEFEFEFEFEFE00FE105410D410FE 00FEFEFEFEFEFEFE00FE105410DC10FE FFFFFFFFFFFFFFFFFF81BDA5A5BD81FF 000000000000000000247E24247E2400