0 'TOXIC.BA Unknown - NEC 8201/8300 Conversion by Gary Weber - CHR100.CO is needed. 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 SCREEN,0:CLS:' Initialize Game 3 LOCATE0,0:PRINT "Initializing...":' 4 DEFINT A-Z:CLS:PRINT"Enter H for Hard, E for Easy: "; 5 C$=INKEY$:IF C$="" THEN 5 6 IF C$="h" OR C$="H" THEN EA=0 7 IF C$="e" OR C$="E" THEN EA=-1 8 DIM D$(319) 9 V=VAL(RIGHT$(TIME$,2)):FOR I=0 TO V:R=RND(1):NEXT I:H$=CHR$(147):M$=CHR$(144):S=0:MM=4 10 A$=" ":B$=" ":TT=0 11 ' 12 ' Print Starting Layout 13 ' 14 CLS:FOR I=34 TO 314 STEP 40:LOCATEIMOD40,I\40:PRINT CHR$(239);:NEXT I:LOCATE35,0:PRINT S;:LOCATE35,3:PRINT MM;:Y=4:X=33:H=193:LOCATEHMOD40,H\40:PRINT H$;:X1=X:Y1=Y 15 J=3:I=0:M=120:LOCATE0,3:PRINT M$;:J1=J:I1=I:' 16 ' Print Targets 17 ' 18 FOR K=0 TO 319:D$(K)=" ":NEXT K:FOR K=1 TO 10 19 U=INT(RND(1)*32+1):V=INT(RND(1)*8):PD=U+40*V:IF D$(PD)<>" " THEN 19 20 D$(PD)=CHR$(134):LOCATEPDMOD40,PD\40:PRINT D$(PD);:NEXT K:B$=INKEY$:B$=INKEY$:B$=INKEY$:B$=INKEY$:' 21 ' Move Hero 22 ' 23 B$=INKEY$:IF B$="" THEN B$=A$ 24 IF B$="J" OR B$=CHR$(28) THEN X=X+1:IF X>33 THEN X=0 25 IF B$="G" OR B$=CHR$(29) THEN X=X-1:IF X<0 THEN X=33 26 IF B$="H" OR B$=CHR$(31) THEN Y=Y+1:IF Y>7 THEN Y=0 27 IF B$="Y" OR B$=CHR$(30) THEN Y=Y-1:IF Y<0 THEN Y=7 28 H=X+40*Y:H1=X1+40*Y1:LOCATEH1MOD40,H1\40:PRINT " ";:LOCATEHMOD40,H\40:PRINT H$;:X1=X:Y1=Y:A$=B$:IF D$(H)=" " THEN 31 29 SOUND 16000,2:S=S+10:D$(H)=" ":LOCATE35,0:PRINT S;:TT=TT+1:IF TT=10 THEN 10 ELSE 38 30 ' 31 ' Move Chaser 32 ' 33 ' If "hard" then move chaser, else move every other time 34 ' 35 IF NOT(EA) THEN 38 36 F=NOT(F):IF F=-1 THEN 23 37 ' 38 IF X=I THEN 40 39 IF X>I THEN I=I+1 ELSE I=I-1 40 IF Y=J THEN 42 41 IF Y>J THEN J=J+1 ELSE J=J-1 42 M=I+40*J:M1=I1+40*J1:LOCATEMMOD40,M\40:PRINT M$;:LOCATEM1MOD40,M1\40:PRINT D$(M1);:J1=J:I1=I:IF M<>H THEN 23 43 SOUND 8000,4:MM=MM-1:IF MM=0 THEN 47 44 LOCATE35,0:PRINT S;:LOCATE35,3:PRINT MM;:GOTO 10:' 45 ' End of Game 46 ' 47 LOCATE15,2:PRINT "Game Over";:LOCATE35,3:PRINT MM:LOCATE15,4:PRINT "Score: ";S;:R$=INKEY$:R$=INKEY$ 48 R$=INKEY$:IF R$="" THEN 48 49 GOTO 9