Home » Archimedes archive » Archimedes World » AW-1992-09.adf » AWSept92 » !AWSept92/Goodies/Roadhog/!RoadHog/!RunImage

!AWSept92/Goodies/Roadhog/!RoadHog/!RunImage

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 » Archimedes archive » Archimedes World » AW-1992-09.adf » AWSept92
Filename: !AWSept92/Goodies/Roadhog/!RoadHog/!RunImage
Read OK:
File size: 423B bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > <RoadHog$Dir>.!RunImage
   20REM Roadhog main code
   30REM (c) Michael Cook 1991
   40:
   50PRINT'"Roadhog is loading."
   60PRINT'"Please wait..."
   70OFF
   80SYS "OS_UpdateMEMC",64,64
   90DIM sp% &15000
  100!sp%=&15000
  110sp%!4=0
  120sp%!12=16
  130sprop%=&2E
  140SYS sprop%,266,sp%,"<RoadHog$Dir>.Sprites"
  150DIM A$(9)
  160DIM hiscore%(9)
  170DIM name$(9)
  180DIM initial$(3)
  190mlevel%=11
  200DIM delay%(mlevel%)
  210RESTORE 7610
  220FOR I=1 TO mlevel%-1
  230READ ds%
  240delay%(I)=ds%
  250NEXT
  260VOICES 4
  270:
  280REPEAT
  290ON ERROR PRINT TAB(0,15);:END
  300MODE15:OFF
  310PROCdisplay
  320REPEAT UNTIL INKEY -99
  330ON ERROR IF ERR=17 THEN PROChiscore:GOTO 280 ELSE CLS:PRINT REPORT$;" / ";ERL:END
  340REM Do NOT change the next two lines!
  350level%=1
  360score%=0
  370ch%=OPENIN "<RoadHog$Dir>.Score"
  380FOR I=0 TO 9
  390INPUT#ch%,hiscore%(I)
  400INPUT#ch%,name$(I)
  410NEXT
  420CLOSE#ch%
  430CLS:OFF
  440PROCinit
  450PROCpanel
  460PROCinitlevel(level%)
  470:
  480REPEAT
  490IF finish%=FALSE PROCdrop
  500IF finish%=TRUE THEN
  510PROCline
  520PROCblankout(1000)
  530level%+=1
  540IFlevel%<mlevel% PROCinit:score%+=1000:CLS:PROCpanel:PROCinitlevel(level%)
  550ENDIF
  560UNTIL notroad%=TRUE OR bigroad%=TRUE OR level%=mlevel%
  570IF notroad%=TRUE nr2%=FALSE:PROCline:nr2%=FALSE
  580IF level%=mlevel% PROCcomplete ELSE PROCgameover
  590UNTIL FALSE
  600END
  610:
  620DEF PROCinit
  630sectionw%=80
  640sectionh%=80
  650sx%=0
  660sy%=800
  670dx%=RND(13)+1
  680ax%=dx%
  690dx%=sectionw%*dx%
  700IF dx%<80 dx%=80
  710IF dx%>1120 dx%=1120
  720dy%=800
  730ay%=0
  740finish%=FALSE
  750hit%=FALSE
  760notroad%=FALSE
  770bigroad%=FALSE
  780speed%=sectionh%
  790t%=1
  800rnum%=RND(9)
  810IF rnum%=9 rnum2%=RND(4) ELSE rnum2%=0
  820sprnm$="section"+STR$(rnum%)+STR$(rnum2%)
  830temp%=160
  840s%=temp%
  850flip%=TRUE
  860left%=TRUE
  870right%=FALSE
  880top%=FALSE
  890bottom%=FALSE
  900kleft%=FALSE
  910kright%=FALSE
  920plung%=FALSE
  930nr2%=FALSE
  940alpha$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
  950ENDPROC
  960:
  970DEF PROCinitlevel(level%)
  980IF level%=1 THEN RESTORE 6510
  990IF level%=2 THEN RESTORE 6620
 1000IF level%=3 THEN RESTORE 6730
 1010IF level%=4 THEN RESTORE 6840
 1020IF level%=5 THEN RESTORE 6950
 1030IF level%=6 THEN RESTORE 7060
 1040IF level%=7 THEN RESTORE 7170
 1050IF level%=8 THEN RESTORE 7280
 1060IF level%=9 THEN RESTORE 7390
 1070IF level%=10 THEN RESTORE 7500
 1080:
 1090FOR I=0 TO 9
 1100READ scen$
 1110FOR J=1 TO LEN(scen$)
 1120line$=MID$(scen$,J,1)
 1130IF line$<>"0" THEN
 1140   IF line$="B" THEN
 1150      sx%+=sectionw%
 1160      SYS sprop%,290,sp%,"border2",sx%,sy%,0
 1170   ENDIF
 1180   IF line$="Q" THEN
 1190      SYS sprop%,290,sp%,"shed",sx%,sy%,0
 1200   ENDIF
 1210   IF line$="C" THEN
 1220      SYS sprop%,290,sp%,"border3",sx%,sy%,0
 1230   ENDIF
 1240   IF line$="D" THEN
 1250      SYS sprop%,290,sp%,"border4",sx%,sy%,0
 1260   ENDIF
 1270   IF line$="E" THEN
 1280      SYS sprop%,290,sp%,"border5",sx%,sy%,0
 1290   ENDIF
 1300   IF line$="F" THEN
 1310      sx%+=sectionw%
 1320      SYS sprop%,290,sp%,"border6",sx%,sy%,0
 1330   ENDIF
 1340   IF line$="T" THEN
 1350      SYS sprop%,290,sp%,"tree",sx%,sy%,0
 1360   ENDIF
 1370   IF line$="H" THEN
 1380      SYS sprop%,290,sp%,"house",sx%,sy%,0
 1390   ENDIF
 1400   IF line$="S" THEN
 1410      SYS sprop%,290,sp%,"start",sx%,sy%,0
 1420   ENDIF
 1430   IF line$="J" THEN
 1440      SYS sprop%,290,sp%,"finish",sx%,sy%,0
 1450   ENDIF
 1460   IF line$="L" THEN
 1470      SYS sprop%,290,sp%,"light",sx%,sy%,0
 1480   ENDIF
 1490ENDIF
 1500sx%+=sectionw%
 1510NEXT
 1520sy%-=80:sx%=0
 1530A$(I)=scen$
 1540NEXT
 1550FOR I=0 TO 9
 1560FOR J=0 TO LEN(A$(I))
 1570IF MID$(A$(I),J,1)="S" checkx%=J+1:checky%=I
 1580NEXT
 1590NEXT
 1600ENDPROC
 1610:
 1620DEF PROCdrop
 1630PRINT TAB(3,2);"Score: ";score%;TAB(33,2);"Level: ";level%;TAB(61,2);"High Score: ";hiscore%(0)
 1640TIME=0
 1650REPEAT
 1660IF INKEY-98 AND MID$(A$(ay%),ax%-1,1)="0" ax%-=1:dx%-=sectionw%:kleft%=TRUE
 1670IF INKEY-67 AND MID$(A$(ay%),ax%+1,1)="0" ax%+=1:dx%+=sectionw%:kright%=TRUE
 1680IF INKEY-105 TIME=delay%(level%):plung%=TRUE
 1690IF INKEY-82 SOUND ON
 1700IF INKEY-17 SOUND OFF
 1710IF dy%<=temp% AND dx%>=80 AND dx%<=1040 THEN hit%=TRUE
 1720IF dx%<80 dx%=80
 1730IF dx%>1120 dx%=1120
 1740IF MID$(A$(ay%+1),ax%,1)<>"0" THEN temp%=dy%:hit%=TRUE:MID$(A$(ay%),ax%,1)=STR$(rnum%)
 1750IF INKEY-56 THEN SYS sprop%,290,sp%,sprnm$,dx%,dy%,0:REPEAT UNTIL INKEY-55:SYS sprop%,290,sp%,"blank",dx%,dy%,0
 1760IF hit%=FALSE THEN
 1770IF INKEY-99 PROCrotate
 1780SYS sprop%,290,sp%,sprnm$,dx%,dy%,3:WAIT
 1790IF kleft% OR kright% WAIT:WAIT:WAIT:WAIT:WAIT:kleft%=FALSE:kright%=FALSE
 1800SYS sprop%,290,sp%,sprnm$,dx%,dy%,3
 1810ENDIF
 1820IF hit%=TRUE PROCbounce:PROCcheck
 1830UNTIL TIME>delay%(level%)
 1840IF plung%=FALSE AND dy%<880 SOUND 1,-15,120,120
 1850ay%+=1:dy%-=speed%
 1860ENDPROC
 1870:
 1880DEF PROCbounce
 1890SOUND 3,-15,120,120
 1900speed%=1
 1910s%=temp%+10
 1920t%=1
 1930IF dy%>=800 THEN bigroad%=TRUE
 1940REPEAT
 1950REM Go up
 1960dy%=temp%
 1970REPEAT
 1980dy%+=speed%
 1990SYS sprop%,290,sp%,sprnm$,dx%,dy%,3:WAIT
 2000SYS sprop%,290,sp%,sprnm$,dx%,dy%,3
 2010UNTIL dy%=s%
 2020REM Go down
 2030REPEAT:dy%-=speed%:SYS sprop%,290,sp%,sprnm$,dx%,dy%,3:WAIT:SYS sprop%,290,sp%,sprnm$,dx%,dy%,3:UNTIL dy%=temp%
 2040s%-=t%
 2050t%+=1
 2060SOUND 3,-15,120,120
 2070UNTIL s%=temp%
 2080SYS sprop%,290,sp%,sprnm$,dx%,dy%,0
 2090dy%=880:dx%=RND(13)+1:ax%=dx%:dx%=sectionw%*dx%:IF dx%<80 OR dx%>1120 THEN 2090
 2100rnum%=RND(9)
 2110IF rnum%=9 rnum2%=RND(4) ELSE rnum2%=0
 2120sprnm$="section"+STR$(rnum%)+STR$(rnum2%)
 2130speed%=sectionh%
 2140hit%=FALSE
 2150ay%=-1
 2160temp%=160
 2170plung%=FALSE
 2180ENDPROC
 2190:
 2200DEF PROCrotate
 2210IF rnum%=9 THEN ENDPROC
 2220IF rnum%<>1 AND rnum%<>2 AND rnum%<>7 AND rnum%<>8 THEN
 2230rnum%+=1:IF rnum%=7 THEN rnum%=3
 2240ELSE
 2250IF rnum%=1 THEN
 2260rnum%=2
 2270ELSE
 2280IF rnum%=2 THEN
 2290rnum%=7
 2300ELSE
 2310IF rnum%=7 THEN
 2320rnum%=8
 2330ELSE
 2340IF rnum%=8 THEN
 2350rnum%=1
 2360ENDIF
 2370ENDIF
 2380ENDIF
 2390ENDIF
 2400ENDIF
 2410sprnm$="section"+STR$(rnum%)+STR$(rnum2%)
 2420SYS sprop%,290,sp%,sprnm$,dx%,dy%,3:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT
 2430SYS sprop%,290,sp%,sprnm$,dx%,dy%,3
 2440ENDPROC
 2450:
 2460REM Section numbers:
 2470REM 1 - Left to right straight
 2480REM 2 - Top to bottom straight
 2490REM 3 - Top to left curve
 2500REM 4 - Top to right curve
 2510REM 5 - Bottom to right curve
 2520REM 6 - Bottom to left curve
 2530REM 7 - Right to left straight
 2540REM 8 - Bottom to top straight
 2550REM 9 - Crossroads
 2560:
 2570DEF PROCcheck
 2580REPEAT
 2590IF MID$(A$(checky%),checkx%,1)<>"0" THEN
 2600IF MID$(A$(checky%),checkx%,1)="1" AND left%=TRUE THEN
 2610checkx%+=1:right%=FALSE:top%=FALSE:bottom%=FALSE
 2620score%+=25
 2630ELSE
 2640IF MID$(A$(checky%),checkx%,1)="2" AND top%=TRUE THEN
 2650checky%+=1:right%=FALSE:bottom%=FALSE:left%=FALSE
 2660score%+=25
 2670ELSE
 2680IF MID$(A$(checky%),checkx%,1)="7" AND right%=TRUE THEN
 2690checkx%-=1:left%=FALSE:bottom%=FALSE:top%=FALSE
 2700score%+=25
 2710ELSE
 2720IF MID$(A$(checky%),checkx%,1)="8" AND bottom%=TRUE THEN
 2730checky%-=1:left%=FALSE:top%=FALSE:right%=FALSE
 2740score%+=25
 2750ELSE
 2760IF MID$(A$(checky%),checkx%,1)="9" AND left%=TRUE THEN
 2770checkx%+=1:top%=FALSE:bottom%=FALSE:right%=FALSE
 2780score%+=100
 2790ELSE
 2800IF MID$(A$(checky%),checkx%,1)="9" AND right%=TRUE THEN
 2810checkx%-=1:left%=FALSE:top%=FALSE:bottom%=FALSE
 2820score%+=100
 2830ELSE
 2840IF MID$(A$(checky%),checkx%,1)="9" AND top%=TRUE THEN
 2850checky%+=1:bottom%=FALSE:left%=FALSE:right%=FALSE
 2860score%+=100
 2870ELSE
 2880IF MID$(A$(checky%),checkx%,1)="9" AND bottom%=TRUE THEN
 2890checky%-=1:top%=FALSE:left%=FALSE:right%=FALSE
 2900score%+=100
 2910ELSE
 2920IF MID$(A$(checky%),checkx%,1)="3" AND top%=TRUE THEN
 2930checkx%-=1:right%=TRUE:top%=FALSE:left%=FALSE:bottom%=FALSE
 2940score%+=50
 2950ELSE
 2960IF MID$(A$(checky%),checkx%,1)="3" AND left%=TRUE THEN
 2970checky%-=1:bottom%=TRUE:left%=FALSE:right%=FALSE:top%=FALSE
 2980score%+=50
 2990ELSE
 3000IF MID$(A$(checky%),checkx%,1)="4" AND top%=TRUE THEN
 3010checkx%+=1:left%=TRUE:top%=FALSE:right%=FALSE:bottom%=FALSE
 3020score%+=50
 3030ELSE
 3040IF MID$(A$(checky%),checkx%,1)="4" AND right%=TRUE THEN
 3050checky%-=1:bottom%=TRUE:right%=FALSE:left%=FALSE:top%=FALSE
 3060score%+=50
 3070ELSE
 3080IF MID$(A$(checky%),checkx%,1)="5" AND bottom%=TRUE THEN
 3090checkx%+=1:left%=TRUE:bottom%=FALSE:top%=FALSE:right%=FALSE
 3100score%+=50
 3110ELSE
 3120IF MID$(A$(checky%),checkx%,1)="5" AND right%=TRUE THEN
 3130checky%+=1:top%=TRUE:right%=FALSE:bottom%=FALSE:left%=FALSE
 3140score%+=50
 3150ELSE
 3160IF MID$(A$(checky%),checkx%,1)="6" AND bottom%=TRUE THEN
 3170checkx%-=1:right%=TRUE:bottom%=FALSE:left%=FALSE:top%=FALSE
 3180score%+=50
 3190ELSE
 3200IF MID$(A$(checky%),checkx%,1)="6" AND left%=TRUE THEN
 3210checky%+=1:top%=TRUE:right%=FALSE:bottom%=FALSE:left%=FALSE
 3220score%+=50
 3230ELSE
 3240IF MID$(A$(checky%),checkx%,1)="T" THEN
 3250notroad%=TRUE
 3260ELSE
 3270IF MID$(A$(checky%),checkx%,1)="H" THEN
 3280notroad%=TRUE
 3290ELSE
 3300IF MID$(A$(checky%),checkx%,1)="Q" THEN
 3310notroad%=TRUE
 3320ELSE
 3330notroad%=TRUE
 3340ENDIF
 3350ENDIF
 3360ENDIF
 3370ENDIF
 3380ENDIF
 3390ENDIF
 3400ENDIF
 3410ENDIF
 3420ENDIF
 3430ENDIF
 3440ENDIF
 3450ENDIF
 3460ENDIF
 3470ENDIF
 3480ENDIF
 3490ENDIF
 3500ENDIF
 3510ENDIF
 3520ENDIF
 3530ENDIF
 3540UNTIL MID$(A$(checky%),checkx%,1)="0" OR MID$(A$(checky%),checkx%,1)="J" OR notroad%=TRUE
 3550IF MID$(A$(checky%),checkx%,1)="J" THEN finish%=TRUE
 3560ENDPROC
 3570:
 3580DEF PROCline
 3590checkx%=3:checky%=8:left%=TRUE
 3600GCOL 63 TINT 0
 3610REPEAT
 3620IF MID$(A$(checky%),checkx%,1)="1" AND left%=TRUE THEN
 3630FORI=0TO80:PLOT69,(checkx%*80)+I,(800-(checky%*80))+40:FORJ=0TO100:NEXTJ:NEXTI
 3640checkx%+=1:right%=FALSE:top%=FALSE:bottom%=FALSE
 3650ELSE
 3660IF MID$(A$(checky%),checkx%,1)="2" AND top%=TRUE THEN
 3670FORI=80TO0STEP-1:PLOT69,(checkx%*80)+40,(800-(checky%*80))+I:FORJ=0TO100:NEXTJ:NEXTI
 3680checky%+=1:right%=FALSE:bottom%=FALSE:left%=FALSE
 3690ELSE
 3700IF MID$(A$(checky%),checkx%,1)="7" AND right%=TRUE THEN
 3710FORI=80TO0STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+40:FORJ=0TO100:NEXTJ:NEXTI
 3720checkx%-=1:left%=FALSE:bottom%=FALSE:top%=FALSE
 3730ELSE
 3740IF MID$(A$(checky%),checkx%,1)="8" AND bottom%=TRUE THEN
 3750FORI=0TO80:PLOT69,(checkx%*80)+40,(800-(checky%*80))+I:FORJ=0TO100:NEXTJ:NEXTI
 3760checky%-=1:left%=FALSE:top%=FALSE:right%=FALSE
 3770ELSE
 3780IF MID$(A$(checky%),checkx%,1)="9" AND left%=TRUE THEN
 3790FORI=0TO80:PLOT69,(checkx%*80)+I,(800-(checky%*80))+40:FORJ=0TO100:NEXTJ:NEXTI
 3800checkx%+=1:top%=FALSE:bottom%=FALSE:right%=FALSE
 3810ELSE
 3820IF MID$(A$(checky%),checkx%,1)="9" AND right%=TRUE THEN
 3830FORI=80TO0STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+40:FORJ=0TO100:NEXTJ:NEXTI
 3840checkx%-=1:left%=FALSE:top%=FALSE:bottom%=FALSE
 3850ELSE
 3860IF MID$(A$(checky%),checkx%,1)="9" AND top%=TRUE THEN
 3870FORI=80TO0STEP-1:PLOT69,(checkx%*80)+40,(800-(checky%*80))+I:FORJ=0TO100:NEXTJ:NEXTI
 3880checky%+=1:bottom%=FALSE:left%=FALSE:right%=FALSE
 3890ELSE
 3900IF MID$(A$(checky%),checkx%,1)="9" AND bottom%=TRUE THEN
 3910FORI=0TO80:PLOT69,(checkx%*80)+40,(800-(checky%*80))+I:FORJ=0TO100:NEXTJ:NEXTI
 3920checky%-=1:top%=FALSE:left%=FALSE:right%=FALSE
 3930ELSE
 3940IF MID$(A$(checky%),checkx%,1)="3" AND top%=TRUE THEN
 3950y%=80:FORI=40TO0STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:FORJ=0TO200:NEXTJ:NEXTI
 3960checkx%-=1:right%=TRUE:top%=FALSE:left%=FALSE:bottom%=FALSE
 3970ELSE
 3980IF MID$(A$(checky%),checkx%,1)="3" AND left%=TRUE THEN
 3990y%=40:FORI=0TO40:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:FORJ=0TO200:NEXTJ:NEXTI
 4000checky%-=1:bottom%=TRUE:left%=FALSE:right%=FALSE:top%=FALSE
 4010ELSE
 4020IF MID$(A$(checky%),checkx%,1)="4" AND top%=TRUE THEN
 4030y%=80:FORI=40TO80:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:FORJ=0TO200:NEXTJ:NEXTI
 4040checkx%+=1:left%=TRUE:top%=FALSE:right%=FALSE:bottom%=FALSE
 4050ELSE
 4060IF MID$(A$(checky%),checkx%,1)="4" AND right%=TRUE THEN
 4070y%=40:FORI=80TO40STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:FORJ=0TO200:NEXTJ:NEXTI
 4080checky%-=1:bottom%=TRUE:right%=FALSE:left%=FALSE:top%=FALSE
 4090ELSE
 4100IF MID$(A$(checky%),checkx%,1)="5" AND bottom%=TRUE THEN
 4110y%=0:FORI=40TO80:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:FORJ=0TO200:NEXTJ:NEXTI
 4120checkx%+=1:left%=TRUE:bottom%=FALSE:top%=FALSE:right%=FALSE
 4130ELSE
 4140IF MID$(A$(checky%),checkx%,1)="5" AND right%=TRUE THEN
 4150y%=40:FORI=80TO40STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:FORJ=0TO200:NEXTJ:NEXTI
 4160checky%+=1:top%=TRUE:right%=FALSE:bottom%=FALSE:left%=FALSE
 4170ELSE
 4180IF MID$(A$(checky%),checkx%,1)="6" AND bottom%=TRUE THEN
 4190y%=0:FORI=40TO0STEP-1:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:FORJ=0TO200:NEXTJ:NEXTI
 4200checkx%-=1:right%=TRUE:bottom%=FALSE:left%=FALSE:top%=FALSE
 4210ELSE
 4220IF MID$(A$(checky%),checkx%,1)="6" AND left%=TRUE THEN
 4230y%=40:FORI=0TO40:PLOT69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:FORJ=0TO200:NEXTJ:NEXTI
 4240checky%+=1:top%=TRUE:right%=FALSE:bottom%=FALSE:left%=FALSE
 4250ELSE
 4260nr2%=TRUE
 4270ENDIF
 4280ENDIF
 4290ENDIF
 4300ENDIF
 4310ENDIF
 4320ENDIF
 4330ENDIF
 4340ENDIF
 4350ENDIF
 4360ENDIF
 4370ENDIF
 4380ENDIF
 4390ENDIF
 4400ENDIF
 4410ENDIF
 4420ENDIF
 4430ENDIF
 4440ENDIF
 4450ENDIF
 4460UNTIL MID$(A$(checky%),checkx%,1)="J" OR nr2%=TRUE
 4470ENDPROC
 4480:
 4490DEF PROCcomplete
 4500CLS
 4510REPEAT
 4520SYS sprop%,290,sp%,"completed",RND(1279),RND(1023),0
 4530WAIT:WAIT:WAIT:WAIT:WAIT
 4540UNTIL INKEY -99
 4550score%+=10000
 4560PROChiscore
 4570ENDPROC
 4580:
 4590DEF PROCgameover
 4600PROCblankout(2000)
 4610CLS
 4620REPEAT
 4630SYS sprop%,290,sp%,"gameover",RND(1279),RND(1023),0
 4640WAIT:WAIT:WAIT:WAIT:WAIT
 4650UNTIL INKEY -99
 4660PROChiscore
 4670ENDPROC
 4680:
 4690DEF PROChiscore
 4700CLS
 4710IF score%>=hiscore%(0) THEN
 4720PROCenter_name(0)
 4730ELSE
 4740IF score%>=hiscore%(1) AND score%<=hiscore%(0) THEN
 4750PROCenter_name(1)
 4760ELSE
 4770IF score%>=hiscore%(2) AND score%<=hiscore%(1) THEN
 4780PROCenter_name(2)
 4790ELSE
 4800IF score%>=hiscore%(3) AND score%<=hiscore%(2) THEN
 4810PROCenter_name(3)
 4820ELSE
 4830IF score%>=hiscore%(4) AND score%<=hiscore%(3) THEN
 4840PROCenter_name(4)
 4850ELSE
 4860IF score%>=hiscore%(5) AND score%<=hiscore%(4) THEN
 4870PROCenter_name(5)
 4880ELSE
 4890IF score%>=hiscore%(6) AND score%<=hiscore%(5) THEN
 4900PROCenter_name(6)
 4910ELSE
 4920IF score%>=hiscore%(7) AND score%<=hiscore%(6) THEN
 4930PROCenter_name(7)
 4940ELSE
 4950IF score%>=hiscore%(8) AND score%<=hiscore%(7) THEN
 4960PROCenter_name(8)
 4970ELSE
 4980IF score%>=hiscore%(9) AND score%<=hiscore%(8) THEN
 4990PROCenter_name(9)
 5000ELSE
 5010ch%=OPENUP "<RoadHog$Dir>.Score"
 5020FOR J=0 TO 9
 5030PRINT#ch%,hiscore%(J)
 5040PRINT#ch%,name$(J)
 5050NEXT
 5060PRINT#ch%,score%
 5070CLOSE#ch%
 5080ENDIF
 5090ENDIF
 5100ENDIF
 5110ENDIF
 5120ENDIF
 5130ENDIF
 5140ENDIF
 5150ENDIF
 5160ENDIF
 5170ENDIF
 5180ENDPROC
 5190:
 5200DEF PROCenter_name(position%)
 5210FOR I=9 TO position% STEP -1
 5220IF I>0 hiscore%(I)=hiscore%(I-1)
 5230IF I>0 name$(I)=name$(I-1)
 5240NEXT
 5250name$(position%)=""
 5260SYS sprop%,290,sp%,"initials",20,900,0
 5270PROCinput_name
 5280hiscore%(position%)=score%
 5290ch%=OPENUP "<RoadHog$Dir>.Score"
 5300FOR J=0 TO 9
 5310PRINT#ch%,hiscore%(J)
 5320PRINT#ch%,name$(J)
 5330NEXT
 5340PRINT#ch%,score%
 5350CLOSE#ch%
 5360ENDPROC
 5370:
 5380DEF PROCinput_name
 5390place%=0
 5400FOR I=1 TO 3
 5410REPEAT
 5420PRINT TAB((30+I)+1,8);MID$(alpha$,place%,1)
 5430IF INKEY-98 place%-=1:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT
 5440IF INKEY-67 place%+=1:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT
 5450IF place%<0 place%=27
 5460IF place%>27 place%=0
 5470UNTIL INKEY-74
 5480WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT
 5490initial$(I)=MID$(alpha$,place%,1)
 5500NEXT
 5510name$(position%)=initial$(1)+initial$(2)+initial$(3)
 5520ENDPROC
 5530:
 5540DEF PROCblankout(times%)
 5550WAIT
 5560GCOL 0,0 TINT 0
 5570FOR I=0 TO times%
 5580rnd%=RND(1023)
 5590LINE 0,rnd%,1279,rnd%
 5600NEXT
 5610ENDPROC
 5620:
 5630DEF PROCpanel
 5640px%=0:py%=978
 5650RESTORE 6450
 5660FOR I=1 TO 5
 5670READ panel$
 5680FOR J=1 TO LEN(panel$)
 5690line$=MID$(panel$,J,1)
 5700IF line$<>"0" THEN
 5710   IF line$="A" THEN
 5720      SYS sprop%,290,sp%,"topleft",px%,py%,0
 5730   ENDIF
 5740   IF line$="B" THEN
 5750      SYS sprop%,290,sp%,"ptopside",px%,py%,0
 5760   ENDIF
 5770   IF line$="C" THEN
 5780      SYS sprop%,290,sp%,"topright",px%,py%,0
 5790   ENDIF
 5800   IF line$="D" THEN
 5810      SYS sprop%,290,sp%,"pleftside",px%,py%,0
 5820   ENDIF
 5830   IF line$="E" THEN
 5840      SYS sprop%,290,sp%,"prightside",px%,py%,0
 5850   ENDIF
 5860   IF line$="F" THEN
 5870      SYS sprop%,290,sp%,"bottomleft",px%,py%,0
 5880   ENDIF
 5890   IF line$="G" THEN
 5900      SYS sprop%,290,sp%,"pbottomside",px%,py%,0
 5910   ENDIF
 5920   IF line$="H" THEN
 5930      SYS sprop%,290,sp%,"bottomright",px%,py%,0
 5940   ENDIF
 5950ENDIF
 5960px%+=20
 5970NEXT
 5980px%=0:py%-=20
 5990NEXT
 6000ENDPROC
 6010:
 6020DEF PROCdisplay
 6030ch%=OPENIN "<RoadHog$Dir>.Score"
 6040FOR I=0 TO 9
 6050INPUT#ch%,hiscore%(I)
 6060INPUT#ch%,name$(I)
 6070NEXT
 6080INPUT#ch%,lastscore%
 6090CLOSE#ch%
 6100title$="R O A D   H O G"
 6110COLOUR RND(63)
 6120PRINT TAB(40-(LEN(title$)/2));title$
 6130title$="By Michael Cook (Programming + Graphics)"
 6140COLOUR RND(63)
 6150PRINT'TAB(40-(LEN(title$)/2));title$
 6160title$="And Kevin Simm (Logo)"
 6170COLOUR RND(63)
 6180PRINT'TAB(40-(LEN(title$)/2));title$
 6190title$="(the Archie Brothers)"
 6200COLOUR RND(63)
 6210PRINT'TAB(40-(LEN(title$)/2));title$
 6220title$="High score: "+STR$(hiscore%(0))
 6230COLOUR RND(63)
 6240PRINT'TAB(40-(LEN(title$)/2));title$
 6250title$="Last score: "+STR$(lastscore%)
 6260COLOUR RND(63)
 6270PRINT'TAB(40-(LEN(title$)/2));title$
 6280title$="To play the game press SPACE"
 6290COLOUR RND(63)
 6300PRINT'TAB(40-(LEN(title$)/2));title$
 6310title$="(c) Archimedes World 1992"
 6320COLOUR RND(63)
 6330PRINT'TAB(40-(LEN(title$)/2));title$'
 6340SYS sprop%,290,sp%,"sign",0,540,0
 6350SYS sprop%,290,sp%,"sign",1000,540,0
 6360SYS sprop%,290,sp%,"disc",0,60,0
 6370SYS sprop%,290,sp%,"disc",870,60,0
 6380FOR I=18 TO 27
 6390COLOUR RND(63)
 6400IF I-18<9 PRINT TAB(32,I);I-17;".  ";name$(I-18);TAB(43,I);hiscore%(I-18) ELSE PRINT TAB(32,I);I-17;". ";name$(I-18);TAB(43,I);hiscore%(I-18)
 6410NEXT
 6420COLOUR 63 TINT 192
 6430ENDPROC
 6440:
 6450DATA "ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBC"
 6460DATA "D00000000000000000000000000000000000000000000000000000000000000E"
 6470DATA "D00000000000000000000000000000000000000000000000000000000000000E"
 6480DATA "D00000000000000000000000000000000000000000000000000000000000000E"
 6490DATA "FGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGH"
 6500:
 6510DATA "B0000000000000C"
 6520DATA "B0000000000000C"
 6530DATA "B0000000000000C"
 6540DATA "B0000000000000C"
 6550DATA "B0000000T00000C"
 6560DATA "B00H000000000HC"
 6570DATA "B0000000000000C"
 6580DATA "BH0000000J00T0C"
 6590DATA "BS000H00000000C"
 6600DATA "FDDDDDDDDDDDDDE"
 6610:
 6620DATA "B0000000000000C"
 6630DATA "B0000000000000C"
 6640DATA "B0000000000000C"
 6650DATA "B000000000H000C"
 6660DATA "B0000J00L00000C"
 6670DATA "B000000000000HC"
 6680DATA "B00T00H00T0000C"
 6690DATA "BL0000000000T0C"
 6700DATA "BS000HQ0000000C"
 6710DATA "FDDDDDDDDDDDDDE"
 6720:
 6730DATA "B0000000000000C"
 6740DATA "B0000000000000C"
 6750DATA "B0000000000000C"
 6760DATA "B0000H00000000C"
 6770DATA "B0T00000000000C"
 6780DATA "B000000J0000QHC"
 6790DATA "B00000H00L0000C"
 6800DATA "BT0000000000T0C"
 6810DATA "BS000H0000HQ00C"
 6820DATA "FDDDDDDDDDDDDDE"
 6830:
 6840DATA "B0000000000000C"
 6850DATA "B0000000000000C"
 6860DATA "B0000000000000C"
 6870DATA "B00000H0000000C"
 6880DATA "B0T00000000000C"
 6890DATA "B00000000L00QHC"
 6900DATA "B00000H0000000C"
 6910DATA "BT000000000000C"
 6920DATA "BS000H0000L00JC"
 6930DATA "FDDDDDDDDDDDDDE"
 6940:
 6950DATA "B0000000000000C"
 6960DATA "B0000000000000C"
 6970DATA "B0000000000000C"
 6980DATA "B000T000000000C"
 6990DATA "B0T0000H000000C"
 7000DATA "B000000000000HC"
 7010DATA "B00000H00JL000C"
 7020DATA "BT0000000000T0C"
 7030DATA "BS000L0000H000C"
 7040DATA "FDDDDDDDDDDDDDE"
 7050:
 7060DATA "B0000000000000C"
 7070DATA "B0000000000000C"
 7080DATA "BH000000000000C"
 7090DATA "B000T0000000L0C"
 7100DATA "B000000H0J0000C"
 7110DATA "B00T000000000HC"
 7120DATA "B00000H00T0000C"
 7130DATA "BH0000000000T0C"
 7140DATA "BS000L0T00H000C"
 7150DATA "FDDDDDDDDDDDDDE"
 7160:
 7170DATA "B0000000000000C"
 7180DATA "B0000000000000C"
 7190DATA "B0000000000000C"
 7200DATA "B0000H00000H0QC"
 7210DATA "B0T00000T00000C"
 7220DATA "B000000000Q0QHC"
 7230DATA "B00000L00TJ000C"
 7240DATA "BT0T00000000L0C"
 7250DATA "BS000HQ000HQ00C"
 7260DATA "FDDDDDDDDDDDDDE"
 7270:
 7280DATA "B0000000000000C"
 7290DATA "B0000000000000C"
 7300DATA "B0000000000000C"
 7310DATA "B0000L0J000HQ0C"
 7320DATA "B0000000QH0000C"
 7330DATA "B000000000000HC"
 7340DATA "B000L0HQ0T0000C"
 7350DATA "BT0000000000T0C"
 7360DATA "BS000H0T00H000C"
 7370DATA "FDDDDDDDDDDDDDE"
 7380:
 7390DATA "B0000000000000C"
 7400DATA "B0000000000000C"
 7410DATA "B0000000000000C"
 7420DATA "B000T0000H0TJTC"
 7430DATA "B0L000QH000000C"
 7440DATA "B000000000000LC"
 7450DATA "B00000HQ0T0000C"
 7460DATA "BT0000000000T0C"
 7470DATA "BS000L0T00HQ00C"
 7480DATA "FDDDDDDDDDDDDDE"
 7490:
 7500DATA "B0000000000000C"
 7510DATA "B0000000000000C"
 7520DATA "BH00000000000JC"
 7530DATA "BT00T0000H00L0C"
 7540DATA "B000000H0Q0000C"
 7550DATA "B00T000000000HC"
 7560DATA "B00000HQ0L0000C"
 7570DATA "BH00L0000000T0C"
 7580DATA "BS000H0T00H00QC"
 7590DATA "FDDDDDDDDDDDDDE"
 7600:
 7610DATA 70,66,62,58,54,50,46,42,38,34

