Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16a_acorn_eu_1990_november.wav » Danger2

Danger2

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

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

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16a_acorn_eu_1990_november.wav
Filename: Danger2
Read OK: ✔
File size: 19DA bytes
Load address: FFFF1100
Exec address: FFFF8023
Duplicates

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

File contents
    1REM Danger Dog Listing II
    2REM by Matthew Eastmond
    3REM (c) The Micro User
   10 ON ERROR GOTO 1880
   20 DIM b% 21,A$(3),J%(10),X%(3),Y%(3),A%(3),Z%(3)
   30 PROCstart:REPEAT:PROCvars
   40 SOUND1,2,101,6
   50 PROCscreen:REPEAT:PROCsprt
   55IFINKEY-1REPEATUNTILINKEY-2
   60 IF INKEY-74IF F%=0PROCset
   70 IF INKEY-17 VDU31,33,27,32,32,10,8,8,32,32:*FX210 1
   80 IF INKEY-82 VDU31,33,27,219,220,10,8,8,221,222:*FX210 0
   90 Z%=Z%+1:IF Z%=4Z%=0:IF s%>19PROCg
  100 IF F% PROCfire
  110 PROCg:IF X%>37AND C%=224OR X%<1AND C%>224OR Y%=23OR Y%=6PROCnew
  120 UNTIL W%<176 OR X%=6AND Y%=19AND s%=1AND p%=100
  130 IF W%<176 PROCdie ELSE PROCend
  140 UNTIL FALSE
  150 :
  160 DEF PROCsprt:A%=X%:B%=Y%
  170 IF J%(J%)>0 PROCs
  180 IF J%(J%)<0 PROCu
  190 IF S%=2 IF J%(J%)<>0 IF RND(2)=1 J%=J%-1
  200 J%=J%+1:IFJ%=10J%=0:PROCchek
  210 IF INKEY-98 PROCr
  220 IF INKEY-67 PROCl
  230 VDU17,3,31,A%,B%,32,32,10,8,8,32,32,31,X%,Y%,C%,C%+1,10,8,8,C%+2,C%+3
  240 IF INKEY-122IF F%=0IF x%<16VDU31,x%,30,32:x%=x%+4:PROCw:ENDPROC
  250 IF INKEY-26IF F%=0IF x%>10VDU31,x%,30,32:x%=x%-4:PROCw
  260 ENDPROC
  270 :
  280 DEF PROCr:VDU31,X%-1,Y%:CALL&80:VDU10:IF ?&70<>32 PROCd:ENDPROC
  290 CALL&80:IF ?&70<>32PROCd:ENDPROC
  300 X%=X%-1:C%=228:ENDPROC
  310 DEF PROCu:VDU31,X%,Y%-1:CALL&80:VDU9:IF ?&70<>32 J%=6:PROCd:ENDPROC
  320 CALL&80:IF ?&70<>32 J%=6:PROCd:ENDPROC
  330 Y%=Y%-1:ENDPROC
  340 DEF PROCs:VDU31,X%,Y%+2:CALL&80:VDU9:IF ?&70<>32 J%=0:SOUND0,13,3,1:PROCd:ENDPROC
  350 CALL&80:IF ?&70<>32 J%=0:SOUND0,13,3,1:PROCd:ENDPROC  
  360 Y%=Y%+1:ENDPROC
  370 DEF PROCl:VDU31,X%+2,Y%:CALL&80:VDU10:IF ?&70<>32 PROCd:ENDPROC
  380 CALL&80:IF ?&70<>32 PROCd:ENDPROC
  390 X%=X%+1:C%=224:ENDPROC
  400 :
  410 DEF PROCd
  420 IF ?&70>152 AND ?&70<157 OR ?&70>190 AND ?&70<195 OR ?&70=159 OR ?&70>204 AND ?&70<209 OR ?&70>210 AND ?&70<215 SOUND0,4,4,1:PROClife
  430 IF ?&70>140 AND ?&70<144 VDU31,c%,c1%,32,32,10,8,8,32,32,17,2:SOUND3,3,200,1:PROCp:b%?s%=0
  440 IF ?&70>143 IF ?&70<146 IF s%>1 PROCt(1)
  450 IF ?&70>143 IF ?&70<146 IF s%=1 PROCt(0)
  460 IF ?&70>145 IF ?&70<148 PROCt(2)
  470 IF ?&70>148 IF ?&70<153 PROCt(3)
  480 ENDPROC
  490 :
  500 DEF PROCt(Q%):IF Z%(Q%)>0 ENDPROC
  510 Z%(Q%)=1:SOUND1,3,100,1:PROCextra:PROCp:ENDPROC
  520 DEF PROCchek
  530 J%=0:VDU31,X%,Y%+2:CALL&80:VDU9:IF ?&70<>32 SOUND0,13,3,1:PROCd:ENDPROC
  540 CALL&80:IF ?&70<>32 SOUND0,13,3,1:PROCd:ENDPROC  
  550 J%=6
  560 ENDPROC
  570 :
  580 DEF PROCg
  590 I%=X%(Z%):K%=Y%(Z%):IFX%(Z%)=99FORT=0TO15:NEXT:ENDPROC
  600 IF X%(Z%)<X% PROCgr
  610 IF X%(Z%)>X% PROCgl
  620 IF Y%(Z%)>Y% PROCgu
  630 IF Y%(Z%)<Y% PROCgd
  640 VDU31,I%,K%,32,32,10,8,8,32,32,17,2,31,X%(Z%),Y%(Z%):IF I%>X%(Z%) VDU249,250,10,8,8,251,252 ELSE VDU191,192,10,8,8,193,194
  650 ENDPROC
  660 DEF PROCgl:VDU31,X%(Z%)-1,Y%(Z%):CALL&80:IF ?&70<>32 ENDPROC
  670 VDU10:CALL&80:IF ?&70<>32 ENDPROC
  680 X%(Z%)=X%(Z%)-1:ENDPROC
  690 DEF PROCgr:VDU31,X%(Z%)+2,Y%(Z%):CALL&80:VDU10:IF ?&70<>32 ENDPROC
  700 CALL&80:IF ?&70<>32 ENDPROC
  710 X%(Z%)=X%(Z%)+1:ENDPROC
  720 DEF PROCgu:VDU31,X%(Z%),Y%(Z%)-1:CALL&80:VDU9:IF ?&70<>32 ENDPROC
  730 CALL&80:IF ?&70<>32 ENDPROC
  740 Y%(Z%)=Y%(Z%)-1:ENDPROC
  750 DEF PROCgd:VDU31,X%(Z%),Y%(Z%)+2:CALL&80:VDU9:IF ?&70<>32 ENDPROC
  760 CALL&80:IF ?&70<>32 ENDPROC
  770 Y%(Z%)=Y%(Z%)+1:ENDPROC
  780 DEF PROCw:VDU17,3,31,x%,30,244:L%=0:S%=9:IF Z%(((x%+1)/4)-2)=0 ENDPROC
  790 S%=((x%+1)/4)-2:SOUND2,1,200,1:FORT=0TO99:NEXT:ENDPROC
  800 :
  810 DEF PROCfire
  820 VDU31,F%,H%,32:IF S%=1VDU10,8,32
  830 VDU31,F%+G%,H%:CALL&80
  840 IF ?&70<>32 PROCex:ENDPROC
  850 IF S%=1 VDU10:CALL&80:IF ?&70<>32 PROCex:ENDPROC
  860 F%=F%+G%:VDU17,2,31,F%,H%:IF S%=4 VDU253 ELSE VDU232
  870 IF S%=1 VDU10,8,232
  880 IF F%>37ORF%<2VDU31,F%,H%,32:F%=0:IF S%=1 VDU10,8,32
  890 ENDPROC
  900 :
  910 DEF PROCex
  920 F%=F%+G%:FORT=0TO3:IF F%>X%(T)-2 IF F%<X%(T)+3 IF H%=Y%(T) OR H%=Y%(T)+1 PROCb
  930 NEXT:F%=0
  940 ENDPROC
  950 :
  960 DEF PROCset
  970 IF X%>35 AND C%=224 ENDPROC
  980 IF S%=3 IF Z%(3)<9 FORT=0TO3:PROCb:NEXT:Z%(3)=9:PROCextra
  990 IF S%>1ENDPROC
 1000 H%=Y%:IF C%=224 G%=2:F%=X%+2 ELSE G%=-2:F%=X%-1
 1010 VDU31,F%,H%:CALL&80:VDU10
 1020 IF?&70<>32PROCex:ENDPROC
 1030 IFS%=1CALL&80:IF?&70<>32PROCex
 1040 IF S%=0SOUND2,14,110,1ELSE SOUND2,14,200,1
 1050 ENDPROC
 1060 :
 1070 DEF PROCb:IF X%(T)=99 ENDPROC
 1080 SOUND0,4,6,1:VDU17,1,31,X%(T),Y%(T),196,197,10,8,8,198,199:FORY=0TO169:NEXT:VDU31,X%(T),Y%(T),32,32,10,8,8,32,32:IF s%<19 X%(T)=99:ENDPROC
 1090 :
 1100 DEF PROCextra
 1110 A=0:FORT=6TO18STEP4
 1120 VDU31,T,27,32,32,10,8,8,32,32
 1130 IF Z%(A)=1 PRINTTAB(T,27);A$(A)
 1140 A=A+1:NEXT:PROCw:COLOUR2
 1150 ENDPROC
 1160 :
 1170 DEF PROClife
 1180 GCOL0,0:MOVE W%,916:DRAW W%,940
 1190 W%=W%-16
 1200 ENDPROC
 1210 :
 1220 DEF PROCp:p%=p%+4:PROCtyp(STR$(p%)+"%",33,30):ENDPROC
 1230 DEF PROCnew
 1240 IF X%=38 s%=s%+1:X%=1
 1250 IF X%=0 s%=s%-1:X%=37
 1260 IF Y%=6 s%=s%-7:Y%=22
 1270 IF Y%=23 s%=s%+7:Y%=7:J%=6
 1280 PROCscreen:ENDPROC
 1290 :
 1300 DEF PROCend
 1310 SOUND0,2,4,9
 1320 FORY=0TO7:VDU17,3,31,6,19,224,225,10,8,8,226,227:FORT=0TO499:NEXT:VDU31,6,19,228,229,10,8,8,230,231:FORT=0TO499:NEXT:NEXT
 1330 VDU31,6,19,32,32,10,8,8,32,32,28,0,24,39,6,12,26:SOUND1,4,200,1
 1340 PROCtyp("YOU HAVE ESCAPED",12,13)
 1350 FORT=0TO4999:NEXT:hp%=100
 1360 ENDPROC
 1370 :
 1380 DEF PROCscreen
 1390 VDU19,2,2;0;19,3,6;0;19,1,1;0;28,0,24,39,6,12,26:IF s%>14 VDU19,1,5;0;19,3,4;0;
 1400 RESTORE 1810:IF s%>1 FORT=1TO s%-1:READ A$:NEXT
 1410 READ A$:D%=ASC(MID$(A$,1,1))-46:c%=ASC(MID$(A$,2,1))-46:c1%=ASC(MID$(A$,3,1))-46:IF b%?s%=1 VDU31,c%,c1%,17,2,237,10,8,238,239
 1420 FORP%=4 TO LEN(A$)STEP4:X=ASC(MID$(A$,P%,1))-46:Y=ASC(MID$(A$,P%+1,1))-46:X1=ASC(MID$(A$,P%+2,1))-46:K=ASC(MID$(A$,P%+3,1))-46
 1430 IF K=1 VDU17,2:FORA%=X TO X1 STEP4:VDU31,A%,Y,233,234,235,236:NEXT
 1440 IF K=2 PROCa(X,211,3)
 1450 IF K=3 VDU17,1:FORA%=X TO X1 STEP2:VDU31,A%,Y,201,202,10,8,8,203,204:NEXT
 1460 IF K=4 PROCa(Y,201,1)
 1470 IF K=5 FORA%=X TO X1 STEP3:VDU17,1,31,A%,Y,205,206,10,8,8,17,2,207,208:NEXT
 1480 IF K=6 VDU31,X,Y,17,3,209,9,209,10,8,8,8,210,9,210
 1490 IF K=7 PROCa(X,215,3)
 1500 IF K=8 PRINTTAB(X,Y);A$(X1)
 1510 NEXT
 1520 IF s%=1 COLOUR2:PROCtyp("TELEPORT",3,17)
 1530 F%=0:FORT=0TO3:X%(T)=99:NEXT:IF D%>0 RESTORE 1550:FORT=1TO D%:READ X%(T-1),Y%(T-1):NEXT
 1540 ENDPROC
 1550 DATA 18,14,30,10,20,13,22,10
 1560 :
 1570 DEF PROCa(I%,B%,K%):VDU17,K%:FORA%=I% TO X1 STEP2:IF I%=X VDU31,A%,Y ELSE VDU31,X,A%
 1580 VDU B%,B%+1,10,8,8,B%+2,B%+3
 1590 NEXT:ENDPROC
 1600 :
 1610 DEF PROCdie
 1620 FORT=-1TO-15STEP-1:SOUND0,T,6,1:NEXT:FORT=0TO999:NEXT:VDU31,X%,Y%,17,1,196,197,10,8,8,198,199:SOUND0,4,6,1:PROCtyp("GAME  OVER",15,13)
 1630 FORT=0TO2999:NEXT:VDU28,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%
 1640 ENDPROC
 1650 :
 1660 DEF PROCstart
 1670 A$(0)=CHR$17+CHR$1+CHR$240+CHR$241:A$(1)=CHR$17+CHR$1+CHR$240+CHR$241+CHR$10+CHR$8+CHR$8+CHR$240+CHR$241:A$(2)=CHR$17+CHR$2+CHR$242+CHR$243+CHR$10+CHR$8+CHR$8+CHR$242+CHR$243
 1680 A$(3)=CHR$17+CHR$1+CHR$245+CHR$246+CHR$10+CHR$8+CHR$8+CHR$247+CHR$248:hp%=0
 1690 ENDPROC
 1700 :
 1710 DEF PROCvars
 1720 FORT=0TO3:Z%(T)=0:NEXT:GCOL0,1:FORW%=192 TO1088STEP16:SOUND0,15,4,1:MOVEW%,916:DRAWW%,940:IF W%>300 GCOL0,2
 1730 NEXT:PRINTTAB(0,30);SPC(39)
 1740 S%=9:Z%=0:s%=1:X%=8:Y%=11 
 1750 J%=0:C%=224:p%=0:x%=7
 1760 VDU17,3,31,x%,30,244:RESTORE1800
 1770 FORT=0TO9:READ J%(T):NEXT
 1780 FORT=1TO21:b%?T=1:NEXT:PROCextra:COLOUR3:PROCtyp("PRESS  SPACE",14,14):REPEAT UNTIL INKEY-99
 1790 ENDPROC
 1800 DATA -2,-1,-1,-1,0,0,1,1,1,2
 1810 DATA .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
 1820 DATA 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
 1830 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
 1840 DATA 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
 1850 DATA 1N=.?U5.:@5B482.4B1H482H4U1J:U5D=D0,2F;.EU5.DU/.4U5.?C2.6:2B6.4:=>5B=F50BF3
 1860 DATA 2BB.DU52@P56>L56>L/7<<3,16@.DU5.4U56BU5>@U5F>U5N<U5A6.4@>D0,2F@1BQ30DP/R6D2.<D2.ES5.4S50<81H>R1
 1870 DEF PROCtyp(A$,x%,y%):LOCAL A%,N%,X%,Y%:X%=&70:Y%=0:A%=10:FOR N%=1 TO LEN(A$):?&70=ASC(MID$(A$,N%)):CALL &FFF1:VDU23,223,0,?&71,?&73,?&74,?&75,?&77,?&78,0,31,x%+N%-1,y%,223:NEXT:ENDPROC
 1880 MODE7:REPORT:PRINT" at line ";ERL:END

