Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » SpaceGArc

SpaceGArc

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf
Filename: SpaceGArc
Read OK:
File size: 3033 bytes
Load address: FFFFFB46
Exec address: EF2C824A
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM           SpaceGolf                            by Dominic Ford
   20 :
   25 ON ERROR REPORT:PRINT" @ ";ERL:END
   30 DIM space &1000, inspace &800
   40 PROCinit
   70 VDU 6
   80 ON ERROR GOTO 100
   90 So=1:L$="Z":R$="X":U$=":":D$="/":P$="P"
  100 REPEAT
  110 MODE 1
  120 PROCtitle
  130 IF A$="K" THEN MODE 6:PROCkeys
  140 IF A$="I" THEN PROCinstruction
  150 IF A$=" " THEN PROCgame
  160 UNTIL A$="Q"
  170 MODE 6
  180 END
  190 :
  200 DEFPROCgame
  210 L=1:LV=3:SCR=0:cheat=FALSE:LTD=TIME
  220 REPEAT
  230 CLS
  240 VDU 19,2,2,0,0,0,0,19,3,6,0,0,0,0
  250 PRINTTAB(0,31)"Score       Hole       Balls       Bonus";
  260 GCOL 0,2:MOVE0,64:MOVE2560,64:PLOT85,0,2050
  270 GCOL 0,3
  280 MOVE 0,64:DRAW 0,1023:DRAW 1279,1023:DRAW 1279,64:DRAW 0,64
  290 PROCdrawhole:*FX 15,0
  300 out=FALSE:hole=FALSE:quit=FALSE:BN=150
  310 MOVE XW*4,YW*4:GCOL 0,1:DRAW XW*4,YW*4
  320 MOVE XW*4+4,YW*4:GCOL 0,1:DRAW XW*4+4,YW*4
  330 MOVE XW*4,YW*4+4:GCOL 0,1:DRAW XW*4,YW*4+4
  340 MOVE XW*4-4,YW*4:GCOL 0,1:DRAW XW*4-4,YW*4
  350 MOVE XW*4,YW*4-4:GCOL 0,1:DRAW XW*4,YW*4-4
  360 XV=0:YV=0
  370 REPEAT
  380 PROCplot(POINT(X*4,Y*4))
  390 IF FNP=1 THEN PROCbeep:XV=-XV:YV=-YV
  400 IF FNP=3 THEN X=500
  410 IF FNP=0 THEN XV=XV*1.2:YV=YV*1.2
  420 X=X+XV:Y=Y+YV
  430 PROCplot(1)
  440 IF X<0 OR Y<16 OR X>320 OR Y>256 THEN out=TRUE:PROCsplash
  450 IF ABS(XW-X)<8 AND ABS(YW-Y)<8 THEN hole=TRUE
  460 K$=INKEY$(0)
  465 *FX 15,1
  470 IF K$="S" THEN hole=TRUE:cheat=TRUE
  480 IF K$=L$ THEN XV=XV-FNM:BN=BN-1
  490 IF K$=R$ THEN XV=XV+FNM:BN=BN-1
  500 IF K$=U$ THEN YV=YV+FNM:BN=BN-1
  510 IF K$=D$ THEN YV=YV-FNM:BN=BN-1
  520 IF K$=P$ THEN PROCpause
  530 IF BN<0 THEN BN=0 ELSE IF TIME-LTD>250 THEN LTD=TIME:BN=BN-1
  540 PRINTTAB(0,31)SCR;TAB(13,31)L;TAB(25,31)LV;" ";TAB(35,31)BN;" ";
  550 UNTIL hole=TRUE OR out=TRUE OR quit=TRUE
  560 IF hole=TRUE THEN L=L+1:LV=LV+1:SCR=SCR+BN:PROCclick
  570 IF out=TRUE THEN LV=LV-1
  580 UNTIL L=19 OR LV=0 OR quit=TRUE
  590 IF LV=0 THEN PROCgameover
  600 IF L=19 THEN PROCyouwon
  610 ENDPROC
  620 :
  630 DEFFNM=RND(10)/50+1
  640 :
  650 DEFFNP=POINT((X+2*XV)*4,(Y+2*YV)*4)
  660 :
  670 DEFPROCplot(C)
  680 GCOL 0,C
  690 MOVE X*4+4,Y*4:DRAW X*4+4,Y*4
  700 DRAW X*4,Y*4+4
  710 DRAW X*4-4,Y*4
  720 DRAW X*4,Y*4-4
  730 ENDPROC
  740 :
  750 DEFPROCkeys
  760 PRINT'"Please enter the key which you wish to  use for:"'
  770 PRINTSPC(8)"Left"'SPC(7)"Right"'SPC(10)"Up"'SPC(8)"Down"'"Pause on/off"
  780 PRINTTAB(14,4);:L$=GET$:PRINTL$;TAB(14,5);
  790 R$=GET$:PRINTR$;TAB(14,6);
  800 U$=GET$:PRINTU$;TAB(14,7);
  810 D$=GET$:PRINTD$;TAB(14,8);
  820 P$=GET$:PRINTP$
  830 ENDPROC
  840 :
  850 DEFPROCtitle
  860 VDU 23,1,0;0;0;0;
  870 VDU 23,1,0;0;0;0;
  880 VDU 23,255,255,255,255,255,255,255,255,255
  890 VDU 19,2,2,0,0,0,0
  900 FOR L=0 TO 150
  910 X=RND(1280):Y=RND(1024)
  920 MOVE X,Y:DRAW X,Y
  930 NEXT
  940 PRINT
  950 RESTORE 1220
  960 FOR L=0 TO 4
  970 PRINT'"  ";
  980 READ LD$
  990 FOR R=1 TO 36
 1000 IF MID$(LD$,R,1)="*" THEN VDU 255 ELSE VDU 9
 1010 NEXT,
 1020 PRINTTAB(12,8)"By Dominic Ford";TAB(4,11)"I - Instructions";SPC(10)"Sound";TAB(4,13)"S - Sound On/Off";TAB(4,15)"K - Change Keys";TAB(4,17)"Q - Quit"''"SPACE - Start"
 1030 GCOL 0,2:MOVE 160,50:MOVE 160,350:PLOT 85,1120,50:PLOT 85,1120,350
 1040 MOVE 0,200:MOVE 640,400:PLOT 85,640,200:PLOT 85,1280,200
 1050 PLOT 85,640,0:MOVE 640,200:PLOT 85,0,200
 1060 GCOL 0,0:MOVE 640,200:DRAW 440,400:MOVE 492,350:MOVE 560,350:PLOT 85,515,330
 1070 MOVE 645,200:GCOL 0,3:DRAW 645,600:DRAW 640,600:DRAW 640,200
 1080 GCOL 0,1:MOVE 650,600:MOVE 650,560:PLOT 85,730,580
 1090 REPEAT:*FX 15,0
 1100 PRINTTAB(31,13);:IF So=1 THEN PRINT"On " ELSE PRINT"Off"
 1110 REPEAT
 1120 FORWT=0TO15:NEXT
 1130 READ X
 1140 IF X=-1 THEN RESTORE 1270:READ X
 1150 VDU 19,3,X,0,0,0,0
 1160 A$=INKEY$(0)
 1170 UNTIL INSTR("KSIQ ",A$)<>0 AND A$<>""
 1180 IF A$="S" THEN So=ABS(So-1)
 1190 UNTIL A$<>"S"
 1200 ENDPROC
 1210 :
 1220 DATA "*** *** *** *** *** *** *** *   ***"
 1230 DATA "*   * * * * *   *   *   * * *   * "
 1240 DATA "*** *** *** *   **  * * * * *   ***"
 1250 DATA "  * *   * * *   *   * * * * *   * "
 1260 DATA "*** *   * * *** *** *** *** *** * "
 1270 DATA 6,4,0,1,3,7,3,1,0,4,6,7,-1
 1280 :
 1290 DEFPROCpause
 1300 IF So=1 THEN SOUND 1,-15,52,1:SOUND 1,-15,100,1
 1310 REPEAT
 1320 K$=GET$
 1330 UNTIL K$=P$ OR K$="Q"
 1340 IF So=1 THEN SOUND 1,-15,100,1:SOUND 1,-15,52,1
 1350 IF K$="Q" THEN quit=TRUE
 1360 ENDPROC
 1370 :
 1380 DEFPROCclick
 1390 IF So=0 THEN ENDPROC
 1400 *MOTOR 1
 1410 *MOTOR 0
 1420 ENDPROC
 1430 :
 1440 DEFPROCbeep
 1450 IF So=0 THEN ENDPROC
 1460 SOUND 1,-15,16,5
 1470 ENDPROC
 1480 :
 1490 DEFPROCdrawhole
 1500 ad=space+&80*L
 1510 X=?ad:Y=?(ad+1):XW=?(ad+2):YW=?(ad+3):ad=ad+4
 1520 REPEAT
 1530 GCOL0,?ad:MOVEFNX(2),FNY(3):MOVEFNX(4),FNY(5)
 1540 PLOT85,FNX(6),FNY(7):PLOT85,FNX(8),FNY(9)
 1550 ad=ad+10
 1560 UNTIL ?ad=255
 1570 ENDPROC
 1580 :
 1590 DEFPROCsplash
 1600 IF So=0 THEN ENDPROC
 1610 FORt=2 TO 255 STEP 4
 1620 SOUND 0,-15,t,0
 1630 NEXT
 1640 ENDPROC
 1650 :
 1660 DEFPROCinstruction
 1670 T$=STRING$(40," "):ad=inspace-1
 1680 COLOUR 1
 1690 REPEAT
 1700 PRINTTAB(0,30)T$;
 1710 ad=ad+1
 1720 T$=RIGHT$(T$,39)+CHR$(?ad)
 1730 UNTIL ?ad=0
 1740 ENDPROC
 1750 :
 1760 DEFPROCyouwon
 1770 CLS
 1780 IF cheat=TRUE THEN PRINT''''''''''"Now can you complete all of the levels  WITHOUT using the level skip?":GOTO 1800
 1790 PRINTTAB(12,5)"CONGRATULATIONS!";TAB(11,10)"You have completed";TAB(14,15);"all 18 holes!"
 1800 PRINT''SPC(15)"Press RETURN":CALL &1600
 1810 ENDPROC
 1820 :
 1830 DEFFNY(adb)=(?(ad+adb))*4
 1840 DEFFNX(adb)=FNY(adb) OR (-1024*(((?(ad+1)) AND (2^((adb-1)/2)))<>0))
 1850 :
 1860 DEFPROCgameover
 1870 COLOUR 1
 1880 FORX=1 TO 36
 1890 PRINTTAB(X,15)" GAME";TAB(36-X,15)"OVER "
 1900 FORW=0TO100:NEXT,
 1910 ENDPROC
 1920 :
 1930 DEFPROCinit
 1950 PRINT'"Please Wait. . ."'
 1980 VDU 6,11
 1990 PRINT"Moving holes. . .":PROCholes
 2000 PRINT"Moving instructions. . .":PROCinstread
 2010 PRINT"Assembling code. . ."
 2020 PRINT"Self-Destructing. . ."
 2030 VDU 21
 2040 ENDPROC
 2050 :
 2060 DEFPROCholes
 2070 RESTORE 2200
 2080 ad=space-1
 2090 REPEAT
 2100 ad=ad+&80
 2110 ade=ad
 2120 REPEAT
 2130 ade=ade+1
 2140 READ adp
 2150 IF adp<>-1 THEN ?ade=adp ELSE ?ade=255
 2160 UNTIL adp=-1
 2170 UNTIL ad<(space+&8FE)
 2180 ENDPROC
 2190 :
 2200 DATA 64,128,255,128,1,0,110,78,220,78,110,178,220,178,-1:REM Hole 1
 2210 DATA 20,240,100,240,1,0,40,255,80,255,40,128,80,128:REM Hole 2
 2220 DATA 3,12,160,16,160,128,65,16,65,128,-1
 2230 DATA 100,176,220,96,1,0,25,56,25,96,170,56,170,96:REM Hole 3
 2240 DATA 1,0,170,56,150,56,170,216,150,216
 2250 DATA 1,12,150,216,150,176,39,216,39,176,-1
 2260 DATA 160,66,160,176,1,0,100,156,100,116,220,156,220,116:REM Hole 4
 2270 DATA 1,0,100,248,100,116,140,248,140,116
 2280 DATA 1,0,180,248,180,116,220,248,220,116,-1
 2290 DATA 12,150,255,150,1,0,25,255,25,106,50,255,50,106:REM Hole 5
 2300 DATA 1,0,25,255,25,226,100,255,100,226,1,0,25,106,25,136,100,106,100,136
 2310 DATA 1,0,25,166,25,196,75,166,75,196,3,0,125,166,125,16,150,166,150,16
 2320 DATA 3,0,125,16,125,46,200,16,200,46,3,0,175,16,200,16,175,166,200,166
 2330 DATA 1,0,225,255,225,106,250,255,250,106,1,15,19,106,19,166,44,106,44,166
 2340 DATA 1,12,225,255,225,226,44,255,44,226
 2350 DATA 1,12,225,106,225,136,44,106,44,136,-1
 2360 DATA 48,136,255,136,3,0,0,255,0,176,96,255,96,176:REM Hole 6
 2370 DATA 3,0,0,16,0,96,96,16,96,96,3,0,160,66,224,66,160,206,224,206
 2380 DATA 0,0,96,176,96,96,160,176,160,96,-1
 2390 DATA 65,136,255,136,1,0,100,36,100,76,116,36,116,76:REM Hole 7
 2400 DATA 1,0,100,116,100,156,116,116,116,156
 2410 DATA 1,0,100,196,100,236,116,196,116,236
 2420 DATA 1,0,152,36,152,76,168,36,168,76,1,0,152,116,152,156,168,116,168,156
 2430 DATA 1,0,152,196,152,236,168,196,168,236
 2440 DATA 1,0,204,56,204,126,220,56,220,126,3,0,178,56,178,126,194,56,194,126
 2450 DATA 1,0,204,146,204,216,220,146,220,216
 2460 DATA 3,0,178,146,178,216,194,146,194,216
 2470 DATA 3,0,126,16,126,132,142,16,142,132
 2480 DATA 3,0,126,140,126,255,142,140,142,255,-1
 2490 DATA 75,196,245,76,1,0,100,255,100,136,140,255,140,136:REM Hole 8
 2500 DATA 1,0,180,16,180,136,220,16,220,136
 2510 DATA 0,0,140,255,140,16,180,255,180,16,-1
 2520 DATA 160,248,160,24,3,12,0,16,0,255,64,16,64,255:REM Hole 9
 2530 DATA 2,8,0,136,160,255,160,16,64,136
 2540 DATA 3,12,24,144,24,128,40,144,40,128,-1
 2550 DATA 8,136,8,250,3,12,0,240,0,210,32,240,32,210:REM Hole 10
 2560 DATA 3,15,0,245,0,16,32,245,32,16,0,15,0,66,0,200,32,66,32,200
 2570 DATA 1,0,240,210,240,130,255,210,255,130,1,0,240,16,240,120,255,16,255
 2580 DATA 120,1,15,32,16,64,16,32,132,64,132,-1
 2590 DATA 160,96,160,176,0,12,0,156,0,116,64,156,64,116:REM Hole 11
 2600 DATA 3,0,100,156,100,116,220,156,220,116
 2610 DATA 3,0,100,248,100,24,140,248,140,24
 2620 DATA 3,0,180,248,180,24,220,248,220,24,-1
 2630 DATA 255,44,64,44,1,12,0,16,0,255,64,16,64,255:REM Hole 12
 2640 DATA 3,12,0,255,0,56,64,255,64,56,2,0,48,32,80,32,0,136,32,136
 2650 DATA 2,14,240,32,16,32,32,136,64,136,2,12,0,136,32,104,64,136,32,104
 2660 DATA 0,0,64,124,64,116,255,124,255,116,1,0,64,116,64,136,80,116,80,136
 2670 DATA 1,0,255,116,255,136,240,116,240,136
 2680 DATA 1,0,168,124,168,104,152,124,152,104,-1
 2690 DATA 255,100,255,172,1,0,0,16,0,255,64,16,64,255:REM Hole 13
 2700 DATA 1,0,0,16,0,80,144,16,144,80,1,0,0,255,0,192,144,255,144,192
 2710 DATA 0,0,64,80,64,192,144,80,144,192
 2720 DATA 3,12,105,120,105,152,64,120,64,152,-1
 2730 DATA 18,205,208,42,1,12,0,116,0,156,64,116,64,156:REM Hole 14
 2740 DATA 0,0,35,16,35,255,95,16,95,255,0,0,130,16,130,255,190,16,190,255
 2750 DATA 0,12,225,16,225,255,29,16,29,255,1,0,35,16,35,66,95,16,95,66
 2760 DATA 1,0,130,16,130,66,190,16,190,66,1,12,225,16,225,66,29,16,29,66,-1
 2770 DATA 255,56,255,216,1,0,0,16,0,255,16,16,16,255:REM Hole 15
 2780 DATA 3,12,32,16,32,255,64,16,64,255,0,0,32,224,32,208,255,224,255,208
 2790 DATA 0,0,32,48,32,64,255,48,255,64,1,0,32,224,32,208,64,224,64,208
 2800 DATA 1,0,32,48,32,64,64,48,64,64,2,0,32,208,32,136,128,208,128,208
 2810 DATA 2,0,32,64,32,136,128,64,128,64,2,12,240,224,240,208,16,224,16,208
 2820 DATA 2,12,240,48,240,64,16,48,16,64,1,15,16,224,16,208,64,224,64,208
 2830 DATA 1,15,16,48,16,64,64,48,64,64,-1
 2840 DATA 255,128,68,80,3,12,0,16,0,255,64,16,64,255:REM Hole 16
 2850 DATA 0,12,0,144,0,184,20,144,20,184,0,0,0,16,0,150,88,16,88,150
 2860 DATA 1,0,0,16,0,184,48,16,48,184,1,0,0,16,0,96,136,16,136,96
 2870 DATA 2,0,48,64,48,96,88,64,88,96,1,15,20,184,64,184,20,64,64,64
 2880 DATA 1,3,64,64,64,144,144,64,144,144
 2890 DATA 2,12,244,143,244,111,20,143,20,111,-1
 2900 DATA 64,196,255,76,3,12,0,16,0,255,64,16,64,255:REM Hole 17
 2910 DATA 1,0,0,255,0,136,80,255,80,136,1,12,240,16,240,136,64,16,64,136
 2920 DATA 0,0,80,215,80,175,180,215,180,175,0,0,140,215,180,215,140,56,180,56
 2930 DATA 0,0,140,56,140,96,255,56,255,96,2,12,240,56,240,96,24,56,24,96
 2940 DATA 2,0,40,215,40,175,80,215,80,175,-1
 2950 DATA 255,44,64,44,1,12,0,16,0,255,64,16,64,255:REM Hole 18
 2960 DATA 3,12,0,255,0,56,64,255,64,56,2,0,48,32,80,32,0,136,32,136
 2970 DATA 2,14,240,32,16,32,32,136,64,136,0,12,0,136,32,104,64,136,32,104
 2980 DATA 1,0,64,116,64,136,80,116,80,136
 2990 DATA 1,0,255,116,255,136,240,116,240,136
 3000 DATA 1,0,168,124,168,104,152,124,152,104,-1
 3010 :
 3020 DEFPROCreloc
 3030 PRINT"Relocating. . ."
 3040 ?&78=45
 3050 HIMEM=&5800
 3060 FOR pass=0 TO 2 STEP 2
 3070 P%=&C00
 3080 [OPTpass
 3090     LDY#0
 3100     STY&70
 3110     STY&72
 3120     LDA#&17
 3130     SEC
 3140     SBC&18
 3150     STA&74
 3160     LDA&18
 3170     CMP#&17
 3180     BCCad
 3190 .sb STA&71
 3200     LDA#&17
 3210     STA&73
 3220 .m1 LDA(&70),Y
 3230     STA(&72),Y
 3240     INY
 3250     BNEm1
 3260     INC&71
 3270     INC&73
 3280     LDX&71
 3290     DEX
 3300     CPX&03
 3310     BCCm1
 3320     BCSem
 3330 .ad LDA&03
 3340     STA&71
 3350     CLC
 3360     ADC&74
 3370     STA&73
 3380     LDA#0
 3390     LDY&02
 3400 .m2 LDA(&70),Y
 3410     STA(&72),Y
 3420     DEY
 3430     CPY#&FF
 3440     BNEm2
 3450     DEC&71
 3460     DEC&73
 3470     LDA&73
 3480     CMP#&16
 3490     BCSm2
 3500 .em LDA&13
 3510     CLC
 3520     ADC&74
 3530     STA&13
 3540     STA&01
 3550     LDA#&17
 3560     STA&18
 3570     RTS
 3580 ]
 3590 NEXT
 3600 VDU 21
 3610 OSCLI"KEY 0""CALL&C00|MRUN|F|M""":OSCLI"FX 153,0,128"
 3620 END
 3630 ENDPROC
 3640 :
 3650 DEFPROCass
 3660 osbyte=&FFF4
 3670 oswrch=&FFEE
 3680 FOR X=0 TO 2 STEP 2
 3690 P%=&1600
 3700 [OPT X
 3710     LDY#&06
 3720     STY&72
 3730     LDY#&00
 3740     STY&73
 3750     STY&70
 3760 .lc JSRci
 3770 .lb LDX#&30
 3780     STX&71
 3790 .l  LDA(&70),Y
 3800     EOR#&0F
 3810     STA(&70),Y
 3820     TYA
 3830     CLC
 3840     ADC#&08
 3850     TAY
 3860     CPY#&08
 3870     BCSl
 3880     INC&71
 3890     LDX&71
 3900     CPX#&80
 3910     BNEl
 3920     INY
 3930     CPY#&08
 3940     BNElb
 3950     BEQlc
 3960 .ci LDA#&81
 3970     LDX#&01
 3980     LDY#&00
 3990     JSR osbyte
 4000     CPX#&0D
 4010     BNEcn
 4020     PLA
 4030     PLA
 4040     RTS
 4050 .cn LDX&72
 4060     INX
 4070     CPX#&07
 4080     BNEcb
 4090     LDX#&03
 4100 .cb STX&72
 4110     LDA&73
 4120     EOR#&01
 4130     STA&73
 4140     LDA#&13
 4150     JSRoswrch
 4160     LDY&73
 4170     INY
 4180     INY
 4190     TYA
 4200     JSRoswrch
 4210     TXA
 4220     JSRoswrch
 4230     JSRnl
 4240     LDA#&13
 4250     JSRoswrch
 4260     LDA&73
 4270     JSRoswrch
 4280     DEX
 4290     DEX
 4300     TXA
 4310     JSRoswrch
 4320     JSRnl
 4330     LDY#&00
 4340     RTS
 4350 .nl LDA#&00
 4360     JSRoswrch
 4370     JSRoswrch
 4380     JSRoswrch
 4390     JMPoswrch
 4400 ]
 4410 NEXT
 4420 ENDPROC
 4430 :
 4440 DEFPROCinstread
 4450 ad=inspace
 4460 RESTORE 4570
 4470 REPEAT
 4480 READ di$
 4490 FORx=1 TO LEN(di$)
 4500 ?ad=ASC(MID$(di$,x,1))
 4510 ad=ad+1
 4520 NEXT
 4530 UNTIL LEN(di$)=0
 4540 ?ad=0
 4550 ENDPROC
 4560 :
 4570 DATA "SpaceGolf is a new version of golf that is played in an area where there is no friction. As with normal golf the aim is to get the ball into the hole, avoiding obstacles along the way, "
 4580 DATA "but the means of doing this are very different. You must boast the ball (a red flickering dot) up, down, left, and right, and so get it to the hole (a red non-flickering dot). "
 4590 DATA "Along the way you will find a number of obstacles that have different effects on your ball. You can tell what effect the obstacle will have by what colour it is: RED - Deflects your ball, BLACK - Boasts your ball, "
 4600 DATA "GREEN - Is the fairway, BLUE - Water (avoid this at all costs). The default keys are: Z - Left, X - Right, * - Up, ? - Down, P - Pause, S - Cheat!, Q (while paused) - Quit.                HAVE FUN!!                ",""

E �           SpaceGolf                            by Dominic Ford
 :
 � � �:�" @ ";�:�
  � space &1000, inspace &800
(
 �init
F � 6
P � � � �Dd@
Z, So=1:L$="Z":R$="X":U$=":":D$="/":P$="P"
d �
n � 1
x �title
� � A$="K" � � 6:�keys
� � A$="I" � �instruction
� � A$=" " � �game
�
 � A$="Q"
� � 6
� �
� :
� ��game
�! L=1:LV=3:SCR=0:cheat=�:LTD=�
� �
� �
�$ � 19,2,2,0,0,0,0,19,3,6,0,0,0,0
�7 �0,31)"Score       Hole       Balls       Bonus";
$ � 0,2:�0,64:�2560,64:�85,0,2050

 � 0,3
1 � 0,64:� 0,1023:� 1279,1023:� 1279,64:� 0,64
" �drawhole:*FX 15,0
, out=�:hole=�:quit=�:BN=150
6" � XW*4,YW*4:� 0,1:� XW*4,YW*4
@& � XW*4+4,YW*4:� 0,1:� XW*4+4,YW*4
J& � XW*4,YW*4+4:� 0,1:� XW*4,YW*4+4
T& � XW*4-4,YW*4:� 0,1:� XW*4-4,YW*4
^& � XW*4,YW*4-4:� 0,1:� XW*4,YW*4-4
h XV=0:YV=0
r �
| �plot(�X*4,Y*4))
�! � �P=1 � �beep:XV=-XV:YV=-YV
� � �P=3 � X=500
�! � �P=0 � XV=XV*1.2:YV=YV*1.2
� X=X+XV:Y=Y+YV
�
 �plot(1)
�1 � X<0 � Y<16 � X>320 � Y>256 � out=�:�splash
�% � �(XW-X)<8 � �(YW-Y)<8 � hole=�
� K$=�(0)
�
 *FX 15,1
� � K$="S" � hole=�:cheat=�
� � K$=L$ � XV=XV-�M:BN=BN-1
� � K$=R$ � XV=XV+�M:BN=BN-1
� � K$=U$ � YV=YV+�M:BN=BN-1
� � K$=D$ � YV=YV-�M:BN=BN-1
 � K$=P$ � �pause
0 � BN<0 � BN=0 � � �-LTD>250 � LTD=�:BN=BN-1
5 �0,31)SCR;�13,31)L;�25,31)LV;" ";�35,31)BN;" ";
& � hole=� � out=� � quit=�
0/ � hole=� � L=L+1:LV=LV+1:SCR=SCR+BN:�click
: � out=� � LV=LV-1
D � L=19 � LV=0 � quit=�
N � LV=0 � �gameover
X � L=19 � �youwon
b �
l :
v ݤM=�(10)/50+1
� :
�  ݤP=�(X+2*XV)*4,(Y+2*YV)*4)
� :
� ��plot(C)
�
 � 0,C
� � X*4+4,Y*4:� X*4+4,Y*4
� � X*4,Y*4+4
� � X*4-4,Y*4
� � X*4,Y*4-4
� �
� :
� ��keys
�: �'"Please enter the key which you wish to  use for:"'
@ �(8)"Left"'�(7)"Right"'�(10)"Up"'�(8)"Down"'"Pause on/off"
 �14,4);:L$=�:�L$;�14,5);
 R$=�:�R$;�14,6);
  U$=�:�U$;�14,7);
* D$=�:�D$;�14,8);
4
 P$=�:�P$
> �
H :
R ��title
\ � 23,1,0;0;0;0;
f � 23,1,0;0;0;0;
p- � 23,255,255,255,255,255,255,255,255,255
z � 19,2,2,0,0,0,0
� � L=0 � 150
� X=�(1280):Y=�(1024)
� � X,Y:� X,Y
� �
� �
� � �dDD
� � L=0 � 4
� �'"  ";
�
 � LD$
� � R=1 � 36
�" � �LD$,R,1)="*" � � 255 � � 9
� �,
�� �12,8)"By Dominic Ford";�4,11)"I - Instructions";�(10)"Sound";�4,13)"S - Sound On/Off";�4,15)"K - Change Keys";�4,17)"Q - Quit"''"SPACE - Start"
8 � 0,2:� 160,50:� 160,350:� 85,1120,50:� 85,1120,350
1 � 0,200:� 640,400:� 85,640,200:� 85,1280,200
$ � 85,640,0:� 640,200:� 85,0,200
$? � 0,0:� 640,200:� 440,400:� 492,350:� 560,350:� 85,515,330
.2 � 645,200:� 0,3:� 645,600:� 640,600:� 640,200
8+ � 0,1:� 650,600:� 650,560:� 85,730,580
B �:*FX 15,0
L' �31,13);:� So=1 � �"On " � �"Off"
V �
` �WT=0�15:�
j � X
t � X=-1 � � �dvD:� X
~ � 19,3,X,0,0,0,0
� A$=�(0)
� � �"KSIQ ",A$)<>0 � A$<>""
� � A$="S" � So=�(So-1)
� � A$<>"S"
� �
� :
�, � "*** *** *** *** *** *** *** *   ***"
�+ � "*   * * * * *   *   *   * * *   * "
�, � "*** *** *** *   **  * * * * *   ***"
�+ � "  * *   * * *   *   * * * * *   * "
�+ � "*** *   * * *** *** *** *** *** * "
�! � 6,4,0,1,3,7,3,1,0,4,6,7,-1
 :

 ��pause
( � So=1 � � 1,-15,52,1:� 1,-15,100,1
 �
(	 K$=�
2 � K$=P$ � K$="Q"
<( � So=1 � � 1,-15,100,1:� 1,-15,52,1
F � K$="Q" � quit=�
P �
Z :
d ��click
n � So=0 � �
x
 *MOTOR 1
�
 *MOTOR 0
� �
� :
� ��beep
� � So=0 � �
� � 1,-15,16,5
� �
� :
� ��drawhole
� ad=space+&80*L
�2 X=?ad:Y=?(ad+1):XW=?(ad+2):YW=?(ad+3):ad=ad+4
� �
�% �0,?ad:�X(2),�Y(3):�X(4),�Y(5)
$ �85,�X(6),�Y(7):�85,�X(8),�Y(9)

 ad=ad+10
 � ?ad=255
" �
, :
6
 ��splash
@ � So=0 � �
J �t=2 � 255 � 4
T � 0,-15,t,0
^ �
h �
r :
| ��instruction
� T$=�40," "):ad=inspace-1
� � 1
� �
� �0,30)T$;
� ad=ad+1
� T$=�T$,39)+�(?ad)
� � ?ad=0
� �
� :
�
 ��youwon
� �
�j � cheat=� � �''''''''''"Now can you complete all of the levels  WITHOUT using the level skip?":� �THG
�R �12,5)"CONGRATULATIONS!";�11,10)"You have completed";�14,15);"all 18 holes!"
# �''�(15)"Press RETURN":� &1600
 �
 :
