Source Code
5 REM "ALIEN GUNNER"
10 FOR I=0 TO 28 STEP 2
20 PLOT I,0
30 NEXT I
40 LET K=0
45 LET W=0
50 FOR Z=0 TO 14
55 IF W<>0 THEN GOTO 90
60 LET F=INT (RND*4+1)
70 LET S=INT (RND*29+2)
80 PRINT AT F,S-1;"\..%X\.."
90 FOR I=0 TO 63
100 PLOT I,2
110 UNPLOT I,2
120 IF INKEY$<>"" THEN GOTO 150
130 NEXT I
140 GOTO 90
150 FOR J=2 TO 41
160 PLOT I,J
170 UNPLOT I,J
180 NEXT J
190 UNPLOT 28-2*Z,0
200 IF I=2*S OR I=2*S+1 THEN GOTO 220
205 LET W=1
210 GOTO 280
220 GOSUB (F+2)*100
225 LET W=0
230 PRINT AT F,S-1;"\,,\##\,,"
240 PAUSE 50
250 PRINT AT F,S-1;" "
260 PAUSE 50
270 PRINT AT 21,27;K
280 NEXT Z
290 GOTO 700
300 LET K=K+1000
350 RETURN
400 LET K=K+500
450 RETURN
500 LET K=K+250
550 RETURN
600 LET K=K+100
610 RETURN
620 SAVE "1023%3"
630 RUN
