Source Code
1 REM * CLIVE INVADERS *
2 GOSUB 9038
3 IF INKEY$="Y" THEN GOTO 9000
4 IF INKEY$="N" THEN GOTO 6
5 GOTO 3
6 LET S1=0
7 LET S2=0
8 CLS
10 FOR A=0 TO 21
20 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
30 NEXT A
34 PRINT AT 21,1;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.."
35 PRINT AT 0,0;"% %S%C%O%R%E% ";S1;"% % % % %H%I% %S%C%O%R%E% ";S2
36 PRINT AT 1,0;"% "
45 LET G$="% % % % % % "
50 LET A$="% \:' \ '% % "
60 LET B$="% \' \' \ :% "
70 LET C$="% \:.\ '\ .% % "
80 LET D$="% \'.% \:.\':% "
85 LET H=0
90 LET A=1
100 LET B=INT (RND*25)+1
110 LET E$="% % % \:'\ '% % % "
120 LET F$="% % \:' \ '% % "
130 LET C=20
140 LET D=15
150 LET E=0
160 LET F=0
165 SLOW
170 IF INKEY$="D" THEN LET D=D+2
180 IF INKEY$="A" THEN LET D=D-2
190 IF INKEY$="L" THEN GOSUB 1000
195 LET H=INT (RND*3)
200 IF D<1 THEN LET D=1
205 IF H=2 THEN LET H=-1
210 IF D>=25 THEN LET D=25
211 IF B<=1 THEN LET B=1
212 IF B>=25 THEN LET B=25
220 PRINT AT A,B;G$
230 PRINT AT A+1,B;A$
240 PRINT AT A+2,B;B$
250 PRINT AT A+3,B;C$
260 PRINT AT A+4,B;D$
265 PRINT AT A+5,B;G$
270 PRINT AT C,D;F$
280 PRINT AT C-1,D;E$
281 IF E>=5 THEN GOSUB 4000
283 IF F=1 THEN GOSUB 5000
284 IF F=2 THEN GOSUB 5500
290 IF A+5=C THEN GOTO 2000
295 LET Z1=INT (RND*10)+1
300 LET A=A+1
305 IF Z1=10 THEN LET A=A-2
310 LET B=B+H
315 LET F=F+1
318 LET E=E+0.2
319 IF Z1=10 THEN GOTO 230
320 GOTO 170
\n1000 PRINT AT C,D;F$
\n1002 PRINT AT C-1,D;E$
\n1005 LET J=D+4
\n1010 FOR I=17 TO A+4 STEP -1
\n1020 PRINT AT I,J;"\ :"
\n1030 NEXT I
\n1040 IF J=B+1 THEN GOTO 1100
\n1050 IF J=B+2 THEN GOTO 1100
\n1060 IF J=B+3 THEN GOTO 1100
\n1070 IF J=B+4 THEN GOTO 1100
\n1090 FOR I=A+4 TO 18 STEP 1
\n1095 PRINT AT I,J;"% "
\n1096 NEXT I
\n1098 RETURN
\n1100 PRINT AT A+1,B;G$
\n1105 PRINT AT A,B;G$
\n1110 PRINT AT A+2,B;G$
\n1120 PRINT AT A+3,B;G$
\n1130 PRINT AT A+4,B;G$
\n1150 FOR I=A+5 TO 17 STEP 1
\n1160 PRINT AT I,J;"% "
\n1170 NEXT I
\n1180 LET A=1+INT (RND*4)+1
\n1185 LET B=INT (RND*25)
\n1190 LET E=E+.5
\n1195 LET S1=S1+15
\n1196 PRINT AT 0,7;S1
\n1200 RETURN
\n2000 PRINT AT C,D;"% % % % % % % "
\n2010 PRINT AT C-1,D;"% % % % % % "
\n2020 PRINT AT 1,0;"% %G%A%M%E% %O%V%E%R% %,%A%N%O%T%H%E%R% %G%O%?% %(%Y%/%N%)% "
\n2025 IF S1>S2 THEN GOTO 2030
\n2026 GOTO 2035
\n2030 LET S2=S1
\n2032 PRINT AT 0,20;S2
\n2035 LET S1=0
\n2045 IF INKEY$="N" THEN GOTO 7000
\n2046 IF INKEY$="Y" THEN GOTO 8
\n2047 GOTO 2045
\n4000 FOR J=A+5 TO 20
\n4005 PRINT AT J,B+2;"\: "
\n4010 NEXT J
\n4015 IF B+3=D+6 THEN GOTO 6000
\n4020 IF B+3=D+3 THEN GOTO 6000
\n4025 IF B+3=D+4 THEN GOTO 6000
\n4030 IF B+3=D+5 THEN GOTO 6000
\n4035 FOR J=A+5 TO 20
\n4036 PRINT AT J,B+2;"% "
\n4037 NEXT J
\n4040 LET E=E-INT (RND*5)+1
\n4050 RETURN
\n5000 LET D$="% \:.\':\'.% % "
\n5010 RETURN
\n5500 LET D$="% \'.% \:.\':% "
\n5505 LET F=0
\n5510 RETURN
\n6000 PRINT AT C,D;"% % % % % % "
\n6010 PRINT AT C-1,D;"% % % % % % "
\n6020 FOR J=A+5 TO 20
\n6030 PRINT AT J,B+2;"% "
\n6040 NEXT J
\n6050 GOTO 2020
\n7000 PRINT AT 19,0;"% % % % %T%H%E% %C%L%I%V%E% %I%N%V%A%D%E%R%S% %R%U%L%E% % "
\n7005 LET F=1
\n7006 IF A=15 THEN LET A=14
\n7010 PRINT AT A+1,B;A$
\n7015 PRINT AT A+2,B;B$
\n7020 PRINT AT A+3,B;C$
\n7021 PRINT AT A+4,B;D$
\n7025 IF F=1 THEN GOSUB 5000
\n7026 IF F=2 THEN GOSUB 5500
\n7027 LET F=F+1
\n7028 GOTO 7010
\n9000 CLS
\n9001 PRINT AT 0,0;" % %*%*%*% %C%L%I%V%E% %I%N%V%A%D%E%R%S% %*%*%*% "
\n9010 PRINT AT 2,0;"TO MOVE THE BASE LEFT, PRESS A AND TO MOVE IT RIGHT, PRESS D TO FIRE, PRESS L GOOD LUCK -----------"
\n9020 FOR W=1 TO 100
\n9021 NEXT W
\n9030 GOTO 6
\n9050 PRINT AT 1,0;"DO YOU WANT INSTRUCTIONS (Y/N)?"
\n9060 PRINT AT 0,0;" % %*%*%*% %C%L%I%V%E% %I%N%V%A%D%E%R%S% %*%*%* "
\n9065 RETURN
\n9070 SAVE "1015%7"
\n9080 RUN
