GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT DIM XDIR(3),YDIR(3) FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 1,0,0,1,-1,0,0,-1 BG 1 BG COPY 0,0,20,16 TO 0,0 ATTR(6) TEXT 4,14," BY WAS8BIT" PLAY 0,45,1 SOUND 8 WAIT 60*3 CLS REBOOT: IROUND=0 IRING=0 ISCORE=0 NEXTROUND: PLAY 3,30,30 SOUND 6 ISCORE=ISCORE+IRING IRING=0 IROUND=IROUND+1 IEXIT=0 BG 1 ATTR(0) BG FILL 0,0 TO 31,31 CHAR 6 BG FILL 0,0 TO 19,15 CHAR 1 FOR I=1 TO (10+IROUND) CELL INT(RND*20),INT(RND*15),3 CELL INT(RND*20),INT(RND*15),2 NEXT I PX=INT(RND*20) PY=INT(RND*16) PD=0 PANI=0 PC=0 EX=0 EY=0 DO BG 0 ATTR(1) NUMBER 0,0,IRING,3 NUMBER 15,0,ISCORE,5 BG 1 ATTR(0) IF IRING>100 AND IEXIT=0 THEN IEXIT=1 CH=2 WHILE CH>1 EX=INT(RND*20) EY=INT(RND*16) CH=CELL.C(EX,EY) WEND CELL EY,EY,5 PLAY 3,60,10 SOUND 6 END IF UD=UP(0) OR DOWN(0) LR=LEFT(0) OR RIGHT(0) IF RIGHT(0) AND NOT UD THEN PD=0 GOSUB PMOVE END IF IF LEFT(0) AND NOT UD THEN PD=2 GOSUB PMOVE END IF IF DOWN(0) AND NOT LR THEN PD=1 GOSUB PMOVE END IF IF UP(0) AND NOT LR THEN PD=3 GOSUB PMOVE END IF PANI=(PANI+1) MOD 20 IF PANI=0 THEN PC=0 IF PANI=10 THEN PC=1 CELL PX,PY,14+PC+(16*PD) FOR K=1 TO 25 GX=INT(RND*20) GY=INT(RND*16) CH=CELL.C(GX,GY) IF CH=4 THEN GO=1 WHILE GO>=1 AND GO<=6 DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) WEND PLAY 2,30,1 SOUND 4 CELL GX,GY,0 CELL GMX,GMY,4 IF GO>13 THEN GOTO THEEND END IF IF CH=3 AND K<=2 THEN DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) IF GO=1 OR GO=0 OR GO>13 THEN PLAY 1,50,1 SOUND 1 CELL GX,GY,1 CELL GMX,GMY,3 IF GO>13 THEN GOTO THEEND IF GO=0 THEN CELL GMX,GMY,4 END IF END IF NEXT K WAIT VBL LOOP PMOVE: PMX=PX+XDIR(PD) PMY=PY+YDIR(PD) CH=CELL.C(PMX,PMY) IF PMX>=0 AND PMY>=0 AND PMX<=19 AND PMY<=15 THEN IF CH=5 THEN CELL PX,PY,0 WAIT 15 GOTO NEXTROUND END IF IF CH=1 THEN IPM=IPM+1 IF IPM>30 THEN PLAY 0,90,1 SOUND 2 CELL PX,PY,0 PX=PMX PY=PMY IPM=0 ELSE IF PANI=10 THEN PLAY 0,10,1 SOUND 0 END IF ELSE IF CH=0 OR CH=1 OR CH=2 OR CH=4 THEN IPM=IPM+1 IF IPM>10 THEN IF CH=0 THEN PLAY 0,90,1 SOUND 2 IF CH=2 OR CH=4 THEN PLAY 3,60,1 SOUND 3 IRING=IRING+IRING+1 END IF CELL PX,PY,0 PX=PMX PY=PMY IPM=0 END IF END IF END IF RETURN THEEND: PLAY 3,80,10 SOUND 7 PLAY 2,79,11 SOUND 7 PLAY 1,78,12 SOUND 7 PLAY 0,77,13 SOUND 7 PALETTE 0,3*16,,, WAIT 60*4 CLS PRINT PRINT NUMBER 0,0,IRING+ISCORE,5 PRINT "PRESS" WAIT 60 PRINT PRINT "A B B A" WAIT 60 PRINT PRINT "TO REPLAY" CODE$=">" WHILE CODE$<>">ABBA" IF LEN(CODE$)>4 THEN WAIT 60 CODE$=">" END IF IF BUTTON TAP (0,0) THEN CODE$=CODE$+"A" IF BUTTON TAP (0,1) THEN CODE$=CODE$+"B" TEXT 0,8,CODE$+" " WAIT VBL WEND PLAY 0,90,1 SOUND 3 WAIT 60*3 CLS GOTO REBOOT #1:MAIN PALETTES 103C0C24003C3C15003C0C00003F3C00 000B2A1500332A1500242410003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 AA7FFE7FFE7FFE55AA7FFE7FFE7FFE55 AA19A443C2259855AA01800180018055 AA4380258001A455AA7FFE7FFE7FFE55 00000000000000003C7E9999FFDBC381 FFC381818181C3FF9942000000004299 00002810280000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C78F0E0E0F0783C0000000000000000 3C7EFFFCFCFF7E3C0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFE7C38100000000000000000000 3C7EFFFFFFFF66240000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C1E0F07070F1E3C0000000000000000 3C7EFF3F3FFF7E3C0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000081C3E7FF7E3C0000000000000000 2466FFFFFFFF7E3C0000000000000000 #3:MAIN BG 00001410010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000400 00000000000000000000000000000000 00000000000000000000000000000000 04000100010000000300030003000300 03000300030003000300030003000300 03000300030003000000010001000000 03000000000000040004000400000004 00040004000400040004000400000300 0000010001000000030000000F040F04 0004000400041F041F04000400040004 3F043F04000003000000010001000000 030000000F0400040F0400041F040004 00041F0400043F040004000400000300 0000010001000000030000000F040F04 000400041F041F041F041F0400043F04 00040004000003000000010001000000 030000000F040004000000001F040004 00001F04000000003F043F0400000300 0000010001000000030000000F050F05 000500001F05000500001F0500000004 3F053F05000003000000010001000000 030000000F0500050F0500051F050005 00001F0500003F050000000000000300 0000010001000000030000000F050005 0F0500051F05000500001F0500003F05 00003F05000003000000010001000000 030000000F050F050005000000001F05 1F050005000000043F053F0500000300 00000100010000000300000000000000 00000000000000000000000000000000 00000000000003000000010001000000 03000300030003000300030003000300 03000300030003000300030003000300 00000100010004000000000000000000 00000000000000000000000000000000 00000000000000000400010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100 #15:MAIN SOUND 3800303A000450003800F6DD003A0000 3800606F00FF0F000800309919000000 2800208800FF00003800505000000000 180000DD10FC0000080000DD14F00000 0800F0BB12FD0F000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000