& ݤY(adb)=(?(ad+adb))*4
0B ݤX(adb)=�Y(adb) � (-1024*(((?(ad+1)) � (2^((adb-1)/2)))<>0))
: :
D ��gameover
N � 1
X �X=1 � 36
b$ �X,15)" GAME";�36-X,15)"OVER "
l �W=0�100:�,
v �
� :
� ��init
� �'"Please Wait. . ."'
� � 6,11
�  �"Moving holes. . .":�holes
�* �"Moving instructions. . .":�instread
� �"Assembling code. . ."
� �"Self-Destructing. . ."
�	 � 21
� �
 :
 ��holes
 � �tXH
  ad=space-1
* �
4 ad=ad+&80
> ade=ad
H �
R ade=ade+1
\
 � adp
f$ � adp<>-1 � ?ade=adp � ?ade=255
p
 � adp=-1
z � ad<(space+&8FE)
� �
� :
�E � 64,128,255,128,1,0,110,78,220,78,110,178,220,178,-1:REM Hole 1
�@ � 20,240,100,240,1,0,40,255,80,255,40,128,80,128:REM Hole 2
�* � 3,12,160,16,160,128,65,16,65,128,-1
�> � 100,176,220,96,1,0,25,56,25,96,170,56,170,96:REM Hole 3
�( � 1,0,170,56,150,56,170,216,150,216
�, � 1,12,150,216,150,176,39,216,39,176,-1
�D � 160,66,160,176,1,0,100,156,100,116,220,156,220,116:REM Hole 4
�* � 1,0,100,248,100,116,140,248,140,116
�- � 1,0,180,248,180,116,220,248,220,116,-1
�@ � 12,150,255,150,1,0,25,255,25,106,50,255,50,106:REM Hole 5
�J � 1,0,25,255,25,226,100,255,100,226,1,0,25,106,25,136,100,106,100,136
	H � 1,0,25,166,25,196,75,166,75,196,3,0,125,166,125,16,150,166,150,16
	H � 3,0,125,16,125,46,200,16,200,46,3,0,175,16,200,16,175,166,200,166
	K � 1,0,225,255,225,106,250,255,250,106,1,15,19,106,19,166,44,106,44,166
	$) � 1,12,225,255,225,226,44,255,44,226
	., � 1,12,225,106,225,136,44,106,44,136,-1
	8> � 48,136,255,136,3,0,0,255,0,176,96,255,96,176:REM Hole 6
	BB � 3,0,0,16,0,96,96,16,96,96,3,0,160,66,224,66,160,206,224,206
	L) � 0,0,96,176,96,96,160,176,160,96,-1
	V@ � 65,136,255,136,1,0,100,36,100,76,116,36,116,76:REM Hole 7
	`* � 1,0,100,116,100,156,116,116,116,156
	j* � 1,0,100,196,100,236,116,196,116,236
	tJ � 1,0,152,36,152,76,168,36,168,76,1,0,152,116,152,156,168,116,168,156
	~* � 1,0,152,196,152,236,168,196,168,236
	�J � 1,0,204,56,204,126,220,56,220,126,3,0,178,56,178,126,194,56,194,126
	�* � 1,0,204,146,204,216,220,146,220,216
	�* � 3,0,178,146,178,216,194,146,194,216
	�( � 3,0,126,16,126,132,142,16,142,132
	�- � 3,0,126,140,126,255,142,140,142,255,-1
	�C � 75,196,245,76,1,0,100,255,100,136,140,255,140,136:REM Hole 8
	�( � 1,0,180,16,180,136,220,16,220,136
	�+ � 0,0,140,255,140,16,180,255,180,16,-1
	�= � 160,248,160,24,3,12,0,16,0,255,64,16,64,255:REM Hole 9
	�& � 2,8,0,136,160,255,160,16,64,136
	�* � 3,12,24,144,24,128,40,144,40,128,-1
	�= � 8,136,8,250,3,12,0,240,0,210,32,240,32,210:REM Hole 10
@ � 3,15,0,245,0,16,32,245,32,16,0,15,0,66,0,200,32,66,32,200

H � 1,0,240,210,240,130,255,210,255,130,1,0,240,16,240,120,255,16,255
, � 120,1,15,32,16,64,16,32,132,64,132,-1
@ � 160,96,160,176,0,12,0,156,0,116,64,156,64,116:REM Hole 11
(* � 3,0,100,156,100,116,220,156,220,116
2( � 3,0,100,248,100,24,140,248,140,24
<+ � 3,0,180,248,180,24,220,248,220,24,-1
F< � 255,44,64,44,1,12,0,16,0,255,64,16,64,255:REM Hole 12
P@ � 3,12,0,255,0,56,64,255,64,56,2,0,48,32,80,32,0,136,32,136
ZF � 2,14,240,32,16,32,32,136,64,136,2,12,0,136,32,104,64,136,32,104
dH � 0,0,64,124,64,116,255,124,255,116,1,0,64,116,64,136,80,116,80,136
n* � 1,0,255,116,255,136,240,116,240,136
x- � 1,0,168,124,168,104,152,124,152,104,-1
�> � 255,100,255,172,1,0,0,16,0,255,64,16,64,255:REM Hole 13
�B � 1,0,0,16,0,80,144,16,144,80,1,0,0,255,0,192,144,255,144,192
�& � 0,0,64,80,64,192,144,80,144,192
�, � 3,12,105,120,105,152,64,120,64,152,-1
�? � 18,205,208,42,1,12,0,116,0,156,64,116,64,156:REM Hole 14
�F � 0,0,35,16,35,255,95,16,95,255,0,0,130,16,130,255,190,16,190,255
�C � 0,12,225,16,225,255,29,16,29,255,1,0,35,16,35,66,95,16,95,66
�H � 1,0,130,16,130,66,190,16,190,66,1,12,225,16,225,66,29,16,29,66,-1
�= � 255,56,255,216,1,0,0,16,0,255,16,16,16,255:REM Hole 15
�G � 3,12,32,16,32,255,64,16,64,255,0,0,32,224,32,208,255,224,255,208
�D � 0,0,32,48,32,64,255,48,255,64,1,0,32,224,32,208,64,224,64,208
�D � 1,0,32,48,32,64,64,48,64,64,2,0,32,208,32,136,128,208,128,208
�H � 2,0,32,64,32,136,128,64,128,64,2,12,240,224,240,208,16,224,16,208
F � 2,12,240,48,240,64,16,48,16,64,1,15,16,224,16,208,64,224,64,208
& � 1,15,16,48,16,64,64,48,64,64,-1
= � 255,128,68,80,3,12,0,16,0,255,64,16,64,255:REM Hole 16
"A � 0,12,0,144,0,184,20,144,20,184,0,0,0,16,0,150,88,16,88,150
,> � 1,0,0,16,0,184,48,16,48,184,1,0,0,16,0,96,136,16,136,96
6A � 2,0,48,64,48,96,88,64,88,96,1,15,20,184,64,184,20,64,64,64
@& � 1,3,64,64,64,144,144,64,144,144
J, � 2,12,244,143,244,111,20,143,20,111,-1
T= � 64,196,255,76,3,12,0,16,0,255,64,16,64,255:REM Hole 17
^E � 1,0,0,255,0,136,80,255,80,136,1,12,240,16,240,136,64,16,64,136
hJ � 0,0,80,215,80,175,180,215,180,175,0,0,140,215,180,215,140,56,180,56
rE � 0,0,140,56,140,96,255,56,255,96,2,12,240,56,240,96,24,56,24,96
|) � 2,0,40,215,40,175,80,215,80,175,-1
�< � 255,44,64,44,1,12,0,16,0,255,64,16,64,255:REM Hole 18
�@ � 3,12,0,255,0,56,64,255,64,56,2,0,48,32,80,32,0,136,32,136
�F � 2,14,240,32,16,32,32,136,64,136,0,12,0,136,32,104,64,136,32,104
�& � 1,0,64,116,64,136,80,116,80,136
�* � 1,0,255,116,255,136,240,116,240,136
�- � 1,0,168,124,168,104,152,124,152,104,-1
� :
� ��reloc
� �"Relocating. . ."
� ?&78=45
� �=&5800
� � pass=0 � 2 � 2
� P%=&C00

 [OPTpass
     LDY#0
     STY&70
&     STY&72
0     LDA#&17
:     SEC
D     SBC&18
N     STA&74
X     LDA&18
b     CMP#&17
l     BCCad
v .sb STA&71
�     LDA#&17
�     STA&73
� .m1 LDA(&70),Y
�     STA(&72),Y
�     INY
�     BNEm1
�     INC&71
�     INC&73
�     LDX&71
�     DEX
�     CPX&03
�     BCCm1
�     BCSem

 .ad LDA&03

     STA&71

     CLC

      ADC&74

*     STA&73

4     LDA#0

>     LDY&02

H .m2 LDA(&70),Y

R     STA(&72),Y

\     DEY

f     CPY#&FF

p     BNEm2

z     DEC&71

�     DEC&73

�     LDA&73

�     CMP#&16

�     BCSm2

� .em LDA&13

�     CLC

�     ADC&74

�     STA&13

�     STA&01

�     LDA#&17

�     STA&18

�     RTS

� ]
 �
	 � 21
2 �"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"
$ �
. �
8 :
B
 ��ass
L osbyte=&FFF4
V oswrch=&FFEE
` � X=0 � 2 � 2
j
 P%=&1600
