Galaxian

Gallery

Source Code

   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