Shoot down the spaceships.
Content
Image Gallery
Source Code
5 REM **FROM "SINCLAIR PROGRAMS"MAGAZINE,WRITTEN BY R.RAVEN of Oud-Beijerland,HOLLAND**
10 REM USE TIMEX-2068 OR SPECTRUM MODE
20 POKE 23609,5
30 GO TO 630
40 GO TO 520
50 LET s=0: LET l=3
60 LET lev=.1: LET a=15: LET x1=1: LET x2=1: LET x3=1
70 LET y1=INT (RND*10)+10
80 LET y2=INT (RND*10)+10
90 LET y3=INT (RND*10)+10
100 BRIGHT 1: BORDER 0: PAPER 1: INK 7: CLS
110 GO SUB 280
120 PRINT #0;AT 0,5; INK 6;"\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f\f"; INK 2;AT 1,5;"\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'"
130 FOR n=SGN PI TO 50: PLOT RND*255,RND*170: NEXT n
140 GO TO 300
150 LET a=a+(INKEY$="8" AND a<25)-(INKEY$="5" AND a>5)
160 PRINT AT 21,a-1; INK 7;" \a "
170 IF INKEY$="0" THEN GO SUB 410
180 RETURN
190 PRINT AT x1,y1;" ";AT x2,y2;" ";AT x3,y3;" "
200 LET x1=x1+(RND<lev+.2): LET x2=x2+(RND<lev+.1): LET x3=x3+(RND<lev)
210 LET y1=y1+INT (RND*3)-1-(y1>25)+(y1<5)
220 LET y2=y2+INT (RND*3)-1-(y2>25)+(y2<5)
230 LET y3=y3+INT (RND*3)-1-(y3>25)+(y3<5)
240 PRINT AT x1,y1; INK 4;"\c";AT x2,y2; INK 5;"\d";AT x3,y3; INK 5;"\d";AT x3,y3; INK 6;"\e"
250 BEEP .005,(x1+x2+x3)/5
260 IF x1>20 OR x2>20 OR x3>20 THEN GO TO 350
270 RETURN
280 PRINT AT 0,0; INK 6;"SCORE:";s;AT 0,15;"LIVES:";l;" "
290 RETURN
300 GO SUB 150
310 GO SUB 190
320 LET lev=lev+.005
330 IF RND>.9 THEN PLOT RND*255,RND*170
340 GO TO 300
350 PRINT AT 21,a;" ";#0;AT 1,5;" I N V A D E D "
360 LET p=y1*(x1=21)+y2*(x2=21)+y3*(x3=21)
370 IF p<30 THEN PRINT AT 21,p;"\g": LET lll=USR 23398: LET l=l-1: GO SUB 280: IF l>0 THEN GO TO 60
380 PRINT AT 10,10; INK 6;"GAME OVER": FOR n=-10 TO 10: BEEP .05,n: NEXT n
390 FOR n=SGN PI TO 1000: IF n=250 OR n=500 OR n=750 THEN LET lll=USR 23398: BORDER RND*6
400 NEXT n: RUN 520
410 LET b=20
420 OVER 1: PLOT a*8+4,22*8-8*b: DRAW 0,140: OVER 0
430 PRINT AT b,a; INK 2;"\i"
440 LET lll=USR 23375
450 OVER 1: PLOT a*8+4,22*8-8*b: DRAW 0,140: OVER 0
460 IF a=y1 THEN PRINT AT x1,y1; OVER 1;"\h": LET s=s+100: GO SUB 280: PRINT AT x1,y1; INK 2;"\i": LET lll=USR 23398: PRINT AT x1,y1;" ";AT b,a;" ": LET x1=1: LET y1=INT (RND*10)+10: RETURN
470 IF a=y2 THEN PRINT AT x2,y2; OVER 1;"\h": LET s=s+75: GO SUB 280: PRINT AT x2,y2; INK 2;"\i": LET lll=USR 23398: PRINT AT x2,y2;" ";AT b,a;" ": LET x2=1: LET y2=INT (RND*10)+10: RETURN
480 IF a=y3 THEN PRINT AT x3,y3; OVER 1;"\h": LET s=s+50: GO SUB 280: PRINT AT x3,y3; INK 2;"\i": LET lll=USR 23398: PRINT AT x3,y3;" ";AT b,a;" ": LET x3=1: LET y3=INT (RND*10)+10: RETURN
490 PRINT AT b,a;" "
500 LET lll=USR 23386
510 RETURN
520 INK 7: LET lll=USR 23398: BORDER 0: PAPER 1: BRIGHT 1: CLS
530 PRINT AT 1,8; INK 6;"ROBOT INVASION"
540 BEEP .5,-60: PRINT AT 4,1; INK 7;"The aim of this game is to"'"shoot down as many spaceships as possible."
550 FOR n=SGN PI TO 60: PRINT AT 8,RND*25+2; INK 5;"\g": BEEP .05,n: NEXT n: PRINT AT 8,2; INK 5;"\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g"
560 PRINT AT 10,1; INK 6;"Don't let them land."
570 PRINT AT 12,1;"You have 3 men."'"The game ends when you lose"'"them all, or when two ships"'"land at the same time.": BEEP 10,-50
580 LET a$=" Your controls are: 5 - LEFT 8 - RIGHT 0 - FIRE "
590 PRINT : FOR n=SGN PI TO LEN a$: PRINT a$(n);: BEEP .05,-40: PAUSE 3: NEXT n
600 LET lll=USR 23398
610 GO TO 50
620 STOP
630 RESTORE : FOR n=USR "a" TO USR "a"+71: READ code: POKE n,code: NEXT n
640 FOR n=23300 TO 23550: READ code: POKE n,code: NEXT n
650 GO TO 40
660 DATA NOT PI,NOT PI,8,8,28,62,85,NOT PI,NOT PI,8,8,8,8,8,8,NOT PI,NOT PI,60,90,255,219,66,90,NOT PI,NOT PI,60,126,255,165,126,60,NOT PI,NOT PI,NOT PI,28,34,65,127,42,NOT PI,255,255,170,85,170,NOT PI,NOT PI,NOT PI,24,36,189,165,102,60,36,66,NOT PI,129,66,36,NOT PI,36,66,129,128,13,33,2,16,34,4,48,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,197,213,67,16,254,10,203,199,203,207,203,215,211,254,12,21,32,240,209,193,201,197,213,175,203,199,203,207,203,215,67,16,254,203,231,211,254,67,16,254,203,167,211,254,21,32,239,209,193,201,22,3,30,128,205,50,91,29,32,250,201,30,NOT PI,22,32,205,29,91,28,21,32,249,201,30,NOT PI,22,128,205,29,91,28,21,32,249,201,33,3,91,35,86,35,94,35,78,35,205,29,91,13,32,250,125,254,28,56,239,201,33,3,91,35,86,35,94,35,78
670 DATA 35,205,50,91,13,32,250,125,254,28,56,239,201,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,NOT PI,0
680 SAVE "ROBOT" LINE 1