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 hscore%=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 Hs%=temp% Rflip%=� \left%=� fright%=� 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 lspeed%=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 zplung%=� �� �: � � �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