1 GOSUB 2000:GOTO 200›2 SAVE "D:SOUNDRUN.SAV":STOP :REM DISK 30 ›4 REM ADJUST HORIZONTAL & VERTICAL COORDINATES ›5 X0=X0+SP:Y0=Y0+SP:RETURN ›6 Y0=Y0-SP:X0=X0+SP:RETURN ›7 X0=X0+SP:RETURN ›9 X0=X0-SP:Y0=Y0+SP:RETURN ›10 X0=X0-SP:Y0=Y0-SP:RETURN ›11 X0=X0-SP:RETURN ›13 Y0=Y0+SP:RETURN ›14 Y0=Y0-SP:RETURN ›15 POP :PLAYER0$(Y0)=LEGS1$:POKE DV0,0:GOTO 200›29 REM MOVE PLAYERS LEGS›30 Z=Z+1:POKE S0,Z*TONE:POKE DV0,D0:POKE HPOSP0,X0:IF Z<4 THEN PLAYER0$(Y0)=LEGS1$:RETURN ›31 IF Z<7 THEN PLAYER0$(Y0)=LEGS2$:RETURN ›32 PLAYER0$(Y0)=LEGS3$:IF Z=9 THEN Z=0:RETURN ›33 RETURN ›199 REM MAIN LOOP ›200 IF PEEK(BUTTON0)=0 THEN GOSUB SETSOUND›204 GOSUB PEEK(JOYSTICK):GOSUB MOVELEGS:GOTO 200›260 REM ›270 REM ›280 REM ›290 REM ›600 GRAPHICS 0:TRAP 610:FOR I=1 TO 128:? I;" ";ASC(PLAYER0$(I)):NEXT I:STOP ›610 END ›1000 POKE DV0,0:? :? "ENTER DISTORTION NUMBER (0-14) ";:INPUT DIST:? "ENTER TONE NUMBER (1-28) ";:INPUT TONE›1010 ? "ENTER VOLUME NUMBER (0-15) ";:INPUT VOL:D0=DIST*16+VOL:REM D0 WILL BE POKED INTO DISTORTION/VOL REGISTER›1015 ? CHR$(125):POKE 752,0:? "Press the fire button to change sound."›1020 RETURN ›1999 REM SETUP ROUTINES FOLLOW:›2000 GOSUB 10000:REM MISC. INITZALIZATION›2005 GRAPHICS 5:REM SET GR. MODE BEFORE PMG SETUP!›2010 GOSUB 11000:REM PMG SETUP ›2015 GOSUB 12000:REM DRAW PLAYFIELD›2020 GOSUB 13000:REM PLAYER COLOR AND SCREEN POSITION›2025 GOSUB 14000:REM DISPLAY MESSAGE›2130 RETURN ›2999 REM ERROR CORRECTION ROUTINE›3000 PLAYER0$=BUFFER$:Y0=128:X0=80:Z=0:TRAP 3000:GOTO 200›10000 REM MISC. INITIALIZATION›10050 JOYSTICK=632:HPOSP0=53248:PRIOR=623:MOVELEGS=30:SP=1:PR=8:BUTTON0=644:SETSOUND=1000:S0=53760›10060 BUTTON0=644:SETSOUND=1000:S0=53760:DV0=53761:RETURN ›10999 REM PMG SETUP ROUTINE›11000 DIM FILLER1$(1),FILLER2$((INT(ADR(FILLER1$)/1024)+1)*1024-ADR(FILLER1$)-1)›11010 DIM BUFFER$(384),MISSILES$(128),PLAYER0$(128),PLAYER1$(128),PLAYER2$(128),PLAYER3$(128)›11020 BUFFER$=CHR$(0)›11030 BUFFER$(384)=CHR$(0)›11040 BUFFER$(2)=BUFFER$›11045 MISSILES$=BUFFER$:PLAYER0$=BUFFER$:PLAYER1$=BUFFER$:PLAYER2$=BUFFER$:PLAYER3$=BUFFER$›11050 DIM LEGS1$(17),LEGS2$(17),LEGS3$(17)›11060 FOR I=1 TO 17:READ A:LEGS1$(I,I)=CHR$(A):NEXT I›11065 FOR I=1 TO 17:READ A:LEGS2$(I,I)=CHR$(A):NEXT I›11067 FOR I=1 TO 17:READ A:LEGS3$(I,I)=CHR$(A):NEXT I›11080 POKE 54279,ADR(BUFFER$)/256:REM DTELL ANTIC WHERE START OF PM MEMORY IS›11085 POKE 559,46:REM DOUBLE LINE RES.›11090 POKE 53277,3:REM TURN ON PMG ›11110 POKE PRIOR,PR›11299 RETURN ›11300 DATA 0,0,0,28,28,8,28,58,89,24,60,36,36,102,0,0,0›11310 DATA 0,0,0,28,28,8,28,58,89,24,40,76,68,68,0,0,0›11320 DATA 0,0,0,28,28,8,28,58,89,24,56,72,132,130,0,0,0›11999 REM DRAW PLAYFIELD›12000 SETCOLOR 4,16,2:COLOR 1›12010 PLOT 0,20:DRAWTO 40,20›12020 COLOR 3:DRAWTO 60,35:COLOR 2:DRAWTO 79,35›12030 RETURN ›12999 REM SET PLAYER COLOR AND POSITION›13000 X0=52›13010 Y0=12›13020 POKE 704,88›13030 POKE 53248,X0:REM POKE HORIZONTAL VALUE INTO HORIZON TONAL POSITION REGISTER.›13040 PLAYER0$(Y0)=LEGS1$:REM PUT IMAGE INTO PROPER BYTE OF PLAYER0.›13050 RETURN ›14000 ? "To create sound, push fire button.";:RETURN ›