Content
Image Gallery
Galaxian
5 REM "GALAXIAN"
10 LET V=10
11 LET S=PI/PI
12 LET G=5
13 LET X=4+S*3
14 LET Y=PI-PI
15 PRINT TAB X;
16 FOR I=PI/PI TO 5-S
17 PRINT "\.'\. ";
18 NEXT I
19 LET G=G+(INKEY$="C")-(INKEY$="Z")*(G>PI/PI)
20 PRINT AT V,G;" \.:\. ";AT Y,X;" "
21 LET X=X+(Y>3)-(Y<4)
22 LET Y=Y+PI/PI
23 PRINT AT Y,X;"\'.\' "
24 IF Y=V THEN GOTO 36
25 IF RND<.8 THEN GOTO 30
26 FOR I=Y+PI/PI TO V
27 PRINT AT I,X;"\ :";AT I,X;" "
28 NEXT I
29 IF X=G THEN GOTO 38
30 IF INKEY$<>"M" THEN GOTO 19
31 FOR I=V-PI/PI TO PI/PI STEP -PI/PI
32 PRINT AT I,G;"\ :";AT I,G;" "
33 NEXT I
34 IF G<>X AND G<>X+PI/PI THEN GOTO 19
35 LET S=S+PI/PI
36 CLS
37 IF S<>5 AND (ABS (X-G)>PI/PI OR Y<>V) THEN GOTO 13
38 PRINT S
39 PAUSE 50
40 CLS
41 RUN
42 SAVE "1022%4"
43 RUN
People
No people associated with this content.