Home » Archimedes archive » Acorn User » AU 1997-08 A.adf » !IronLord/Iron2

!IronLord/Iron2

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 » Acorn User » AU 1997-08 A.adf
Filename: !IronLord/Iron2
Read OK:
File size: 1EE0 bytes
Load address: FFFFFB46
Exec address: 1A15272E
File contents
   10REM >:IronLord.!IronLord.Iron2
   20REM (C) 1990 UBI soft.
   30REM Archimedes version by Cygnus Software Engineering Ltd.
   40:
   50ON ERROR PROCerror:END
   60:
   70space%=&48:DIM code% space%,ASP% &10714
   80DIM SC%(4),TD%(9,2),FST$(3):FOR I%=1 TO 9:READ TD%(I%,0),TD%(I%,1),TD%(I%,2):NEXT:FST$(1)="first":FST$(2)="second":FST$(3)="third"
   90DATA 68,-60,0,52,-48,1,44,-40,2,40,-32,3,32,-28,4,28,-28,5,28,-28,5,24,-24,6,24,-24,6
  100:
  110!ASP%=&10714:OSCLI"IronLoad <IronLord$Dir>.ArchSpr "+STR$~(ASP%+4)
  120PROCasm
  130SYS"Sound_QInit":FORI%=1TO8:SYS"Sound_AttachVoice",I%,0:NEXT:SYS"Sound_Configure",1,0,100
  140:
  150GCOL 9:RECTANGLE FILL 4,0,1272,792:GCOL 8:MOVE 0,0:DRAW 0,796:DRAW 1276,796:RECTANGLE 16,264,412,520:MOVE 452,264:DRAW 1264,264:DRAW 1264,780
  160FOR X%=32 TO 1024 STEP 248:GCOL 8:RECTANGLE X%,12,216,228:GCOL 7:RECTANGLE X%+4,16,208,220:GCOL 6:RECTANGLE X%+8,20,200,212:GCOL 5:RECTANGLE FILL X%+12,24,192,204:NEXT
  170SYS"OS_SpriteOp",303,ASP%,"29":FR%=TRUE:FOR I%=1 TO 14:READ N$,X%,Y%:SYS"OS_SpriteOp",290,ASP%,N$,X%,Y%:NEXT:GCOL 8:MOVE 784,176:DRAW 884,76:DRAW 984,176
  180WPC%=222:GCOL 6
  190IF ?(HIMEM+10)=&FF PROCwpr("Welcome to the great archery contest. To win the cup you must be victorious in three matches.",696) ELSE PROCwpr("The archery contest has now finished.",696):PROCwpr("See you next year !",516)
  200*IronFadeIn 16
  210PROCmouse:*IronFadeOut
  220WPC%=668:IF ?(HIMEM+10)=&FF PROCdo_arch
  230Z%=2:V%=1:A%=44:B%=304:C%=&B0:ON ERROR OFF:CHAIN"<IronLord$Dir>.Iron1"
  240:
  250DEF PROCdo_arch
  260MOUSE TO 240,512:E%=FALSE:MH%=TRUE:MT%=?(HIMEM+&163):RD%=1:AR%=1:ST%=0:EV%=30:DR%=0:R%=176:SC%()=0:TSC%=0
  270GCOL 9:MOVE 100,216:PRINT ST%:MOVE 604,216:PRINT;EV%:MOVE 640,72:PRINT DR%:GCOL3,5:MOVE 884,84:DRAW 884+122*SIN(RAD(DR%)),86+122*COS(RAD(DR%)):MOVE 576,64:DRAW 576+108*COS(RAD(EV%)),66+108*SIN(RAD(EV%))
  280TX=RND(1)*(15+RD%*4)-(7.5+RD%*2):TZ=11.5:W%=RND(31)-16
  290REPEAT:F%=FALSE:RESTORE 1130:FOR I%=1 TO 6:READ N$,X%,Y%:SYS"OS_SpriteOp",290,ASP%,N$,X%,Y%,8:NEXT:GCOL 15:MOVE 244,432:DRAW 154,616:DRAW 200,784:IF (W%<0 AND FR%) OR (W%>0 AND NOT FR%) SYS"OS_SpriteOp",303,ASP%,"29":FR%=NOT FR%
  300IF W%=0 SYS"OS_SpriteOp",290,ASP%,"30",56,28 ELSE SYS"OS_SpriteOp",290,ASP%,"29",56,28
  310GCOL9:IF W%>0 MOVE 140,148:PRINT;W% ELSE IF W%<0 MOVE -160,148:PRINTABS(W%)
  320TSX%=(R%*TX)/TZ*2-TD%(RD%,0):TSY%=TD%(RD%,1):SYS"OS_SpriteOp",280,ASP%,STR$(TD%(RD%,2)) TO ,,TS%:SYS"OS_SpriteOp",546,ASP%,TS%,TSX%+856,TSY%+492,8
  330*IronFadeIn 16
  340MOUSE ON 2:*FX 21,9
  350REPEAT:J%=0:REPEAT:MOUSE MX%,MY%,B%:J%+=1:UNTIL B%<>0:WAIT:IF J%=1 J%=3 ELSE J%=12
  360IF MY%>40 AND MY%<80 THEN
  370ODR%=DR%:IF MX%>792 AND MX%<816 AND DR%>-45 THEN DR%-=1
  380IF MX%>840 AND MX%<871 AND DR%<45 THEN DR%+=1
  390IF ODR%<>DR% THEN GCOL3,5:MOVE 884,84:DRAW 884+122*SIN(RAD(ODR%)),86+122*COS(RAD(ODR%)):MOVE 884,84:DRAW 884+122*SIN(RAD(DR%)),86+122*COS(RAD(DR%)):GCOL 5:RECTANGLE FILL 896,44,64,32:GCOL 9:MOVE 640,72:PRINTABS(DR%)
  400ENDIF
  410IF MX%>672 AND MX%<712 THEN
  420OEV%=EV%:IF MY%>152 AND MY%<184 AND EV%>10 THEN EV%-=1
  430IF MY%>200 AND MY%<228 AND EV%<70 THEN EV%+=1
  440IF OEV%<>EV% THEN GCOL3,5:MOVE 576,64:DRAW 576+108*COS(RAD(OEV%)),66+108*SIN(RAD(OEV%)):MOVE 576,64:DRAW 576+108*COS(RAD(EV%)),66+108*SIN(RAD(EV%)):GCOL 5:RECTANGLE FILL 604,188,64,32:GCOL 9:MOVE 604,216:PRINT;EV%
  450ENDIF
  460IF MX%>280 AND MX%<496 AND MY%>12 AND MY%<240 THEN J%=1:F%=TRUE
  470IF MX%>1024 AND MX%<1240 AND MY%>12 AND MY%<240 THEN E%=TRUE:MOUSE OFF:*IronFadeOut
  480FOR I%=1 TO J%:WAIT:NEXT
  490UNTIL F% OR E%:IF F% PROCfire
  500UNTIL E%
  510ENDPROC
  520:
  530DEF PROCfire:ST%=0:J%=3:REPEAT:ST%+=1:FOR I%=1 TO J%:WAIT:NEXT:GCOL 5:RECTANGLE FILL 356,188,64,32:GCOL 9:MOVE 100,216:PRINT ST%
  540IF ST%=30 SYS"OS_SpriteOp",290,ASP%,"47",296,40:J%=4
  550IF ST%=60 SYS"OS_SpriteOp",290,ASP%,"48",296,40:J%=5
  560MOUSE MX%,MY%,B%:UNTIL B%=0 OR ST%=99:MOUSE OFF:VOICE1,"IronEffect-FireArrow":SOUND1,&17F,&2550,1
  570VDU 24,0;0;1279;787;:SYS"OS_SpriteOp",290,ASP%,"25",16,268:SYS"OS_SpriteOp",290,ASP%,"26",228,676,8:GCOL 15:MOVE 244,432:DRAW 200,784:SYS"OS_SpriteOp",290,ASP%,"28",104,560,8:FORI%=1TO5:WAIT:NEXT
  580SYS"OS_SpriteOp",290,ASP%,"25",16,268:MOVE 244,432:DRAW 200,784:SYS"OS_SpriteOp",290,ASP%,"28",104,560,8:CALL copy
  590VDU 24,452;268;1263;783;:ORIGIN 856,620:GCOL 15:S=SQR(ST%)*2.5:D=1/16:dt=1/25:g=9.8:VX=S*COS(RAD(EV%))*SIN(RAD(DR%)):VY=S*SIN(RAD(EV%)):VZ=S*COS(RAD(EV%))*COS(RAD(DR%)):BX=0:BY=0.5:BZ=1:X=0:Y=0:Z=0:TD=9:SC%=1:*FX112,2
  600REPEAT:BX=BX+VX*dt:BY=BY+VY*dt:BZ=BZ+VZ*dt:OX=X:OY=Y:OZ=Z
  610V=SQR(VX*VX+VY*VY+VZ*VZ):X=BX+(VX/V):Y=BY+(VY/V):Z=BZ+(VZ/V):VX=VX-D*(VX-W%)*dt:VY=VY-(D*VY+g)*dt:VZ=VZ-D*VZ*dt:IF Y<0 Y=0
  620IF OZ<=TZ AND Z>=TZ THEN Q=(TZ-OZ)/(Z-OZ):HX=(OX+Q*(X-OX))-TX:HY=(OY+Q*(Y-OY))-1.75:TD=SQR(HX*HX+HY*HY):IF Y<0.5 AND ABS(X-TX)<1.25 THEN X=OX:Y=OY:Z=OZ
  630SX%=(R%*X)/Z*2:SY%=(R%*(Y-1.75))/Z*2:SBX%=(R%*BX)/BZ*2:SBY%=(R%*(BY-1.75))/BZ*2:SHY%=(R%*-1.75)/Z*2:SHBY%=(R%*-1.75)/BZ*2
  640SYS"OS_SpriteOp",290,ASP%,"35",-404,152:SYS"OS_SpriteOp",290,ASP%,"36",-404,-224:SYS"OS_SpriteOp",290,ASP%,"37",52,-224
  650GCOL0:LINE SBX%,SHBY%,SX%,SHY%:GCOL15:IF Z<TZ OR TD<1.25 SYS"OS_SpriteOp",546,ASP%,TS%,TSX%,TSY%,8:LINE SBX%,SBY%,SX%,SY% ELSE LINE SBX%,SBY%,SX%,SY%:SYS"OS_SpriteOp",546,ASP%,TS%,TSX%,TSY%,8
  660SC%=3-SC%:WAIT:SYS"OS_Byte",113,SC%:SYS"OS_Byte",112,3-SC%:UNTIL TD<1.25 OR Y=0 OR Z=OZ:IF TD<1.25 VOICE1,"IronEffect-ArrowHit" ELSE VOICE1,"IronEffect-ArrowMiss"
  670SOUND1,&17F,&2550,1:*IronFadeOut
  680SYS"OS_Byte",112,1:SYS"OS_Byte",113,1:ORIGIN 0,128:VDU 24,0;0;1279;799;
  690IF TD<1.25 THEN
  700RESTORE 1150:FORN%=1TO4:READN$,X%,Y%:SYS"OS_SpriteOp",290,ASP%,N$,X%,Y%:NEXT:SYS"OS_SpriteOp",290,ASP%,"32",684+HX/1.25*200,464+HY/1.25*180,8:*IronFadeIn 16
  710PROCmouse:SC%(AR%)=100-INT(TD/1.25*100):IF SC%(AR%)>99 SC%(AR%)=99 ELSE IF SC%(AR%)<1 SC%(AR%)=1
  720ELSE IF X>34 AND Z>40 AND MH% THEN VOICE1,"IronEffect-Hurt":SOUND1,&17F,&2550,1:MH%=FALSE:SYS"OS_SpriteOp",290,ASP%,"45",16,268:OSCLI"IronFadeIn 16":PROCmouse ELSE PROCshowpos
  730ENDIF:*IronFadeOut
  740AR%+=1:IF AR%<5 ENDPROC
  750AR%=1:RESTORE 1170:FORN%=1TO5:READN$,X%,Y%:SYS"OS_SpriteOp",290,ASP%,N$,X%,Y%:NEXT:GCOL7:PROCwpr("Scores",600)
  760BSC%=0:FORI%=1TO4:MOVE492,564-I%*36:PRINT"Shot ";I%;" - ";SC%(I%):IF SC%(I%)>BSC% BSC%=SC%(I%)
  770NEXT:PROCwpr("Best - "+STR$BSC%,340):*IronFadeIn 16
  780PROCmouse:TSC%+=BSC%:SYS"OS_SpriteOp",290,ASP%,"38",452,268:PROCwpr("Total :",600):PROCwpr(STR$TSC%,568):IF RD%=6 PROCwpr("There is 1 round left in the "+FST$(MT%)+" match.",480) ELSE IF RD%<7 PROCwpr("There are "+STR$(7-RD%)+" rounds left in the "+FST$(MT%)+" match.",480)
  790PROCmouse:REMRD%=7:TSC%=&7FFFFFFF:MT%=3
  800IF RD%=7 THEN
  810 SYS"OS_SpriteOp",290,ASP%,"38",452,268:SN%=450+25*MT%
  820 IF TSC%<SN% THEN
  830  M$=STR$(SN%-TSC%)+" point":IF SN%-TSC%<>1 M$+="s"
  840  PROCwpr("I'm afraid you were "+M$+" short of winning the "+FST$(MT%)+" match. You've been eliminated.",600):E%=TRUE
  850 ELSE
  860  IF MT%=3 THEN
  870   PROCwpr("Well done ! You are the winner of the cup for this year's archery contest.",600):?(HIMEM+10)=0:?(HIMEM+145)=0:?(HIMEM+160)=80:E%=TRUE
  880  ELSE
  890   PROCwpr("Well done, you are the winner of the "+FST$(MT%)+" match. Now see how you fare in the "+FST$(MT%+1)+".",600):MT%+=1:?(HIMEM+&163)=MT%:RD%=1:TSC%=0:SC%()=0:TX=RND(1)*(15+RD%*4)-(7.5+RD%*2):TZ=11.5:W%=RND(31)-16
  900  ENDIF
  910 ENDIF
  920 PROCmouse
  930ELSE
  940 RD%+=1:SC%()=0:TX=RND(1)*(15+RD%*4)-(7.5+RD%*2):TZ+=2.5:W%=RND(31)-16
  950ENDIF:*IronFadeOut
  960ENDPROC
  970:
  980DEF PROCwpr(S$,Y%):LOCAL T$,P%
  990REPEAT:T$=""
 1000 IF LENS$>12 THEN
 1010  P%=12:WHILE MID$(S$,P%,1)<>" ":P%-=1:ENDWHILE
 1020  T$=RIGHT$(S$,LEN(S$)-P%):S$=LEFT$(S$,P%-1)
 1030 ENDIF
 1040 MOVE WPC%-16*LENS$,Y%:PRINTS$:Y%-=36:S$=T$
 1050UNTIL S$="":ENDPROC
 1060:
 1070DEF PROCshowpos:VDU24,16;268;427;787;:SYS"OS_SpriteOp",290,ASP%,"24",16,268:SYS"OS_SpriteOp",290,ASP%,"14",200+TX*4.7,280+TZ*7,8:GX%=220+X*4.7:GY%=288+Z*7:I%=15:*IronFadeIn 16
 1080*FX 21,9
 1090REPEAT:I%=15-I%:FORJ%=1TO5:WAIT:NEXT:GCOLI%:POINT GX%,GY%:GCOL15-I%:POINT GX%-4,GY%:POINT GX%+4,GY%:POINT GX%,GY%+4:POINT GX%,GY%-4:MOUSE MX%,MY%,B%:UNTIL B%<>0:REPEAT:MOUSE MX%,MY%,B%:UNTIL B%=0:VDU24,0;0;1279;799;:ENDPROC
 1100:
 1110DATA 29,56,28,46,296,40,51,560,52,52,784,176,53,1036,24,50,800,38,54,672,144,35,452,644,36,452,268,40,908,416,41,908,268,42,1056,268,44,892,268
 1120:
 1130DATA 46,296,40,25,16,268,26,140,608,35,452,644,36,452,268,37,908,268
 1140:
 1150DATA 39,452,268,40,908,416,41,908,268,42,1056,268
 1160:
 1170DATA 35,452,644,38,452,268,40,908,416,42,1056,268,43,908,268
 1180:
 1190DEF PROCmouse:*FX 21,9
 1200REPEAT:MOUSE MX%,MY%,B%:UNTIL B%=0:REPEAT:MOUSE MX%,MY%,B%:UNTIL B%<>0:ENDPROC
 1210:
 1220DEF PROCasm
 1230sp=13:link=14
 1240FOR o%=0 TO 2 STEP 2
 1250P%=code%
 1260[OPT o%
 1270\ Copy screen
 1280.copy STMFD (sp)!,{R6-R12,link}:MOV R0,#200:LDR R1,from:LDR R2,to
 1290.clp LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:SUBS R0,R0,#1:BNE clp:LDMFD (sp)!,{R6-R12,PC}
 1300\
 1310.from EQUD S%
 1320.to EQUD T%
 1330]
 1340IF P%>(code%+space%) MODE 15:PRINT"Not enough code space.":END
 1350NEXT
 1360ENDPROC
 1370:
 1380DEF PROCerror:ON ERROR OFF
 1390MODE 15:OFF:CALLHIMEM+&214
 1400*FX 20
 1410IF ERR=17 PRINT"Goodbye." ELSE PRINT"Iron Lord has stopped because of a fatal error :-"''REPORT$
 1420ENDPROC

 � >:IronLord.!IronLord.Iron2
