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