10 CLS:WIDTH201,4,1:PRINTCHR$(23)
20 PRINTTAB(2)+"Escape of the":PRINTTAB(2)+"Free Radical from":PRINTTAB(2)+"Outer Space!";
30 FORI=1TO3:FORJ=1TO55STEP3:SOUNDJ,1:NEXTJ,I
40 DEFINTA-S
50 DIMA(200),B(200),C(200)
60 CLS:LOCATE0,3,0:PRINTR;
70 B(0)=0:A(4)=0:FORE=0TO3:A(E)=5:NEXTE:FORE=196TO199:A(E)=5:NEXTE:L=100:B$=""
80 LOCATE4,0,0:PRINT"";:LOCATE0,0,0:PRINT"";
90 FORE=1TO191
100 A(E+4)=INT(RND*4):LOCATEE+4,A(E+4),0:PRINT"";
110 GOSUB300
120 NEXTE
130 B$=" "
140 FORE=192TO199
150 GOSUB300
160 NEXTE
170 GOSUB420
180 C(199)=B(199):FORE=196TO199:B(E)=5:NEXTE:L=100:B$=""
190 LOCATE195,B(195),0:PRINT"";:LOCATE199,C(199),0:PRINT"";
200 FORE=198TO8STEP-1
210 LOCATEE-4,B(E-4),0:PRINT"";
220 GOSUB360
230 NEXTE
240 B$=" "
250 FORE=7TO0STEP-1
260 GOSUB360
270 NEXTE
280 GOSUB420
290 GOTO60
300 A$=INKEY$
310 IFA$=CHR$(28)THENB(E)=(B(E-1)+1)MOD4ELSEIFA$=CHR$(29)THENB(E)=(B(E-1)+3)MOD4ELSEB(E)=B(E-1)
320 LOCATEE-1,B(E-1),0:PRINTB$;:LOCATEE,B(E),0:PRINT"";
330 IFB(E)=A(E)THEN:N=B(E):M=E:GOTO440
340 F=(E+F)MOD56+1:SOUNDF,1:L=L-1:FORK=0TOL:NEXTK
350 RETURN
360 A$=INKEY$
370 IFA$=CHR$(28)THENC(E)=(C(E+1)+1)MOD4ELSEIFA$=CHR$(29)THENC(E)=(C(E+1)+3)MOD4ELSEC(E)=C(E+1)
380 LOCATEE+1,C(E+1),0:PRINTB$;:LOCATEE,C(E),0:PRINT"";
390 IFC(E)=B(E)ORC(E)=A(E)THEN:N=C(E):M=199-E:GOTO440
400 F=(199-E+F)MOD56+1:SOUNDF,1:L=L-1:FORK=0TOL:NEXTK
410 RETURN
420 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
430 R=R+400:RETURN
440 LOCATEE,N,0:PRINT"";
450 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
460 R=R+M:S=S+1:IFS<>5THEN60
470 LOCATE0,3,0:PRINTR;
480 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
490 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:CLS:END