� Danger Dog Listing II
� by Matthew Eastmond
� (c) The Micro User

 � � � �DXG
1 � b% 21,A$(3),J%(10),X%(3),Y%(3),A%(3),Z%(3)
 �start:�:�vars
( �1,2,101,6
2 �screen:�:�sprt
7
�-1���-2
< � �-74� F%=0�set
F1 � �-17 �31,33,27,32,32,10,8,8,32,32:*FX210 1
P5 � �-82 �31,33,27,219,220,10,8,8,221,222:*FX210 0
Z! Z%=Z%+1:� Z%=4Z%=0:� s%>19�g
d � F% �fire
n6 �g:� X%>37� C%=224� X%<1� C%>224� Y%=23� Y%=6�new
x) � W%<176 � X%=6� Y%=19� s%=1� p%=100
� � W%<176 �die � �end
� � �
� :
� � �sprt:A%=X%:B%=Y%
� � J%(J%)>0 �s
� � J%(J%)<0 �u
�( � S%=2 � J%(J%)<>0 � �(2)=1 J%=J%-1
� J%=J%+1:�J%=10J%=0:�chek
� � �-98 �r
� � �-67 �l
�H �17,3,31,A%,B%,32,32,10,8,8,32,32,31,X%,Y%,C%,C%+1,10,8,8,C%+2,C%+3
�2 � �-122� F%=0� x%<16�31,x%,30,32:x%=x%+4:�w:�
�/ � �-26� F%=0� x%>10�31,x%,30,32:x%=x%-4:�w
 �
 :
. � �r:�31,X%-1,Y%:�&80:�10:� ?&70<>32 �d:�
" �&80:� ?&70<>32�d:�
, X%=X%-1:C%=228:�
62 � �u:�31,X%,Y%-1:�&80:�9:� ?&70<>32 J%=6:�d:�
@ �&80:� ?&70<>32 J%=6:�d:�
J Y%=Y%-1:�
T< � �s:�31,X%,Y%+2:�&80:�9:� ?&70<>32 J%=0:�0,13,3,1:�d:�
^* �&80:� ?&70<>32 J%=0:�0,13,3,1:�d:�  
h Y%=Y%+1:�
r. � �l:�31,X%+2,Y%:�&80:�10:� ?&70<>32 �d:�
| �&80:� ?&70<>32 �d:�
� X%=X%+1:C%=224:�
� :
�	 � �d
�v � ?&70>152 � ?&70<157 � ?&70>190 � ?&70<195 � ?&70=159 � ?&70>204 � ?&70<209 � ?&70>210 � ?&70<215 �0,4,4,1:�life
�S � ?&70>140 � ?&70<144 �31,c%,c1%,32,32,10,8,8,32,32,17,2:�3,3,200,1:�p:b%?s%=0
�' � ?&70>143 � ?&70<146 � s%>1 �t(1)
�' � ?&70>143 � ?&70<146 � s%=1 �t(0)
�  � ?&70>145 � ?&70<148 �t(2)
�  � ?&70>148 � ?&70<153 �t(3)
� �
� :
� � �t(Q%):� Z%(Q%)>0 �
�$ Z%(Q%)=1:�1,3,100,1:�extra:�p:�
 � �chek
7 J%=0:�31,X%,Y%+2:�&80:�9:� ?&70<>32 �0,13,3,1:�d:�
% �&80:� ?&70<>32 �0,13,3,1:�d:�  
&	 J%=6
0 �
: :
D	 � �g
N. I%=X%(Z%):K%=Y%(Z%):�X%(Z%)=99�T=0�15:�:�
X � X%(Z%)<X% �gr
b � X%(Z%)>X% �gl
l � Y%(Z%)>Y% �gu
v � Y%(Z%)<Y% �gd
�u �31,I%,K%,32,32,10,8,8,32,32,17,2,31,X%(Z%),Y%(Z%):� I%>X%(Z%) �249,250,10,8,8,251,252 � �191,192,10,8,8,193,194
� �
�0 � �gl:�31,X%(Z%)-1,Y%(Z%):�&80:� ?&70<>32 �
� �10:�&80:� ?&70<>32 �
� X%(Z%)=X%(Z%)-1:�
�4 � �gr:�31,X%(Z%)+2,Y%(Z%):�&80:�10:� ?&70<>32 �
� �&80:� ?&70<>32 �
� X%(Z%)=X%(Z%)+1:�
�3 � �gu:�31,X%(Z%),Y%(Z%)-1:�&80:�9:� ?&70<>32 �
� �&80:� ?&70<>32 �
� Y%(Z%)=Y%(Z%)-1:�
�3 � �gd:�31,X%(Z%),Y%(Z%)+2:�&80:�9:� ?&70<>32 �
� �&80:� ?&70<>32 �
 Y%(Z%)=Y%(Z%)+1:�
= � �w:�17,3,31,x%,30,244:L%=0:S%=9:� Z%(((x%+1)/4)-2)=0 �
+ S%=((x%+1)/4)-2:�2,1,200,1:�T=0�99:�:�
  :
* � �fire
4  �31,F%,H%,32:� S%=1�10,8,32
> �31,F%+G%,H%:�&80
H � ?&70<>32 �ex:�
R% � S%=1 �10:�&80:� ?&70<>32 �ex:�
\/ F%=F%+G%:�17,2,31,F%,H%:� S%=4 �253 � �232
f � S%=1 �10,8,232
p2 � F%>37�F%<2�31,F%,H%,32:F%=0:� S%=1 �10,8,32
z �
� :
�
 � �ex
�I F%=F%+G%:�T=0�3:� F%>X%(T)-2 � F%<X%(T)+3 � H%=Y%(T) � H%=Y%(T)+1 �b
� �:F%=0
� �
� :
� � �set
� � X%>35 � C%=224 �
�0 � S%=3 � Z%(3)<9 �T=0�3:�b:�:Z%(3)=9:�extra
� � S%>1�
�0 H%=Y%:� C%=224 G%=2:F%=X%+2 � G%=-2:F%=X%-1
� �31,F%,H%:�&80:�10
� �?&70<>32�ex:�
 �S%=1�&80:�?&70<>32�ex
# � S%=0�2,14,110,1� �2,14,200,1
 �
$ :
. � �b:� X%(T)=99 �
8z �0,4,6,1:�17,1,31,X%(T),Y%(T),196,197,10,8,8,198,199:�Y=0�169:�:�31,X%(T),Y%(T),32,32,10,8,8,32,32:� s%<19 X%(T)=99:�
B :
L
 � �extra
V A=0:�T=6�18�4
`  �31,T,27,32,32,10,8,8,32,32
j � Z%(A)=1 �T,27);A$(A)
t A=A+1:�:�w:�2
~ �
� :
� � �life
� �0,0:� W%,916:� W%,940
�
 W%=W%-16
� �
� :
�) � �p:p%=p%+4:�typ(�(p%)+"%",33,30):�
� � �new
� � X%=38 s%=s%+1:X%=1
� � X%=0 s%=s%-1:X%=37
� � Y%=6 s%=s%-7:Y%=22
� � Y%=23 s%=s%+7:Y%=7:J%=6
 �screen:�

 :
 � �end

 �0,2,4,9
(h �Y=0�7:�17,3,31,6,19,224,225,10,8,8,226,227:�T=0�499:�:�31,6,19,228,229,10,8,8,230,231:�T=0�499:�:�
2> �31,6,19,32,32,10,8,8,32,32,28,0,24,39,6,12,26:�1,4,200,1
<# �typ("YOU HAVE ESCAPED",12,13)
F �T=0�4999:�:hp%=100
P �
Z :
d � �screen
nO �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;
x$ � �TRG:� s%>1 �T=1� s%-1:� A$:�
�k � A$:D%=�(�A$,1,1))-46:c%=�(�A$,2,1))-46:c1%=�(�A$,3,1))-46:� b%?s%=1 �31,c%,c1%,17,2,237,10,8,238,239
�c �P%=4 � �(A$)�4:X=�(�A$,P%,1))-46:Y=�(�A$,P%+1,1))-46:X1=�(�A$,P%+2,1))-46:K=�(�A$,P%+3,1))-46
�9 � K=1 �17,2:�A%=X � X1 �4:�31,A%,Y,233,234,235,236:�
� � K=2 �a(X,211,3)
�@ � K=3 �17,1:�A%=X � X1 �2:�31,A%,Y,201,202,10,8,8,203,204:�
� � K=4 �a(Y,201,1)
�D � K=5 �A%=X � X1 �3:�17,1,31,A%,Y,205,206,10,8,8,17,2,207,208:�
�4 � K=6 �31,X,Y,17,3,209,9,209,10,8,8,8,210,9,210
� � K=7 �a(X,215,3)
� � K=8 �X,Y);A$(X1)
� �
�$ � s%=1 �2:�typ("TELEPORT",3,17)
�F F%=0:�T=0�3:X%(T)=99:�:� D%>0 � �TNF:�T=1� D%:� X%(T-1),Y%(T-1):�
 �
 � 18,14,30,10,20,13,22,10
 :
"D � �a(I%,B%,K%):�17,K%:�A%=I% � X1 �2:� I%=X �31,A%,Y � �31,X,A%
, � B%,B%+1,10,8,8,B%+2,B%+3
6 �:�
@ :
J � �die
To �T=-1�-15�-1:�0,T,6,1:�:�T=0�999:�:�31,X%,Y%,17,1,196,197,10,8,8,198,199:�0,4,6,1:�typ("GAME  OVER",15,13)
^r �T=0�2999:�:�28,0,24,39,6,12,26:�typ("BEST %AGE:"+�(hp%),14,11):�typ("YOUR %AGE:"+�(p%),14,9):� p%>hp% hp%=p%
h �
r :
|
 � �start
�q A$(0)=�17+�1+�240+�241:A$(1)=�17+�1+�240+�241+�10+�8+�8+�240+�241:A$(2)=�17+�2+�242+�243+�10+�8+�8+�242+�243
�5 A$(3)=�17+�1+�245+�246+�10+�8+�8+�247+�248:hp%=0
� �
� :
� � �vars
�S �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%=224:p%=0:x%=7
� �17,3,31,x%,30,244:��THG
� �T=0�9:� J%(T):�
�C �T=1�21:b%?T=1:�:�extra:�3:�typ("PRESS  SPACE",14,14):� � �-99
� �
 � -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
0� � 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
:R � 1N=.?U5.:@5B482.4B1H482H4U1J:U5D=D0,2F;.EU5.DU/.4U5.?C2.6:2B6.4:=>5B=F50BF3
Df � 2BB.DU52@P56>L56>L/7<<3,16@.DU5.4U56BU5>@U5F>U5N<U5A6.4@>D0,2F@1BQ30DP/R6D2.<D2.ES5.4S50<81H>R1
N� � �typ(A$,x%,y%):� A%,N%,X%,Y%:X%=&70:Y%=0:A%=10:� N%=1 � �(A$):?&70=�(�A$,N%)):� &FFF1:�23,223,0,?&71,?&73,?&74,?&75,?&77,?&78,0,31,x%+N%-1,y%,223:�:�
X �7:�:�" at line ";�:�
�
00000000  0d 00 01 1b f4 20 44 61  6e 67 65 72 20 44 6f 67  |..... Danger Dog|
00000010  20 4c 69 73 74 69 6e 67  20 49 49 0d 00 02 19 f4  | Listing II.....|
00000020  20 62 79 20 4d 61 74 74  68 65 77 20 45 61 73 74  | by Matthew East|
00000030  6d 6f 6e 64 0d 00 03 18  f4 20 28 63 29 20 54 68  |mond..... (c) Th|
00000040  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 0a 0f  |e Micro User....|
00000050  20 ee 20 85 20 e5 20 8d  44 58 47 0d 00 14 31 20  | . . . .DXG...1 |
00000060  de 20 62 25 20 32 31 2c  41 24 28 33 29 2c 4a 25  |. b% 21,A$(3),J%|
00000070  28 31 30 29 2c 58 25 28  33 29 2c 59 25 28 33 29  |(10),X%(3),Y%(3)|
00000080  2c 41 25 28 33 29 2c 5a  25 28 33 29 0d 00 1e 13  |,A%(3),Z%(3)....|
00000090  20 f2 73 74 61 72 74 3a  f5 3a f2 76 61 72 73 0d  | .start:.:.vars.|
000000a0  00 28 0f 20 d4 31 2c 32  2c 31 30 31 2c 36 0d 00  |.(. .1,2,101,6..|
000000b0  32 14 20 f2 73 63 72 65  65 6e 3a f5 3a f2 73 70  |2. .screen:.:.sp|
000000c0  72 74 0d 00 37 0d e7 a6  2d 31 f5 fd a6 2d 32 0d  |rt..7...-1...-2.|
000000d0  00 3c 15 20 e7 20 a6 2d  37 34 e7 20 46 25 3d 30  |.<. . .-74. F%=0|
000000e0  f2 73 65 74 0d 00 46 31  20 e7 20 a6 2d 31 37 20  |.set..F1 . .-17 |
000000f0  ef 33 31 2c 33 33 2c 32  37 2c 33 32 2c 33 32 2c  |.31,33,27,32,32,|
00000100  31 30 2c 38 2c 38 2c 33  32 2c 33 32 3a 2a 46 58  |10,8,8,32,32:*FX|
00000110  32 31 30 20 31 0d 00 50  35 20 e7 20 a6 2d 38 32  |210 1..P5 . .-82|
00000120  20 ef 33 31 2c 33 33 2c  32 37 2c 32 31 39 2c 32  | .31,33,27,219,2|
00000130  32 30 2c 31 30 2c 38 2c  38 2c 32 32 31 2c 32 32  |20,10,8,8,221,22|
00000140  32 3a 2a 46 58 32 31 30  20 30 0d 00 5a 21 20 5a  |2:*FX210 0..Z! Z|
00000150  25 3d 5a 25 2b 31 3a e7  20 5a 25 3d 34 5a 25 3d  |%=Z%+1:. Z%=4Z%=|
00000160  30 3a e7 20 73 25 3e 31  39 f2 67 0d 00 64 0f 20  |0:. s%>19.g..d. |
00000170  e7 20 46 25 20 f2 66 69  72 65 0d 00 6e 36 20 f2  |. F% .fire..n6 .|
00000180  67 3a e7 20 58 25 3e 33  37 80 20 43 25 3d 32 32  |g:. X%>37. C%=22|
00000190  34 84 20 58 25 3c 31 80  20 43 25 3e 32 32 34 84  |4. X%<1. C%>224.|
000001a0  20 59 25 3d 32 33 84 20  59 25 3d 36 f2 6e 65 77  | Y%=23. Y%=6.new|
000001b0  0d 00 78 29 20 fd 20 57  25 3c 31 37 36 20 84 20  |..x) . W%<176 . |
000001c0  58 25 3d 36 80 20 59 25  3d 31 39 80 20 73 25 3d  |X%=6. Y%=19. s%=|
000001d0  31 80 20 70 25 3d 31 30  30 0d 00 82 19 20 e7 20  |1. p%=100.... . |
000001e0  57 25 3c 31 37 36 20 f2  64 69 65 20 8b 20 f2 65  |W%<176 .die . .e|
000001f0  6e 64 0d 00 8c 08 20 fd  20 a3 0d 00 96 06 20 3a  |nd.... . ..... :|
00000200  0d 00 a0 18 20 dd 20 f2  73 70 72 74 3a 41 25 3d  |.... . .sprt:A%=|
00000210  58 25 3a 42 25 3d 59 25  0d 00 aa 12 20 e7 20 4a  |X%:B%=Y%.... . J|
00000220  25 28 4a 25 29 3e 30 20  f2 73 0d 00 b4 12 20 e7  |%(J%)>0 .s.... .|
00000230  20 4a 25 28 4a 25 29 3c  30 20 f2 75 0d 00 be 28  | J%(J%)<0 .u...(|
00000240  20 e7 20 53 25 3d 32 20  e7 20 4a 25 28 4a 25 29  | . S%=2 . J%(J%)|
00000250  3c 3e 30 20 e7 20 b3 28  32 29 3d 31 20 4a 25 3d  |<>0 . .(2)=1 J%=|
00000260  4a 25 2d 31 0d 00 c8 1d  20 4a 25 3d 4a 25 2b 31  |J%-1.... J%=J%+1|
00000270  3a e7 4a 25 3d 31 30 4a  25 3d 30 3a f2 63 68 65  |:.J%=10J%=0:.che|
00000280  6b 0d 00 d2 0e 20 e7 20  a6 2d 39 38 20 f2 72 0d  |k.... . .-98 .r.|
00000290  00 dc 0e 20 e7 20 a6 2d  36 37 20 f2 6c 0d 00 e6  |... . .-67 .l...|
000002a0  48 20 ef 31 37 2c 33 2c  33 31 2c 41 25 2c 42 25  |H .17,3,31,A%,B%|
000002b0  2c 33 32 2c 33 32 2c 31  30 2c 38 2c 38 2c 33 32  |,32,32,10,8,8,32|
000002c0  2c 33 32 2c 33 31 2c 58  25 2c 59 25 2c 43 25 2c  |,32,31,X%,Y%,C%,|
000002d0  43 25 2b 31 2c 31 30 2c  38 2c 38 2c 43 25 2b 32  |C%+1,10,8,8,C%+2|
000002e0  2c 43 25 2b 33 0d 00 f0  32 20 e7 20 a6 2d 31 32  |,C%+3...2 . .-12|
000002f0  32 e7 20 46 25 3d 30 e7  20 78 25 3c 31 36 ef 33  |2. F%=0. x%<16.3|
00000300  31 2c 78 25 2c 33 30 2c  33 32 3a 78 25 3d 78 25  |1,x%,30,32:x%=x%|
00000310  2b 34 3a f2 77 3a e1 0d  00 fa 2f 20 e7 20 a6 2d  |+4:.w:..../ . .-|
00000320  32 36 e7 20 46 25 3d 30  e7 20 78 25 3e 31 30 ef  |26. F%=0. x%>10.|
00000330  33 31 2c 78 25 2c 33 30  2c 33 32 3a 78 25 3d 78  |31,x%,30,32:x%=x|
00000340  25 2d 34 3a f2 77 0d 01  04 06 20 e1 0d 01 0e 06  |%-4:.w.... .....|
00000350  20 3a 0d 01 18 2e 20 dd  20 f2 72 3a ef 33 31 2c  | :.... . .r:.31,|
00000360  58 25 2d 31 2c 59 25 3a  d6 26 38 30 3a ef 31 30  |X%-1,Y%:.&80:.10|
00000370  3a e7 20 3f 26 37 30 3c  3e 33 32 20 f2 64 3a e1  |:. ?&70<>32 .d:.|
00000380  0d 01 22 18 20 d6 26 38  30 3a e7 20 3f 26 37 30  |..". .&80:. ?&70|
00000390  3c 3e 33 32 f2 64 3a e1  0d 01 2c 15 20 58 25 3d  |<>32.d:...,. X%=|
000003a0  58 25 2d 31 3a 43 25 3d  32 32 38 3a e1 0d 01 36  |X%-1:C%=228:...6|
000003b0  32 20 dd 20 f2 75 3a ef  33 31 2c 58 25 2c 59 25  |2 . .u:.31,X%,Y%|
000003c0  2d 31 3a d6 26 38 30 3a  ef 39 3a e7 20 3f 26 37  |-1:.&80:.9:. ?&7|
000003d0  30 3c 3e 33 32 20 4a 25  3d 36 3a f2 64 3a e1 0d  |0<>32 J%=6:.d:..|
000003e0  01 40 1e 20 d6 26 38 30  3a e7 20 3f 26 37 30 3c  |.@. .&80:. ?&70<|
000003f0  3e 33 32 20 4a 25 3d 36  3a f2 64 3a e1 0d 01 4a  |>32 J%=6:.d:...J|
00000400  0e 20 59 25 3d 59 25 2d  31 3a e1 0d 01 54 3c 20  |. Y%=Y%-1:...T< |
00000410  dd 20 f2 73 3a ef 33 31  2c 58 25 2c 59 25 2b 32  |. .s:.31,X%,Y%+2|
00000420  3a d6 26 38 30 3a ef 39  3a e7 20 3f 26 37 30 3c  |:.&80:.9:. ?&70<|
00000430  3e 33 32 20 4a 25 3d 30  3a d4 30 2c 31 33 2c 33  |>32 J%=0:.0,13,3|
00000440  2c 31 3a f2 64 3a e1 0d  01 5e 2a 20 d6 26 38 30  |,1:.d:...^* .&80|
00000450  3a e7 20 3f 26 37 30 3c  3e 33 32 20 4a 25 3d 30  |:. ?&70<>32 J%=0|
00000460  3a d4 30 2c 31 33 2c 33  2c 31 3a f2 64 3a e1 20  |:.0,13,3,1:.d:. |
00000470  20 0d 01 68 0e 20 59 25  3d 59 25 2b 31 3a e1 0d  | ..h. Y%=Y%+1:..|
00000480  01 72 2e 20 dd 20 f2 6c  3a ef 33 31 2c 58 25 2b  |.r. . .l:.31,X%+|
00000490  32 2c 59 25 3a d6 26 38  30 3a ef 31 30 3a e7 20  |2,Y%:.&80:.10:. |
000004a0  3f 26 37 30 3c 3e 33 32  20 f2 64 3a e1 0d 01 7c  |?&70<>32 .d:...||
000004b0  19 20 d6 26 38 30 3a e7  20 3f 26 37 30 3c 3e 33  |. .&80:. ?&70<>3|
000004c0  32 20 f2 64 3a e1 0d 01  86 15 20 58 25 3d 58 25  |2 .d:..... X%=X%|
000004d0  2b 31 3a 43 25 3d 32 32  34 3a e1 0d 01 90 06 20  |+1:C%=224:..... |
000004e0  3a 0d 01 9a 09 20 dd 20  f2 64 0d 01 a4 76 20 e7  |:.... . .d...v .|
000004f0  20 3f 26 37 30 3e 31 35  32 20 80 20 3f 26 37 30  | ?&70>152 . ?&70|
00000500  3c 31 35 37 20 84 20 3f  26 37 30 3e 31 39 30 20  |<157 . ?&70>190 |
00000510  80 20 3f 26 37 30 3c 31  39 35 20 84 20 3f 26 37  |. ?&70<195 . ?&7|
00000520  30 3d 31 35 39 20 84 20  3f 26 37 30 3e 32 30 34  |0=159 . ?&70>204|
00000530  20 80 20 3f 26 37 30 3c  32 30 39 20 84 20 3f 26  | . ?&70<209 . ?&|
00000540  37 30 3e 32 31 30 20 80  20 3f 26 37 30 3c 32 31  |70>210 . ?&70<21|
00000550  35 20 d4 30 2c 34 2c 34  2c 31 3a f2 6c 69 66 65  |5 .0,4,4,1:.life|
00000560  0d 01 ae 53 20 e7 20 3f  26 37 30 3e 31 34 30 20  |...S . ?&70>140 |
00000570  80 20 3f 26 37 30 3c 31  34 34 20 ef 33 31 2c 63  |. ?&70<144 .31,c|
00000580  25 2c 63 31 25 2c 33 32  2c 33 32 2c 31 30 2c 38  |%,c1%,32,32,10,8|
00000590  2c 38 2c 33 32 2c 33 32  2c 31 37 2c 32 3a d4 33  |,8,32,32,17,2:.3|
000005a0  2c 33 2c 32 30 30 2c 31  3a f2 70 3a 62 25 3f 73  |,3,200,1:.p:b%?s|
000005b0  25 3d 30 0d 01 b8 27 20  e7 20 3f 26 37 30 3e 31  |%=0...' . ?&70>1|
000005c0  34 33 20 e7 20 3f 26 37  30 3c 31 34 36 20 e7 20  |43 . ?&70<146 . |
000005d0  73 25 3e 31 20 f2 74 28  31 29 0d 01 c2 27 20 e7  |s%>1 .t(1)...' .|
000005e0  20 3f 26 37 30 3e 31 34  33 20 e7 20 3f 26 37 30  | ?&70>143 . ?&70|
000005f0  3c 31 34 36 20 e7 20 73  25 3d 31 20 f2 74 28 30  |<146 . s%=1 .t(0|
00000600  29 0d 01 cc 20 20 e7 20  3f 26 37 30 3e 31 34 35  |)...  . ?&70>145|
00000610  20 e7 20 3f 26 37 30 3c  31 34 38 20 f2 74 28 32  | . ?&70<148 .t(2|
00000620  29 0d 01 d6 20 20 e7 20  3f 26 37 30 3e 31 34 38  |)...  . ?&70>148|
00000630  20 e7 20 3f 26 37 30 3c  31 35 33 20 f2 74 28 33  | . ?&70<153 .t(3|
00000640  29 0d 01 e0 06 20 e1 0d  01 ea 06 20 3a 0d 01 f4  |).... ..... :...|
00000650  1a 20 dd 20 f2 74 28 51  25 29 3a e7 20 5a 25 28  |. . .t(Q%):. Z%(|
00000660  51 25 29 3e 30 20 e1 0d  01 fe 24 20 5a 25 28 51  |Q%)>0 ....$ Z%(Q|
00000670  25 29 3d 31 3a d4 31 2c  33 2c 31 30 30 2c 31 3a  |%)=1:.1,3,100,1:|
00000680  f2 65 78 74 72 61 3a f2  70 3a e1 0d 02 08 0c 20  |.extra:.p:..... |
00000690  dd 20 f2 63 68 65 6b 0d  02 12 37 20 4a 25 3d 30  |. .chek...7 J%=0|
000006a0  3a ef 33 31 2c 58 25 2c  59 25 2b 32 3a d6 26 38  |:.31,X%,Y%+2:.&8|
000006b0  30 3a ef 39 3a e7 20 3f  26 37 30 3c 3e 33 32 20  |0:.9:. ?&70<>32 |
000006c0  d4 30 2c 31 33 2c 33 2c  31 3a f2 64 3a e1 0d 02  |.0,13,3,1:.d:...|
000006d0  1c 25 20 d6 26 38 30 3a  e7 20 3f 26 37 30 3c 3e  |.% .&80:. ?&70<>|
000006e0  33 32 20 d4 30 2c 31 33  2c 33 2c 31 3a f2 64 3a  |32 .0,13,3,1:.d:|
000006f0  e1 20 20 0d 02 26 09 20  4a 25 3d 36 0d 02 30 06  |.  ..&. J%=6..0.|
00000700  20 e1 0d 02 3a 06 20 3a  0d 02 44 09 20 dd 20 f2  | ...:. :..D. . .|
00000710  67 0d 02 4e 2e 20 49 25  3d 58 25 28 5a 25 29 3a  |g..N. I%=X%(Z%):|
00000720  4b 25 3d 59 25 28 5a 25  29 3a e7 58 25 28 5a 25  |K%=Y%(Z%):.X%(Z%|
00000730  29 3d 39 39 e3 54 3d 30  b8 31 35 3a ed 3a e1 0d  |)=99.T=0.15:.:..|
00000740  02 58 14 20 e7 20 58 25  28 5a 25 29 3c 58 25 20  |.X. . X%(Z%)<X% |
00000750  f2 67 72 0d 02 62 14 20  e7 20 58 25 28 5a 25 29  |.gr..b. . X%(Z%)|
00000760  3e 58 25 20 f2 67 6c 0d  02 6c 14 20 e7 20 59 25  |>X% .gl..l. . Y%|
00000770  28 5a 25 29 3e 59 25 20  f2 67 75 0d 02 76 14 20  |(Z%)>Y% .gu..v. |
00000780  e7 20 59 25 28 5a 25 29  3c 59 25 20 f2 67 64 0d  |. Y%(Z%)<Y% .gd.|
00000790  02 80 75 20 ef 33 31 2c  49 25 2c 4b 25 2c 33 32  |..u .31,I%,K%,32|
000007a0  2c 33 32 2c 31 30 2c 38  2c 38 2c 33 32 2c 33 32  |,32,10,8,8,32,32|
000007b0  2c 31 37 2c 32 2c 33 31  2c 58 25 28 5a 25 29 2c  |,17,2,31,X%(Z%),|
000007c0  59 25 28 5a 25 29 3a e7  20 49 25 3e 58 25 28 5a  |Y%(Z%):. I%>X%(Z|
000007d0  25 29 20 ef 32 34 39 2c  32 35 30 2c 31 30 2c 38  |%) .249,250,10,8|
000007e0  2c 38 2c 32 35 31 2c 32  35 32 20 8b 20 ef 31 39  |,8,251,252 . .19|
000007f0  31 2c 31 39 32 2c 31 30  2c 38 2c 38 2c 31 39 33  |1,192,10,8,8,193|
00000800  2c 31 39 34 0d 02 8a 06  20 e1 0d 02 94 30 20 dd  |,194.... ....0 .|
00000810  20 f2 67 6c 3a ef 33 31  2c 58 25 28 5a 25 29 2d  | .gl:.31,X%(Z%)-|
00000820  31 2c 59 25 28 5a 25 29  3a d6 26 38 30 3a e7 20  |1,Y%(Z%):.&80:. |
00000830  3f 26 37 30 3c 3e 33 32  20 e1 0d 02 9e 1a 20 ef  |?&70<>32 ..... .|
00000840  31 30 3a d6 26 38 30 3a  e7 20 3f 26 37 30 3c 3e  |10:.&80:. ?&70<>|
00000850  33 32 20 e1 0d 02 a8 16  20 58 25 28 5a 25 29 3d  |32 ..... X%(Z%)=|
00000860  58 25 28 5a 25 29 2d 31  3a e1 0d 02 b2 34 20 dd  |X%(Z%)-1:....4 .|
00000870  20 f2 67 72 3a ef 33 31  2c 58 25 28 5a 25 29 2b  | .gr:.31,X%(Z%)+|
00000880  32 2c 59 25 28 5a 25 29  3a d6 26 38 30 3a ef 31  |2,Y%(Z%):.&80:.1|
00000890  30 3a e7 20 3f 26 37 30  3c 3e 33 32 20 e1 0d 02  |0:. ?&70<>32 ...|
000008a0  bc 16 20 d6 26 38 30 3a  e7 20 3f 26 37 30 3c 3e  |.. .&80:. ?&70<>|
000008b0  33 32 20 e1 0d 02 c6 16  20 58 25 28 5a 25 29 3d  |32 ..... X%(Z%)=|
000008c0  58 25 28 5a 25 29 2b 31  3a e1 0d 02 d0 33 20 dd  |X%(Z%)+1:....3 .|
000008d0  20 f2 67 75 3a ef 33 31  2c 58 25 28 5a 25 29 2c  | .gu:.31,X%(Z%),|
000008e0  59 25 28 5a 25 29 2d 31  3a d6 26 38 30 3a ef 39  |Y%(Z%)-1:.&80:.9|
000008f0  3a e7 20 3f 26 37 30 3c  3e 33 32 20 e1 0d 02 da  |:. ?&70<>32 ....|
00000900  16 20 d6 26 38 30 3a e7  20 3f 26 37 30 3c 3e 33  |. .&80:. ?&70<>3|
00000910  32 20 e1 0d 02 e4 16 20  59 25 28 5a 25 29 3d 59  |2 ..... Y%(Z%)=Y|
00000920  25 28 5a 25 29 2d 31 3a  e1 0d 02 ee 33 20 dd 20  |%(Z%)-1:....3 . |
00000930  f2 67 64 3a ef 33 31 2c  58 25 28 5a 25 29 2c 59  |.gd:.31,X%(Z%),Y|
00000940  25 28 5a 25 29 2b 32 3a  d6 26 38 30 3a ef 39 3a  |%(Z%)+2:.&80:.9:|
00000950  e7 20 3f 26 37 30 3c 3e  33 32 20 e1 0d 02 f8 16  |. ?&70<>32 .....|
00000960  20 d6 26 38 30 3a e7 20  3f 26 37 30 3c 3e 33 32  | .&80:. ?&70<>32|
00000970  20 e1 0d 03 02 16 20 59  25 28 5a 25 29 3d 59 25  | ..... Y%(Z%)=Y%|
00000980  28 5a 25 29 2b 31 3a e1  0d 03 0c 3d 20 dd 20 f2  |(Z%)+1:....= . .|
00000990  77 3a ef 31 37 2c 33 2c  33 31 2c 78 25 2c 33 30  |w:.17,3,31,x%,30|
000009a0  2c 32 34 34 3a 4c 25 3d  30 3a 53 25 3d 39 3a e7  |,244:L%=0:S%=9:.|
000009b0  20 5a 25 28 28 28 78 25  2b 31 29 2f 34 29 2d 32  | Z%(((x%+1)/4)-2|
000009c0  29 3d 30 20 e1 0d 03 16  2b 20 53 25 3d 28 28 78  |)=0 ....+ S%=((x|
000009d0  25 2b 31 29 2f 34 29 2d  32 3a d4 32 2c 31 2c 32  |%+1)/4)-2:.2,1,2|
000009e0  30 30 2c 31 3a e3 54 3d  30 b8 39 39 3a ed 3a e1  |00,1:.T=0.99:.:.|
000009f0  0d 03 20 06 20 3a 0d 03  2a 0c 20 dd 20 f2 66 69  |.. . :..*. . .fi|
00000a00  72 65 0d 03 34 20 20 ef  33 31 2c 46 25 2c 48 25  |re..4  .31,F%,H%|
00000a10  2c 33 32 3a e7 20 53 25  3d 31 ef 31 30 2c 38 2c  |,32:. S%=1.10,8,|
00000a20  33 32 0d 03 3e 16 20 ef  33 31 2c 46 25 2b 47 25  |32..>. .31,F%+G%|
00000a30  2c 48 25 3a d6 26 38 30  0d 03 48 15 20 e7 20 3f  |,H%:.&80..H. . ?|
00000a40  26 37 30 3c 3e 33 32 20  f2 65 78 3a e1 0d 03 52  |&70<>32 .ex:...R|
00000a50  25 20 e7 20 53 25 3d 31  20 ef 31 30 3a d6 26 38  |% . S%=1 .10:.&8|
00000a60  30 3a e7 20 3f 26 37 30  3c 3e 33 32 20 f2 65 78  |0:. ?&70<>32 .ex|
00000a70  3a e1 0d 03 5c 2f 20 46  25 3d 46 25 2b 47 25 3a  |:...\/ F%=F%+G%:|
00000a80  ef 31 37 2c 32 2c 33 31  2c 46 25 2c 48 25 3a e7  |.17,2,31,F%,H%:.|
00000a90  20 53 25 3d 34 20 ef 32  35 33 20 8b 20 ef 32 33  | S%=4 .253 . .23|
00000aa0  32 0d 03 66 15 20 e7 20  53 25 3d 31 20 ef 31 30  |2..f. . S%=1 .10|
00000ab0  2c 38 2c 32 33 32 0d 03  70 32 20 e7 20 46 25 3e  |,8,232..p2 . F%>|
00000ac0  33 37 84 46 25 3c 32 ef  33 31 2c 46 25 2c 48 25  |37.F%<2.31,F%,H%|
00000ad0  2c 33 32 3a 46 25 3d 30  3a e7 20 53 25 3d 31 20  |,32:F%=0:. S%=1 |
00000ae0  ef 31 30 2c 38 2c 33 32  0d 03 7a 06 20 e1 0d 03  |.10,8,32..z. ...|
00000af0  84 06 20 3a 0d 03 8e 0a  20 dd 20 f2 65 78 0d 03  |.. :.... . .ex..|
00000b00  98 49 20 46 25 3d 46 25  2b 47 25 3a e3 54 3d 30  |.I F%=F%+G%:.T=0|
00000b10  b8 33 3a e7 20 46 25 3e  58 25 28 54 29 2d 32 20  |.3:. F%>X%(T)-2 |
00000b20  e7 20 46 25 3c 58 25 28  54 29 2b 33 20 e7 20 48  |. F%<X%(T)+3 . H|
00000b30  25 3d 59 25 28 54 29 20  84 20 48 25 3d 59 25 28  |%=Y%(T) . H%=Y%(|
00000b40  54 29 2b 31 20 f2 62 0d  03 a2 0b 20 ed 3a 46 25  |T)+1 .b.... .:F%|
00000b50  3d 30 0d 03 ac 06 20 e1  0d 03 b6 06 20 3a 0d 03  |=0.... ..... :..|
00000b60  c0 0b 20 dd 20 f2 73 65  74 0d 03 ca 17 20 e7 20  |.. . .set.... . |
00000b70  58 25 3e 33 35 20 80 20  43 25 3d 32 32 34 20 e1  |X%>35 . C%=224 .|
00000b80  0d 03 d4 30 20 e7 20 53  25 3d 33 20 e7 20 5a 25  |...0 . S%=3 . Z%|
00000b90  28 33 29 3c 39 20 e3 54  3d 30 b8 33 3a f2 62 3a  |(3)<9 .T=0.3:.b:|
00000ba0  ed 3a 5a 25 28 33 29 3d  39 3a f2 65 78 74 72 61  |.:Z%(3)=9:.extra|
00000bb0  0d 03 de 0c 20 e7 20 53  25 3e 31 e1 0d 03 e8 30  |.... . S%>1....0|
00000bc0  20 48 25 3d 59 25 3a e7  20 43 25 3d 32 32 34 20  | H%=Y%:. C%=224 |
00000bd0  47 25 3d 32 3a 46 25 3d  58 25 2b 32 20 8b 20 47  |G%=2:F%=X%+2 . G|
00000be0  25 3d 2d 32 3a 46 25 3d  58 25 2d 31 0d 03 f2 17  |%=-2:F%=X%-1....|
00000bf0  20 ef 33 31 2c 46 25 2c  48 25 3a d6 26 38 30 3a  | .31,F%,H%:.&80:|
00000c00  ef 31 30 0d 03 fc 13 20  e7 3f 26 37 30 3c 3e 33  |.10.... .?&70<>3|
00000c10  32 f2 65 78 3a e1 0d 04  06 1b 20 e7 53 25 3d 31  |2.ex:..... .S%=1|
00000c20  d6 26 38 30 3a e7 3f 26  37 30 3c 3e 33 32 f2 65  |.&80:.?&70<>32.e|
00000c30  78 0d 04 10 23 20 e7 20  53 25 3d 30 d4 32 2c 31  |x...# . S%=0.2,1|
00000c40  34 2c 31 31 30 2c 31 8b  20 d4 32 2c 31 34 2c 32  |4,110,1. .2,14,2|
00000c50  30 30 2c 31 0d 04 1a 06  20 e1 0d 04 24 06 20 3a  |00,1.... ...$. :|
00000c60  0d 04 2e 16 20 dd 20 f2  62 3a e7 20 58 25 28 54  |.... . .b:. X%(T|
00000c70  29 3d 39 39 20 e1 0d 04  38 7a 20 d4 30 2c 34 2c  |)=99 ...8z .0,4,|
00000c80  36 2c 31 3a ef 31 37 2c  31 2c 33 31 2c 58 25 28  |6,1:.17,1,31,X%(|
00000c90  54 29 2c 59 25 28 54 29  2c 31 39 36 2c 31 39 37  |T),Y%(T),196,197|
00000ca0  2c 31 30 2c 38 2c 38 2c  31 39 38 2c 31 39 39 3a  |,10,8,8,198,199:|
00000cb0  e3 59 3d 30 b8 31 36 39  3a ed 3a ef 33 31 2c 58  |.Y=0.169:.:.31,X|
00000cc0  25 28 54 29 2c 59 25 28  54 29 2c 33 32 2c 33 32  |%(T),Y%(T),32,32|
00000cd0  2c 31 30 2c 38 2c 38 2c  33 32 2c 33 32 3a e7 20  |,10,8,8,32,32:. |
00000ce0  73 25 3c 31 39 20 58 25  28 54 29 3d 39 39 3a e1  |s%<19 X%(T)=99:.|
00000cf0  0d 04 42 06 20 3a 0d 04  4c 0d 20 dd 20 f2 65 78  |..B. :..L. . .ex|
00000d00  74 72 61 0d 04 56 12 20  41 3d 30 3a e3 54 3d 36  |tra..V. A=0:.T=6|
00000d10  b8 31 38 88 34 0d 04 60  20 20 ef 33 31 2c 54 2c  |.18.4..`  .31,T,|
00000d20  32 37 2c 33 32 2c 33 32  2c 31 30 2c 38 2c 38 2c  |27,32,32,10,8,8,|
00000d30  33 32 2c 33 32 0d 04 6a  1c 20 e7 20 5a 25 28 41  |32,32..j. . Z%(A|
00000d40  29 3d 31 20 f1 8a 54 2c  32 37 29 3b 41 24 28 41  |)=1 ..T,27);A$(A|
00000d50  29 0d 04 74 12 20 41 3d  41 2b 31 3a ed 3a f2 77  |)..t. A=A+1:.:.w|
00000d60  3a fb 32 0d 04 7e 06 20  e1 0d 04 88 06 20 3a 0d  |:.2..~. ..... :.|
00000d70  04 92 0c 20 dd 20 f2 6c  69 66 65 0d 04 9c 1b 20  |... . .life.... |
00000d80  e6 30 2c 30 3a ec 20 57  25 2c 39 31 36 3a df 20  |.0,0:. W%,916:. |
00000d90  57 25 2c 39 34 30 0d 04  a6 0d 20 57 25 3d 57 25  |W%,940.... W%=W%|
00000da0  2d 31 36 0d 04 b0 06 20  e1 0d 04 ba 06 20 3a 0d  |-16.... ..... :.|
00000db0  04 c4 29 20 dd 20 f2 70  3a 70 25 3d 70 25 2b 34  |..) . .p:p%=p%+4|
00000dc0  3a f2 74 79 70 28 c3 28  70 25 29 2b 22 25 22 2c  |:.typ(.(p%)+"%",|
00000dd0  33 33 2c 33 30 29 3a e1  0d 04 ce 0b 20 dd 20 f2  |33,30):..... . .|
00000de0  6e 65 77 0d 04 d8 19 20  e7 20 58 25 3d 33 38 20  |new.... . X%=38 |
00000df0  73 25 3d 73 25 2b 31 3a  58 25 3d 31 0d 04 e2 19  |s%=s%+1:X%=1....|
00000e00  20 e7 20 58 25 3d 30 20  73 25 3d 73 25 2d 31 3a  | . X%=0 s%=s%-1:|
00000e10  58 25 3d 33 37 0d 04 ec  19 20 e7 20 59 25 3d 36  |X%=37.... . Y%=6|
00000e20  20 73 25 3d 73 25 2d 37  3a 59 25 3d 32 32 0d 04  | s%=s%-7:Y%=22..|
00000e30  f6 1e 20 e7 20 59 25 3d  32 33 20 73 25 3d 73 25  |.. . Y%=23 s%=s%|
00000e40  2b 37 3a 59 25 3d 37 3a  4a 25 3d 36 0d 05 00 0e  |+7:Y%=7:J%=6....|
00000e50  20 f2 73 63 72 65 65 6e  3a e1 0d 05 0a 06 20 3a  | .screen:..... :|
00000e60  0d 05 14 0b 20 dd 20 f2  65 6e 64 0d 05 1e 0d 20  |.... . .end.... |
00000e70  d4 30 2c 32 2c 34 2c 39  0d 05 28 68 20 e3 59 3d  |.0,2,4,9..(h .Y=|
00000e80  30 b8 37 3a ef 31 37 2c  33 2c 33 31 2c 36 2c 31  |0.7:.17,3,31,6,1|
00000e90  39 2c 32 32 34 2c 32 32  35 2c 31 30 2c 38 2c 38  |9,224,225,10,8,8|
00000ea0  2c 32 32 36 2c 32 32 37  3a e3 54 3d 30 b8 34 39  |,226,227:.T=0.49|
00000eb0  39 3a ed 3a ef 33 31 2c  36 2c 31 39 2c 32 32 38  |9:.:.31,6,19,228|
00000ec0  2c 32 32 39 2c 31 30 2c  38 2c 38 2c 32 33 30 2c  |,229,10,8,8,230,|
00000ed0  32 33 31 3a e3 54 3d 30  b8 34 39 39 3a ed 3a ed  |231:.T=0.499:.:.|
00000ee0  0d 05 32 3e 20 ef 33 31  2c 36 2c 31 39 2c 33 32  |..2> .31,6,19,32|
00000ef0  2c 33 32 2c 31 30 2c 38  2c 38 2c 33 32 2c 33 32  |,32,10,8,8,32,32|
00000f00  2c 32 38 2c 30 2c 32 34  2c 33 39 2c 36 2c 31 32  |,28,0,24,39,6,12|
00000f10  2c 32 36 3a d4 31 2c 34  2c 32 30 30 2c 31 0d 05  |,26:.1,4,200,1..|
00000f20  3c 23 20 f2 74 79 70 28  22 59 4f 55 20 48 41 56  |<# .typ("YOU HAV|
00000f30  45 20 45 53 43 41 50 45  44 22 2c 31 32 2c 31 33  |E ESCAPED",12,13|
00000f40  29 0d 05 46 18 20 e3 54  3d 30 b8 34 39 39 39 3a  |)..F. .T=0.4999:|
00000f50  ed 3a 68 70 25 3d 31 30  30 0d 05 50 06 20 e1 0d  |.:hp%=100..P. ..|
00000f60  05 5a 06 20 3a 0d 05 64  0e 20 dd 20 f2 73 63 72  |.Z. :..d. . .scr|
00000f70  65 65 6e 0d 05 6e 4f 20  ef 31 39 2c 32 2c 32 3b  |een..nO .19,2,2;|
00000f80  30 3b 31 39 2c 33 2c 36  3b 30 3b 31 39 2c 31 2c  |0;19,3,6;0;19,1,|
00000f90  31 3b 30 3b 32 38 2c 30  2c 32 34 2c 33 39 2c 36  |1;0;28,0,24,39,6|
00000fa0  2c 31 32 2c 32 36 3a e7  20 73 25 3e 31 34 20 ef  |,12,26:. s%>14 .|
00000fb0  31 39 2c 31 2c 35 3b 30  3b 31 39 2c 33 2c 34 3b  |19,1,5;0;19,3,4;|
00000fc0  30 3b 0d 05 78 24 20 f7  20 8d 54 52 47 3a e7 20  |0;..x$ . .TRG:. |
00000fd0  73 25 3e 31 20 e3 54 3d  31 b8 20 73 25 2d 31 3a  |s%>1 .T=1. s%-1:|
00000fe0  f3 20 41 24 3a ed 0d 05  82 6b 20 f3 20 41 24 3a  |. A$:....k . A$:|
00000ff0  44 25 3d 97 28 c1 41 24  2c 31 2c 31 29 29 2d 34  |D%=.(.A$,1,1))-4|
00001000  36 3a 63 25 3d 97 28 c1  41 24 2c 32 2c 31 29 29  |6:c%=.(.A$,2,1))|
00001010  2d 34 36 3a 63 31 25 3d  97 28 c1 41 24 2c 33 2c  |-46:c1%=.(.A$,3,|
00001020  31 29 29 2d 34 36 3a e7  20 62 25 3f 73 25 3d 31  |1))-46:. b%?s%=1|
00001030  20 ef 33 31 2c 63 25 2c  63 31 25 2c 31 37 2c 32  | .31,c%,c1%,17,2|
00001040  2c 32 33 37 2c 31 30 2c  38 2c 32 33 38 2c 32 33  |,237,10,8,238,23|
00001050  39 0d 05 8c 63 20 e3 50  25 3d 34 20 b8 20 a9 28  |9...c .P%=4 . .(|
00001060  41 24 29 88 34 3a 58 3d  97 28 c1 41 24 2c 50 25  |A$).4:X=.(.A$,P%|
00001070  2c 31 29 29 2d 34 36 3a  59 3d 97 28 c1 41 24 2c  |,1))-46:Y=.(.A$,|
00001080  50 25 2b 31 2c 31 29 29  2d 34 36 3a 58 31 3d 97  |P%+1,1))-46:X1=.|
00001090  28 c1 41 24 2c 50 25 2b  32 2c 31 29 29 2d 34 36  |(.A$,P%+2,1))-46|
000010a0  3a 4b 3d 97 28 c1 41 24  2c 50 25 2b 33 2c 31 29  |:K=.(.A$,P%+3,1)|
000010b0  29 2d 34 36 0d 05 96 39  20 e7 20 4b 3d 31 20 ef  |)-46...9 . K=1 .|
000010c0  31 37 2c 32 3a e3 41 25  3d 58 20 b8 20 58 31 20  |17,2:.A%=X . X1 |
000010d0  88 34 3a ef 33 31 2c 41  25 2c 59 2c 32 33 33 2c  |.4:.31,A%,Y,233,|
000010e0  32 33 34 2c 32 33 35 2c  32 33 36 3a ed 0d 05 a0  |234,235,236:....|
000010f0  16 20 e7 20 4b 3d 32 20  f2 61 28 58 2c 32 31 31  |. . K=2 .a(X,211|
00001100  2c 33 29 0d 05 aa 40 20  e7 20 4b 3d 33 20 ef 31  |,3)...@ . K=3 .1|
00001110  37 2c 31 3a e3 41 25 3d  58 20 b8 20 58 31 20 88  |7,1:.A%=X . X1 .|
00001120  32 3a ef 33 31 2c 41 25  2c 59 2c 32 30 31 2c 32  |2:.31,A%,Y,201,2|
00001130  30 32 2c 31 30 2c 38 2c  38 2c 32 30 33 2c 32 30  |02,10,8,8,203,20|
00001140  34 3a ed 0d 05 b4 16 20  e7 20 4b 3d 34 20 f2 61  |4:..... . K=4 .a|
00001150  28 59 2c 32 30 31 2c 31  29 0d 05 be 44 20 e7 20  |(Y,201,1)...D . |
00001160  4b 3d 35 20 e3 41 25 3d  58 20 b8 20 58 31 20 88  |K=5 .A%=X . X1 .|
00001170  33 3a ef 31 37 2c 31 2c  33 31 2c 41 25 2c 59 2c  |3:.17,1,31,A%,Y,|
00001180  32 30 35 2c 32 30 36 2c  31 30 2c 38 2c 38 2c 31  |205,206,10,8,8,1|
00001190  37 2c 32 2c 32 30 37 2c  32 30 38 3a ed 0d 05 c8  |7,2,207,208:....|
000011a0  34 20 e7 20 4b 3d 36 20  ef 33 31 2c 58 2c 59 2c  |4 . K=6 .31,X,Y,|
000011b0  31 37 2c 33 2c 32 30 39  2c 39 2c 32 30 39 2c 31  |17,3,209,9,209,1|
000011c0  30 2c 38 2c 38 2c 38 2c  32 31 30 2c 39 2c 32 31  |0,8,8,8,210,9,21|
000011d0  30 0d 05 d2 16 20 e7 20  4b 3d 37 20 f2 61 28 58  |0.... . K=7 .a(X|
000011e0  2c 32 31 35 2c 33 29 0d  05 dc 18 20 e7 20 4b 3d  |,215,3).... . K=|
000011f0  38 20 f1 8a 58 2c 59 29  3b 41 24 28 58 31 29 0d  |8 ..X,Y);A$(X1).|
00001200  05 e6 06 20 ed 0d 05 f0  24 20 e7 20 73 25 3d 31  |... ....$ . s%=1|
00001210  20 fb 32 3a f2 74 79 70  28 22 54 45 4c 45 50 4f  | .2:.typ("TELEPO|
00001220  52 54 22 2c 33 2c 31 37  29 0d 05 fa 46 20 46 25  |RT",3,17)...F F%|
00001230  3d 30 3a e3 54 3d 30 b8  33 3a 58 25 28 54 29 3d  |=0:.T=0.3:X%(T)=|
00001240  39 39 3a ed 3a e7 20 44  25 3e 30 20 f7 20 8d 54  |99:.:. D%>0 . .T|
00001250  4e 46 3a e3 54 3d 31 b8  20 44 25 3a f3 20 58 25  |NF:.T=1. D%:. X%|
00001260  28 54 2d 31 29 2c 59 25  28 54 2d 31 29 3a ed 0d  |(T-1),Y%(T-1):..|
00001270  06 04 06 20 e1 0d 06 0e  1e 20 dc 20 31 38 2c 31  |... ..... . 18,1|
00001280  34 2c 33 30 2c 31 30 2c  32 30 2c 31 33 2c 32 32  |4,30,10,20,13,22|
00001290  2c 31 30 0d 06 18 06 20  3a 0d 06 22 44 20 dd 20  |,10.... :.."D . |
000012a0  f2 61 28 49 25 2c 42 25  2c 4b 25 29 3a ef 31 37  |.a(I%,B%,K%):.17|
000012b0  2c 4b 25 3a e3 41 25 3d  49 25 20 b8 20 58 31 20  |,K%:.A%=I% . X1 |
000012c0  88 32 3a e7 20 49 25 3d  58 20 ef 33 31 2c 41 25  |.2:. I%=X .31,A%|
000012d0  2c 59 20 8b 20 ef 33 31  2c 58 2c 41 25 0d 06 2c  |,Y . .31,X,A%..,|
000012e0  1f 20 ef 20 42 25 2c 42  25 2b 31 2c 31 30 2c 38  |. . B%,B%+1,10,8|
000012f0  2c 38 2c 42 25 2b 32 2c  42 25 2b 33 0d 06 36 08  |,8,B%+2,B%+3..6.|
00001300  20 ed 3a e1 0d 06 40 06  20 3a 0d 06 4a 0b 20 dd  | .:...@. :..J. .|
00001310  20 f2 64 69 65 0d 06 54  6f 20 e3 54 3d 2d 31 b8  | .die..To .T=-1.|
00001320  2d 31 35 88 2d 31 3a d4  30 2c 54 2c 36 2c 31 3a  |-15.-1:.0,T,6,1:|
00001330  ed 3a e3 54 3d 30 b8 39  39 39 3a ed 3a ef 33 31  |.:.T=0.999:.:.31|
00001340  2c 58 25 2c 59 25 2c 31  37 2c 31 2c 31 39 36 2c  |,X%,Y%,17,1,196,|
00001350  31 39 37 2c 31 30 2c 38  2c 38 2c 31 39 38 2c 31  |197,10,8,8,198,1|
00001360  39 39 3a d4 30 2c 34 2c  36 2c 31 3a f2 74 79 70  |99:.0,4,6,1:.typ|
00001370  28 22 47 41 4d 45 20 20  4f 56 45 52 22 2c 31 35  |("GAME  OVER",15|
00001380  2c 31 33 29 0d 06 5e 72  20 e3 54 3d 30 b8 32 39  |,13)..^r .T=0.29|
00001390  39 39 3a ed 3a ef 32 38  2c 30 2c 32 34 2c 33 39  |99:.:.28,0,24,39|
000013a0  2c 36 2c 31 32 2c 32 36  3a f2 74 79 70 28 22 42  |,6,12,26:.typ("B|
000013b0  45 53 54 20 25 41 47 45  3a 22 2b c3 28 68 70 25  |EST %AGE:"+.(hp%|
000013c0  29 2c 31 34 2c 31 31 29  3a f2 74 79 70 28 22 59  |),14,11):.typ("Y|
000013d0  4f 55 52 20 25 41 47 45  3a 22 2b c3 28 70 25 29  |OUR %AGE:"+.(p%)|
000013e0  2c 31 34 2c 39 29 3a e7  20 70 25 3e 68 70 25 20  |,14,9):. p%>hp% |
000013f0  68 70 25 3d 70 25 0d 06  68 06 20 e1 0d 06 72 06  |hp%=p%..h. ...r.|
00001400  20 3a 0d 06 7c 0d 20 dd  20 f2 73 74 61 72 74 0d  | :..|. . .start.|
00001410  06 86 71 20 41 24 28 30  29 3d bd 31 37 2b bd 31  |..q A$(0)=.17+.1|
00001420  2b bd 32 34 30 2b bd 32  34 31 3a 41 24 28 31 29  |+.240+.241:A$(1)|
00001430  3d bd 31 37 2b bd 31 2b  bd 32 34 30 2b bd 32 34  |=.17+.1+.240+.24|
00001440  31 2b bd 31 30 2b bd 38  2b bd 38 2b bd 32 34 30  |1+.10+.8+.8+.240|
00001450  2b bd 32 34 31 3a 41 24  28 32 29 3d bd 31 37 2b  |+.241:A$(2)=.17+|
00001460  bd 32 2b bd 32 34 32 2b  bd 32 34 33 2b bd 31 30  |.2+.242+.243+.10|
00001470  2b bd 38 2b bd 38 2b bd  32 34 32 2b bd 32 34 33  |+.8+.8+.242+.243|
00001480  0d 06 90 35 20 41 24 28  33 29 3d bd 31 37 2b bd  |...5 A$(3)=.17+.|
00001490  31 2b bd 32 34 35 2b bd  32 34 36 2b bd 31 30 2b  |1+.245+.246+.10+|
000014a0  bd 38 2b bd 38 2b bd 32  34 37 2b bd 32 34 38 3a  |.8+.8+.247+.248:|
000014b0  68 70 25 3d 30 0d 06 9a  06 20 e1 0d 06 a4 06 20  |hp%=0.... ..... |
000014c0  3a 0d 06 ae 0c 20 dd 20  f2 76 61 72 73 0d 06 b8  |:.... . .vars...|
000014d0  53 20 e3 54 3d 30 b8 33  3a 5a 25 28 54 29 3d 30  |S .T=0.3:Z%(T)=0|
000014e0  3a ed 3a e6 30 2c 31 3a  e3 57 25 3d 31 39 32 20  |:.:.0,1:.W%=192 |
000014f0  b8 31 30 38 38 88 31 36  3a d4 30 2c 31 35 2c 34  |.1088.16:.0,15,4|
00001500  2c 31 3a ec 57 25 2c 39  31 36 3a df 57 25 2c 39  |,1:.W%,916:.W%,9|
00001510  34 30 3a e7 20 57 25 3e  33 30 30 20 e6 30 2c 32  |40:. W%>300 .0,2|
00001520  0d 06 c2 14 20 ed 3a f1  8a 30 2c 33 30 29 3b 89  |.... .:..0,30);.|
00001530  28 33 39 29 0d 06 cc 1f  20 53 25 3d 39 3a 5a 25  |(39).... S%=9:Z%|
00001540  3d 30 3a 73 25 3d 31 3a  58 25 3d 38 3a 59 25 3d  |=0:s%=1:X%=8:Y%=|
00001550  31 31 20 0d 06 d6 1a 20  4a 25 3d 30 3a 43 25 3d  |11 .... J%=0:C%=|
00001560  32 32 34 3a 70 25 3d 30  3a 78 25 3d 37 0d 06 e0  |224:p%=0:x%=7...|
00001570  1d 20 ef 31 37 2c 33 2c  33 31 2c 78 25 2c 33 30  |. .17,3,31,x%,30|
00001580  2c 32 34 34 3a f7 8d 54  48 47 0d 06 ea 15 20 e3  |,244:..THG.... .|
00001590  54 3d 30 b8 39 3a f3 20  4a 25 28 54 29 3a ed 0d  |T=0.9:. J%(T):..|
000015a0  06 f4 43 20 e3 54 3d 31  b8 32 31 3a 62 25 3f 54  |..C .T=1.21:b%?T|
000015b0  3d 31 3a ed 3a f2 65 78  74 72 61 3a fb 33 3a f2  |=1:.:.extra:.3:.|
000015c0  74 79 70 28 22 50 52 45  53 53 20 20 53 50 41 43  |typ("PRESS  SPAC|
000015d0  45 22 2c 31 34 2c 31 34  29 3a f5 20 fd 20 a6 2d  |E",14,14):. . .-|
000015e0  39 39 0d 06 fe 06 20 e1  0d 07 08 1e 20 dc 20 2d  |99.... ..... . -|
000015f0  32 2c 2d 31 2c 2d 31 2c  2d 31 2c 30 2c 30 2c 31  |2,-1,-1,-1,0,0,1|
00001600  2c 31 2c 31 2c 32 0d 07  12 a2 20 dc 20 2e 39 3b  |,1,1,2.... . .9;|
00001610  2e 43 48 31 2e 45 55 31  30 3d 3f 31 43 41 48 31  |.CH1.EU10=?1CAH1|
00001620  2e 3c 36 31 4c 3d 53 31  2e 34 55 31 47 40 47 33  |.<61L=S1.4U1G@G3|
00001630  44 36 55 31 3a 36 2e 34  2e 35 43 32 32 3a 2e 36  |D6U1:6.4.5C22:.6|
00001640  2c 32 46 3c 2e 45 55 31  32 3e 46 31 2e 36 55 31  |,2F<.EU12>F1.6U1|
00001650  2e 34 55 31 44 38 40 32  4e 40 55 31 49 43 2e 33  |.4U1D8@2N@U1IC.3|
00001660  4d 3e 2e 33 32 3e 40 32  3a 3c 3e 30 2c 30 34 3e  |M>.32>@2:<>0,04>|
00001670  2e 45 34 31 36 46 55 2f  2e 40 34 31 3e 44 55 33  |.E416FU/.@41>DU3|
00001680  41 40 41 31 4c 40 55 31  2e 36 55 31 37 44 30 36  |A@A1L@U1.6U17D06|
00001690  54 42 54 31 2c 32 30 44  2e 46 55 2f 2e 40 44 32  |TBT1,20D.FU/.@D2|
000016a0  2e 34 55 31 41 36 2e 34  0d 07 1c 86 20 dc 20 30  |.4U1A6.4.... . 0|
000016b0  48 43 2e 46 36 2f 36 45  55 31 44 41 45 32 46 3f  |HC.F6/6EU1DAE2F?|
000016c0  43 32 52 3f 43 32 4c 43  4c 33 2e 34 55 31 2c 32  |C2R?C2LCL3.4U1,2|
000016d0  50 43 2e 45 55 31 32 45  51 2f 2e 3f 43 32 38 43  |PC.EU12EQ/.?C28C|
000016e0  4c 33 2e 34 55 31 54 3f  45 32 41 36 2e 34 2c 32  |L3.4U1T?E2A6.4,2|
000016f0  52 3d 2e 3f 36 31 2e 45  36 31 2e 34 55 31 54 35  |R=.?61.E61.4U1T5|
00001700  45 32 42 3f 52 31 2e 3f  45 32 48 3d 4e 30 2c 32  |E2B?R1.?E2H=N0,2|
00001710  32 39 2e 34 55 31 2e 35  45 32 30 45 55 31 30 43  |29.4U1.5E20EU10C|
00001720  55 33 4e 3f 50 31 44 3b  46 31 32 3b 3c 31 0d 07  |U3N?P1D;F12;<1..|
00001730  26 a2 20 dc 20 32 40 36  2e 34 55 31 2e 43 55 31  |&. . 2@6.4U1.CU1|
00001740  42 36 38 32 44 3c 43 32  46 3c 4c 31 40 38 40 31  |B682D<C2F<L1@8@1|
00001750  3e 41 3e 33 46 41 4a 30  2c 32 46 39 2e 43 36 31  |>A>3FAJ0,2F9.C61|
00001760  2e 45 42 31 2e 34 55 31  48 45 55 31 42 3f 43 32  |.EB1.4U1HEU1B?C2|
00001770  44 3f 4a 31 44 3b 55 31  46 36 46 34 33 41 36 33  |D?J1D;U1F6F43A63|
00001780  2c 32 35 39 2e 45 3c 31  2e 34 55 31 2e 3b 38 31  |,259.E<1.4U1.;81|
00001790  38 35 3b 32 3c 43 42 31  42 41 48 31 48 3f 50 31  |85;2<CB1BAH1H?P1|
000017a0  50 3d 55 31 4a 3d 4e 30  42 3f 45 33 38 43 2f 36  |P=U1J=N0B?E38C/6|
000017b0  2c 32 42 3d 2e 3d 38 31  2e 3f 38 31 2e 34 55 31  |,2B=.=81.?81.4U1|
000017c0  42 3f 42 31 4a 3d 55 31  4a 3f 55 31 41 36 2e 34  |B?B1J=U1J?U1A6.4|
000017d0  0d 07 30 9a 20 dc 20 32  43 3d 2e 3d 45 32 32 45  |..0. . 2C=.=E22E|
000017e0  55 31 32 45 55 2f 30 3d  45 32 2e 34 55 31 46 35  |U12EU/0=E2.4U1F5|
000017f0  3d 32 3e 3f 46 31 2c 2e  52 3a 2e 45 55 31 2e 34  |=2>?F1,.R:.EU1.4|
00001800  36 31 38 3a 3c 30 54 34  44 32 36 34 3e 32 38 3c  |618:<0T4D264>28<|
00001810  3e 31 38 3e 3e 31 40 43  53 31 42 41 53 30 52 3c  |>18>>1@CS1BAS0R<|
00001820  52 31 2c 30 31 43 2e 35  43 32 2e 45 55 35 34 43  |R1,01C.5C2.EU54C|
00001830  48 33 34 3b 43 32 3a 3f  43 32 2e 34 55 35 43 41  |H34;C2:?C2.4U5CA|
00001840  43 32 2c 31 31 43 2e 34  34 35 2e 45 34 35 34 36  |C2,11C.445.E4546|
00001850  3c 35 34 43 3c 35 3c 38  42 35 3c 41 42 35 44 3a  |<54C<5<8B5<AB5D:|
00001860  55 35 44 3f 55 35 36 41  31 36 0d 07 3a 52 20 dc  |U5D?U56A16..:R .|
00001870  20 31 4e 3d 2e 3f 55 35  2e 3a 40 35 42 34 38 32  | 1N=.?U5.:@5B482|
00001880  2e 34 42 31 48 34 38 32  48 34 55 31 4a 3a 55 35  |.4B1H482H4U1J:U5|
00001890  44 3d 44 30 2c 32 46 3b  2e 45 55 35 2e 44 55 2f  |D=D0,2F;.EU5.DU/|
000018a0  2e 34 55 35 2e 3f 43 32  2e 36 3a 32 42 36 2e 34  |.4U5.?C2.6:2B6.4|
000018b0  3a 3d 3e 35 42 3d 46 35  30 42 46 33 0d 07 44 66  |:=>5B=F50BF3..Df|
000018c0  20 dc 20 32 42 42 2e 44  55 35 32 40 50 35 36 3e  | . 2BB.DU52@P56>|
000018d0  4c 35 36 3e 4c 2f 37 3c  3c 33 2c 31 36 40 2e 44  |L56>L/7<<3,16@.D|
000018e0  55 35 2e 34 55 35 36 42  55 35 3e 40 55 35 46 3e  |U5.4U56BU5>@U5F>|
000018f0  55 35 4e 3c 55 35 41 36  2e 34 40 3e 44 30 2c 32  |U5N<U5A6.4@>D0,2|
00001900  46 40 31 42 51 33 30 44  50 2f 52 36 44 32 2e 3c  |F@1BQ30DP/R6D2.<|
00001910  44 32 2e 45 53 35 2e 34  53 35 30 3c 38 31 48 3e  |D2.ES5.4S50<81H>|
00001920  52 31 0d 07 4e 9c 20 dd  20 f2 74 79 70 28 41 24  |R1..N. . .typ(A$|
00001930  2c 78 25 2c 79 25 29 3a  ea 20 41 25 2c 4e 25 2c  |,x%,y%):. A%,N%,|
00001940  58 25 2c 59 25 3a 58 25  3d 26 37 30 3a 59 25 3d  |X%,Y%:X%=&70:Y%=|
00001950  30 3a 41 25 3d 31 30 3a  e3 20 4e 25 3d 31 20 b8  |0:A%=10:. N%=1 .|
00001960  20 a9 28 41 24 29 3a 3f  26 37 30 3d 97 28 c1 41  | .(A$):?&70=.(.A|
00001970  24 2c 4e 25 29 29 3a d6  20 26 46 46 46 31 3a ef  |$,N%)):. &FFF1:.|
00001980  32 33 2c 32 32 33 2c 30  2c 3f 26 37 31 2c 3f 26  |23,223,0,?&71,?&|
00001990  37 33 2c 3f 26 37 34 2c  3f 26 37 35 2c 3f 26 37  |73,?&74,?&75,?&7|
000019a0  37 2c 3f 26 37 38 2c 30  2c 33 31 2c 78 25 2b 4e  |7,?&78,0,31,x%+N|
000019b0  25 2d 31 2c 79 25 2c 32  32 33 3a ed 3a e1 0d 07  |%-1,y%,223:.:...|
000019c0  58 1a 20 eb 37 3a f6 3a  f1 22 20 61 74 20 6c 69  |X. .7:.:." at li|
000019d0  6e 65 20 22 3b 9e 3a e0  0d ff                    |ne ";.:...|
000019da
Danger2.m0
Danger2.m1
Danger2.m2
Danger2.m4
Danger2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .