Atari XL

Player-Missile Graphics
142 REM LOOP FOR EACH PRIORITY
144 REM
150 FOR PR=O TO 3
155 GRAPHICS 5
159 REM SET PRIORITY
160 POKE 623, 2APR
170 PRINT "PRIORITY BIT "i PRi "
SET"
183
178 REM MOVE PLAYERS RIGHT
180 FOR HP=O TO 3: POKE 53248+HP,
60+HP*15: NEXT HP
200 FOR HP=O TO 3
210 FOR X=60+HP*15 TO 170+HP*10
220 POKE 53248+HP, X
230 FOR D=l TO 10: NEXT D
240 NEXT X
250 NEXT HP
290 REM DRAW RECTANGLES
300 FOR C=l TO 3
310 COLOR C
320 X=(C-l)*20
330 Y=(C-l)*15
340 PLOTX+I0, Y+I0
350 DRAWTO X+I0, Y
360 DRAWTO X, Y
370 POSITION X, Y+I0
380 POKE765, C
390 XIO 18, #6, 0, 0, "S:"
400 NEXT C
490 REM MOVE PLAYERS LEFT
500 FOR HP=O TO 3
510 FOR X=170+HP*10 TO 30 STEP -1
520 POKE 53248+HP, X
530 FOR D=l TO 10: NEXT D
540 NEXT X
550 NEXT HP