REM IM 1 IN A MILLION CLUB TAPE 9
SPACEDL
10  CALL 17046: POKE 24578,54
11  DIM R$(9),L$(9)
12  DIM X$(1),Y$(1)
13 X=33:Y=350
15  REM   INSTRUCTIONS
20  PRINT "******SPACE DUAL****": PRINT 
25  PRINT ; TAB (3);"THE OBJECT OF THE GAME IS TO    DESTROY YOUR OPPONENT BEFORE HE DESTROYS YOU.": PRINT 
30  PRINT ; TAB (3);"EACH PLAYER TAKES TURNS TAKING  ONE MOVE PER TURN.": PRINT 
32  INPUT "RIGHT PLAYER",R$: PRINT 
33  INPUT "LEFT PLAYER",L$: PRINT 
35  FOR T=1 TO 1500: NEXT T
40  POKE 8193,60: POKE 8194,158
45  REM    SET UP SHAPE '0'
50  FOR A=512 TO 516: POKE A,0: NEXT A: POKE 517,20: POKE 520,20: POKE 518,85: POKE 519,85: POKE 521,85: POKE 522,65: POKE 523,65
55  FOR B=524 TO 527: POKE B,0: NEXT B
60  REM   SET UP SHAPE '1'
65  FOR D=528 TO 535: POKE D,0: NEXT D: POKE 536,255: FOR B=537 TO 543: POKE B,0: NEXT B
70  REM   SET UP SHAPE '2'
75  FOR A=544 TO 559: POKE A,12: NEXT A
80  REM   SET UP SHAPE '3'
85  FOR A=560 TO 575: POKE A,0: NEXT A
90  REM   SET UP SHAPE '4'
95  FOR A=576 TO 579: POKE A,0: NEXT A: POKE 580,48: POKE 581,12: POKE 582,243: POKE 583,60: POKE 584,207: POKE 585,243: POKE 586,255
97  FOR B=587 TO O591: POKE B,0: NEXT B
100  REM   SET UP SCREEN
105  POKE X,64: POKE Y,64: FOR S=0 TO 32: POKE S,67: NEXT S: FOR T=34 TO 349: POKE T,67: NEXT T: FOR U=351 TO 383: POKE U,67: NEXT U
108  REM    START 'X' MOVEMENTS
110  IF Y=X THEN 330
115 X$= KEY$ (1)
120  IF X$="N" THEN X=X-32: POKE X,64: POKE X+32,67: CALL 17006: GOTO 220
125  IF X$="S" THEN X=X+32: POKE X,64: POKE X-32,67: CALL 17006: GOTO 220
130  IF X$="E" THEN X=X+1: POKE X,64: POKE X-1,67: CALL 17006: GOTO 220
135  IF X$="W" THEN X=X-1: POKE X,64: POKE X+1,67: CALL 17006: GOTO 220
140  IF X$="5" THEN  GOTO 170
145  IF X$="8" THEN E= INT ( RND (0)*10+1)*32: GOTO 175
150  IF X$="2" THEN E= INT ( RND (0)*10+1)*32: GOTO 185
155  IF X$="4" THEN E= INT ( RND (0)*20)+3: GOTO 195
160  IF X$="6" THEN E= INT ( RND (0)*20)+3: GOTO 205
165  IF X$="?" THEN 40
166  GOTO 220
170  POKE X,67:X= INT ( RND (0)*383+1): CALL 17006: CALL 17006: CALL 17006: POKE X,64: GOTO 220
175 X=X-64:E=X-E: FOR F=X TO E STEP -32: IF F=Y THEN 360
180  POKE F,66: POKE F+32,67: NEXT F: POKE F+32,67: CALL 17026:X=X+64: GOTO 220
185 X=X+64:E=X+E: FOR F=X TO E STEP 32: IF F=Y THEN 360
190  POKE F,66: POKE F-32,67: NEXT F: POKE F-32,67: CALL 17026:X=X-64: GOTO 220
195 X=X-2:E=X-E: FOR F=X TO E STEP -1: IF F=Y THEN 360
200  POKE F,65: POKE F+1,67: NEXT F: POKE F+1,67: CALL 17026:X=X+2: GOTO 220
205 X=X+2:E=X+E: FOR F=X TO E: IF F=Y THEN 360
210  POKE F,65: POKE F-1,67: NEXT F: POKE F-1,67: CALL 17026:X=X-2: GOTO 220
215  REM   START 'Y' MOVEMENTS
220  IF X=Y THEN 330
225 Y$= KEY$ (2)
230  IF Y$="N" THEN Y=Y-32: POKE Y,64: POKE Y+32,67: CALL 17006: GOTO 110
235  IF Y$="S" THEN Y=Y+32: POKE Y,64: POKE Y-32,67: CALL 17006: GOTO 110
240  IF Y$="E" THEN Y=Y+1: POKE Y,64: POKE Y-1,67: CALL 17006: GOTO 110
245  IF Y$="W" THEN Y=Y-1: POKE Y,64: POKE Y+1,67: CALL 17006: GOTO 110
250  IF Y$="5" THEN 280
255  IF Y$="8" THEN G= INT ( RND (0)*8+1)*32: GOTO 290
260  IF Y$="2" THEN G= INT ( RND (0)*8+1)*32: GOTO 300
265  IF Y$="4" THEN G= INT ( RND (0)*20)+3: GOTO 310
270  IF Y$="6" THEN G= INT ( RND (0)*20)+3: GOTO 320
275  IF Y$="?" THEN 40
277  GOTO 110
280  POKE Y,67:Y= INT ( RND (0)*383+1): CALL 17006: CALL 17006: CALL 17006: POKE Y,64: GOTO 110
290 Y=Y-64:G=Y-G: FOR H=Y TO G STEP -32: IF H=X THEN 390
295  POKE H,66: POKE H+32,67: NEXT H: POKE H+32,67: CALL 17026:Y=Y+64: GOTO 110
300 Y=Y+64:G=Y+G: FOR H=Y TO G STEP 32: IF H=X THEN 390
305  POKE H,66: POKE H-32,67: NEXT H: POKE H-32,67: CALL 17026:Y=Y-64: GOTO 110
310 Y=Y-2:G=Y-G: FOR H=Y TO G STEP -1: IF H=X THEN 390
315  POKE H,65: POKE H+1,67: NEXT H: POKE H+1,67: CALL 17026:Y=Y+2: GOTO 110
320 Y=Y+2:G=Y+G: FOR H=Y TO G: IF H=X THEN 390
325  POKE H,65: POKE H-1,67: NEXT H: POKE H-1,67: CALL 17026:Y=Y-2: GOTO 110
330  POKE X,67: POKE X,68: MUSIC "-100000-600000": FOR T=1 TO 200: NEXT T: POKE X,67
340  POKE 8193,52: POKE 8194,30: CALL 17046
350  PRINT "YOU HAVE COLLIDED.... YOU ARE   BOTH DESTROYED!!!!": STOP 
360  POKE Y,68: POKE Y+1,67: POKE Y-1,67: POKE Y+32,67: POKE Y-32,67: MUSIC "-10000-70000": FOR T=1 TO 300: NEXT T: POKE Y,67
370  POKE 8193,52: POKE 8194,30: CALL 17046
380  PRINT "GOOD JOB ";R$;" YOU HAVE        DESTROYED ";L$;"!!": STOP 
390  POKE X,68: POKE X+1,67: POKE X-1,67: POKE X+32,67: POKE X-32,67: MUSIC "-10000-700000": FOR T=1 TO 300: NEXT T: POKE X,67
400  POKE 8193,52: POKE 8194,30: CALL 17046
410  PRINT "VERY GOOD ";L$;" YOU HAVE       KILLED ";R$;"!!": STOP 
9000  REM    UP=MOVE MAN UP, DOWN=MOVE MAN DOWN, RIGHT=MOVE MAN RIGHT, LEFT=MOVE MAN LEFT
9010  REM     2=TO FIRE DOWN, 4=TO FIRE LEFT, 6=TO FIRE RIGHT, 8=TO FIRE UP, 5=HYPER SPACE, CL=RESET GAME
9999  END 