t [OPT X
~     LDY#&06
�     STY&72
�     LDY#&00
�     STY&73
�     STY&70
� .lc JSRci
� .lb LDX#&30
�     STX&71
� .l  LDA(&70),Y
�     �#&0F
�     STA(&70),Y
�     TYA
�     CLC
     ADC#&08

     TAY
     CPY#&08

     BCSl
(     INC&71
2     LDX&71
<     CPX#&80
F
     BNEl
P     INY
Z     CPY#&08
d     BNElb
n     BEQlc
x .ci LDA#&81
�     LDX#&01
�     LDY#&00
�     JSR osbyte
�     CPX#&0D
�     BNEcn
�     PLA
�     PLA
�     RTS
� .cn LDX&72
�     INX
�     CPX#&07
�     BNEcb
�     LDX#&03
 .cb STX&72
     LDA&73
     �#&01
"     STA&73
,     LDA#&13
6     JSRoswrch
@     LDY&73
J     INY
T     INY
^     TYA
h     JSRoswrch
r     TXA
|     JSRoswrch
�     JSRnl
�     LDA#&13
�     JSRoswrch
�     LDA&73
�     JSRoswrch
�     DEX
�     DEX
�     TXA
�     JSRoswrch
�     JSRnl
�     LDY#&00
�     RTS
� .nl LDA#&00
     JSRoswrch
     JSRoswrch
     JSRoswrch
&     JMPoswrch
0 ]
: �
D �
N :
X ��instread
b ad=inspace
l � �dZQ
v �
�
 � di$
� �x=1 � �(di$)
� ?ad=�(�di$,x,1))
� ad=ad+1
� �
� � �(di$)=0
�
 ?ad=0
