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

Free Invaders game with each machine

Sixty eight is the number of bytes occupied by statements 20 and the beginning of 30. Note that the Rem in statement 20 has make the printout easier to read. An statement 20 and change statement 5310 to add only 30 to the Poked value.

[LINE NUMBER] POKE [ ROUTI NE ADDRESS] +212, 57: POKE [ ROUTI NE ADDRESS] +214. 240

PEEK command to see the position of the joystick. That can give a result between 27 and 114 but it can be altered on the board.

720 S P $ = S P $ + CHR$ ( VPEE K ( 1 5 0 4 + I ) )
730 N EX T I : S PR I T E $ ( 1 ) � S P $
740 FOR H=2 TO 3 : S P $ ( H ) = " " : FOR I=0 TO 960 Y = l : XR= 1 5 : Z = 0
750 S P $ ( H ) S $ ( H ) + CH R $ ( S ) : N E XT I
3 1 : READ SP 970 C L = 8 1 9 2 : V PO K E C L + 4 , 1 1 2 : V POKE CL+5
V PO K E P , 1 2 8 : V POKE CL+ l 2 , 2 4 0 : VPOKE CL+ 1 3 , 1 6 0 :
y:: 7 6 0 S PR I T E $ ( H ) = S P $ ( H ) : N E XT H
=
V PO K E C L + l 4 , 2 0 8 : V PO K E C L + 1 5 , 1 9 2 : V POKE
770 R E S TO R E 870 CL+27 t 166
. 780 READ CH: I F CH = 9 9 9 THEN 8 20 980 C LS : LOC A T E 2 , 0 : PR I N T " M . S . X I NVADE ,
- <- n \\ E . ' ' . ..::;, - R c
790 FOR J=0 TO ? : READ K RS S ....
800 V PO K E CH* 8 + J , K : N EXT J 990 LOCATE 0 . 2 0 : P R I N T S T R I N G $ ( 9 , 1 2 0 ) : L
810 GOTO 780 C, c: A T E 23 • 2 0 : P R I N T S TR I N G $ ( 9 • 1. 2 0 ) : L () C A T
820 LOC A T E Ll , 2 2 : P R I N T " P R E S S