0 CLEAR1000:Q=31:Z=32:E=148:SCO=0:TIM=180:LIV=4:POKE62442!,175:SCREEN,0:CLS:PRINT:PRINT"Press prefered keys for movement or":PRINT" for arrow keys":PRINT"","left ";:AA$=INPUT$(1) 1 IFAA$=CHR$(13) THEN GOTO26 ELSE PRINTAA$:PRINT"","right ";:AB$=INPUT$(1):PRINTAB$:PRINT"","up "; 2 AC$=INPUT$(1):PRINTAC$:PRINT"","down ";:AD$=INPUT$(1):PRINTAD$ 3 CLS:FORX=120 TO 159:LOCATEXMOD40,X\40:PRINT "#";:NEXT:CAR$=" "+CHR$(132):FLY$=" "+CHR$(133)+" ":C$="":N$="": FORX=1 TO10:C$=C$+CAR$:N$=N$+FLY$:NEXT:E$=C$:O$=N$ 4 SOUND 3728,10:SOUND 3728,10:SOUND 4184,10:SOUND 4184,10:SOUND 4697,10:SOUND 4697,10:SOUND 3728,13:SOUND 1,5:SOUND 3516,10:SOUND 3516,10:SOUND 3728,10:SOUND 3728,10:SOUND 4184,13:SOUND 1,25:SOUND 3516,10:SOUND 3516,10:SOUND 3728,10:SOUND 3728,10 5 SOUND 4184,10:SOUND 4184,10:SOUND 2793,10:SOUND 2793,10:SOUND 3134,10:SOUND 3516,10:SOUND 3728,10:SOUND 4184,10:SOUND 4697,10 6 G$="":LOCATE0,0:PRINT CHR$(239);CHR$(239);:F$=" "+STRING$(5,239):FORX=1TO5:G$=G$+F$:NEXT:PRINTG$;" ";CHR$(239); 7 X=19:Y=6:A$="":GOTO16 8 H=0:V=0:A$=INKEY$:IFA$="" THEN12 ELSE E=(E XOR 7) 9 IF A$=AA$ THEN X=X-1:H=1 ELSE IFA$=AB$ THEN X=X+1:H=-1 ELSE IF A$=AC$ THEN Y=Y-1:V=1 ELSE IF A$=AD$ THEN Y=Y+1:V=-1 10 IF X>39 THEN X=39:H=0 ELSE IF X<0 THEN X=0:H=0 11 IF Y>6 THEN Y=6:V=0 ELSEIF Y<0 THENY=0 12 IFQ>5THENQ=0:GOTO13ELSEQ=Q+1:GOTO14 13 LOCATE0,1:PRINT C$;:D$=RIGHT$(C$,1):C$=D$+LEFT$(C$,39):LOCATE0,4:PRINT E$:D$=LEFT$(E$,1):E$=RIGHT$(E$,39)+D$:LOCATE0,2:PRINT N$;:D$=LEFT$(N$,1):N$=RIGHT$(N$,39)+D$:LOCATE0,5:PRINT O$:D$=RIGHT$(O$,1):O$=D$+LEFT$(O$,39) 14 IFA$="" THEN 15 ELSE LOCATE(X+H+(Y+V)*40)MOD40,(X+H+(Y+V)*40)\40:PRINT CHR$(Z);:Z=PEEK(64768!+X+40*Y):IFZ<>32AND Z<>35 THEN21ELSE16 15 T=PEEK(64768!+X+40*Y):IF T<>147 AND T<>148 AND T<>32 THEN 21 16 LOCATE0,7:PRINT "SCORE=";SCO:LOCATE30,7:PRINT "TIME=";TIM;:LOCATE(X+40*Y)MOD40,(X+40*Y)\40:PRINT CHR$(E);:IFY=0THEN20 17 IFLIV<>0THENLOCATE15,7:FORB=0TOLIV-1:PRINTCHR$(147);:NEXT 18 W=VAL(RIGHT$(TIME$,2)):IFW=JTHEN19ELSEJ=W:TIM=TIM-1:IFTIM=0 THEN25 19 GOTO8 20 SCO=SCO+10:TIM=TIM+10:SOUND4697,7:SOUND3516,7:SOUND2793,7:SOUND 2348,12:SOUND 2793,7:SOUND 2348,12:LOCATE(X-1)MOD40,(X-1)\40:PRINT STRING$(3,239);:X=19:Y=6:IF SCO/60=INT(SCO/60)THENGOSUB22:GOTO6ELSE7 21 Z=32:FORU=1 TO 4:SOUND 12538,3:SOUND11172,3:SOUND 9952,3:NEXT U:SOUND 1567,15:LIV=LIV-1:LOCATE15,7:PRINT " ";:IFLIV=-1THEN25ELSE7 22 IF SCO/240=INT(SCO/240) THEN LIV=LIV+1 23 IFLIV>5 THEN LIV=5:SCO=SCO+120:TIM=TIM+30 24 RETURN 25 SOUND 1,25:FOR U=1 TO 4:SOUND 3134,3:SOUND 3516,3:SOUND 3728,3:SOUND 4184,3:SOUND 4697,3:NEXT U:SOUND 9394,25:CLS:LOCATE10,1:PRINT "SCORE=";SCO:LOCATE10,3:PRINT "PLAY AGAIN ?";:A$=INPUT$(1):IFA$<>"y"AND A$<>"Y"THEN MENUELSERUN 26 AA$=CHR$(29):AB$=CHR$(28):AC$=CHR$(30):AD$=CHR$(31):GOTO3 27 'NEC Adaptation 3/12/96 by Gary Weber