� (C) 1990 UBI soft.
<� Archimedes version by Cygnus Software Engineering Ltd.
(:
2� � �error:�
<:
F)space%=&48:� code% space%,ASP% &10714
P{� SC%(4),TD%(9,2),FST$(3):� I%=1 � 9:� TD%(I%,0),TD%(I%,1),TD%(I%,2):�:FST$(1)="first":FST$(2)="second":FST$(3)="third"
ZV� 68,-60,0,52,-48,1,44,-40,2,40,-32,3,32,-28,4,28,-28,5,28,-28,5,24,-24,6,24,-24,6
d:
n?!ASP%=&10714:�"IronLoad <IronLord$Dir>.ArchSpr "+�~(ASP%+4)
x�asm
�Tș"Sound_QInit":�I%=1�8:ș"Sound_AttachVoice",I%,0:�:ș"Sound_Configure",1,0,100
�:
�i� 9:ȓ Ȑ 4,0,1272,792:� 8:� 0,0:� 0,796:� 1276,796:ȓ 16,264,412,520:� 452,264:� 1264,264:� 1264,780
�x� X%=32 � 1024 � 248:� 8:ȓ X%,12,216,228:� 7:ȓ X%+4,16,208,220:� 6:ȓ X%+8,20,200,212:� 5:ȓ Ȑ X%+12,24,192,204:�
��ș"OS_SpriteOp",303,ASP%,"29":FR%=�:� I%=1 � 14:� N$,X%,Y%:ș"OS_SpriteOp",290,ASP%,N$,X%,Y%:�:� 8:� 784,176:� 884,76:� 984,176
�WPC%=222:� 6
��� ?(�+10)=&FF �wpr("Welcome to the great archery contest. To win the cup you must be victorious in three matches.",696) � �wpr("The archery contest has now finished.",696):�wpr("See you next year !",516)
�*IronFadeIn 16
��mouse:*IronFadeOut
�#WPC%=668:� ?(�+10)=&FF �do_arch
�?Z%=2:V%=1:A%=44:B%=304:C%=&B0:� � �:�"<IronLord$Dir>.Iron1"
�:
�� �do_arch
^ȗ � 240,512:E%=�:MH%=�:MT%=?(�+&163):RD%=1:AR%=1:ST%=0:EV%=30:DR%=0:R%=176:SC%()=0:TSC%=0
�� 9:� 100,216:� ST%:� 604,216:�;EV%:� 640,72:� DR%:�3,5:� 884,84:� 884+122*�(�(DR%)),86+122*�(�(DR%)):� 576,64:� 576+108*�(�(EV%)),66+108*�(�(EV%))
6TX=�(1)*(15+RD%*4)-(7.5+RD%*2):TZ=11.5:W%=�(31)-16
"��:F%=�:� �DjD:� I%=1 � 6:� N$,X%,Y%:ș"OS_SpriteOp",290,ASP%,N$,X%,Y%,8:�:� 15:� 244,432:� 154,616:� 200,784:� (W%<0 � FR%) � (W%>0 � � FR%) ș"OS_SpriteOp",303,ASP%,"29":FR%=� FR%
,T� W%=0 ș"OS_SpriteOp",290,ASP%,"30",56,28 � ș"OS_SpriteOp",290,ASP%,"29",56,28
67�9:� W%>0 � 140,148:�;W% � � W%<0 � -160,148:�(W%)
@�TSX%=(R%*TX)/TZ*2-TD%(RD%,0):TSY%=TD%(RD%,1):ș"OS_SpriteOp",280,ASP%,�(TD%(RD%,2)) � ,,TS%:ș"OS_SpriteOp",546,ASP%,TS%,TSX%+856,TSY%+492,8
J*IronFadeIn 16
Tȗ � 2:*FX 21,9
^?�:J%=0:�:ȗ MX%,MY%,B%:J%+=1:� B%<>0:Ȗ:� J%=1 J%=3 � J%=12
h� MY%>40 � MY%<80 �
r3ODR%=DR%:� MX%>792 � MX%<816 � DR%>-45 � DR%-=1
|)� MX%>840 � MX%<871 � DR%<45 � DR%+=1
��� ODR%<>DR% � �3,5:� 884,84:� 884+122*�(�(ODR%)),86+122*�(�(ODR%)):� 884,84:� 884+122*�(�(DR%)),86+122*�(�(DR%)):� 5:ȓ Ȑ 896,44,64,32:� 9:� 640,72:�(DR%)
��
�� MX%>672 � MX%<712 �
�2OEV%=EV%:� MY%>152 � MY%<184 � EV%>10 � EV%-=1
�)� MY%>200 � MY%<228 � EV%<70 � EV%+=1
��� OEV%<>EV% � �3,5:� 576,64:� 576+108*�(�(OEV%)),66+108*�(�(OEV%)):� 576,64:� 576+108*�(�(EV%)),66+108*�(�(EV%)):� 5:ȓ Ȑ 604,188,64,32:� 9:� 604,216:�;EV%
��
�6� MX%>280 � MX%<496 � MY%>12 � MY%<240 � J%=1:F%=�
�E� MX%>1024 � MX%<1240 � MY%>12 � MY%<240 � E%=�:ȗ �:*IronFadeOut
�� I%=1 � J%:Ȗ:�
�� F% � E%:� F% �fire
�� E%
��
:
\� �fire:ST%=0:J%=3:�:ST%+=1:� I%=1 � J%:Ȗ:�:� 5:ȓ Ȑ 356,188,64,32:� 9:� 100,216:� ST%
6� ST%=30 ș"OS_SpriteOp",290,ASP%,"47",296,40:J%=4
&6� ST%=60 ș"OS_SpriteOp",290,ASP%,"48",296,40:J%=5
0Qȗ MX%,MY%,B%:� B%=0 � ST%=99:ȗ �:ȡ1,"IronEffect-FireArrow":�1,&17F,&2550,1
:�� 24,0;0;1279;787;:ș"OS_SpriteOp",290,ASP%,"25",16,268:ș"OS_SpriteOp",290,ASP%,"26",228,676,8:� 15:� 244,432:� 200,784:ș"OS_SpriteOp",290,ASP%,"28",104,560,8:�I%=1�5:Ȗ:�
Dkș"OS_SpriteOp",290,ASP%,"25",16,268:� 244,432:� 200,784:ș"OS_SpriteOp",290,ASP%,"28",104,560,8:� copy
N�� 24,452;268;1263;783;:ȑ 856,620:� 15:S=�(ST%)*2.5:D=1/16:dt=1/25:g=9.8:VX=S*�(�(EV%))*�(�(DR%)):VY=S*�(�(EV%)):VZ=S*�(�(EV%))*�(�(DR%)):BX=0:BY=0.5:BZ=1:X=0:Y=0:Z=0:TD=9:SC%=1:*FX112,2
X8�:BX=BX+VX*dt:BY=BY+VY*dt:BZ=BZ+VZ*dt:OX=X:OY=Y:OZ=Z
b{V=�(VX*VX+VY*VY+VZ*VZ):X=BX+(VX/V):Y=BY+(VY/V):Z=BZ+(VZ/V):VX=VX-D*(VX-W%)*dt:VY=VY-(D*VY+g)*dt:VZ=VZ-D*VZ*dt:� Y<0 Y=0
l�� OZ<=TZ � Z>=TZ � Q=(TZ-OZ)/(Z-OZ):HX=(OX+Q*(X-OX))-TX:HY=(OY+Q*(Y-OY))-1.75:TD=�(HX*HX+HY*HY):� Y<0.5 � �(X-TX)<1.25 � X=OX:Y=OY:Z=OZ
v}SX%=(R%*X)/Z*2:SY%=(R%*(Y-1.75))/Z*2:SBX%=(R%*BX)/BZ*2:SBY%=(R%*(BY-1.75))/BZ*2:SHY%=(R%*-1.75)/Z*2:SHBY%=(R%*-1.75)/BZ*2
�xș"OS_SpriteOp",290,ASP%,"35",-404,152:ș"OS_SpriteOp",290,ASP%,"36",-404,-224:ș"OS_SpriteOp",290,ASP%,"37",52,-224
���0:� SBX%,SHBY%,SX%,SHY%:�15:� Z<TZ � TD<1.25 ș"OS_SpriteOp",546,ASP%,TS%,TSX%,TSY%,8:� SBX%,SBY%,SX%,SY% � � SBX%,SBY%,SX%,SY%:ș"OS_SpriteOp",546,ASP%,TS%,TSX%,TSY%,8
��SC%=3-SC%:Ȗ:ș"OS_Byte",113,SC%:ș"OS_Byte",112,3-SC%:� TD<1.25 � Y=0 � Z=OZ:� TD<1.25 ȡ1,"IronEffect-ArrowHit" � ȡ1,"IronEffect-ArrowMiss"
� �1,&17F,&2550,1:*IronFadeOut
�Cș"OS_Byte",112,1:ș"OS_Byte",113,1:ȑ 0,128:� 24,0;0;1279;799;
�� TD<1.25 �
��� �D~D:�N%=1�4:�N$,X%,Y%:ș"OS_SpriteOp",290,ASP%,N$,X%,Y%:�:ș"OS_SpriteOp",290,ASP%,"32",684+HX/1.25*200,464+HY/1.25*180,8:*IronFadeIn 16
�Z�mouse:SC%(AR%)=100-�(TD/1.25*100):� SC%(AR%)>99 SC%(AR%)=99 � � SC%(AR%)<1 SC%(AR%)=1
Џ� � X>34 � Z>40 � MH% � ȡ1,"IronEffect-Hurt":�1,&17F,&2550,1:MH%=�:ș"OS_SpriteOp",290,ASP%,"45",16,268:�"IronFadeIn 16":�mouse � �showpos
��:*IronFadeOut
�AR%+=1:� AR%<5 �
�\AR%=1:� �tRD:�N%=1�5:�N$,X%,Y%:ș"OS_SpriteOp",290,ASP%,N$,X%,Y%:�:�7:�wpr("Scores",600)
�WBSC%=0:�I%=1�4:�492,564-I%*36:�"Shot ";I%;" - ";SC%(I%):� SC%(I%)>BSC% BSC%=SC%(I%)
.�:�wpr("Best - "+�BSC%,340):*IronFadeIn 16
��mouse:TSC%+=BSC%:ș"OS_SpriteOp",290,ASP%,"38",452,268:�wpr("Total :",600):�wpr(�TSC%,568):� RD%=6 �wpr("There is 1 round left in the "+FST$(MT%)+" match.",480) � � RD%<7 �wpr("There are "+�(7-RD%)+" rounds left in the "+FST$(MT%)+" match.",480)
&�mouse:�RD%=7:TSC%=&7FFFFFFF:MT%=3
 
� RD%=7 �
*9 ș"OS_SpriteOp",290,ASP%,"38",452,268:SN%=450+25*MT%
4 � TSC%<SN% �
>3  M$=�(SN%-TSC%)+" point":� SN%-TSC%<>1 M$+="s"
Hs  �wpr("I'm afraid you were "+M$+" short of winning the "+FST$(MT%)+" match. You've been eliminated.",600):E%=�
R �
\  � MT%=3 �
f�   �wpr("Well done ! You are the winner of the cup for this year's archery contest.",600):?(�+10)=0:?(�+145)=0:?(�+160)=80:E%=�
p  �
z�   �wpr("Well done, you are the winner of the "+FST$(MT%)+" match. Now see how you fare in the "+FST$(MT%+1)+".",600):MT%+=1:?(�+&163)=MT%:RD%=1:TSC%=0:SC%()=0:TX=�(1)*(15+RD%*4)-(7.5+RD%*2):TZ=11.5:W%=�(31)-16
�  �
� �
� �mouse
��
�F RD%+=1:SC%()=0:TX=�(1)*(15+RD%*4)-(7.5+RD%*2):TZ+=2.5:W%=�(31)-16
��:*IronFadeOut
��
�:
�� �wpr(S$,Y%):� T$,P%
��:T$=""
� � �S$>12 �
�%  P%=12:ȕ �S$,P%,1)<>" ":P%-=1:�
�#  T$=�S$,�(S$)-P%):S$=�S$,P%-1)
 �
& � WPC%-16*�S$,Y%:�S$:Y%-=36:S$=T$