� �
� :
�� � "SpaceGolf is a new version of golf that is played in an area where there is no friction. As with normal golf the aim is to get the ball into the hole, avoiding obstacles along the way, "
� � "but the means of doing this are very different. You must boast the ball (a red flickering dot) up, down, left, and right, and so get it to the hole (a red non-flickering dot). "
�� � "Along the way you will find a number of obstacles that have different effects on your ball. You can tell what effect the obstacle will have by what colour it is: RED - Deflects your ball, BLACK - Boasts your ball, "
�� � "GREEN - Is the fairway, BLUE - Water (avoid this at all costs). The default keys are: Z - Left, X - Right, * - Up, ? - Down, P - Pause, S - Cheat!, Q (while paused) - Quit.                HAVE FUN!!                ",""
�
00000000  0d 00 0a 45 20 f4 20 20  20 20 20 20 20 20 20 20  |...E .          |
00000010  20 53 70 61 63 65 47 6f  6c 66 20 20 20 20 20 20  | SpaceGolf      |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 20 20 20 20 62 79  20 44 6f 6d 69 6e 69 63  |      by Dominic|
00000040  20 46 6f 72 64 0d 00 14  06 20 3a 0d 00 19 15 20  | Ford.... :.... |
00000050  ee 20 85 20 f6 3a f1 22  20 40 20 22 3b 9e 3a e0  |. . .:." @ ";.:.|
00000060  0d 00 1e 20 20 de 20 73  70 61 63 65 20 26 31 30  |...  . space &10|
00000070  30 30 2c 20 69 6e 73 70  61 63 65 20 26 38 30 30  |00, inspace &800|
00000080  0d 00 28 0a 20 f2 69 6e  69 74 0d 00 46 08 20 ef  |..(. .init..F. .|
00000090  20 36 0d 00 50 0f 20 ee  20 85 20 e5 20 8d 44 64  | 6..P. . . . .Dd|
000000a0  40 0d 00 5a 2c 20 53 6f  3d 31 3a 4c 24 3d 22 5a  |@..Z, So=1:L$="Z|
000000b0  22 3a 52 24 3d 22 58 22  3a 55 24 3d 22 3a 22 3a  |":R$="X":U$=":":|
000000c0  44 24 3d 22 2f 22 3a 50  24 3d 22 50 22 0d 00 64  |D$="/":P$="P"..d|
000000d0  06 20 f5 0d 00 6e 08 20  eb 20 31 0d 00 78 0b 20  |. ...n. . 1..x. |
000000e0  f2 74 69 74 6c 65 0d 00  82 19 20 e7 20 41 24 3d  |.title.... . A$=|
000000f0  22 4b 22 20 8c 20 eb 20  36 3a f2 6b 65 79 73 0d  |"K" . . 6:.keys.|
00000100  00 8c 1c 20 e7 20 41 24  3d 22 49 22 20 8c 20 f2  |... . A$="I" . .|
00000110  69 6e 73 74 72 75 63 74  69 6f 6e 0d 00 96 15 20  |instruction.... |
00000120  e7 20 41 24 3d 22 20 22  20 8c 20 f2 67 61 6d 65  |. A$=" " . .game|
00000130  0d 00 a0 0d 20 fd 20 41  24 3d 22 51 22 0d 00 aa  |.... . A$="Q"...|
00000140  08 20 eb 20 36 0d 00 b4  06 20 e0 0d 00 be 06 20  |. . 6.... ..... |
00000150  3a 0d 00 c8 0b 20 dd f2  67 61 6d 65 0d 00 d2 21  |:.... ..game...!|
00000160  20 4c 3d 31 3a 4c 56 3d  33 3a 53 43 52 3d 30 3a  | L=1:LV=3:SCR=0:|
00000170  63 68 65 61 74 3d a3 3a  4c 54 44 3d 91 0d 00 dc  |cheat=.:LTD=....|
00000180  06 20 f5 0d 00 e6 06 20  db 0d 00 f0 24 20 ef 20  |. ..... ....$ . |
00000190  31 39 2c 32 2c 32 2c 30  2c 30 2c 30 2c 30 2c 31  |19,2,2,0,0,0,0,1|
000001a0  39 2c 33 2c 36 2c 30 2c  30 2c 30 2c 30 0d 00 fa  |9,3,6,0,0,0,0...|
000001b0  37 20 f1 8a 30 2c 33 31  29 22 53 63 6f 72 65 20  |7 ..0,31)"Score |
000001c0  20 20 20 20 20 20 48 6f  6c 65 20 20 20 20 20 20  |      Hole      |
000001d0  20 42 61 6c 6c 73 20 20  20 20 20 20 20 42 6f 6e  | Balls       Bon|
000001e0  75 73 22 3b 0d 01 04 24  20 e6 20 30 2c 32 3a ec  |us";...$ . 0,2:.|
000001f0  30 2c 36 34 3a ec 32 35  36 30 2c 36 34 3a f0 38  |0,64:.2560,64:.8|
00000200  35 2c 30 2c 32 30 35 30  0d 01 0e 0a 20 e6 20 30  |5,0,2050.... . 0|
00000210  2c 33 0d 01 18 31 20 ec  20 30 2c 36 34 3a df 20  |,3...1 . 0,64:. |
00000220  30 2c 31 30 32 33 3a df  20 31 32 37 39 2c 31 30  |0,1023:. 1279,10|
00000230  32 33 3a df 20 31 32 37  39 2c 36 34 3a df 20 30  |23:. 1279,64:. 0|
00000240  2c 36 34 0d 01 22 17 20  f2 64 72 61 77 68 6f 6c  |,64..". .drawhol|
00000250  65 3a 2a 46 58 20 31 35  2c 30 0d 01 2c 1f 20 6f  |e:*FX 15,0..,. o|
00000260  75 74 3d a3 3a 68 6f 6c  65 3d a3 3a 71 75 69 74  |ut=.:hole=.:quit|
00000270  3d a3 3a 42 4e 3d 31 35  30 0d 01 36 22 20 ec 20  |=.:BN=150..6" . |
00000280  58 57 2a 34 2c 59 57 2a  34 3a e6 20 30 2c 31 3a  |XW*4,YW*4:. 0,1:|
00000290  df 20 58 57 2a 34 2c 59  57 2a 34 0d 01 40 26 20  |. XW*4,YW*4..@& |
000002a0  ec 20 58 57 2a 34 2b 34  2c 59 57 2a 34 3a e6 20  |. XW*4+4,YW*4:. |
000002b0  30 2c 31 3a df 20 58 57  2a 34 2b 34 2c 59 57 2a  |0,1:. XW*4+4,YW*|
000002c0  34 0d 01 4a 26 20 ec 20  58 57 2a 34 2c 59 57 2a  |4..J& . XW*4,YW*|
000002d0  34 2b 34 3a e6 20 30 2c  31 3a df 20 58 57 2a 34  |4+4:. 0,1:. XW*4|
000002e0  2c 59 57 2a 34 2b 34 0d  01 54 26 20 ec 20 58 57  |,YW*4+4..T& . XW|
000002f0  2a 34 2d 34 2c 59 57 2a  34 3a e6 20 30 2c 31 3a  |*4-4,YW*4:. 0,1:|
00000300  df 20 58 57 2a 34 2d 34  2c 59 57 2a 34 0d 01 5e  |. XW*4-4,YW*4..^|
00000310  26 20 ec 20 58 57 2a 34  2c 59 57 2a 34 2d 34 3a  |& . XW*4,YW*4-4:|
00000320  e6 20 30 2c 31 3a df 20  58 57 2a 34 2c 59 57 2a  |. 0,1:. XW*4,YW*|
00000330  34 2d 34 0d 01 68 0e 20  58 56 3d 30 3a 59 56 3d  |4-4..h. XV=0:YV=|
00000340  30 0d 01 72 06 20 f5 0d  01 7c 15 20 f2 70 6c 6f  |0..r. ...|. .plo|
00000350  74 28 b0 58 2a 34 2c 59  2a 34 29 29 0d 01 86 21  |t(.X*4,Y*4))...!|
00000360  20 e7 20 a4 50 3d 31 20  8c 20 f2 62 65 65 70 3a  | . .P=1 . .beep:|
00000370  58 56 3d 2d 58 56 3a 59  56 3d 2d 59 56 0d 01 90  |XV=-XV:YV=-YV...|
00000380  13 20 e7 20 a4 50 3d 33  20 8c 20 58 3d 35 30 30  |. . .P=3 . X=500|
00000390  0d 01 9a 21 20 e7 20 a4  50 3d 30 20 8c 20 58 56  |...! . .P=0 . XV|
000003a0  3d 58 56 2a 31 2e 32 3a  59 56 3d 59 56 2a 31 2e  |=XV*1.2:YV=YV*1.|
000003b0  32 0d 01 a4 12 20 58 3d  58 2b 58 56 3a 59 3d 59  |2.... X=X+XV:Y=Y|
000003c0  2b 59 56 0d 01 ae 0d 20  f2 70 6c 6f 74 28 31 29  |+YV.... .plot(1)|
000003d0  0d 01 b8 31 20 e7 20 58  3c 30 20 84 20 59 3c 31  |...1 . X<0 . Y<1|
000003e0  36 20 84 20 58 3e 33 32  30 20 84 20 59 3e 32 35  |6 . X>320 . Y>25|
000003f0  36 20 8c 20 6f 75 74 3d  b9 3a f2 73 70 6c 61 73  |6 . out=.:.splas|
00000400  68 0d 01 c2 25 20 e7 20  94 28 58 57 2d 58 29 3c  |h...% . .(XW-X)<|
00000410  38 20 80 20 94 28 59 57  2d 59 29 3c 38 20 8c 20  |8 . .(YW-Y)<8 . |
00000420  68 6f 6c 65 3d b9 0d 01  cc 0c 20 4b 24 3d bf 28  |hole=..... K$=.(|
00000430  30 29 0d 01 d1 0d 20 2a  46 58 20 31 35 2c 31 0d  |0).... *FX 15,1.|
00000440  01 d6 1e 20 e7 20 4b 24  3d 22 53 22 20 8c 20 68  |... . K$="S" . h|
00000450  6f 6c 65 3d b9 3a 63 68  65 61 74 3d b9 0d 01 e0  |ole=.:cheat=....|
00000460  1f 20 e7 20 4b 24 3d 4c  24 20 8c 20 58 56 3d 58  |. . K$=L$ . XV=X|
00000470  56 2d a4 4d 3a 42 4e 3d  42 4e 2d 31 0d 01 ea 1f  |V-.M:BN=BN-1....|
00000480  20 e7 20 4b 24 3d 52 24  20 8c 20 58 56 3d 58 56  | . K$=R$ . XV=XV|
00000490  2b a4 4d 3a 42 4e 3d 42  4e 2d 31 0d 01 f4 1f 20  |+.M:BN=BN-1.... |
000004a0  e7 20 4b 24 3d 55 24 20  8c 20 59 56 3d 59 56 2b  |. K$=U$ . YV=YV+|
000004b0  a4 4d 3a 42 4e 3d 42 4e  2d 31 0d 01 fe 1f 20 e7  |.M:BN=BN-1.... .|
000004c0  20 4b 24 3d 44 24 20 8c  20 59 56 3d 59 56 2d a4  | K$=D$ . YV=YV-.|
000004d0  4d 3a 42 4e 3d 42 4e 2d  31 0d 02 08 15 20 e7 20  |M:BN=BN-1.... . |
000004e0  4b 24 3d 50 24 20 8c 20  f2 70 61 75 73 65 0d 02  |K$=P$ . .pause..|
000004f0  12 30 20 e7 20 42 4e 3c  30 20 8c 20 42 4e 3d 30  |.0 . BN<0 . BN=0|
00000500  20 8b 20 e7 20 91 2d 4c  54 44 3e 32 35 30 20 8c  | . . .-LTD>250 .|
00000510  20 4c 54 44 3d 91 3a 42  4e 3d 42 4e 2d 31 0d 02  | LTD=.:BN=BN-1..|
00000520  1c 35 20 f1 8a 30 2c 33  31 29 53 43 52 3b 8a 31  |.5 ..0,31)SCR;.1|
00000530  33 2c 33 31 29 4c 3b 8a  32 35 2c 33 31 29 4c 56  |3,31)L;.25,31)LV|
00000540  3b 22 20 22 3b 8a 33 35  2c 33 31 29 42 4e 3b 22  |;" ";.35,31)BN;"|
00000550  20 22 3b 0d 02 26 1e 20  fd 20 68 6f 6c 65 3d b9  | ";..&. . hole=.|
00000560  20 84 20 6f 75 74 3d b9  20 84 20 71 75 69 74 3d  | . out=. . quit=|
00000570  b9 0d 02 30 2f 20 e7 20  68 6f 6c 65 3d b9 20 8c  |...0/ . hole=. .|
00000580  20 4c 3d 4c 2b 31 3a 4c  56 3d 4c 56 2b 31 3a 53  | L=L+1:LV=LV+1:S|
00000590  43 52 3d 53 43 52 2b 42  4e 3a f2 63 6c 69 63 6b  |CR=SCR+BN:.click|
000005a0  0d 02 3a 16 20 e7 20 6f  75 74 3d b9 20 8c 20 4c  |..:. . out=. . L|
000005b0  56 3d 4c 56 2d 31 0d 02  44 1b 20 fd 20 4c 3d 31  |V=LV-1..D. . L=1|
000005c0  39 20 84 20 4c 56 3d 30  20 84 20 71 75 69 74 3d  |9 . LV=0 . quit=|
000005d0  b9 0d 02 4e 17 20 e7 20  4c 56 3d 30 20 8c 20 f2  |...N. . LV=0 . .|
000005e0  67 61 6d 65 6f 76 65 72  0d 02 58 15 20 e7 20 4c  |gameover..X. . L|
000005f0  3d 31 39 20 8c 20 f2 79  6f 75 77 6f 6e 0d 02 62  |=19 . .youwon..b|
00000600  06 20 e1 0d 02 6c 06 20  3a 0d 02 76 13 20 dd a4  |. ...l. :..v. ..|
00000610  4d 3d b3 28 31 30 29 2f  35 30 2b 31 0d 02 80 06  |M=.(10)/50+1....|
00000620  20 3a 0d 02 8a 20 20 dd  a4 50 3d b0 28 58 2b 32  | :...  ..P=.(X+2|
00000630  2a 58 56 29 2a 34 2c 28  59 2b 32 2a 59 56 29 2a  |*XV)*4,(Y+2*YV)*|
00000640  34 29 0d 02 94 06 20 3a  0d 02 9e 0e 20 dd f2 70  |4).... :.... ..p|
00000650  6c 6f 74 28 43 29 0d 02  a8 0a 20 e6 20 30 2c 43  |lot(C).... . 0,C|
00000660  0d 02 b2 1c 20 ec 20 58  2a 34 2b 34 2c 59 2a 34  |.... . X*4+4,Y*4|
00000670  3a df 20 58 2a 34 2b 34  2c 59 2a 34 0d 02 bc 10  |:. X*4+4,Y*4....|
00000680  20 df 20 58 2a 34 2c 59  2a 34 2b 34 0d 02 c6 10  | . X*4,Y*4+4....|
00000690  20 df 20 58 2a 34 2d 34  2c 59 2a 34 0d 02 d0 10  | . X*4-4,Y*4....|
000006a0  20 df 20 58 2a 34 2c 59  2a 34 2d 34 0d 02 da 06  | . X*4,Y*4-4....|
000006b0  20 e1 0d 02 e4 06 20 3a  0d 02 ee 0b 20 dd f2 6b  | ..... :.... ..k|
000006c0  65 79 73 0d 02 f8 3a 20  f1 27 22 50 6c 65 61 73  |eys...: .'"Pleas|
000006d0  65 20 65 6e 74 65 72 20  74 68 65 20 6b 65 79 20  |e enter the key |
000006e0  77 68 69 63 68 20 79 6f  75 20 77 69 73 68 20 74  |which you wish t|
000006f0  6f 20 20 75 73 65 20 66  6f 72 3a 22 27 0d 03 02  |o  use for:"'...|
00000700  40 20 f1 89 28 38 29 22  4c 65 66 74 22 27 89 28  |@ ..(8)"Left"'.(|
00000710  37 29 22 52 69 67 68 74  22 27 89 28 31 30 29 22  |7)"Right"'.(10)"|
00000720  55 70 22 27 89 28 38 29  22 44 6f 77 6e 22 27 22  |Up"'.(8)"Down"'"|
00000730  50 61 75 73 65 20 6f 6e  2f 6f 66 66 22 0d 03 0c  |Pause on/off"...|
00000740  1e 20 f1 8a 31 34 2c 34  29 3b 3a 4c 24 3d be 3a  |. ..14,4);:L$=.:|
00000750  f1 4c 24 3b 8a 31 34 2c  35 29 3b 0d 03 16 15 20  |.L$;.14,5);.... |
00000760  52 24 3d be 3a f1 52 24  3b 8a 31 34 2c 36 29 3b  |R$=.:.R$;.14,6);|
00000770  0d 03 20 15 20 55 24 3d  be 3a f1 55 24 3b 8a 31  |.. . U$=.:.U$;.1|
00000780  34 2c 37 29 3b 0d 03 2a  15 20 44 24 3d be 3a f1  |4,7);..*. D$=.:.|
00000790  44 24 3b 8a 31 34 2c 38  29 3b 0d 03 34 0d 20 50  |D$;.14,8);..4. P|
000007a0  24 3d be 3a f1 50 24 0d  03 3e 06 20 e1 0d 03 48  |$=.:.P$..>. ...H|
000007b0  06 20 3a 0d 03 52 0c 20  dd f2 74 69 74 6c 65 0d  |. :..R. ..title.|
000007c0  03 5c 14 20 ef 20 32 33  2c 31 2c 30 3b 30 3b 30  |.\. . 23,1,0;0;0|
000007d0  3b 30 3b 0d 03 66 14 20  ef 20 32 33 2c 31 2c 30  |;0;..f. . 23,1,0|
000007e0  3b 30 3b 30 3b 30 3b 0d  03 70 2d 20 ef 20 32 33  |;0;0;0;..p- . 23|
000007f0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
00000810  2c 32 35 35 0d 03 7a 15  20 ef 20 31 39 2c 32 2c  |,255..z. . 19,2,|
00000820  32 2c 30 2c 30 2c 30 2c  30 0d 03 84 10 20 e3 20  |2,0,0,0,0.... . |
00000830  4c 3d 30 20 b8 20 31 35  30 0d 03 8e 18 20 58 3d  |L=0 . 150.... X=|
00000840  b3 28 31 32 38 30 29 3a  59 3d b3 28 31 30 32 34  |.(1280):Y=.(1024|
00000850  29 0d 03 98 10 20 ec 20  58 2c 59 3a df 20 58 2c  |).... . X,Y:. X,|
00000860  59 0d 03 a2 06 20 ed 0d  03 ac 06 20 f1 0d 03 b6  |Y.... ..... ....|
00000870  0b 20 f7 20 8d 64 44 44  0d 03 c0 0e 20 e3 20 4c  |. . .dDD.... . L|
00000880  3d 30 20 b8 20 34 0d 03  ca 0c 20 f1 27 22 20 20  |=0 . 4.... .'"  |
00000890  22 3b 0d 03 d4 0a 20 f3  20 4c 44 24 0d 03 de 0f  |";.... . LD$....|
000008a0  20 e3 20 52 3d 31 20 b8  20 33 36 0d 03 e8 22 20  | . R=1 . 36..." |
000008b0  e7 20 c1 4c 44 24 2c 52  2c 31 29 3d 22 2a 22 20  |. .LD$,R,1)="*" |
000008c0  8c 20 ef 20 32 35 35 20  8b 20 ef 20 39 0d 03 f2  |. . 255 . . 9...|
000008d0  07 20 ed 2c 0d 03 fc 96  20 f1 8a 31 32 2c 38 29  |. .,.... ..12,8)|
000008e0  22 42 79 20 44 6f 6d 69  6e 69 63 20 46 6f 72 64  |"By Dominic Ford|
000008f0  22 3b 8a 34 2c 31 31 29  22 49 20 2d 20 49 6e 73  |";.4,11)"I - Ins|
00000900  74 72 75 63 74 69 6f 6e  73 22 3b 89 28 31 30 29  |tructions";.(10)|
00000910  22 53 6f 75 6e 64 22 3b  8a 34 2c 31 33 29 22 53  |"Sound";.4,13)"S|
00000920  20 2d 20 53 6f 75 6e 64  20 4f 6e 2f 4f 66 66 22  | - Sound On/Off"|
00000930  3b 8a 34 2c 31 35 29 22  4b 20 2d 20 43 68 61 6e  |;.4,15)"K - Chan|
00000940  67 65 20 4b 65 79 73 22  3b 8a 34 2c 31 37 29 22  |ge Keys";.4,17)"|
00000950  51 20 2d 20 51 75 69 74  22 27 27 22 53 50 41 43  |Q - Quit"''"SPAC|
00000960  45 20 2d 20 53 74 61 72  74 22 0d 04 06 38 20 e6  |E - Start"...8 .|
00000970  20 30 2c 32 3a ec 20 31  36 30 2c 35 30 3a ec 20  | 0,2:. 160,50:. |
00000980  31 36 30 2c 33 35 30 3a  f0 20 38 35 2c 31 31 32  |160,350:. 85,112|
00000990  30 2c 35 30 3a f0 20 38  35 2c 31 31 32 30 2c 33  |0,50:. 85,1120,3|
000009a0  35 30 0d 04 10 31 20 ec  20 30 2c 32 30 30 3a ec  |50...1 . 0,200:.|
000009b0  20 36 34 30 2c 34 30 30  3a f0 20 38 35 2c 36 34  | 640,400:. 85,64|
000009c0  30 2c 32 30 30 3a f0 20  38 35 2c 31 32 38 30 2c  |0,200:. 85,1280,|
000009d0  32 30 30 0d 04 1a 24 20  f0 20 38 35 2c 36 34 30  |200...$ . 85,640|
000009e0  2c 30 3a ec 20 36 34 30  2c 32 30 30 3a f0 20 38  |,0:. 640,200:. 8|
000009f0  35 2c 30 2c 32 30 30 0d  04 24 3f 20 e6 20 30 2c  |5,0,200..$? . 0,|
00000a00  30 3a ec 20 36 34 30 2c  32 30 30 3a df 20 34 34  |0:. 640,200:. 44|
00000a10  30 2c 34 30 30 3a ec 20  34 39 32 2c 33 35 30 3a  |0,400:. 492,350:|
00000a20  ec 20 35 36 30 2c 33 35  30 3a f0 20 38 35 2c 35  |. 560,350:. 85,5|
00000a30  31 35 2c 33 33 30 0d 04  2e 32 20 ec 20 36 34 35  |15,330...2 . 645|
00000a40  2c 32 30 30 3a e6 20 30  2c 33 3a df 20 36 34 35  |,200:. 0,3:. 645|
00000a50  2c 36 30 30 3a df 20 36  34 30 2c 36 30 30 3a df  |,600:. 640,600:.|
00000a60  20 36 34 30 2c 32 30 30  0d 04 38 2b 20 e6 20 30  | 640,200..8+ . 0|
00000a70  2c 31 3a ec 20 36 35 30  2c 36 30 30 3a ec 20 36  |,1:. 650,600:. 6|
00000a80  35 30 2c 35 36 30 3a f0  20 38 35 2c 37 33 30 2c  |50,560:. 85,730,|
00000a90  35 38 30 0d 04 42 0f 20  f5 3a 2a 46 58 20 31 35  |580..B. .:*FX 15|
00000aa0  2c 30 0d 04 4c 27 20 f1  8a 33 31 2c 31 33 29 3b  |,0..L' ..31,13);|
00000ab0  3a e7 20 53 6f 3d 31 20  8c 20 f1 22 4f 6e 20 22  |:. So=1 . ."On "|
00000ac0  20 8b 20 f1 22 4f 66 66  22 0d 04 56 06 20 f5 0d  | . ."Off"..V. ..|
00000ad0  04 60 0f 20 e3 57 54 3d  30 b8 31 35 3a ed 0d 04  |.`. .WT=0.15:...|
00000ae0  6a 08 20 f3 20 58 0d 04  74 18 20 e7 20 58 3d 2d  |j. . X..t. . X=-|
00000af0  31 20 8c 20 f7 20 8d 64  76 44 3a f3 20 58 0d 04  |1 . . .dvD:. X..|
00000b00  7e 15 20 ef 20 31 39 2c  33 2c 58 2c 30 2c 30 2c  |~. . 19,3,X,0,0,|
00000b10  30 2c 30 0d 04 88 0c 20  41 24 3d bf 28 30 29 0d  |0,0.... A$=.(0).|
00000b20  04 92 1f 20 fd 20 a7 22  4b 53 49 51 20 22 2c 41  |... . ."KSIQ ",A|
00000b30  24 29 3c 3e 30 20 80 20  41 24 3c 3e 22 22 0d 04  |$)<>0 . A$<>""..|
00000b40  9c 1a 20 e7 20 41 24 3d  22 53 22 20 8c 20 53 6f  |.. . A$="S" . So|
00000b50  3d 94 28 53 6f 2d 31 29  0d 04 a6 0e 20 fd 20 41  |=.(So-1).... . A|
00000b60  24 3c 3e 22 53 22 0d 04  b0 06 20 e1 0d 04 ba 06  |$<>"S".... .....|
00000b70  20 3a 0d 04 c4 2c 20 dc  20 22 2a 2a 2a 20 2a 2a  | :..., . "*** **|
00000b80  2a 20 2a 2a 2a 20 2a 2a  2a 20 2a 2a 2a 20 2a 2a  |* *** *** *** **|
00000b90  2a 20 2a 2a 2a 20 2a 20  20 20 2a 2a 2a 22 0d 04  |* *** *   ***"..|
00000ba0  ce 2b 20 dc 20 22 2a 20  20 20 2a 20 2a 20 2a 20  |.+ . "*   * * * |
00000bb0  2a 20 2a 20 20 20 2a 20  20 20 2a 20 20 20 2a 20  |* *   *   *   * |
00000bc0  2a 20 2a 20 20 20 2a 20  22 0d 04 d8 2c 20 dc 20  |* *   * "..., . |
00000bd0  22 2a 2a 2a 20 2a 2a 2a  20 2a 2a 2a 20 2a 20 20  |"*** *** *** *  |
00000be0  20 2a 2a 20 20 2a 20 2a  20 2a 20 2a 20 2a 20 20  | **  * * * * *  |
00000bf0  20 2a 2a 2a 22 0d 04 e2  2b 20 dc 20 22 20 20 2a  | ***"...+ . "  *|
00000c00  20 2a 20 20 20 2a 20 2a  20 2a 20 20 20 2a 20 20  | *   * * *   *  |
00000c10  20 2a 20 2a 20 2a 20 2a  20 2a 20 20 20 2a 20 22  | * * * * *   * "|
00000c20  0d 04 ec 2b 20 dc 20 22  2a 2a 2a 20 2a 20 20 20  |...+ . "*** *   |
00000c30  2a 20 2a 20 2a 2a 2a 20  2a 2a 2a 20 2a 2a 2a 20  |* * *** *** *** |
00000c40  2a 2a 2a 20 2a 2a 2a 20  2a 20 22 0d 04 f6 21 20  |*** *** * "...! |
00000c50  dc 20 36 2c 34 2c 30 2c  31 2c 33 2c 37 2c 33 2c  |. 6,4,0,1,3,7,3,|
00000c60  31 2c 30 2c 34 2c 36 2c  37 2c 2d 31 0d 05 00 06  |1,0,4,6,7,-1....|
00000c70  20 3a 0d 05 0a 0c 20 dd  f2 70 61 75 73 65 0d 05  | :.... ..pause..|
00000c80  14 28 20 e7 20 53 6f 3d  31 20 8c 20 d4 20 31 2c  |.( . So=1 . . 1,|
00000c90  2d 31 35 2c 35 32 2c 31  3a d4 20 31 2c 2d 31 35  |-15,52,1:. 1,-15|
00000ca0  2c 31 30 30 2c 31 0d 05  1e 06 20 f5 0d 05 28 09  |,100,1.... ...(.|
00000cb0  20 4b 24 3d be 0d 05 32  15 20 fd 20 4b 24 3d 50  | K$=...2. . K$=P|
00000cc0  24 20 84 20 4b 24 3d 22  51 22 0d 05 3c 28 20 e7  |$ . K$="Q"..<( .|
00000cd0  20 53 6f 3d 31 20 8c 20  d4 20 31 2c 2d 31 35 2c  | So=1 . . 1,-15,|
00000ce0  31 30 30 2c 31 3a d4 20  31 2c 2d 31 35 2c 35 32  |100,1:. 1,-15,52|
00000cf0  2c 31 0d 05 46 16 20 e7  20 4b 24 3d 22 51 22 20  |,1..F. . K$="Q" |
00000d00  8c 20 71 75 69 74 3d b9  0d 05 50 06 20 e1 0d 05  |. quit=...P. ...|
00000d10  5a 06 20 3a 0d 05 64 0c  20 dd f2 63 6c 69 63 6b  |Z. :..d. ..click|
00000d20  0d 05 6e 0f 20 e7 20 53  6f 3d 30 20 8c 20 e1 0d  |..n. . So=0 . ..|
00000d30  05 78 0d 20 2a 4d 4f 54  4f 52 20 31 0d 05 82 0d  |.x. *MOTOR 1....|
00000d40  20 2a 4d 4f 54 4f 52 20  30 0d 05 8c 06 20 e1 0d  | *MOTOR 0.... ..|
00000d50  05 96 06 20 3a 0d 05 a0  0b 20 dd f2 62 65 65 70  |... :.... ..beep|
00000d60  0d 05 aa 0f 20 e7 20 53  6f 3d 30 20 8c 20 e1 0d  |.... . So=0 . ..|
00000d70  05 b4 11 20 d4 20 31 2c  2d 31 35 2c 31 36 2c 35  |... . 1,-15,16,5|
00000d80  0d 05 be 06 20 e1 0d 05  c8 06 20 3a 0d 05 d2 0f  |.... ..... :....|
00000d90  20 dd f2 64 72 61 77 68  6f 6c 65 0d 05 dc 13 20  | ..drawhole.... |
00000da0  61 64 3d 73 70 61 63 65  2b 26 38 30 2a 4c 0d 05  |ad=space+&80*L..|
00000db0  e6 32 20 58 3d 3f 61 64  3a 59 3d 3f 28 61 64 2b  |.2 X=?ad:Y=?(ad+|
00000dc0  31 29 3a 58 57 3d 3f 28  61 64 2b 32 29 3a 59 57  |1):XW=?(ad+2):YW|
00000dd0  3d 3f 28 61 64 2b 33 29  3a 61 64 3d 61 64 2b 34  |=?(ad+3):ad=ad+4|
00000de0  0d 05 f0 06 20 f5 0d 05  fa 25 20 e6 30 2c 3f 61  |.... ....% .0,?a|
00000df0  64 3a ec a4 58 28 32 29  2c a4 59 28 33 29 3a ec  |d:..X(2),.Y(3):.|
00000e00  a4 58 28 34 29 2c a4 59  28 35 29 0d 06 04 24 20  |.X(4),.Y(5)...$ |
00000e10  f0 38 35 2c a4 58 28 36  29 2c a4 59 28 37 29 3a  |.85,.X(6),.Y(7):|
00000e20  f0 38 35 2c a4 58 28 38  29 2c a4 59 28 39 29 0d  |.85,.X(8),.Y(9).|
00000e30  06 0e 0d 20 61 64 3d 61  64 2b 31 30 0d 06 18 0e  |... ad=ad+10....|
00000e40  20 fd 20 3f 61 64 3d 32  35 35 0d 06 22 06 20 e1  | . ?ad=255..". .|
00000e50  0d 06 2c 06 20 3a 0d 06  36 0d 20 dd f2 73 70 6c  |..,. :..6. ..spl|
00000e60  61 73 68 0d 06 40 0f 20  e7 20 53 6f 3d 30 20 8c  |ash..@. . So=0 .|
00000e70  20 e1 0d 06 4a 13 20 e3  74 3d 32 20 b8 20 32 35  | ...J. .t=2 . 25|
00000e80  35 20 88 20 34 0d 06 54  10 20 d4 20 30 2c 2d 31  |5 . 4..T. . 0,-1|
00000e90  35 2c 74 2c 30 0d 06 5e  06 20 ed 0d 06 68 06 20  |5,t,0..^. ...h. |
00000ea0  e1 0d 06 72 06 20 3a 0d  06 7c 12 20 dd f2 69 6e  |...r. :..|. ..in|
00000eb0  73 74 72 75 63 74 69 6f  6e 0d 06 86 1d 20 54 24  |struction.... T$|
00000ec0  3d c4 34 30 2c 22 20 22  29 3a 61 64 3d 69 6e 73  |=.40," "):ad=ins|
00000ed0  70 61 63 65 2d 31 0d 06  90 08 20 fb 20 31 0d 06  |pace-1.... . 1..|
00000ee0  9a 06 20 f5 0d 06 a4 0f  20 f1 8a 30 2c 33 30 29  |.. ..... ..0,30)|
00000ef0  54 24 3b 0d 06 ae 0c 20  61 64 3d 61 64 2b 31 0d  |T$;.... ad=ad+1.|
00000f00  06 b8 16 20 54 24 3d c2  54 24 2c 33 39 29 2b bd  |... T$=.T$,39)+.|
00000f10  28 3f 61 64 29 0d 06 c2  0c 20 fd 20 3f 61 64 3d  |(?ad).... . ?ad=|
00000f20  30 0d 06 cc 06 20 e1 0d  06 d6 06 20 3a 0d 06 e0  |0.... ..... :...|
00000f30  0d 20 dd f2 79 6f 75 77  6f 6e 0d 06 ea 06 20 db  |. ..youwon.... .|
00000f40  0d 06 f4 6a 20 e7 20 63  68 65 61 74 3d b9 20 8c  |...j . cheat=. .|
00000f50  20 f1 27 27 27 27 27 27  27 27 27 27 22 4e 6f 77  | .''''''''''"Now|
00000f60  20 63 61 6e 20 79 6f 75  20 63 6f 6d 70 6c 65 74  | can you complet|
00000f70  65 20 61 6c 6c 20 6f 66  20 74 68 65 20 6c 65 76  |e all of the lev|
00000f80  65 6c 73 20 20 57 49 54  48 4f 55 54 20 75 73 69  |els  WITHOUT usi|
00000f90  6e 67 20 74 68 65 20 6c  65 76 65 6c 20 73 6b 69  |ng the level ski|
00000fa0  70 3f 22 3a e5 20 8d 54  48 47 0d 06 fe 52 20 f1  |p?":. .THG...R .|
00000fb0  8a 31 32 2c 35 29 22 43  4f 4e 47 52 41 54 55 4c  |.12,5)"CONGRATUL|
00000fc0  41 54 49 4f 4e 53 21 22  3b 8a 31 31 2c 31 30 29  |ATIONS!";.11,10)|
00000fd0  22 59 6f 75 20 68 61 76  65 20 63 6f 6d 70 6c 65  |"You have comple|
00000fe0  74 65 64 22 3b 8a 31 34  2c 31 35 29 3b 22 61 6c  |ted";.14,15);"al|
00000ff0  6c 20 31 38 20 68 6f 6c  65 73 21 22 0d 07 08 23  |l 18 holes!"...#|
00001000  20 f1 27 27 89 28 31 35  29 22 50 72 65 73 73 20  | .''.(15)"Press |
00001010  52 45 54 55 52 4e 22 3a  d6 20 26 31 36 30 30 0d  |RETURN":. &1600.|
00001020  07 12 06 20 e1 0d 07 1c  06 20 3a 0d 07 26 1b 20  |... ..... :..&. |
00001030  dd a4 59 28 61 64 62 29  3d 28 3f 28 61 64 2b 61  |..Y(adb)=(?(ad+a|
00001040  64 62 29 29 2a 34 0d 07  30 42 20 dd a4 58 28 61  |db))*4..0B ..X(a|
00001050  64 62 29 3d a4 59 28 61  64 62 29 20 84 20 28 2d  |db)=.Y(adb) . (-|
00001060  31 30 32 34 2a 28 28 28  3f 28 61 64 2b 31 29 29  |1024*(((?(ad+1))|
00001070  20 80 20 28 32 5e 28 28  61 64 62 2d 31 29 2f 32  | . (2^((adb-1)/2|
00001080  29 29 29 3c 3e 30 29 29  0d 07 3a 06 20 3a 0d 07  |)))<>0))..:. :..|
00001090  44 0f 20 dd f2 67 61 6d  65 6f 76 65 72 0d 07 4e  |D. ..gameover..N|
000010a0  08 20 fb 20 31 0d 07 58  0e 20 e3 58 3d 31 20 b8  |. . 1..X. .X=1 .|
000010b0  20 33 36 0d 07 62 24 20  f1 8a 58 2c 31 35 29 22  | 36..b$ ..X,15)"|
000010c0  20 47 41 4d 45 22 3b 8a  33 36 2d 58 2c 31 35 29  | GAME";.36-X,15)|
000010d0  22 4f 56 45 52 20 22 0d  07 6c 10 20 e3 57 3d 30  |"OVER "..l. .W=0|
000010e0  b8 31 30 30 3a ed 2c 0d  07 76 06 20 e1 0d 07 80  |.100:.,..v. ....|
000010f0  06 20 3a 0d 07 8a 0b 20  dd f2 69 6e 69 74 0d 07  |. :.... ..init..|
00001100  9e 1a 20 f1 27 22 50 6c  65 61 73 65 20 57 61 69  |.. .'"Please Wai|
00001110  74 2e 20 2e 20 2e 22 27  0d 07 bc 0b 20 ef 20 36  |t. . ."'.... . 6|
00001120  2c 31 31 0d 07 c6 20 20  f1 22 4d 6f 76 69 6e 67  |,11...  ."Moving|
00001130  20 68 6f 6c 65 73 2e 20  2e 20 2e 22 3a f2 68 6f  | holes. . .":.ho|
00001140  6c 65 73 0d 07 d0 2a 20  f1 22 4d 6f 76 69 6e 67  |les...* ."Moving|
00001150  20 69 6e 73 74 72 75 63  74 69 6f 6e 73 2e 20 2e  | instructions. .|
00001160  20 2e 22 3a f2 69 6e 73  74 72 65 61 64 0d 07 da  | .":.instread...|
00001170  1c 20 f1 22 41 73 73 65  6d 62 6c 69 6e 67 20 63  |. ."Assembling c|
00001180  6f 64 65 2e 20 2e 20 2e  22 0d 07 e4 1d 20 f1 22  |ode. . .".... ."|
00001190  53 65 6c 66 2d 44 65 73  74 72 75 63 74 69 6e 67  |Self-Destructing|
000011a0  2e 20 2e 20 2e 22 0d 07  ee 09 20 ef 20 32 31 0d  |. . .".... . 21.|
000011b0  07 f8 06 20 e1 0d 08 02  06 20 3a 0d 08 0c 0c 20  |... ..... :.... |
000011c0  dd f2 68 6f 6c 65 73 0d  08 16 0b 20 f7 20 8d 74  |..holes.... . .t|
000011d0  58 48 0d 08 20 0f 20 61  64 3d 73 70 61 63 65 2d  |XH.. . ad=space-|
000011e0  31 0d 08 2a 06 20 f5 0d  08 34 0e 20 61 64 3d 61  |1..*. ...4. ad=a|
000011f0  64 2b 26 38 30 0d 08 3e  0b 20 61 64 65 3d 61 64  |d+&80..>. ade=ad|
00001200  0d 08 48 06 20 f5 0d 08  52 0e 20 61 64 65 3d 61  |..H. ...R. ade=a|
00001210  64 65 2b 31 0d 08 5c 0a  20 f3 20 61 64 70 0d 08  |de+1..\. . adp..|
00001220  66 24 20 e7 20 61 64 70  3c 3e 2d 31 20 8c 20 3f  |f$ . adp<>-1 . ?|
00001230  61 64 65 3d 61 64 70 20  8b 20 3f 61 64 65 3d 32  |ade=adp . ?ade=2|
00001240  35 35 0d 08 70 0d 20 fd  20 61 64 70 3d 2d 31 0d  |55..p. . adp=-1.|
00001250  08 7a 16 20 fd 20 61 64  3c 28 73 70 61 63 65 2b  |.z. . ad<(space+|
00001260  26 38 46 45 29 0d 08 84  06 20 e1 0d 08 8e 06 20  |&8FE).... ..... |
00001270  3a 0d 08 98 45 20 dc 20  36 34 2c 31 32 38 2c 32  |:...E . 64,128,2|
00001280  35 35 2c 31 32 38 2c 31  2c 30 2c 31 31 30 2c 37  |55,128,1,0,110,7|
00001290  38 2c 32 32 30 2c 37 38  2c 31 31 30 2c 31 37 38  |8,220,78,110,178|
000012a0  2c 32 32 30 2c 31 37 38  2c 2d 31 3a 52 45 4d 20  |,220,178,-1:REM |
000012b0  48 6f 6c 65 20 31 0d 08  a2 40 20 dc 20 32 30 2c  |Hole 1...@ . 20,|
000012c0  32 34 30 2c 31 30 30 2c  32 34 30 2c 31 2c 30 2c  |240,100,240,1,0,|
000012d0  34 30 2c 32 35 35 2c 38  30 2c 32 35 35 2c 34 30  |40,255,80,255,40|
000012e0  2c 31 32 38 2c 38 30 2c  31 32 38 3a 52 45 4d 20  |,128,80,128:REM |
000012f0  48 6f 6c 65 20 32 0d 08  ac 2a 20 dc 20 33 2c 31  |Hole 2...* . 3,1|
00001300  32 2c 31 36 30 2c 31 36  2c 31 36 30 2c 31 32 38  |2,160,16,160,128|
00001310  2c 36 35 2c 31 36 2c 36  35 2c 31 32 38 2c 2d 31  |,65,16,65,128,-1|
00001320  0d 08 b6 3e 20 dc 20 31  30 30 2c 31 37 36 2c 32  |...> . 100,176,2|
00001330  32 30 2c 39 36 2c 31 2c  30 2c 32 35 2c 35 36 2c  |20,96,1,0,25,56,|
00001340  32 35 2c 39 36 2c 31 37  30 2c 35 36 2c 31 37 30  |25,96,170,56,170|
00001350  2c 39 36 3a 52 45 4d 20  48 6f 6c 65 20 33 0d 08  |,96:REM Hole 3..|
00001360  c0 28 20 dc 20 31 2c 30  2c 31 37 30 2c 35 36 2c  |.( . 1,0,170,56,|
00001370  31 35 30 2c 35 36 2c 31  37 30 2c 32 31 36 2c 31  |150,56,170,216,1|
00001380  35 30 2c 32 31 36 0d 08  ca 2c 20 dc 20 31 2c 31  |50,216..., . 1,1|
00001390  32 2c 31 35 30 2c 32 31  36 2c 31 35 30 2c 31 37  |2,150,216,150,17|
000013a0  36 2c 33 39 2c 32 31 36  2c 33 39 2c 31 37 36 2c  |6,39,216,39,176,|
000013b0  2d 31 0d 08 d4 44 20 dc  20 31 36 30 2c 36 36 2c  |-1...D . 160,66,|
000013c0  31 36 30 2c 31 37 36 2c  31 2c 30 2c 31 30 30 2c  |160,176,1,0,100,|
000013d0  31 35 36 2c 31 30 30 2c  31 31 36 2c 32 32 30 2c  |156,100,116,220,|
000013e0  31 35 36 2c 32 32 30 2c  31 31 36 3a 52 45 4d 20  |156,220,116:REM |
000013f0  48 6f 6c 65 20 34 0d 08  de 2a 20 dc 20 31 2c 30  |Hole 4...* . 1,0|
00001400  2c 31 30 30 2c 32 34 38  2c 31 30 30 2c 31 31 36  |,100,248,100,116|
00001410  2c 31 34 30 2c 32 34 38  2c 31 34 30 2c 31 31 36  |,140,248,140,116|
00001420  0d 08 e8 2d 20 dc 20 31  2c 30 2c 31 38 30 2c 32  |...- . 1,0,180,2|
00001430  34 38 2c 31 38 30 2c 31  31 36 2c 32 32 30 2c 32  |48,180,116,220,2|
00001440  34 38 2c 32 32 30 2c 31  31 36 2c 2d 31 0d 08 f2  |48,220,116,-1...|
00001450  40 20 dc 20 31 32 2c 31  35 30 2c 32 35 35 2c 31  |@ . 12,150,255,1|
00001460  35 30 2c 31 2c 30 2c 32  35 2c 32 35 35 2c 32 35  |50,1,0,25,255,25|
00001470  2c 31 30 36 2c 35 30 2c  32 35 35 2c 35 30 2c 31  |,106,50,255,50,1|
00001480  30 36 3a 52 45 4d 20 48  6f 6c 65 20 35 0d 08 fc  |06:REM Hole 5...|
00001490  4a 20 dc 20 31 2c 30 2c  32 35 2c 32 35 35 2c 32  |J . 1,0,25,255,2|
000014a0  35 2c 32 32 36 2c 31 30  30 2c 32 35 35 2c 31 30  |5,226,100,255,10|
000014b0  30 2c 32 32 36 2c 31 2c  30 2c 32 35 2c 31 30 36  |0,226,1,0,25,106|
000014c0  2c 32 35 2c 31 33 36 2c  31 30 30 2c 31 30 36 2c  |,25,136,100,106,|
000014d0  31 30 30 2c 31 33 36 0d  09 06 48 20 dc 20 31 2c  |100,136...H . 1,|
000014e0  30 2c 32 35 2c 31 36 36  2c 32 35 2c 31 39 36 2c  |0,25,166,25,196,|
000014f0  37 35 2c 31 36 36 2c 37  35 2c 31 39 36 2c 33 2c  |75,166,75,196,3,|
00001500  30 2c 31 32 35 2c 31 36  36 2c 31 32 35 2c 31 36  |0,125,166,125,16|
00001510  2c 31 35 30 2c 31 36 36  2c 31 35 30 2c 31 36 0d  |,150,166,150,16.|
00001520  09 10 48 20 dc 20 33 2c  30 2c 31 32 35 2c 31 36  |..H . 3,0,125,16|
00001530  2c 31 32 35 2c 34 36 2c  32 30 30 2c 31 36 2c 32  |,125,46,200,16,2|
00001540  30 30 2c 34 36 2c 33 2c  30 2c 31 37 35 2c 31 36  |00,46,3,0,175,16|
00001550  2c 32 30 30 2c 31 36 2c  31 37 35 2c 31 36 36 2c  |,200,16,175,166,|
00001560  32 30 30 2c 31 36 36 0d  09 1a 4b 20 dc 20 31 2c  |200,166...K . 1,|
00001570  30 2c 32 32 35 2c 32 35  35 2c 32 32 35 2c 31 30  |0,225,255,225,10|
00001580  36 2c 32 35 30 2c 32 35  35 2c 32 35 30 2c 31 30  |6,250,255,250,10|
00001590  36 2c 31 2c 31 35 2c 31  39 2c 31 30 36 2c 31 39  |6,1,15,19,106,19|
000015a0  2c 31 36 36 2c 34 34 2c  31 30 36 2c 34 34 2c 31  |,166,44,106,44,1|
000015b0  36 36 0d 09 24 29 20 dc  20 31 2c 31 32 2c 32 32  |66..$) . 1,12,22|
000015c0  35 2c 32 35 35 2c 32 32  35 2c 32 32 36 2c 34 34  |5,255,225,226,44|
000015d0  2c 32 35 35 2c 34 34 2c  32 32 36 0d 09 2e 2c 20  |,255,44,226..., |
000015e0  dc 20 31 2c 31 32 2c 32  32 35 2c 31 30 36 2c 32  |. 1,12,225,106,2|
000015f0  32 35 2c 31 33 36 2c 34  34 2c 31 30 36 2c 34 34  |25,136,44,106,44|
00001600  2c 31 33 36 2c 2d 31 0d  09 38 3e 20 dc 20 34 38  |,136,-1..8> . 48|
00001610  2c 31 33 36 2c 32 35 35  2c 31 33 36 2c 33 2c 30  |,136,255,136,3,0|
00001620  2c 30 2c 32 35 35 2c 30  2c 31 37 36 2c 39 36 2c  |,0,255,0,176,96,|
00001630  32 35 35 2c 39 36 2c 31  37 36 3a 52 45 4d 20 48  |255,96,176:REM H|
00001640  6f 6c 65 20 36 0d 09 42  42 20 dc 20 33 2c 30 2c  |ole 6..BB . 3,0,|
00001650  30 2c 31 36 2c 30 2c 39  36 2c 39 36 2c 31 36 2c  |0,16,0,96,96,16,|
00001660  39 36 2c 39 36 2c 33 2c  30 2c 31 36 30 2c 36 36  |96,96,3,0,160,66|
00001670  2c 32 32 34 2c 36 36 2c  31 36 30 2c 32 30 36 2c  |,224,66,160,206,|
00001680  32 32 34 2c 32 30 36 0d  09 4c 29 20 dc 20 30 2c  |224,206..L) . 0,|
00001690  30 2c 39 36 2c 31 37 36  2c 39 36 2c 39 36 2c 31  |0,96,176,96,96,1|
000016a0  36 30 2c 31 37 36 2c 31  36 30 2c 39 36 2c 2d 31  |60,176,160,96,-1|
000016b0  0d 09 56 40 20 dc 20 36  35 2c 31 33 36 2c 32 35  |..V@ . 65,136,25|
000016c0  35 2c 31 33 36 2c 31 2c  30 2c 31 30 30 2c 33 36  |5,136,1,0,100,36|
000016d0  2c 31 30 30 2c 37 36 2c  31 31 36 2c 33 36 2c 31  |,100,76,116,36,1|
000016e0  31 36 2c 37 36 3a 52 45  4d 20 48 6f 6c 65 20 37  |16,76:REM Hole 7|
000016f0  0d 09 60 2a 20 dc 20 31  2c 30 2c 31 30 30 2c 31  |..`* . 1,0,100,1|
00001700  31 36 2c 31 30 30 2c 31  35 36 2c 31 31 36 2c 31  |16,100,156,116,1|
00001710  31 36 2c 31 31 36 2c 31  35 36 0d 09 6a 2a 20 dc  |16,116,156..j* .|
00001720  20 31 2c 30 2c 31 30 30  2c 31 39 36 2c 31 30 30  | 1,0,100,196,100|
00001730  2c 32 33 36 2c 31 31 36  2c 31 39 36 2c 31 31 36  |,236,116,196,116|
00001740  2c 32 33 36 0d 09 74 4a  20 dc 20 31 2c 30 2c 31  |,236..tJ . 1,0,1|
00001750  35 32 2c 33 36 2c 31 35  32 2c 37 36 2c 31 36 38  |52,36,152,76,168|
00001760  2c 33 36 2c 31 36 38 2c  37 36 2c 31 2c 30 2c 31  |,36,168,76,1,0,1|
00001770  35 32 2c 31 31 36 2c 31  35 32 2c 31 35 36 2c 31  |52,116,152,156,1|
00001780  36 38 2c 31 31 36 2c 31  36 38 2c 31 35 36 0d 09  |68,116,168,156..|
00001790  7e 2a 20 dc 20 31 2c 30  2c 31 35 32 2c 31 39 36  |~* . 1,0,152,196|
000017a0  2c 31 35 32 2c 32 33 36  2c 31 36 38 2c 31 39 36  |,152,236,168,196|
000017b0  2c 31 36 38 2c 32 33 36  0d 09 88 4a 20 dc 20 31  |,168,236...J . 1|
000017c0  2c 30 2c 32 30 34 2c 35  36 2c 32 30 34 2c 31 32  |,0,204,56,204,12|
000017d0  36 2c 32 32 30 2c 35 36  2c 32 32 30 2c 31 32 36  |6,220,56,220,126|
000017e0  2c 33 2c 30 2c 31 37 38  2c 35 36 2c 31 37 38 2c  |,3,0,178,56,178,|
000017f0  31 32 36 2c 31 39 34 2c  35 36 2c 31 39 34 2c 31  |126,194,56,194,1|
00001800  32 36 0d 09 92 2a 20 dc  20 31 2c 30 2c 32 30 34  |26...* . 1,0,204|
00001810  2c 31 34 36 2c 32 30 34  2c 32 31 36 2c 32 32 30  |,146,204,216,220|
00001820  2c 31 34 36 2c 32 32 30  2c 32 31 36 0d 09 9c 2a  |,146,220,216...*|
00001830  20 dc 20 33 2c 30 2c 31  37 38 2c 31 34 36 2c 31  | . 3,0,178,146,1|
00001840  37 38 2c 32 31 36 2c 31  39 34 2c 31 34 36 2c 31  |78,216,194,146,1|
00001850  39 34 2c 32 31 36 0d 09  a6 28 20 dc 20 33 2c 30  |94,216...( . 3,0|
00001860  2c 31 32 36 2c 31 36 2c  31 32 36 2c 31 33 32 2c  |,126,16,126,132,|
00001870  31 34 32 2c 31 36 2c 31  34 32 2c 31 33 32 0d 09  |142,16,142,132..|
00001880  b0 2d 20 dc 20 33 2c 30  2c 31 32 36 2c 31 34 30  |.- . 3,0,126,140|
00001890  2c 31 32 36 2c 32 35 35  2c 31 34 32 2c 31 34 30  |,126,255,142,140|
000018a0  2c 31 34 32 2c 32 35 35  2c 2d 31 0d 09 ba 43 20  |,142,255,-1...C |
000018b0  dc 20 37 35 2c 31 39 36  2c 32 34 35 2c 37 36 2c  |. 75,196,245,76,|
000018c0  31 2c 30 2c 31 30 30 2c  32 35 35 2c 31 30 30 2c  |1,0,100,255,100,|
000018d0  31 33 36 2c 31 34 30 2c  32 35 35 2c 31 34 30 2c  |136,140,255,140,|
000018e0  31 33 36 3a 52 45 4d 20  48 6f 6c 65 20 38 0d 09  |136:REM Hole 8..|
000018f0  c4 28 20 dc 20 31 2c 30  2c 31 38 30 2c 31 36 2c  |.( . 1,0,180,16,|
00001900  31 38 30 2c 31 33 36 2c  32 32 30 2c 31 36 2c 32  |180,136,220,16,2|
00001910  32 30 2c 31 33 36 0d 09  ce 2b 20 dc 20 30 2c 30  |20,136...+ . 0,0|
00001920  2c 31 34 30 2c 32 35 35  2c 31 34 30 2c 31 36 2c  |,140,255,140,16,|
00001930  31 38 30 2c 32 35 35 2c  31 38 30 2c 31 36 2c 2d  |180,255,180,16,-|
00001940  31 0d 09 d8 3d 20 dc 20  31 36 30 2c 32 34 38 2c  |1...= . 160,248,|
00001950  31 36 30 2c 32 34 2c 33  2c 31 32 2c 30 2c 31 36  |160,24,3,12,0,16|
00001960  2c 30 2c 32 35 35 2c 36  34 2c 31 36 2c 36 34 2c  |,0,255,64,16,64,|
00001970  32 35 35 3a 52 45 4d 20  48 6f 6c 65 20 39 0d 09  |255:REM Hole 9..|
00001980  e2 26 20 dc 20 32 2c 38  2c 30 2c 31 33 36 2c 31  |.& . 2,8,0,136,1|
00001990  36 30 2c 32 35 35 2c 31  36 30 2c 31 36 2c 36 34  |60,255,160,16,64|
000019a0  2c 31 33 36 0d 09 ec 2a  20 dc 20 33 2c 31 32 2c  |,136...* . 3,12,|
000019b0  32 34 2c 31 34 34 2c 32  34 2c 31 32 38 2c 34 30  |24,144,24,128,40|
000019c0  2c 31 34 34 2c 34 30 2c  31 32 38 2c 2d 31 0d 09  |,144,40,128,-1..|
000019d0  f6 3d 20 dc 20 38 2c 31  33 36 2c 38 2c 32 35 30  |.= . 8,136,8,250|
000019e0  2c 33 2c 31 32 2c 30 2c  32 34 30 2c 30 2c 32 31  |,3,12,0,240,0,21|
000019f0  30 2c 33 32 2c 32 34 30  2c 33 32 2c 32 31 30 3a  |0,32,240,32,210:|
00001a00  52 45 4d 20 48 6f 6c 65  20 31 30 0d 0a 00 40 20  |REM Hole 10...@ |
00001a10  dc 20 33 2c 31 35 2c 30  2c 32 34 35 2c 30 2c 31  |. 3,15,0,245,0,1|
00001a20  36 2c 33 32 2c 32 34 35  2c 33 32 2c 31 36 2c 30  |6,32,245,32,16,0|
00001a30  2c 31 35 2c 30 2c 36 36  2c 30 2c 32 30 30 2c 33  |,15,0,66,0,200,3|
00001a40  32 2c 36 36 2c 33 32 2c  32 30 30 0d 0a 0a 48 20  |2,66,32,200...H |
00001a50  dc 20 31 2c 30 2c 32 34  30 2c 32 31 30 2c 32 34  |. 1,0,240,210,24|
00001a60  30 2c 31 33 30 2c 32 35  35 2c 32 31 30 2c 32 35  |0,130,255,210,25|
00001a70  35 2c 31 33 30 2c 31 2c  30 2c 32 34 30 2c 31 36  |5,130,1,0,240,16|
00001a80  2c 32 34 30 2c 31 32 30  2c 32 35 35 2c 31 36 2c  |,240,120,255,16,|
00001a90  32 35 35 0d 0a 14 2c 20  dc 20 31 32 30 2c 31 2c  |255..., . 120,1,|
00001aa0  31 35 2c 33 32 2c 31 36  2c 36 34 2c 31 36 2c 33  |15,32,16,64,16,3|
00001ab0  32 2c 31 33 32 2c 36 34  2c 31 33 32 2c 2d 31 0d  |2,132,64,132,-1.|
00001ac0  0a 1e 40 20 dc 20 31 36  30 2c 39 36 2c 31 36 30  |..@ . 160,96,160|
00001ad0  2c 31 37 36 2c 30 2c 31  32 2c 30 2c 31 35 36 2c  |,176,0,12,0,156,|
00001ae0  30 2c 31 31 36 2c 36 34  2c 31 35 36 2c 36 34 2c  |0,116,64,156,64,|
00001af0  31 31 36 3a 52 45 4d 20  48 6f 6c 65 20 31 31 0d  |116:REM Hole 11.|
00001b00  0a 28 2a 20 dc 20 33 2c  30 2c 31 30 30 2c 31 35  |.(* . 3,0,100,15|
00001b10  36 2c 31 30 30 2c 31 31  36 2c 32 32 30 2c 31 35  |6,100,116,220,15|
00001b20  36 2c 32 32 30 2c 31 31  36 0d 0a 32 28 20 dc 20  |6,220,116..2( . |
00001b30  33 2c 30 2c 31 30 30 2c  32 34 38 2c 31 30 30 2c  |3,0,100,248,100,|
00001b40  32 34 2c 31 34 30 2c 32  34 38 2c 31 34 30 2c 32  |24,140,248,140,2|
00001b50  34 0d 0a 3c 2b 20 dc 20  33 2c 30 2c 31 38 30 2c  |4..<+ . 3,0,180,|
00001b60  32 34 38 2c 31 38 30 2c  32 34 2c 32 32 30 2c 32  |248,180,24,220,2|
00001b70  34 38 2c 32 32 30 2c 32  34 2c 2d 31 0d 0a 46 3c  |48,220,24,-1..F<|
00001b80  20 dc 20 32 35 35 2c 34  34 2c 36 34 2c 34 34 2c  | . 255,44,64,44,|
00001b90  31 2c 31 32 2c 30 2c 31  36 2c 30 2c 32 35 35 2c  |1,12,0,16,0,255,|
00001ba0  36 34 2c 31 36 2c 36 34  2c 32 35 35 3a 52 45 4d  |64,16,64,255:REM|
00001bb0  20 48 6f 6c 65 20 31 32  0d 0a 50 40 20 dc 20 33  | Hole 12..P@ . 3|
00001bc0  2c 31 32 2c 30 2c 32 35  35 2c 30 2c 35 36 2c 36  |,12,0,255,0,56,6|
00001bd0  34 2c 32 35 35 2c 36 34  2c 35 36 2c 32 2c 30 2c  |4,255,64,56,2,0,|
00001be0  34 38 2c 33 32 2c 38 30  2c 33 32 2c 30 2c 31 33  |48,32,80,32,0,13|
00001bf0  36 2c 33 32 2c 31 33 36  0d 0a 5a 46 20 dc 20 32  |6,32,136..ZF . 2|
00001c00  2c 31 34 2c 32 34 30 2c  33 32 2c 31 36 2c 33 32  |,14,240,32,16,32|
00001c10  2c 33 32 2c 31 33 36 2c  36 34 2c 31 33 36 2c 32  |,32,136,64,136,2|
00001c20  2c 31 32 2c 30 2c 31 33  36 2c 33 32 2c 31 30 34  |,12,0,136,32,104|
00001c30  2c 36 34 2c 31 33 36 2c  33 32 2c 31 30 34 0d 0a  |,64,136,32,104..|
00001c40  64 48 20 dc 20 30 2c 30  2c 36 34 2c 31 32 34 2c  |dH . 0,0,64,124,|
00001c50  36 34 2c 31 31 36 2c 32  35 35 2c 31 32 34 2c 32  |64,116,255,124,2|
00001c60  35 35 2c 31 31 36 2c 31  2c 30 2c 36 34 2c 31 31  |55,116,1,0,64,11|
00001c70  36 2c 36 34 2c 31 33 36  2c 38 30 2c 31 31 36 2c  |6,64,136,80,116,|
00001c80  38 30 2c 31 33 36 0d 0a  6e 2a 20 dc 20 31 2c 30  |80,136..n* . 1,0|
00001c90  2c 32 35 35 2c 31 31 36  2c 32 35 35 2c 31 33 36  |,255,116,255,136|
00001ca0  2c 32 34 30 2c 31 31 36  2c 32 34 30 2c 31 33 36  |,240,116,240,136|
00001cb0  0d 0a 78 2d 20 dc 20 31  2c 30 2c 31 36 38 2c 31  |..x- . 1,0,168,1|
00001cc0  32 34 2c 31 36 38 2c 31  30 34 2c 31 35 32 2c 31  |24,168,104,152,1|
00001cd0  32 34 2c 31 35 32 2c 31  30 34 2c 2d 31 0d 0a 82  |24,152,104,-1...|
00001ce0  3e 20 dc 20 32 35 35 2c  31 30 30 2c 32 35 35 2c  |> . 255,100,255,|
00001cf0  31 37 32 2c 31 2c 30 2c  30 2c 31 36 2c 30 2c 32  |172,1,0,0,16,0,2|
00001d00  35 35 2c 36 34 2c 31 36  2c 36 34 2c 32 35 35 3a  |55,64,16,64,255:|
00001d10  52 45 4d 20 48 6f 6c 65  20 31 33 0d 0a 8c 42 20  |REM Hole 13...B |
00001d20  dc 20 31 2c 30 2c 30 2c  31 36 2c 30 2c 38 30 2c  |. 1,0,0,16,0,80,|
00001d30  31 34 34 2c 31 36 2c 31  34 34 2c 38 30 2c 31 2c  |144,16,144,80,1,|
00001d40  30 2c 30 2c 32 35 35 2c  30 2c 31 39 32 2c 31 34  |0,0,255,0,192,14|
00001d50  34 2c 32 35 35 2c 31 34  34 2c 31 39 32 0d 0a 96  |4,255,144,192...|
00001d60  26 20 dc 20 30 2c 30 2c  36 34 2c 38 30 2c 36 34  |& . 0,0,64,80,64|
00001d70  2c 31 39 32 2c 31 34 34  2c 38 30 2c 31 34 34 2c  |,192,144,80,144,|
00001d80  31 39 32 0d 0a a0 2c 20  dc 20 33 2c 31 32 2c 31  |192..., . 3,12,1|
00001d90  30 35 2c 31 32 30 2c 31  30 35 2c 31 35 32 2c 36  |05,120,105,152,6|
00001da0  34 2c 31 32 30 2c 36 34  2c 31 35 32 2c 2d 31 0d  |4,120,64,152,-1.|
00001db0  0a aa 3f 20 dc 20 31 38  2c 32 30 35 2c 32 30 38  |..? . 18,205,208|
00001dc0  2c 34 32 2c 31 2c 31 32  2c 30 2c 31 31 36 2c 30  |,42,1,12,0,116,0|
00001dd0  2c 31 35 36 2c 36 34 2c  31 31 36 2c 36 34 2c 31  |,156,64,116,64,1|
00001de0  35 36 3a 52 45 4d 20 48  6f 6c 65 20 31 34 0d 0a  |56:REM Hole 14..|
00001df0  b4 46 20 dc 20 30 2c 30  2c 33 35 2c 31 36 2c 33  |.F . 0,0,35,16,3|
00001e00  35 2c 32 35 35 2c 39 35  2c 31 36 2c 39 35 2c 32  |5,255,95,16,95,2|
00001e10  35 35 2c 30 2c 30 2c 31  33 30 2c 31 36 2c 31 33  |55,0,0,130,16,13|
00001e20  30 2c 32 35 35 2c 31 39  30 2c 31 36 2c 31 39 30  |0,255,190,16,190|
00001e30  2c 32 35 35 0d 0a be 43  20 dc 20 30 2c 31 32 2c  |,255...C . 0,12,|
00001e40  32 32 35 2c 31 36 2c 32  32 35 2c 32 35 35 2c 32  |225,16,225,255,2|
00001e50  39 2c 31 36 2c 32 39 2c  32 35 35 2c 31 2c 30 2c  |9,16,29,255,1,0,|
00001e60  33 35 2c 31 36 2c 33 35  2c 36 36 2c 39 35 2c 31  |35,16,35,66,95,1|
00001e70  36 2c 39 35 2c 36 36 0d  0a c8 48 20 dc 20 31 2c  |6,95,66...H . 1,|
00001e80  30 2c 31 33 30 2c 31 36  2c 31 33 30 2c 36 36 2c  |0,130,16,130,66,|
00001e90  31 39 30 2c 31 36 2c 31  39 30 2c 36 36 2c 31 2c  |190,16,190,66,1,|
00001ea0  31 32 2c 32 32 35 2c 31  36 2c 32 32 35 2c 36 36  |12,225,16,225,66|
00001eb0  2c 32 39 2c 31 36 2c 32  39 2c 36 36 2c 2d 31 0d  |,29,16,29,66,-1.|
00001ec0  0a d2 3d 20 dc 20 32 35  35 2c 35 36 2c 32 35 35  |..= . 255,56,255|
00001ed0  2c 32 31 36 2c 31 2c 30  2c 30 2c 31 36 2c 30 2c  |,216,1,0,0,16,0,|
00001ee0  32 35 35 2c 31 36 2c 31  36 2c 31 36 2c 32 35 35  |255,16,16,16,255|
00001ef0  3a 52 45 4d 20 48 6f 6c  65 20 31 35 0d 0a dc 47  |:REM Hole 15...G|
00001f00  20 dc 20 33 2c 31 32 2c  33 32 2c 31 36 2c 33 32  | . 3,12,32,16,32|
00001f10  2c 32 35 35 2c 36 34 2c  31 36 2c 36 34 2c 32 35  |,255,64,16,64,25|
00001f20  35 2c 30 2c 30 2c 33 32  2c 32 32 34 2c 33 32 2c  |5,0,0,32,224,32,|
00001f30  32 30 38 2c 32 35 35 2c  32 32 34 2c 32 35 35 2c  |208,255,224,255,|
00001f40  32 30 38 0d 0a e6 44 20  dc 20 30 2c 30 2c 33 32  |208...D . 0,0,32|
00001f50  2c 34 38 2c 33 32 2c 36  34 2c 32 35 35 2c 34 38  |,48,32,64,255,48|
00001f60  2c 32 35 35 2c 36 34 2c  31 2c 30 2c 33 32 2c 32  |,255,64,1,0,32,2|
00001f70  32 34 2c 33 32 2c 32 30  38 2c 36 34 2c 32 32 34  |24,32,208,64,224|
00001f80  2c 36 34 2c 32 30 38 0d  0a f0 44 20 dc 20 31 2c  |,64,208...D . 1,|
00001f90  30 2c 33 32 2c 34 38 2c  33 32 2c 36 34 2c 36 34  |0,32,48,32,64,64|
00001fa0  2c 34 38 2c 36 34 2c 36  34 2c 32 2c 30 2c 33 32  |,48,64,64,2,0,32|
00001fb0  2c 32 30 38 2c 33 32 2c  31 33 36 2c 31 32 38 2c  |,208,32,136,128,|
00001fc0  32 30 38 2c 31 32 38 2c  32 30 38 0d 0a fa 48 20  |208,128,208...H |
00001fd0  dc 20 32 2c 30 2c 33 32  2c 36 34 2c 33 32 2c 31  |. 2,0,32,64,32,1|
00001fe0  33 36 2c 31 32 38 2c 36  34 2c 31 32 38 2c 36 34  |36,128,64,128,64|
00001ff0  2c 32 2c 31 32 2c 32 34  30 2c 32 32 34 2c 32 34  |,2,12,240,224,24|
00002000  30 2c 32 30 38 2c 31 36  2c 32 32 34 2c 31 36 2c  |0,208,16,224,16,|
00002010  32 30 38 0d 0b 04 46 20  dc 20 32 2c 31 32 2c 32  |208...F . 2,12,2|
00002020  34 30 2c 34 38 2c 32 34  30 2c 36 34 2c 31 36 2c  |40,48,240,64,16,|
00002030  34 38 2c 31 36 2c 36 34  2c 31 2c 31 35 2c 31 36  |48,16,64,1,15,16|
00002040  2c 32 32 34 2c 31 36 2c  32 30 38 2c 36 34 2c 32  |,224,16,208,64,2|
00002050  32 34 2c 36 34 2c 32 30  38 0d 0b 0e 26 20 dc 20  |24,64,208...& . |
00002060  31 2c 31 35 2c 31 36 2c  34 38 2c 31 36 2c 36 34  |1,15,16,48,16,64|
00002070  2c 36 34 2c 34 38 2c 36  34 2c 36 34 2c 2d 31 0d  |,64,48,64,64,-1.|
00002080  0b 18 3d 20 dc 20 32 35  35 2c 31 32 38 2c 36 38  |..= . 255,128,68|
00002090  2c 38 30 2c 33 2c 31 32  2c 30 2c 31 36 2c 30 2c  |,80,3,12,0,16,0,|
000020a0  32 35 35 2c 36 34 2c 31  36 2c 36 34 2c 32 35 35  |255,64,16,64,255|
000020b0  3a 52 45 4d 20 48 6f 6c  65 20 31 36 0d 0b 22 41  |:REM Hole 16.."A|
000020c0  20 dc 20 30 2c 31 32 2c  30 2c 31 34 34 2c 30 2c  | . 0,12,0,144,0,|
000020d0  31 38 34 2c 32 30 2c 31  34 34 2c 32 30 2c 31 38  |184,20,144,20,18|
000020e0  34 2c 30 2c 30 2c 30 2c  31 36 2c 30 2c 31 35 30  |4,0,0,0,16,0,150|
000020f0  2c 38 38 2c 31 36 2c 38  38 2c 31 35 30 0d 0b 2c  |,88,16,88,150..,|
00002100  3e 20 dc 20 31 2c 30 2c  30 2c 31 36 2c 30 2c 31  |> . 1,0,0,16,0,1|
00002110  38 34 2c 34 38 2c 31 36  2c 34 38 2c 31 38 34 2c  |84,48,16,48,184,|
00002120  31 2c 30 2c 30 2c 31 36  2c 30 2c 39 36 2c 31 33  |1,0,0,16,0,96,13|
00002130  36 2c 31 36 2c 31 33 36  2c 39 36 0d 0b 36 41 20  |6,16,136,96..6A |
00002140  dc 20 32 2c 30 2c 34 38  2c 36 34 2c 34 38 2c 39  |. 2,0,48,64,48,9|
00002150  36 2c 38 38 2c 36 34 2c  38 38 2c 39 36 2c 31 2c  |6,88,64,88,96,1,|
00002160  31 35 2c 32 30 2c 31 38  34 2c 36 34 2c 31 38 34  |15,20,184,64,184|
00002170  2c 32 30 2c 36 34 2c 36  34 2c 36 34 0d 0b 40 26  |,20,64,64,64..@&|
00002180  20 dc 20 31 2c 33 2c 36  34 2c 36 34 2c 36 34 2c  | . 1,3,64,64,64,|
00002190  31 34 34 2c 31 34 34 2c  36 34 2c 31 34 34 2c 31  |144,144,64,144,1|
000021a0  34 34 0d 0b 4a 2c 20 dc  20 32 2c 31 32 2c 32 34  |44..J, . 2,12,24|
000021b0  34 2c 31 34 33 2c 32 34  34 2c 31 31 31 2c 32 30  |4,143,244,111,20|
000021c0  2c 31 34 33 2c 32 30 2c  31 31 31 2c 2d 31 0d 0b  |,143,20,111,-1..|
000021d0  54 3d 20 dc 20 36 34 2c  31 39 36 2c 32 35 35 2c  |T= . 64,196,255,|
000021e0  37 36 2c 33 2c 31 32 2c  30 2c 31 36 2c 30 2c 32  |76,3,12,0,16,0,2|
000021f0  35 35 2c 36 34 2c 31 36  2c 36 34 2c 32 35 35 3a  |55,64,16,64,255:|
00002200  52 45 4d 20 48 6f 6c 65  20 31 37 0d 0b 5e 45 20  |REM Hole 17..^E |
00002210  dc 20 31 2c 30 2c 30 2c  32 35 35 2c 30 2c 31 33  |. 1,0,0,255,0,13|
00002220  36 2c 38 30 2c 32 35 35  2c 38 30 2c 31 33 36 2c  |6,80,255,80,136,|
00002230  31 2c 31 32 2c 32 34 30  2c 31 36 2c 32 34 30 2c  |1,12,240,16,240,|
00002240  31 33 36 2c 36 34 2c 31  36 2c 36 34 2c 31 33 36  |136,64,16,64,136|
00002250  0d 0b 68 4a 20 dc 20 30  2c 30 2c 38 30 2c 32 31  |..hJ . 0,0,80,21|
00002260  35 2c 38 30 2c 31 37 35  2c 31 38 30 2c 32 31 35  |5,80,175,180,215|
00002270  2c 31 38 30 2c 31 37 35  2c 30 2c 30 2c 31 34 30  |,180,175,0,0,140|
00002280  2c 32 31 35 2c 31 38 30  2c 32 31 35 2c 31 34 30  |,215,180,215,140|
00002290  2c 35 36 2c 31 38 30 2c  35 36 0d 0b 72 45 20 dc  |,56,180,56..rE .|
000022a0  20 30 2c 30 2c 31 34 30  2c 35 36 2c 31 34 30 2c  | 0,0,140,56,140,|
000022b0  39 36 2c 32 35 35 2c 35  36 2c 32 35 35 2c 39 36  |96,255,56,255,96|
000022c0  2c 32 2c 31 32 2c 32 34  30 2c 35 36 2c 32 34 30  |,2,12,240,56,240|
000022d0  2c 39 36 2c 32 34 2c 35  36 2c 32 34 2c 39 36 0d  |,96,24,56,24,96.|
000022e0  0b 7c 29 20 dc 20 32 2c  30 2c 34 30 2c 32 31 35  |.|) . 2,0,40,215|
000022f0  2c 34 30 2c 31 37 35 2c  38 30 2c 32 31 35 2c 38  |,40,175,80,215,8|
00002300  30 2c 31 37 35 2c 2d 31  0d 0b 86 3c 20 dc 20 32  |0,175,-1...< . 2|
00002310  35 35 2c 34 34 2c 36 34  2c 34 34 2c 31 2c 31 32  |55,44,64,44,1,12|
00002320  2c 30 2c 31 36 2c 30 2c  32 35 35 2c 36 34 2c 31  |,0,16,0,255,64,1|
00002330  36 2c 36 34 2c 32 35 35  3a 52 45 4d 20 48 6f 6c  |6,64,255:REM Hol|
00002340  65 20 31 38 0d 0b 90 40  20 dc 20 33 2c 31 32 2c  |e 18...@ . 3,12,|
00002350  30 2c 32 35 35 2c 30 2c  35 36 2c 36 34 2c 32 35  |0,255,0,56,64,25|
00002360  35 2c 36 34 2c 35 36 2c  32 2c 30 2c 34 38 2c 33  |5,64,56,2,0,48,3|
00002370  32 2c 38 30 2c 33 32 2c  30 2c 31 33 36 2c 33 32  |2,80,32,0,136,32|
00002380  2c 31 33 36 0d 0b 9a 46  20 dc 20 32 2c 31 34 2c  |,136...F . 2,14,|
00002390  32 34 30 2c 33 32 2c 31  36 2c 33 32 2c 33 32 2c  |240,32,16,32,32,|
000023a0  31 33 36 2c 36 34 2c 31  33 36 2c 30 2c 31 32 2c  |136,64,136,0,12,|
000023b0  30 2c 31 33 36 2c 33 32  2c 31 30 34 2c 36 34 2c  |0,136,32,104,64,|
000023c0  31 33 36 2c 33 32 2c 31  30 34 0d 0b a4 26 20 dc  |136,32,104...& .|
000023d0  20 31 2c 30 2c 36 34 2c  31 31 36 2c 36 34 2c 31  | 1,0,64,116,64,1|
000023e0  33 36 2c 38 30 2c 31 31  36 2c 38 30 2c 31 33 36  |36,80,116,80,136|
000023f0  0d 0b ae 2a 20 dc 20 31  2c 30 2c 32 35 35 2c 31  |...* . 1,0,255,1|
00002400  31 36 2c 32 35 35 2c 31  33 36 2c 32 34 30 2c 31  |16,255,136,240,1|
00002410  31 36 2c 32 34 30 2c 31  33 36 0d 0b b8 2d 20 dc  |16,240,136...- .|
00002420  20 31 2c 30 2c 31 36 38  2c 31 32 34 2c 31 36 38  | 1,0,168,124,168|
00002430  2c 31 30 34 2c 31 35 32  2c 31 32 34 2c 31 35 32  |,104,152,124,152|
00002440  2c 31 30 34 2c 2d 31 0d  0b c2 06 20 3a 0d 0b cc  |,104,-1.... :...|
00002450  0c 20 dd f2 72 65 6c 6f  63 0d 0b d6 17 20 f1 22  |. ..reloc.... ."|
00002460  52 65 6c 6f 63 61 74 69  6e 67 2e 20 2e 20 2e 22  |Relocating. . ."|
00002470  0d 0b e0 0c 20 3f 26 37  38 3d 34 35 0d 0b ea 0c  |.... ?&78=45....|
00002480  20 d3 3d 26 35 38 30 30  0d 0b f4 15 20 e3 20 70  | .=&5800.... . p|
00002490  61 73 73 3d 30 20 b8 20  32 20 88 20 32 0d 0b fe  |ass=0 . 2 . 2...|
000024a0  0c 20 50 25 3d 26 43 30  30 0d 0c 08 0d 20 5b 4f  |. P%=&C00.... [O|
000024b0  50 54 70 61 73 73 0d 0c  12 0e 20 20 20 20 20 4c  |PTpass....     L|
000024c0  44 59 23 30 0d 0c 1c 0f  20 20 20 20 20 53 54 59  |DY#0....     STY|
000024d0  26 37 30 0d 0c 26 0f 20  20 20 20 20 53 54 59 26  |&70..&.     STY&|
000024e0  37 32 0d 0c 30 10 20 20  20 20 20 4c 44 41 23 26  |72..0.     LDA#&|
000024f0  31 37 0d 0c 3a 0c 20 20  20 20 20 53 45 43 0d 0c  |17..:.     SEC..|
00002500  44 0f 20 20 20 20 20 53  42 43 26 31 38 0d 0c 4e  |D.     SBC&18..N|
00002510  0f 20 20 20 20 20 53 54  41 26 37 34 0d 0c 58 0f  |.     STA&74..X.|
00002520  20 20 20 20 20 4c 44 41  26 31 38 0d 0c 62 10 20  |     LDA&18..b. |
00002530  20 20 20 20 43 4d 50 23  26 31 37 0d 0c 6c 0e 20  |    CMP#&17..l. |
00002540  20 20 20 20 42 43 43 61  64 0d 0c 76 0f 20 2e 73  |    BCCad..v. .s|
00002550  62 20 53 54 41 26 37 31  0d 0c 80 10 20 20 20 20  |b STA&71....    |
00002560  20 4c 44 41 23 26 31 37  0d 0c 8a 0f 20 20 20 20  | LDA#&17....    |
00002570  20 53 54 41 26 37 33 0d  0c 94 13 20 2e 6d 31 20  | STA&73.... .m1 |
00002580  4c 44 41 28 26 37 30 29  2c 59 0d 0c 9e 13 20 20  |LDA(&70),Y....  |
00002590  20 20 20 53 54 41 28 26  37 32 29 2c 59 0d 0c a8  |   STA(&72),Y...|
000025a0  0c 20 20 20 20 20 49 4e  59 0d 0c b2 0e 20 20 20  |.     INY....   |
000025b0  20 20 42 4e 45 6d 31 0d  0c bc 0f 20 20 20 20 20  |  BNEm1....     |
000025c0  49 4e 43 26 37 31 0d 0c  c6 0f 20 20 20 20 20 49  |INC&71....     I|
000025d0  4e 43 26 37 33 0d 0c d0  0f 20 20 20 20 20 4c 44  |NC&73....     LD|
000025e0  58 26 37 31 0d 0c da 0c  20 20 20 20 20 44 45 58  |X&71....     DEX|
000025f0  0d 0c e4 0f 20 20 20 20  20 43 50 58 26 30 33 0d  |....     CPX&03.|
00002600  0c ee 0e 20 20 20 20 20  42 43 43 6d 31 0d 0c f8  |...     BCCm1...|
00002610  0e 20 20 20 20 20 42 43  53 65 6d 0d 0d 02 0f 20  |.     BCSem.... |
00002620  2e 61 64 20 4c 44 41 26  30 33 0d 0d 0c 0f 20 20  |.ad LDA&03....  |
00002630  20 20 20 53 54 41 26 37  31 0d 0d 16 0c 20 20 20  |   STA&71....   |
00002640  20 20 43 4c 43 0d 0d 20  0f 20 20 20 20 20 41 44  |  CLC.. .     AD|
00002650  43 26 37 34 0d 0d 2a 0f  20 20 20 20 20 53 54 41  |C&74..*.     STA|
00002660  26 37 33 0d 0d 34 0e 20  20 20 20 20 4c 44 41 23  |&73..4.     LDA#|
00002670  30 0d 0d 3e 0f 20 20 20  20 20 4c 44 59 26 30 32  |0..>.     LDY&02|
00002680  0d 0d 48 13 20 2e 6d 32  20 4c 44 41 28 26 37 30  |..H. .m2 LDA(&70|
00002690  29 2c 59 0d 0d 52 13 20  20 20 20 20 53 54 41 28  |),Y..R.     STA(|
000026a0  26 37 32 29 2c 59 0d 0d  5c 0c 20 20 20 20 20 44  |&72),Y..\.     D|
000026b0  45 59 0d 0d 66 10 20 20  20 20 20 43 50 59 23 26  |EY..f.     CPY#&|
000026c0  46 46 0d 0d 70 0e 20 20  20 20 20 42 4e 45 6d 32  |FF..p.     BNEm2|
000026d0  0d 0d 7a 0f 20 20 20 20  20 44 45 43 26 37 31 0d  |..z.     DEC&71.|
000026e0  0d 84 0f 20 20 20 20 20  44 45 43 26 37 33 0d 0d  |...     DEC&73..|
000026f0  8e 0f 20 20 20 20 20 4c  44 41 26 37 33 0d 0d 98  |..     LDA&73...|
00002700  10 20 20 20 20 20 43 4d  50 23 26 31 36 0d 0d a2  |.     CMP#&16...|
00002710  0e 20 20 20 20 20 42 43  53 6d 32 0d 0d ac 0f 20  |.     BCSm2.... |
00002720  2e 65 6d 20 4c 44 41 26  31 33 0d 0d b6 0c 20 20  |.em LDA&13....  |
00002730  20 20 20 43 4c 43 0d 0d  c0 0f 20 20 20 20 20 41  |   CLC....     A|
00002740  44 43 26 37 34 0d 0d ca  0f 20 20 20 20 20 53 54  |DC&74....     ST|
00002750  41 26 31 33 0d 0d d4 0f  20 20 20 20 20 53 54 41  |A&13....     STA|
00002760  26 30 31 0d 0d de 10 20  20 20 20 20 4c 44 41 23  |&01....     LDA#|
00002770  26 31 37 0d 0d e8 0f 20  20 20 20 20 53 54 41 26  |&17....     STA&|
00002780  31 38 0d 0d f2 0c 20 20  20 20 20 52 54 53 0d 0d  |18....     RTS..|
00002790  fc 06 20 5d 0d 0e 06 06  20 ed 0d 0e 10 09 20 ef  |.. ].... ..... .|
000027a0  20 32 31 0d 0e 1a 32 20  ff 22 4b 45 59 20 30 22  | 21...2 ."KEY 0"|
000027b0  22 43 41 4c 4c 26 43 30  30 7c 4d 52 55 4e 7c 46  |"CALL&C00|MRUN|F|
000027c0  7c 4d 22 22 22 3a ff 22  46 58 20 31 35 33 2c 30  ||M""":."FX 153,0|
000027d0  2c 31 32 38 22 0d 0e 24  06 20 e0 0d 0e 2e 06 20  |,128"..$. ..... |
000027e0  e1 0d 0e 38 06 20 3a 0d  0e 42 0a 20 dd f2 61 73  |...8. :..B. ..as|
000027f0  73 0d 0e 4c 11 20 6f 73  62 79 74 65 3d 26 46 46  |s..L. osbyte=&FF|
00002800  46 34 0d 0e 56 11 20 6f  73 77 72 63 68 3d 26 46  |F4..V. oswrch=&F|
00002810  46 45 45 0d 0e 60 12 20  e3 20 58 3d 30 20 b8 20  |FEE..`. . X=0 . |
00002820  32 20 88 20 32 0d 0e 6a  0d 20 50 25 3d 26 31 36  |2 . 2..j. P%=&16|
00002830  30 30 0d 0e 74 0b 20 5b  4f 50 54 20 58 0d 0e 7e  |00..t. [OPT X..~|
00002840  10 20 20 20 20 20 4c 44  59 23 26 30 36 0d 0e 88  |.     LDY#&06...|
00002850  0f 20 20 20 20 20 53 54  59 26 37 32 0d 0e 92 10  |.     STY&72....|
00002860  20 20 20 20 20 4c 44 59  23 26 30 30 0d 0e 9c 0f  |     LDY#&00....|
00002870  20 20 20 20 20 53 54 59  26 37 33 0d 0e a6 0f 20  |     STY&73.... |
00002880  20 20 20 20 53 54 59 26  37 30 0d 0e b0 0e 20 2e  |    STY&70.... .|
00002890  6c 63 20 4a 53 52 63 69  0d 0e ba 10 20 2e 6c 62  |lc JSRci.... .lb|
000028a0  20 4c 44 58 23 26 33 30  0d 0e c4 0f 20 20 20 20  | LDX#&30....    |
000028b0  20 53 54 58 26 37 31 0d  0e ce 13 20 2e 6c 20 20  | STX&71.... .l  |
000028c0  4c 44 41 28 26 37 30 29  2c 59 0d 0e d8 0e 20 20  |LDA(&70),Y....  |
000028d0  20 20 20 82 23 26 30 46  0d 0e e2 13 20 20 20 20  |   .#&0F....    |
000028e0  20 53 54 41 28 26 37 30  29 2c 59 0d 0e ec 0c 20  | STA(&70),Y.... |
000028f0  20 20 20 20 54 59 41 0d  0e f6 0c 20 20 20 20 20  |    TYA....     |
00002900  43 4c 43 0d 0f 00 10 20  20 20 20 20 41 44 43 23  |CLC....     ADC#|
00002910  26 30 38 0d 0f 0a 0c 20  20 20 20 20 54 41 59 0d  |&08....     TAY.|
00002920  0f 14 10 20 20 20 20 20  43 50 59 23 26 30 38 0d  |...     CPY#&08.|
00002930  0f 1e 0d 20 20 20 20 20  42 43 53 6c 0d 0f 28 0f  |...     BCSl..(.|
00002940  20 20 20 20 20 49 4e 43  26 37 31 0d 0f 32 0f 20  |     INC&71..2. |
00002950  20 20 20 20 4c 44 58 26  37 31 0d 0f 3c 10 20 20  |    LDX&71..<.  |
00002960  20 20 20 43 50 58 23 26  38 30 0d 0f 46 0d 20 20  |   CPX#&80..F.  |
00002970  20 20 20 42 4e 45 6c 0d  0f 50 0c 20 20 20 20 20  |   BNEl..P.     |
00002980  49 4e 59 0d 0f 5a 10 20  20 20 20 20 43 50 59 23  |INY..Z.     CPY#|
00002990  26 30 38 0d 0f 64 0e 20  20 20 20 20 42 4e 45 6c  |&08..d.     BNEl|
000029a0  62 0d 0f 6e 0e 20 20 20  20 20 42 45 51 6c 63 0d  |b..n.     BEQlc.|
000029b0  0f 78 10 20 2e 63 69 20  4c 44 41 23 26 38 31 0d  |.x. .ci LDA#&81.|
000029c0  0f 82 10 20 20 20 20 20  4c 44 58 23 26 30 31 0d  |...     LDX#&01.|
000029d0  0f 8c 10 20 20 20 20 20  4c 44 59 23 26 30 30 0d  |...     LDY#&00.|
000029e0  0f 96 13 20 20 20 20 20  4a 53 52 20 6f 73 62 79  |...     JSR osby|
000029f0  74 65 0d 0f a0 10 20 20  20 20 20 43 50 58 23 26  |te....     CPX#&|
00002a00  30 44 0d 0f aa 0e 20 20  20 20 20 42 4e 45 63 6e  |0D....     BNEcn|
00002a10  0d 0f b4 0c 20 20 20 20  20 50 4c 41 0d 0f be 0c  |....     PLA....|
00002a20  20 20 20 20 20 50 4c 41  0d 0f c8 0c 20 20 20 20  |     PLA....    |
00002a30  20 52 54 53 0d 0f d2 0f  20 2e 63 6e 20 4c 44 58  | RTS.... .cn LDX|
00002a40  26 37 32 0d 0f dc 0c 20  20 20 20 20 49 4e 58 0d  |&72....     INX.|
00002a50  0f e6 10 20 20 20 20 20  43 50 58 23 26 30 37 0d  |...     CPX#&07.|
00002a60  0f f0 0e 20 20 20 20 20  42 4e 45 63 62 0d 0f fa  |...     BNEcb...|
00002a70  10 20 20 20 20 20 4c 44  58 23 26 30 33 0d 10 04  |.     LDX#&03...|
00002a80  0f 20 2e 63 62 20 53 54  58 26 37 32 0d 10 0e 0f  |. .cb STX&72....|
00002a90  20 20 20 20 20 4c 44 41  26 37 33 0d 10 18 0e 20  |     LDA&73.... |
00002aa0  20 20 20 20 82 23 26 30  31 0d 10 22 0f 20 20 20  |    .#&01..".   |
00002ab0  20 20 53 54 41 26 37 33  0d 10 2c 10 20 20 20 20  |  STA&73..,.    |
00002ac0  20 4c 44 41 23 26 31 33  0d 10 36 12 20 20 20 20  | LDA#&13..6.    |
00002ad0  20 4a 53 52 6f 73 77 72  63 68 0d 10 40 0f 20 20  | JSRoswrch..@.  |
00002ae0  20 20 20 4c 44 59 26 37  33 0d 10 4a 0c 20 20 20  |   LDY&73..J.   |
00002af0  20 20 49 4e 59 0d 10 54  0c 20 20 20 20 20 49 4e  |  INY..T.     IN|
00002b00  59 0d 10 5e 0c 20 20 20  20 20 54 59 41 0d 10 68  |Y..^.     TYA..h|
00002b10  12 20 20 20 20 20 4a 53  52 6f 73 77 72 63 68 0d  |.     JSRoswrch.|
00002b20  10 72 0c 20 20 20 20 20  54 58 41 0d 10 7c 12 20  |.r.     TXA..|. |
00002b30  20 20 20 20 4a 53 52 6f  73 77 72 63 68 0d 10 86  |    JSRoswrch...|
00002b40  0e 20 20 20 20 20 4a 53  52 6e 6c 0d 10 90 10 20  |.     JSRnl.... |
00002b50  20 20 20 20 4c 44 41 23  26 31 33 0d 10 9a 12 20  |    LDA#&13.... |
00002b60  20 20 20 20 4a 53 52 6f  73 77 72 63 68 0d 10 a4  |    JSRoswrch...|
00002b70  0f 20 20 20 20 20 4c 44  41 26 37 33 0d 10 ae 12  |.     LDA&73....|
00002b80  20 20 20 20 20 4a 53 52  6f 73 77 72 63 68 0d 10  |     JSRoswrch..|
00002b90  b8 0c 20 20 20 20 20 44  45 58 0d 10 c2 0c 20 20  |..     DEX....  |
00002ba0  20 20 20 44 45 58 0d 10  cc 0c 20 20 20 20 20 54  |   DEX....     T|
00002bb0  58 41 0d 10 d6 12 20 20  20 20 20 4a 53 52 6f 73  |XA....     JSRos|
00002bc0  77 72 63 68 0d 10 e0 0e  20 20 20 20 20 4a 53 52  |wrch....     JSR|
00002bd0  6e 6c 0d 10 ea 10 20 20  20 20 20 4c 44 59 23 26  |nl....     LDY#&|
00002be0  30 30 0d 10 f4 0c 20 20  20 20 20 52 54 53 0d 10  |00....     RTS..|
00002bf0  fe 10 20 2e 6e 6c 20 4c  44 41 23 26 30 30 0d 11  |.. .nl LDA#&00..|
00002c00  08 12 20 20 20 20 20 4a  53 52 6f 73 77 72 63 68  |..     JSRoswrch|
00002c10  0d 11 12 12 20 20 20 20  20 4a 53 52 6f 73 77 72  |....     JSRoswr|
00002c20  63 68 0d 11 1c 12 20 20  20 20 20 4a 53 52 6f 73  |ch....     JSRos|
00002c30  77 72 63 68 0d 11 26 12  20 20 20 20 20 4a 4d 50  |wrch..&.     JMP|
00002c40  6f 73 77 72 63 68 0d 11  30 06 20 5d 0d 11 3a 06  |oswrch..0. ]..:.|
00002c50  20 ed 0d 11 44 06 20 e1  0d 11 4e 06 20 3a 0d 11  | ...D. ...N. :..|
00002c60  58 0f 20 dd f2 69 6e 73  74 72 65 61 64 0d 11 62  |X. ..instread..b|
00002c70  0f 20 61 64 3d 69 6e 73  70 61 63 65 0d 11 6c 0b  |. ad=inspace..l.|
00002c80  20 f7 20 8d 64 5a 51 0d  11 76 06 20 f5 0d 11 80  | . .dZQ..v. ....|
00002c90  0a 20 f3 20 64 69 24 0d  11 8a 12 20 e3 78 3d 31  |. . di$.... .x=1|
00002ca0  20 b8 20 a9 28 64 69 24  29 0d 11 94 15 20 3f 61  | . .(di$).... ?a|
00002cb0  64 3d 97 28 c1 64 69 24  2c 78 2c 31 29 29 0d 11  |d=.(.di$,x,1))..|
00002cc0  9e 0c 20 61 64 3d 61 64  2b 31 0d 11 a8 06 20 ed  |.. ad=ad+1.... .|
00002cd0  0d 11 b2 0f 20 fd 20 a9  28 64 69 24 29 3d 30 0d  |.... . .(di$)=0.|
00002ce0  11 bc 0a 20 3f 61 64 3d  30 0d 11 c6 06 20 e1 0d  |... ?ad=0.... ..|
00002cf0  11 d0 06 20 3a 0d 11 da  c2 20 dc 20 22 53 70 61  |... :.... . "Spa|
00002d00  63 65 47 6f 6c 66 20 69  73 20 61 20 6e 65 77 20  |ceGolf is a new |
00002d10  76 65 72 73 69 6f 6e 20  6f 66 20 67 6f 6c 66 20  |version of golf |
00002d20  74 68 61 74 20 69 73 20  70 6c 61 79 65 64 20 69  |that is played i|
00002d30  6e 20 61 6e 20 61 72 65  61 20 77 68 65 72 65 20  |n an area where |
00002d40  74 68 65 72 65 20 69 73  20 6e 6f 20 66 72 69 63  |there is no fric|
00002d50  74 69 6f 6e 2e 20 41 73  20 77 69 74 68 20 6e 6f  |tion. As with no|
00002d60  72 6d 61 6c 20 67 6f 6c  66 20 74 68 65 20 61 69  |rmal golf the ai|
00002d70  6d 20 69 73 20 74 6f 20  67 65 74 20 74 68 65 20  |m is to get the |
00002d80  62 61 6c 6c 20 69 6e 74  6f 20 74 68 65 20 68 6f  |ball into the ho|
00002d90  6c 65 2c 20 61 76 6f 69  64 69 6e 67 20 6f 62 73  |le, avoiding obs|
00002da0  74 61 63 6c 65 73 20 61  6c 6f 6e 67 20 74 68 65  |tacles along the|
00002db0  20 77 61 79 2c 20 22 0d  11 e4 b9 20 dc 20 22 62  | way, ".... . "b|
00002dc0  75 74 20 74 68 65 20 6d  65 61 6e 73 20 6f 66 20  |ut the means of |
00002dd0  64 6f 69 6e 67 20 74 68  69 73 20 61 72 65 20 76  |doing this are v|
00002de0  65 72 79 20 64 69 66 66  65 72 65 6e 74 2e 20 59  |ery different. Y|
00002df0  6f 75 20 6d 75 73 74 20  62 6f 61 73 74 20 74 68  |ou must boast th|
00002e00  65 20 62 61 6c 6c 20 28  61 20 72 65 64 20 66 6c  |e ball (a red fl|
00002e10  69 63 6b 65 72 69 6e 67  20 64 6f 74 29 20 75 70  |ickering dot) up|
00002e20  2c 20 64 6f 77 6e 2c 20  6c 65 66 74 2c 20 61 6e  |, down, left, an|
00002e30  64 20 72 69 67 68 74 2c  20 61 6e 64 20 73 6f 20  |d right, and so |
00002e40  67 65 74 20 69 74 20 74  6f 20 74 68 65 20 68 6f  |get it to the ho|
00002e50  6c 65 20 28 61 20 72 65  64 20 6e 6f 6e 2d 66 6c  |le (a red non-fl|
00002e60  69 63 6b 65 72 69 6e 67  20 64 6f 74 29 2e 20 22  |ickering dot). "|
00002e70  0d 11 ee df 20 dc 20 22  41 6c 6f 6e 67 20 74 68  |.... . "Along th|
00002e80  65 20 77 61 79 20 79 6f  75 20 77 69 6c 6c 20 66  |e way you will f|
00002e90  69 6e 64 20 61 20 6e 75  6d 62 65 72 20 6f 66 20  |ind a number of |
00002ea0  6f 62 73 74 61 63 6c 65  73 20 74 68 61 74 20 68  |obstacles that h|
00002eb0  61 76 65 20 64 69 66 66  65 72 65 6e 74 20 65 66  |ave different ef|
00002ec0  66 65 63 74 73 20 6f 6e  20 79 6f 75 72 20 62 61  |fects on your ba|
00002ed0  6c 6c 2e 20 59 6f 75 20  63 61 6e 20 74 65 6c 6c  |ll. You can tell|
00002ee0  20 77 68 61 74 20 65 66  66 65 63 74 20 74 68 65  | what effect the|
00002ef0  20 6f 62 73 74 61 63 6c  65 20 77 69 6c 6c 20 68  | obstacle will h|
00002f00  61 76 65 20 62 79 20 77  68 61 74 20 63 6f 6c 6f  |ave by what colo|
00002f10  75 72 20 69 74 20 69 73  3a 20 52 45 44 20 2d 20  |ur it is: RED - |
00002f20  44 65 66 6c 65 63 74 73  20 79 6f 75 72 20 62 61  |Deflects your ba|
00002f30  6c 6c 2c 20 42 4c 41 43  4b 20 2d 20 42 6f 61 73  |ll, BLACK - Boas|
00002f40  74 73 20 79 6f 75 72 20  62 61 6c 6c 2c 20 22 0d  |ts your ball, ".|
00002f50  11 f8 e2 20 dc 20 22 47  52 45 45 4e 20 2d 20 49  |... . "GREEN - I|
00002f60  73 20 74 68 65 20 66 61  69 72 77 61 79 2c 20 42  |s the fairway, B|
00002f70  4c 55 45 20 2d 20 57 61  74 65 72 20 28 61 76 6f  |LUE - Water (avo|
00002f80  69 64 20 74 68 69 73 20  61 74 20 61 6c 6c 20 63  |id this at all c|
00002f90  6f 73 74 73 29 2e 20 54  68 65 20 64 65 66 61 75  |osts). The defau|
00002fa0  6c 74 20 6b 65 79 73 20  61 72 65 3a 20 5a 20 2d  |lt keys are: Z -|
00002fb0  20 4c 65 66 74 2c 20 58  20 2d 20 52 69 67 68 74  | Left, X - Right|
00002fc0  2c 20 2a 20 2d 20 55 70  2c 20 3f 20 2d 20 44 6f  |, * - Up, ? - Do|
00002fd0  77 6e 2c 20 50 20 2d 20  50 61 75 73 65 2c 20 53  |wn, P - Pause, S|
00002fe0  20 2d 20 43 68 65 61 74  21 2c 20 51 20 28 77 68  | - Cheat!, Q (wh|
00002ff0  69 6c 65 20 70 61 75 73  65 64 29 20 2d 20 51 75  |ile paused) - Qu|
00003000  69 74 2e 20 20 20 20 20  20 20 20 20 20 20 20 20  |it.             |
00003010  20 20 20 48 41 56 45 20  46 55 4e 21 21 20 20 20  |   HAVE FUN!!   |
00003020  20 20 20 20 20 20 20 20  20 20 20 20 20 22 2c 22  |             ","|
00003030  22 0d ff                                          |"..|
00003033
SpaceGArc.m0
SpaceGArc.m1
SpaceGArc.m2
SpaceGArc.m4
SpaceGArc.m5