Robot Invasion

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