� S$="":�
$:
.�� �showpos:�24,16;268;427;787;:ș"OS_SpriteOp",290,ASP%,"24",16,268:ș"OS_SpriteOp",290,ASP%,"14",200+TX*4.7,280+TZ*7,8:GX%=220+X*4.7:GY%=288+Z*7:I%=15:*IronFadeIn 16
8*FX 21,9
B��:I%=15-I%:�J%=1�5:Ȗ:�:�I%:Ȓ GX%,GY%:�15-I%:Ȓ GX%-4,GY%:Ȓ GX%+4,GY%:Ȓ GX%,GY%+4:Ȓ GX%,GY%-4:ȗ MX%,MY%,B%:� B%<>0:�:ȗ MX%,MY%,B%:� B%=0:�24,0;0;1279;799;:�
L:
V�� 29,56,28,46,296,40,51,560,52,52,784,176,53,1036,24,50,800,38,54,672,144,35,452,644,36,452,268,40,908,416,41,908,268,42,1056,268,44,892,268
`:
jE� 46,296,40,25,16,268,26,140,608,35,452,644,36,452,268,37,908,268
t:
~2� 39,452,268,40,908,416,41,908,268,42,1056,268
�:
�=� 35,452,644,38,452,268,40,908,416,42,1056,268,43,908,268
�:
�� �mouse:*FX 21,9
�4�:ȗ MX%,MY%,B%:� B%=0:�:ȗ MX%,MY%,B%:� B%<>0:�
�:
�
� �asm
�sp=13:link=14
�� o%=0 � 2 � 2
�P%=code%
�[OPT o%
�\ Copy screen
E.copy STMFD (sp)!,{R6-R12,link}:MOV R0,#200:LDR R1,from:LDR R2,to

�.clp LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:LDMIA R1!,{R3-R12}:STMIA R2!,{R3-R12}:SUBS R0,R0,#1:BNE clp:LDMFD (sp)!,{R6-R12,PC}
\
.from EQUD S%
(.to EQUD T%
2]
<8� P%>(code%+space%) � 15:�"Not enough code space.":�
F�
P�
Z:
d� �error:� � �
n� 15:�:֓+&214
x
*FX 20
�Q� �=17 �"Goodbye." � �"Iron Lord has stopped because of a fatal error :-"''�$
��
�
00000000  0d 00 0a 20 f4 20 3e 3a  49 72 6f 6e 4c 6f 72 64  |... . >:IronLord|
00000010  2e 21 49 72 6f 6e 4c 6f  72 64 2e 49 72 6f 6e 32  |.!IronLord.Iron2|
00000020  0d 00 14 18 f4 20 28 43  29 20 31 39 39 30 20 55  |..... (C) 1990 U|
00000030  42 49 20 73 6f 66 74 2e  0d 00 1e 3c f4 20 41 72  |BI soft....<. Ar|
00000040  63 68 69 6d 65 64 65 73  20 76 65 72 73 69 6f 6e  |chimedes version|
00000050  20 62 79 20 43 79 67 6e  75 73 20 53 6f 66 74 77  | by Cygnus Softw|
00000060  61 72 65 20 45 6e 67 69  6e 65 65 72 69 6e 67 20  |are Engineering |
00000070  4c 74 64 2e 0d 00 28 05  3a 0d 00 32 10 ee 20 85  |Ltd...(.:..2.. .|
00000080  20 f2 65 72 72 6f 72 3a  e0 0d 00 3c 05 3a 0d 00  | .error:...<.:..|
00000090  46 29 73 70 61 63 65 25  3d 26 34 38 3a de 20 63  |F)space%=&48:. c|
000000a0  6f 64 65 25 20 73 70 61  63 65 25 2c 41 53 50 25  |ode% space%,ASP%|
000000b0  20 26 31 30 37 31 34 0d  00 50 7b de 20 53 43 25  | &10714..P{. SC%|
000000c0  28 34 29 2c 54 44 25 28  39 2c 32 29 2c 46 53 54  |(4),TD%(9,2),FST|
000000d0  24 28 33 29 3a e3 20 49  25 3d 31 20 b8 20 39 3a  |$(3):. I%=1 . 9:|
000000e0  f3 20 54 44 25 28 49 25  2c 30 29 2c 54 44 25 28  |. TD%(I%,0),TD%(|
000000f0  49 25 2c 31 29 2c 54 44  25 28 49 25 2c 32 29 3a  |I%,1),TD%(I%,2):|
00000100  ed 3a 46 53 54 24 28 31  29 3d 22 66 69 72 73 74  |.:FST$(1)="first|
00000110  22 3a 46 53 54 24 28 32  29 3d 22 73 65 63 6f 6e  |":FST$(2)="secon|
00000120  64 22 3a 46 53 54 24 28  33 29 3d 22 74 68 69 72  |d":FST$(3)="thir|
00000130  64 22 0d 00 5a 56 dc 20  36 38 2c 2d 36 30 2c 30  |d"..ZV. 68,-60,0|
00000140  2c 35 32 2c 2d 34 38 2c  31 2c 34 34 2c 2d 34 30  |,52,-48,1,44,-40|
00000150  2c 32 2c 34 30 2c 2d 33  32 2c 33 2c 33 32 2c 2d  |,2,40,-32,3,32,-|
00000160  32 38 2c 34 2c 32 38 2c  2d 32 38 2c 35 2c 32 38  |28,4,28,-28,5,28|
00000170  2c 2d 32 38 2c 35 2c 32  34 2c 2d 32 34 2c 36 2c  |,-28,5,24,-24,6,|
00000180  32 34 2c 2d 32 34 2c 36  0d 00 64 05 3a 0d 00 6e  |24,-24,6..d.:..n|
00000190  3f 21 41 53 50 25 3d 26  31 30 37 31 34 3a ff 22  |?!ASP%=&10714:."|
000001a0  49 72 6f 6e 4c 6f 61 64  20 3c 49 72 6f 6e 4c 6f  |IronLoad <IronLo|
000001b0  72 64 24 44 69 72 3e 2e  41 72 63 68 53 70 72 20  |rd$Dir>.ArchSpr |
000001c0  22 2b c3 7e 28 41 53 50  25 2b 34 29 0d 00 78 08  |"+.~(ASP%+4)..x.|
000001d0  f2 61 73 6d 0d 00 82 54  c8 99 22 53 6f 75 6e 64  |.asm...T.."Sound|
000001e0  5f 51 49 6e 69 74 22 3a  e3 49 25 3d 31 b8 38 3a  |_QInit":.I%=1.8:|
000001f0  c8 99 22 53 6f 75 6e 64  5f 41 74 74 61 63 68 56  |.."Sound_AttachV|
00000200  6f 69 63 65 22 2c 49 25  2c 30 3a ed 3a c8 99 22  |oice",I%,0:.:.."|
00000210  53 6f 75 6e 64 5f 43 6f  6e 66 69 67 75 72 65 22  |Sound_Configure"|
00000220  2c 31 2c 30 2c 31 30 30  0d 00 8c 05 3a 0d 00 96  |,1,0,100....:...|
00000230  69 e6 20 39 3a c8 93 20  c8 90 20 34 2c 30 2c 31  |i. 9:.. .. 4,0,1|
00000240  32 37 32 2c 37 39 32 3a  e6 20 38 3a ec 20 30 2c  |272,792:. 8:. 0,|
00000250  30 3a df 20 30 2c 37 39  36 3a df 20 31 32 37 36  |0:. 0,796:. 1276|
00000260  2c 37 39 36 3a c8 93 20  31 36 2c 32 36 34 2c 34  |,796:.. 16,264,4|
00000270  31 32 2c 35 32 30 3a ec  20 34 35 32 2c 32 36 34  |12,520:. 452,264|
00000280  3a df 20 31 32 36 34 2c  32 36 34 3a df 20 31 32  |:. 1264,264:. 12|
00000290  36 34 2c 37 38 30 0d 00  a0 78 e3 20 58 25 3d 33  |64,780...x. X%=3|
000002a0  32 20 b8 20 31 30 32 34  20 88 20 32 34 38 3a e6  |2 . 1024 . 248:.|
000002b0  20 38 3a c8 93 20 58 25  2c 31 32 2c 32 31 36 2c  | 8:.. X%,12,216,|
000002c0  32 32 38 3a e6 20 37 3a  c8 93 20 58 25 2b 34 2c  |228:. 7:.. X%+4,|
000002d0  31 36 2c 32 30 38 2c 32  32 30 3a e6 20 36 3a c8  |16,208,220:. 6:.|
000002e0  93 20 58 25 2b 38 2c 32  30 2c 32 30 30 2c 32 31  |. X%+8,20,200,21|
000002f0  32 3a e6 20 35 3a c8 93  20 c8 90 20 58 25 2b 31  |2:. 5:.. .. X%+1|
00000300  32 2c 32 34 2c 31 39 32  2c 32 30 34 3a ed 0d 00  |2,24,192,204:...|
00000310  aa 83 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |...."OS_SpriteOp|
00000320  22 2c 33 30 33 2c 41 53  50 25 2c 22 32 39 22 3a  |",303,ASP%,"29":|
00000330  46 52 25 3d b9 3a e3 20  49 25 3d 31 20 b8 20 31  |FR%=.:. I%=1 . 1|
00000340  34 3a f3 20 4e 24 2c 58  25 2c 59 25 3a c8 99 22  |4:. N$,X%,Y%:.."|
00000350  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 39 30  |OS_SpriteOp",290|
00000360  2c 41 53 50 25 2c 4e 24  2c 58 25 2c 59 25 3a ed  |,ASP%,N$,X%,Y%:.|
00000370  3a e6 20 38 3a ec 20 37  38 34 2c 31 37 36 3a df  |:. 8:. 784,176:.|
00000380  20 38 38 34 2c 37 36 3a  df 20 39 38 34 2c 31 37  | 884,76:. 984,17|
00000390  36 0d 00 b4 10 57 50 43  25 3d 32 32 32 3a e6 20  |6....WPC%=222:. |
000003a0  36 0d 00 be cf e7 20 3f  28 93 2b 31 30 29 3d 26  |6..... ?(.+10)=&|
000003b0  46 46 20 f2 77 70 72 28  22 57 65 6c 63 6f 6d 65  |FF .wpr("Welcome|
000003c0  20 74 6f 20 74 68 65 20  67 72 65 61 74 20 61 72  | to the great ar|
000003d0  63 68 65 72 79 20 63 6f  6e 74 65 73 74 2e 20 54  |chery contest. T|
000003e0  6f 20 77 69 6e 20 74 68  65 20 63 75 70 20 79 6f  |o win the cup yo|
000003f0  75 20 6d 75 73 74 20 62  65 20 76 69 63 74 6f 72  |u must be victor|
00000400  69 6f 75 73 20 69 6e 20  74 68 72 65 65 20 6d 61  |ious in three ma|
00000410  74 63 68 65 73 2e 22 2c  36 39 36 29 20 8b 20 f2  |tches.",696) . .|
00000420  77 70 72 28 22 54 68 65  20 61 72 63 68 65 72 79  |wpr("The archery|
00000430  20 63 6f 6e 74 65 73 74  20 68 61 73 20 6e 6f 77  | contest has now|
00000440  20 66 69 6e 69 73 68 65  64 2e 22 2c 36 39 36 29  | finished.",696)|
00000450  3a f2 77 70 72 28 22 53  65 65 20 79 6f 75 20 6e  |:.wpr("See you n|
00000460  65 78 74 20 79 65 61 72  20 21 22 2c 35 31 36 29  |ext year !",516)|
00000470  0d 00 c8 12 2a 49 72 6f  6e 46 61 64 65 49 6e 20  |....*IronFadeIn |
00000480  31 36 0d 00 d2 17 f2 6d  6f 75 73 65 3a 2a 49 72  |16.....mouse:*Ir|
00000490  6f 6e 46 61 64 65 4f 75  74 0d 00 dc 23 57 50 43  |onFadeOut...#WPC|
000004a0  25 3d 36 36 38 3a e7 20  3f 28 93 2b 31 30 29 3d  |%=668:. ?(.+10)=|
000004b0  26 46 46 20 f2 64 6f 5f  61 72 63 68 0d 00 e6 3f  |&FF .do_arch...?|
000004c0  5a 25 3d 32 3a 56 25 3d  31 3a 41 25 3d 34 34 3a  |Z%=2:V%=1:A%=44:|
000004d0  42 25 3d 33 30 34 3a 43  25 3d 26 42 30 3a ee 20  |B%=304:C%=&B0:. |
000004e0  85 20 87 3a d7 22 3c 49  72 6f 6e 4c 6f 72 64 24  |. .:."<IronLord$|
000004f0  44 69 72 3e 2e 49 72 6f  6e 31 22 0d 00 f0 05 3a  |Dir>.Iron1"....:|
00000500  0d 00 fa 0e dd 20 f2 64  6f 5f 61 72 63 68 0d 01  |..... .do_arch..|
00000510  04 5e c8 97 20 b8 20 32  34 30 2c 35 31 32 3a 45  |.^.. . 240,512:E|
00000520  25 3d a3 3a 4d 48 25 3d  b9 3a 4d 54 25 3d 3f 28  |%=.:MH%=.:MT%=?(|
00000530  93 2b 26 31 36 33 29 3a  52 44 25 3d 31 3a 41 52  |.+&163):RD%=1:AR|
00000540  25 3d 31 3a 53 54 25 3d  30 3a 45 56 25 3d 33 30  |%=1:ST%=0:EV%=30|
00000550  3a 44 52 25 3d 30 3a 52  25 3d 31 37 36 3a 53 43  |:DR%=0:R%=176:SC|
00000560  25 28 29 3d 30 3a 54 53  43 25 3d 30 0d 01 0e 97  |%()=0:TSC%=0....|
00000570  e6 20 39 3a ec 20 31 30  30 2c 32 31 36 3a f1 20  |. 9:. 100,216:. |
00000580  53 54 25 3a ec 20 36 30  34 2c 32 31 36 3a f1 3b  |ST%:. 604,216:.;|
00000590  45 56 25 3a ec 20 36 34  30 2c 37 32 3a f1 20 44  |EV%:. 640,72:. D|
000005a0  52 25 3a e6 33 2c 35 3a  ec 20 38 38 34 2c 38 34  |R%:.3,5:. 884,84|
000005b0  3a df 20 38 38 34 2b 31  32 32 2a b5 28 b2 28 44  |:. 884+122*.(.(D|
000005c0  52 25 29 29 2c 38 36 2b  31 32 32 2a 9b 28 b2 28  |R%)),86+122*.(.(|
000005d0  44 52 25 29 29 3a ec 20  35 37 36 2c 36 34 3a df  |DR%)):. 576,64:.|
000005e0  20 35 37 36 2b 31 30 38  2a 9b 28 b2 28 45 56 25  | 576+108*.(.(EV%|
000005f0  29 29 2c 36 36 2b 31 30  38 2a b5 28 b2 28 45 56  |)),66+108*.(.(EV|
00000600  25 29 29 0d 01 18 36 54  58 3d b3 28 31 29 2a 28  |%))...6TX=.(1)*(|
00000610  31 35 2b 52 44 25 2a 34  29 2d 28 37 2e 35 2b 52  |15+RD%*4)-(7.5+R|
00000620  44 25 2a 32 29 3a 54 5a  3d 31 31 2e 35 3a 57 25  |D%*2):TZ=11.5:W%|
00000630  3d b3 28 33 31 29 2d 31  36 0d 01 22 b8 f5 3a 46  |=.(31)-16.."..:F|
00000640  25 3d a3 3a f7 20 8d 44  6a 44 3a e3 20 49 25 3d  |%=.:. .DjD:. I%=|
00000650  31 20 b8 20 36 3a f3 20  4e 24 2c 58 25 2c 59 25  |1 . 6:. N$,X%,Y%|
00000660  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00000670  2c 32 39 30 2c 41 53 50  25 2c 4e 24 2c 58 25 2c  |,290,ASP%,N$,X%,|
00000680  59 25 2c 38 3a ed 3a e6  20 31 35 3a ec 20 32 34  |Y%,8:.:. 15:. 24|
00000690  34 2c 34 33 32 3a df 20  31 35 34 2c 36 31 36 3a  |4,432:. 154,616:|
000006a0  df 20 32 30 30 2c 37 38  34 3a e7 20 28 57 25 3c  |. 200,784:. (W%<|
000006b0  30 20 80 20 46 52 25 29  20 84 20 28 57 25 3e 30  |0 . FR%) . (W%>0|
000006c0  20 80 20 ac 20 46 52 25  29 20 c8 99 22 4f 53 5f  | . . FR%) .."OS_|
000006d0  53 70 72 69 74 65 4f 70  22 2c 33 30 33 2c 41 53  |SpriteOp",303,AS|
000006e0  50 25 2c 22 32 39 22 3a  46 52 25 3d ac 20 46 52  |P%,"29":FR%=. FR|
000006f0  25 0d 01 2c 54 e7 20 57  25 3d 30 20 c8 99 22 4f  |%..,T. W%=0 .."O|
00000700  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 39 30 2c  |S_SpriteOp",290,|
00000710  41 53 50 25 2c 22 33 30  22 2c 35 36 2c 32 38 20  |ASP%,"30",56,28 |
00000720  8b 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |. .."OS_SpriteOp|
00000730  22 2c 32 39 30 2c 41 53  50 25 2c 22 32 39 22 2c  |",290,ASP%,"29",|
00000740  35 36 2c 32 38 0d 01 36  37 e6 39 3a e7 20 57 25  |56,28..67.9:. W%|
00000750  3e 30 20 ec 20 31 34 30  2c 31 34 38 3a f1 3b 57  |>0 . 140,148:.;W|
00000760  25 20 8b 20 e7 20 57 25  3c 30 20 ec 20 2d 31 36  |% . . W%<0 . -16|
00000770  30 2c 31 34 38 3a f1 94  28 57 25 29 0d 01 40 90  |0,148:..(W%)..@.|
00000780  54 53 58 25 3d 28 52 25  2a 54 58 29 2f 54 5a 2a  |TSX%=(R%*TX)/TZ*|
00000790  32 2d 54 44 25 28 52 44  25 2c 30 29 3a 54 53 59  |2-TD%(RD%,0):TSY|
000007a0  25 3d 54 44 25 28 52 44  25 2c 31 29 3a c8 99 22  |%=TD%(RD%,1):.."|
000007b0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 38 30  |OS_SpriteOp",280|
000007c0  2c 41 53 50 25 2c c3 28  54 44 25 28 52 44 25 2c  |,ASP%,.(TD%(RD%,|
000007d0  32 29 29 20 b8 20 2c 2c  54 53 25 3a c8 99 22 4f  |2)) . ,,TS%:.."O|
000007e0  53 5f 53 70 72 69 74 65  4f 70 22 2c 35 34 36 2c  |S_SpriteOp",546,|
000007f0  41 53 50 25 2c 54 53 25  2c 54 53 58 25 2b 38 35  |ASP%,TS%,TSX%+85|
00000800  36 2c 54 53 59 25 2b 34  39 32 2c 38 0d 01 4a 12  |6,TSY%+492,8..J.|
00000810  2a 49 72 6f 6e 46 61 64  65 49 6e 20 31 36 0d 01  |*IronFadeIn 16..|
00000820  54 13 c8 97 20 ee 20 32  3a 2a 46 58 20 32 31 2c  |T... . 2:*FX 21,|
00000830  39 0d 01 5e 3f f5 3a 4a  25 3d 30 3a f5 3a c8 97  |9..^?.:J%=0:.:..|
00000840  20 4d 58 25 2c 4d 59 25  2c 42 25 3a 4a 25 2b 3d  | MX%,MY%,B%:J%+=|
00000850  31 3a fd 20 42 25 3c 3e  30 3a c8 96 3a e7 20 4a  |1:. B%<>0:..:. J|
00000860  25 3d 31 20 4a 25 3d 33  20 8b 20 4a 25 3d 31 32  |%=1 J%=3 . J%=12|
00000870  0d 01 68 17 e7 20 4d 59  25 3e 34 30 20 80 20 4d  |..h.. MY%>40 . M|
00000880  59 25 3c 38 30 20 8c 0d  01 72 33 4f 44 52 25 3d  |Y%<80 ...r3ODR%=|
00000890  44 52 25 3a e7 20 4d 58  25 3e 37 39 32 20 80 20  |DR%:. MX%>792 . |
000008a0  4d 58 25 3c 38 31 36 20  80 20 44 52 25 3e 2d 34  |MX%<816 . DR%>-4|
000008b0  35 20 8c 20 44 52 25 2d  3d 31 0d 01 7c 29 e7 20  |5 . DR%-=1..|). |
000008c0  4d 58 25 3e 38 34 30 20  80 20 4d 58 25 3c 38 37  |MX%>840 . MX%<87|
000008d0  31 20 80 20 44 52 25 3c  34 35 20 8c 20 44 52 25  |1 . DR%<45 . DR%|
000008e0  2b 3d 31 0d 01 86 a0 e7  20 4f 44 52 25 3c 3e 44  |+=1..... ODR%<>D|
000008f0  52 25 20 8c 20 e6 33 2c  35 3a ec 20 38 38 34 2c  |R% . .3,5:. 884,|
00000900  38 34 3a df 20 38 38 34  2b 31 32 32 2a b5 28 b2  |84:. 884+122*.(.|
00000910  28 4f 44 52 25 29 29 2c  38 36 2b 31 32 32 2a 9b  |(ODR%)),86+122*.|
00000920  28 b2 28 4f 44 52 25 29  29 3a ec 20 38 38 34 2c  |(.(ODR%)):. 884,|
00000930  38 34 3a df 20 38 38 34  2b 31 32 32 2a b5 28 b2  |84:. 884+122*.(.|
00000940  28 44 52 25 29 29 2c 38  36 2b 31 32 32 2a 9b 28  |(DR%)),86+122*.(|
00000950  b2 28 44 52 25 29 29 3a  e6 20 35 3a c8 93 20 c8  |.(DR%)):. 5:.. .|
00000960  90 20 38 39 36 2c 34 34  2c 36 34 2c 33 32 3a e6  |. 896,44,64,32:.|
00000970  20 39 3a ec 20 36 34 30  2c 37 32 3a f1 94 28 44  | 9:. 640,72:..(D|
00000980  52 25 29 0d 01 90 05 cd  0d 01 9a 19 e7 20 4d 58  |R%).......... MX|
00000990  25 3e 36 37 32 20 80 20  4d 58 25 3c 37 31 32 20  |%>672 . MX%<712 |
000009a0  8c 0d 01 a4 32 4f 45 56  25 3d 45 56 25 3a e7 20  |....2OEV%=EV%:. |
000009b0  4d 59 25 3e 31 35 32 20  80 20 4d 59 25 3c 31 38  |MY%>152 . MY%<18|
000009c0  34 20 80 20 45 56 25 3e  31 30 20 8c 20 45 56 25  |4 . EV%>10 . EV%|
000009d0  2d 3d 31 0d 01 ae 29 e7  20 4d 59 25 3e 32 30 30  |-=1...). MY%>200|
000009e0  20 80 20 4d 59 25 3c 32  32 38 20 80 20 45 56 25  | . MY%<228 . EV%|
000009f0  3c 37 30 20 8c 20 45 56  25 2b 3d 31 0d 01 b8 a0  |<70 . EV%+=1....|
00000a00  e7 20 4f 45 56 25 3c 3e  45 56 25 20 8c 20 e6 33  |. OEV%<>EV% . .3|
00000a10  2c 35 3a ec 20 35 37 36  2c 36 34 3a df 20 35 37  |,5:. 576,64:. 57|
00000a20  36 2b 31 30 38 2a 9b 28  b2 28 4f 45 56 25 29 29  |6+108*.(.(OEV%))|
00000a30  2c 36 36 2b 31 30 38 2a  b5 28 b2 28 4f 45 56 25  |,66+108*.(.(OEV%|
00000a40  29 29 3a ec 20 35 37 36  2c 36 34 3a df 20 35 37  |)):. 576,64:. 57|
00000a50  36 2b 31 30 38 2a 9b 28  b2 28 45 56 25 29 29 2c  |6+108*.(.(EV%)),|
00000a60  36 36 2b 31 30 38 2a b5  28 b2 28 45 56 25 29 29  |66+108*.(.(EV%))|
00000a70  3a e6 20 35 3a c8 93 20  c8 90 20 36 30 34 2c 31  |:. 5:.. .. 604,1|
00000a80  38 38 2c 36 34 2c 33 32  3a e6 20 39 3a ec 20 36  |88,64,32:. 9:. 6|
00000a90  30 34 2c 32 31 36 3a f1  3b 45 56 25 0d 01 c2 05  |04,216:.;EV%....|
00000aa0  cd 0d 01 cc 36 e7 20 4d  58 25 3e 32 38 30 20 80  |....6. MX%>280 .|
00000ab0  20 4d 58 25 3c 34 39 36  20 80 20 4d 59 25 3e 31  | MX%<496 . MY%>1|
00000ac0  32 20 80 20 4d 59 25 3c  32 34 30 20 8c 20 4a 25  |2 . MY%<240 . J%|
00000ad0  3d 31 3a 46 25 3d b9 0d  01 d6 45 e7 20 4d 58 25  |=1:F%=....E. MX%|
00000ae0  3e 31 30 32 34 20 80 20  4d 58 25 3c 31 32 34 30  |>1024 . MX%<1240|
00000af0  20 80 20 4d 59 25 3e 31  32 20 80 20 4d 59 25 3c  | . MY%>12 . MY%<|
00000b00  32 34 30 20 8c 20 45 25  3d b9 3a c8 97 20 87 3a  |240 . E%=.:.. .:|
00000b10  2a 49 72 6f 6e 46 61 64  65 4f 75 74 0d 01 e0 14  |*IronFadeOut....|
00000b20  e3 20 49 25 3d 31 20 b8  20 4a 25 3a c8 96 3a ed  |. I%=1 . J%:..:.|
00000b30  0d 01 ea 18 fd 20 46 25  20 84 20 45 25 3a e7 20  |..... F% . E%:. |
00000b40  46 25 20 f2 66 69 72 65  0d 01 f4 08 fd 20 45 25  |F% .fire..... E%|
00000b50  0d 01 fe 05 e1 0d 02 08  05 3a 0d 02 12 5c dd 20  |.........:...\. |
00000b60  f2 66 69 72 65 3a 53 54  25 3d 30 3a 4a 25 3d 33  |.fire:ST%=0:J%=3|
00000b70  3a f5 3a 53 54 25 2b 3d  31 3a e3 20 49 25 3d 31  |:.:ST%+=1:. I%=1|
00000b80  20 b8 20 4a 25 3a c8 96  3a ed 3a e6 20 35 3a c8  | . J%:..:.:. 5:.|
00000b90  93 20 c8 90 20 33 35 36  2c 31 38 38 2c 36 34 2c  |. .. 356,188,64,|
00000ba0  33 32 3a e6 20 39 3a ec  20 31 30 30 2c 32 31 36  |32:. 9:. 100,216|
00000bb0  3a f1 20 53 54 25 0d 02  1c 36 e7 20 53 54 25 3d  |:. ST%...6. ST%=|
00000bc0  33 30 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |30 .."OS_SpriteO|
00000bd0  70 22 2c 32 39 30 2c 41  53 50 25 2c 22 34 37 22  |p",290,ASP%,"47"|
00000be0  2c 32 39 36 2c 34 30 3a  4a 25 3d 34 0d 02 26 36  |,296,40:J%=4..&6|
00000bf0  e7 20 53 54 25 3d 36 30  20 c8 99 22 4f 53 5f 53  |. ST%=60 .."OS_S|
00000c00  70 72 69 74 65 4f 70 22  2c 32 39 30 2c 41 53 50  |priteOp",290,ASP|
00000c10  25 2c 22 34 38 22 2c 32  39 36 2c 34 30 3a 4a 25  |%,"48",296,40:J%|
00000c20  3d 35 0d 02 30 51 c8 97  20 4d 58 25 2c 4d 59 25  |=5..0Q.. MX%,MY%|
00000c30  2c 42 25 3a fd 20 42 25  3d 30 20 84 20 53 54 25  |,B%:. B%=0 . ST%|
00000c40  3d 39 39 3a c8 97 20 87  3a c8 a1 31 2c 22 49 72  |=99:.. .:..1,"Ir|
00000c50  6f 6e 45 66 66 65 63 74  2d 46 69 72 65 41 72 72  |onEffect-FireArr|
00000c60  6f 77 22 3a d4 31 2c 26  31 37 46 2c 26 32 35 35  |ow":.1,&17F,&255|
00000c70  30 2c 31 0d 02 3a b1 ef  20 32 34 2c 30 3b 30 3b  |0,1..:.. 24,0;0;|
00000c80  31 32 37 39 3b 37 38 37  3b 3a c8 99 22 4f 53 5f  |1279;787;:.."OS_|
00000c90  53 70 72 69 74 65 4f 70  22 2c 32 39 30 2c 41 53  |SpriteOp",290,AS|
00000ca0  50 25 2c 22 32 35 22 2c  31 36 2c 32 36 38 3a c8  |P%,"25",16,268:.|
00000cb0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000cc0  39 30 2c 41 53 50 25 2c  22 32 36 22 2c 32 32 38  |90,ASP%,"26",228|
00000cd0  2c 36 37 36 2c 38 3a e6  20 31 35 3a ec 20 32 34  |,676,8:. 15:. 24|
00000ce0  34 2c 34 33 32 3a df 20  32 30 30 2c 37 38 34 3a  |4,432:. 200,784:|
00000cf0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000d00  32 39 30 2c 41 53 50 25  2c 22 32 38 22 2c 31 30  |290,ASP%,"28",10|
00000d10  34 2c 35 36 30 2c 38 3a  e3 49 25 3d 31 b8 35 3a  |4,560,8:.I%=1.5:|
00000d20  c8 96 3a ed 0d 02 44 6b  c8 99 22 4f 53 5f 53 70  |..:...Dk.."OS_Sp|
00000d30  72 69 74 65 4f 70 22 2c  32 39 30 2c 41 53 50 25  |riteOp",290,ASP%|
00000d40  2c 22 32 35 22 2c 31 36  2c 32 36 38 3a ec 20 32  |,"25",16,268:. 2|
00000d50  34 34 2c 34 33 32 3a df  20 32 30 30 2c 37 38 34  |44,432:. 200,784|
00000d60  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00000d70  2c 32 39 30 2c 41 53 50  25 2c 22 32 38 22 2c 31  |,290,ASP%,"28",1|
00000d80  30 34 2c 35 36 30 2c 38  3a d6 20 63 6f 70 79 0d  |04,560,8:. copy.|
00000d90  02 4e be ef 20 32 34 2c  34 35 32 3b 32 36 38 3b  |.N.. 24,452;268;|
00000da0  31 32 36 33 3b 37 38 33  3b 3a c8 91 20 38 35 36  |1263;783;:.. 856|
00000db0  2c 36 32 30 3a e6 20 31  35 3a 53 3d b6 28 53 54  |,620:. 15:S=.(ST|
00000dc0  25 29 2a 32 2e 35 3a 44  3d 31 2f 31 36 3a 64 74  |%)*2.5:D=1/16:dt|
00000dd0  3d 31 2f 32 35 3a 67 3d  39 2e 38 3a 56 58 3d 53  |=1/25:g=9.8:VX=S|
00000de0  2a 9b 28 b2 28 45 56 25  29 29 2a b5 28 b2 28 44  |*.(.(EV%))*.(.(D|
00000df0  52 25 29 29 3a 56 59 3d  53 2a b5 28 b2 28 45 56  |R%)):VY=S*.(.(EV|
00000e00  25 29 29 3a 56 5a 3d 53  2a 9b 28 b2 28 45 56 25  |%)):VZ=S*.(.(EV%|
00000e10  29 29 2a 9b 28 b2 28 44  52 25 29 29 3a 42 58 3d  |))*.(.(DR%)):BX=|
00000e20  30 3a 42 59 3d 30 2e 35  3a 42 5a 3d 31 3a 58 3d  |0:BY=0.5:BZ=1:X=|
00000e30  30 3a 59 3d 30 3a 5a 3d  30 3a 54 44 3d 39 3a 53  |0:Y=0:Z=0:TD=9:S|
00000e40  43 25 3d 31 3a 2a 46 58  31 31 32 2c 32 0d 02 58  |C%=1:*FX112,2..X|
00000e50  38 f5 3a 42 58 3d 42 58  2b 56 58 2a 64 74 3a 42  |8.:BX=BX+VX*dt:B|
00000e60  59 3d 42 59 2b 56 59 2a  64 74 3a 42 5a 3d 42 5a  |Y=BY+VY*dt:BZ=BZ|
00000e70  2b 56 5a 2a 64 74 3a 4f  58 3d 58 3a 4f 59 3d 59  |+VZ*dt:OX=X:OY=Y|
00000e80  3a 4f 5a 3d 5a 0d 02 62  7b 56 3d b6 28 56 58 2a  |:OZ=Z..b{V=.(VX*|
00000e90  56 58 2b 56 59 2a 56 59  2b 56 5a 2a 56 5a 29 3a  |VX+VY*VY+VZ*VZ):|
00000ea0  58 3d 42 58 2b 28 56 58  2f 56 29 3a 59 3d 42 59  |X=BX+(VX/V):Y=BY|
00000eb0  2b 28 56 59 2f 56 29 3a  5a 3d 42 5a 2b 28 56 5a  |+(VY/V):Z=BZ+(VZ|
00000ec0  2f 56 29 3a 56 58 3d 56  58 2d 44 2a 28 56 58 2d  |/V):VX=VX-D*(VX-|
00000ed0  57 25 29 2a 64 74 3a 56  59 3d 56 59 2d 28 44 2a  |W%)*dt:VY=VY-(D*|
00000ee0  56 59 2b 67 29 2a 64 74  3a 56 5a 3d 56 5a 2d 44  |VY+g)*dt:VZ=VZ-D|
00000ef0  2a 56 5a 2a 64 74 3a e7  20 59 3c 30 20 59 3d 30  |*VZ*dt:. Y<0 Y=0|
00000f00  0d 02 6c 8b e7 20 4f 5a  3c 3d 54 5a 20 80 20 5a  |..l.. OZ<=TZ . Z|
00000f10  3e 3d 54 5a 20 8c 20 51  3d 28 54 5a 2d 4f 5a 29  |>=TZ . Q=(TZ-OZ)|
00000f20  2f 28 5a 2d 4f 5a 29 3a  48 58 3d 28 4f 58 2b 51  |/(Z-OZ):HX=(OX+Q|
00000f30  2a 28 58 2d 4f 58 29 29  2d 54 58 3a 48 59 3d 28  |*(X-OX))-TX:HY=(|
00000f40  4f 59 2b 51 2a 28 59 2d  4f 59 29 29 2d 31 2e 37  |OY+Q*(Y-OY))-1.7|
00000f50  35 3a 54 44 3d b6 28 48  58 2a 48 58 2b 48 59 2a  |5:TD=.(HX*HX+HY*|
00000f60  48 59 29 3a e7 20 59 3c  30 2e 35 20 80 20 94 28  |HY):. Y<0.5 . .(|
00000f70  58 2d 54 58 29 3c 31 2e  32 35 20 8c 20 58 3d 4f  |X-TX)<1.25 . X=O|
00000f80  58 3a 59 3d 4f 59 3a 5a  3d 4f 5a 0d 02 76 7d 53  |X:Y=OY:Z=OZ..v}S|
00000f90  58 25 3d 28 52 25 2a 58  29 2f 5a 2a 32 3a 53 59  |X%=(R%*X)/Z*2:SY|
00000fa0  25 3d 28 52 25 2a 28 59  2d 31 2e 37 35 29 29 2f  |%=(R%*(Y-1.75))/|
00000fb0  5a 2a 32 3a 53 42 58 25  3d 28 52 25 2a 42 58 29  |Z*2:SBX%=(R%*BX)|
00000fc0  2f 42 5a 2a 32 3a 53 42  59 25 3d 28 52 25 2a 28  |/BZ*2:SBY%=(R%*(|
00000fd0  42 59 2d 31 2e 37 35 29  29 2f 42 5a 2a 32 3a 53  |BY-1.75))/BZ*2:S|
00000fe0  48 59 25 3d 28 52 25 2a  2d 31 2e 37 35 29 2f 5a  |HY%=(R%*-1.75)/Z|
00000ff0  2a 32 3a 53 48 42 59 25  3d 28 52 25 2a 2d 31 2e  |*2:SHBY%=(R%*-1.|
00001000  37 35 29 2f 42 5a 2a 32  0d 02 80 78 c8 99 22 4f  |75)/BZ*2...x.."O|
00001010  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 39 30 2c  |S_SpriteOp",290,|
00001020  41 53 50 25 2c 22 33 35  22 2c 2d 34 30 34 2c 31  |ASP%,"35",-404,1|
00001030  35 32 3a c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |52:.."OS_SpriteO|
00001040  70 22 2c 32 39 30 2c 41  53 50 25 2c 22 33 36 22  |p",290,ASP%,"36"|
00001050  2c 2d 34 30 34 2c 2d 32  32 34 3a c8 99 22 4f 53  |,-404,-224:.."OS|
00001060  5f 53 70 72 69 74 65 4f  70 22 2c 32 39 30 2c 41  |_SpriteOp",290,A|
00001070  53 50 25 2c 22 33 37 22  2c 35 32 2c 2d 32 32 34  |SP%,"37",52,-224|
00001080  0d 02 8a ad e6 30 3a 86  20 53 42 58 25 2c 53 48  |.....0:. SBX%,SH|
00001090  42 59 25 2c 53 58 25 2c  53 48 59 25 3a e6 31 35  |BY%,SX%,SHY%:.15|
000010a0  3a e7 20 5a 3c 54 5a 20  84 20 54 44 3c 31 2e 32  |:. Z<TZ . TD<1.2|
000010b0  35 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |5 .."OS_SpriteOp|
000010c0  22 2c 35 34 36 2c 41 53  50 25 2c 54 53 25 2c 54  |",546,ASP%,TS%,T|
000010d0  53 58 25 2c 54 53 59 25  2c 38 3a 86 20 53 42 58  |SX%,TSY%,8:. SBX|
000010e0  25 2c 53 42 59 25 2c 53  58 25 2c 53 59 25 20 8b  |%,SBY%,SX%,SY% .|
000010f0  20 86 20 53 42 58 25 2c  53 42 59 25 2c 53 58 25  | . SBX%,SBY%,SX%|
00001100  2c 53 59 25 3a c8 99 22  4f 53 5f 53 70 72 69 74  |,SY%:.."OS_Sprit|
00001110  65 4f 70 22 2c 35 34 36  2c 41 53 50 25 2c 54 53  |eOp",546,ASP%,TS|
00001120  25 2c 54 53 58 25 2c 54  53 59 25 2c 38 0d 02 94  |%,TSX%,TSY%,8...|
00001130  92 53 43 25 3d 33 2d 53  43 25 3a c8 96 3a c8 99  |.SC%=3-SC%:..:..|
00001140  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 53 43  |"OS_Byte",113,SC|
00001150  25 3a c8 99 22 4f 53 5f  42 79 74 65 22 2c 31 31  |%:.."OS_Byte",11|
00001160  32 2c 33 2d 53 43 25 3a  fd 20 54 44 3c 31 2e 32  |2,3-SC%:. TD<1.2|
00001170  35 20 84 20 59 3d 30 20  84 20 5a 3d 4f 5a 3a e7  |5 . Y=0 . Z=OZ:.|
00001180  20 54 44 3c 31 2e 32 35  20 c8 a1 31 2c 22 49 72  | TD<1.25 ..1,"Ir|
00001190  6f 6e 45 66 66 65 63 74  2d 41 72 72 6f 77 48 69  |onEffect-ArrowHi|
000011a0  74 22 20 8b 20 c8 a1 31  2c 22 49 72 6f 6e 45 66  |t" . ..1,"IronEf|
000011b0  66 65 63 74 2d 41 72 72  6f 77 4d 69 73 73 22 0d  |fect-ArrowMiss".|
000011c0  02 9e 20 d4 31 2c 26 31  37 46 2c 26 32 35 35 30  |.. .1,&17F,&2550|
000011d0  2c 31 3a 2a 49 72 6f 6e  46 61 64 65 4f 75 74 0d  |,1:*IronFadeOut.|
000011e0  02 a8 43 c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |..C.."OS_Byte",1|
000011f0  31 32 2c 31 3a c8 99 22  4f 53 5f 42 79 74 65 22  |12,1:.."OS_Byte"|
00001200  2c 31 31 33 2c 31 3a c8  91 20 30 2c 31 32 38 3a  |,113,1:.. 0,128:|
00001210  ef 20 32 34 2c 30 3b 30  3b 31 32 37 39 3b 37 39  |. 24,0;0;1279;79|
00001220  39 3b 0d 02 b2 0f e7 20  54 44 3c 31 2e 32 35 20  |9;..... TD<1.25 |
00001230  8c 0d 02 bc 8f f7 20 8d  44 7e 44 3a e3 4e 25 3d  |...... .D~D:.N%=|
00001240  31 b8 34 3a f3 4e 24 2c  58 25 2c 59 25 3a c8 99  |1.4:.N$,X%,Y%:..|
00001250  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 39  |"OS_SpriteOp",29|
00001260  30 2c 41 53 50 25 2c 4e  24 2c 58 25 2c 59 25 3a  |0,ASP%,N$,X%,Y%:|
00001270  ed 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.:.."OS_SpriteOp|
00001280  22 2c 32 39 30 2c 41 53  50 25 2c 22 33 32 22 2c  |",290,ASP%,"32",|
00001290  36 38 34 2b 48 58 2f 31  2e 32 35 2a 32 30 30 2c  |684+HX/1.25*200,|
000012a0  34 36 34 2b 48 59 2f 31  2e 32 35 2a 31 38 30 2c  |464+HY/1.25*180,|
000012b0  38 3a 2a 49 72 6f 6e 46  61 64 65 49 6e 20 31 36  |8:*IronFadeIn 16|
000012c0  0d 02 c6 5a f2 6d 6f 75  73 65 3a 53 43 25 28 41  |...Z.mouse:SC%(A|
000012d0  52 25 29 3d 31 30 30 2d  a8 28 54 44 2f 31 2e 32  |R%)=100-.(TD/1.2|
000012e0  35 2a 31 30 30 29 3a e7  20 53 43 25 28 41 52 25  |5*100):. SC%(AR%|
000012f0  29 3e 39 39 20 53 43 25  28 41 52 25 29 3d 39 39  |)>99 SC%(AR%)=99|
00001300  20 8b 20 e7 20 53 43 25  28 41 52 25 29 3c 31 20  | . . SC%(AR%)<1 |
00001310  53 43 25 28 41 52 25 29  3d 31 0d 02 d0 8f cc 20  |SC%(AR%)=1..... |
00001320  e7 20 58 3e 33 34 20 80  20 5a 3e 34 30 20 80 20  |. X>34 . Z>40 . |
00001330  4d 48 25 20 8c 20 c8 a1  31 2c 22 49 72 6f 6e 45  |MH% . ..1,"IronE|
00001340  66 66 65 63 74 2d 48 75  72 74 22 3a d4 31 2c 26  |ffect-Hurt":.1,&|
00001350  31 37 46 2c 26 32 35 35  30 2c 31 3a 4d 48 25 3d  |17F,&2550,1:MH%=|
00001360  a3 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.:.."OS_SpriteOp|
00001370  22 2c 32 39 30 2c 41 53  50 25 2c 22 34 35 22 2c  |",290,ASP%,"45",|
00001380  31 36 2c 32 36 38 3a ff  22 49 72 6f 6e 46 61 64  |16,268:."IronFad|
00001390  65 49 6e 20 31 36 22 3a  f2 6d 6f 75 73 65 20 8b  |eIn 16":.mouse .|
000013a0  20 f2 73 68 6f 77 70 6f  73 0d 02 da 12 cd 3a 2a  | .showpos.....:*|
000013b0  49 72 6f 6e 46 61 64 65  4f 75 74 0d 02 e4 14 41  |IronFadeOut....A|
000013c0  52 25 2b 3d 31 3a e7 20  41 52 25 3c 35 20 e1 0d  |R%+=1:. AR%<5 ..|
000013d0  02 ee 5c 41 52 25 3d 31  3a f7 20 8d 74 52 44 3a  |..\AR%=1:. .tRD:|
000013e0  e3 4e 25 3d 31 b8 35 3a  f3 4e 24 2c 58 25 2c 59  |.N%=1.5:.N$,X%,Y|
000013f0  25 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |%:.."OS_SpriteOp|
00001400  22 2c 32 39 30 2c 41 53  50 25 2c 4e 24 2c 58 25  |",290,ASP%,N$,X%|
00001410  2c 59 25 3a ed 3a e6 37  3a f2 77 70 72 28 22 53  |,Y%:.:.7:.wpr("S|
00001420  63 6f 72 65 73 22 2c 36  30 30 29 0d 02 f8 57 42  |cores",600)...WB|
00001430  53 43 25 3d 30 3a e3 49  25 3d 31 b8 34 3a ec 34  |SC%=0:.I%=1.4:.4|
00001440  39 32 2c 35 36 34 2d 49  25 2a 33 36 3a f1 22 53  |92,564-I%*36:."S|
00001450  68 6f 74 20 22 3b 49 25  3b 22 20 2d 20 22 3b 53  |hot ";I%;" - ";S|
00001460  43 25 28 49 25 29 3a e7  20 53 43 25 28 49 25 29  |C%(I%):. SC%(I%)|
00001470  3e 42 53 43 25 20 42 53  43 25 3d 53 43 25 28 49  |>BSC% BSC%=SC%(I|
00001480  25 29 0d 03 02 2e ed 3a  f2 77 70 72 28 22 42 65  |%).....:.wpr("Be|
00001490  73 74 20 2d 20 22 2b c3  42 53 43 25 2c 33 34 30  |st - "+.BSC%,340|
000014a0  29 3a 2a 49 72 6f 6e 46  61 64 65 49 6e 20 31 36  |):*IronFadeIn 16|
000014b0  0d 03 0c fa f2 6d 6f 75  73 65 3a 54 53 43 25 2b  |.....mouse:TSC%+|
000014c0  3d 42 53 43 25 3a c8 99  22 4f 53 5f 53 70 72 69  |=BSC%:.."OS_Spri|
000014d0  74 65 4f 70 22 2c 32 39  30 2c 41 53 50 25 2c 22  |teOp",290,ASP%,"|
000014e0  33 38 22 2c 34 35 32 2c  32 36 38 3a f2 77 70 72  |38",452,268:.wpr|
000014f0  28 22 54 6f 74 61 6c 20  3a 22 2c 36 30 30 29 3a  |("Total :",600):|
00001500  f2 77 70 72 28 c3 54 53  43 25 2c 35 36 38 29 3a  |.wpr(.TSC%,568):|
00001510  e7 20 52 44 25 3d 36 20  f2 77 70 72 28 22 54 68  |. RD%=6 .wpr("Th|
00001520  65 72 65 20 69 73 20 31  20 72 6f 75 6e 64 20 6c  |ere is 1 round l|
00001530  65 66 74 20 69 6e 20 74  68 65 20 22 2b 46 53 54  |eft in the "+FST|
00001540  24 28 4d 54 25 29 2b 22  20 6d 61 74 63 68 2e 22  |$(MT%)+" match."|
00001550  2c 34 38 30 29 20 8b 20  e7 20 52 44 25 3c 37 20  |,480) . . RD%<7 |
00001560  f2 77 70 72 28 22 54 68  65 72 65 20 61 72 65 20  |.wpr("There are |
00001570  22 2b c3 28 37 2d 52 44  25 29 2b 22 20 72 6f 75  |"+.(7-RD%)+" rou|
00001580  6e 64 73 20 6c 65 66 74  20 69 6e 20 74 68 65 20  |nds left in the |
00001590  22 2b 46 53 54 24 28 4d  54 25 29 2b 22 20 6d 61  |"+FST$(MT%)+" ma|
000015a0  74 63 68 2e 22 2c 34 38  30 29 0d 03 16 26 f2 6d  |tch.",480)...&.m|
000015b0  6f 75 73 65 3a f4 52 44  25 3d 37 3a 54 53 43 25  |ouse:.RD%=7:TSC%|
000015c0  3d 26 37 46 46 46 46 46  46 46 3a 4d 54 25 3d 33  |=&7FFFFFFF:MT%=3|
000015d0  0d 03 20 0d e7 20 52 44  25 3d 37 20 8c 0d 03 2a  |.. .. RD%=7 ...*|
000015e0  39 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |9 .."OS_SpriteOp|
000015f0  22 2c 32 39 30 2c 41 53  50 25 2c 22 33 38 22 2c  |",290,ASP%,"38",|
00001600  34 35 32 2c 32 36 38 3a  53 4e 25 3d 34 35 30 2b  |452,268:SN%=450+|
00001610  32 35 2a 4d 54 25 0d 03  34 11 20 e7 20 54 53 43  |25*MT%..4. . TSC|
00001620  25 3c 53 4e 25 20 8c 0d  03 3e 33 20 20 4d 24 3d  |%<SN% ...>3  M$=|
00001630  c3 28 53 4e 25 2d 54 53  43 25 29 2b 22 20 70 6f  |.(SN%-TSC%)+" po|
00001640  69 6e 74 22 3a e7 20 53  4e 25 2d 54 53 43 25 3c  |int":. SN%-TSC%<|
00001650  3e 31 20 4d 24 2b 3d 22  73 22 0d 03 48 73 20 20  |>1 M$+="s"..Hs  |
00001660  f2 77 70 72 28 22 49 27  6d 20 61 66 72 61 69 64  |.wpr("I'm afraid|
00001670  20 79 6f 75 20 77 65 72  65 20 22 2b 4d 24 2b 22  | you were "+M$+"|
00001680  20 73 68 6f 72 74 20 6f  66 20 77 69 6e 6e 69 6e  | short of winnin|
00001690  67 20 74 68 65 20 22 2b  46 53 54 24 28 4d 54 25  |g the "+FST$(MT%|
000016a0  29 2b 22 20 6d 61 74 63  68 2e 20 59 6f 75 27 76  |)+" match. You'v|
000016b0  65 20 62 65 65 6e 20 65  6c 69 6d 69 6e 61 74 65  |e been eliminate|
000016c0  64 2e 22 2c 36 30 30 29  3a 45 25 3d b9 0d 03 52  |d.",600):E%=...R|
000016d0  06 20 cc 0d 03 5c 0f 20  20 e7 20 4d 54 25 3d 33  |. ...\.  . MT%=3|
000016e0  20 8c 0d 03 66 83 20 20  20 f2 77 70 72 28 22 57  | ...f.   .wpr("W|
000016f0  65 6c 6c 20 64 6f 6e 65  20 21 20 59 6f 75 20 61  |ell done ! You a|
00001700  72 65 20 74 68 65 20 77  69 6e 6e 65 72 20 6f 66  |re the winner of|
00001710  20 74 68 65 20 63 75 70  20 66 6f 72 20 74 68 69  | the cup for thi|
00001720  73 20 79 65 61 72 27 73  20 61 72 63 68 65 72 79  |s year's archery|
00001730  20 63 6f 6e 74 65 73 74  2e 22 2c 36 30 30 29 3a  | contest.",600):|
00001740  3f 28 93 2b 31 30 29 3d  30 3a 3f 28 93 2b 31 34  |?(.+10)=0:?(.+14|
00001750  35 29 3d 30 3a 3f 28 93  2b 31 36 30 29 3d 38 30  |5)=0:?(.+160)=80|
00001760  3a 45 25 3d b9 0d 03 70  07 20 20 cc 0d 03 7a d6  |:E%=...p.  ...z.|
00001770  20 20 20 f2 77 70 72 28  22 57 65 6c 6c 20 64 6f  |   .wpr("Well do|
00001780  6e 65 2c 20 79 6f 75 20  61 72 65 20 74 68 65 20  |ne, you are the |
00001790  77 69 6e 6e 65 72 20 6f  66 20 74 68 65 20 22 2b  |winner of the "+|
000017a0  46 53 54 24 28 4d 54 25  29 2b 22 20 6d 61 74 63  |FST$(MT%)+" matc|
000017b0  68 2e 20 4e 6f 77 20 73  65 65 20 68 6f 77 20 79  |h. Now see how y|
000017c0  6f 75 20 66 61 72 65 20  69 6e 20 74 68 65 20 22  |ou fare in the "|
000017d0  2b 46 53 54 24 28 4d 54  25 2b 31 29 2b 22 2e 22  |+FST$(MT%+1)+"."|
000017e0  2c 36 30 30 29 3a 4d 54  25 2b 3d 31 3a 3f 28 93  |,600):MT%+=1:?(.|
000017f0  2b 26 31 36 33 29 3d 4d  54 25 3a 52 44 25 3d 31  |+&163)=MT%:RD%=1|
00001800  3a 54 53 43 25 3d 30 3a  53 43 25 28 29 3d 30 3a  |:TSC%=0:SC%()=0:|
00001810  54 58 3d b3 28 31 29 2a  28 31 35 2b 52 44 25 2a  |TX=.(1)*(15+RD%*|
00001820  34 29 2d 28 37 2e 35 2b  52 44 25 2a 32 29 3a 54  |4)-(7.5+RD%*2):T|
00001830  5a 3d 31 31 2e 35 3a 57  25 3d b3 28 33 31 29 2d  |Z=11.5:W%=.(31)-|
00001840  31 36 0d 03 84 07 20 20  cd 0d 03 8e 06 20 cd 0d  |16....  ..... ..|
00001850  03 98 0b 20 f2 6d 6f 75  73 65 0d 03 a2 05 cc 0d  |... .mouse......|
00001860  03 ac 46 20 52 44 25 2b  3d 31 3a 53 43 25 28 29  |..F RD%+=1:SC%()|
00001870  3d 30 3a 54 58 3d b3 28  31 29 2a 28 31 35 2b 52  |=0:TX=.(1)*(15+R|
00001880  44 25 2a 34 29 2d 28 37  2e 35 2b 52 44 25 2a 32  |D%*4)-(7.5+RD%*2|
00001890  29 3a 54 5a 2b 3d 32 2e  35 3a 57 25 3d b3 28 33  |):TZ+=2.5:W%=.(3|
000018a0  31 29 2d 31 36 0d 03 b6  12 cd 3a 2a 49 72 6f 6e  |1)-16.....:*Iron|
000018b0  46 61 64 65 4f 75 74 0d  03 c0 05 e1 0d 03 ca 05  |FadeOut.........|
000018c0  3a 0d 03 d4 19 dd 20 f2  77 70 72 28 53 24 2c 59  |:..... .wpr(S$,Y|
000018d0  25 29 3a ea 20 54 24 2c  50 25 0d 03 de 0b f5 3a  |%):. T$,P%.....:|
000018e0  54 24 3d 22 22 0d 03 e8  0f 20 e7 20 a9 53 24 3e  |T$="".... . .S$>|
000018f0  31 32 20 8c 0d 03 f2 25  20 20 50 25 3d 31 32 3a  |12 ....%  P%=12:|
00001900  c8 95 20 c1 53 24 2c 50  25 2c 31 29 3c 3e 22 20  |.. .S$,P%,1)<>" |
00001910  22 3a 50 25 2d 3d 31 3a  ce 0d 03 fc 23 20 20 54  |":P%-=1:....#  T|
00001920  24 3d c2 53 24 2c a9 28  53 24 29 2d 50 25 29 3a  |$=.S$,.(S$)-P%):|
00001930  53 24 3d c0 53 24 2c 50  25 2d 31 29 0d 04 06 06  |S$=.S$,P%-1)....|
00001940  20 cd 0d 04 10 26 20 ec  20 57 50 43 25 2d 31 36  | ....& . WPC%-16|
00001950  2a a9 53 24 2c 59 25 3a  f1 53 24 3a 59 25 2d 3d  |*.S$,Y%:.S$:Y%-=|
00001960  33 36 3a 53 24 3d 54 24  0d 04 1a 0d fd 20 53 24  |36:S$=T$..... S$|
00001970  3d 22 22 3a e1 0d 04 24  05 3a 0d 04 2e aa dd 20  |="":...$.:..... |
00001980  f2 73 68 6f 77 70 6f 73  3a ef 32 34 2c 31 36 3b  |.showpos:.24,16;|
00001990  32 36 38 3b 34 32 37 3b  37 38 37 3b 3a c8 99 22  |268;427;787;:.."|
000019a0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 39 30  |OS_SpriteOp",290|
000019b0  2c 41 53 50 25 2c 22 32  34 22 2c 31 36 2c 32 36  |,ASP%,"24",16,26|
000019c0  38 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |8:.."OS_SpriteOp|
000019d0  22 2c 32 39 30 2c 41 53  50 25 2c 22 31 34 22 2c  |",290,ASP%,"14",|
000019e0  32 30 30 2b 54 58 2a 34  2e 37 2c 32 38 30 2b 54  |200+TX*4.7,280+T|
000019f0  5a 2a 37 2c 38 3a 47 58  25 3d 32 32 30 2b 58 2a  |Z*7,8:GX%=220+X*|
00001a00  34 2e 37 3a 47 59 25 3d  32 38 38 2b 5a 2a 37 3a  |4.7:GY%=288+Z*7:|
00001a10  49 25 3d 31 35 3a 2a 49  72 6f 6e 46 61 64 65 49  |I%=15:*IronFadeI|
00001a20  6e 20 31 36 0d 04 38 0c  2a 46 58 20 32 31 2c 39  |n 16..8.*FX 21,9|
00001a30  0d 04 42 a6 f5 3a 49 25  3d 31 35 2d 49 25 3a e3  |..B..:I%=15-I%:.|
00001a40  4a 25 3d 31 b8 35 3a c8  96 3a ed 3a e6 49 25 3a  |J%=1.5:..:.:.I%:|
00001a50  c8 92 20 47 58 25 2c 47  59 25 3a e6 31 35 2d 49  |.. GX%,GY%:.15-I|
00001a60  25 3a c8 92 20 47 58 25  2d 34 2c 47 59 25 3a c8  |%:.. GX%-4,GY%:.|
00001a70  92 20 47 58 25 2b 34 2c  47 59 25 3a c8 92 20 47  |. GX%+4,GY%:.. G|
00001a80  58 25 2c 47 59 25 2b 34  3a c8 92 20 47 58 25 2c  |X%,GY%+4:.. GX%,|
00001a90  47 59 25 2d 34 3a c8 97  20 4d 58 25 2c 4d 59 25  |GY%-4:.. MX%,MY%|
00001aa0  2c 42 25 3a fd 20 42 25  3c 3e 30 3a f5 3a c8 97  |,B%:. B%<>0:.:..|
00001ab0  20 4d 58 25 2c 4d 59 25  2c 42 25 3a fd 20 42 25  | MX%,MY%,B%:. B%|
00001ac0  3d 30 3a ef 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |=0:.24,0;0;1279;|
00001ad0  37 39 39 3b 3a e1 0d 04  4c 05 3a 0d 04 56 90 dc  |799;:...L.:..V..|
00001ae0  20 32 39 2c 35 36 2c 32  38 2c 34 36 2c 32 39 36  | 29,56,28,46,296|
00001af0  2c 34 30 2c 35 31 2c 35  36 30 2c 35 32 2c 35 32  |,40,51,560,52,52|
00001b00  2c 37 38 34 2c 31 37 36  2c 35 33 2c 31 30 33 36  |,784,176,53,1036|
00001b10  2c 32 34 2c 35 30 2c 38  30 30 2c 33 38 2c 35 34  |,24,50,800,38,54|
00001b20  2c 36 37 32 2c 31 34 34  2c 33 35 2c 34 35 32 2c  |,672,144,35,452,|
00001b30  36 34 34 2c 33 36 2c 34  35 32 2c 32 36 38 2c 34  |644,36,452,268,4|
00001b40  30 2c 39 30 38 2c 34 31  36 2c 34 31 2c 39 30 38  |0,908,416,41,908|
00001b50  2c 32 36 38 2c 34 32 2c  31 30 35 36 2c 32 36 38  |,268,42,1056,268|
00001b60  2c 34 34 2c 38 39 32 2c  32 36 38 0d 04 60 05 3a  |,44,892,268..`.:|
00001b70  0d 04 6a 45 dc 20 34 36  2c 32 39 36 2c 34 30 2c  |..jE. 46,296,40,|
00001b80  32 35 2c 31 36 2c 32 36  38 2c 32 36 2c 31 34 30  |25,16,268,26,140|
00001b90  2c 36 30 38 2c 33 35 2c  34 35 32 2c 36 34 34 2c  |,608,35,452,644,|
00001ba0  33 36 2c 34 35 32 2c 32  36 38 2c 33 37 2c 39 30  |36,452,268,37,90|
00001bb0  38 2c 32 36 38 0d 04 74  05 3a 0d 04 7e 32 dc 20  |8,268..t.:..~2. |
00001bc0  33 39 2c 34 35 32 2c 32  36 38 2c 34 30 2c 39 30  |39,452,268,40,90|
00001bd0  38 2c 34 31 36 2c 34 31  2c 39 30 38 2c 32 36 38  |8,416,41,908,268|
00001be0  2c 34 32 2c 31 30 35 36  2c 32 36 38 0d 04 88 05  |,42,1056,268....|
00001bf0  3a 0d 04 92 3d dc 20 33  35 2c 34 35 32 2c 36 34  |:...=. 35,452,64|
00001c00  34 2c 33 38 2c 34 35 32  2c 32 36 38 2c 34 30 2c  |4,38,452,268,40,|
00001c10  39 30 38 2c 34 31 36 2c  34 32 2c 31 30 35 36 2c  |908,416,42,1056,|
00001c20  32 36 38 2c 34 33 2c 39  30 38 2c 32 36 38 0d 04  |268,43,908,268..|
00001c30  9c 05 3a 0d 04 a6 15 dd  20 f2 6d 6f 75 73 65 3a  |..:..... .mouse:|
00001c40  2a 46 58 20 32 31 2c 39  0d 04 b0 34 f5 3a c8 97  |*FX 21,9...4.:..|
00001c50  20 4d 58 25 2c 4d 59 25  2c 42 25 3a fd 20 42 25  | MX%,MY%,B%:. B%|
00001c60  3d 30 3a f5 3a c8 97 20  4d 58 25 2c 4d 59 25 2c  |=0:.:.. MX%,MY%,|
00001c70  42 25 3a fd 20 42 25 3c  3e 30 3a e1 0d 04 ba 05  |B%:. B%<>0:.....|
00001c80  3a 0d 04 c4 0a dd 20 f2  61 73 6d 0d 04 ce 11 73  |:..... .asm....s|
00001c90  70 3d 31 33 3a 6c 69 6e  6b 3d 31 34 0d 04 d8 12  |p=13:link=14....|
00001ca0  e3 20 6f 25 3d 30 20 b8  20 32 20 88 20 32 0d 04  |. o%=0 . 2 . 2..|
00001cb0  e2 0c 50 25 3d 63 6f 64  65 25 0d 04 ec 0b 5b 4f  |..P%=code%....[O|
00001cc0  50 54 20 6f 25 0d 04 f6  11 5c 20 43 6f 70 79 20  |PT o%....\ Copy |
00001cd0  73 63 72 65 65 6e 0d 05  00 45 2e 63 6f 70 79 20  |screen...E.copy |
00001ce0  53 54 4d 46 44 20 28 73  70 29 21 2c 7b 52 36 2d  |STMFD (sp)!,{R6-|
00001cf0  52 31 32 2c 6c 69 6e 6b  7d 3a 4d 4f 56 20 52 30  |R12,link}:MOV R0|
00001d00  2c 23 32 30 30 3a 4c 44  52 20 52 31 2c 66 72 6f  |,#200:LDR R1,fro|
00001d10  6d 3a 4c 44 52 20 52 32  2c 74 6f 0d 05 0a ce 2e  |m:LDR R2,to.....|
00001d20  63 6c 70 20 4c 44 4d 49  41 20 52 31 21 2c 7b 52  |clp LDMIA R1!,{R|
00001d30  33 2d 52 31 32 7d 3a 53  54 4d 49 41 20 52 32 21  |3-R12}:STMIA R2!|
00001d40  2c 7b 52 33 2d 52 31 32  7d 3a 4c 44 4d 49 41 20  |,{R3-R12}:LDMIA |
00001d50  52 31 21 2c 7b 52 33 2d  52 31 32 7d 3a 53 54 4d  |R1!,{R3-R12}:STM|
00001d60  49 41 20 52 32 21 2c 7b  52 33 2d 52 31 32 7d 3a  |IA R2!,{R3-R12}:|
00001d70  4c 44 4d 49 41 20 52 31  21 2c 7b 52 33 2d 52 31  |LDMIA R1!,{R3-R1|
00001d80  32 7d 3a 53 54 4d 49 41  20 52 32 21 2c 7b 52 33  |2}:STMIA R2!,{R3|
00001d90  2d 52 31 32 7d 3a 4c 44  4d 49 41 20 52 31 21 2c  |-R12}:LDMIA R1!,|
00001da0  7b 52 33 2d 52 31 32 7d  3a 53 54 4d 49 41 20 52  |{R3-R12}:STMIA R|
00001db0  32 21 2c 7b 52 33 2d 52  31 32 7d 3a 53 55 42 53  |2!,{R3-R12}:SUBS|
00001dc0  20 52 30 2c 52 30 2c 23  31 3a 42 4e 45 20 63 6c  | R0,R0,#1:BNE cl|
00001dd0  70 3a 4c 44 4d 46 44 20  28 73 70 29 21 2c 7b 52  |p:LDMFD (sp)!,{R|
00001de0  36 2d 52 31 32 2c 50 43  7d 0d 05 14 05 5c 0d 05  |6-R12,PC}....\..|
00001df0  1e 11 2e 66 72 6f 6d 20  45 51 55 44 20 53 25 0d  |...from EQUD S%.|
00001e00  05 28 0f 2e 74 6f 20 45  51 55 44 20 54 25 0d 05  |.(..to EQUD T%..|
00001e10  32 05 5d 0d 05 3c 38 e7  20 50 25 3e 28 63 6f 64  |2.]..<8. P%>(cod|
00001e20  65 25 2b 73 70 61 63 65  25 29 20 eb 20 31 35 3a  |e%+space%) . 15:|
00001e30  f1 22 4e 6f 74 20 65 6e  6f 75 67 68 20 63 6f 64  |."Not enough cod|
00001e40  65 20 73 70 61 63 65 2e  22 3a e0 0d 05 46 05 ed  |e space.":...F..|
00001e50  0d 05 50 05 e1 0d 05 5a  05 3a 0d 05 64 12 dd 20  |..P....Z.:..d.. |
00001e60  f2 65 72 72 6f 72 3a ee  20 85 20 87 0d 05 6e 12  |.error:. . ...n.|
00001e70  eb 20 31 35 3a 87 3a d6  93 2b 26 32 31 34 0d 05  |. 15:.:..+&214..|
00001e80  78 0a 2a 46 58 20 32 30  0d 05 82 51 e7 20 9f 3d  |x.*FX 20...Q. .=|
00001e90  31 37 20 f1 22 47 6f 6f  64 62 79 65 2e 22 20 8b  |17 ."Goodbye." .|
00001ea0  20 f1 22 49 72 6f 6e 20  4c 6f 72 64 20 68 61 73  | ."Iron Lord has|
00001eb0  20 73 74 6f 70 70 65 64  20 62 65 63 61 75 73 65  | stopped because|
00001ec0  20 6f 66 20 61 20 66 61  74 61 6c 20 65 72 72 6f  | of a fatal erro|
00001ed0  72 20 3a 2d 22 27 27 f6  24 0d 05 8c 05 e1 0d ff  |r :-"''.$.......|
00001ee0