Home » Archimedes archive » Micro User » MU 1991-05.adf » Listings » !DangerDog/!Run
!DangerDog/!Run
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 » Micro User » MU 1991-05.adf » Listings |
| Filename: | !DangerDog/!Run |
| Read OK: | ✔ |
| File size: | 2425 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <BasicSave$Dir>.!RunImage
20REM Danger Dog Listing I
30REM by Matthew Eastmond
40REM (c) The Micro User
50ON ERROR GOTO470
60MODE1:VDU23,1;0;0;0;0;19,2,2;0;19,3,6;0;
70DIM L%40,M%128:P%=M%
80[OPT2:STMFD r13!,{r14}:MOV r0,#135:SWI 6:STR r1,L%:LDMFD r13!,{pc}:]
90ENVELOPE1,1,0,0,0,0,0,0,0,0,0,-9,80,80
100ENVELOPE2,2,1,-1,1,2,4,2,10,-1,0,-1,106,70
110ENVELOPE3,1,0,0,0,1,1,1,60,-4,-1,-1,99,20
120ENVELOPE4,1,0,0,0,1,1,1,60,-8,-4,-5,126,60
130ENVELOPE13,1,0,0,0,0,0,0,126,-8,-1,-8,126,50
140ENVELOPE14,130,0,3,-2,2,3,9,45,-30,-5,-6,105,40
150ENVELOPE15,0,0,0,0,0,0,0,100,-100,-100,-100,100,0
160FORT=0TO 1:PROCpanel:RESTORE:NEXT
170FORT=188TO572STEP128:PROCbox:NEXT
180T=1052:PROCbox
190VDU24,156;908;1127;948;:CLG:VDU26
200COLOUR131:COLOUR1:PRINTTAB(20,27);" Danger Dog "
210COLOUR128:PRINTTAB(9,9)"GAME BY MATT EASTMOND"
220:
230RESTORE490:C%=128
240REPEATREAD D%,E%,F%,G%,H%,I%,J%,K%
250IFD%<>-1VDU23C%D%E%F%G%H%I%J%K%
260C%=C%+1:UNTIL D%=-1
270VDU17,3,31,33,27,219,220,10,8,8,221,222,31,0,10
280:
290E%=M%:GOTO1150
300:
310DEF PROCpanel
320RESTORE 1120
330REPEAT:READ A%,B%,C%,D%,E%,F%,G%
340GCOL0,G%:MOVEA%,B%:MOVEC%,D%
350PLOT85,E%,F%:UNTIL A%=-1
360GCOL0,0:REPEAT:READ A%,X%,Y%
370IF A%=0 DRAW X%,Y% ELSEMOVE X%,Y%
380UNTIL A%=2
390IFT=0FORY=0TO24:VDU31,0,0,11:NEXT
400GCOL0,2:MOVE0,848:DRAW1280,848:MOVE0,208:DRAW1280,208
410ENDPROC
420:
430DEF PROCbox
440GCOL0,131:VDU24,T-24;92;T+64;164;:CLG:VDU26:GCOL0,0:MOVE T,156:DRAW T-24,164:DRAW T-24,92:DRAW T,92:MOVE T-24,164:DRAW T+64,164:DRAW T+64,156:GCOL0,128:VDU24,T;92;T+64;156;:CLG
450ENDPROC
460:
470REPORT:PRINT" at line ";ERL:END
480:
490DATA0,15,63,126,124,252,206,191
500DATA0,128,192,224,96,176,48,224
510DATA207,249,249,248,124,127,63,15
520DATA254,253,223,192,0,192,224,128
530DATA8,28,38,93,218,119,9,18
540DATA34,68,8,144,64,129,38,96
550DATA0,33,194,8,16,34,68,8
560DATA208,96,76,146,32,72,40,16
570DATA254,255,255,255,255,255,231,64
580DATA159,189,191,0,251,251,251,0
590DATA127,127,125,0,251,251,243,0
600DATA238,239,239,0,253,253,249,0
610DATA239,239,207,0,249,253,253,0
620DATA0,1,7,8,19,24,9,6
630DATA0,192,32,96,32,16,16,224
640DATA1,57,125,255,237,65,1,3
650DATA134,15,159,182,248,128,192,224
660DATA28,8,28,8,28,28,28,62
670DATA62,121,121,50,28,0,0,0
680DATA0,63,32,32,32,35,32,63
690DATA0,252,28,84,220,212,28,252
700DATA15,1,31,32,74,149,128,255
710DATA240,128,248,4,170,85,1,255
720DATA0,63,96,112,111,104,105,104
730DATA0,252,6,10,242,114,242,50
740DATA104,104,119,104,95,63,0,0
750DATA242,114,242,10,254,252,0,0
760DATA0,0,0,0,3,15,14,12
770DATA0,0,12,124,252,140,12,12
780DATA12,12,12,60,124,120,0,0
790DATA12,60,124,120,0,0,0,0
800DATA0,0,0,0,0,0,0,0
810DATA31,54,54,123,121,125,125,59
820DATA0,128,124,251,223,224,254,0
830DATA7,5,13,14,15,7,3,3
840DATA128,192,192,224,224,192,0,224
850DATA0,1,62,223,251,7,127,0
860DATA248,108,108,222,158,190,190,220
870DATA1,3,3,7,7,3,0,7
880DATA224,160,176,112,240,224,192,192
890DATA0,127,127,0,0,0,0,0
900DATA56,84,219,45,255,251,127,255
910DATA0,96,219,187,215,237,251,255
920DATA124,235,255,239,255,255,221,255
930DATA0,224,252,251,191,254,251,255
940DATA24,0,24,24,24,60,126,126
950DATA255,252,227,28,227,31,255,126
960DATA17,19,31,14,4,4,4,31
970DATA112,127,127,127,127,127,112,0
980DATA24,28,254,255,254,28,24,0
990DATA15,0,31,32,31,0,15,16
1000DATA240,8,240,0,252,2,252,0
1010DATA16,56,124,254,56,56,56,0
1020DATA0,0,0,0,7,31,60,60
1030DATA10,64,9,20,240,248,60,220
1040DATA124,124,124,60,60,31,7,0
1050DATA222,62,222,156,28,248,224,0
1060DATA0,1,3,7,6,13,12,7
1070DATA0,240,252,126,62,63,115,253
1080DATA127,191,251,3,0,3,7,1
1090DATA243,159,159,31,62,254,252,240
1100DATA24,24,24,24,24,24,24,0
1110DATA-1,0,0,0,0,0,0,0
1120DATA 128,888,128,968,1152,888,3,128,968,1152,968,1152,888,3,128,992,128,864,32,928,1,1152,992,1152,864,1248,928,1,-1,0,0,0,0,0,0,1,128,968,0,144,956,0,1136,956,0,1152,972,1,1136,956,0,1136,900,0,1152,888,1,1136,900
1130DATA 0,144,900,0,128,888,1,144,900,0,144,956,2,0,0
1140======================================================
1150ON ERROR GOTO 2990
1160DIM b%48,A$(3),J%(10),X%(3),Y%(3),A%(3),Z%(3)
1170PROCstart:REPEAT
1180PROCvars:SOUND1,2,101,6
1190PROCscreen:TT%=TIME:REPEAT:*FX21
1200REPEATUNTILTIME>TT%:TT%=TIME+10:PROCsprt
1210IFINKEY-74IF F%=0PROCset
1220IFINKEY-17PROCq(33,27):*FX210,1
1230IFINKEY-82PROCc(33,27,&9B):*FX210
1240Z%=Z%+1:IF Z%=4Z%=0:IF s%>19PROCg
1250IF F% PROCfire
1260PROCg:IFX%>37ANDC%=&A0 ORX%<1ANDC%>&A0 ORY%=23ORY%=6PROCnew
1270UNTIL W%<176 OR X%=6AND Y%=19AND s%=1AND p%=100
1280IF W%<176 PROCdie ELSE PROCend
1290UNTIL FALSE
1300:
1310DEFPROCstart:q%=32
1320red%=&111:grn%=&211:cyn%=&311
1330A$(0)=CHR$17+CHR$1+CHR$176+CHR$177
1340A$(1)=CHR$17+CHR$1+CHR$176+CHR$177+CHR$10+CHR$8+CHR$8+CHR$176+CHR$177
1350A$(2)=CHR$17+CHR$2+CHR$178+CHR$179+CHR$10+CHR$8+CHR$8+CHR$178+CHR$179
1360A$(3)=CHR$17+CHR$1+CHR$181+CHR$182+CHR$10+CHR$8+CHR$8+CHR$183+CHR$184
1370hp%=0:ENDPROC
1380
1390DEFPROCvars
1400FORT=0TO3:Z%(T)=0:NEXT:GCOL0,1
1410FORW%=192 TO1088STEP16:SOUND0,15,4,1
1420MOVEW%,916:DRAWW%,940:IF W%>300 GCOL0,2
1430NEXT:PRINTTAB(0,30)SPC39;
1440S%=9:Z%=0:s%=1:X%=8:Y%=11
1450J%=0:C%=&A0:p%=0:x%=7
1460VDUcyn%;31x%30&B4:RESTORE3010
1470FORT=0TO9:READ J%(T):NEXT
1480FORT=1TO21:b%?T=1:NEXT:PROCextra
1490COLOUR3:PROCtyp("PRESS SPACE",14,14)
1500REPEATUNTILGET=32:ENDPROC
1510
1520DEFPROCextra:LOCALA:FORT=6TO18STEP4:PROCq(T,27)
1530IF Z%(A)=1 PRINTTAB(T,27)A$(A)
1540A=A+1:NEXT:PROCw:COLOUR2:ENDPROC
1550
1560DEFPROCtyp(A$,x%,y%)LOCALA%,K%,N%,X%,Y%:X%=L%:Y%=0:K%=&9F:A%=10:FORN%=1TOLENA$:?L%=ASCMID$(A$,N%):CALL&FFF1:VDU23&9F,0L%?1L%?3L%?4L%?5L%?7L%?8,0,31x%+N%-1y%&9F:NEXT:ENDPROC
1570
1580DEFPROCscreen
1590VDU19,2,2;0;19,3,6;0;19,1,1;0;28,0,24,39,6,12,26
1600IF s%>14 VDU19,1,5;0;19,3,4;0;
1610RESTORE 3020:IF s%>1 FORT=1TO s%-1:READ A$:NEXT
1620READ A$:D%=ASCMID$(A$,1)-46:c%=ASCMID$(A$,2)-46:c1%=ASCMID$(A$,3)-46:IF b%?s%=1VDU31c%c1%grn%;&AD,10,8&AE&AF
1630FORP%=4 TO LENA$STEP4
1640X=ASCMID$(A$,P%)-46:Y=ASCMID$(A$,P%+1)-46
1650X1=ASCMID$(A$,P%+2)-46:K=ASCMID$(A$,P%+3)-46
1660IFK=1VDUgrn%;:FORA%=X TO X1 STEP4:VDU31A%Y&A9&AA&AB&AC:NEXT
1670IFK=2PROCa(X,&93,3)
1680IFK=3VDUred%;:FORA%=X TO X1 STEP2:PROCc(A%,Y,&89):NEXT
1690IFK=4PROCa(Y,&89,1)
1700IFK=5FORA%=X TO X1 STEP3:VDUred%;31A%Y&8D&8E,10,8,8,grn%;&8F&90:NEXT
1710IFK=6VDU31,X,Y,cyn%;&91,9&91,10,8,8,8&92,9&92
1720IFK=7PROCa(X,&97,3)
1730IFK=8PRINTTAB(X,Y)A$(X1)
1740NEXT
1750IF s%=1 COLOUR2:PROCtyp("TELEPORT",3,17)
1760F%=0:FORT=0TO3:X%(T)=99:NEXT:IF D%>0 RESTORE 1790:FORT=1TO D%:READ X%(T-1),Y%(T-1):NEXT
1770ENDPROC
1780
1790DATA 18,14,30,10,20,13,22,10
1800
1810DEFPROCsprt:A%=X%:B%=Y%
1820IFJ%(J%)>0PROCs:ELSEIFJ%(J%)<0PROCu
1830IFS%=2IFJ%(J%)IFRND(2)=1J%=J%-1
1840J%=J%+1:IFJ%=10J%=0:PROCchek
1850IFINKEY-98PROCr:ELSEIFINKEY-67PROCl
1860COLOUR3:PROCq(A%,B%):PROCc(X%,Y%,C%)
1870IFINKEY-122IFF%=0IFx%<16VDU31,x%,30,32:x%=x%+4:PROCw:ENDPROC
1880IFINKEY-26IFF%=0IFx%>10VDU31,x%,30,32:x%=x%-4:PROCw
1890ENDPROC
1900
1910DEFPROCr:VDU31X%-1Y%:CALLE%:VDU10:IF?L%<>q%PROCd:ENDPROC
1920CALLE%:IF?L%<>q%PROCd:ENDPROC
1930X%=X%-1:C%=&A4:ENDPROC
1940
1950DEFPROCu:VDU31X%Y%-1:CALLE%:VDU9:IF?L%<>q%J%=6:PROCd:ENDPROC
1960CALLE%:IF ?L%<>q% J%=6:PROCd:ENDPROC
1970Y%=Y%-1:ENDPROC
1980
1990DEFPROCs:VDU31X%Y%+2:CALLE%:VDU9:IF?L%<>q%J%=0:SOUND0,13,3,1:PROCd:ENDPROC
2000CALLE%:IF?L%<>q%J%=0:SOUND0,13,3,1:PROCd:ENDPROC
2010Y%=Y%+1:ENDPROC
2020
2030DEFPROCl:VDU31X%+2Y%:CALLE%:VDU10:IF?L%<>q%PROCd:ENDPROC
2040CALLE%:IF?L%<>q%PROCd:ENDPROC
2050X%=X%+1:C%=&A0:ENDPROC
2060
2070DEFPROCd:IF?L%>184AND?L%<189OR?L%>222AND?L%<227OR?L%=191OR?L%>&8C AND?L%<&91OR?L%>&92 AND?L%<&97SOUND0,4,4,1:PROClife
2080IF?L%>172IF?L%<176PROCq(c%,c1%):COLOUR2:SOUND3,3,200,1:PROCp:b%?s%=0
2090IF?L%<176ELSEIF?L%>177ELSEIFs%>1PROCt(1)ELSEPROCt(0)
2100IF?L%>177IF?L%<180PROCt(2)ELSEIF?L%>180IF?L%<185PROCt(3)
2110ENDPROC
2120
2130DEFPROCt(Q%):IF Z%(Q%)ENDPROC:ELSEZ%(Q%)=1:SOUND1,3,100,1:PROCextra:PROCp:ENDPROC
2140
2150DEFPROCchek:J%=0:VDU31X%Y%+2:CALLE%:VDU9:IF ?L%<>q% SOUND0,13,3,1:PROCd:ENDPROC
2160CALLE%:IF ?L%<>q% SOUND0,13,3,1:PROCd:ENDPROC
2170J%=6:ENDPROC
2180
2190DEFPROCg:IFX%(Z%)=99ENDPROC
2200I%=X%(Z%):K%=Y%(Z%):U%=I%:V%=K%
2210IF X%(Z%)<X% PROCgr:ELSEIF X%(Z%)>X% PROCgl
2220IF Y%(Z%)>Y% PROCgu:ELSEIF Y%(Z%)<Y% PROCgd
2230PROCq(I%,K%):COLOUR2:IFI%>U%PROCc(U%,V%,&B9)ELSEPROCc(U%,V%,&80)
2240X%(Z%)=U%:Y%(Z%)=V%:ENDPROC
2250
2260DEFPROCgl:VDU31U%-1V%:CALLE%:IF ?L%<>q% ENDPROC
2270VDU10:CALLE%:IF ?L%=q% U%=U%-1
2280ENDPROC
2290
2300DEFPROCgr:VDU31U%+2V%:CALLE%:VDU10:IF ?L%<>q% ENDPROC
2310CALLE%:IF ?L%=q% U%=U%+1
2320ENDPROC
2330
2340DEFPROCgu:VDU31U%V%-1:CALLE%:VDU9:IF ?L%<>q% ENDPROC
2350CALLE%:IF ?L%=q% V%=V%-1
2360ENDPROC
2370
2380DEFPROCgd:VDU31U%V%+2:CALLE%:VDU9:IF ?L%<>q% ENDPROC
2390CALLE%:IF ?L%=q% V%=V%+1
2400ENDPROC
2410
2420DEFPROCw:VDUcyn%;31x%30&B4:S%=9:IF Z%((x%+1)/4-2)=0 ENDPROC
2430S%=(x%+1)/4-2:SOUND2,1,200,1:ENDPROC
2440
2450DEFPROCfire
2460VDU31F%H%q%:IFS%=1VDU10,8q%
2470VDU31F%+G%,H%:CALLE%
2480IF ?L%<>q% PROCex:ENDPROC
2490IF S%=1 VDU10:CALLE%:IF ?L%<>q% PROCex:ENDPROC
2500F%=F%+G%:VDUgrn%;31F%H%:IF S%=4 VDU&BD ELSE VDU&A8
2510IF S%=1 VDU10,8&A8
2520IF F%>37ORF%<2VDU31F%H%q%:F%=0:IF S%=1 VDU10,8q%
2530ENDPROC
2540
2550DEFPROCex:F%=F%+G%
2560FORT=0TO3:IF X%(T)<>99 IF F%>X%(T)-2 IF F%<X%(T)+3 IF H%=Y%(T) OR H%=Y%(T)+1 PROCb
2570NEXT:F%=0:ENDPROC
2580
2590DEFPROCset:IF X%>35 IF C%=&A0 ENDPROC
2600IF S%=3 IF Z%(3)<9 FORT=0TO3:PROCb:NEXT:Z%(3)=9:PROCextra
2610IF S%>1 ENDPROC
2620H%=Y%:IF C%=&A0 G%=2:F%=X%+2 ELSE G%=-2:F%=X%-1
2630VDU31F%H%:CALLE%:VDU10:IF?L%<>q%PROCex:ENDPROC
2640IFS%=1CALLE%:IF?L%<>q%PROCex:ENDPROC
2650IFS%=0SOUND2,14,110,1ELSE SOUND2,14,200,1
2660ENDPROC
2670
2680DEFPROCb:IF X%(T)=99 ENDPROC
2690SOUND0,4,6,1:COLOUR1:PROCc(X%(T),Y%(T),&84):PROCq(X%(T),Y%(T)):IF s%<19 X%(T)=99:ENDPROC
2700
2710DEFPROClife:GCOL0,0:MOVE W%,916:DRAW W%,940:W%=W%-16:ENDPROC
2720
2730DEFPROCp:p%=p%+4:PROCtyp(STR$p%+"%",33,30):ENDPROC
2740
2750DEFPROCnew:IF X%=38 s%=s%+1:X%=1:ELSEIF X%=0 s%=s%-1:X%=37
2760IF Y%=6 s%=s%-7:Y%=22:ELSEIF Y%=23 s%=s%+7:Y%=7:J%=6
2770PROCscreen:ENDPROC
2780
2790DEFPROCend:SOUND0,2,4,9
2800FORY=0TO7:VDUcyn%;:PROCc(6,19,&A0):PROCwait(10-Y)
2810PROCwait(10-Y):VDUred%;:PROCc(6,19,&A4):NEXT
2820PROCq(6,19):VDU28,0,24,39,6,12,26:SOUND1,4,200,1
2830PROCtyp("YOU HAVE ESCAPED",12,13):hp%=100:ENDPROC
2840
2850DEFPROCa(I%,B%,K%)VDU17K%:FORA%=I%TO X1 STEP2:IFI%=X VDU31A%Y ELSEVDU31X,A%
2860VDUB%,B%+1,10,8,8,B%+2,B%+3:NEXT:ENDPROC
2870
2880DEFPROCc(X%,Y%,B%)VDU31X%Y%B%B%+1,10,8,8B%+2B%+3:ENDPROC
2890
2900DEFPROCq(X%,Y%)VDU31X%Y%q%q%10,8,8q%q%:ENDPROC
2910
2920DEFPROCwait(T%)T%=TIME+T%:REPEATUNTILTIME>T%:ENDPROC
2930
2940DEFPROCdie
2950FORT=-1TO-15STEP-1:SOUND0,T,6,1:NEXT:COLOUR1:PROCc(X%,Y%,&84):SOUND0,4,6,1:PROCtyp("GAME OVER",15,13)
2960VDU28,0,24,39,6,12,26:PROCtyp("BEST %AGE:"+STR$(hp%),14,11):PROCtyp("YOUR %AGE:"+STR$(p%),14,9):IF p%>hp% hp%=p%
2970ENDPROC
2980
2990MODE7:REPORT:PRINT" at line ";ERL:END
3000
3010DATA -2,-1,-1,-1,0,0,1,1,1,2
3020DATA .9;.CH1.EU10=?1CAH1.<61L=S1.4U1G@G3D6U1:6.4.5C22:.6,2F<.EU12>F1.6U1.4U1D8@2N@U1IC.3M>.32>@2:<>0,04>.E416FU/.@41>DU3A@A1L@U1.6U17D06TBT1,20D.FU/.@D2.4U1A6.4
3030DATA 0HC.F6/6EU1DAE2F?C2R?C2LCL3.4U1,2PC.EU12EQ/.?C28CL3.4U1T?E2A6.4,2R=.?61.E61.4U1T5E2B?R1.?E2H=N0,229.4U1.5E20EU10CU3N?P1D;F12;<1
3040 DATA 2@6.4U1.CU1B682D<C2F<L1@8@1>A>3FAJ0,2F9.C61.EB1.4U1HEU1B?C2D?J1D;U1F6F43A63,259.E<1.4U1.;8185;2<CB1BAH1H?P1P=U1J=N0B?E38C/6,2B=.=81.?81.4U1B?B1J=U1J?U1A6.4
3050DATA 2C=.=E22EU12EU/0=E2.4U1F5=2>?F1,.R:.EU1.4618:<0T4D264>28<>18>>1@CS1BAS0R<R1,01C.5C2.EU54CH34;C2:?C2.4U5CAC2,11C.445.E4546<54C<5<8B5<AB5D:U5D?U56A16
3060DATA 1N=.?U5.:@5B482.4B1H482H4U1J:U5D=D0,2F;.EU5.DU/.4U5.?C2.6:2B6.4:=>5B=F50BF3
3070DATA 2BB.DU52@P56>L56>L/7<<3,16@.DU5.4U56BU5>@U5F>U5N<U5A6.4@>D0,2F@1BQ30DP/R6D2.<D2.ES5.4S50<81H>R1
!� > <BasicSave$Dir>.!RunImage
� Danger Dog Listing I
� by Matthew Eastmond
(� (c) The Micro User
2
� � �dVA
<'�1:�23,1;0;0;0;0;19,2,2;0;19,3,6;0;
F� L%40,M%128:P%=M%
PH[OPT2:STMFD r13!,{r14}:MOV r0,#135:SWI 6:STR r1,L%:LDMFD r13!,{pc}:]
Z#�1,1,0,0,0,0,0,0,0,0,0,-9,80,80
d'�2,2,1,-1,1,2,4,2,10,-1,0,-1,106,70
n&�3,1,0,0,0,1,1,1,60,-4,-1,-1,99,20
x'�4,1,0,0,0,1,1,1,60,-8,-4,-5,126,60
�)�13,1,0,0,0,0,0,0,126,-8,-1,-8,126,50
�,�14,130,0,3,-2,2,3,9,45,-30,-5,-6,105,40
�.�15,0,0,0,0,0,0,0,100,-100,-100,-100,100,0
��T=0� 1:�panel:�:�
��T=188�572�128:�box:�
�T=1052:�box
� �24,156;908;1127;948;:�:�26
�#�131:�1:�20,27);" Danger Dog "
�&�128:�9,9)"GAME BY MATT EASTMOND"
�:
���djA:C%=128
� �� D%,E%,F%,G%,H%,I%,J%,K%
� �D%<>-1�23C%D%E%F%G%H%I%J%K%
C%=C%+1:� D%=-1
1�17,3,31,33,27,219,220,10,8,8,221,222,31,0,10
:
"E%=M%:�D~D
,:
6 � �panel
@
� �D`D
J �:� A%,B%,C%,D%,E%,F%,G%
T�0,G%:�A%,B%:�C%,D%
^�85,E%,F%:� A%=-1
h�0,0:�:� A%,X%,Y%
r� A%=0 � X%,Y% �� X%,Y%
|
� A%=2
� �T=0�Y=0�24:�31,0,0,11:�
�*�0,2:�0,848:�1280,848:�0,208:�1280,208
��
�:
�
� �box
���0,131:�24,T-24;92;T+64;164;:�:�26:�0,0:� T,156:� T-24,164:� T-24,92:� T,92:� T-24,164:� T+64,164:� T+64,156:�0,128:�24,T;92;T+64;156;:�
��
�:
��:�" at line ";�:�
�:
� �0,15,63,126,124,252,206,191
� �0,128,192,224,96,176,48,224
�"�207,249,249,248,124,127,63,15
"�254,253,223,192,0,192,224,128
�8,28,38,93,218,119,9,18
�34,68,8,144,64,129,38,96
&�0,33,194,8,16,34,68,8
0 �208,96,76,146,32,72,40,16
:#�254,255,255,255,255,255,231,64
D �159,189,191,0,251,251,251,0
N �127,127,125,0,251,251,243,0
X �238,239,239,0,253,253,249,0
b �239,239,207,0,249,253,253,0
l�0,1,7,8,19,24,9,6
v �0,192,32,96,32,16,16,224
� �1,57,125,255,237,65,1,3
�#�134,15,159,182,248,128,192,224
��28,8,28,8,28,28,28,62
��62,121,121,50,28,0,0,0
��0,63,32,32,32,35,32,63
� �0,252,28,84,220,212,28,252
� �15,1,31,32,74,149,128,255
� �240,128,248,4,170,85,1,255
� �0,63,96,112,111,104,105,104
� �0,252,6,10,242,114,242,50
� �104,104,119,104,95,63,0,0
� �242,114,242,10,254,252,0,0
��0,0,0,0,3,15,14,12
�0,0,12,124,252,140,12,12
�12,12,12,60,124,120,0,0
�12,60,124,120,0,0,0,0
�0,0,0,0,0,0,0,0
* �31,54,54,123,121,125,125,59
4 �0,128,124,251,223,224,254,0
>�7,5,13,14,15,7,3,3
H"�128,192,192,224,224,192,0,224
R�0,1,62,223,251,7,127,0
\$�248,108,108,222,158,190,190,220
f�1,3,3,7,7,3,0,7
p$�224,160,176,112,240,224,192,192
z�0,127,127,0,0,0,0,0
�!�56,84,219,45,255,251,127,255
�!�0,96,219,187,215,237,251,255
�$�124,235,255,239,255,255,221,255
�"�0,224,252,251,191,254,251,255
� �24,0,24,24,24,60,126,126
�"�255,252,227,28,227,31,255,126
��17,19,31,14,4,4,4,31
�"�112,127,127,127,127,127,112,0
� �24,28,254,255,254,28,24,0
��15,0,31,32,31,0,15,16
� �240,8,240,0,252,2,252,0
� �16,56,124,254,56,56,56,0
��0,0,0,0,7,31,60,60
�10,64,9,20,240,248,60,220
�124,124,124,60,60,31,7,0
�222,62,222,156,28,248,224,0
$�0,1,3,7,6,13,12,7
. �0,240,252,126,62,63,115,253
8�127,191,251,3,0,3,7,1
B"�243,159,159,31,62,254,252,240
L�24,24,24,24,24,24,24,0
V�-1,0,0,0,0,0,0,0
`�� 128,888,128,968,1152,888,3,128,968,1152,968,1152,888,3,128,992,128,864,32,928,1,1152,992,1152,864,1248,928,1,-1,0,0,0,0,0,0,1,128,968,0,144,956,0,1136,956,0,1152,972,1,1136,956,0,1136,900,0,1152,888,1,1136,900
j3� 0,144,900,0,128,888,1,144,900,0,144,956,2,0,0
t:======================================================
~� � � �tnK
�/� b%48,A$(3),J%(10),X%(3),Y%(3),A%(3),Z%(3)
� �start:�
��vars:�1,2,101,6
��screen:TT%=�:�:*FX21
����>TT%:TT%=�+10:�sprt
��-74� F%=0�set
��-17�q(33,27):*FX210,1
� �-82�c(33,27,&9B):*FX210
� Z%=Z%+1:� Z%=4Z%=0:� s%>19�g
�� F% �fire
�1�g:�X%>37�C%=&A0 �X%<1�C%>&A0 �Y%=23�Y%=6�new
�(� W%<176 � X%=6� Y%=19� s%=1� p%=100
� W%<176 �die � �end
� �
:
��start:q%=32
(!red%=&111:grn%=&211:cyn%=&311
2A$(0)=�17+�1+�176+�177
<.A$(1)=�17+�1+�176+�177+�10+�8+�8+�176+�177
F.A$(2)=�17+�2+�178+�179+�10+�8+�8+�178+�179
P.A$(3)=�17+�1+�181+�182+�10+�8+�8+�183+�184
Z hp%=0:�
d
n
��vars
x�T=0�3:Z%(T)=0:�:�0,1
� �W%=192 �1088�16:�0,15,4,1
�!�W%,916:�W%,940:� W%>300 �0,2
��:�0,30)�39;
� S%=9:Z%=0:s%=1:X%=8:Y%=11
�J%=0:C%=&A0:p%=0:x%=7
��cyn%;31x%30&B4:��dBK
��T=0�9:� J%(T):�
��T=1�21:b%?T=1:�:�extra
�!�3:�typ("PRESS SPACE",14,14)
� ���=32:�
�
�!��extra:�A:�T=6�18�4:�q(T,27)
�� Z%(A)=1 �T,27)A$(A)
A=A+1:�:�w:�2:�
���typ(A$,x%,y%)�A%,K%,N%,X%,Y%:X%=L%:Y%=0:K%=&9F:A%=10:�N%=1��A$:?L%=��A$,N%):�&FFF1:�23&9F,0L%?1L%?3L%?4L%?5L%?7L%?8,0,31x%+N%-1y%&9F:�:�
"
, ��screen
62�19,2,2;0;19,3,6;0;19,1,1;0;28,0,24,39,6,12,26
@ � s%>14 �19,1,5;0;19,3,4;0;
J#� �dLK:� s%>1 �T=1� s%-1:� A$:�
TX� A$:D%=��A$,1)-46:c%=��A$,2)-46:c1%=��A$,3)-46:� b%?s%=1�31c%c1%grn%;&AD,10,8&AE&AF
^�P%=4 � �A$�4
h!X=��A$,P%)-46:Y=��A$,P%+1)-46
r$X1=��A$,P%+2)-46:K=��A$,P%+3)-46
|1�K=1�grn%;:�A%=X � X1 �4:�31A%Y&A9&AA&AB&AC:�
��K=2�a(X,&93,3)
�+�K=3�red%;:�A%=X � X1 �2:�c(A%,Y,&89):�
��K=4�a(Y,&89,1)
�<�K=5�A%=X � X1 �3:�red%;31A%Y&8D&8E,10,8,8,grn%;&8F&90:�
�.�K=6�31,X,Y,cyn%;&91,9&91,10,8,8,8&92,9&92
��K=7�a(X,&97,3)
��K=8�X,Y)A$(X1)
��
�#� s%=1 �2:�typ("TELEPORT",3,17)
�EF%=0:�T=0�3:X%(T)=99:�:� D%>0 � �d~F:�T=1� D%:� X%(T-1),Y%(T-1):�
��
�
� � 18,14,30,10,20,13,22,10
��sprt:A%=X%:B%=Y%
�J%(J%)>0�s:��J%(J%)<0�u
& �S%=2�J%(J%)�(2)=1J%=J%-1
0 J%=J%+1:�J%=10J%=0:�chek
:�-98�r:��-67�l
D �3:�q(A%,B%):�c(X%,Y%,C%)
N.�-122�F%=0�x%<16�31,x%,30,32:x%=x%+4:�w:�
X+�-26�F%=0�x%>10�31,x%,30,32:x%=x%-4:�w
b�
l
v&��r:�31X%-1Y%:�E%:�10:�?L%<>q%�d:�
��E%:�?L%<>q%�d:�
�X%=X%-1:C%=&A4:�
�
�*��u:�31X%Y%-1:�E%:�9:�?L%<>q%J%=6:�d:�
��E%:� ?L%<>q% J%=6:�d:�
�
Y%=Y%-1:�
�
�4��s:�31X%Y%+2:�E%:�9:�?L%<>q%J%=0:�0,13,3,1:�d:�
�#�E%:�?L%<>q%J%=0:�0,13,3,1:�d:�
�
Y%=Y%+1:�
�
�&��l:�31X%+2Y%:�E%:�10:�?L%<>q%�d:�
��E%:�?L%<>q%�d:�
X%=X%+1:C%=&A0:�
`��d:�?L%>184�?L%<189�?L%>222�?L%<227�?L%=191�?L%>&8C �?L%<&91�?L%>&92 �?L%<&97�0,4,4,1:�life
7�?L%>172�?L%<176�q(c%,c1%):�2:�3,3,200,1:�p:b%?s%=0
*&�?L%<176��?L%>177��s%>1�t(1)��t(0)
4/�?L%>177�?L%<180�t(2)��?L%>180�?L%<185�t(3)
>�
H
R6��t(Q%):� Z%(Q%)�:�Z%(Q%)=1:�1,3,100,1:�extra:�p:�
\
f9��chek:J%=0:�31X%Y%+2:�E%:�9:� ?L%<>q% �0,13,3,1:�d:�
p �E%:� ?L%<>q% �0,13,3,1:�d:�
z
J%=6:�
�
���g:�X%(Z%)=99�
�#I%=X%(Z%):K%=Y%(Z%):U%=I%:V%=K%
�$� X%(Z%)<X% �gr:�� X%(Z%)>X% �gl
�$� Y%(Z%)>Y% �gu:�� Y%(Z%)<Y% �gd
�2�q(I%,K%):�2:�I%>U%�c(U%,V%,&B9)��c(U%,V%,&80)
�X%(Z%)=U%:Y%(Z%)=V%:�
�
�"��gl:�31U%-1V%:�E%:� ?L%<>q% �
� �10:�E%:� ?L%=q% U%=U%-1
��
�
�&��gr:�31U%+2V%:�E%:�10:� ?L%<>q% �
�E%:� ?L%=q% U%=U%+1
�
$%��gu:�31U%V%-1:�E%:�9:� ?L%<>q% �
.�E%:� ?L%=q% V%=V%-1
8�
B
L%��gd:�31U%V%+2:�E%:�9:� ?L%<>q% �
V�E%:� ?L%=q% V%=V%+1
`�
j
t1��w:�cyn%;31x%30&B4:S%=9:� Z%((x%+1)/4-2)=0 �
~ S%=(x%+1)/4-2:�2,1,200,1:�
�
�
��fire
��31F%H%q%:�S%=1�10,8q%
��31F%+G%,H%:�E%
�� ?L%<>q% �ex:�
�"� S%=1 �10:�E%:� ?L%<>q% �ex:�
�,F%=F%+G%:�grn%;31F%H%:� S%=4 �&BD � �&A8
�� S%=1 �10,8&A8
�-� F%>37�F%<2�31F%H%q%:F%=0:� S%=1 �10,8q%
��
�
���ex:F%=F%+G%
K�T=0�3:� X%(T)<>99 � F%>X%(T)-2 � F%<X%(T)+3 � H%=Y%(T) � H%=Y%(T)+1 �b
�:F%=0:�
��set:� X%>35 � C%=&A0 �
(/� S%=3 � Z%(3)<9 �T=0�3:�b:�:Z%(3)=9:�extra
2 � S%>1 �
</H%=Y%:� C%=&A0 G%=2:F%=X%+2 � G%=-2:F%=X%-1
F!�31F%H%:�E%:�10:�?L%<>q%�ex:�
P�S%=1�E%:�?L%<>q%�ex:�
Z!�S%=0�2,14,110,1� �2,14,200,1
d�
n
x��b:� X%(T)=99 �
�F�0,4,6,1:�1:�c(X%(T),Y%(T),&84):�q(X%(T),Y%(T)):� s%<19 X%(T)=99:�
�
�,��life:�0,0:� W%,916:� W%,940:W%=W%-16:�
�
�%��p:p%=p%+4:�typ(�p%+"%",33,30):�
�
�4��new:� X%=38 s%=s%+1:X%=1:�� X%=0 s%=s%-1:X%=37
�3� Y%=6 s%=s%-7:Y%=22:�� Y%=23 s%=s%+7:Y%=7:J%=6
�
�screen:�
�
���end:�0,2,4,9
�*�Y=0�7:�cyn%;:�c(6,19,&A0):�wait(10-Y)
�%�wait(10-Y):�red%;:�c(6,19,&A4):�
+�q(6,19):�28,0,24,39,6,12,26:�1,4,200,1
,�typ("YOU HAVE ESCAPED",12,13):hp%=100:�
":��a(I%,B%,K%)�17K%:�A%=I%� X1 �2:�I%=X �31A%Y ��31X,A%
,!�B%,B%+1,10,8,8,B%+2,B%+3:�:�
6
@/��c(X%,Y%,B%)�31X%Y%B%B%+1,10,8,8B%+2B%+3:�
J
T%��q(X%,Y%)�31X%Y%q%q%10,8,8q%q%:�
^
h ��wait(T%)T%=�+T%:���>T%:�
r
| ��die
�N�T=-1�-15�-1:�0,T,6,1:�:�1:�c(X%,Y%,&84):�0,4,6,1:�typ("GAME OVER",15,13)
�e�28,0,24,39,6,12,26:�typ("BEST %AGE:"+�(hp%),14,11):�typ("YOUR %AGE:"+�(p%),14,9):� p%>hp% hp%=p%
��
�
��7:�:�" at line ";�:�
�
� � -2,-1,-1,-1,0,0,1,1,1,2
̡� .9;.CH1.EU10=?1CAH1.<61L=S1.4U1G@G3D6U1:6.4.5C22:.6,2F<.EU12>F1.6U1.4U1D8@2N@U1IC.3M>.32>@2:<>0,04>.E416FU/.@41>DU3A@A1L@U1.6U17D06TBT1,20D.FU/.@D2.4U1A6.4
օ� 0HC.F6/6EU1DAE2F?C2R?C2LCL3.4U1,2PC.EU12EQ/.?C28CL3.4U1T?E2A6.4,2R=.?61.E61.4U1T5E2B?R1.?E2H=N0,229.4U1.5E20EU10CU3N?P1D;F12;<1
� � 2@6.4U1.CU1B682D<C2F<L1@8@1>A>3FAJ0,2F9.C61.EB1.4U1HEU1B?C2D?J1D;U1F6F43A63,259.E<1.4U1.;8185;2<CB1BAH1H?P1P=U1J=N0B?E38C/6,2B=.=81.?81.4U1B?B1J=U1J?U1A6.4
�� 2C=.=E22EU12EU/0=E2.4U1F5=2>?F1,.R:.EU1.4618:<0T4D264>28<>18>>1@CS1BAS0R<R1,01C.5C2.EU54CH34;C2:?C2.4U5CAC2,11C.445.E4546<54C<5<8B5<AB5D:U5D?U56A16
�Q� 1N=.?U5.:@5B482.4B1H482H4U1J:U5D=D0,2F;.EU5.DU/.4U5.?C2.6:2B6.4:=>5B=F50BF3
�e� 2BB.DU52@P56>L56>L/7<<3,16@.DU5.4U56BU5>@U5F>U5N<U5A6.4@>D0,2F@1BQ30DP/R6D2.<D2.ES5.4S50<81H>R1
� 00000000 0d 00 0a 21 f4 20 3e 20 3c 42 61 73 69 63 53 61 |...!. > <BasicSa|
00000010 76 65 24 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 |ve$Dir>.!RunImag|
00000020 65 0d 00 14 1a f4 20 44 61 6e 67 65 72 20 44 6f |e..... Danger Do|
00000030 67 20 4c 69 73 74 69 6e 67 20 49 0d 00 1e 19 f4 |g Listing I.....|
00000040 20 62 79 20 4d 61 74 74 68 65 77 20 45 61 73 74 | by Matthew East|
00000050 6d 6f 6e 64 0d 00 28 18 f4 20 28 63 29 20 54 68 |mond..(.. (c) Th|
00000060 65 20 4d 69 63 72 6f 20 55 73 65 72 0d 00 32 0d |e Micro User..2.|
00000070 ee 20 85 20 e5 8d 64 56 41 0d 00 3c 27 eb 31 3a |. . ..dVA..<'.1:|
00000080 ef 32 33 2c 31 3b 30 3b 30 3b 30 3b 30 3b 31 39 |.23,1;0;0;0;0;19|
00000090 2c 32 2c 32 3b 30 3b 31 39 2c 33 2c 36 3b 30 3b |,2,2;0;19,3,6;0;|
000000a0 0d 00 46 16 de 20 4c 25 34 30 2c 4d 25 31 32 38 |..F.. L%40,M%128|
000000b0 3a 50 25 3d 4d 25 0d 00 50 48 5b 4f 50 54 32 3a |:P%=M%..PH[OPT2:|
000000c0 53 54 4d 46 44 20 72 31 33 21 2c 7b 72 31 34 7d |STMFD r13!,{r14}|
000000d0 3a 4d 4f 56 20 72 30 2c 23 31 33 35 3a 53 57 49 |:MOV r0,#135:SWI|
000000e0 20 36 3a 53 54 52 20 72 31 2c 4c 25 3a 4c 44 4d | 6:STR r1,L%:LDM|
000000f0 46 44 20 72 31 33 21 2c 7b 70 63 7d 3a 5d 0d 00 |FD r13!,{pc}:]..|
00000100 5a 23 e2 31 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 |Z#.1,1,0,0,0,0,0|
00000110 2c 30 2c 30 2c 30 2c 30 2c 2d 39 2c 38 30 2c 38 |,0,0,0,0,-9,80,8|
00000120 30 0d 00 64 27 e2 32 2c 32 2c 31 2c 2d 31 2c 31 |0..d'.2,2,1,-1,1|
00000130 2c 32 2c 34 2c 32 2c 31 30 2c 2d 31 2c 30 2c 2d |,2,4,2,10,-1,0,-|
00000140 31 2c 31 30 36 2c 37 30 0d 00 6e 26 e2 33 2c 31 |1,106,70..n&.3,1|
00000150 2c 30 2c 30 2c 30 2c 31 2c 31 2c 31 2c 36 30 2c |,0,0,0,1,1,1,60,|
00000160 2d 34 2c 2d 31 2c 2d 31 2c 39 39 2c 32 30 0d 00 |-4,-1,-1,99,20..|
00000170 78 27 e2 34 2c 31 2c 30 2c 30 2c 30 2c 31 2c 31 |x'.4,1,0,0,0,1,1|
00000180 2c 31 2c 36 30 2c 2d 38 2c 2d 34 2c 2d 35 2c 31 |,1,60,-8,-4,-5,1|
00000190 32 36 2c 36 30 0d 00 82 29 e2 31 33 2c 31 2c 30 |26,60...).13,1,0|
000001a0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d |,0,0,0,0,0,126,-|
000001b0 38 2c 2d 31 2c 2d 38 2c 31 32 36 2c 35 30 0d 00 |8,-1,-8,126,50..|
000001c0 8c 2c e2 31 34 2c 31 33 30 2c 30 2c 33 2c 2d 32 |.,.14,130,0,3,-2|
000001d0 2c 32 2c 33 2c 39 2c 34 35 2c 2d 33 30 2c 2d 35 |,2,3,9,45,-30,-5|
000001e0 2c 2d 36 2c 31 30 35 2c 34 30 0d 00 96 2e e2 31 |,-6,105,40.....1|
000001f0 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |5,0,0,0,0,0,0,0,|
00000200 31 30 30 2c 2d 31 30 30 2c 2d 31 30 30 2c 2d 31 |100,-100,-100,-1|
00000210 30 30 2c 31 30 30 2c 30 0d 00 a0 16 e3 54 3d 30 |00,100,0.....T=0|
00000220 b8 20 31 3a f2 70 61 6e 65 6c 3a f7 3a ed 0d 00 |. 1:.panel:.:...|
00000230 aa 19 e3 54 3d 31 38 38 b8 35 37 32 88 31 32 38 |...T=188.572.128|
00000240 3a f2 62 6f 78 3a ed 0d 00 b4 0f 54 3d 31 30 35 |:.box:.....T=105|
00000250 32 3a f2 62 6f 78 0d 00 be 1f ef 32 34 2c 31 35 |2:.box.....24,15|
00000260 36 3b 39 30 38 3b 31 31 32 37 3b 39 34 38 3b 3a |6;908;1127;948;:|
00000270 da 3a ef 32 36 0d 00 c8 23 fb 31 33 31 3a fb 31 |.:.26...#.131:.1|
00000280 3a f1 8a 32 30 2c 32 37 29 3b 22 20 44 61 6e 67 |:..20,27);" Dang|
00000290 65 72 20 44 6f 67 20 22 0d 00 d2 26 fb 31 32 38 |er Dog "...&.128|
000002a0 3a f1 8a 39 2c 39 29 22 47 41 4d 45 20 42 59 20 |:..9,9)"GAME BY |
000002b0 4d 41 54 54 20 45 41 53 54 4d 4f 4e 44 22 0d 00 |MATT EASTMOND"..|
000002c0 dc 05 3a 0d 00 e6 10 f7 8d 64 6a 41 3a 43 25 3d |..:......djA:C%=|
000002d0 31 32 38 0d 00 f0 1e f5 f3 20 44 25 2c 45 25 2c |128...... D%,E%,|
000002e0 46 25 2c 47 25 2c 48 25 2c 49 25 2c 4a 25 2c 4b |F%,G%,H%,I%,J%,K|
000002f0 25 0d 00 fa 20 e7 44 25 3c 3e 2d 31 ef 32 33 43 |%... .D%<>-1.23C|
00000300 25 44 25 45 25 46 25 47 25 48 25 49 25 4a 25 4b |%D%E%F%G%H%I%J%K|
00000310 25 0d 01 04 13 43 25 3d 43 25 2b 31 3a fd 20 44 |%....C%=C%+1:. D|
00000320 25 3d 2d 31 0d 01 0e 31 ef 31 37 2c 33 2c 33 31 |%=-1...1.17,3,31|
00000330 2c 33 33 2c 32 37 2c 32 31 39 2c 32 32 30 2c 31 |,33,27,219,220,1|
00000340 30 2c 38 2c 38 2c 32 32 31 2c 32 32 32 2c 33 31 |0,8,8,221,222,31|
00000350 2c 30 2c 31 30 0d 01 18 05 3a 0d 01 22 0f 45 25 |,0,10....:..".E%|
00000360 3d 4d 25 3a e5 8d 44 7e 44 0d 01 2c 05 3a 0d 01 |=M%:..D~D..,.:..|
00000370 36 0c dd 20 f2 70 61 6e 65 6c 0d 01 40 0a f7 20 |6.. .panel..@.. |
00000380 8d 44 60 44 0d 01 4a 1c f5 3a f3 20 41 25 2c 42 |.D`D..J..:. A%,B|
00000390 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 25 |%,C%,D%,E%,F%,G%|
000003a0 0d 01 54 17 e6 30 2c 47 25 3a ec 41 25 2c 42 25 |..T..0,G%:.A%,B%|
000003b0 3a ec 43 25 2c 44 25 0d 01 5e 15 f0 38 35 2c 45 |:.C%,D%..^..85,E|
000003c0 25 2c 46 25 3a fd 20 41 25 3d 2d 31 0d 01 68 15 |%,F%:. A%=-1..h.|
000003d0 e6 30 2c 30 3a f5 3a f3 20 41 25 2c 58 25 2c 59 |.0,0:.:. A%,X%,Y|
000003e0 25 0d 01 72 1b e7 20 41 25 3d 30 20 df 20 58 25 |%..r.. A%=0 . X%|
000003f0 2c 59 25 20 8b ec 20 58 25 2c 59 25 0d 01 7c 0a |,Y% .. X%,Y%..|.|
00000400 fd 20 41 25 3d 32 0d 01 86 1c e7 54 3d 30 e3 59 |. A%=2.....T=0.Y|
00000410 3d 30 b8 32 34 3a ef 33 31 2c 30 2c 30 2c 31 31 |=0.24:.31,0,0,11|
00000420 3a ed 0d 01 90 2a e6 30 2c 32 3a ec 30 2c 38 34 |:....*.0,2:.0,84|
00000430 38 3a df 31 32 38 30 2c 38 34 38 3a ec 30 2c 32 |8:.1280,848:.0,2|
00000440 30 38 3a df 31 32 38 30 2c 32 30 38 0d 01 9a 05 |08:.1280,208....|
00000450 e1 0d 01 a4 05 3a 0d 01 ae 0a dd 20 f2 62 6f 78 |.....:..... .box|
00000460 0d 01 b8 8c e6 30 2c 31 33 31 3a ef 32 34 2c 54 |.....0,131:.24,T|
00000470 2d 32 34 3b 39 32 3b 54 2b 36 34 3b 31 36 34 3b |-24;92;T+64;164;|
00000480 3a da 3a ef 32 36 3a e6 30 2c 30 3a ec 20 54 2c |:.:.26:.0,0:. T,|
00000490 31 35 36 3a df 20 54 2d 32 34 2c 31 36 34 3a df |156:. T-24,164:.|
000004a0 20 54 2d 32 34 2c 39 32 3a df 20 54 2c 39 32 3a | T-24,92:. T,92:|
000004b0 ec 20 54 2d 32 34 2c 31 36 34 3a df 20 54 2b 36 |. T-24,164:. T+6|
000004c0 34 2c 31 36 34 3a df 20 54 2b 36 34 2c 31 35 36 |4,164:. T+64,156|
000004d0 3a e6 30 2c 31 32 38 3a ef 32 34 2c 54 3b 39 32 |:.0,128:.24,T;92|
000004e0 3b 54 2b 36 34 3b 31 35 36 3b 3a da 0d 01 c2 05 |;T+64;156;:.....|
000004f0 e1 0d 01 cc 05 3a 0d 01 d6 16 f6 3a f1 22 20 61 |.....:.....:." a|
00000500 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 01 e0 05 |t line ";.:.....|
00000510 3a 0d 01 ea 20 dc 30 2c 31 35 2c 36 33 2c 31 32 |:... .0,15,63,12|
00000520 36 2c 31 32 34 2c 32 35 32 2c 32 30 36 2c 31 39 |6,124,252,206,19|
00000530 31 0d 01 f4 20 dc 30 2c 31 32 38 2c 31 39 32 2c |1... .0,128,192,|
00000540 32 32 34 2c 39 36 2c 31 37 36 2c 34 38 2c 32 32 |224,96,176,48,22|
00000550 34 0d 01 fe 22 dc 32 30 37 2c 32 34 39 2c 32 34 |4...".207,249,24|
00000560 39 2c 32 34 38 2c 31 32 34 2c 31 32 37 2c 36 33 |9,248,124,127,63|
00000570 2c 31 35 0d 02 08 22 dc 32 35 34 2c 32 35 33 2c |,15...".254,253,|
00000580 32 32 33 2c 31 39 32 2c 30 2c 31 39 32 2c 32 32 |223,192,0,192,22|
00000590 34 2c 31 32 38 0d 02 12 1c dc 38 2c 32 38 2c 33 |4,128.....8,28,3|
000005a0 38 2c 39 33 2c 32 31 38 2c 31 31 39 2c 39 2c 31 |8,93,218,119,9,1|
000005b0 38 0d 02 1c 1d dc 33 34 2c 36 38 2c 38 2c 31 34 |8.....34,68,8,14|
000005c0 34 2c 36 34 2c 31 32 39 2c 33 38 2c 39 36 0d 02 |4,64,129,38,96..|
000005d0 26 1a dc 30 2c 33 33 2c 31 39 34 2c 38 2c 31 36 |&..0,33,194,8,16|
000005e0 2c 33 34 2c 36 38 2c 38 0d 02 30 1e dc 32 30 38 |,34,68,8..0..208|
000005f0 2c 39 36 2c 37 36 2c 31 34 36 2c 33 32 2c 37 32 |,96,76,146,32,72|
00000600 2c 34 30 2c 31 36 0d 02 3a 23 dc 32 35 34 2c 32 |,40,16..:#.254,2|
00000610 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 |55,255,255,255,2|
00000620 35 35 2c 32 33 31 2c 36 34 0d 02 44 20 dc 31 35 |55,231,64..D .15|
00000630 39 2c 31 38 39 2c 31 39 31 2c 30 2c 32 35 31 2c |9,189,191,0,251,|
00000640 32 35 31 2c 32 35 31 2c 30 0d 02 4e 20 dc 31 32 |251,251,0..N .12|
00000650 37 2c 31 32 37 2c 31 32 35 2c 30 2c 32 35 31 2c |7,127,125,0,251,|
00000660 32 35 31 2c 32 34 33 2c 30 0d 02 58 20 dc 32 33 |251,243,0..X .23|
00000670 38 2c 32 33 39 2c 32 33 39 2c 30 2c 32 35 33 2c |8,239,239,0,253,|
00000680 32 35 33 2c 32 34 39 2c 30 0d 02 62 20 dc 32 33 |253,249,0..b .23|
00000690 39 2c 32 33 39 2c 32 30 37 2c 30 2c 32 34 39 2c |9,239,207,0,249,|
000006a0 32 35 33 2c 32 35 33 2c 30 0d 02 6c 16 dc 30 2c |253,253,0..l..0,|
000006b0 31 2c 37 2c 38 2c 31 39 2c 32 34 2c 39 2c 36 0d |1,7,8,19,24,9,6.|
000006c0 02 76 1d dc 30 2c 31 39 32 2c 33 32 2c 39 36 2c |.v..0,192,32,96,|
000006d0 33 32 2c 31 36 2c 31 36 2c 32 32 34 0d 02 80 1c |32,16,16,224....|
000006e0 dc 31 2c 35 37 2c 31 32 35 2c 32 35 35 2c 32 33 |.1,57,125,255,23|
000006f0 37 2c 36 35 2c 31 2c 33 0d 02 8a 23 dc 31 33 34 |7,65,1,3...#.134|
00000700 2c 31 35 2c 31 35 39 2c 31 38 32 2c 32 34 38 2c |,15,159,182,248,|
00000710 31 32 38 2c 31 39 32 2c 32 32 34 0d 02 94 1a dc |128,192,224.....|
00000720 32 38 2c 38 2c 32 38 2c 38 2c 32 38 2c 32 38 2c |28,8,28,8,28,28,|
00000730 32 38 2c 36 32 0d 02 9e 1b dc 36 32 2c 31 32 31 |28,62.....62,121|
00000740 2c 31 32 31 2c 35 30 2c 32 38 2c 30 2c 30 2c 30 |,121,50,28,0,0,0|
00000750 0d 02 a8 1b dc 30 2c 36 33 2c 33 32 2c 33 32 2c |.....0,63,32,32,|
00000760 33 32 2c 33 35 2c 33 32 2c 36 33 0d 02 b2 1f dc |32,35,32,63.....|
00000770 30 2c 32 35 32 2c 32 38 2c 38 34 2c 32 32 30 2c |0,252,28,84,220,|
00000780 32 31 32 2c 32 38 2c 32 35 32 0d 02 bc 1e dc 31 |212,28,252.....1|
00000790 35 2c 31 2c 33 31 2c 33 32 2c 37 34 2c 31 34 39 |5,1,31,32,74,149|
000007a0 2c 31 32 38 2c 32 35 35 0d 02 c6 1f dc 32 34 30 |,128,255.....240|
000007b0 2c 31 32 38 2c 32 34 38 2c 34 2c 31 37 30 2c 38 |,128,248,4,170,8|
000007c0 35 2c 31 2c 32 35 35 0d 02 d0 20 dc 30 2c 36 33 |5,1,255... .0,63|
000007d0 2c 39 36 2c 31 31 32 2c 31 31 31 2c 31 30 34 2c |,96,112,111,104,|
000007e0 31 30 35 2c 31 30 34 0d 02 da 1e dc 30 2c 32 35 |105,104.....0,25|
000007f0 32 2c 36 2c 31 30 2c 32 34 32 2c 31 31 34 2c 32 |2,6,10,242,114,2|
00000800 34 32 2c 35 30 0d 02 e4 1e dc 31 30 34 2c 31 30 |42,50.....104,10|
00000810 34 2c 31 31 39 2c 31 30 34 2c 39 35 2c 36 33 2c |4,119,104,95,63,|
00000820 30 2c 30 0d 02 ee 1f dc 32 34 32 2c 31 31 34 2c |0,0.....242,114,|
00000830 32 34 32 2c 31 30 2c 32 35 34 2c 32 35 32 2c 30 |242,10,254,252,0|
00000840 2c 30 0d 02 f8 17 dc 30 2c 30 2c 30 2c 30 2c 33 |,0.....0,0,0,0,3|
00000850 2c 31 35 2c 31 34 2c 31 32 0d 03 02 1d dc 30 2c |,15,14,12.....0,|
00000860 30 2c 31 32 2c 31 32 34 2c 32 35 32 2c 31 34 30 |0,12,124,252,140|
00000870 2c 31 32 2c 31 32 0d 03 0c 1c dc 31 32 2c 31 32 |,12,12.....12,12|
00000880 2c 31 32 2c 36 30 2c 31 32 34 2c 31 32 30 2c 30 |,12,60,124,120,0|
00000890 2c 30 0d 03 16 1a dc 31 32 2c 36 30 2c 31 32 34 |,0.....12,60,124|
000008a0 2c 31 32 30 2c 30 2c 30 2c 30 2c 30 0d 03 20 14 |,120,0,0,0,0.. .|
000008b0 dc 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.0,0,0,0,0,0,0,0|
000008c0 0d 03 2a 20 dc 33 31 2c 35 34 2c 35 34 2c 31 32 |..* .31,54,54,12|
000008d0 33 2c 31 32 31 2c 31 32 35 2c 31 32 35 2c 35 39 |3,121,125,125,59|
000008e0 0d 03 34 20 dc 30 2c 31 32 38 2c 31 32 34 2c 32 |..4 .0,128,124,2|
000008f0 35 31 2c 32 32 33 2c 32 32 34 2c 32 35 34 2c 30 |51,223,224,254,0|
00000900 0d 03 3e 17 dc 37 2c 35 2c 31 33 2c 31 34 2c 31 |..>..7,5,13,14,1|
00000910 35 2c 37 2c 33 2c 33 0d 03 48 22 dc 31 32 38 2c |5,7,3,3..H".128,|
00000920 31 39 32 2c 31 39 32 2c 32 32 34 2c 32 32 34 2c |192,192,224,224,|
00000930 31 39 32 2c 30 2c 32 32 34 0d 03 52 1b dc 30 2c |192,0,224..R..0,|
00000940 31 2c 36 32 2c 32 32 33 2c 32 35 31 2c 37 2c 31 |1,62,223,251,7,1|
00000950 32 37 2c 30 0d 03 5c 24 dc 32 34 38 2c 31 30 38 |27,0..\$.248,108|
00000960 2c 31 30 38 2c 32 32 32 2c 31 35 38 2c 31 39 30 |,108,222,158,190|
00000970 2c 31 39 30 2c 32 32 30 0d 03 66 14 dc 31 2c 33 |,190,220..f..1,3|
00000980 2c 33 2c 37 2c 37 2c 33 2c 30 2c 37 0d 03 70 24 |,3,7,7,3,0,7..p$|
00000990 dc 32 32 34 2c 31 36 30 2c 31 37 36 2c 31 31 32 |.224,160,176,112|
000009a0 2c 32 34 30 2c 32 32 34 2c 31 39 32 2c 31 39 32 |,240,224,192,192|
000009b0 0d 03 7a 18 dc 30 2c 31 32 37 2c 31 32 37 2c 30 |..z..0,127,127,0|
000009c0 2c 30 2c 30 2c 30 2c 30 0d 03 84 21 dc 35 36 2c |,0,0,0,0...!.56,|
000009d0 38 34 2c 32 31 39 2c 34 35 2c 32 35 35 2c 32 35 |84,219,45,255,25|
000009e0 31 2c 31 32 37 2c 32 35 35 0d 03 8e 21 dc 30 2c |1,127,255...!.0,|
000009f0 39 36 2c 32 31 39 2c 31 38 37 2c 32 31 35 2c 32 |96,219,187,215,2|
00000a00 33 37 2c 32 35 31 2c 32 35 35 0d 03 98 24 dc 31 |37,251,255...$.1|
00000a10 32 34 2c 32 33 35 2c 32 35 35 2c 32 33 39 2c 32 |24,235,255,239,2|
00000a20 35 35 2c 32 35 35 2c 32 32 31 2c 32 35 35 0d 03 |55,255,221,255..|
00000a30 a2 22 dc 30 2c 32 32 34 2c 32 35 32 2c 32 35 31 |.".0,224,252,251|
00000a40 2c 31 39 31 2c 32 35 34 2c 32 35 31 2c 32 35 35 |,191,254,251,255|
00000a50 0d 03 ac 1d dc 32 34 2c 30 2c 32 34 2c 32 34 2c |.....24,0,24,24,|
00000a60 32 34 2c 36 30 2c 31 32 36 2c 31 32 36 0d 03 b6 |24,60,126,126...|
00000a70 22 dc 32 35 35 2c 32 35 32 2c 32 32 37 2c 32 38 |".255,252,227,28|
00000a80 2c 32 32 37 2c 33 31 2c 32 35 35 2c 31 32 36 0d |,227,31,255,126.|
00000a90 03 c0 19 dc 31 37 2c 31 39 2c 33 31 2c 31 34 2c |....17,19,31,14,|
00000aa0 34 2c 34 2c 34 2c 33 31 0d 03 ca 22 dc 31 31 32 |4,4,4,31...".112|
00000ab0 2c 31 32 37 2c 31 32 37 2c 31 32 37 2c 31 32 37 |,127,127,127,127|
00000ac0 2c 31 32 37 2c 31 31 32 2c 30 0d 03 d4 1e dc 32 |,127,112,0.....2|
00000ad0 34 2c 32 38 2c 32 35 34 2c 32 35 35 2c 32 35 34 |4,28,254,255,254|
00000ae0 2c 32 38 2c 32 34 2c 30 0d 03 de 1a dc 31 35 2c |,28,24,0.....15,|
00000af0 30 2c 33 31 2c 33 32 2c 33 31 2c 30 2c 31 35 2c |0,31,32,31,0,15,|
00000b00 31 36 0d 03 e8 1c dc 32 34 30 2c 38 2c 32 34 30 |16.....240,8,240|
00000b10 2c 30 2c 32 35 32 2c 32 2c 32 35 32 2c 30 0d 03 |,0,252,2,252,0..|
00000b20 f2 1d dc 31 36 2c 35 36 2c 31 32 34 2c 32 35 34 |...16,56,124,254|
00000b30 2c 35 36 2c 35 36 2c 35 36 2c 30 0d 03 fc 17 dc |,56,56,56,0.....|
00000b40 30 2c 30 2c 30 2c 30 2c 37 2c 33 31 2c 36 30 2c |0,0,0,0,7,31,60,|
00000b50 36 30 0d 04 06 1e dc 31 30 2c 36 34 2c 39 2c 32 |60.....10,64,9,2|
00000b60 30 2c 32 34 30 2c 32 34 38 2c 36 30 2c 32 32 30 |0,240,248,60,220|
00000b70 0d 04 10 1d dc 31 32 34 2c 31 32 34 2c 31 32 34 |.....124,124,124|
00000b80 2c 36 30 2c 36 30 2c 33 31 2c 37 2c 30 0d 04 1a |,60,60,31,7,0...|
00000b90 20 dc 32 32 32 2c 36 32 2c 32 32 32 2c 31 35 36 | .222,62,222,156|
00000ba0 2c 32 38 2c 32 34 38 2c 32 32 34 2c 30 0d 04 24 |,28,248,224,0..$|
00000bb0 16 dc 30 2c 31 2c 33 2c 37 2c 36 2c 31 33 2c 31 |..0,1,3,7,6,13,1|
00000bc0 32 2c 37 0d 04 2e 20 dc 30 2c 32 34 30 2c 32 35 |2,7... .0,240,25|
00000bd0 32 2c 31 32 36 2c 36 32 2c 36 33 2c 31 31 35 2c |2,126,62,63,115,|
00000be0 32 35 33 0d 04 38 1a dc 31 32 37 2c 31 39 31 2c |253..8..127,191,|
00000bf0 32 35 31 2c 33 2c 30 2c 33 2c 37 2c 31 0d 04 42 |251,3,0,3,7,1..B|
00000c00 22 dc 32 34 33 2c 31 35 39 2c 31 35 39 2c 33 31 |".243,159,159,31|
00000c10 2c 36 32 2c 32 35 34 2c 32 35 32 2c 32 34 30 0d |,62,254,252,240.|
00000c20 04 4c 1b dc 32 34 2c 32 34 2c 32 34 2c 32 34 2c |.L..24,24,24,24,|
00000c30 32 34 2c 32 34 2c 32 34 2c 30 0d 04 56 15 dc 2d |24,24,24,0..V..-|
00000c40 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d |1,0,0,0,0,0,0,0.|
00000c50 04 60 d7 dc 20 31 32 38 2c 38 38 38 2c 31 32 38 |.`.. 128,888,128|
00000c60 2c 39 36 38 2c 31 31 35 32 2c 38 38 38 2c 33 2c |,968,1152,888,3,|
00000c70 31 32 38 2c 39 36 38 2c 31 31 35 32 2c 39 36 38 |128,968,1152,968|
00000c80 2c 31 31 35 32 2c 38 38 38 2c 33 2c 31 32 38 2c |,1152,888,3,128,|
00000c90 39 39 32 2c 31 32 38 2c 38 36 34 2c 33 32 2c 39 |992,128,864,32,9|
00000ca0 32 38 2c 31 2c 31 31 35 32 2c 39 39 32 2c 31 31 |28,1,1152,992,11|
00000cb0 35 32 2c 38 36 34 2c 31 32 34 38 2c 39 32 38 2c |52,864,1248,928,|
00000cc0 31 2c 2d 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |1,-1,0,0,0,0,0,0|
00000cd0 2c 31 2c 31 32 38 2c 39 36 38 2c 30 2c 31 34 34 |,1,128,968,0,144|
00000ce0 2c 39 35 36 2c 30 2c 31 31 33 36 2c 39 35 36 2c |,956,0,1136,956,|
00000cf0 30 2c 31 31 35 32 2c 39 37 32 2c 31 2c 31 31 33 |0,1152,972,1,113|
00000d00 36 2c 39 35 36 2c 30 2c 31 31 33 36 2c 39 30 30 |6,956,0,1136,900|
00000d10 2c 30 2c 31 31 35 32 2c 38 38 38 2c 31 2c 31 31 |,0,1152,888,1,11|
00000d20 33 36 2c 39 30 30 0d 04 6a 33 dc 20 30 2c 31 34 |36,900..j3. 0,14|
00000d30 34 2c 39 30 30 2c 30 2c 31 32 38 2c 38 38 38 2c |4,900,0,128,888,|
00000d40 31 2c 31 34 34 2c 39 30 30 2c 30 2c 31 34 34 2c |1,144,900,0,144,|
00000d50 39 35 36 2c 32 2c 30 2c 30 0d 04 74 3a 3d 3d 3d |956,2,0,0..t:===|
00000d60 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000d90 3d 3d 3d 0d 04 7e 0e ee 20 85 20 e5 20 8d 74 6e |===..~.. . . .tn|
00000da0 4b 0d 04 88 2f de 20 62 25 34 38 2c 41 24 28 33 |K.../. b%48,A$(3|
00000db0 29 2c 4a 25 28 31 30 29 2c 58 25 28 33 29 2c 59 |),J%(10),X%(3),Y|
00000dc0 25 28 33 29 2c 41 25 28 33 29 2c 5a 25 28 33 29 |%(3),A%(3),Z%(3)|
00000dd0 0d 04 92 0c f2 73 74 61 72 74 3a f5 0d 04 9c 14 |.....start:.....|
00000de0 f2 76 61 72 73 3a d4 31 2c 32 2c 31 30 31 2c 36 |.vars:.1,2,101,6|
00000df0 0d 04 a6 19 f2 73 63 72 65 65 6e 3a 54 54 25 3d |.....screen:TT%=|
00000e00 91 3a f5 3a 2a 46 58 32 31 0d 04 b0 1a f5 fd 91 |.:.:*FX21.......|
00000e10 3e 54 54 25 3a 54 54 25 3d 91 2b 31 30 3a f2 73 |>TT%:TT%=.+10:.s|
00000e20 70 72 74 0d 04 ba 13 e7 a6 2d 37 34 e7 20 46 25 |prt......-74. F%|
00000e30 3d 30 f2 73 65 74 0d 04 c4 1b e7 a6 2d 31 37 f2 |=0.set......-17.|
00000e40 71 28 33 33 2c 32 37 29 3a 2a 46 58 32 31 30 2c |q(33,27):*FX210,|
00000e50 31 0d 04 ce 1d e7 a6 2d 38 32 f2 63 28 33 33 2c |1......-82.c(33,|
00000e60 32 37 2c 26 39 42 29 3a 2a 46 58 32 31 30 0d 04 |27,&9B):*FX210..|
00000e70 d8 20 5a 25 3d 5a 25 2b 31 3a e7 20 5a 25 3d 34 |. Z%=Z%+1:. Z%=4|
00000e80 5a 25 3d 30 3a e7 20 73 25 3e 31 39 f2 67 0d 04 |Z%=0:. s%>19.g..|
00000e90 e2 0e e7 20 46 25 20 f2 66 69 72 65 0d 04 ec 31 |... F% .fire...1|
00000ea0 f2 67 3a e7 58 25 3e 33 37 80 43 25 3d 26 41 30 |.g:.X%>37.C%=&A0|
00000eb0 20 84 58 25 3c 31 80 43 25 3e 26 41 30 20 84 59 | .X%<1.C%>&A0 .Y|
00000ec0 25 3d 32 33 84 59 25 3d 36 f2 6e 65 77 0d 04 f6 |%=23.Y%=6.new...|
00000ed0 28 fd 20 57 25 3c 31 37 36 20 84 20 58 25 3d 36 |(. W%<176 . X%=6|
00000ee0 80 20 59 25 3d 31 39 80 20 73 25 3d 31 80 20 70 |. Y%=19. s%=1. p|
00000ef0 25 3d 31 30 30 0d 05 00 18 e7 20 57 25 3c 31 37 |%=100..... W%<17|
00000f00 36 20 f2 64 69 65 20 8b 20 f2 65 6e 64 0d 05 0a |6 .die . .end...|
00000f10 07 fd 20 a3 0d 05 14 05 3a 0d 05 1e 11 dd f2 73 |.. .....:......s|
00000f20 74 61 72 74 3a 71 25 3d 33 32 0d 05 28 21 72 65 |tart:q%=32..(!re|
00000f30 64 25 3d 26 31 31 31 3a 67 72 6e 25 3d 26 32 31 |d%=&111:grn%=&21|
00000f40 31 3a 63 79 6e 25 3d 26 33 31 31 0d 05 32 1a 41 |1:cyn%=&311..2.A|
00000f50 24 28 30 29 3d bd 31 37 2b bd 31 2b bd 31 37 36 |$(0)=.17+.1+.176|
00000f60 2b bd 31 37 37 0d 05 3c 2e 41 24 28 31 29 3d bd |+.177..<.A$(1)=.|
00000f70 31 37 2b bd 31 2b bd 31 37 36 2b bd 31 37 37 2b |17+.1+.176+.177+|
00000f80 bd 31 30 2b bd 38 2b bd 38 2b bd 31 37 36 2b bd |.10+.8+.8+.176+.|
00000f90 31 37 37 0d 05 46 2e 41 24 28 32 29 3d bd 31 37 |177..F.A$(2)=.17|
00000fa0 2b bd 32 2b bd 31 37 38 2b bd 31 37 39 2b bd 31 |+.2+.178+.179+.1|
00000fb0 30 2b bd 38 2b bd 38 2b bd 31 37 38 2b bd 31 37 |0+.8+.8+.178+.17|
00000fc0 39 0d 05 50 2e 41 24 28 33 29 3d bd 31 37 2b bd |9..P.A$(3)=.17+.|
00000fd0 31 2b bd 31 38 31 2b bd 31 38 32 2b bd 31 30 2b |1+.181+.182+.10+|
00000fe0 bd 38 2b bd 38 2b bd 31 38 33 2b bd 31 38 34 0d |.8+.8+.183+.184.|
00000ff0 05 5a 0b 68 70 25 3d 30 3a e1 0d 05 64 04 0d 05 |.Z.hp%=0:...d...|
00001000 6e 0a dd f2 76 61 72 73 0d 05 78 19 e3 54 3d 30 |n...vars..x..T=0|
00001010 b8 33 3a 5a 25 28 54 29 3d 30 3a ed 3a e6 30 2c |.3:Z%(T)=0:.:.0,|
00001020 31 0d 05 82 1e e3 57 25 3d 31 39 32 20 b8 31 30 |1.....W%=192 .10|
00001030 38 38 88 31 36 3a d4 30 2c 31 35 2c 34 2c 31 0d |88.16:.0,15,4,1.|
00001040 05 8c 21 ec 57 25 2c 39 31 36 3a df 57 25 2c 39 |..!.W%,916:.W%,9|
00001050 34 30 3a e7 20 57 25 3e 33 30 30 20 e6 30 2c 32 |40:. W%>300 .0,2|
00001060 0d 05 96 11 ed 3a f1 8a 30 2c 33 30 29 89 33 39 |.....:..0,30).39|
00001070 3b 0d 05 a0 1d 53 25 3d 39 3a 5a 25 3d 30 3a 73 |;....S%=9:Z%=0:s|
00001080 25 3d 31 3a 58 25 3d 38 3a 59 25 3d 31 31 0d 05 |%=1:X%=8:Y%=11..|
00001090 aa 19 4a 25 3d 30 3a 43 25 3d 26 41 30 3a 70 25 |..J%=0:C%=&A0:p%|
000010a0 3d 30 3a 78 25 3d 37 0d 05 b4 19 ef 63 79 6e 25 |=0:x%=7.....cyn%|
000010b0 3b 33 31 78 25 33 30 26 42 34 3a f7 8d 64 42 4b |;31x%30&B4:..dBK|
000010c0 0d 05 be 14 e3 54 3d 30 b8 39 3a f3 20 4a 25 28 |.....T=0.9:. J%(|
000010d0 54 29 3a ed 0d 05 c8 1b e3 54 3d 31 b8 32 31 3a |T):......T=1.21:|
000010e0 62 25 3f 54 3d 31 3a ed 3a f2 65 78 74 72 61 0d |b%?T=1:.:.extra.|
000010f0 05 d2 21 fb 33 3a f2 74 79 70 28 22 50 52 45 53 |..!.3:.typ("PRES|
00001100 53 20 20 53 50 41 43 45 22 2c 31 34 2c 31 34 29 |S SPACE",14,14)|
00001110 0d 05 dc 0c f5 fd a5 3d 33 32 3a e1 0d 05 e6 04 |.......=32:.....|
00001120 0d 05 f0 21 dd f2 65 78 74 72 61 3a ea 41 3a e3 |...!..extra:.A:.|
00001130 54 3d 36 b8 31 38 88 34 3a f2 71 28 54 2c 32 37 |T=6.18.4:.q(T,27|
00001140 29 0d 05 fa 1a e7 20 5a 25 28 41 29 3d 31 20 f1 |)..... Z%(A)=1 .|
00001150 8a 54 2c 32 37 29 41 24 28 41 29 0d 06 04 13 41 |.T,27)A$(A)....A|
00001160 3d 41 2b 31 3a ed 3a f2 77 3a fb 32 3a e1 0d 06 |=A+1:.:.w:.2:...|
00001170 0e 04 0d 06 18 8e dd f2 74 79 70 28 41 24 2c 78 |........typ(A$,x|
00001180 25 2c 79 25 29 ea 41 25 2c 4b 25 2c 4e 25 2c 58 |%,y%).A%,K%,N%,X|
00001190 25 2c 59 25 3a 58 25 3d 4c 25 3a 59 25 3d 30 3a |%,Y%:X%=L%:Y%=0:|
000011a0 4b 25 3d 26 39 46 3a 41 25 3d 31 30 3a e3 4e 25 |K%=&9F:A%=10:.N%|
000011b0 3d 31 b8 a9 41 24 3a 3f 4c 25 3d 97 c1 41 24 2c |=1..A$:?L%=..A$,|
000011c0 4e 25 29 3a d6 26 46 46 46 31 3a ef 32 33 26 39 |N%):.&FFF1:.23&9|
000011d0 46 2c 30 4c 25 3f 31 4c 25 3f 33 4c 25 3f 34 4c |F,0L%?1L%?3L%?4L|
000011e0 25 3f 35 4c 25 3f 37 4c 25 3f 38 2c 30 2c 33 31 |%?5L%?7L%?8,0,31|
000011f0 78 25 2b 4e 25 2d 31 79 25 26 39 46 3a ed 3a e1 |x%+N%-1y%&9F:.:.|
00001200 0d 06 22 04 0d 06 2c 0c dd f2 73 63 72 65 65 6e |.."...,...screen|
00001210 0d 06 36 32 ef 31 39 2c 32 2c 32 3b 30 3b 31 39 |..62.19,2,2;0;19|
00001220 2c 33 2c 36 3b 30 3b 31 39 2c 31 2c 31 3b 30 3b |,3,6;0;19,1,1;0;|
00001230 32 38 2c 30 2c 32 34 2c 33 39 2c 36 2c 31 32 2c |28,0,24,39,6,12,|
00001240 32 36 0d 06 40 1f e7 20 73 25 3e 31 34 20 ef 31 |26..@.. s%>14 .1|
00001250 39 2c 31 2c 35 3b 30 3b 31 39 2c 33 2c 34 3b 30 |9,1,5;0;19,3,4;0|
00001260 3b 0d 06 4a 23 f7 20 8d 64 4c 4b 3a e7 20 73 25 |;..J#. .dLK:. s%|
00001270 3e 31 20 e3 54 3d 31 b8 20 73 25 2d 31 3a f3 20 |>1 .T=1. s%-1:. |
00001280 41 24 3a ed 0d 06 54 58 f3 20 41 24 3a 44 25 3d |A$:...TX. A$:D%=|
00001290 97 c1 41 24 2c 31 29 2d 34 36 3a 63 25 3d 97 c1 |..A$,1)-46:c%=..|
000012a0 41 24 2c 32 29 2d 34 36 3a 63 31 25 3d 97 c1 41 |A$,2)-46:c1%=..A|
000012b0 24 2c 33 29 2d 34 36 3a e7 20 62 25 3f 73 25 3d |$,3)-46:. b%?s%=|
000012c0 31 ef 33 31 63 25 63 31 25 67 72 6e 25 3b 26 41 |1.31c%c1%grn%;&A|
000012d0 44 2c 31 30 2c 38 26 41 45 26 41 46 0d 06 5e 11 |D,10,8&AE&AF..^.|
000012e0 e3 50 25 3d 34 20 b8 20 a9 41 24 88 34 0d 06 68 |.P%=4 . .A$.4..h|
000012f0 21 58 3d 97 c1 41 24 2c 50 25 29 2d 34 36 3a 59 |!X=..A$,P%)-46:Y|
00001300 3d 97 c1 41 24 2c 50 25 2b 31 29 2d 34 36 0d 06 |=..A$,P%+1)-46..|
00001310 72 24 58 31 3d 97 c1 41 24 2c 50 25 2b 32 29 2d |r$X1=..A$,P%+2)-|
00001320 34 36 3a 4b 3d 97 c1 41 24 2c 50 25 2b 33 29 2d |46:K=..A$,P%+3)-|
00001330 34 36 0d 06 7c 31 e7 4b 3d 31 ef 67 72 6e 25 3b |46..|1.K=1.grn%;|
00001340 3a e3 41 25 3d 58 20 b8 20 58 31 20 88 34 3a ef |:.A%=X . X1 .4:.|
00001350 33 31 41 25 59 26 41 39 26 41 41 26 41 42 26 41 |31A%Y&A9&AA&AB&A|
00001360 43 3a ed 0d 06 86 13 e7 4b 3d 32 f2 61 28 58 2c |C:......K=2.a(X,|
00001370 26 39 33 2c 33 29 0d 06 90 2b e7 4b 3d 33 ef 72 |&93,3)...+.K=3.r|
00001380 65 64 25 3b 3a e3 41 25 3d 58 20 b8 20 58 31 20 |ed%;:.A%=X . X1 |
00001390 88 32 3a f2 63 28 41 25 2c 59 2c 26 38 39 29 3a |.2:.c(A%,Y,&89):|
000013a0 ed 0d 06 9a 13 e7 4b 3d 34 f2 61 28 59 2c 26 38 |......K=4.a(Y,&8|
000013b0 39 2c 31 29 0d 06 a4 3c e7 4b 3d 35 e3 41 25 3d |9,1)...<.K=5.A%=|
000013c0 58 20 b8 20 58 31 20 88 33 3a ef 72 65 64 25 3b |X . X1 .3:.red%;|
000013d0 33 31 41 25 59 26 38 44 26 38 45 2c 31 30 2c 38 |31A%Y&8D&8E,10,8|
000013e0 2c 38 2c 67 72 6e 25 3b 26 38 46 26 39 30 3a ed |,8,grn%;&8F&90:.|
000013f0 0d 06 ae 2e e7 4b 3d 36 ef 33 31 2c 58 2c 59 2c |.....K=6.31,X,Y,|
00001400 63 79 6e 25 3b 26 39 31 2c 39 26 39 31 2c 31 30 |cyn%;&91,9&91,10|
00001410 2c 38 2c 38 2c 38 26 39 32 2c 39 26 39 32 0d 06 |,8,8,8&92,9&92..|
00001420 b8 13 e7 4b 3d 37 f2 61 28 58 2c 26 39 37 2c 33 |...K=7.a(X,&97,3|
00001430 29 0d 06 c2 14 e7 4b 3d 38 f1 8a 58 2c 59 29 41 |).....K=8..X,Y)A|
00001440 24 28 58 31 29 0d 06 cc 05 ed 0d 06 d6 23 e7 20 |$(X1)........#. |
00001450 73 25 3d 31 20 fb 32 3a f2 74 79 70 28 22 54 45 |s%=1 .2:.typ("TE|
00001460 4c 45 50 4f 52 54 22 2c 33 2c 31 37 29 0d 06 e0 |LEPORT",3,17)...|
00001470 45 46 25 3d 30 3a e3 54 3d 30 b8 33 3a 58 25 28 |EF%=0:.T=0.3:X%(|
00001480 54 29 3d 39 39 3a ed 3a e7 20 44 25 3e 30 20 f7 |T)=99:.:. D%>0 .|
00001490 20 8d 64 7e 46 3a e3 54 3d 31 b8 20 44 25 3a f3 | .d~F:.T=1. D%:.|
000014a0 20 58 25 28 54 2d 31 29 2c 59 25 28 54 2d 31 29 | X%(T-1),Y%(T-1)|
000014b0 3a ed 0d 06 ea 05 e1 0d 06 f4 04 0d 06 fe 1d dc |:...............|
000014c0 20 31 38 2c 31 34 2c 33 30 2c 31 30 2c 32 30 2c | 18,14,30,10,20,|
000014d0 31 33 2c 32 32 2c 31 30 0d 07 08 04 0d 07 12 16 |13,22,10........|
000014e0 dd f2 73 70 72 74 3a 41 25 3d 58 25 3a 42 25 3d |..sprt:A%=X%:B%=|
000014f0 59 25 0d 07 1c 1c e7 4a 25 28 4a 25 29 3e 30 f2 |Y%.....J%(J%)>0.|
00001500 73 3a 8b e7 4a 25 28 4a 25 29 3c 30 f2 75 0d 07 |s:..J%(J%)<0.u..|
00001510 26 1e e7 53 25 3d 32 e7 4a 25 28 4a 25 29 e7 b3 |&..S%=2.J%(J%)..|
00001520 28 32 29 3d 31 4a 25 3d 4a 25 2d 31 0d 07 30 1c |(2)=1J%=J%-1..0.|
00001530 4a 25 3d 4a 25 2b 31 3a e7 4a 25 3d 31 30 4a 25 |J%=J%+1:.J%=10J%|
00001540 3d 30 3a f2 63 68 65 6b 0d 07 3a 14 e7 a6 2d 39 |=0:.chek..:...-9|
00001550 38 f2 72 3a 8b e7 a6 2d 36 37 f2 6c 0d 07 44 1d |8.r:...-67.l..D.|
00001560 fb 33 3a f2 71 28 41 25 2c 42 25 29 3a f2 63 28 |.3:.q(A%,B%):.c(|
00001570 58 25 2c 59 25 2c 43 25 29 0d 07 4e 2e e7 a6 2d |X%,Y%,C%)..N...-|
00001580 31 32 32 e7 46 25 3d 30 e7 78 25 3c 31 36 ef 33 |122.F%=0.x%<16.3|
00001590 31 2c 78 25 2c 33 30 2c 33 32 3a 78 25 3d 78 25 |1,x%,30,32:x%=x%|
000015a0 2b 34 3a f2 77 3a e1 0d 07 58 2b e7 a6 2d 32 36 |+4:.w:...X+..-26|
000015b0 e7 46 25 3d 30 e7 78 25 3e 31 30 ef 33 31 2c 78 |.F%=0.x%>10.31,x|
000015c0 25 2c 33 30 2c 33 32 3a 78 25 3d 78 25 2d 34 3a |%,30,32:x%=x%-4:|
000015d0 f2 77 0d 07 62 05 e1 0d 07 6c 04 0d 07 76 26 dd |.w..b....l...v&.|
000015e0 f2 72 3a ef 33 31 58 25 2d 31 59 25 3a d6 45 25 |.r:.31X%-1Y%:.E%|
000015f0 3a ef 31 30 3a e7 3f 4c 25 3c 3e 71 25 f2 64 3a |:.10:.?L%<>q%.d:|
00001600 e1 0d 07 80 14 d6 45 25 3a e7 3f 4c 25 3c 3e 71 |......E%:.?L%<>q|
00001610 25 f2 64 3a e1 0d 07 8a 14 58 25 3d 58 25 2d 31 |%.d:.....X%=X%-1|
00001620 3a 43 25 3d 26 41 34 3a e1 0d 07 94 04 0d 07 9e |:C%=&A4:........|
00001630 2a dd f2 75 3a ef 33 31 58 25 59 25 2d 31 3a d6 |*..u:.31X%Y%-1:.|
00001640 45 25 3a ef 39 3a e7 3f 4c 25 3c 3e 71 25 4a 25 |E%:.9:.?L%<>q%J%|
00001650 3d 36 3a f2 64 3a e1 0d 07 a8 1b d6 45 25 3a e7 |=6:.d:......E%:.|
00001660 20 3f 4c 25 3c 3e 71 25 20 4a 25 3d 36 3a f2 64 | ?L%<>q% J%=6:.d|
00001670 3a e1 0d 07 b2 0d 59 25 3d 59 25 2d 31 3a e1 0d |:.....Y%=Y%-1:..|
00001680 07 bc 04 0d 07 c6 34 dd f2 73 3a ef 33 31 58 25 |......4..s:.31X%|
00001690 59 25 2b 32 3a d6 45 25 3a ef 39 3a e7 3f 4c 25 |Y%+2:.E%:.9:.?L%|
000016a0 3c 3e 71 25 4a 25 3d 30 3a d4 30 2c 31 33 2c 33 |<>q%J%=0:.0,13,3|
000016b0 2c 31 3a f2 64 3a e1 0d 07 d0 23 d6 45 25 3a e7 |,1:.d:....#.E%:.|
000016c0 3f 4c 25 3c 3e 71 25 4a 25 3d 30 3a d4 30 2c 31 |?L%<>q%J%=0:.0,1|
000016d0 33 2c 33 2c 31 3a f2 64 3a e1 0d 07 da 0d 59 25 |3,3,1:.d:.....Y%|
000016e0 3d 59 25 2b 31 3a e1 0d 07 e4 04 0d 07 ee 26 dd |=Y%+1:........&.|
000016f0 f2 6c 3a ef 33 31 58 25 2b 32 59 25 3a d6 45 25 |.l:.31X%+2Y%:.E%|
00001700 3a ef 31 30 3a e7 3f 4c 25 3c 3e 71 25 f2 64 3a |:.10:.?L%<>q%.d:|
00001710 e1 0d 07 f8 14 d6 45 25 3a e7 3f 4c 25 3c 3e 71 |......E%:.?L%<>q|
00001720 25 f2 64 3a e1 0d 08 02 14 58 25 3d 58 25 2b 31 |%.d:.....X%=X%+1|
00001730 3a 43 25 3d 26 41 30 3a e1 0d 08 0c 04 0d 08 16 |:C%=&A0:........|
00001740 60 dd f2 64 3a e7 3f 4c 25 3e 31 38 34 80 3f 4c |`..d:.?L%>184.?L|
00001750 25 3c 31 38 39 84 3f 4c 25 3e 32 32 32 80 3f 4c |%<189.?L%>222.?L|
00001760 25 3c 32 32 37 84 3f 4c 25 3d 31 39 31 84 3f 4c |%<227.?L%=191.?L|
00001770 25 3e 26 38 43 20 80 3f 4c 25 3c 26 39 31 84 3f |%>&8C .?L%<&91.?|
00001780 4c 25 3e 26 39 32 20 80 3f 4c 25 3c 26 39 37 d4 |L%>&92 .?L%<&97.|
00001790 30 2c 34 2c 34 2c 31 3a f2 6c 69 66 65 0d 08 20 |0,4,4,1:.life.. |
000017a0 37 e7 3f 4c 25 3e 31 37 32 e7 3f 4c 25 3c 31 37 |7.?L%>172.?L%<17|
000017b0 36 f2 71 28 63 25 2c 63 31 25 29 3a fb 32 3a d4 |6.q(c%,c1%):.2:.|
000017c0 33 2c 33 2c 32 30 30 2c 31 3a f2 70 3a 62 25 3f |3,3,200,1:.p:b%?|
000017d0 73 25 3d 30 0d 08 2a 26 e7 3f 4c 25 3c 31 37 36 |s%=0..*&.?L%<176|
000017e0 8b e7 3f 4c 25 3e 31 37 37 8b e7 73 25 3e 31 f2 |..?L%>177..s%>1.|
000017f0 74 28 31 29 8b f2 74 28 30 29 0d 08 34 2f e7 3f |t(1)..t(0)..4/.?|
00001800 4c 25 3e 31 37 37 e7 3f 4c 25 3c 31 38 30 f2 74 |L%>177.?L%<180.t|
00001810 28 32 29 8b e7 3f 4c 25 3e 31 38 30 e7 3f 4c 25 |(2)..?L%>180.?L%|
00001820 3c 31 38 35 f2 74 28 33 29 0d 08 3e 05 e1 0d 08 |<185.t(3)..>....|
00001830 48 04 0d 08 52 36 dd f2 74 28 51 25 29 3a e7 20 |H...R6..t(Q%):. |
00001840 5a 25 28 51 25 29 e1 3a 8b 5a 25 28 51 25 29 3d |Z%(Q%).:.Z%(Q%)=|
00001850 31 3a d4 31 2c 33 2c 31 30 30 2c 31 3a f2 65 78 |1:.1,3,100,1:.ex|
00001860 74 72 61 3a f2 70 3a e1 0d 08 5c 04 0d 08 66 39 |tra:.p:...\...f9|
00001870 dd f2 63 68 65 6b 3a 4a 25 3d 30 3a ef 33 31 58 |..chek:J%=0:.31X|
00001880 25 59 25 2b 32 3a d6 45 25 3a ef 39 3a e7 20 3f |%Y%+2:.E%:.9:. ?|
00001890 4c 25 3c 3e 71 25 20 d4 30 2c 31 33 2c 33 2c 31 |L%<>q% .0,13,3,1|
000018a0 3a f2 64 3a e1 0d 08 70 20 d6 45 25 3a e7 20 3f |:.d:...p .E%:. ?|
000018b0 4c 25 3c 3e 71 25 20 d4 30 2c 31 33 2c 33 2c 31 |L%<>q% .0,13,3,1|
000018c0 3a f2 64 3a e1 0d 08 7a 0a 4a 25 3d 36 3a e1 0d |:.d:...z.J%=6:..|
000018d0 08 84 04 0d 08 8e 13 dd f2 67 3a e7 58 25 28 5a |.........g:.X%(Z|
000018e0 25 29 3d 39 39 e1 0d 08 98 23 49 25 3d 58 25 28 |%)=99....#I%=X%(|
000018f0 5a 25 29 3a 4b 25 3d 59 25 28 5a 25 29 3a 55 25 |Z%):K%=Y%(Z%):U%|
00001900 3d 49 25 3a 56 25 3d 4b 25 0d 08 a2 24 e7 20 58 |=I%:V%=K%...$. X|
00001910 25 28 5a 25 29 3c 58 25 20 f2 67 72 3a 8b e7 20 |%(Z%)<X% .gr:.. |
00001920 58 25 28 5a 25 29 3e 58 25 20 f2 67 6c 0d 08 ac |X%(Z%)>X% .gl...|
00001930 24 e7 20 59 25 28 5a 25 29 3e 59 25 20 f2 67 75 |$. Y%(Z%)>Y% .gu|
00001940 3a 8b e7 20 59 25 28 5a 25 29 3c 59 25 20 f2 67 |:.. Y%(Z%)<Y% .g|
00001950 64 0d 08 b6 32 f2 71 28 49 25 2c 4b 25 29 3a fb |d...2.q(I%,K%):.|
00001960 32 3a e7 49 25 3e 55 25 f2 63 28 55 25 2c 56 25 |2:.I%>U%.c(U%,V%|
00001970 2c 26 42 39 29 8b f2 63 28 55 25 2c 56 25 2c 26 |,&B9)..c(U%,V%,&|
00001980 38 30 29 0d 08 c0 19 58 25 28 5a 25 29 3d 55 25 |80)....X%(Z%)=U%|
00001990 3a 59 25 28 5a 25 29 3d 56 25 3a e1 0d 08 ca 04 |:Y%(Z%)=V%:.....|
000019a0 0d 08 d4 22 dd f2 67 6c 3a ef 33 31 55 25 2d 31 |..."..gl:.31U%-1|
000019b0 56 25 3a d6 45 25 3a e7 20 3f 4c 25 3c 3e 71 25 |V%:.E%:. ?L%<>q%|
000019c0 20 e1 0d 08 de 1c ef 31 30 3a d6 45 25 3a e7 20 | ......10:.E%:. |
000019d0 3f 4c 25 3d 71 25 20 55 25 3d 55 25 2d 31 0d 08 |?L%=q% U%=U%-1..|
000019e0 e8 05 e1 0d 08 f2 04 0d 08 fc 26 dd f2 67 72 3a |..........&..gr:|
000019f0 ef 33 31 55 25 2b 32 56 25 3a d6 45 25 3a ef 31 |.31U%+2V%:.E%:.1|
00001a00 30 3a e7 20 3f 4c 25 3c 3e 71 25 20 e1 0d 09 06 |0:. ?L%<>q% ....|
00001a10 18 d6 45 25 3a e7 20 3f 4c 25 3d 71 25 20 55 25 |..E%:. ?L%=q% U%|
00001a20 3d 55 25 2b 31 0d 09 10 05 e1 0d 09 1a 04 0d 09 |=U%+1...........|
00001a30 24 25 dd f2 67 75 3a ef 33 31 55 25 56 25 2d 31 |$%..gu:.31U%V%-1|
00001a40 3a d6 45 25 3a ef 39 3a e7 20 3f 4c 25 3c 3e 71 |:.E%:.9:. ?L%<>q|
00001a50 25 20 e1 0d 09 2e 18 d6 45 25 3a e7 20 3f 4c 25 |% ......E%:. ?L%|
00001a60 3d 71 25 20 56 25 3d 56 25 2d 31 0d 09 38 05 e1 |=q% V%=V%-1..8..|
00001a70 0d 09 42 04 0d 09 4c 25 dd f2 67 64 3a ef 33 31 |..B...L%..gd:.31|
00001a80 55 25 56 25 2b 32 3a d6 45 25 3a ef 39 3a e7 20 |U%V%+2:.E%:.9:. |
00001a90 3f 4c 25 3c 3e 71 25 20 e1 0d 09 56 18 d6 45 25 |?L%<>q% ...V..E%|
00001aa0 3a e7 20 3f 4c 25 3d 71 25 20 56 25 3d 56 25 2b |:. ?L%=q% V%=V%+|
00001ab0 31 0d 09 60 05 e1 0d 09 6a 04 0d 09 74 31 dd f2 |1..`....j...t1..|
00001ac0 77 3a ef 63 79 6e 25 3b 33 31 78 25 33 30 26 42 |w:.cyn%;31x%30&B|
00001ad0 34 3a 53 25 3d 39 3a e7 20 5a 25 28 28 78 25 2b |4:S%=9:. Z%((x%+|
00001ae0 31 29 2f 34 2d 32 29 3d 30 20 e1 0d 09 7e 1e 53 |1)/4-2)=0 ...~.S|
00001af0 25 3d 28 78 25 2b 31 29 2f 34 2d 32 3a d4 32 2c |%=(x%+1)/4-2:.2,|
00001b00 31 2c 32 30 30 2c 31 3a e1 0d 09 88 04 0d 09 92 |1,200,1:........|
00001b10 0a dd f2 66 69 72 65 0d 09 9c 1a ef 33 31 46 25 |...fire.....31F%|
00001b20 48 25 71 25 3a e7 53 25 3d 31 ef 31 30 2c 38 71 |H%q%:.S%=1.10,8q|
00001b30 25 0d 09 a6 13 ef 33 31 46 25 2b 47 25 2c 48 25 |%.....31F%+G%,H%|
00001b40 3a d6 45 25 0d 09 b0 13 e7 20 3f 4c 25 3c 3e 71 |:.E%..... ?L%<>q|
00001b50 25 20 f2 65 78 3a e1 0d 09 ba 22 e7 20 53 25 3d |% .ex:....". S%=|
00001b60 31 20 ef 31 30 3a d6 45 25 3a e7 20 3f 4c 25 3c |1 .10:.E%:. ?L%<|
00001b70 3e 71 25 20 f2 65 78 3a e1 0d 09 c4 2c 46 25 3d |>q% .ex:....,F%=|
00001b80 46 25 2b 47 25 3a ef 67 72 6e 25 3b 33 31 46 25 |F%+G%:.grn%;31F%|
00001b90 48 25 3a e7 20 53 25 3d 34 20 ef 26 42 44 20 8b |H%:. S%=4 .&BD .|
00001ba0 20 ef 26 41 38 0d 09 ce 13 e7 20 53 25 3d 31 20 | .&A8..... S%=1 |
00001bb0 ef 31 30 2c 38 26 41 38 0d 09 d8 2d e7 20 46 25 |.10,8&A8...-. F%|
00001bc0 3e 33 37 84 46 25 3c 32 ef 33 31 46 25 48 25 71 |>37.F%<2.31F%H%q|
00001bd0 25 3a 46 25 3d 30 3a e7 20 53 25 3d 31 20 ef 31 |%:F%=0:. S%=1 .1|
00001be0 30 2c 38 71 25 0d 09 e2 05 e1 0d 09 ec 04 0d 09 |0,8q%...........|
00001bf0 f6 11 dd f2 65 78 3a 46 25 3d 46 25 2b 47 25 0d |....ex:F%=F%+G%.|
00001c00 0a 00 4b e3 54 3d 30 b8 33 3a e7 20 58 25 28 54 |..K.T=0.3:. X%(T|
00001c10 29 3c 3e 39 39 20 e7 20 46 25 3e 58 25 28 54 29 |)<>99 . F%>X%(T)|
00001c20 2d 32 20 e7 20 46 25 3c 58 25 28 54 29 2b 33 20 |-2 . F%<X%(T)+3 |
00001c30 e7 20 48 25 3d 59 25 28 54 29 20 84 20 48 25 3d |. H%=Y%(T) . H%=|
00001c40 59 25 28 54 29 2b 31 20 f2 62 0d 0a 0a 0c ed 3a |Y%(T)+1 .b.....:|
00001c50 46 25 3d 30 3a e1 0d 0a 14 04 0d 0a 1e 1c dd f2 |F%=0:...........|
00001c60 73 65 74 3a e7 20 58 25 3e 33 35 20 e7 20 43 25 |set:. X%>35 . C%|
00001c70 3d 26 41 30 20 e1 0d 0a 28 2f e7 20 53 25 3d 33 |=&A0 ...(/. S%=3|
00001c80 20 e7 20 5a 25 28 33 29 3c 39 20 e3 54 3d 30 b8 | . Z%(3)<9 .T=0.|
00001c90 33 3a f2 62 3a ed 3a 5a 25 28 33 29 3d 39 3a f2 |3:.b:.:Z%(3)=9:.|
00001ca0 65 78 74 72 61 0d 0a 32 0c e7 20 53 25 3e 31 20 |extra..2.. S%>1 |
00001cb0 e1 0d 0a 3c 2f 48 25 3d 59 25 3a e7 20 43 25 3d |...</H%=Y%:. C%=|
00001cc0 26 41 30 20 47 25 3d 32 3a 46 25 3d 58 25 2b 32 |&A0 G%=2:F%=X%+2|
00001cd0 20 8b 20 47 25 3d 2d 32 3a 46 25 3d 58 25 2d 31 | . G%=-2:F%=X%-1|
00001ce0 0d 0a 46 21 ef 33 31 46 25 48 25 3a d6 45 25 3a |..F!.31F%H%:.E%:|
00001cf0 ef 31 30 3a e7 3f 4c 25 3c 3e 71 25 f2 65 78 3a |.10:.?L%<>q%.ex:|
00001d00 e1 0d 0a 50 1a e7 53 25 3d 31 d6 45 25 3a e7 3f |...P..S%=1.E%:.?|
00001d10 4c 25 3c 3e 71 25 f2 65 78 3a e1 0d 0a 5a 21 e7 |L%<>q%.ex:...Z!.|
00001d20 53 25 3d 30 d4 32 2c 31 34 2c 31 31 30 2c 31 8b |S%=0.2,14,110,1.|
00001d30 20 d4 32 2c 31 34 2c 32 30 30 2c 31 0d 0a 64 05 | .2,14,200,1..d.|
00001d40 e1 0d 0a 6e 04 0d 0a 78 14 dd f2 62 3a e7 20 58 |...n...x...b:. X|
00001d50 25 28 54 29 3d 39 39 20 e1 0d 0a 82 46 d4 30 2c |%(T)=99 ....F.0,|
00001d60 34 2c 36 2c 31 3a fb 31 3a f2 63 28 58 25 28 54 |4,6,1:.1:.c(X%(T|
00001d70 29 2c 59 25 28 54 29 2c 26 38 34 29 3a f2 71 28 |),Y%(T),&84):.q(|
00001d80 58 25 28 54 29 2c 59 25 28 54 29 29 3a e7 20 73 |X%(T),Y%(T)):. s|
00001d90 25 3c 31 39 20 58 25 28 54 29 3d 39 39 3a e1 0d |%<19 X%(T)=99:..|
00001da0 0a 8c 04 0d 0a 96 2c dd f2 6c 69 66 65 3a e6 30 |......,..life:.0|
00001db0 2c 30 3a ec 20 57 25 2c 39 31 36 3a df 20 57 25 |,0:. W%,916:. W%|
00001dc0 2c 39 34 30 3a 57 25 3d 57 25 2d 31 36 3a e1 0d |,940:W%=W%-16:..|
00001dd0 0a a0 04 0d 0a aa 25 dd f2 70 3a 70 25 3d 70 25 |......%..p:p%=p%|
00001de0 2b 34 3a f2 74 79 70 28 c3 70 25 2b 22 25 22 2c |+4:.typ(.p%+"%",|
00001df0 33 33 2c 33 30 29 3a e1 0d 0a b4 04 0d 0a be 34 |33,30):........4|
00001e00 dd f2 6e 65 77 3a e7 20 58 25 3d 33 38 20 73 25 |..new:. X%=38 s%|
00001e10 3d 73 25 2b 31 3a 58 25 3d 31 3a 8b e7 20 58 25 |=s%+1:X%=1:.. X%|
00001e20 3d 30 20 73 25 3d 73 25 2d 31 3a 58 25 3d 33 37 |=0 s%=s%-1:X%=37|
00001e30 0d 0a c8 33 e7 20 59 25 3d 36 20 73 25 3d 73 25 |...3. Y%=6 s%=s%|
00001e40 2d 37 3a 59 25 3d 32 32 3a 8b e7 20 59 25 3d 32 |-7:Y%=22:.. Y%=2|
00001e50 33 20 73 25 3d 73 25 2b 37 3a 59 25 3d 37 3a 4a |3 s%=s%+7:Y%=7:J|
00001e60 25 3d 36 0d 0a d2 0d f2 73 63 72 65 65 6e 3a e1 |%=6.....screen:.|
00001e70 0d 0a dc 04 0d 0a e6 12 dd f2 65 6e 64 3a d4 30 |..........end:.0|
00001e80 2c 32 2c 34 2c 39 0d 0a f0 2a e3 59 3d 30 b8 37 |,2,4,9...*.Y=0.7|
00001e90 3a ef 63 79 6e 25 3b 3a f2 63 28 36 2c 31 39 2c |:.cyn%;:.c(6,19,|
00001ea0 26 41 30 29 3a f2 77 61 69 74 28 31 30 2d 59 29 |&A0):.wait(10-Y)|
00001eb0 0d 0a fa 25 f2 77 61 69 74 28 31 30 2d 59 29 3a |...%.wait(10-Y):|
00001ec0 ef 72 65 64 25 3b 3a f2 63 28 36 2c 31 39 2c 26 |.red%;:.c(6,19,&|
00001ed0 41 34 29 3a ed 0d 0b 04 2b f2 71 28 36 2c 31 39 |A4):....+.q(6,19|
00001ee0 29 3a ef 32 38 2c 30 2c 32 34 2c 33 39 2c 36 2c |):.28,0,24,39,6,|
00001ef0 31 32 2c 32 36 3a d4 31 2c 34 2c 32 30 30 2c 31 |12,26:.1,4,200,1|
00001f00 0d 0b 0e 2c f2 74 79 70 28 22 59 4f 55 20 48 41 |...,.typ("YOU HA|
00001f10 56 45 20 45 53 43 41 50 45 44 22 2c 31 32 2c 31 |VE ESCAPED",12,1|
00001f20 33 29 3a 68 70 25 3d 31 30 30 3a e1 0d 0b 18 04 |3):hp%=100:.....|
00001f30 0d 0b 22 3a dd f2 61 28 49 25 2c 42 25 2c 4b 25 |..":..a(I%,B%,K%|
00001f40 29 ef 31 37 4b 25 3a e3 41 25 3d 49 25 b8 20 58 |).17K%:.A%=I%. X|
00001f50 31 20 88 32 3a e7 49 25 3d 58 20 ef 33 31 41 25 |1 .2:.I%=X .31A%|
00001f60 59 20 8b ef 33 31 58 2c 41 25 0d 0b 2c 21 ef 42 |Y ..31X,A%..,!.B|
00001f70 25 2c 42 25 2b 31 2c 31 30 2c 38 2c 38 2c 42 25 |%,B%+1,10,8,8,B%|
00001f80 2b 32 2c 42 25 2b 33 3a ed 3a e1 0d 0b 36 04 0d |+2,B%+3:.:...6..|
00001f90 0b 40 2f dd f2 63 28 58 25 2c 59 25 2c 42 25 29 |.@/..c(X%,Y%,B%)|
00001fa0 ef 33 31 58 25 59 25 42 25 42 25 2b 31 2c 31 30 |.31X%Y%B%B%+1,10|
00001fb0 2c 38 2c 38 42 25 2b 32 42 25 2b 33 3a e1 0d 0b |,8,8B%+2B%+3:...|
00001fc0 4a 04 0d 0b 54 25 dd f2 71 28 58 25 2c 59 25 29 |J...T%..q(X%,Y%)|
00001fd0 ef 33 31 58 25 59 25 71 25 71 25 31 30 2c 38 2c |.31X%Y%q%q%10,8,|
00001fe0 38 71 25 71 25 3a e1 0d 0b 5e 04 0d 0b 68 1e dd |8q%q%:...^...h..|
00001ff0 f2 77 61 69 74 28 54 25 29 54 25 3d 91 2b 54 25 |.wait(T%)T%=.+T%|
00002000 3a f5 fd 91 3e 54 25 3a e1 0d 0b 72 04 0d 0b 7c |:...>T%:...r...||
00002010 09 dd f2 64 69 65 0d 0b 86 4e e3 54 3d 2d 31 b8 |...die...N.T=-1.|
00002020 2d 31 35 88 2d 31 3a d4 30 2c 54 2c 36 2c 31 3a |-15.-1:.0,T,6,1:|
00002030 ed 3a fb 31 3a f2 63 28 58 25 2c 59 25 2c 26 38 |.:.1:.c(X%,Y%,&8|
00002040 34 29 3a d4 30 2c 34 2c 36 2c 31 3a f2 74 79 70 |4):.0,4,6,1:.typ|
00002050 28 22 47 41 4d 45 20 20 4f 56 45 52 22 2c 31 35 |("GAME OVER",15|
00002060 2c 31 33 29 0d 0b 90 65 ef 32 38 2c 30 2c 32 34 |,13)...e.28,0,24|
00002070 2c 33 39 2c 36 2c 31 32 2c 32 36 3a f2 74 79 70 |,39,6,12,26:.typ|
00002080 28 22 42 45 53 54 20 25 41 47 45 3a 22 2b c3 28 |("BEST %AGE:"+.(|
00002090 68 70 25 29 2c 31 34 2c 31 31 29 3a f2 74 79 70 |hp%),14,11):.typ|
000020a0 28 22 59 4f 55 52 20 25 41 47 45 3a 22 2b c3 28 |("YOUR %AGE:"+.(|
000020b0 70 25 29 2c 31 34 2c 39 29 3a e7 20 70 25 3e 68 |p%),14,9):. p%>h|
000020c0 70 25 20 68 70 25 3d 70 25 0d 0b 9a 05 e1 0d 0b |p% hp%=p%.......|
000020d0 a4 04 0d 0b ae 19 eb 37 3a f6 3a f1 22 20 61 74 |.......7:.:." at|
000020e0 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 0b b8 04 0d | line ";.:......|
000020f0 0b c2 1d dc 20 2d 32 2c 2d 31 2c 2d 31 2c 2d 31 |.... -2,-1,-1,-1|
00002100 2c 30 2c 30 2c 31 2c 31 2c 31 2c 32 0d 0b cc a1 |,0,0,1,1,1,2....|
00002110 dc 20 2e 39 3b 2e 43 48 31 2e 45 55 31 30 3d 3f |. .9;.CH1.EU10=?|
00002120 31 43 41 48 31 2e 3c 36 31 4c 3d 53 31 2e 34 55 |1CAH1.<61L=S1.4U|
00002130 31 47 40 47 33 44 36 55 31 3a 36 2e 34 2e 35 43 |1G@G3D6U1:6.4.5C|
00002140 32 32 3a 2e 36 2c 32 46 3c 2e 45 55 31 32 3e 46 |22:.6,2F<.EU12>F|
00002150 31 2e 36 55 31 2e 34 55 31 44 38 40 32 4e 40 55 |1.6U1.4U1D8@2N@U|
00002160 31 49 43 2e 33 4d 3e 2e 33 32 3e 40 32 3a 3c 3e |1IC.3M>.32>@2:<>|
00002170 30 2c 30 34 3e 2e 45 34 31 36 46 55 2f 2e 40 34 |0,04>.E416FU/.@4|
00002180 31 3e 44 55 33 41 40 41 31 4c 40 55 31 2e 36 55 |1>DU3A@A1L@U1.6U|
00002190 31 37 44 30 36 54 42 54 31 2c 32 30 44 2e 46 55 |17D06TBT1,20D.FU|
000021a0 2f 2e 40 44 32 2e 34 55 31 41 36 2e 34 0d 0b d6 |/.@D2.4U1A6.4...|
000021b0 85 dc 20 30 48 43 2e 46 36 2f 36 45 55 31 44 41 |.. 0HC.F6/6EU1DA|
000021c0 45 32 46 3f 43 32 52 3f 43 32 4c 43 4c 33 2e 34 |E2F?C2R?C2LCL3.4|
000021d0 55 31 2c 32 50 43 2e 45 55 31 32 45 51 2f 2e 3f |U1,2PC.EU12EQ/.?|
000021e0 43 32 38 43 4c 33 2e 34 55 31 54 3f 45 32 41 36 |C28CL3.4U1T?E2A6|
000021f0 2e 34 2c 32 52 3d 2e 3f 36 31 2e 45 36 31 2e 34 |.4,2R=.?61.E61.4|
00002200 55 31 54 35 45 32 42 3f 52 31 2e 3f 45 32 48 3d |U1T5E2B?R1.?E2H=|
00002210 4e 30 2c 32 32 39 2e 34 55 31 2e 35 45 32 30 45 |N0,229.4U1.5E20E|
00002220 55 31 30 43 55 33 4e 3f 50 31 44 3b 46 31 32 3b |U10CU3N?P1D;F12;|
00002230 3c 31 0d 0b e0 a2 20 dc 20 32 40 36 2e 34 55 31 |<1.... . 2@6.4U1|
00002240 2e 43 55 31 42 36 38 32 44 3c 43 32 46 3c 4c 31 |.CU1B682D<C2F<L1|
00002250 40 38 40 31 3e 41 3e 33 46 41 4a 30 2c 32 46 39 |@8@1>A>3FAJ0,2F9|
00002260 2e 43 36 31 2e 45 42 31 2e 34 55 31 48 45 55 31 |.C61.EB1.4U1HEU1|
00002270 42 3f 43 32 44 3f 4a 31 44 3b 55 31 46 36 46 34 |B?C2D?J1D;U1F6F4|
00002280 33 41 36 33 2c 32 35 39 2e 45 3c 31 2e 34 55 31 |3A63,259.E<1.4U1|
00002290 2e 3b 38 31 38 35 3b 32 3c 43 42 31 42 41 48 31 |.;8185;2<CB1BAH1|
000022a0 48 3f 50 31 50 3d 55 31 4a 3d 4e 30 42 3f 45 33 |H?P1P=U1J=N0B?E3|
000022b0 38 43 2f 36 2c 32 42 3d 2e 3d 38 31 2e 3f 38 31 |8C/6,2B=.=81.?81|
000022c0 2e 34 55 31 42 3f 42 31 4a 3d 55 31 4a 3f 55 31 |.4U1B?B1J=U1J?U1|
000022d0 41 36 2e 34 0d 0b ea 99 dc 20 32 43 3d 2e 3d 45 |A6.4..... 2C=.=E|
000022e0 32 32 45 55 31 32 45 55 2f 30 3d 45 32 2e 34 55 |22EU12EU/0=E2.4U|
000022f0 31 46 35 3d 32 3e 3f 46 31 2c 2e 52 3a 2e 45 55 |1F5=2>?F1,.R:.EU|
00002300 31 2e 34 36 31 38 3a 3c 30 54 34 44 32 36 34 3e |1.4618:<0T4D264>|
00002310 32 38 3c 3e 31 38 3e 3e 31 40 43 53 31 42 41 53 |28<>18>>1@CS1BAS|
00002320 30 52 3c 52 31 2c 30 31 43 2e 35 43 32 2e 45 55 |0R<R1,01C.5C2.EU|
00002330 35 34 43 48 33 34 3b 43 32 3a 3f 43 32 2e 34 55 |54CH34;C2:?C2.4U|
00002340 35 43 41 43 32 2c 31 31 43 2e 34 34 35 2e 45 34 |5CAC2,11C.445.E4|
00002350 35 34 36 3c 35 34 43 3c 35 3c 38 42 35 3c 41 42 |546<54C<5<8B5<AB|
00002360 35 44 3a 55 35 44 3f 55 35 36 41 31 36 0d 0b f4 |5D:U5D?U56A16...|
00002370 51 dc 20 31 4e 3d 2e 3f 55 35 2e 3a 40 35 42 34 |Q. 1N=.?U5.:@5B4|
00002380 38 32 2e 34 42 31 48 34 38 32 48 34 55 31 4a 3a |82.4B1H482H4U1J:|
00002390 55 35 44 3d 44 30 2c 32 46 3b 2e 45 55 35 2e 44 |U5D=D0,2F;.EU5.D|
000023a0 55 2f 2e 34 55 35 2e 3f 43 32 2e 36 3a 32 42 36 |U/.4U5.?C2.6:2B6|
000023b0 2e 34 3a 3d 3e 35 42 3d 46 35 30 42 46 33 0d 0b |.4:=>5B=F50BF3..|
000023c0 fe 65 dc 20 32 42 42 2e 44 55 35 32 40 50 35 36 |.e. 2BB.DU52@P56|
000023d0 3e 4c 35 36 3e 4c 2f 37 3c 3c 33 2c 31 36 40 2e |>L56>L/7<<3,16@.|
000023e0 44 55 35 2e 34 55 35 36 42 55 35 3e 40 55 35 46 |DU5.4U56BU5>@U5F|
000023f0 3e 55 35 4e 3c 55 35 41 36 2e 34 40 3e 44 30 2c |>U5N<U5A6.4@>D0,|
00002400 32 46 40 31 42 51 33 30 44 50 2f 52 36 44 32 2e |2F@1BQ30DP/R6D2.|
00002410 3c 44 32 2e 45 53 35 2e 34 53 35 30 3c 38 31 48 |<D2.ES5.4S50<81H|
00002420 3e 52 31 0d ff |>R1..|
00002425 
.