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