Invaders!

50.000 points

6+61r

Type the program in using Mode C.

40" ' • ,, )0 ' ,!,141gt g / 600 I F G<17 THEN 13=13-20:POKE 1 3 + 2 0 ;0 610 I F G.>=17 THEN 13=13+20:POKE 1 3 - 2 0 , 0 620 1 3 =I3 -1 :POKE 1 3 + 1 , 0 630 I F 1 3 ( 1 5 7 6 4 OR I 3 1 6 1 8 3 THEN POKE 1 3 ;0 :1 3 =1 5 9 6 3 .A 640 POKE I 3 ; A 65e 0 = IN T( R N D ( 0 4 2 0 ) 660 I F 0 < 3 THEN 14=14-20:POKE 1 4 + 2 0 ;0 670 I F 0 >=3 THEN 1 4 = 1 4 + 2 P O K E 1 4 - 2 0 , 0 680 I4 = I4 - 1 :P OK E 1 4 + 1 , 0 690 I F 1 4 ( 1 5 7 6 4 OR I4 > 1 6 1 8 3 THEN POKE 1 4 ;0 :1 4 =1 5 9 8 3 700 POKE 1 4 ; A .ao 12=12-1:PI:IKE 124-1,13 705 I F T = I l OR 1 = I 2 OR 1 = I 3 OR T = I 4 THEN 190 I F 12<15764 OR 12>16182 THEN POKE 1 2 0:12=15983 707 I F P E E K ( B = A OP PEEK<B+1 r=1:i THEN GOS UP 1 0 0 0 200 POKE 12;1:1 203 POKE B;3 0 :POKE 8 + 1 ;1 4 1 205 GOTO J 2 20:' REM 3RD.INVADER 210 6 = I N T ( R N D (220 I F G.(3 THEN 13=13-20:POKE 1 3 + 2 0 . 0 230 0 4 2I 0 F )6>.=3 THEN 13=13+20:POKE 1 3 - 2 0 ; 0 :40 I3 = I3 - 1 :P OK E 1 3 + 1 ; 0 250 I F 1 3 (1 5 7 6 4 OR 13>16187 THEN POKE 1 2 '0:13=15983 260 POKE 1 3 ; A 265 GOTO J 3 267 REM 4TH.INHADER 270 0 = I N T , 280 I F O<17 THEN 1 4 =1 4 -2 0 :POVE 1 4 + 2 0 ;0 R N IO 290 F ( Q0 ;4 300 ,2 1>4 =I4 -1 :POKE 1 4 + 1 ;0 = 1 7I F 1 4 310 ;0:14=15983 ,T H E 320 POKE -N 1 5REM 4 1 4 , A FOR COLLISION BETWEEN IN VA 7 6 CHECK 940 I F J 1 = 4 THEN GOSUB 3 0 0 0 945 REM CYCLE AROUND- 950 SOUND 0 ;0 ;0 ;0 :S OU N D 1 , 0 ; 0 ; 0 : 6 0 1 0 3 0 960 REM SUBROUTINE FOR A BASE H17