Stellar Run 75
240 GOTO 500
250 REM D=4
260 N$=B$:IF RND<0.08 THEN NM-=I$
270 DS=LEFTS(As,(SINCE)+COS(E*1.1))*4.5+ 12)+LEFT$(N$,16)+A$
280 IF E>60 THEN SOUND 1,90-E/6,4: D=5 290 GOTO 500
300 REM D=5
310 IF RND>0.6 THEN DS=BS:GOTO 330
320 DD=INT(RND*40)+1:DS=MIDS(C$,DD,41-DD
330 IF E>75 THEN SOUND 1,140-E/6,4:D=6 340 GOTO 500
350 REM D=6
360 DS=LEFTS(A$,SIN(E)*12+14)+LEFT$(B$0 4)+A$: IF E>90 THEN SOUND 1,90-E/5,4: D= 7
370 GOTO 500
380 REM D=7
390 D-4:=LEFTS(ASOSIN(E)+COS(E*5.1))*4.54- 12)+LEFTS(B$06)+AS:IF E>105 THEN SOUND 1,50-E/5,4:D=8
400 GOTO 500
410 REM D=B
420 IF RND>0.25 THEN DS=BS:GOTO 440
430 DD=INT(RND*2)+1:DS=MIDS(I$,DD,31-DD) 440 IF E>120 THEN SOUND 1,80-E/5,4: D=9 450 GOTO 500
460 REM D=9
470 IF RND>0.5 THEN DS=BS:GOTO 490 480 DS=A$
490 IF E>135 THEN 770
500 REM PRINT
510 IF LEN(D$)<32 THEN DS=DS+A$
520 PEN 3:LOCATE 32,22:PRINT CHR$(232);L EFTS(D$,32);:PEN 2:LOCATE 1,1:PRINT"MISS ILES=";MIDIV(STRS(FG),2);:LOCATE 13,1:PRI NT"LEVEL=";MID$(STRS(D),2);:LOCATE 23,1: PRINT"LYEARS=";MIDS(STRS(INT(E)),2);:PEN
1
530 REM KEYBOARD INPUT
540 IF M<0 THEN M=0
550 SOUND 1,50,3:FG=FG+1
560 IF INKEY(47)<>0 THEN 600