� > <RoadHog$Dir>.!RunImage
� Roadhog main code
� (c) Michael Cook 1991
(:
2�'"Roadhog is loading."
<�'"Please wait..."
F�
Pș "OS_UpdateMEMC",64,64
Z� sp% &15000
d!sp%=&15000
nsp%!4=0
x
sp%!12=16
�sprop%=&2E
�-ș sprop%,266,sp%,"<RoadHog$Dir>.Sprites"
�� A$(9)
�� hiscore%(9)
�� name$(9)
�� initial$(3)
�mlevel%=11
�� delay%(mlevel%)
�
� �tz]
�� I=1 � mlevel%-1
�	� ds%
�delay%(I)=ds%
��
Ƞ 4
:
�
"� � � �0,15);:�
,	�15:�
6�display
@
� � � -99
J3� � � �=17 � �hiscore:� �TXA � �:� �$;" / ";�:�
T'� Do NOT change the next two lines!
^level%=1
hscore%=0
rch%=� "<RoadHog$Dir>.Score"
|
� I=0 � 9
��#ch%,hiscore%(I)
��#ch%,name$(I)
��
�	�#ch%
��:�
�	�init
�
�panel
��initlevel(level%)
�:
��
�� finish%=� �drop
�� finish%=� �
�	�line
�blankout(1000)

level%+=1
B�level%<mlevel% �init:score%+=1000:�:�panel:�initlevel(level%)
&�
0.� notroad%=� � bigroad%=� � level%=mlevel%
:$� notroad%=� nr2%=�:�line:nr2%=�
D*� level%=mlevel% �complete � �gameover
N� �
X�
b:
l� �init
vsectionw%=80
�sectionh%=80
�	sx%=0
�sy%=800
�dx%=�(13)+1
�ax%=dx%
�dx%=sectionw%*dx%
�� dx%<80 dx%=80
�� dx%>1120 dx%=1120
�dy%=800
�	ay%=0
�
finish%=�
�
hit%=�
�notroad%=�
bigroad%=�
speed%=sectionh%
t%=1
 rnum%=�(9)
*$� rnum%=9 rnum2%=�(4) � rnum2%=0
4'sprnm$="section"+�(rnum%)+�(rnum2%)
>
temp%=160
Hs%=temp%
Rflip%=�
\left%=�
fright%=�
p
top%=�
z
bottom%=�
�kleft%=�
�
kright%=�
�plung%=�
�
nr2%=�
�(alpha$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
��
�:
�� �initlevel(level%)
�� level%=1 � � �DnY
�� level%=2 � � �d\Y
�� level%=3 � � �DJZ
�� level%=4 � � �txZ
�� level%=5 � � �Tf[
� level%=6 � � �tT[
� level%=7 � � �TB\
� level%=8 � � �Dp\
$� level%=9 � � �d^\
.� level%=10 � � �DL]
8:
B
� I=0 � 9
L� scen$
V� J=1 � �(scen$)
`line$=�scen$,J,1)
j� line$<>"0" �
t   � line$="B" �
~      sx%+=sectionw%
�/      ș sprop%,290,sp%,"border2",sx%,sy%,0
�   �
�   � line$="Q" �
�,      ș sprop%,290,sp%,"shed",sx%,sy%,0
�   �
�   � line$="C" �
�/      ș sprop%,290,sp%,"border3",sx%,sy%,0
�   �
�   � line$="D" �
�/      ș sprop%,290,sp%,"border4",sx%,sy%,0
�   �
�   � line$="E" �
/      ș sprop%,290,sp%,"border5",sx%,sy%,0

   �
   � line$="F" �
      sx%+=sectionw%
(/      ș sprop%,290,sp%,"border6",sx%,sy%,0
2   �
<   � line$="T" �
F,      ș sprop%,290,sp%,"tree",sx%,sy%,0
P   �
Z   � line$="H" �
d-      ș sprop%,290,sp%,"house",sx%,sy%,0
n   �
x   � line$="S" �
�-      ș sprop%,290,sp%,"start",sx%,sy%,0
�   �
�   � line$="J" �
�.      ș sprop%,290,sp%,"finish",sx%,sy%,0
�   �
�   � line$="L" �
�-      ș sprop%,290,sp%,"light",sx%,sy%,0
�   �
��
�sx%+=sectionw%
��
�sy%-=80:sx%=0
�A$(I)=scen$
�

� I=0 � 9
� J=0 � �(A$(I))
"+� �A$(I),J,1)="S" checkx%=J+1:checky%=I
,�
6�
@�
J:
T� �drop
^V� �3,2);"Score: ";score%;�33,2);"Level: ";level%;�61,2);"High Score: ";hiscore%(0)
h�=0
r�
|A� �-98 � �A$(ay%),ax%-1,1)="0" ax%-=1:dx%-=sectionw%:kleft%=�
�B� �-67 � �A$(ay%),ax%+1,1)="0" ax%+=1:dx%+=sectionw%:kright%=�
�%� �-105 �=delay%(level%):plung%=�
�� �-82 � �
�� �-17 � �
�/� dy%<=temp% � dx%>=80 � dx%<=1040 � hit%=�
�� dx%<80 dx%=80
�� dx%>1120 dx%=1120
�H� �A$(ay%+1),ax%,1)<>"0" � temp%=dy%:hit%=�:�A$(ay%),ax%,1)=�(rnum%)
�\� �-56 � ș sprop%,290,sp%,sprnm$,dx%,dy%,0:� � �-55:ș sprop%,290,sp%,"blank",dx%,dy%,0
�� hit%=� �
�� �-99 �rotate
�)ș sprop%,290,sp%,sprnm$,dx%,dy%,3:Ȗ
�8� kleft% � kright% Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:kleft%=�:kright%=�
&ș sprop%,290,sp%,sprnm$,dx%,dy%,3
�
� hit%=� �bounce:�check
&� �>delay%(level%)
0(� plung%=� � dy%<880 � 1,-15,120,120
:ay%+=1:dy%-=speed%
D�
N:
X
� �bounce
b� 3,-15,120,120
lspeed%=1
vs%=temp%+10
�t%=1
�� dy%>=800 � bigroad%=�
��
�� Go up
�
dy%=temp%
��
�dy%+=speed%
�)ș sprop%,290,sp%,sprnm$,dx%,dy%,3:Ȗ
�&ș sprop%,290,sp%,sprnm$,dx%,dy%,3
�� dy%=s%
�
� Go down
�f�:dy%-=speed%:ș sprop%,290,sp%,sprnm$,dx%,dy%,3:Ȗ:ș sprop%,290,sp%,sprnm$,dx%,dy%,3:� dy%=temp%
�
s%-=t%
	t%+=1
� 3,-15,120,120
� s%=temp%
 &ș sprop%,290,sp%,sprnm$,dx%,dy%,0
*Ldy%=880:dx%=�(13)+1:ax%=dx%:dx%=sectionw%*dx%:� dx%<80 � dx%>1120 � �TjH
4rnum%=�(9)
>$� rnum%=9 rnum2%=�(4) � rnum2%=0
H'sprnm$="section"+�(rnum%)+�(rnum2%)
Rspeed%=sectionh%
\
hit%=�
f
ay%=-1
p
temp%=160
zplung%=�
��
�:
�
� �rotate
�� rnum%=9 � �
�1� rnum%<>1 � rnum%<>2 � rnum%<>7 � rnum%<>8 �
� rnum%+=1:� rnum%=7 � rnum%=3
��
�� rnum%=1 �
�rnum%=2
��
�� rnum%=2 �
�rnum%=7
��
	� rnum%=7 �
	rnum%=8
	�
	$� rnum%=8 �
	.rnum%=1
	8�
	B�
	L�
	V�
	`�
	j'sprnm$="section"+�(rnum%)+�(rnum2%)
	t;ș sprop%,290,sp%,sprnm$,dx%,dy%,3:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
	~&ș sprop%,290,sp%,sprnm$,dx%,dy%,3
	��
	�:
	�� Section numbers:
	� � 1 - Left to right straight
	� � 2 - Top to bottom straight
	�� 3 - Top to left curve
	�� 4 - Top to right curve
	�� 5 - Bottom to right curve
	�� 6 - Bottom to left curve
	� � 7 - Right to left straight
	� � 8 - Bottom to top straight
	�� 9 - Crossroads
:

� �check
�
$� �A$(checky%),checkx%,1)<>"0" �
(-� �A$(checky%),checkx%,1)="1" � left%=� �
2(checkx%+=1:right%=�:top%=�:bottom%=�
<score%+=25
F�
P,� �A$(checky%),checkx%,1)="2" � top%=� �
Z)checky%+=1:right%=�:bottom%=�:left%=�
dscore%+=25
n�
x.� �A$(checky%),checkx%,1)="7" � right%=� �
�'checkx%-=1:left%=�:bottom%=�:top%=�
�score%+=25
��
�/� �A$(checky%),checkx%,1)="8" � bottom%=� �
�&checky%-=1:left%=�:top%=�:right%=�
�score%+=25
��
�-� �A$(checky%),checkx%,1)="9" � left%=� �
�(checkx%+=1:top%=�:bottom%=�:right%=�
�score%+=100
��
�.� �A$(checky%),checkx%,1)="9" � right%=� �
�'checkx%-=1:left%=�:top%=�:bottom%=�
score%+=100
�
,� �A$(checky%),checkx%,1)="9" � top%=� �
")checky%+=1:bottom%=�:left%=�:right%=�
,score%+=100
6�
@/� �A$(checky%),checkx%,1)="9" � bottom%=� �
J&checky%-=1:top%=�:left%=�:right%=�
Tscore%+=100
^�
h,� �A$(checky%),checkx%,1)="3" � top%=� �
r0checkx%-=1:right%=�:top%=�:left%=�:bottom%=�
|score%+=50
��
�-� �A$(checky%),checkx%,1)="3" � left%=� �
�0checky%-=1:bottom%=�:left%=�:right%=�:top%=�
�score%+=50
��
�,� �A$(checky%),checkx%,1)="4" � top%=� �
�0checkx%+=1:left%=�:top%=�:right%=�:bottom%=�
�score%+=50
��
�.� �A$(checky%),checkx%,1)="4" � right%=� �
�0checky%-=1:bottom%=�:right%=�:left%=�:top%=�
�score%+=50
��
/� �A$(checky%),checkx%,1)="5" � bottom%=� �
0checkx%+=1:left%=�:bottom%=�:top%=�:right%=�
score%+=50
&�
0.� �A$(checky%),checkx%,1)="5" � right%=� �
:0checky%+=1:top%=�:right%=�:bottom%=�:left%=�
Dscore%+=50
N�
X/� �A$(checky%),checkx%,1)="6" � bottom%=� �
b0checkx%-=1:right%=�:bottom%=�:left%=�:top%=�
lscore%+=50
v�
�-� �A$(checky%),checkx%,1)="6" � left%=� �
�0checky%+=1:top%=�:right%=�:bottom%=�:left%=�
�score%+=50
��
�#� �A$(checky%),checkx%,1)="T" �
�notroad%=�
��
�#� �A$(checky%),checkx%,1)="H" �
�notroad%=�
��
�#� �A$(checky%),checkx%,1)="Q" �
�notroad%=�
��

notroad%=�

�

�

 �

*�

4�

>�

H�

R�

\�

f�

p�

z�

��

��

��

��

��

��

��

��

�L� �A$(checky%),checkx%,1)="0" � �A$(checky%),checkx%,1)="J" � notroad%=�

�-� �A$(checky%),checkx%,1)="J" � finish%=�

��

�:

�� �line
checkx%=3:checky%=8:left%=�

� 63 Ȝ 0
�
$-� �A$(checky%),checkx%,1)="1" � left%=� �
.C�I=0�80:�69,(checkx%*80)+I,(800-(checky%*80))+40:�J=0�100:�J:�I
8(checkx%+=1:right%=�:top%=�:bottom%=�
B�
L,� �A$(checky%),checkx%,1)="2" � top%=� �
VF�I=80�0�-1:�69,(checkx%*80)+40,(800-(checky%*80))+I:�J=0�100:�J:�I
`)checky%+=1:right%=�:bottom%=�:left%=�
j�
t.� �A$(checky%),checkx%,1)="7" � right%=� �
~F�I=80�0�-1:�69,(checkx%*80)+I,(800-(checky%*80))+40:�J=0�100:�J:�I
�'checkx%-=1:left%=�:bottom%=�:top%=�
��
�/� �A$(checky%),checkx%,1)="8" � bottom%=� �
�C�I=0�80:�69,(checkx%*80)+40,(800-(checky%*80))+I:�J=0�100:�J:�I
�&checky%-=1:left%=�:top%=�:right%=�
��
�-� �A$(checky%),checkx%,1)="9" � left%=� �
�C�I=0�80:�69,(checkx%*80)+I,(800-(checky%*80))+40:�J=0�100:�J:�I
�(checkx%+=1:top%=�:bottom%=�:right%=�
��
�.� �A$(checky%),checkx%,1)="9" � right%=� �
�F�I=80�0�-1:�69,(checkx%*80)+I,(800-(checky%*80))+40:�J=0�100:�J:�I
'checkx%-=1:left%=�:top%=�:bottom%=�

�
,� �A$(checky%),checkx%,1)="9" � top%=� �
F�I=80�0�-1:�69,(checkx%*80)+40,(800-(checky%*80))+I:�J=0�100:�J:�I
()checky%+=1:bottom%=�:left%=�:right%=�
2�
</� �A$(checky%),checkx%,1)="9" � bottom%=� �
FC�I=0�80:�69,(checkx%*80)+40,(800-(checky%*80))+I:�J=0�100:�J:�I
P&checky%-=1:top%=�:left%=�:right%=�
Z�
d,� �A$(checky%),checkx%,1)="3" � top%=� �
nRy%=80:�I=40�0�-1:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:�J=0�200:�J:�I
x0checkx%-=1:right%=�:top%=�:left%=�:bottom%=�
��
�-� �A$(checky%),checkx%,1)="3" � left%=� �
�Oy%=40:�I=0�40:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:�J=0�200:�J:�I
�0checky%-=1:bottom%=�:left%=�:right%=�:top%=�
��
�,� �A$(checky%),checkx%,1)="4" � top%=� �
�Py%=80:�I=40�80:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:�J=0�200:�J:�I
�0checkx%+=1:left%=�:top%=�:right%=�:bottom%=�
��
�.� �A$(checky%),checkx%,1)="4" � right%=� �
�Sy%=40:�I=80�40�-1:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:�J=0�200:�J:�I
�0checky%-=1:bottom%=�:right%=�:left%=�:top%=�
��
/� �A$(checky%),checkx%,1)="5" � bottom%=� �
Oy%=0:�I=40�80:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:�J=0�200:�J:�I
0checkx%+=1:left%=�:bottom%=�:top%=�:right%=�
"�
,.� �A$(checky%),checkx%,1)="5" � right%=� �
6Sy%=40:�I=80�40�-1:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:�J=0�200:�J:�I
@0checky%+=1:top%=�:right%=�:bottom%=�:left%=�
J�
T/� �A$(checky%),checkx%,1)="6" � bottom%=� �
^Qy%=0:�I=40�0�-1:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%+=1:�J=0�200:�J:�I
h0checkx%-=1:right%=�:bottom%=�:left%=�:top%=�
r�
|-� �A$(checky%),checkx%,1)="6" � left%=� �
�Oy%=40:�I=0�40:�69,(checkx%*80)+I,(800-(checky%*80))+y%:y%-=1:�J=0�200:�J:�I
�0checky%+=1:top%=�:right%=�:bottom%=�:left%=�
��
�
nr2%=�
��
��
��
��
��
��
��
��
��
�
�
�
&�
0�
:�
D�
N�
X�
b�
l*� �A$(checky%),checkx%,1)="J" � nr2%=�
v�
�:
�� �complete
��
��
�3ș sprop%,290,sp%,"completed",�(1279),�(1023),0
�Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
�� � -99
�score%+=10000
��hiscore
��
�:
�� �gameover
��blankout(2000)
�
�
2ș sprop%,290,sp%,"gameover",�(1279),�(1023),0
 Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
*� � -99
4�hiscore
>�
H:
R� �hiscore
\�
f� score%>=hiscore%(0) �
p�enter_name(0)
z�
�1� score%>=hiscore%(1) � score%<=hiscore%(0) �
��enter_name(1)
��
�1� score%>=hiscore%(2) � score%<=hiscore%(1) �
��enter_name(2)
��
�1� score%>=hiscore%(3) � score%<=hiscore%(2) �
��enter_name(3)
��
�1� score%>=hiscore%(4) � score%<=hiscore%(3) �
��enter_name(4)
��
�1� score%>=hiscore%(5) � score%<=hiscore%(4) �
�enter_name(5)
�
1� score%>=hiscore%(6) � score%<=hiscore%(5) �
$�enter_name(6)
.�
81� score%>=hiscore%(7) � score%<=hiscore%(6) �
B�enter_name(7)
L�
V1� score%>=hiscore%(8) � score%<=hiscore%(7) �
`�enter_name(8)
j�
t1� score%>=hiscore%(9) � score%<=hiscore%(8) �
~�enter_name(9)
��
�ch%=� "<RoadHog$Dir>.Score"
�
� J=0 � 9
��#ch%,hiscore%(J)
��#ch%,name$(J)
��
��#ch%,score%
�	�#ch%
��
��
��
��
�

�
�
�
(�
2�
<�
F:
P� �enter_name(position%)
Z� I=9 � position% � -1
d#� I>0 hiscore%(I)=hiscore%(I-1)
n� I>0 name$(I)=name$(I-1)
x�
�name$(position%)=""
�)ș sprop%,290,sp%,"initials",20,900,0
��input_name
�hiscore%(position%)=score%
�ch%=� "<RoadHog$Dir>.Score"
�
� J=0 � 9
��#ch%,hiscore%(J)
��#ch%,name$(J)
��
��#ch%,score%
�	�#ch%
��
�:
� �input_name
place%=0

� I=1 � 3
"�
,$� �(30+I)+1,8);�alpha$,place%,1)
6,� �-98 place%-=1:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
@,� �-67 place%+=1:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
J� place%<0 place%=27
T� place%>27 place%=0
^
� �-74
h!Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
r!initial$(I)=�alpha$,place%,1)
|�
�8name$(position%)=initial$(1)+initial$(2)+initial$(3)
��
�:
�� �blankout(times%)
�Ȗ
�� 0,0 Ȝ 0
�� I=0 � times%
�rnd%=�(1023)
�� 0,rnd%,1279,rnd%
��
��
�:
�� �panel
px%=0:py%=978

� �TrY

� I=1 � 5
&� panel$
0� J=1 � �(panel$)
:line$=�panel$,J,1)
D� line$<>"0" �
N   � line$="A" �
X/      ș sprop%,290,sp%,"topleft",px%,py%,0
b   �
l   � line$="B" �
v0      ș sprop%,290,sp%,"ptopside",px%,py%,0
�   �
�   � line$="C" �
�0      ș sprop%,290,sp%,"topright",px%,py%,0
�   �
�   � line$="D" �
�1      ș sprop%,290,sp%,"pleftside",px%,py%,0
�   �
�   � line$="E" �
�2      ș sprop%,290,sp%,"prightside",px%,py%,0
�   �
�   � line$="F" �
�2      ș sprop%,290,sp%,"bottomleft",px%,py%,0
�   �
   � line$="G" �
3      ș sprop%,290,sp%,"pbottomside",px%,py%,0
   �
    � line$="H" �
*3      ș sprop%,290,sp%,"bottomright",px%,py%,0
4   �
>�
Hpx%+=20
R�
\px%=0:py%-=20
f�
p�
z:
�� �display
�ch%=� "<RoadHog$Dir>.Score"
�
� I=0 � 9
��#ch%,hiscore%(I)
��#ch%,name$(I)
��
��#ch%,lastscore%
�	�#ch%
�title$="R O A D   H O G"
�� �(63)
�� �40-(�(title$)/2));title$
�5title$="By Michael Cook (Programming + Graphics)"
�� �(63)
�'�40-(�(title$)/2));title$
"title$="And Kevin Simm (Logo)"
� �(63)
$�'�40-(�(title$)/2));title$
."title$="(the Archie Brothers)"
8� �(63)
B�'�40-(�(title$)/2));title$
L(title$="High score: "+�(hiscore%(0))
V� �(63)
`�'�40-(�(title$)/2));title$
j'title$="Last score: "+�(lastscore%)
t� �(63)
~�'�40-(�(title$)/2));title$
�)title$="To play the game press SPACE"
�� �(63)
��'�40-(�(title$)/2));title$
�&title$="(c) Archimedes World 1992"
�� �(63)
� �'�40-(�(title$)/2));title$'
�$ș sprop%,290,sp%,"sign",0,540,0
�'ș sprop%,290,sp%,"sign",1000,540,0
�#ș sprop%,290,sp%,"disc",0,60,0
�%ș sprop%,290,sp%,"disc",870,60,0
�� I=18 � 27
�� �(63)
y� I-18<9 � �32,I);I-17;".  ";name$(I-18);�43,I);hiscore%(I-18) � � �32,I);I-17;". ";name$(I-18);�43,I);hiscore%(I-18)

�
� 63 Ȝ 192
�
(:
2H� "ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBC"
<H� "D00000000000000000000000000000000000000000000000000000000000000E"
FH� "D00000000000000000000000000000000000000000000000000000000000000E"
PH� "D00000000000000000000000000000000000000000000000000000000000000E"
ZH� "FGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGH"
d:
n� "B0000000000000C"
x� "B0000000000000C"
�� "B0000000000000C"
�� "B0000000000000C"
�� "B0000000T00000C"
�� "B00H000000000HC"
�� "B0000000000000C"
�� "BH0000000J00T0C"
�� "BS000H00000000C"
�� "FDDDDDDDDDDDDDE"
�:
�� "B0000000000000C"
�� "B0000000000000C"
�� "B0000000000000C"
�� "B000000000H000C"
� "B0000J00L00000C"
� "B000000000000HC"
� "B00T00H00T0000C"
"� "BL0000000000T0C"
,� "BS000HQ0000000C"
6� "FDDDDDDDDDDDDDE"
@:
J� "B0000000000000C"
T� "B0000000000000C"
^� "B0000000000000C"
h� "B0000H00000000C"
r� "B0T00000000000C"
|� "B000000J0000QHC"
�� "B00000H00L0000C"
�� "BT0000000000T0C"
�� "BS000H0000HQ00C"
�� "FDDDDDDDDDDDDDE"
�:
�� "B0000000000000C"
�� "B0000000000000C"
�� "B0000000000000C"
�� "B00000H0000000C"
�� "B0T00000000000C"
�� "B00000000L00QHC"
�� "B00000H0000000C"
�� "BT000000000000C"
� "BS000H0000L00JC"
� "FDDDDDDDDDDDDDE"
:
&� "B0000000000000C"
0� "B0000000000000C"
:� "B0000000000000C"
D� "B000T000000000C"
N� "B0T0000H000000C"
X� "B000000000000HC"
b� "B00000H00JL000C"
l� "BT0000000000T0C"
v� "BS000L0000H000C"
�� "FDDDDDDDDDDDDDE"
�:
�� "B0000000000000C"
�� "B0000000000000C"
�� "BH000000000000C"
�� "B000T0000000L0C"
�� "B000000H0J0000C"
�� "B00T000000000HC"
�� "B00000H00T0000C"
�� "BH0000000000T0C"
�� "BS000L0T00H000C"
�� "FDDDDDDDDDDDDDE"
�:
� "B0000000000000C"
� "B0000000000000C"
� "B0000000000000C"
 � "B0000H00000H0QC"
*� "B0T00000T00000C"
4� "B000000000Q0QHC"
>� "B00000L00TJ000C"
H� "BT0T00000000L0C"
R� "BS000HQ000HQ00C"
\� "FDDDDDDDDDDDDDE"
f:
p� "B0000000000000C"
z� "B0000000000000C"
�� "B0000000000000C"
�� "B0000L0J000HQ0C"
�� "B0000000QH0000C"
�� "B000000000000HC"
�� "B000L0HQ0T0000C"
�� "BT0000000000T0C"
�� "BS000H0T00H000C"
�� "FDDDDDDDDDDDDDE"
�:
�� "B0000000000000C"
�� "B0000000000000C"
�� "B0000000000000C"
�� "B000T0000H0TJTC"
� "B0L000QH000000C"
� "B000000000000LC"
� "B00000HQ0T0000C"
$� "BT0000000000T0C"
.� "BS000L0T00HQ00C"
8� "FDDDDDDDDDDDDDE"
B:
L� "B0000000000000C"
V� "B0000000000000C"
`� "BH00000000000JC"
j� "BT00T0000H00L0C"
t� "B000000H0Q0000C"
~� "B00T000000000HC"
�� "B00000HQ0L0000C"
�� "BH00L0000000T0C"
�� "BS000H0T00H00QC"
�� "FDDDDDDDDDDDDDE"
�:
�#� 70,66,62,58,54,50,46,42,38,34
�
00000000  0d 00 0a 1f f4 20 3e 20  3c 52 6f 61 64 48 6f 67  |..... > <RoadHog|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 17 f4 20 52 6f 61  64 68 6f 67 20 6d 61 69  |.... Roadhog mai|
00000030  6e 20 63 6f 64 65 0d 00  1e 1b f4 20 28 63 29 20  |n code..... (c) |
00000040  4d 69 63 68 61 65 6c 20  43 6f 6f 6b 20 31 39 39  |Michael Cook 199|
00000050  31 0d 00 28 05 3a 0d 00  32 1b f1 27 22 52 6f 61  |1..(.:..2..'"Roa|
00000060  64 68 6f 67 20 69 73 20  6c 6f 61 64 69 6e 67 2e  |dhog is loading.|
00000070  22 0d 00 3c 16 f1 27 22  50 6c 65 61 73 65 20 77  |"..<..'"Please w|
00000080  61 69 74 2e 2e 2e 22 0d  00 46 05 87 0d 00 50 1c  |ait..."..F....P.|
00000090  c8 99 20 22 4f 53 5f 55  70 64 61 74 65 4d 45 4d  |.. "OS_UpdateMEM|
000000a0  43 22 2c 36 34 2c 36 34  0d 00 5a 10 de 20 73 70  |C",64,64..Z.. sp|
000000b0  25 20 26 31 35 30 30 30  0d 00 64 0f 21 73 70 25  |% &15000..d.!sp%|
000000c0  3d 26 31 35 30 30 30 0d  00 6e 0b 73 70 25 21 34  |=&15000..n.sp%!4|
000000d0  3d 30 0d 00 78 0d 73 70  25 21 31 32 3d 31 36 0d  |=0..x.sp%!12=16.|
000000e0  00 82 0e 73 70 72 6f 70  25 3d 26 32 45 0d 00 8c  |...sprop%=&2E...|
000000f0  2d c8 99 20 73 70 72 6f  70 25 2c 32 36 36 2c 73  |-.. sprop%,266,s|
00000100  70 25 2c 22 3c 52 6f 61  64 48 6f 67 24 44 69 72  |p%,"<RoadHog$Dir|
00000110  3e 2e 53 70 72 69 74 65  73 22 0d 00 96 0b de 20  |>.Sprites"..... |
00000120  41 24 28 39 29 0d 00 a0  11 de 20 68 69 73 63 6f  |A$(9)..... hisco|
00000130  72 65 25 28 39 29 0d 00  aa 0e de 20 6e 61 6d 65  |re%(9)..... name|
00000140  24 28 39 29 0d 00 b4 11  de 20 69 6e 69 74 69 61  |$(9)..... initia|
00000150  6c 24 28 33 29 0d 00 be  0e 6d 6c 65 76 65 6c 25  |l$(3)....mlevel%|
00000160  3d 31 31 0d 00 c8 15 de  20 64 65 6c 61 79 25 28  |=11..... delay%(|
00000170  6d 6c 65 76 65 6c 25 29  0d 00 d2 0a f7 20 8d 74  |mlevel%)..... .t|
00000180  7a 5d 0d 00 dc 15 e3 20  49 3d 31 20 b8 20 6d 6c  |z]..... I=1 . ml|
00000190  65 76 65 6c 25 2d 31 0d  00 e6 09 f3 20 64 73 25  |evel%-1..... ds%|
000001a0  0d 00 f0 11 64 65 6c 61  79 25 28 49 29 3d 64 73  |....delay%(I)=ds|
000001b0  25 0d 00 fa 05 ed 0d 01  04 08 c8 a0 20 34 0d 01  |%........... 4..|
000001c0  0e 05 3a 0d 01 18 05 f5  0d 01 22 13 ee 20 85 20  |..:.......".. . |
000001d0  f1 20 8a 30 2c 31 35 29  3b 3a e0 0d 01 2c 09 eb  |. .0,15);:...,..|
000001e0  31 35 3a 87 0d 01 36 0c  f2 64 69 73 70 6c 61 79  |15:...6..display|
000001f0  0d 01 40 0d f5 20 fd 20  a6 20 2d 39 39 0d 01 4a  |..@.. . . -99..J|
00000200  33 ee 20 85 20 e7 20 9f  3d 31 37 20 8c 20 f2 68  |3. . . .=17 . .h|
00000210  69 73 63 6f 72 65 3a e5  20 8d 54 58 41 20 8b 20  |iscore:. .TXA . |
00000220  db 3a f1 20 f6 24 3b 22  20 2f 20 22 3b 9e 3a e0  |.:. .$;" / ";.:.|
00000230  0d 01 54 27 f4 20 44 6f  20 4e 4f 54 20 63 68 61  |..T'. Do NOT cha|
00000240  6e 67 65 20 74 68 65 20  6e 65 78 74 20 74 77 6f  |nge the next two|
00000250  20 6c 69 6e 65 73 21 0d  01 5e 0c 6c 65 76 65 6c  | lines!..^.level|
00000260  25 3d 31 0d 01 68 0c 73  63 6f 72 65 25 3d 30 0d  |%=1..h.score%=0.|
00000270  01 72 1f 63 68 25 3d 8e  20 22 3c 52 6f 61 64 48  |.r.ch%=. "<RoadH|
00000280  6f 67 24 44 69 72 3e 2e  53 63 6f 72 65 22 0d 01  |og$Dir>.Score"..|
00000290  7c 0d e3 20 49 3d 30 20  b8 20 39 0d 01 86 15 e8  ||.. I=0 . 9.....|
000002a0  23 63 68 25 2c 68 69 73  63 6f 72 65 25 28 49 29  |#ch%,hiscore%(I)|
000002b0  0d 01 90 12 e8 23 63 68  25 2c 6e 61 6d 65 24 28  |.....#ch%,name$(|
000002c0  49 29 0d 01 9a 05 ed 0d  01 a4 09 d9 23 63 68 25  |I)..........#ch%|
000002d0  0d 01 ae 07 db 3a 87 0d  01 b8 09 f2 69 6e 69 74  |.....:......init|
000002e0  0d 01 c2 0a f2 70 61 6e  65 6c 0d 01 cc 16 f2 69  |.....panel.....i|
000002f0  6e 69 74 6c 65 76 65 6c  28 6c 65 76 65 6c 25 29  |nitlevel(level%)|
00000300  0d 01 d6 05 3a 0d 01 e0  05 f5 0d 01 ea 15 e7 20  |....:.......... |
00000310  66 69 6e 69 73 68 25 3d  a3 20 f2 64 72 6f 70 0d  |finish%=. .drop.|
00000320  01 f4 11 e7 20 66 69 6e  69 73 68 25 3d b9 20 8c  |.... finish%=. .|
00000330  0d 01 fe 09 f2 6c 69 6e  65 0d 02 08 13 f2 62 6c  |.....line.....bl|
00000340  61 6e 6b 6f 75 74 28 31  30 30 30 29 0d 02 12 0d  |ankout(1000)....|
00000350  6c 65 76 65 6c 25 2b 3d  31 0d 02 1c 42 e7 6c 65  |level%+=1...B.le|
00000360  76 65 6c 25 3c 6d 6c 65  76 65 6c 25 20 f2 69 6e  |vel%<mlevel% .in|
00000370  69 74 3a 73 63 6f 72 65  25 2b 3d 31 30 30 30 3a  |it:score%+=1000:|
00000380  db 3a f2 70 61 6e 65 6c  3a f2 69 6e 69 74 6c 65  |.:.panel:.initle|
00000390  76 65 6c 28 6c 65 76 65  6c 25 29 0d 02 26 05 cd  |vel(level%)..&..|
000003a0  0d 02 30 2e fd 20 6e 6f  74 72 6f 61 64 25 3d b9  |..0.. notroad%=.|
000003b0  20 84 20 62 69 67 72 6f  61 64 25 3d b9 20 84 20  | . bigroad%=. . |
000003c0  6c 65 76 65 6c 25 3d 6d  6c 65 76 65 6c 25 0d 02  |level%=mlevel%..|
000003d0  3a 24 e7 20 6e 6f 74 72  6f 61 64 25 3d b9 20 6e  |:$. notroad%=. n|
000003e0  72 32 25 3d a3 3a f2 6c  69 6e 65 3a 6e 72 32 25  |r2%=.:.line:nr2%|
000003f0  3d a3 0d 02 44 2a e7 20  6c 65 76 65 6c 25 3d 6d  |=...D*. level%=m|
00000400  6c 65 76 65 6c 25 20 f2  63 6f 6d 70 6c 65 74 65  |level% .complete|
00000410  20 8b 20 f2 67 61 6d 65  6f 76 65 72 0d 02 4e 07  | . .gameover..N.|
00000420  fd 20 a3 0d 02 58 05 e0  0d 02 62 05 3a 0d 02 6c  |. ...X....b.:..l|
00000430  0b dd 20 f2 69 6e 69 74  0d 02 76 10 73 65 63 74  |.. .init..v.sect|
00000440  69 6f 6e 77 25 3d 38 30  0d 02 80 10 73 65 63 74  |ionw%=80....sect|
00000450  69 6f 6e 68 25 3d 38 30  0d 02 8a 09 73 78 25 3d  |ionh%=80....sx%=|
00000460  30 0d 02 94 0b 73 79 25  3d 38 30 30 0d 02 9e 0f  |0....sy%=800....|
00000470  64 78 25 3d b3 28 31 33  29 2b 31 0d 02 a8 0b 61  |dx%=.(13)+1....a|
00000480  78 25 3d 64 78 25 0d 02  b2 15 64 78 25 3d 73 65  |x%=dx%....dx%=se|
00000490  63 74 69 6f 6e 77 25 2a  64 78 25 0d 02 bc 13 e7  |ctionw%*dx%.....|
000004a0  20 64 78 25 3c 38 30 20  64 78 25 3d 38 30 0d 02  | dx%<80 dx%=80..|
000004b0  c6 17 e7 20 64 78 25 3e  31 31 32 30 20 64 78 25  |... dx%>1120 dx%|
000004c0  3d 31 31 32 30 0d 02 d0  0b 64 79 25 3d 38 30 30  |=1120....dy%=800|
000004d0  0d 02 da 09 61 79 25 3d  30 0d 02 e4 0d 66 69 6e  |....ay%=0....fin|
000004e0  69 73 68 25 3d a3 0d 02  ee 0a 68 69 74 25 3d a3  |ish%=.....hit%=.|
000004f0  0d 02 f8 0e 6e 6f 74 72  6f 61 64 25 3d a3 0d 03  |....notroad%=...|
00000500  02 0e 62 69 67 72 6f 61  64 25 3d a3 0d 03 0c 14  |..bigroad%=.....|
00000510  73 70 65 65 64 25 3d 73  65 63 74 69 6f 6e 68 25  |speed%=sectionh%|
00000520  0d 03 16 08 74 25 3d 31  0d 03 20 0e 72 6e 75 6d  |....t%=1.. .rnum|
00000530  25 3d b3 28 39 29 0d 03  2a 24 e7 20 72 6e 75 6d  |%=.(9)..*$. rnum|
00000540  25 3d 39 20 72 6e 75 6d  32 25 3d b3 28 34 29 20  |%=9 rnum2%=.(4) |
00000550  8b 20 72 6e 75 6d 32 25  3d 30 0d 03 34 27 73 70  |. rnum2%=0..4'sp|
00000560  72 6e 6d 24 3d 22 73 65  63 74 69 6f 6e 22 2b c3  |rnm$="section"+.|
00000570  28 72 6e 75 6d 25 29 2b  c3 28 72 6e 75 6d 32 25  |(rnum%)+.(rnum2%|
00000580  29 0d 03 3e 0d 74 65 6d  70 25 3d 31 36 30 0d 03  |)..>.temp%=160..|
00000590  48 0c 73 25 3d 74 65 6d  70 25 0d 03 52 0b 66 6c  |H.s%=temp%..R.fl|
000005a0  69 70 25 3d b9 0d 03 5c  0b 6c 65 66 74 25 3d b9  |ip%=...\.left%=.|
000005b0  0d 03 66 0c 72 69 67 68  74 25 3d a3 0d 03 70 0a  |..f.right%=...p.|
000005c0  74 6f 70 25 3d a3 0d 03  7a 0d 62 6f 74 74 6f 6d  |top%=...z.bottom|
000005d0  25 3d a3 0d 03 84 0c 6b  6c 65 66 74 25 3d a3 0d  |%=.....kleft%=..|
000005e0  03 8e 0d 6b 72 69 67 68  74 25 3d a3 0d 03 98 0c  |...kright%=.....|
000005f0  70 6c 75 6e 67 25 3d a3  0d 03 a2 0a 6e 72 32 25  |plung%=.....nr2%|
00000600  3d a3 0d 03 ac 28 61 6c  70 68 61 24 3d 22 41 42  |=....(alpha$="AB|
00000610  43 44 45 46 47 48 49 4a  4b 4c 4d 4e 4f 50 51 52  |CDEFGHIJKLMNOPQR|
00000620  53 54 55 56 57 58 59 5a  20 22 0d 03 b6 05 e1 0d  |STUVWXYZ "......|
00000630  03 c0 05 3a 0d 03 ca 18  dd 20 f2 69 6e 69 74 6c  |...:..... .initl|
00000640  65 76 65 6c 28 6c 65 76  65 6c 25 29 0d 03 d4 17  |evel(level%)....|
00000650  e7 20 6c 65 76 65 6c 25  3d 31 20 8c 20 f7 20 8d  |. level%=1 . . .|
00000660  44 6e 59 0d 03 de 17 e7  20 6c 65 76 65 6c 25 3d  |DnY..... level%=|
00000670  32 20 8c 20 f7 20 8d 64  5c 59 0d 03 e8 17 e7 20  |2 . . .d\Y..... |
00000680  6c 65 76 65 6c 25 3d 33  20 8c 20 f7 20 8d 44 4a  |level%=3 . . .DJ|
00000690  5a 0d 03 f2 17 e7 20 6c  65 76 65 6c 25 3d 34 20  |Z..... level%=4 |
000006a0  8c 20 f7 20 8d 74 78 5a  0d 03 fc 17 e7 20 6c 65  |. . .txZ..... le|
000006b0  76 65 6c 25 3d 35 20 8c  20 f7 20 8d 54 66 5b 0d  |vel%=5 . . .Tf[.|
000006c0  04 06 17 e7 20 6c 65 76  65 6c 25 3d 36 20 8c 20  |.... level%=6 . |
000006d0  f7 20 8d 74 54 5b 0d 04  10 17 e7 20 6c 65 76 65  |. .tT[..... leve|
000006e0  6c 25 3d 37 20 8c 20 f7  20 8d 54 42 5c 0d 04 1a  |l%=7 . . .TB\...|
000006f0  17 e7 20 6c 65 76 65 6c  25 3d 38 20 8c 20 f7 20  |.. level%=8 . . |
00000700  8d 44 70 5c 0d 04 24 17  e7 20 6c 65 76 65 6c 25  |.Dp\..$.. level%|
00000710  3d 39 20 8c 20 f7 20 8d  64 5e 5c 0d 04 2e 18 e7  |=9 . . .d^\.....|
00000720  20 6c 65 76 65 6c 25 3d  31 30 20 8c 20 f7 20 8d  | level%=10 . . .|
00000730  44 4c 5d 0d 04 38 05 3a  0d 04 42 0d e3 20 49 3d  |DL]..8.:..B.. I=|
00000740  30 20 b8 20 39 0d 04 4c  0b f3 20 73 63 65 6e 24  |0 . 9..L.. scen$|
00000750  0d 04 56 14 e3 20 4a 3d  31 20 b8 20 a9 28 73 63  |..V.. J=1 . .(sc|
00000760  65 6e 24 29 0d 04 60 15  6c 69 6e 65 24 3d c1 73  |en$)..`.line$=.s|
00000770  63 65 6e 24 2c 4a 2c 31  29 0d 04 6a 12 e7 20 6c  |cen$,J,1)..j.. l|
00000780  69 6e 65 24 3c 3e 22 30  22 20 8c 0d 04 74 14 20  |ine$<>"0" ...t. |
00000790  20 20 e7 20 6c 69 6e 65  24 3d 22 42 22 20 8c 0d  |  . line$="B" ..|
000007a0  04 7e 18 20 20 20 20 20  20 73 78 25 2b 3d 73 65  |.~.      sx%+=se|
000007b0  63 74 69 6f 6e 77 25 0d  04 88 2f 20 20 20 20 20  |ctionw%.../     |
000007c0  20 c8 99 20 73 70 72 6f  70 25 2c 32 39 30 2c 73  | .. sprop%,290,s|
000007d0  70 25 2c 22 62 6f 72 64  65 72 32 22 2c 73 78 25  |p%,"border2",sx%|
000007e0  2c 73 79 25 2c 30 0d 04  92 08 20 20 20 cd 0d 04  |,sy%,0....   ...|
000007f0  9c 14 20 20 20 e7 20 6c  69 6e 65 24 3d 22 51 22  |..   . line$="Q"|
00000800  20 8c 0d 04 a6 2c 20 20  20 20 20 20 c8 99 20 73  | ....,      .. s|
00000810  70 72 6f 70 25 2c 32 39  30 2c 73 70 25 2c 22 73  |prop%,290,sp%,"s|
00000820  68 65 64 22 2c 73 78 25  2c 73 79 25 2c 30 0d 04  |hed",sx%,sy%,0..|
00000830  b0 08 20 20 20 cd 0d 04  ba 14 20 20 20 e7 20 6c  |..   .....   . l|
00000840  69 6e 65 24 3d 22 43 22  20 8c 0d 04 c4 2f 20 20  |ine$="C" ..../  |
00000850  20 20 20 20 c8 99 20 73  70 72 6f 70 25 2c 32 39  |    .. sprop%,29|
00000860  30 2c 73 70 25 2c 22 62  6f 72 64 65 72 33 22 2c  |0,sp%,"border3",|
00000870  73 78 25 2c 73 79 25 2c  30 0d 04 ce 08 20 20 20  |sx%,sy%,0....   |
00000880  cd 0d 04 d8 14 20 20 20  e7 20 6c 69 6e 65 24 3d  |.....   . line$=|
00000890  22 44 22 20 8c 0d 04 e2  2f 20 20 20 20 20 20 c8  |"D" ..../      .|
000008a0  99 20 73 70 72 6f 70 25  2c 32 39 30 2c 73 70 25  |. sprop%,290,sp%|
000008b0  2c 22 62 6f 72 64 65 72  34 22 2c 73 78 25 2c 73  |,"border4",sx%,s|
000008c0  79 25 2c 30 0d 04 ec 08  20 20 20 cd 0d 04 f6 14  |y%,0....   .....|
000008d0  20 20 20 e7 20 6c 69 6e  65 24 3d 22 45 22 20 8c  |   . line$="E" .|
000008e0  0d 05 00 2f 20 20 20 20  20 20 c8 99 20 73 70 72  |.../      .. spr|
000008f0  6f 70 25 2c 32 39 30 2c  73 70 25 2c 22 62 6f 72  |op%,290,sp%,"bor|
00000900  64 65 72 35 22 2c 73 78  25 2c 73 79 25 2c 30 0d  |der5",sx%,sy%,0.|
00000910  05 0a 08 20 20 20 cd 0d  05 14 14 20 20 20 e7 20  |...   .....   . |
00000920  6c 69 6e 65 24 3d 22 46  22 20 8c 0d 05 1e 18 20  |line$="F" ..... |
00000930  20 20 20 20 20 73 78 25  2b 3d 73 65 63 74 69 6f  |     sx%+=sectio|
00000940  6e 77 25 0d 05 28 2f 20  20 20 20 20 20 c8 99 20  |nw%..(/      .. |
00000950  73 70 72 6f 70 25 2c 32  39 30 2c 73 70 25 2c 22  |sprop%,290,sp%,"|
00000960  62 6f 72 64 65 72 36 22  2c 73 78 25 2c 73 79 25  |border6",sx%,sy%|
00000970  2c 30 0d 05 32 08 20 20  20 cd 0d 05 3c 14 20 20  |,0..2.   ...<.  |
00000980  20 e7 20 6c 69 6e 65 24  3d 22 54 22 20 8c 0d 05  | . line$="T" ...|
00000990  46 2c 20 20 20 20 20 20  c8 99 20 73 70 72 6f 70  |F,      .. sprop|
000009a0  25 2c 32 39 30 2c 73 70  25 2c 22 74 72 65 65 22  |%,290,sp%,"tree"|
000009b0  2c 73 78 25 2c 73 79 25  2c 30 0d 05 50 08 20 20  |,sx%,sy%,0..P.  |
000009c0  20 cd 0d 05 5a 14 20 20  20 e7 20 6c 69 6e 65 24  | ...Z.   . line$|
000009d0  3d 22 48 22 20 8c 0d 05  64 2d 20 20 20 20 20 20  |="H" ...d-      |
000009e0  c8 99 20 73 70 72 6f 70  25 2c 32 39 30 2c 73 70  |.. sprop%,290,sp|
000009f0  25 2c 22 68 6f 75 73 65  22 2c 73 78 25 2c 73 79  |%,"house",sx%,sy|
00000a00  25 2c 30 0d 05 6e 08 20  20 20 cd 0d 05 78 14 20  |%,0..n.   ...x. |
00000a10  20 20 e7 20 6c 69 6e 65  24 3d 22 53 22 20 8c 0d  |  . line$="S" ..|
00000a20  05 82 2d 20 20 20 20 20  20 c8 99 20 73 70 72 6f  |..-      .. spro|
00000a30  70 25 2c 32 39 30 2c 73  70 25 2c 22 73 74 61 72  |p%,290,sp%,"star|
00000a40  74 22 2c 73 78 25 2c 73  79 25 2c 30 0d 05 8c 08  |t",sx%,sy%,0....|
00000a50  20 20 20 cd 0d 05 96 14  20 20 20 e7 20 6c 69 6e  |   .....   . lin|
00000a60  65 24 3d 22 4a 22 20 8c  0d 05 a0 2e 20 20 20 20  |e$="J" .....    |
00000a70  20 20 c8 99 20 73 70 72  6f 70 25 2c 32 39 30 2c  |  .. sprop%,290,|
00000a80  73 70 25 2c 22 66 69 6e  69 73 68 22 2c 73 78 25  |sp%,"finish",sx%|
00000a90  2c 73 79 25 2c 30 0d 05  aa 08 20 20 20 cd 0d 05  |,sy%,0....   ...|
00000aa0  b4 14 20 20 20 e7 20 6c  69 6e 65 24 3d 22 4c 22  |..   . line$="L"|
00000ab0  20 8c 0d 05 be 2d 20 20  20 20 20 20 c8 99 20 73  | ....-      .. s|
00000ac0  70 72 6f 70 25 2c 32 39  30 2c 73 70 25 2c 22 6c  |prop%,290,sp%,"l|
00000ad0  69 67 68 74 22 2c 73 78  25 2c 73 79 25 2c 30 0d  |ight",sx%,sy%,0.|
00000ae0  05 c8 08 20 20 20 cd 0d  05 d2 05 cd 0d 05 dc 12  |...   ..........|
00000af0  73 78 25 2b 3d 73 65 63  74 69 6f 6e 77 25 0d 05  |sx%+=sectionw%..|
00000b00  e6 05 ed 0d 05 f0 11 73  79 25 2d 3d 38 30 3a 73  |.......sy%-=80:s|
00000b10  78 25 3d 30 0d 05 fa 0f  41 24 28 49 29 3d 73 63  |x%=0....A$(I)=sc|
00000b20  65 6e 24 0d 06 04 05 ed  0d 06 0e 0d e3 20 49 3d  |en$.......... I=|
00000b30  30 20 b8 20 39 0d 06 18  14 e3 20 4a 3d 30 20 b8  |0 . 9..... J=0 .|
00000b40  20 a9 28 41 24 28 49 29  29 0d 06 22 2b e7 20 c1  | .(A$(I)).."+. .|
00000b50  41 24 28 49 29 2c 4a 2c  31 29 3d 22 53 22 20 63  |A$(I),J,1)="S" c|
00000b60  68 65 63 6b 78 25 3d 4a  2b 31 3a 63 68 65 63 6b  |heckx%=J+1:check|
00000b70  79 25 3d 49 0d 06 2c 05  ed 0d 06 36 05 ed 0d 06  |y%=I..,....6....|
00000b80  40 05 e1 0d 06 4a 05 3a  0d 06 54 0b dd 20 f2 64  |@....J.:..T.. .d|
00000b90  72 6f 70 0d 06 5e 56 f1  20 8a 33 2c 32 29 3b 22  |rop..^V. .3,2);"|
00000ba0  53 63 6f 72 65 3a 20 22  3b 73 63 6f 72 65 25 3b  |Score: ";score%;|
00000bb0  8a 33 33 2c 32 29 3b 22  4c 65 76 65 6c 3a 20 22  |.33,2);"Level: "|
00000bc0  3b 6c 65 76 65 6c 25 3b  8a 36 31 2c 32 29 3b 22  |;level%;.61,2);"|
00000bd0  48 69 67 68 20 53 63 6f  72 65 3a 20 22 3b 68 69  |High Score: ";hi|
00000be0  73 63 6f 72 65 25 28 30  29 0d 06 68 07 d1 3d 30  |score%(0)..h..=0|
00000bf0  0d 06 72 05 f5 0d 06 7c  41 e7 20 a6 2d 39 38 20  |..r....|A. .-98 |
00000c00  80 20 c1 41 24 28 61 79  25 29 2c 61 78 25 2d 31  |. .A$(ay%),ax%-1|
00000c10  2c 31 29 3d 22 30 22 20  61 78 25 2d 3d 31 3a 64  |,1)="0" ax%-=1:d|
00000c20  78 25 2d 3d 73 65 63 74  69 6f 6e 77 25 3a 6b 6c  |x%-=sectionw%:kl|
00000c30  65 66 74 25 3d b9 0d 06  86 42 e7 20 a6 2d 36 37  |eft%=....B. .-67|
00000c40  20 80 20 c1 41 24 28 61  79 25 29 2c 61 78 25 2b  | . .A$(ay%),ax%+|
00000c50  31 2c 31 29 3d 22 30 22  20 61 78 25 2b 3d 31 3a  |1,1)="0" ax%+=1:|
00000c60  64 78 25 2b 3d 73 65 63  74 69 6f 6e 77 25 3a 6b  |dx%+=sectionw%:k|
00000c70  72 69 67 68 74 25 3d b9  0d 06 90 25 e7 20 a6 2d  |right%=....%. .-|
00000c80  31 30 35 20 91 3d 64 65  6c 61 79 25 28 6c 65 76  |105 .=delay%(lev|
00000c90  65 6c 25 29 3a 70 6c 75  6e 67 25 3d b9 0d 06 9a  |el%):plung%=....|
00000ca0  0e e7 20 a6 2d 38 32 20  d4 20 ee 0d 06 a4 0e e7  |.. .-82 . ......|
00000cb0  20 a6 2d 31 37 20 d4 20  87 0d 06 ae 2f e7 20 64  | .-17 . ..../. d|
00000cc0  79 25 3c 3d 74 65 6d 70  25 20 80 20 64 78 25 3e  |y%<=temp% . dx%>|
00000cd0  3d 38 30 20 80 20 64 78  25 3c 3d 31 30 34 30 20  |=80 . dx%<=1040 |
00000ce0  8c 20 68 69 74 25 3d b9  0d 06 b8 13 e7 20 64 78  |. hit%=...... dx|
00000cf0  25 3c 38 30 20 64 78 25  3d 38 30 0d 06 c2 17 e7  |%<80 dx%=80.....|
00000d00  20 64 78 25 3e 31 31 32  30 20 64 78 25 3d 31 31  | dx%>1120 dx%=11|
00000d10  32 30 0d 06 cc 48 e7 20  c1 41 24 28 61 79 25 2b  |20...H. .A$(ay%+|
00000d20  31 29 2c 61 78 25 2c 31  29 3c 3e 22 30 22 20 8c  |1),ax%,1)<>"0" .|
00000d30  20 74 65 6d 70 25 3d 64  79 25 3a 68 69 74 25 3d  | temp%=dy%:hit%=|
00000d40  b9 3a c1 41 24 28 61 79  25 29 2c 61 78 25 2c 31  |.:.A$(ay%),ax%,1|
00000d50  29 3d c3 28 72 6e 75 6d  25 29 0d 06 d6 5c e7 20  |)=.(rnum%)...\. |
00000d60  a6 2d 35 36 20 8c 20 c8  99 20 73 70 72 6f 70 25  |.-56 . .. sprop%|
00000d70  2c 32 39 30 2c 73 70 25  2c 73 70 72 6e 6d 24 2c  |,290,sp%,sprnm$,|
00000d80  64 78 25 2c 64 79 25 2c  30 3a f5 20 fd 20 a6 2d  |dx%,dy%,0:. . .-|
00000d90  35 35 3a c8 99 20 73 70  72 6f 70 25 2c 32 39 30  |55:.. sprop%,290|
00000da0  2c 73 70 25 2c 22 62 6c  61 6e 6b 22 2c 64 78 25  |,sp%,"blank",dx%|
00000db0  2c 64 79 25 2c 30 0d 06  e0 0e e7 20 68 69 74 25  |,dy%,0..... hit%|
00000dc0  3d a3 20 8c 0d 06 ea 12  e7 20 a6 2d 39 39 20 f2  |=. ...... .-99 .|
00000dd0  72 6f 74 61 74 65 0d 06  f4 29 c8 99 20 73 70 72  |rotate...).. spr|
00000de0  6f 70 25 2c 32 39 30 2c  73 70 25 2c 73 70 72 6e  |op%,290,sp%,sprn|
00000df0  6d 24 2c 64 78 25 2c 64  79 25 2c 33 3a c8 96 0d  |m$,dx%,dy%,3:...|
00000e00  06 fe 38 e7 20 6b 6c 65  66 74 25 20 84 20 6b 72  |..8. kleft% . kr|
00000e10  69 67 68 74 25 20 c8 96  3a c8 96 3a c8 96 3a c8  |ight% ..:..:..:.|
00000e20  96 3a c8 96 3a 6b 6c 65  66 74 25 3d a3 3a 6b 72  |.:..:kleft%=.:kr|
00000e30  69 67 68 74 25 3d a3 0d  07 08 26 c8 99 20 73 70  |ight%=....&.. sp|
00000e40  72 6f 70 25 2c 32 39 30  2c 73 70 25 2c 73 70 72  |rop%,290,sp%,spr|
00000e50  6e 6d 24 2c 64 78 25 2c  64 79 25 2c 33 0d 07 12  |nm$,dx%,dy%,3...|
00000e60  05 cd 0d 07 1c 1b e7 20  68 69 74 25 3d b9 20 f2  |....... hit%=. .|
00000e70  62 6f 75 6e 63 65 3a f2  63 68 65 63 6b 0d 07 26  |bounce:.check..&|
00000e80  16 fd 20 91 3e 64 65 6c  61 79 25 28 6c 65 76 65  |.. .>delay%(leve|
00000e90  6c 25 29 0d 07 30 28 e7  20 70 6c 75 6e 67 25 3d  |l%)..0(. plung%=|
00000ea0  a3 20 80 20 64 79 25 3c  38 38 30 20 d4 20 31 2c  |. . dy%<880 . 1,|
00000eb0  2d 31 35 2c 31 32 30 2c  31 32 30 0d 07 3a 16 61  |-15,120,120..:.a|
00000ec0  79 25 2b 3d 31 3a 64 79  25 2d 3d 73 70 65 65 64  |y%+=1:dy%-=speed|
00000ed0  25 0d 07 44 05 e1 0d 07  4e 05 3a 0d 07 58 0d dd  |%..D....N.:..X..|
00000ee0  20 f2 62 6f 75 6e 63 65  0d 07 62 13 d4 20 33 2c  | .bounce..b.. 3,|
00000ef0  2d 31 35 2c 31 32 30 2c  31 32 30 0d 07 6c 0c 73  |-15,120,120..l.s|
00000f00  70 65 65 64 25 3d 31 0d  07 76 0f 73 25 3d 74 65  |peed%=1..v.s%=te|
00000f10  6d 70 25 2b 31 30 0d 07  80 08 74 25 3d 31 0d 07  |mp%+10....t%=1..|
00000f20  8a 1b e7 20 64 79 25 3e  3d 38 30 30 20 8c 20 62  |... dy%>=800 . b|
00000f30  69 67 72 6f 61 64 25 3d  b9 0d 07 94 05 f5 0d 07  |igroad%=........|
00000f40  9e 0b f4 20 47 6f 20 75  70 0d 07 a8 0d 64 79 25  |... Go up....dy%|
00000f50  3d 74 65 6d 70 25 0d 07  b2 05 f5 0d 07 bc 0f 64  |=temp%.........d|
00000f60  79 25 2b 3d 73 70 65 65  64 25 0d 07 c6 29 c8 99  |y%+=speed%...)..|
00000f70  20 73 70 72 6f 70 25 2c  32 39 30 2c 73 70 25 2c  | sprop%,290,sp%,|
00000f80  73 70 72 6e 6d 24 2c 64  78 25 2c 64 79 25 2c 33  |sprnm$,dx%,dy%,3|
00000f90  3a c8 96 0d 07 d0 26 c8  99 20 73 70 72 6f 70 25  |:.....&.. sprop%|
00000fa0  2c 32 39 30 2c 73 70 25  2c 73 70 72 6e 6d 24 2c  |,290,sp%,sprnm$,|
00000fb0  64 78 25 2c 64 79 25 2c  33 0d 07 da 0c fd 20 64  |dx%,dy%,3..... d|
00000fc0  79 25 3d 73 25 0d 07 e4  0d f4 20 47 6f 20 64 6f  |y%=s%..... Go do|
00000fd0  77 6e 0d 07 ee 66 f5 3a  64 79 25 2d 3d 73 70 65  |wn...f.:dy%-=spe|
00000fe0  65 64 25 3a c8 99 20 73  70 72 6f 70 25 2c 32 39  |ed%:.. sprop%,29|
00000ff0  30 2c 73 70 25 2c 73 70  72 6e 6d 24 2c 64 78 25  |0,sp%,sprnm$,dx%|
00001000  2c 64 79 25 2c 33 3a c8  96 3a c8 99 20 73 70 72  |,dy%,3:..:.. spr|
00001010  6f 70 25 2c 32 39 30 2c  73 70 25 2c 73 70 72 6e  |op%,290,sp%,sprn|
00001020  6d 24 2c 64 78 25 2c 64  79 25 2c 33 3a fd 20 64  |m$,dx%,dy%,3:. d|
00001030  79 25 3d 74 65 6d 70 25  0d 07 f8 0a 73 25 2d 3d  |y%=temp%....s%-=|
00001040  74 25 0d 08 02 09 74 25  2b 3d 31 0d 08 0c 13 d4  |t%....t%+=1.....|
00001050  20 33 2c 2d 31 35 2c 31  32 30 2c 31 32 30 0d 08  | 3,-15,120,120..|
00001060  16 0e fd 20 73 25 3d 74  65 6d 70 25 0d 08 20 26  |... s%=temp%.. &|
00001070  c8 99 20 73 70 72 6f 70  25 2c 32 39 30 2c 73 70  |.. sprop%,290,sp|
00001080  25 2c 73 70 72 6e 6d 24  2c 64 78 25 2c 64 79 25  |%,sprnm$,dx%,dy%|
00001090  2c 30 0d 08 2a 4c 64 79  25 3d 38 38 30 3a 64 78  |,0..*Ldy%=880:dx|
000010a0  25 3d b3 28 31 33 29 2b  31 3a 61 78 25 3d 64 78  |%=.(13)+1:ax%=dx|
000010b0  25 3a 64 78 25 3d 73 65  63 74 69 6f 6e 77 25 2a  |%:dx%=sectionw%*|
000010c0  64 78 25 3a e7 20 64 78  25 3c 38 30 20 84 20 64  |dx%:. dx%<80 . d|
000010d0  78 25 3e 31 31 32 30 20  8c 20 8d 54 6a 48 0d 08  |x%>1120 . .TjH..|
000010e0  34 0e 72 6e 75 6d 25 3d  b3 28 39 29 0d 08 3e 24  |4.rnum%=.(9)..>$|
000010f0  e7 20 72 6e 75 6d 25 3d  39 20 72 6e 75 6d 32 25  |. rnum%=9 rnum2%|
00001100  3d b3 28 34 29 20 8b 20  72 6e 75 6d 32 25 3d 30  |=.(4) . rnum2%=0|
00001110  0d 08 48 27 73 70 72 6e  6d 24 3d 22 73 65 63 74  |..H'sprnm$="sect|
00001120  69 6f 6e 22 2b c3 28 72  6e 75 6d 25 29 2b c3 28  |ion"+.(rnum%)+.(|
00001130  72 6e 75 6d 32 25 29 0d  08 52 14 73 70 65 65 64  |rnum2%)..R.speed|
00001140  25 3d 73 65 63 74 69 6f  6e 68 25 0d 08 5c 0a 68  |%=sectionh%..\.h|
00001150  69 74 25 3d a3 0d 08 66  0a 61 79 25 3d 2d 31 0d  |it%=...f.ay%=-1.|
00001160  08 70 0d 74 65 6d 70 25  3d 31 36 30 0d 08 7a 0c  |.p.temp%=160..z.|
00001170  70 6c 75 6e 67 25 3d a3  0d 08 84 05 e1 0d 08 8e  |plung%=.........|
00001180  05 3a 0d 08 98 0d dd 20  f2 72 6f 74 61 74 65 0d  |.:..... .rotate.|
00001190  08 a2 11 e7 20 72 6e 75  6d 25 3d 39 20 8c 20 e1  |.... rnum%=9 . .|
000011a0  0d 08 ac 31 e7 20 72 6e  75 6d 25 3c 3e 31 20 80  |...1. rnum%<>1 .|
000011b0  20 72 6e 75 6d 25 3c 3e  32 20 80 20 72 6e 75 6d  | rnum%<>2 . rnum|
000011c0  25 3c 3e 37 20 80 20 72  6e 75 6d 25 3c 3e 38 20  |%<>7 . rnum%<>8 |
000011d0  8c 0d 08 b6 20 72 6e 75  6d 25 2b 3d 31 3a e7 20  |.... rnum%+=1:. |
000011e0  72 6e 75 6d 25 3d 37 20  8c 20 72 6e 75 6d 25 3d  |rnum%=7 . rnum%=|
000011f0  33 0d 08 c0 05 cc 0d 08  ca 0f e7 20 72 6e 75 6d  |3.......... rnum|
00001200  25 3d 31 20 8c 0d 08 d4  0b 72 6e 75 6d 25 3d 32  |%=1 .....rnum%=2|
00001210  0d 08 de 05 cc 0d 08 e8  0f e7 20 72 6e 75 6d 25  |.......... rnum%|
00001220  3d 32 20 8c 0d 08 f2 0b  72 6e 75 6d 25 3d 37 0d  |=2 .....rnum%=7.|
00001230  08 fc 05 cc 0d 09 06 0f  e7 20 72 6e 75 6d 25 3d  |......... rnum%=|
00001240  37 20 8c 0d 09 10 0b 72  6e 75 6d 25 3d 38 0d 09  |7 .....rnum%=8..|
00001250  1a 05 cc 0d 09 24 0f e7  20 72 6e 75 6d 25 3d 38  |.....$.. rnum%=8|
00001260  20 8c 0d 09 2e 0b 72 6e  75 6d 25 3d 31 0d 09 38  | .....rnum%=1..8|
00001270  05 cd 0d 09 42 05 cd 0d  09 4c 05 cd 0d 09 56 05  |....B....L....V.|
00001280  cd 0d 09 60 05 cd 0d 09  6a 27 73 70 72 6e 6d 24  |...`....j'sprnm$|
00001290  3d 22 73 65 63 74 69 6f  6e 22 2b c3 28 72 6e 75  |="section"+.(rnu|
000012a0  6d 25 29 2b c3 28 72 6e  75 6d 32 25 29 0d 09 74  |m%)+.(rnum2%)..t|
000012b0  3b c8 99 20 73 70 72 6f  70 25 2c 32 39 30 2c 73  |;.. sprop%,290,s|
000012c0  70 25 2c 73 70 72 6e 6d  24 2c 64 78 25 2c 64 79  |p%,sprnm$,dx%,dy|
000012d0  25 2c 33 3a c8 96 3a c8  96 3a c8 96 3a c8 96 3a  |%,3:..:..:..:..:|
000012e0  c8 96 3a c8 96 3a c8 96  0d 09 7e 26 c8 99 20 73  |..:..:....~&.. s|
000012f0  70 72 6f 70 25 2c 32 39  30 2c 73 70 25 2c 73 70  |prop%,290,sp%,sp|
00001300  72 6e 6d 24 2c 64 78 25  2c 64 79 25 2c 33 0d 09  |rnm$,dx%,dy%,3..|
00001310  88 05 e1 0d 09 92 05 3a  0d 09 9c 16 f4 20 53 65  |.......:..... Se|
00001320  63 74 69 6f 6e 20 6e 75  6d 62 65 72 73 3a 0d 09  |ction numbers:..|
00001330  a6 20 f4 20 31 20 2d 20  4c 65 66 74 20 74 6f 20  |. . 1 - Left to |
00001340  72 69 67 68 74 20 73 74  72 61 69 67 68 74 0d 09  |right straight..|
00001350  b0 20 f4 20 32 20 2d 20  54 6f 70 20 74 6f 20 62  |. . 2 - Top to b|
00001360  6f 74 74 6f 6d 20 73 74  72 61 69 67 68 74 0d 09  |ottom straight..|
00001370  ba 1b f4 20 33 20 2d 20  54 6f 70 20 74 6f 20 6c  |... 3 - Top to l|
00001380  65 66 74 20 63 75 72 76  65 0d 09 c4 1c f4 20 34  |eft curve..... 4|
00001390  20 2d 20 54 6f 70 20 74  6f 20 72 69 67 68 74 20  | - Top to right |
000013a0  63 75 72 76 65 0d 09 ce  1f f4 20 35 20 2d 20 42  |curve..... 5 - B|
000013b0  6f 74 74 6f 6d 20 74 6f  20 72 69 67 68 74 20 63  |ottom to right c|
000013c0  75 72 76 65 0d 09 d8 1e  f4 20 36 20 2d 20 42 6f  |urve..... 6 - Bo|
000013d0  74 74 6f 6d 20 74 6f 20  6c 65 66 74 20 63 75 72  |ttom to left cur|
000013e0  76 65 0d 09 e2 20 f4 20  37 20 2d 20 52 69 67 68  |ve... . 7 - Righ|
000013f0  74 20 74 6f 20 6c 65 66  74 20 73 74 72 61 69 67  |t to left straig|
00001400  68 74 0d 09 ec 20 f4 20  38 20 2d 20 42 6f 74 74  |ht... . 8 - Bott|
00001410  6f 6d 20 74 6f 20 74 6f  70 20 73 74 72 61 69 67  |om to top straig|
00001420  68 74 0d 09 f6 14 f4 20  39 20 2d 20 43 72 6f 73  |ht..... 9 - Cros|
00001430  73 72 6f 61 64 73 0d 0a  00 05 3a 0d 0a 0a 0c dd  |sroads....:.....|
00001440  20 f2 63 68 65 63 6b 0d  0a 14 05 f5 0d 0a 1e 24  | .check........$|
00001450  e7 20 c1 41 24 28 63 68  65 63 6b 79 25 29 2c 63  |. .A$(checky%),c|
00001460  68 65 63 6b 78 25 2c 31  29 3c 3e 22 30 22 20 8c  |heckx%,1)<>"0" .|
00001470  0d 0a 28 2d e7 20 c1 41  24 28 63 68 65 63 6b 79  |..(-. .A$(checky|
00001480  25 29 2c 63 68 65 63 6b  78 25 2c 31 29 3d 22 31  |%),checkx%,1)="1|
00001490  22 20 80 20 6c 65 66 74  25 3d b9 20 8c 0d 0a 32  |" . left%=. ...2|
000014a0  28 63 68 65 63 6b 78 25  2b 3d 31 3a 72 69 67 68  |(checkx%+=1:righ|
000014b0  74 25 3d a3 3a 74 6f 70  25 3d a3 3a 62 6f 74 74  |t%=.:top%=.:bott|
000014c0  6f 6d 25 3d a3 0d 0a 3c  0e 73 63 6f 72 65 25 2b  |om%=...<.score%+|
000014d0  3d 32 35 0d 0a 46 05 cc  0d 0a 50 2c e7 20 c1 41  |=25..F....P,. .A|
000014e0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
000014f0  78 25 2c 31 29 3d 22 32  22 20 80 20 74 6f 70 25  |x%,1)="2" . top%|
00001500  3d b9 20 8c 0d 0a 5a 29  63 68 65 63 6b 79 25 2b  |=. ...Z)checky%+|
00001510  3d 31 3a 72 69 67 68 74  25 3d a3 3a 62 6f 74 74  |=1:right%=.:bott|
00001520  6f 6d 25 3d a3 3a 6c 65  66 74 25 3d a3 0d 0a 64  |om%=.:left%=...d|
00001530  0e 73 63 6f 72 65 25 2b  3d 32 35 0d 0a 6e 05 cc  |.score%+=25..n..|
00001540  0d 0a 78 2e e7 20 c1 41  24 28 63 68 65 63 6b 79  |..x.. .A$(checky|
00001550  25 29 2c 63 68 65 63 6b  78 25 2c 31 29 3d 22 37  |%),checkx%,1)="7|
00001560  22 20 80 20 72 69 67 68  74 25 3d b9 20 8c 0d 0a  |" . right%=. ...|
00001570  82 27 63 68 65 63 6b 78  25 2d 3d 31 3a 6c 65 66  |.'checkx%-=1:lef|
00001580  74 25 3d a3 3a 62 6f 74  74 6f 6d 25 3d a3 3a 74  |t%=.:bottom%=.:t|
00001590  6f 70 25 3d a3 0d 0a 8c  0e 73 63 6f 72 65 25 2b  |op%=.....score%+|
000015a0  3d 32 35 0d 0a 96 05 cc  0d 0a a0 2f e7 20 c1 41  |=25......../. .A|
000015b0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
000015c0  78 25 2c 31 29 3d 22 38  22 20 80 20 62 6f 74 74  |x%,1)="8" . bott|
000015d0  6f 6d 25 3d b9 20 8c 0d  0a aa 26 63 68 65 63 6b  |om%=. ....&check|
000015e0  79 25 2d 3d 31 3a 6c 65  66 74 25 3d a3 3a 74 6f  |y%-=1:left%=.:to|
000015f0  70 25 3d a3 3a 72 69 67  68 74 25 3d a3 0d 0a b4  |p%=.:right%=....|
00001600  0e 73 63 6f 72 65 25 2b  3d 32 35 0d 0a be 05 cc  |.score%+=25.....|
00001610  0d 0a c8 2d e7 20 c1 41  24 28 63 68 65 63 6b 79  |...-. .A$(checky|
00001620  25 29 2c 63 68 65 63 6b  78 25 2c 31 29 3d 22 39  |%),checkx%,1)="9|
00001630  22 20 80 20 6c 65 66 74  25 3d b9 20 8c 0d 0a d2  |" . left%=. ....|
00001640  28 63 68 65 63 6b 78 25  2b 3d 31 3a 74 6f 70 25  |(checkx%+=1:top%|
00001650  3d a3 3a 62 6f 74 74 6f  6d 25 3d a3 3a 72 69 67  |=.:bottom%=.:rig|
00001660  68 74 25 3d a3 0d 0a dc  0f 73 63 6f 72 65 25 2b  |ht%=.....score%+|
00001670  3d 31 30 30 0d 0a e6 05  cc 0d 0a f0 2e e7 20 c1  |=100.......... .|
00001680  41 24 28 63 68 65 63 6b  79 25 29 2c 63 68 65 63  |A$(checky%),chec|
00001690  6b 78 25 2c 31 29 3d 22  39 22 20 80 20 72 69 67  |kx%,1)="9" . rig|
000016a0  68 74 25 3d b9 20 8c 0d  0a fa 27 63 68 65 63 6b  |ht%=. ....'check|
000016b0  78 25 2d 3d 31 3a 6c 65  66 74 25 3d a3 3a 74 6f  |x%-=1:left%=.:to|
000016c0  70 25 3d a3 3a 62 6f 74  74 6f 6d 25 3d a3 0d 0b  |p%=.:bottom%=...|
000016d0  04 0f 73 63 6f 72 65 25  2b 3d 31 30 30 0d 0b 0e  |..score%+=100...|
000016e0  05 cc 0d 0b 18 2c e7 20  c1 41 24 28 63 68 65 63  |.....,. .A$(chec|
000016f0  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
00001700  22 39 22 20 80 20 74 6f  70 25 3d b9 20 8c 0d 0b  |"9" . top%=. ...|
00001710  22 29 63 68 65 63 6b 79  25 2b 3d 31 3a 62 6f 74  |")checky%+=1:bot|
00001720  74 6f 6d 25 3d a3 3a 6c  65 66 74 25 3d a3 3a 72  |tom%=.:left%=.:r|
00001730  69 67 68 74 25 3d a3 0d  0b 2c 0f 73 63 6f 72 65  |ight%=...,.score|
00001740  25 2b 3d 31 30 30 0d 0b  36 05 cc 0d 0b 40 2f e7  |%+=100..6....@/.|
00001750  20 c1 41 24 28 63 68 65  63 6b 79 25 29 2c 63 68  | .A$(checky%),ch|
00001760  65 63 6b 78 25 2c 31 29  3d 22 39 22 20 80 20 62  |eckx%,1)="9" . b|
00001770  6f 74 74 6f 6d 25 3d b9  20 8c 0d 0b 4a 26 63 68  |ottom%=. ...J&ch|
00001780  65 63 6b 79 25 2d 3d 31  3a 74 6f 70 25 3d a3 3a  |ecky%-=1:top%=.:|
00001790  6c 65 66 74 25 3d a3 3a  72 69 67 68 74 25 3d a3  |left%=.:right%=.|
000017a0  0d 0b 54 0f 73 63 6f 72  65 25 2b 3d 31 30 30 0d  |..T.score%+=100.|
000017b0  0b 5e 05 cc 0d 0b 68 2c  e7 20 c1 41 24 28 63 68  |.^....h,. .A$(ch|
000017c0  65 63 6b 79 25 29 2c 63  68 65 63 6b 78 25 2c 31  |ecky%),checkx%,1|
000017d0  29 3d 22 33 22 20 80 20  74 6f 70 25 3d b9 20 8c  |)="3" . top%=. .|
000017e0  0d 0b 72 30 63 68 65 63  6b 78 25 2d 3d 31 3a 72  |..r0checkx%-=1:r|
000017f0  69 67 68 74 25 3d b9 3a  74 6f 70 25 3d a3 3a 6c  |ight%=.:top%=.:l|
00001800  65 66 74 25 3d a3 3a 62  6f 74 74 6f 6d 25 3d a3  |eft%=.:bottom%=.|
00001810  0d 0b 7c 0e 73 63 6f 72  65 25 2b 3d 35 30 0d 0b  |..|.score%+=50..|
00001820  86 05 cc 0d 0b 90 2d e7  20 c1 41 24 28 63 68 65  |......-. .A$(che|
00001830  63 6b 79 25 29 2c 63 68  65 63 6b 78 25 2c 31 29  |cky%),checkx%,1)|
00001840  3d 22 33 22 20 80 20 6c  65 66 74 25 3d b9 20 8c  |="3" . left%=. .|
00001850  0d 0b 9a 30 63 68 65 63  6b 79 25 2d 3d 31 3a 62  |...0checky%-=1:b|
00001860  6f 74 74 6f 6d 25 3d b9  3a 6c 65 66 74 25 3d a3  |ottom%=.:left%=.|
00001870  3a 72 69 67 68 74 25 3d  a3 3a 74 6f 70 25 3d a3  |:right%=.:top%=.|
00001880  0d 0b a4 0e 73 63 6f 72  65 25 2b 3d 35 30 0d 0b  |....score%+=50..|
00001890  ae 05 cc 0d 0b b8 2c e7  20 c1 41 24 28 63 68 65  |......,. .A$(che|
000018a0  63 6b 79 25 29 2c 63 68  65 63 6b 78 25 2c 31 29  |cky%),checkx%,1)|
000018b0  3d 22 34 22 20 80 20 74  6f 70 25 3d b9 20 8c 0d  |="4" . top%=. ..|
000018c0  0b c2 30 63 68 65 63 6b  78 25 2b 3d 31 3a 6c 65  |..0checkx%+=1:le|
000018d0  66 74 25 3d b9 3a 74 6f  70 25 3d a3 3a 72 69 67  |ft%=.:top%=.:rig|
000018e0  68 74 25 3d a3 3a 62 6f  74 74 6f 6d 25 3d a3 0d  |ht%=.:bottom%=..|
000018f0  0b cc 0e 73 63 6f 72 65  25 2b 3d 35 30 0d 0b d6  |...score%+=50...|
00001900  05 cc 0d 0b e0 2e e7 20  c1 41 24 28 63 68 65 63  |....... .A$(chec|
00001910  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
00001920  22 34 22 20 80 20 72 69  67 68 74 25 3d b9 20 8c  |"4" . right%=. .|
00001930  0d 0b ea 30 63 68 65 63  6b 79 25 2d 3d 31 3a 62  |...0checky%-=1:b|
00001940  6f 74 74 6f 6d 25 3d b9  3a 72 69 67 68 74 25 3d  |ottom%=.:right%=|
00001950  a3 3a 6c 65 66 74 25 3d  a3 3a 74 6f 70 25 3d a3  |.:left%=.:top%=.|
00001960  0d 0b f4 0e 73 63 6f 72  65 25 2b 3d 35 30 0d 0b  |....score%+=50..|
00001970  fe 05 cc 0d 0c 08 2f e7  20 c1 41 24 28 63 68 65  |....../. .A$(che|
00001980  63 6b 79 25 29 2c 63 68  65 63 6b 78 25 2c 31 29  |cky%),checkx%,1)|
00001990  3d 22 35 22 20 80 20 62  6f 74 74 6f 6d 25 3d b9  |="5" . bottom%=.|
000019a0  20 8c 0d 0c 12 30 63 68  65 63 6b 78 25 2b 3d 31  | ....0checkx%+=1|
000019b0  3a 6c 65 66 74 25 3d b9  3a 62 6f 74 74 6f 6d 25  |:left%=.:bottom%|
000019c0  3d a3 3a 74 6f 70 25 3d  a3 3a 72 69 67 68 74 25  |=.:top%=.:right%|
000019d0  3d a3 0d 0c 1c 0e 73 63  6f 72 65 25 2b 3d 35 30  |=.....score%+=50|
000019e0  0d 0c 26 05 cc 0d 0c 30  2e e7 20 c1 41 24 28 63  |..&....0.. .A$(c|
000019f0  68 65 63 6b 79 25 29 2c  63 68 65 63 6b 78 25 2c  |hecky%),checkx%,|
00001a00  31 29 3d 22 35 22 20 80  20 72 69 67 68 74 25 3d  |1)="5" . right%=|
00001a10  b9 20 8c 0d 0c 3a 30 63  68 65 63 6b 79 25 2b 3d  |. ...:0checky%+=|
00001a20  31 3a 74 6f 70 25 3d b9  3a 72 69 67 68 74 25 3d  |1:top%=.:right%=|
00001a30  a3 3a 62 6f 74 74 6f 6d  25 3d a3 3a 6c 65 66 74  |.:bottom%=.:left|
00001a40  25 3d a3 0d 0c 44 0e 73  63 6f 72 65 25 2b 3d 35  |%=...D.score%+=5|
00001a50  30 0d 0c 4e 05 cc 0d 0c  58 2f e7 20 c1 41 24 28  |0..N....X/. .A$(|
00001a60  63 68 65 63 6b 79 25 29  2c 63 68 65 63 6b 78 25  |checky%),checkx%|
00001a70  2c 31 29 3d 22 36 22 20  80 20 62 6f 74 74 6f 6d  |,1)="6" . bottom|
00001a80  25 3d b9 20 8c 0d 0c 62  30 63 68 65 63 6b 78 25  |%=. ...b0checkx%|
00001a90  2d 3d 31 3a 72 69 67 68  74 25 3d b9 3a 62 6f 74  |-=1:right%=.:bot|
00001aa0  74 6f 6d 25 3d a3 3a 6c  65 66 74 25 3d a3 3a 74  |tom%=.:left%=.:t|
00001ab0  6f 70 25 3d a3 0d 0c 6c  0e 73 63 6f 72 65 25 2b  |op%=...l.score%+|
00001ac0  3d 35 30 0d 0c 76 05 cc  0d 0c 80 2d e7 20 c1 41  |=50..v.....-. .A|
00001ad0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001ae0  78 25 2c 31 29 3d 22 36  22 20 80 20 6c 65 66 74  |x%,1)="6" . left|
00001af0  25 3d b9 20 8c 0d 0c 8a  30 63 68 65 63 6b 79 25  |%=. ....0checky%|
00001b00  2b 3d 31 3a 74 6f 70 25  3d b9 3a 72 69 67 68 74  |+=1:top%=.:right|
00001b10  25 3d a3 3a 62 6f 74 74  6f 6d 25 3d a3 3a 6c 65  |%=.:bottom%=.:le|
00001b20  66 74 25 3d a3 0d 0c 94  0e 73 63 6f 72 65 25 2b  |ft%=.....score%+|
00001b30  3d 35 30 0d 0c 9e 05 cc  0d 0c a8 23 e7 20 c1 41  |=50........#. .A|
00001b40  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001b50  78 25 2c 31 29 3d 22 54  22 20 8c 0d 0c b2 0e 6e  |x%,1)="T" .....n|
00001b60  6f 74 72 6f 61 64 25 3d  b9 0d 0c bc 05 cc 0d 0c  |otroad%=........|
00001b70  c6 23 e7 20 c1 41 24 28  63 68 65 63 6b 79 25 29  |.#. .A$(checky%)|
00001b80  2c 63 68 65 63 6b 78 25  2c 31 29 3d 22 48 22 20  |,checkx%,1)="H" |
00001b90  8c 0d 0c d0 0e 6e 6f 74  72 6f 61 64 25 3d b9 0d  |.....notroad%=..|
00001ba0  0c da 05 cc 0d 0c e4 23  e7 20 c1 41 24 28 63 68  |.......#. .A$(ch|
00001bb0  65 63 6b 79 25 29 2c 63  68 65 63 6b 78 25 2c 31  |ecky%),checkx%,1|
00001bc0  29 3d 22 51 22 20 8c 0d  0c ee 0e 6e 6f 74 72 6f  |)="Q" .....notro|
00001bd0  61 64 25 3d b9 0d 0c f8  05 cc 0d 0d 02 0e 6e 6f  |ad%=..........no|
00001be0  74 72 6f 61 64 25 3d b9  0d 0d 0c 05 cd 0d 0d 16  |troad%=.........|
00001bf0  05 cd 0d 0d 20 05 cd 0d  0d 2a 05 cd 0d 0d 34 05  |.... ....*....4.|
00001c00  cd 0d 0d 3e 05 cd 0d 0d  48 05 cd 0d 0d 52 05 cd  |...>....H....R..|
00001c10  0d 0d 5c 05 cd 0d 0d 66  05 cd 0d 0d 70 05 cd 0d  |..\....f....p...|
00001c20  0d 7a 05 cd 0d 0d 84 05  cd 0d 0d 8e 05 cd 0d 0d  |.z..............|
00001c30  98 05 cd 0d 0d a2 05 cd  0d 0d ac 05 cd 0d 0d b6  |................|
00001c40  05 cd 0d 0d c0 05 cd 0d  0d ca 05 cd 0d 0d d4 4c  |...............L|
00001c50  fd 20 c1 41 24 28 63 68  65 63 6b 79 25 29 2c 63  |. .A$(checky%),c|
00001c60  68 65 63 6b 78 25 2c 31  29 3d 22 30 22 20 84 20  |heckx%,1)="0" . |
00001c70  c1 41 24 28 63 68 65 63  6b 79 25 29 2c 63 68 65  |.A$(checky%),che|
00001c80  63 6b 78 25 2c 31 29 3d  22 4a 22 20 84 20 6e 6f  |ckx%,1)="J" . no|
00001c90  74 72 6f 61 64 25 3d b9  0d 0d de 2d e7 20 c1 41  |troad%=....-. .A|
00001ca0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001cb0  78 25 2c 31 29 3d 22 4a  22 20 8c 20 66 69 6e 69  |x%,1)="J" . fini|
00001cc0  73 68 25 3d b9 0d 0d e8  05 e1 0d 0d f2 05 3a 0d  |sh%=..........:.|
00001cd0  0d fc 0b dd 20 f2 6c 69  6e 65 0d 0e 06 1f 63 68  |.... .line....ch|
00001ce0  65 63 6b 78 25 3d 33 3a  63 68 65 63 6b 79 25 3d  |eckx%=3:checky%=|
00001cf0  38 3a 6c 65 66 74 25 3d  b9 0d 0e 10 0d e6 20 36  |8:left%=...... 6|
00001d00  33 20 c8 9c 20 30 0d 0e  1a 05 f5 0d 0e 24 2d e7  |3 .. 0.......$-.|
00001d10  20 c1 41 24 28 63 68 65  63 6b 79 25 29 2c 63 68  | .A$(checky%),ch|
00001d20  65 63 6b 78 25 2c 31 29  3d 22 31 22 20 80 20 6c  |eckx%,1)="1" . l|
00001d30  65 66 74 25 3d b9 20 8c  0d 0e 2e 43 e3 49 3d 30  |eft%=. ....C.I=0|
00001d40  b8 38 30 3a f0 36 39 2c  28 63 68 65 63 6b 78 25  |.80:.69,(checkx%|
00001d50  2a 38 30 29 2b 49 2c 28  38 30 30 2d 28 63 68 65  |*80)+I,(800-(che|
00001d60  63 6b 79 25 2a 38 30 29  29 2b 34 30 3a e3 4a 3d  |cky%*80))+40:.J=|
00001d70  30 b8 31 30 30 3a ed 4a  3a ed 49 0d 0e 38 28 63  |0.100:.J:.I..8(c|
00001d80  68 65 63 6b 78 25 2b 3d  31 3a 72 69 67 68 74 25  |heckx%+=1:right%|
00001d90  3d a3 3a 74 6f 70 25 3d  a3 3a 62 6f 74 74 6f 6d  |=.:top%=.:bottom|
00001da0  25 3d a3 0d 0e 42 05 cc  0d 0e 4c 2c e7 20 c1 41  |%=...B....L,. .A|
00001db0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001dc0  78 25 2c 31 29 3d 22 32  22 20 80 20 74 6f 70 25  |x%,1)="2" . top%|
00001dd0  3d b9 20 8c 0d 0e 56 46  e3 49 3d 38 30 b8 30 88  |=. ...VF.I=80.0.|
00001de0  2d 31 3a f0 36 39 2c 28  63 68 65 63 6b 78 25 2a  |-1:.69,(checkx%*|
00001df0  38 30 29 2b 34 30 2c 28  38 30 30 2d 28 63 68 65  |80)+40,(800-(che|
00001e00  63 6b 79 25 2a 38 30 29  29 2b 49 3a e3 4a 3d 30  |cky%*80))+I:.J=0|
00001e10  b8 31 30 30 3a ed 4a 3a  ed 49 0d 0e 60 29 63 68  |.100:.J:.I..`)ch|
00001e20  65 63 6b 79 25 2b 3d 31  3a 72 69 67 68 74 25 3d  |ecky%+=1:right%=|
00001e30  a3 3a 62 6f 74 74 6f 6d  25 3d a3 3a 6c 65 66 74  |.:bottom%=.:left|
00001e40  25 3d a3 0d 0e 6a 05 cc  0d 0e 74 2e e7 20 c1 41  |%=...j....t.. .A|
00001e50  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001e60  78 25 2c 31 29 3d 22 37  22 20 80 20 72 69 67 68  |x%,1)="7" . righ|
00001e70  74 25 3d b9 20 8c 0d 0e  7e 46 e3 49 3d 38 30 b8  |t%=. ...~F.I=80.|
00001e80  30 88 2d 31 3a f0 36 39  2c 28 63 68 65 63 6b 78  |0.-1:.69,(checkx|
00001e90  25 2a 38 30 29 2b 49 2c  28 38 30 30 2d 28 63 68  |%*80)+I,(800-(ch|
00001ea0  65 63 6b 79 25 2a 38 30  29 29 2b 34 30 3a e3 4a  |ecky%*80))+40:.J|
00001eb0  3d 30 b8 31 30 30 3a ed  4a 3a ed 49 0d 0e 88 27  |=0.100:.J:.I...'|
00001ec0  63 68 65 63 6b 78 25 2d  3d 31 3a 6c 65 66 74 25  |checkx%-=1:left%|
00001ed0  3d a3 3a 62 6f 74 74 6f  6d 25 3d a3 3a 74 6f 70  |=.:bottom%=.:top|
00001ee0  25 3d a3 0d 0e 92 05 cc  0d 0e 9c 2f e7 20 c1 41  |%=........./. .A|
00001ef0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00001f00  78 25 2c 31 29 3d 22 38  22 20 80 20 62 6f 74 74  |x%,1)="8" . bott|
00001f10  6f 6d 25 3d b9 20 8c 0d  0e a6 43 e3 49 3d 30 b8  |om%=. ....C.I=0.|
00001f20  38 30 3a f0 36 39 2c 28  63 68 65 63 6b 78 25 2a  |80:.69,(checkx%*|
00001f30  38 30 29 2b 34 30 2c 28  38 30 30 2d 28 63 68 65  |80)+40,(800-(che|
00001f40  63 6b 79 25 2a 38 30 29  29 2b 49 3a e3 4a 3d 30  |cky%*80))+I:.J=0|
00001f50  b8 31 30 30 3a ed 4a 3a  ed 49 0d 0e b0 26 63 68  |.100:.J:.I...&ch|
00001f60  65 63 6b 79 25 2d 3d 31  3a 6c 65 66 74 25 3d a3  |ecky%-=1:left%=.|
00001f70  3a 74 6f 70 25 3d a3 3a  72 69 67 68 74 25 3d a3  |:top%=.:right%=.|
00001f80  0d 0e ba 05 cc 0d 0e c4  2d e7 20 c1 41 24 28 63  |........-. .A$(c|
00001f90  68 65 63 6b 79 25 29 2c  63 68 65 63 6b 78 25 2c  |hecky%),checkx%,|
00001fa0  31 29 3d 22 39 22 20 80  20 6c 65 66 74 25 3d b9  |1)="9" . left%=.|
00001fb0  20 8c 0d 0e ce 43 e3 49  3d 30 b8 38 30 3a f0 36  | ....C.I=0.80:.6|
00001fc0  39 2c 28 63 68 65 63 6b  78 25 2a 38 30 29 2b 49  |9,(checkx%*80)+I|
00001fd0  2c 28 38 30 30 2d 28 63  68 65 63 6b 79 25 2a 38  |,(800-(checky%*8|
00001fe0  30 29 29 2b 34 30 3a e3  4a 3d 30 b8 31 30 30 3a  |0))+40:.J=0.100:|
00001ff0  ed 4a 3a ed 49 0d 0e d8  28 63 68 65 63 6b 78 25  |.J:.I...(checkx%|
00002000  2b 3d 31 3a 74 6f 70 25  3d a3 3a 62 6f 74 74 6f  |+=1:top%=.:botto|
00002010  6d 25 3d a3 3a 72 69 67  68 74 25 3d a3 0d 0e e2  |m%=.:right%=....|
00002020  05 cc 0d 0e ec 2e e7 20  c1 41 24 28 63 68 65 63  |....... .A$(chec|
00002030  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
00002040  22 39 22 20 80 20 72 69  67 68 74 25 3d b9 20 8c  |"9" . right%=. .|
00002050  0d 0e f6 46 e3 49 3d 38  30 b8 30 88 2d 31 3a f0  |...F.I=80.0.-1:.|
00002060  36 39 2c 28 63 68 65 63  6b 78 25 2a 38 30 29 2b  |69,(checkx%*80)+|
00002070  49 2c 28 38 30 30 2d 28  63 68 65 63 6b 79 25 2a  |I,(800-(checky%*|
00002080  38 30 29 29 2b 34 30 3a  e3 4a 3d 30 b8 31 30 30  |80))+40:.J=0.100|
00002090  3a ed 4a 3a ed 49 0d 0f  00 27 63 68 65 63 6b 78  |:.J:.I...'checkx|
000020a0  25 2d 3d 31 3a 6c 65 66  74 25 3d a3 3a 74 6f 70  |%-=1:left%=.:top|
000020b0  25 3d a3 3a 62 6f 74 74  6f 6d 25 3d a3 0d 0f 0a  |%=.:bottom%=....|
000020c0  05 cc 0d 0f 14 2c e7 20  c1 41 24 28 63 68 65 63  |.....,. .A$(chec|
000020d0  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
000020e0  22 39 22 20 80 20 74 6f  70 25 3d b9 20 8c 0d 0f  |"9" . top%=. ...|
000020f0  1e 46 e3 49 3d 38 30 b8  30 88 2d 31 3a f0 36 39  |.F.I=80.0.-1:.69|
00002100  2c 28 63 68 65 63 6b 78  25 2a 38 30 29 2b 34 30  |,(checkx%*80)+40|
00002110  2c 28 38 30 30 2d 28 63  68 65 63 6b 79 25 2a 38  |,(800-(checky%*8|
00002120  30 29 29 2b 49 3a e3 4a  3d 30 b8 31 30 30 3a ed  |0))+I:.J=0.100:.|
00002130  4a 3a ed 49 0d 0f 28 29  63 68 65 63 6b 79 25 2b  |J:.I..()checky%+|
00002140  3d 31 3a 62 6f 74 74 6f  6d 25 3d a3 3a 6c 65 66  |=1:bottom%=.:lef|
00002150  74 25 3d a3 3a 72 69 67  68 74 25 3d a3 0d 0f 32  |t%=.:right%=...2|
00002160  05 cc 0d 0f 3c 2f e7 20  c1 41 24 28 63 68 65 63  |....</. .A$(chec|
00002170  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
00002180  22 39 22 20 80 20 62 6f  74 74 6f 6d 25 3d b9 20  |"9" . bottom%=. |
00002190  8c 0d 0f 46 43 e3 49 3d  30 b8 38 30 3a f0 36 39  |...FC.I=0.80:.69|
000021a0  2c 28 63 68 65 63 6b 78  25 2a 38 30 29 2b 34 30  |,(checkx%*80)+40|
000021b0  2c 28 38 30 30 2d 28 63  68 65 63 6b 79 25 2a 38  |,(800-(checky%*8|
000021c0  30 29 29 2b 49 3a e3 4a  3d 30 b8 31 30 30 3a ed  |0))+I:.J=0.100:.|
000021d0  4a 3a ed 49 0d 0f 50 26  63 68 65 63 6b 79 25 2d  |J:.I..P&checky%-|
000021e0  3d 31 3a 74 6f 70 25 3d  a3 3a 6c 65 66 74 25 3d  |=1:top%=.:left%=|
000021f0  a3 3a 72 69 67 68 74 25  3d a3 0d 0f 5a 05 cc 0d  |.:right%=...Z...|
00002200  0f 64 2c e7 20 c1 41 24  28 63 68 65 63 6b 79 25  |.d,. .A$(checky%|
00002210  29 2c 63 68 65 63 6b 78  25 2c 31 29 3d 22 33 22  |),checkx%,1)="3"|
00002220  20 80 20 74 6f 70 25 3d  b9 20 8c 0d 0f 6e 52 79  | . top%=. ...nRy|
00002230  25 3d 38 30 3a e3 49 3d  34 30 b8 30 88 2d 31 3a  |%=80:.I=40.0.-1:|
00002240  f0 36 39 2c 28 63 68 65  63 6b 78 25 2a 38 30 29  |.69,(checkx%*80)|
00002250  2b 49 2c 28 38 30 30 2d  28 63 68 65 63 6b 79 25  |+I,(800-(checky%|
00002260  2a 38 30 29 29 2b 79 25  3a 79 25 2d 3d 31 3a e3  |*80))+y%:y%-=1:.|
00002270  4a 3d 30 b8 32 30 30 3a  ed 4a 3a ed 49 0d 0f 78  |J=0.200:.J:.I..x|
00002280  30 63 68 65 63 6b 78 25  2d 3d 31 3a 72 69 67 68  |0checkx%-=1:righ|
00002290  74 25 3d b9 3a 74 6f 70  25 3d a3 3a 6c 65 66 74  |t%=.:top%=.:left|
000022a0  25 3d a3 3a 62 6f 74 74  6f 6d 25 3d a3 0d 0f 82  |%=.:bottom%=....|
000022b0  05 cc 0d 0f 8c 2d e7 20  c1 41 24 28 63 68 65 63  |.....-. .A$(chec|
000022c0  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
000022d0  22 33 22 20 80 20 6c 65  66 74 25 3d b9 20 8c 0d  |"3" . left%=. ..|
000022e0  0f 96 4f 79 25 3d 34 30  3a e3 49 3d 30 b8 34 30  |..Oy%=40:.I=0.40|
000022f0  3a f0 36 39 2c 28 63 68  65 63 6b 78 25 2a 38 30  |:.69,(checkx%*80|
00002300  29 2b 49 2c 28 38 30 30  2d 28 63 68 65 63 6b 79  |)+I,(800-(checky|
00002310  25 2a 38 30 29 29 2b 79  25 3a 79 25 2b 3d 31 3a  |%*80))+y%:y%+=1:|
00002320  e3 4a 3d 30 b8 32 30 30  3a ed 4a 3a ed 49 0d 0f  |.J=0.200:.J:.I..|
00002330  a0 30 63 68 65 63 6b 79  25 2d 3d 31 3a 62 6f 74  |.0checky%-=1:bot|
00002340  74 6f 6d 25 3d b9 3a 6c  65 66 74 25 3d a3 3a 72  |tom%=.:left%=.:r|
00002350  69 67 68 74 25 3d a3 3a  74 6f 70 25 3d a3 0d 0f  |ight%=.:top%=...|
00002360  aa 05 cc 0d 0f b4 2c e7  20 c1 41 24 28 63 68 65  |......,. .A$(che|
00002370  63 6b 79 25 29 2c 63 68  65 63 6b 78 25 2c 31 29  |cky%),checkx%,1)|
00002380  3d 22 34 22 20 80 20 74  6f 70 25 3d b9 20 8c 0d  |="4" . top%=. ..|
00002390  0f be 50 79 25 3d 38 30  3a e3 49 3d 34 30 b8 38  |..Py%=80:.I=40.8|
000023a0  30 3a f0 36 39 2c 28 63  68 65 63 6b 78 25 2a 38  |0:.69,(checkx%*8|
000023b0  30 29 2b 49 2c 28 38 30  30 2d 28 63 68 65 63 6b  |0)+I,(800-(check|
000023c0  79 25 2a 38 30 29 29 2b  79 25 3a 79 25 2d 3d 31  |y%*80))+y%:y%-=1|
000023d0  3a e3 4a 3d 30 b8 32 30  30 3a ed 4a 3a ed 49 0d  |:.J=0.200:.J:.I.|
000023e0  0f c8 30 63 68 65 63 6b  78 25 2b 3d 31 3a 6c 65  |..0checkx%+=1:le|
000023f0  66 74 25 3d b9 3a 74 6f  70 25 3d a3 3a 72 69 67  |ft%=.:top%=.:rig|
00002400  68 74 25 3d a3 3a 62 6f  74 74 6f 6d 25 3d a3 0d  |ht%=.:bottom%=..|
00002410  0f d2 05 cc 0d 0f dc 2e  e7 20 c1 41 24 28 63 68  |......... .A$(ch|
00002420  65 63 6b 79 25 29 2c 63  68 65 63 6b 78 25 2c 31  |ecky%),checkx%,1|
00002430  29 3d 22 34 22 20 80 20  72 69 67 68 74 25 3d b9  |)="4" . right%=.|
00002440  20 8c 0d 0f e6 53 79 25  3d 34 30 3a e3 49 3d 38  | ....Sy%=40:.I=8|
00002450  30 b8 34 30 88 2d 31 3a  f0 36 39 2c 28 63 68 65  |0.40.-1:.69,(che|
00002460  63 6b 78 25 2a 38 30 29  2b 49 2c 28 38 30 30 2d  |ckx%*80)+I,(800-|
00002470  28 63 68 65 63 6b 79 25  2a 38 30 29 29 2b 79 25  |(checky%*80))+y%|
00002480  3a 79 25 2b 3d 31 3a e3  4a 3d 30 b8 32 30 30 3a  |:y%+=1:.J=0.200:|
00002490  ed 4a 3a ed 49 0d 0f f0  30 63 68 65 63 6b 79 25  |.J:.I...0checky%|
000024a0  2d 3d 31 3a 62 6f 74 74  6f 6d 25 3d b9 3a 72 69  |-=1:bottom%=.:ri|
000024b0  67 68 74 25 3d a3 3a 6c  65 66 74 25 3d a3 3a 74  |ght%=.:left%=.:t|
000024c0  6f 70 25 3d a3 0d 0f fa  05 cc 0d 10 04 2f e7 20  |op%=........./. |
000024d0  c1 41 24 28 63 68 65 63  6b 79 25 29 2c 63 68 65  |.A$(checky%),che|
000024e0  63 6b 78 25 2c 31 29 3d  22 35 22 20 80 20 62 6f  |ckx%,1)="5" . bo|
000024f0  74 74 6f 6d 25 3d b9 20  8c 0d 10 0e 4f 79 25 3d  |ttom%=. ....Oy%=|
00002500  30 3a e3 49 3d 34 30 b8  38 30 3a f0 36 39 2c 28  |0:.I=40.80:.69,(|
00002510  63 68 65 63 6b 78 25 2a  38 30 29 2b 49 2c 28 38  |checkx%*80)+I,(8|
00002520  30 30 2d 28 63 68 65 63  6b 79 25 2a 38 30 29 29  |00-(checky%*80))|
00002530  2b 79 25 3a 79 25 2b 3d  31 3a e3 4a 3d 30 b8 32  |+y%:y%+=1:.J=0.2|
00002540  30 30 3a ed 4a 3a ed 49  0d 10 18 30 63 68 65 63  |00:.J:.I...0chec|
00002550  6b 78 25 2b 3d 31 3a 6c  65 66 74 25 3d b9 3a 62  |kx%+=1:left%=.:b|
00002560  6f 74 74 6f 6d 25 3d a3  3a 74 6f 70 25 3d a3 3a  |ottom%=.:top%=.:|
00002570  72 69 67 68 74 25 3d a3  0d 10 22 05 cc 0d 10 2c  |right%=..."....,|
00002580  2e e7 20 c1 41 24 28 63  68 65 63 6b 79 25 29 2c  |.. .A$(checky%),|
00002590  63 68 65 63 6b 78 25 2c  31 29 3d 22 35 22 20 80  |checkx%,1)="5" .|
000025a0  20 72 69 67 68 74 25 3d  b9 20 8c 0d 10 36 53 79  | right%=. ...6Sy|
000025b0  25 3d 34 30 3a e3 49 3d  38 30 b8 34 30 88 2d 31  |%=40:.I=80.40.-1|
000025c0  3a f0 36 39 2c 28 63 68  65 63 6b 78 25 2a 38 30  |:.69,(checkx%*80|
000025d0  29 2b 49 2c 28 38 30 30  2d 28 63 68 65 63 6b 79  |)+I,(800-(checky|
000025e0  25 2a 38 30 29 29 2b 79  25 3a 79 25 2d 3d 31 3a  |%*80))+y%:y%-=1:|
000025f0  e3 4a 3d 30 b8 32 30 30  3a ed 4a 3a ed 49 0d 10  |.J=0.200:.J:.I..|
00002600  40 30 63 68 65 63 6b 79  25 2b 3d 31 3a 74 6f 70  |@0checky%+=1:top|
00002610  25 3d b9 3a 72 69 67 68  74 25 3d a3 3a 62 6f 74  |%=.:right%=.:bot|
00002620  74 6f 6d 25 3d a3 3a 6c  65 66 74 25 3d a3 0d 10  |tom%=.:left%=...|
00002630  4a 05 cc 0d 10 54 2f e7  20 c1 41 24 28 63 68 65  |J....T/. .A$(che|
00002640  63 6b 79 25 29 2c 63 68  65 63 6b 78 25 2c 31 29  |cky%),checkx%,1)|
00002650  3d 22 36 22 20 80 20 62  6f 74 74 6f 6d 25 3d b9  |="6" . bottom%=.|
00002660  20 8c 0d 10 5e 51 79 25  3d 30 3a e3 49 3d 34 30  | ...^Qy%=0:.I=40|
00002670  b8 30 88 2d 31 3a f0 36  39 2c 28 63 68 65 63 6b  |.0.-1:.69,(check|
00002680  78 25 2a 38 30 29 2b 49  2c 28 38 30 30 2d 28 63  |x%*80)+I,(800-(c|
00002690  68 65 63 6b 79 25 2a 38  30 29 29 2b 79 25 3a 79  |hecky%*80))+y%:y|
000026a0  25 2b 3d 31 3a e3 4a 3d  30 b8 32 30 30 3a ed 4a  |%+=1:.J=0.200:.J|
000026b0  3a ed 49 0d 10 68 30 63  68 65 63 6b 78 25 2d 3d  |:.I..h0checkx%-=|
000026c0  31 3a 72 69 67 68 74 25  3d b9 3a 62 6f 74 74 6f  |1:right%=.:botto|
000026d0  6d 25 3d a3 3a 6c 65 66  74 25 3d a3 3a 74 6f 70  |m%=.:left%=.:top|
000026e0  25 3d a3 0d 10 72 05 cc  0d 10 7c 2d e7 20 c1 41  |%=...r....|-. .A|
000026f0  24 28 63 68 65 63 6b 79  25 29 2c 63 68 65 63 6b  |$(checky%),check|
00002700  78 25 2c 31 29 3d 22 36  22 20 80 20 6c 65 66 74  |x%,1)="6" . left|
00002710  25 3d b9 20 8c 0d 10 86  4f 79 25 3d 34 30 3a e3  |%=. ....Oy%=40:.|
00002720  49 3d 30 b8 34 30 3a f0  36 39 2c 28 63 68 65 63  |I=0.40:.69,(chec|
00002730  6b 78 25 2a 38 30 29 2b  49 2c 28 38 30 30 2d 28  |kx%*80)+I,(800-(|
00002740  63 68 65 63 6b 79 25 2a  38 30 29 29 2b 79 25 3a  |checky%*80))+y%:|
00002750  79 25 2d 3d 31 3a e3 4a  3d 30 b8 32 30 30 3a ed  |y%-=1:.J=0.200:.|
00002760  4a 3a ed 49 0d 10 90 30  63 68 65 63 6b 79 25 2b  |J:.I...0checky%+|
00002770  3d 31 3a 74 6f 70 25 3d  b9 3a 72 69 67 68 74 25  |=1:top%=.:right%|
00002780  3d a3 3a 62 6f 74 74 6f  6d 25 3d a3 3a 6c 65 66  |=.:bottom%=.:lef|
00002790  74 25 3d a3 0d 10 9a 05  cc 0d 10 a4 0a 6e 72 32  |t%=..........nr2|
000027a0  25 3d b9 0d 10 ae 05 cd  0d 10 b8 05 cd 0d 10 c2  |%=..............|
000027b0  05 cd 0d 10 cc 05 cd 0d  10 d6 05 cd 0d 10 e0 05  |................|
000027c0  cd 0d 10 ea 05 cd 0d 10  f4 05 cd 0d 10 fe 05 cd  |................|
000027d0  0d 11 08 05 cd 0d 11 12  05 cd 0d 11 1c 05 cd 0d  |................|
000027e0  11 26 05 cd 0d 11 30 05  cd 0d 11 3a 05 cd 0d 11  |.&....0....:....|
000027f0  44 05 cd 0d 11 4e 05 cd  0d 11 58 05 cd 0d 11 62  |D....N....X....b|
00002800  05 cd 0d 11 6c 2a fd 20  c1 41 24 28 63 68 65 63  |....l*. .A$(chec|
00002810  6b 79 25 29 2c 63 68 65  63 6b 78 25 2c 31 29 3d  |ky%),checkx%,1)=|
00002820  22 4a 22 20 84 20 6e 72  32 25 3d b9 0d 11 76 05  |"J" . nr2%=...v.|
00002830  e1 0d 11 80 05 3a 0d 11  8a 0f dd 20 f2 63 6f 6d  |.....:..... .com|
00002840  70 6c 65 74 65 0d 11 94  05 db 0d 11 9e 05 f5 0d  |plete...........|
00002850  11 a8 33 c8 99 20 73 70  72 6f 70 25 2c 32 39 30  |..3.. sprop%,290|
00002860  2c 73 70 25 2c 22 63 6f  6d 70 6c 65 74 65 64 22  |,sp%,"completed"|
00002870  2c b3 28 31 32 37 39 29  2c b3 28 31 30 32 33 29  |,.(1279),.(1023)|
00002880  2c 30 0d 11 b2 12 c8 96  3a c8 96 3a c8 96 3a c8  |,0......:..:..:.|
00002890  96 3a c8 96 0d 11 bc 0b  fd 20 a6 20 2d 39 39 0d  |.:....... . -99.|
000028a0  11 c6 11 73 63 6f 72 65  25 2b 3d 31 30 30 30 30  |...score%+=10000|
000028b0  0d 11 d0 0c f2 68 69 73  63 6f 72 65 0d 11 da 05  |.....hiscore....|
000028c0  e1 0d 11 e4 05 3a 0d 11  ee 0f dd 20 f2 67 61 6d  |.....:..... .gam|
000028d0  65 6f 76 65 72 0d 11 f8  13 f2 62 6c 61 6e 6b 6f  |eover.....blanko|
000028e0  75 74 28 32 30 30 30 29  0d 12 02 05 db 0d 12 0c  |ut(2000)........|
000028f0  05 f5 0d 12 16 32 c8 99  20 73 70 72 6f 70 25 2c  |.....2.. sprop%,|
00002900  32 39 30 2c 73 70 25 2c  22 67 61 6d 65 6f 76 65  |290,sp%,"gameove|
00002910  72 22 2c b3 28 31 32 37  39 29 2c b3 28 31 30 32  |r",.(1279),.(102|
00002920  33 29 2c 30 0d 12 20 12  c8 96 3a c8 96 3a c8 96  |3),0.. ...:..:..|
00002930  3a c8 96 3a c8 96 0d 12  2a 0b fd 20 a6 20 2d 39  |:..:....*.. . -9|
00002940  39 0d 12 34 0c f2 68 69  73 63 6f 72 65 0d 12 3e  |9..4..hiscore..>|
00002950  05 e1 0d 12 48 05 3a 0d  12 52 0e dd 20 f2 68 69  |....H.:..R.. .hi|
00002960  73 63 6f 72 65 0d 12 5c  05 db 0d 12 66 1b e7 20  |score..\....f.. |
00002970  73 63 6f 72 65 25 3e 3d  68 69 73 63 6f 72 65 25  |score%>=hiscore%|
00002980  28 30 29 20 8c 0d 12 70  12 f2 65 6e 74 65 72 5f  |(0) ...p..enter_|
00002990  6e 61 6d 65 28 30 29 0d  12 7a 05 cc 0d 12 84 31  |name(0)..z.....1|
000029a0  e7 20 73 63 6f 72 65 25  3e 3d 68 69 73 63 6f 72  |. score%>=hiscor|
000029b0  65 25 28 31 29 20 80 20  73 63 6f 72 65 25 3c 3d  |e%(1) . score%<=|
000029c0  68 69 73 63 6f 72 65 25  28 30 29 20 8c 0d 12 8e  |hiscore%(0) ....|
000029d0  12 f2 65 6e 74 65 72 5f  6e 61 6d 65 28 31 29 0d  |..enter_name(1).|
000029e0  12 98 05 cc 0d 12 a2 31  e7 20 73 63 6f 72 65 25  |.......1. score%|
000029f0  3e 3d 68 69 73 63 6f 72  65 25 28 32 29 20 80 20  |>=hiscore%(2) . |
00002a00  73 63 6f 72 65 25 3c 3d  68 69 73 63 6f 72 65 25  |score%<=hiscore%|
00002a10  28 31 29 20 8c 0d 12 ac  12 f2 65 6e 74 65 72 5f  |(1) ......enter_|
00002a20  6e 61 6d 65 28 32 29 0d  12 b6 05 cc 0d 12 c0 31  |name(2)........1|
00002a30  e7 20 73 63 6f 72 65 25  3e 3d 68 69 73 63 6f 72  |. score%>=hiscor|
00002a40  65 25 28 33 29 20 80 20  73 63 6f 72 65 25 3c 3d  |e%(3) . score%<=|
00002a50  68 69 73 63 6f 72 65 25  28 32 29 20 8c 0d 12 ca  |hiscore%(2) ....|
00002a60  12 f2 65 6e 74 65 72 5f  6e 61 6d 65 28 33 29 0d  |..enter_name(3).|
00002a70  12 d4 05 cc 0d 12 de 31  e7 20 73 63 6f 72 65 25  |.......1. score%|
00002a80  3e 3d 68 69 73 63 6f 72  65 25 28 34 29 20 80 20  |>=hiscore%(4) . |
00002a90  73 63 6f 72 65 25 3c 3d  68 69 73 63 6f 72 65 25  |score%<=hiscore%|
00002aa0  28 33 29 20 8c 0d 12 e8  12 f2 65 6e 74 65 72 5f  |(3) ......enter_|
00002ab0  6e 61 6d 65 28 34 29 0d  12 f2 05 cc 0d 12 fc 31  |name(4)........1|
00002ac0  e7 20 73 63 6f 72 65 25  3e 3d 68 69 73 63 6f 72  |. score%>=hiscor|
00002ad0  65 25 28 35 29 20 80 20  73 63 6f 72 65 25 3c 3d  |e%(5) . score%<=|
00002ae0  68 69 73 63 6f 72 65 25  28 34 29 20 8c 0d 13 06  |hiscore%(4) ....|
00002af0  12 f2 65 6e 74 65 72 5f  6e 61 6d 65 28 35 29 0d  |..enter_name(5).|
00002b00  13 10 05 cc 0d 13 1a 31  e7 20 73 63 6f 72 65 25  |.......1. score%|
00002b10  3e 3d 68 69 73 63 6f 72  65 25 28 36 29 20 80 20  |>=hiscore%(6) . |
00002b20  73 63 6f 72 65 25 3c 3d  68 69 73 63 6f 72 65 25  |score%<=hiscore%|
00002b30  28 35 29 20 8c 0d 13 24  12 f2 65 6e 74 65 72 5f  |(5) ...$..enter_|
00002b40  6e 61 6d 65 28 36 29 0d  13 2e 05 cc 0d 13 38 31  |name(6).......81|
00002b50  e7 20 73 63 6f 72 65 25  3e 3d 68 69 73 63 6f 72  |. score%>=hiscor|
00002b60  65 25 28 37 29 20 80 20  73 63 6f 72 65 25 3c 3d  |e%(7) . score%<=|
00002b70  68 69 73 63 6f 72 65 25  28 36 29 20 8c 0d 13 42  |hiscore%(6) ...B|
00002b80  12 f2 65 6e 74 65 72 5f  6e 61 6d 65 28 37 29 0d  |..enter_name(7).|
00002b90  13 4c 05 cc 0d 13 56 31  e7 20 73 63 6f 72 65 25  |.L....V1. score%|
00002ba0  3e 3d 68 69 73 63 6f 72  65 25 28 38 29 20 80 20  |>=hiscore%(8) . |
00002bb0  73 63 6f 72 65 25 3c 3d  68 69 73 63 6f 72 65 25  |score%<=hiscore%|
00002bc0  28 37 29 20 8c 0d 13 60  12 f2 65 6e 74 65 72 5f  |(7) ...`..enter_|
00002bd0  6e 61 6d 65 28 38 29 0d  13 6a 05 cc 0d 13 74 31  |name(8)..j....t1|
00002be0  e7 20 73 63 6f 72 65 25  3e 3d 68 69 73 63 6f 72  |. score%>=hiscor|
00002bf0  65 25 28 39 29 20 80 20  73 63 6f 72 65 25 3c 3d  |e%(9) . score%<=|
00002c00  68 69 73 63 6f 72 65 25  28 38 29 20 8c 0d 13 7e  |hiscore%(8) ...~|
00002c10  12 f2 65 6e 74 65 72 5f  6e 61 6d 65 28 39 29 0d  |..enter_name(9).|
00002c20  13 88 05 cc 0d 13 92 1f  63 68 25 3d ad 20 22 3c  |........ch%=. "<|
00002c30  52 6f 61 64 48 6f 67 24  44 69 72 3e 2e 53 63 6f  |RoadHog$Dir>.Sco|
00002c40  72 65 22 0d 13 9c 0d e3  20 4a 3d 30 20 b8 20 39  |re"..... J=0 . 9|
00002c50  0d 13 a6 15 f1 23 63 68  25 2c 68 69 73 63 6f 72  |.....#ch%,hiscor|
00002c60  65 25 28 4a 29 0d 13 b0  12 f1 23 63 68 25 2c 6e  |e%(J).....#ch%,n|
00002c70  61 6d 65 24 28 4a 29 0d  13 ba 05 ed 0d 13 c4 10  |ame$(J).........|
00002c80  f1 23 63 68 25 2c 73 63  6f 72 65 25 0d 13 ce 09  |.#ch%,score%....|
00002c90  d9 23 63 68 25 0d 13 d8  05 cd 0d 13 e2 05 cd 0d  |.#ch%...........|
00002ca0  13 ec 05 cd 0d 13 f6 05  cd 0d 14 00 05 cd 0d 14  |................|
00002cb0  0a 05 cd 0d 14 14 05 cd  0d 14 1e 05 cd 0d 14 28  |...............(|
00002cc0  05 cd 0d 14 32 05 cd 0d  14 3c 05 e1 0d 14 46 05  |....2....<....F.|
00002cd0  3a 0d 14 50 1c dd 20 f2  65 6e 74 65 72 5f 6e 61  |:..P.. .enter_na|
00002ce0  6d 65 28 70 6f 73 69 74  69 6f 6e 25 29 0d 14 5a  |me(position%)..Z|
00002cf0  1a e3 20 49 3d 39 20 b8  20 70 6f 73 69 74 69 6f  |.. I=9 . positio|
00002d00  6e 25 20 88 20 2d 31 0d  14 64 23 e7 20 49 3e 30  |n% . -1..d#. I>0|
00002d10  20 68 69 73 63 6f 72 65  25 28 49 29 3d 68 69 73  | hiscore%(I)=his|
00002d20  63 6f 72 65 25 28 49 2d  31 29 0d 14 6e 1d e7 20  |core%(I-1)..n.. |
00002d30  49 3e 30 20 6e 61 6d 65  24 28 49 29 3d 6e 61 6d  |I>0 name$(I)=nam|
00002d40  65 24 28 49 2d 31 29 0d  14 78 05 ed 0d 14 82 17  |e$(I-1)..x......|
00002d50  6e 61 6d 65 24 28 70 6f  73 69 74 69 6f 6e 25 29  |name$(position%)|
00002d60  3d 22 22 0d 14 8c 29 c8  99 20 73 70 72 6f 70 25  |=""...).. sprop%|
00002d70  2c 32 39 30 2c 73 70 25  2c 22 69 6e 69 74 69 61  |,290,sp%,"initia|
00002d80  6c 73 22 2c 32 30 2c 39  30 30 2c 30 0d 14 96 0f  |ls",20,900,0....|
00002d90  f2 69 6e 70 75 74 5f 6e  61 6d 65 0d 14 a0 1e 68  |.input_name....h|
00002da0  69 73 63 6f 72 65 25 28  70 6f 73 69 74 69 6f 6e  |iscore%(position|
00002db0  25 29 3d 73 63 6f 72 65  25 0d 14 aa 1f 63 68 25  |%)=score%....ch%|
00002dc0  3d ad 20 22 3c 52 6f 61  64 48 6f 67 24 44 69 72  |=. "<RoadHog$Dir|
00002dd0  3e 2e 53 63 6f 72 65 22  0d 14 b4 0d e3 20 4a 3d  |>.Score"..... J=|
00002de0  30 20 b8 20 39 0d 14 be  15 f1 23 63 68 25 2c 68  |0 . 9.....#ch%,h|
00002df0  69 73 63 6f 72 65 25 28  4a 29 0d 14 c8 12 f1 23  |iscore%(J).....#|
00002e00  63 68 25 2c 6e 61 6d 65  24 28 4a 29 0d 14 d2 05  |ch%,name$(J)....|
00002e10  ed 0d 14 dc 10 f1 23 63  68 25 2c 73 63 6f 72 65  |......#ch%,score|
00002e20  25 0d 14 e6 09 d9 23 63  68 25 0d 14 f0 05 e1 0d  |%.....#ch%......|
00002e30  14 fa 05 3a 0d 15 04 11  dd 20 f2 69 6e 70 75 74  |...:..... .input|
00002e40  5f 6e 61 6d 65 0d 15 0e  0c 70 6c 61 63 65 25 3d  |_name....place%=|
00002e50  30 0d 15 18 0d e3 20 49  3d 31 20 b8 20 33 0d 15  |0..... I=1 . 3..|
00002e60  22 05 f5 0d 15 2c 24 f1  20 8a 28 33 30 2b 49 29  |"....,$. .(30+I)|
00002e70  2b 31 2c 38 29 3b c1 61  6c 70 68 61 24 2c 70 6c  |+1,8);.alpha$,pl|
00002e80  61 63 65 25 2c 31 29 0d  15 36 2c e7 20 a6 2d 39  |ace%,1)..6,. .-9|
00002e90  38 20 70 6c 61 63 65 25  2d 3d 31 3a c8 96 3a c8  |8 place%-=1:..:.|
00002ea0  96 3a c8 96 3a c8 96 3a  c8 96 3a c8 96 3a c8 96  |.:..:..:..:..:..|
00002eb0  3a c8 96 0d 15 40 2c e7  20 a6 2d 36 37 20 70 6c  |:....@,. .-67 pl|
00002ec0  61 63 65 25 2b 3d 31 3a  c8 96 3a c8 96 3a c8 96  |ace%+=1:..:..:..|
00002ed0  3a c8 96 3a c8 96 3a c8  96 3a c8 96 3a c8 96 0d  |:..:..:..:..:...|
00002ee0  15 4a 18 e7 20 70 6c 61  63 65 25 3c 30 20 70 6c  |.J.. place%<0 pl|
00002ef0  61 63 65 25 3d 32 37 0d  15 54 18 e7 20 70 6c 61  |ace%=27..T.. pla|
00002f00  63 65 25 3e 32 37 20 70  6c 61 63 65 25 3d 30 0d  |ce%>27 place%=0.|
00002f10  15 5e 0a fd 20 a6 2d 37  34 0d 15 68 21 c8 96 3a  |.^.. .-74..h!..:|
00002f20  c8 96 3a c8 96 3a c8 96  3a c8 96 3a c8 96 3a c8  |..:..:..:..:..:.|
00002f30  96 3a c8 96 3a c8 96 3a  c8 96 0d 15 72 21 69 6e  |.:..:..:....r!in|
00002f40  69 74 69 61 6c 24 28 49  29 3d c1 61 6c 70 68 61  |itial$(I)=.alpha|
00002f50  24 2c 70 6c 61 63 65 25  2c 31 29 0d 15 7c 05 ed  |$,place%,1)..|..|
00002f60  0d 15 86 38 6e 61 6d 65  24 28 70 6f 73 69 74 69  |...8name$(positi|
00002f70  6f 6e 25 29 3d 69 6e 69  74 69 61 6c 24 28 31 29  |on%)=initial$(1)|
00002f80  2b 69 6e 69 74 69 61 6c  24 28 32 29 2b 69 6e 69  |+initial$(2)+ini|
00002f90  74 69 61 6c 24 28 33 29  0d 15 90 05 e1 0d 15 9a  |tial$(3)........|
00002fa0  05 3a 0d 15 a4 17 dd 20  f2 62 6c 61 6e 6b 6f 75  |.:..... .blankou|
00002fb0  74 28 74 69 6d 65 73 25  29 0d 15 ae 06 c8 96 0d  |t(times%).......|
00002fc0  15 b8 0e e6 20 30 2c 30  20 c8 9c 20 30 0d 15 c2  |.... 0,0 .. 0...|
00002fd0  12 e3 20 49 3d 30 20 b8  20 74 69 6d 65 73 25 0d  |.. I=0 . times%.|
00002fe0  15 cc 10 72 6e 64 25 3d  b3 28 31 30 32 33 29 0d  |...rnd%=.(1023).|
00002ff0  15 d6 16 86 20 30 2c 72  6e 64 25 2c 31 32 37 39  |.... 0,rnd%,1279|
00003000  2c 72 6e 64 25 0d 15 e0  05 ed 0d 15 ea 05 e1 0d  |,rnd%...........|
00003010  15 f4 05 3a 0d 15 fe 0c  dd 20 f2 70 61 6e 65 6c  |...:..... .panel|
00003020  0d 16 08 11 70 78 25 3d  30 3a 70 79 25 3d 39 37  |....px%=0:py%=97|
00003030  38 0d 16 12 0a f7 20 8d  54 72 59 0d 16 1c 0d e3  |8..... .TrY.....|
00003040  20 49 3d 31 20 b8 20 35  0d 16 26 0c f3 20 70 61  | I=1 . 5..&.. pa|
00003050  6e 65 6c 24 0d 16 30 15  e3 20 4a 3d 31 20 b8 20  |nel$..0.. J=1 . |
00003060  a9 28 70 61 6e 65 6c 24  29 0d 16 3a 16 6c 69 6e  |.(panel$)..:.lin|
00003070  65 24 3d c1 70 61 6e 65  6c 24 2c 4a 2c 31 29 0d  |e$=.panel$,J,1).|
00003080  16 44 12 e7 20 6c 69 6e  65 24 3c 3e 22 30 22 20  |.D.. line$<>"0" |
00003090  8c 0d 16 4e 14 20 20 20  e7 20 6c 69 6e 65 24 3d  |...N.   . line$=|
000030a0  22 41 22 20 8c 0d 16 58  2f 20 20 20 20 20 20 c8  |"A" ...X/      .|
000030b0  99 20 73 70 72 6f 70 25  2c 32 39 30 2c 73 70 25  |. sprop%,290,sp%|
000030c0  2c 22 74 6f 70 6c 65 66  74 22 2c 70 78 25 2c 70  |,"topleft",px%,p|
000030d0  79 25 2c 30 0d 16 62 08  20 20 20 cd 0d 16 6c 14  |y%,0..b.   ...l.|
000030e0  20 20 20 e7 20 6c 69 6e  65 24 3d 22 42 22 20 8c  |   . line$="B" .|
000030f0  0d 16 76 30 20 20 20 20  20 20 c8 99 20 73 70 72  |..v0      .. spr|
00003100  6f 70 25 2c 32 39 30 2c  73 70 25 2c 22 70 74 6f  |op%,290,sp%,"pto|
00003110  70 73 69 64 65 22 2c 70  78 25 2c 70 79 25 2c 30  |pside",px%,py%,0|
00003120  0d 16 80 08 20 20 20 cd  0d 16 8a 14 20 20 20 e7  |....   .....   .|
00003130  20 6c 69 6e 65 24 3d 22  43 22 20 8c 0d 16 94 30  | line$="C" ....0|
00003140  20 20 20 20 20 20 c8 99  20 73 70 72 6f 70 25 2c  |      .. sprop%,|
00003150  32 39 30 2c 73 70 25 2c  22 74 6f 70 72 69 67 68  |290,sp%,"toprigh|
00003160  74 22 2c 70 78 25 2c 70  79 25 2c 30 0d 16 9e 08  |t",px%,py%,0....|
00003170  20 20 20 cd 0d 16 a8 14  20 20 20 e7 20 6c 69 6e  |   .....   . lin|
00003180  65 24 3d 22 44 22 20 8c  0d 16 b2 31 20 20 20 20  |e$="D" ....1    |
00003190  20 20 c8 99 20 73 70 72  6f 70 25 2c 32 39 30 2c  |  .. sprop%,290,|
000031a0  73 70 25 2c 22 70 6c 65  66 74 73 69 64 65 22 2c  |sp%,"pleftside",|
000031b0  70 78 25 2c 70 79 25 2c  30 0d 16 bc 08 20 20 20  |px%,py%,0....   |
000031c0  cd 0d 16 c6 14 20 20 20  e7 20 6c 69 6e 65 24 3d  |.....   . line$=|
000031d0  22 45 22 20 8c 0d 16 d0  32 20 20 20 20 20 20 c8  |"E" ....2      .|
000031e0  99 20 73 70 72 6f 70 25  2c 32 39 30 2c 73 70 25  |. sprop%,290,sp%|
000031f0  2c 22 70 72 69 67 68 74  73 69 64 65 22 2c 70 78  |,"prightside",px|
00003200  25 2c 70 79 25 2c 30 0d  16 da 08 20 20 20 cd 0d  |%,py%,0....   ..|
00003210  16 e4 14 20 20 20 e7 20  6c 69 6e 65 24 3d 22 46  |...   . line$="F|
00003220  22 20 8c 0d 16 ee 32 20  20 20 20 20 20 c8 99 20  |" ....2      .. |
00003230  73 70 72 6f 70 25 2c 32  39 30 2c 73 70 25 2c 22  |sprop%,290,sp%,"|
00003240  62 6f 74 74 6f 6d 6c 65  66 74 22 2c 70 78 25 2c  |bottomleft",px%,|
00003250  70 79 25 2c 30 0d 16 f8  08 20 20 20 cd 0d 17 02  |py%,0....   ....|
00003260  14 20 20 20 e7 20 6c 69  6e 65 24 3d 22 47 22 20  |.   . line$="G" |
00003270  8c 0d 17 0c 33 20 20 20  20 20 20 c8 99 20 73 70  |....3      .. sp|
00003280  72 6f 70 25 2c 32 39 30  2c 73 70 25 2c 22 70 62  |rop%,290,sp%,"pb|
00003290  6f 74 74 6f 6d 73 69 64  65 22 2c 70 78 25 2c 70  |ottomside",px%,p|
000032a0  79 25 2c 30 0d 17 16 08  20 20 20 cd 0d 17 20 14  |y%,0....   ... .|
000032b0  20 20 20 e7 20 6c 69 6e  65 24 3d 22 48 22 20 8c  |   . line$="H" .|
000032c0  0d 17 2a 33 20 20 20 20  20 20 c8 99 20 73 70 72  |..*3      .. spr|
000032d0  6f 70 25 2c 32 39 30 2c  73 70 25 2c 22 62 6f 74  |op%,290,sp%,"bot|
000032e0  74 6f 6d 72 69 67 68 74  22 2c 70 78 25 2c 70 79  |tomright",px%,py|
000032f0  25 2c 30 0d 17 34 08 20  20 20 cd 0d 17 3e 05 cd  |%,0..4.   ...>..|
00003300  0d 17 48 0b 70 78 25 2b  3d 32 30 0d 17 52 05 ed  |..H.px%+=20..R..|
00003310  0d 17 5c 11 70 78 25 3d  30 3a 70 79 25 2d 3d 32  |..\.px%=0:py%-=2|
00003320  30 0d 17 66 05 ed 0d 17  70 05 e1 0d 17 7a 05 3a  |0..f....p....z.:|
00003330  0d 17 84 0e dd 20 f2 64  69 73 70 6c 61 79 0d 17  |..... .display..|
00003340  8e 1f 63 68 25 3d 8e 20  22 3c 52 6f 61 64 48 6f  |..ch%=. "<RoadHo|
00003350  67 24 44 69 72 3e 2e 53  63 6f 72 65 22 0d 17 98  |g$Dir>.Score"...|
00003360  0d e3 20 49 3d 30 20 b8  20 39 0d 17 a2 15 e8 23  |.. I=0 . 9.....#|
00003370  63 68 25 2c 68 69 73 63  6f 72 65 25 28 49 29 0d  |ch%,hiscore%(I).|
00003380  17 ac 12 e8 23 63 68 25  2c 6e 61 6d 65 24 28 49  |....#ch%,name$(I|
00003390  29 0d 17 b6 05 ed 0d 17  c0 14 e8 23 63 68 25 2c  |)..........#ch%,|
000033a0  6c 61 73 74 73 63 6f 72  65 25 0d 17 ca 09 d9 23  |lastscore%.....#|
000033b0  63 68 25 0d 17 d4 1c 74  69 74 6c 65 24 3d 22 52  |ch%....title$="R|
000033c0  20 4f 20 41 20 44 20 20  20 48 20 4f 20 47 22 0d  | O A D   H O G".|
000033d0  17 de 0b fb 20 b3 28 36  33 29 0d 17 e8 1f f1 20  |.... .(63)..... |
000033e0  8a 34 30 2d 28 a9 28 74  69 74 6c 65 24 29 2f 32  |.40-(.(title$)/2|
000033f0  29 29 3b 74 69 74 6c 65  24 0d 17 f2 35 74 69 74  |));title$...5tit|
00003400  6c 65 24 3d 22 42 79 20  4d 69 63 68 61 65 6c 20  |le$="By Michael |
00003410  43 6f 6f 6b 20 28 50 72  6f 67 72 61 6d 6d 69 6e  |Cook (Programmin|
00003420  67 20 2b 20 47 72 61 70  68 69 63 73 29 22 0d 17  |g + Graphics)"..|
00003430  fc 0b fb 20 b3 28 36 33  29 0d 18 06 1f f1 27 8a  |... .(63).....'.|
00003440  34 30 2d 28 a9 28 74 69  74 6c 65 24 29 2f 32 29  |40-(.(title$)/2)|
00003450  29 3b 74 69 74 6c 65 24  0d 18 10 22 74 69 74 6c  |);title$..."titl|
00003460  65 24 3d 22 41 6e 64 20  4b 65 76 69 6e 20 53 69  |e$="And Kevin Si|
00003470  6d 6d 20 28 4c 6f 67 6f  29 22 0d 18 1a 0b fb 20  |mm (Logo)"..... |
00003480  b3 28 36 33 29 0d 18 24  1f f1 27 8a 34 30 2d 28  |.(63)..$..'.40-(|
00003490  a9 28 74 69 74 6c 65 24  29 2f 32 29 29 3b 74 69  |.(title$)/2));ti|
000034a0  74 6c 65 24 0d 18 2e 22  74 69 74 6c 65 24 3d 22  |tle$..."title$="|
000034b0  28 74 68 65 20 41 72 63  68 69 65 20 42 72 6f 74  |(the Archie Brot|
000034c0  68 65 72 73 29 22 0d 18  38 0b fb 20 b3 28 36 33  |hers)"..8.. .(63|
000034d0  29 0d 18 42 1f f1 27 8a  34 30 2d 28 a9 28 74 69  |)..B..'.40-(.(ti|
000034e0  74 6c 65 24 29 2f 32 29  29 3b 74 69 74 6c 65 24  |tle$)/2));title$|
000034f0  0d 18 4c 28 74 69 74 6c  65 24 3d 22 48 69 67 68  |..L(title$="High|
00003500  20 73 63 6f 72 65 3a 20  22 2b c3 28 68 69 73 63  | score: "+.(hisc|
00003510  6f 72 65 25 28 30 29 29  0d 18 56 0b fb 20 b3 28  |ore%(0))..V.. .(|
00003520  36 33 29 0d 18 60 1f f1  27 8a 34 30 2d 28 a9 28  |63)..`..'.40-(.(|
00003530  74 69 74 6c 65 24 29 2f  32 29 29 3b 74 69 74 6c  |title$)/2));titl|
00003540  65 24 0d 18 6a 27 74 69  74 6c 65 24 3d 22 4c 61  |e$..j'title$="La|
00003550  73 74 20 73 63 6f 72 65  3a 20 22 2b c3 28 6c 61  |st score: "+.(la|
00003560  73 74 73 63 6f 72 65 25  29 0d 18 74 0b fb 20 b3  |stscore%)..t.. .|
00003570  28 36 33 29 0d 18 7e 1f  f1 27 8a 34 30 2d 28 a9  |(63)..~..'.40-(.|
00003580  28 74 69 74 6c 65 24 29  2f 32 29 29 3b 74 69 74  |(title$)/2));tit|
00003590  6c 65 24 0d 18 88 29 74  69 74 6c 65 24 3d 22 54  |le$...)title$="T|
000035a0  6f 20 70 6c 61 79 20 74  68 65 20 67 61 6d 65 20  |o play the game |
000035b0  70 72 65 73 73 20 53 50  41 43 45 22 0d 18 92 0b  |press SPACE"....|
000035c0  fb 20 b3 28 36 33 29 0d  18 9c 1f f1 27 8a 34 30  |. .(63).....'.40|
000035d0  2d 28 a9 28 74 69 74 6c  65 24 29 2f 32 29 29 3b  |-(.(title$)/2));|
000035e0  74 69 74 6c 65 24 0d 18  a6 26 74 69 74 6c 65 24  |title$...&title$|
000035f0  3d 22 28 63 29 20 41 72  63 68 69 6d 65 64 65 73  |="(c) Archimedes|
00003600  20 57 6f 72 6c 64 20 31  39 39 32 22 0d 18 b0 0b  | World 1992"....|
00003610  fb 20 b3 28 36 33 29 0d  18 ba 20 f1 27 8a 34 30  |. .(63)... .'.40|
00003620  2d 28 a9 28 74 69 74 6c  65 24 29 2f 32 29 29 3b  |-(.(title$)/2));|
00003630  74 69 74 6c 65 24 27 0d  18 c4 24 c8 99 20 73 70  |title$'...$.. sp|
00003640  72 6f 70 25 2c 32 39 30  2c 73 70 25 2c 22 73 69  |rop%,290,sp%,"si|
00003650  67 6e 22 2c 30 2c 35 34  30 2c 30 0d 18 ce 27 c8  |gn",0,540,0...'.|
00003660  99 20 73 70 72 6f 70 25  2c 32 39 30 2c 73 70 25  |. sprop%,290,sp%|
00003670  2c 22 73 69 67 6e 22 2c  31 30 30 30 2c 35 34 30  |,"sign",1000,540|
00003680  2c 30 0d 18 d8 23 c8 99  20 73 70 72 6f 70 25 2c  |,0...#.. sprop%,|
00003690  32 39 30 2c 73 70 25 2c  22 64 69 73 63 22 2c 30  |290,sp%,"disc",0|
000036a0  2c 36 30 2c 30 0d 18 e2  25 c8 99 20 73 70 72 6f  |,60,0...%.. spro|
000036b0  70 25 2c 32 39 30 2c 73  70 25 2c 22 64 69 73 63  |p%,290,sp%,"disc|
000036c0  22 2c 38 37 30 2c 36 30  2c 30 0d 18 ec 0f e3 20  |",870,60,0..... |
000036d0  49 3d 31 38 20 b8 20 32  37 0d 18 f6 0b fb 20 b3  |I=18 . 27..... .|
000036e0  28 36 33 29 0d 19 00 79  e7 20 49 2d 31 38 3c 39  |(63)...y. I-18<9|
000036f0  20 f1 20 8a 33 32 2c 49  29 3b 49 2d 31 37 3b 22  | . .32,I);I-17;"|
00003700  2e 20 20 22 3b 6e 61 6d  65 24 28 49 2d 31 38 29  |.  ";name$(I-18)|
00003710  3b 8a 34 33 2c 49 29 3b  68 69 73 63 6f 72 65 25  |;.43,I);hiscore%|
00003720  28 49 2d 31 38 29 20 8b  20 f1 20 8a 33 32 2c 49  |(I-18) . . .32,I|
00003730  29 3b 49 2d 31 37 3b 22  2e 20 22 3b 6e 61 6d 65  |);I-17;". ";name|
00003740  24 28 49 2d 31 38 29 3b  8a 34 33 2c 49 29 3b 68  |$(I-18);.43,I);h|
00003750  69 73 63 6f 72 65 25 28  49 2d 31 38 29 0d 19 0a  |iscore%(I-18)...|
00003760  05 ed 0d 19 14 0f fb 20  36 33 20 c8 9c 20 31 39  |....... 63 .. 19|
00003770  32 0d 19 1e 05 e1 0d 19  28 05 3a 0d 19 32 48 dc  |2.......(.:..2H.|
00003780  20 22 41 42 42 42 42 42  42 42 42 42 42 42 42 42  | "ABBBBBBBBBBBBB|
00003790  42 42 42 42 42 42 42 42  42 42 42 42 42 42 42 42  |BBBBBBBBBBBBBBBB|
*
000037c0  42 43 22 0d 19 3c 48 dc  20 22 44 30 30 30 30 30  |BC"..<H. "D00000|
000037d0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
*
00003800  30 30 30 30 30 30 30 30  30 45 22 0d 19 46 48 dc  |000000000E"..FH.|
00003810  20 22 44 30 30 30 30 30  30 30 30 30 30 30 30 30  | "D0000000000000|
00003820  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
*
00003850  30 45 22 0d 19 50 48 dc  20 22 44 30 30 30 30 30  |0E"..PH. "D00000|
00003860  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
*
00003890  30 30 30 30 30 30 30 30  30 45 22 0d 19 5a 48 dc  |000000000E"..ZH.|
000038a0  20 22 46 47 47 47 47 47  47 47 47 47 47 47 47 47  | "FGGGGGGGGGGGGG|
000038b0  47 47 47 47 47 47 47 47  47 47 47 47 47 47 47 47  |GGGGGGGGGGGGGGGG|
*
000038e0  47 48 22 0d 19 64 05 3a  0d 19 6e 17 dc 20 22 42  |GH"..d.:..n.. "B|
000038f0  30 30 30 30 30 30 30 30  30 30 30 30 30 43 22 0d  |0000000000000C".|
00003900  19 78 17 dc 20 22 42 30  30 30 30 30 30 30 30 30  |.x.. "B000000000|
00003910  30 30 30 30 43 22 0d 19  82 17 dc 20 22 42 30 30  |0000C"..... "B00|
00003920  30 30 30 30 30 30 30 30  30 30 30 43 22 0d 19 8c  |00000000000C"...|
00003930  17 dc 20 22 42 30 30 30  30 30 30 30 30 30 30 30  |.. "B00000000000|
00003940  30 30 43 22 0d 19 96 17  dc 20 22 42 30 30 30 30  |00C"..... "B0000|
00003950  30 30 30 54 30 30 30 30  30 43 22 0d 19 a0 17 dc  |000T00000C".....|
00003960  20 22 42 30 30 48 30 30  30 30 30 30 30 30 30 48  | "B00H000000000H|
00003970  43 22 0d 19 aa 17 dc 20  22 42 30 30 30 30 30 30  |C"..... "B000000|
00003980  30 30 30 30 30 30 30 43  22 0d 19 b4 17 dc 20 22  |0000000C"..... "|
00003990  42 48 30 30 30 30 30 30  30 4a 30 30 54 30 43 22  |BH0000000J00T0C"|
000039a0  0d 19 be 17 dc 20 22 42  53 30 30 30 48 30 30 30  |..... "BS000H000|
000039b0  30 30 30 30 30 43 22 0d  19 c8 17 dc 20 22 46 44  |00000C"..... "FD|
000039c0  44 44 44 44 44 44 44 44  44 44 44 44 45 22 0d 19  |DDDDDDDDDDDDE"..|
000039d0  d2 05 3a 0d 19 dc 17 dc  20 22 42 30 30 30 30 30  |..:..... "B00000|
000039e0  30 30 30 30 30 30 30 30  43 22 0d 19 e6 17 dc 20  |00000000C"..... |
000039f0  22 42 30 30 30 30 30 30  30 30 30 30 30 30 30 43  |"B0000000000000C|
00003a00  22 0d 19 f0 17 dc 20 22  42 30 30 30 30 30 30 30  |"..... "B0000000|
00003a10  30 30 30 30 30 30 43 22  0d 19 fa 17 dc 20 22 42  |000000C"..... "B|
00003a20  30 30 30 30 30 30 30 30  30 48 30 30 30 43 22 0d  |000000000H000C".|
00003a30  1a 04 17 dc 20 22 42 30  30 30 30 4a 30 30 4c 30  |.... "B0000J00L0|
00003a40  30 30 30 30 43 22 0d 1a  0e 17 dc 20 22 42 30 30  |0000C"..... "B00|
00003a50  30 30 30 30 30 30 30 30  30 30 48 43 22 0d 1a 18  |0000000000HC"...|
00003a60  17 dc 20 22 42 30 30 54  30 30 48 30 30 54 30 30  |.. "B00T00H00T00|
00003a70  30 30 43 22 0d 1a 22 17  dc 20 22 42 4c 30 30 30  |00C"..".. "BL000|
00003a80  30 30 30 30 30 30 30 54  30 43 22 0d 1a 2c 17 dc  |0000000T0C"..,..|
00003a90  20 22 42 53 30 30 30 48  51 30 30 30 30 30 30 30  | "BS000HQ0000000|
00003aa0  43 22 0d 1a 36 17 dc 20  22 46 44 44 44 44 44 44  |C"..6.. "FDDDDDD|
00003ab0  44 44 44 44 44 44 44 45  22 0d 1a 40 05 3a 0d 1a  |DDDDDDDE"..@.:..|
00003ac0  4a 17 dc 20 22 42 30 30  30 30 30 30 30 30 30 30  |J.. "B0000000000|
00003ad0  30 30 30 43 22 0d 1a 54  17 dc 20 22 42 30 30 30  |000C"..T.. "B000|
00003ae0  30 30 30 30 30 30 30 30  30 30 43 22 0d 1a 5e 17  |0000000000C"..^.|
00003af0  dc 20 22 42 30 30 30 30  30 30 30 30 30 30 30 30  |. "B000000000000|
00003b00  30 43 22 0d 1a 68 17 dc  20 22 42 30 30 30 30 48  |0C"..h.. "B0000H|
00003b10  30 30 30 30 30 30 30 30  43 22 0d 1a 72 17 dc 20  |00000000C"..r.. |
00003b20  22 42 30 54 30 30 30 30  30 30 30 30 30 30 30 43  |"B0T00000000000C|
00003b30  22 0d 1a 7c 17 dc 20 22  42 30 30 30 30 30 30 4a  |"..|.. "B000000J|
00003b40  30 30 30 30 51 48 43 22  0d 1a 86 17 dc 20 22 42  |0000QHC"..... "B|
00003b50  30 30 30 30 30 48 30 30  4c 30 30 30 30 43 22 0d  |00000H00L0000C".|
00003b60  1a 90 17 dc 20 22 42 54  30 30 30 30 30 30 30 30  |.... "BT00000000|
00003b70  30 30 54 30 43 22 0d 1a  9a 17 dc 20 22 42 53 30  |00T0C"..... "BS0|
00003b80  30 30 48 30 30 30 30 48  51 30 30 43 22 0d 1a a4  |00H0000HQ00C"...|
00003b90  17 dc 20 22 46 44 44 44  44 44 44 44 44 44 44 44  |.. "FDDDDDDDDDDD|
00003ba0  44 44 45 22 0d 1a ae 05  3a 0d 1a b8 17 dc 20 22  |DDE"....:..... "|
00003bb0  42 30 30 30 30 30 30 30  30 30 30 30 30 30 43 22  |B0000000000000C"|
00003bc0  0d 1a c2 17 dc 20 22 42  30 30 30 30 30 30 30 30  |..... "B00000000|
00003bd0  30 30 30 30 30 43 22 0d  1a cc 17 dc 20 22 42 30  |00000C"..... "B0|
00003be0  30 30 30 30 30 30 30 30  30 30 30 30 43 22 0d 1a  |000000000000C"..|
00003bf0  d6 17 dc 20 22 42 30 30  30 30 30 48 30 30 30 30  |... "B00000H0000|
00003c00  30 30 30 43 22 0d 1a e0  17 dc 20 22 42 30 54 30  |000C"..... "B0T0|
00003c10  30 30 30 30 30 30 30 30  30 30 43 22 0d 1a ea 17  |0000000000C"....|
00003c20  dc 20 22 42 30 30 30 30  30 30 30 30 4c 30 30 51  |. "B00000000L00Q|
00003c30  48 43 22 0d 1a f4 17 dc  20 22 42 30 30 30 30 30  |HC"..... "B00000|
00003c40  48 30 30 30 30 30 30 30  43 22 0d 1a fe 17 dc 20  |H0000000C"..... |
00003c50  22 42 54 30 30 30 30 30  30 30 30 30 30 30 30 43  |"BT000000000000C|
00003c60  22 0d 1b 08 17 dc 20 22  42 53 30 30 30 48 30 30  |"..... "BS000H00|
00003c70  30 30 4c 30 30 4a 43 22  0d 1b 12 17 dc 20 22 46  |00L00JC"..... "F|
00003c80  44 44 44 44 44 44 44 44  44 44 44 44 44 45 22 0d  |DDDDDDDDDDDDDE".|
00003c90  1b 1c 05 3a 0d 1b 26 17  dc 20 22 42 30 30 30 30  |...:..&.. "B0000|
00003ca0  30 30 30 30 30 30 30 30  30 43 22 0d 1b 30 17 dc  |000000000C"..0..|
00003cb0  20 22 42 30 30 30 30 30  30 30 30 30 30 30 30 30  | "B0000000000000|
00003cc0  43 22 0d 1b 3a 17 dc 20  22 42 30 30 30 30 30 30  |C"..:.. "B000000|
00003cd0  30 30 30 30 30 30 30 43  22 0d 1b 44 17 dc 20 22  |0000000C"..D.. "|
00003ce0  42 30 30 30 54 30 30 30  30 30 30 30 30 30 43 22  |B000T000000000C"|
00003cf0  0d 1b 4e 17 dc 20 22 42  30 54 30 30 30 30 48 30  |..N.. "B0T0000H0|
00003d00  30 30 30 30 30 43 22 0d  1b 58 17 dc 20 22 42 30  |00000C"..X.. "B0|
00003d10  30 30 30 30 30 30 30 30  30 30 30 48 43 22 0d 1b  |00000000000HC"..|
00003d20  62 17 dc 20 22 42 30 30  30 30 30 48 30 30 4a 4c  |b.. "B00000H00JL|
00003d30  30 30 30 43 22 0d 1b 6c  17 dc 20 22 42 54 30 30  |000C"..l.. "BT00|
00003d40  30 30 30 30 30 30 30 30  54 30 43 22 0d 1b 76 17  |00000000T0C"..v.|
00003d50  dc 20 22 42 53 30 30 30  4c 30 30 30 30 48 30 30  |. "BS000L0000H00|
00003d60  30 43 22 0d 1b 80 17 dc  20 22 46 44 44 44 44 44  |0C"..... "FDDDDD|
00003d70  44 44 44 44 44 44 44 44  45 22 0d 1b 8a 05 3a 0d  |DDDDDDDDE"....:.|
00003d80  1b 94 17 dc 20 22 42 30  30 30 30 30 30 30 30 30  |.... "B000000000|
00003d90  30 30 30 30 43 22 0d 1b  9e 17 dc 20 22 42 30 30  |0000C"..... "B00|
00003da0  30 30 30 30 30 30 30 30  30 30 30 43 22 0d 1b a8  |00000000000C"...|
00003db0  17 dc 20 22 42 48 30 30  30 30 30 30 30 30 30 30  |.. "BH0000000000|
00003dc0  30 30 43 22 0d 1b b2 17  dc 20 22 42 30 30 30 54  |00C"..... "B000T|
00003dd0  30 30 30 30 30 30 30 4c  30 43 22 0d 1b bc 17 dc  |0000000L0C".....|
00003de0  20 22 42 30 30 30 30 30  30 48 30 4a 30 30 30 30  | "B000000H0J0000|
00003df0  43 22 0d 1b c6 17 dc 20  22 42 30 30 54 30 30 30  |C"..... "B00T000|
00003e00  30 30 30 30 30 30 48 43  22 0d 1b d0 17 dc 20 22  |000000HC"..... "|
00003e10  42 30 30 30 30 30 48 30  30 54 30 30 30 30 43 22  |B00000H00T0000C"|
00003e20  0d 1b da 17 dc 20 22 42  48 30 30 30 30 30 30 30  |..... "BH0000000|
00003e30  30 30 30 54 30 43 22 0d  1b e4 17 dc 20 22 42 53  |000T0C"..... "BS|
00003e40  30 30 30 4c 30 54 30 30  48 30 30 30 43 22 0d 1b  |000L0T00H000C"..|
00003e50  ee 17 dc 20 22 46 44 44  44 44 44 44 44 44 44 44  |... "FDDDDDDDDDD|
00003e60  44 44 44 45 22 0d 1b f8  05 3a 0d 1c 02 17 dc 20  |DDDE"....:..... |
00003e70  22 42 30 30 30 30 30 30  30 30 30 30 30 30 30 43  |"B0000000000000C|
00003e80  22 0d 1c 0c 17 dc 20 22  42 30 30 30 30 30 30 30  |"..... "B0000000|
00003e90  30 30 30 30 30 30 43 22  0d 1c 16 17 dc 20 22 42  |000000C"..... "B|
00003ea0  30 30 30 30 30 30 30 30  30 30 30 30 30 43 22 0d  |0000000000000C".|
00003eb0  1c 20 17 dc 20 22 42 30  30 30 30 48 30 30 30 30  |. .. "B0000H0000|
00003ec0  30 48 30 51 43 22 0d 1c  2a 17 dc 20 22 42 30 54  |0H0QC"..*.. "B0T|
00003ed0  30 30 30 30 30 54 30 30  30 30 30 43 22 0d 1c 34  |00000T00000C"..4|
00003ee0  17 dc 20 22 42 30 30 30  30 30 30 30 30 30 51 30  |.. "B000000000Q0|
00003ef0  51 48 43 22 0d 1c 3e 17  dc 20 22 42 30 30 30 30  |QHC"..>.. "B0000|
00003f00  30 4c 30 30 54 4a 30 30  30 43 22 0d 1c 48 17 dc  |0L00TJ000C"..H..|
00003f10  20 22 42 54 30 54 30 30  30 30 30 30 30 30 4c 30  | "BT0T00000000L0|
00003f20  43 22 0d 1c 52 17 dc 20  22 42 53 30 30 30 48 51  |C"..R.. "BS000HQ|
00003f30  30 30 30 48 51 30 30 43  22 0d 1c 5c 17 dc 20 22  |000HQ00C"..\.. "|
00003f40  46 44 44 44 44 44 44 44  44 44 44 44 44 44 45 22  |FDDDDDDDDDDDDDE"|
00003f50  0d 1c 66 05 3a 0d 1c 70  17 dc 20 22 42 30 30 30  |..f.:..p.. "B000|
00003f60  30 30 30 30 30 30 30 30  30 30 43 22 0d 1c 7a 17  |0000000000C"..z.|
00003f70  dc 20 22 42 30 30 30 30  30 30 30 30 30 30 30 30  |. "B000000000000|
00003f80  30 43 22 0d 1c 84 17 dc  20 22 42 30 30 30 30 30  |0C"..... "B00000|
00003f90  30 30 30 30 30 30 30 30  43 22 0d 1c 8e 17 dc 20  |00000000C"..... |
00003fa0  22 42 30 30 30 30 4c 30  4a 30 30 30 48 51 30 43  |"B0000L0J000HQ0C|
00003fb0  22 0d 1c 98 17 dc 20 22  42 30 30 30 30 30 30 30  |"..... "B0000000|
00003fc0  51 48 30 30 30 30 43 22  0d 1c a2 17 dc 20 22 42  |QH0000C"..... "B|
00003fd0  30 30 30 30 30 30 30 30  30 30 30 30 48 43 22 0d  |000000000000HC".|
00003fe0  1c ac 17 dc 20 22 42 30  30 30 4c 30 48 51 30 54  |.... "B000L0HQ0T|
00003ff0  30 30 30 30 43 22 0d 1c  b6 17 dc 20 22 42 54 30  |0000C"..... "BT0|
00004000  30 30 30 30 30 30 30 30  30 54 30 43 22 0d 1c c0  |000000000T0C"...|
00004010  17 dc 20 22 42 53 30 30  30 48 30 54 30 30 48 30  |.. "BS000H0T00H0|
00004020  30 30 43 22 0d 1c ca 17  dc 20 22 46 44 44 44 44  |00C"..... "FDDDD|
00004030  44 44 44 44 44 44 44 44  44 45 22 0d 1c d4 05 3a  |DDDDDDDDDE"....:|
00004040  0d 1c de 17 dc 20 22 42  30 30 30 30 30 30 30 30  |..... "B00000000|
00004050  30 30 30 30 30 43 22 0d  1c e8 17 dc 20 22 42 30  |00000C"..... "B0|
00004060  30 30 30 30 30 30 30 30  30 30 30 30 43 22 0d 1c  |000000000000C"..|
00004070  f2 17 dc 20 22 42 30 30  30 30 30 30 30 30 30 30  |... "B0000000000|
00004080  30 30 30 43 22 0d 1c fc  17 dc 20 22 42 30 30 30  |000C"..... "B000|
00004090  54 30 30 30 30 48 30 54  4a 54 43 22 0d 1d 06 17  |T0000H0TJTC"....|
000040a0  dc 20 22 42 30 4c 30 30  30 51 48 30 30 30 30 30  |. "B0L000QH00000|
000040b0  30 43 22 0d 1d 10 17 dc  20 22 42 30 30 30 30 30  |0C"..... "B00000|
000040c0  30 30 30 30 30 30 30 4c  43 22 0d 1d 1a 17 dc 20  |0000000LC"..... |
000040d0  22 42 30 30 30 30 30 48  51 30 54 30 30 30 30 43  |"B00000HQ0T0000C|
000040e0  22 0d 1d 24 17 dc 20 22  42 54 30 30 30 30 30 30  |"..$.. "BT000000|
000040f0  30 30 30 30 54 30 43 22  0d 1d 2e 17 dc 20 22 42  |0000T0C"..... "B|
00004100  53 30 30 30 4c 30 54 30  30 48 51 30 30 43 22 0d  |S000L0T00HQ00C".|
00004110  1d 38 17 dc 20 22 46 44  44 44 44 44 44 44 44 44  |.8.. "FDDDDDDDDD|
00004120  44 44 44 44 45 22 0d 1d  42 05 3a 0d 1d 4c 17 dc  |DDDDE"..B.:..L..|
00004130  20 22 42 30 30 30 30 30  30 30 30 30 30 30 30 30  | "B0000000000000|
00004140  43 22 0d 1d 56 17 dc 20  22 42 30 30 30 30 30 30  |C"..V.. "B000000|
00004150  30 30 30 30 30 30 30 43  22 0d 1d 60 17 dc 20 22  |0000000C"..`.. "|
00004160  42 48 30 30 30 30 30 30  30 30 30 30 30 4a 43 22  |BH00000000000JC"|
00004170  0d 1d 6a 17 dc 20 22 42  54 30 30 54 30 30 30 30  |..j.. "BT00T0000|
00004180  48 30 30 4c 30 43 22 0d  1d 74 17 dc 20 22 42 30  |H00L0C"..t.. "B0|
00004190  30 30 30 30 30 48 30 51  30 30 30 30 43 22 0d 1d  |00000H0Q0000C"..|
000041a0  7e 17 dc 20 22 42 30 30  54 30 30 30 30 30 30 30  |~.. "B00T0000000|
000041b0  30 30 48 43 22 0d 1d 88  17 dc 20 22 42 30 30 30  |00HC"..... "B000|
000041c0  30 30 48 51 30 4c 30 30  30 30 43 22 0d 1d 92 17  |00HQ0L0000C"....|
000041d0  dc 20 22 42 48 30 30 4c  30 30 30 30 30 30 30 54  |. "BH00L0000000T|
000041e0  30 43 22 0d 1d 9c 17 dc  20 22 42 53 30 30 30 48  |0C"..... "BS000H|
000041f0  30 54 30 30 48 30 30 51  43 22 0d 1d a6 17 dc 20  |0T00H00QC"..... |
00004200  22 46 44 44 44 44 44 44  44 44 44 44 44 44 44 45  |"FDDDDDDDDDDDDDE|
00004210  22 0d 1d b0 05 3a 0d 1d  ba 23 dc 20 37 30 2c 36  |"....:...#. 70,6|
00004220  36 2c 36 32 2c 35 38 2c  35 34 2c 35 30 2c 34 36  |6,62,58,54,50,46|
00004230  2c 34 32 2c 33 38 2c 33  34 0d ff                 |,42,38,34..|
0000423b