Home » Archimedes archive » Acorn User » AU 1997-08 A.adf » !IronLord/Iron3
!IronLord/Iron3
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/Iron3 |
| Read OK: | ✔ |
| File size: | 327B bytes |
| Load address: | FFFFFB46 |
| Exec address: | 1A183700 |
File contents
10REM >:IronLord.!IronLord.Iron3
20REM (C) 1990 UBI soft.
30REM Archimedes version by Cygnus Software Engineering Ltd.
40:
50ON ERROR PROCerror:END
60:
70space%=&334:DIM code% space%,ISP% &19F9C,WSP% &1BCC,BSP% &400,CSP% &400
80DIM AX%(13),AY%(13),AS%(7),AT%(7),AO%(3),AOD$(7)
90FOR L%=0 TO 13:READ AX%(L%),AY%(L%):NEXT:FOR L%=0 TO 7:READ AOD$(L%),AS%(L%),AT%(L%):NEXT
100WL%=-98:WR%=-67
110:
120!ISP%=&19F9C
130!WSP%=&1BCC:WSP%!4=0:WSP%!8=16:WSP%!12=16
140!BSP%=&400:BSP%!4=0:BSP%!8=16:BSP%!12=16
150!CSP%=&400:CSP%!4=0:CSP%!8=16:CSP%!12=16
160PROCasm
170:
180PROCpicture:BK%=2:SYS"Sound_QInit":FORI%=1TO8:SYS"Sound_AttachVoice",I%,0:NEXT:SYS"Sound_Configure",1,0,100
190REPEAT:PROCmouse
200IF MX%>332 AND MX%<468 AND MY%>364 AND MY%<612 THEN PROCarm
210IF MX%>748 AND MX%<940 AND MY%>268 AND MY%<472 THEN PROCdice
220IF MX%>612 AND MX%<828 AND MY%>484 AND MY%<800 THEN MOUSE OFF:OSCLI"IronFadeOut":Z%=3:V%=13:ON ERROR OFF:CHAIN"<IronLord$Dir>.Iron1"
230UNTIL MY%<256:MOUSE OFF:*IronFadeOut
240Z%=2:V%=6:A%=728:B%=48:C%=&B0:ON ERROR OFF:CHAIN"<IronLord$Dir>.Iron1"
250:
260DATA 328,320,324,280,340,272,384,280,420,252,468,220,504,236,512,232,508,208,512,208,512,208,512,208,512,208,508,208
270:
280REM Opponents
290:
300DATA "This is Jean Brisemain. He is well known for the time he defeated five opponents in succession. Will you be able to beat him ?",6,20
310DATA "Your adversary is Arthur Leboucher, known as a vicious and pitiless person. Be wary if you want to win.",6,40
320DATA "You must fight against Louis Lethueur. He is reputed to take terrible revenge on those who defeat him. Will you dare ?",6,30
330DATA "Igor Baistroye is his name. He has the strength of five men; it will be very difficult to defeat him.",7,15
340DATA "Jean-Marie Lefourbe employs his excellent strength and trickery to defeat his adversaries. He will be most difficult to beat.",6,35
350DATA "Patrick Gradubide is a mighty figure, do not use trickery with him. To defeat him you must use all your strength from the outset.",7,17
360DATA "Here is Harold Schwartz de Maguere, whose legendary strength is matched only by his legendary stupidity.",7,18
370DATA "You are in front of Ivan Latruande, who usually wins through trickery. Beware !",6,25
380:
390DATA 4,4,4,3,2,1
400:
410DEF PROCpicture:CLG:OSCLI"IronLoad <IronLord$Dir>.InnPicture "+STR$~S%
420RESTORE 390:PROCrect(0,0,1276,256):WXC%=640:WYC%=128:WW%=38:GCOL 0
430PROCwpr("You are in a lively gaming room. In one corner an arm-wrestling contest is taking place. In another there is a rich merchant who challenges you to a game of dice."):*IronFadeIn 17
440MOUSE TO 612,300:MOUSE ON 2:ENDPROC
450:
460DEF PROCwpr(S$):LOCAL T$,P%,Y%:T$=S$:Y%=0
470REPEAT
480 IF LENT$>WW% THEN
490 P%=WW%+1:WHILE MID$(T$,P%,1)<>" ":P%-=1:ENDWHILE
500 T$=RIGHT$(T$,LEN(T$)-P%)
510 ELSE
520 T$=""
530 ENDIF
540 Y%+=1
550UNTIL T$=""
560Y%=WYC%+Y%*18
570REPEAT:T$=""
580 IF LENS$>WW% THEN
590 P%=WW%+1:WHILE MID$(S$,P%,1)<>" ":P%-=1:ENDWHILE
600 T$=RIGHT$(S$,LEN(S$)-P%):S$=LEFT$(S$,P%-1)
610 ENDIF
620 MOVE WXC%-16*LENS$,Y%:PRINTS$:Y%-=36:S$=T$
630UNTIL S$="":ENDPROC
640:
650DEF PROCcopy:IF BK%=1 !from=T%:!to=S% ELSE !from=S%:!to=T%
660CALL copy:ENDPROC
670:
680DEF PROCarm:MOUSE OFF:*IronFadeOut
690CLG:OSCLI"IronLoad <IronLord$Dir>.ArmSpr "+STR$~(ISP%+4):PROCchoose_opp
700GCOL 12:RECTANGLE 0,0,1276,796:RECTANGLE 4,4,1268,788:LINE 892,8,892,788:LINE 896,8,896,788:LINE 8,136,888,136:LINE 8,140,888,140:LINE 296,8,296,132:LINE 300,8,300,132:LINE 592,8,592,132:LINE 596,8,596,132:LINE 1080,8,1080,640:LINE 1084,8,1084,640:LINE 900,644,1268,644:LINE 900,648,1268,648
710RESTORE 800:FOR I%=1 TO 5:READ N$,X%,Y%:SYS"OS_SpriteOp",290,ISP%,N$,X%,Y%,8:NEXT:SYS"OS_SpriteOp",290,ISP%,STR$(AOP%+86),1132,660:PROCcopy:SG%=7:FC%=&DDA4+AOP%*&BE8:PROCstr:*IronFadeIn 18
720MOUSE TO 960,520:MOUSE ON 2:AF%=FALSE
730REPEAT:PROCmouse
740IF MX%<288 AND MY%<136 THEN PROCdoarm ELSE IF MX%>296 AND MX%<584 AND MY%<136 THEN PROCbw_up(AOD$(AOP%)):PROCbw_down
750UNTIL AF% OR MX%>596 AND MX%<884 AND MY%<136
760MOUSE OFF:*IronFadeOut
770SYS"OS_Byte",112,1:SYS"OS_Byte",113,1:PROCpicture:MX%=1272:MY%=796
780ENDPROC
790:
800DATA 83,16,16,96,168,20,84,324,8,85,624,8,94,944,660
810:
820DEF PROCchoose_opp
830FOR I%=0 TO 3:REPEAT:F%=TRUE:AO%(I%)=RND(8)-1
840IF I%>0 THEN
850FOR J%=0 TO I%-1:IF AO%(J%)=AO%(I%) F%=FALSE
860NEXT
870ENDIF
880UNTIL F%:NEXT:AO%=0:AOP%=AO%(0):AS%=AS%(AOP%):AT%=AT%(AOP%)
890ENDPROC
900:
910DEF PROCbw_up(S$):PROCcopy:SYS"OS_Byte",112,BK%:RESTORE 390:PROCrect(8,144,656,336):WXC%=336:WYC%=308:WW%=19:GCOL 0:PROCwpr(S$):SYS"OS_SpriteOp",265,WSP%:SYS"OS_SpriteOp",272,WSP%,"s",0,8,144,660,476
920VDU 24,8;144;1279;799;:FOR Y%=-188 TO 252 STEP 4:PROCdraw_bw(Y%):NEXT:PROCmouse
930ENDPROC
940:
950DEF PROCbw_down:FOR Y%=248 TO -192 STEP -4:PROCdraw_bw(Y%):NEXT:VDU 24,0;0;1279;799;
960ENDPROC
970:
980DEF PROCdraw_bw(Y%):SYS"OS_Byte",112,BK%
990SYS"OS_SpriteOp",290,ISP%,"82",8,144:SYS"OS_SpriteOp",546,ISP%,ISP%+FC%,656,476:IF SG%>0 SYS"OS_SpriteOp",290,ISP%,STR$(SG%-1),AX%(SG%-1),AY%(SG%-1),8
1000SYS"OS_SpriteOp",546,WSP%,WSP%+16,120,Y%:WAIT:SYS"OS_Byte",113,BK%:BK%=BK% EOR 3
1010ENDPROC
1020:
1030DEF PROCdoarm:MOUSE OFF:OMX%=MX%:OMY%=MY%:MOUSE TO 0,0
1040TIME=0:REPEAT:UNTILTIME>60:WAIT:SYS"OS_SpriteOp",290,ISP%,"97",168,20
1050TIME=0:REPEAT:UNTILTIME>60:WAIT:RECTANGLE FILL 200,76,76,20:SYS"OS_SpriteOp",290,ISP%,"98",168,20
1060TIME=0:REPEAT:UNTILTIME>60:WAIT:RECTANGLE FILL 16,24,20,56:SYS"OS_SpriteOp",290,ISP%,"99",28,12:PROCcopy
1070MOUSE RECTANGLE -100,-100,200,200:K%=1:M%=1:ATC%=0:REPEAT:TIME=0:N%=0:REPEAT:MOUSE MX%,MY%,B%:MOUSE TO 0,0
1080IF MX%=0 THEN
1090 IF K%=1 AND NOT INKEY(WL%) K%=2
1100 IF K%=2 AND INKEY(WL%) K%=3:N%+=1
1110 IF K%=3 AND NOT INKEY(WR%) K%=4
1115 REM IFINKEY(-84)ANDINKEY(-71) N%=&7FFFFFFF: REM cheat at arm wrestling
1120 IF K%=4 AND INKEY(WR%) K%=1:N%+=1
1130ELSE
1140 IF M%=1 AND MX%>0 M%=2:N%+=1
1150 IF M%=2 AND MX%<0 M%=1:N%+=1
1160ENDIF
1170UNTILTIME>49:N%+=RND(3)-2:IF N%>AS% SG%-=1 ELSE IF N%<AS% SG%+=1 ELSE SG%+=RND(3)-2
1180ATC%+=1:IF ATC%=AT% AND AS%>1 AS%-=1:ATC%=0
1190IF SG%=0 FC%=&D7B0+AOP%*&BE8 ELSE IF SG%=14 FC%=&E19C+AOP%*&BE8 ELSE FC%=&D7B0+RND(4)*&1FC+AOP%*&BE8
1200PROCstr:UNTILSG%=0 OR SG%=14
1210SYS"OS_SpriteOp",290,ISP%,"83",16,16:SYS"OS_SpriteOp",290,ISP%,"96",168,20:GCOL 0:POINT 272,108:POINT 140,12:POINT 184,16:PROCcopy
1220IF SG%=0 THEN
1230 VOICE1,"IronEffect-ArmWin":SOUND1,&17F,&2550,1
1240 IF AO%=3 AND ?(HIMEM+&15D)=0 THEN
1250 AF%=TRUE:PROCbw_up("There is a round of applause from the crowd as you defeat your last opponent. The maid is so impressed she gives you a kiss."):?(HIMEM+322)=116:?(HIMEM+&15D)=255:VDU 24,0;0;1279;799;
1260 ELSE
1270 PROCbw_up("Your adversary leaves the table, defeated. His place is taken by a new opponent, even more determined to beat you."):AO%+=1:IF AO%=4 PROCchoose_opp ELSE AOP%=AO%(AO%):AS%=AS%(AOP%):AT%=AT%(AOP%)
1280 SG%=7:FC%=&DDA4+AOP%*&BE8:PROCbw_down:PROCstr:SYS"OS_SpriteOp",290,ISP%,STR$(AOP%+86),1132,660:PROCcopy
1290 ENDIF
1300ELSE
1310 VOICE1,"IronEffect-ArmLose":SOUND1,&17F,&2550,1
1320 AF%=TRUE:PROCbw_up("Your opponent's strength proves too much for you, and you leave the table in defeat."):VDU 24,0;0;1279;799;
1330ENDIF
1340MOUSE RECTANGLE 0,0,1279,799:MOUSE TO OMX%,OMY%:MOUSE ON 2:ENDPROC
1350:
1360DEF PROCstr:SYS"OS_Byte",112,BK%:GCOL 0:RECTANGLE FILL 936,24,104,604:IF SG%<14 THEN FOR L%=1 TO 14-SG%:SYS"OS_SpriteOp",290,ISP%,"95",936,L%*44-20:NEXT
1370RECTANGLE FILL 1124,24,104,604:IF SG%>0 FOR L%=1 TO SG%:SYS"OS_SpriteOp",290,ISP%,"95",1124,L%*44-20:NEXT
1380SYS"OS_SpriteOp",290,ISP%,"82",8,144:SYS"OS_SpriteOp",546,ISP%,ISP%+FC%,656,476:IF SG%>0 THEN SYS"OS_SpriteOp",290,ISP%,STR$(SG%-1),AX%(SG%-1),AY%(SG%-1),8
1390WAIT:SYS"OS_Byte",113,BK%:BK%=BK% EOR 3
1400ENDPROC
1410:
1420DEF PROCdice:MOUSE OFF:*IronFadeOut
1430CLG:OSCLI"IronLoad <IronLord$Dir>.DiceSpr "+STR$~(ISP%+4):ST%=1:PT%=0
1440GCOL 12:RECTANGLE 0,0,1276,796:RECTANGLE 4,4,1268,788:LINE 612,8,612,788:LINE 616,8,616,788:LINE 616,132,1268,132:LINE 616,128,1268,128:LINE 924,8,924,124:LINE 928,8,928,124:LINE 968,8,968,124:LINE 972,8,972,124
1450RESTORE 1580:FOR I%=1 TO 4:READ N$,X%,Y%:SYS"OS_SpriteOp",290,ISP%,N$,X%,Y%:NEXT
1460*IronFadeIn 19
1470IF !(HIMEM+&150)=0 THEN
1480 PROCno_money
1490ELSE
1500 MOUSE TO 924,264:MOUSE ON 2:REPEAT:PROCmouse
1510 IF MX%>812 AND MX%<1272 AND MY%>332 AND MY%<588 THEN PROCthrow
1520 IF MX%>608 AND MX%<916 AND MY%>4 AND MY%<128 THEN PROCpot
1530 UNTIL MX%>964 AND MX%<1272 AND MY%>4 AND MY%<128:MOUSE OFF
1540ENDIF:*IronFadeOut
1550PROCpicture:MX%=1272:MY%=796
1560ENDPROC
1570:
1580DATA 6,8,8,0,828,336,4,620,8,5,1000,8
1590:
1600DEF PROCthrow:*FX112,2
1610IF ST%>!(HIMEM+&150) ST%=!(HIMEM+&150)
1620CLG:RESTORE 390:PROCrect(0,4,476,172):SYS"OS_SpriteOp",290,ISP%,"30",16,24:SYS"OS_SpriteOp",290,ISP%,"26",340,36:GCOL 13:MOVE 328+(3-LEN(STR$(ST%)))*16,124:PRINT;ST%:SYS"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
1630VDU 24,0;136;1276;788;:PROCdown:G%=FALSE
1640REPEAT:J%=0:REPEAT:MOUSE MX%,MY%,B%:J%+=1:UNTIL B%<>0:C%=FALSE:WAIT:IF J%=1 J%=3 ELSE J%=12
1650IF MY%>628 AND MY%<680 THEN
1660IF MX%>1032 AND MX%<1064 AND ST%>1 THEN ST%-=1:C%=TRUE
1670IF MX%>1084 AND MX%<1120 AND ST%<!(HIMEM+&150) THEN ST%+=1:C%=TRUE
1680IF C% GCOL 1:RECTANGLE FILL 1036,692,96,28:GCOL 13:MOVE 1032+(3-LEN(STR$(ST%)))*16,720:PRINT;ST%:FOR I%=1 TO J%:WAIT:NEXT
1690ENDIF
1700IF MX%>712 AND MX%<896 AND MY%>644 AND MY%<756 G%=TRUE
1710UNTIL G% OR (MX%>964 AND MX%<1272 AND MY%>4 AND MY%<128)
1720IF NOT G% THEN VDU 24,0;0;1279;799;:ENDPROC
1730SYS"OS_SpriteOp",272,WSP%,"s",0,704,596,1180,776:MOUSE OFF:PROCup:VOICE1,"IronEffect-ShakeDice":*FX 21,9
1740Y%=336:I%=-4:REPEAT:Y%=Y%+I%:WAIT:SYS"OS_SpriteOp",546,ISP%,ISP%+16,828,Y%:IF Y%=324 I%=4:SOUND1,&17F,&2550,1 ELSE IF Y%=348 I%=-4
1750MOUSE X%,X%,B%:UNTIL B%<>0
1760FOR Y%=Y% TO 324 STEP -4:WAIT:SYS"OS_SpriteOp",546,ISP%,ISP%+16,828,Y%:NEXT
1770H$="1":X%=828:FOR Y%=320 TO 284 STEP -4:WAIT:SYS"OS_SpriteOp",290,ISP%,H$,X%,Y%
1780IF Y%=308 H$="2":X%=768 ELSE IF Y%=296 H$="3":X%=708
1790NEXT:WAIT:SYS"OS_SpriteOp",290,ISP%,H$,X%,Y%
1800A%=RND(6):B%=RND(6):C%=RND(6)+RND(6):VOICE1,"IronEffect-ThrowDice":SOUND1,&17F,&2550,1,60:CALL throw:SYS"OS_SpriteOp",290,ISP%,STR$(A%+18),X1<<2,Y1<<2,8:SYS"OS_SpriteOp",290,ISP%,STR$(B%+18),X2<<2,Y2<<2,8:A%=A%+B%:*FX 112,2
1810VDU 24,0;0;1279;788;:CLG:RESTORE 390:PROCrect(0,4,476,172):SYS"OS_SpriteOp",290,ISP%,STR$(27),20,20:GCOL 13:MOVE 212,128:PRINT"Conrad":O$="made "+STR$(C%):MOVE 308-LEN(O$)*16,84:PRINT O$:SYS"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
1820PROCdown:PROCmouse:GCOL 1
1830IF C%<8 OR A%=7 PT%+=ST%
1840IF A%<8 OR C%=7 PT%+=ST%:!(HIMEM+&150)-=ST%
1850WXC%=1016:WYC%=686:WW%=9
1860IF C%=7 AND A%<>7 RECTANGLE FILL 868,616,296,140:GCOL 13:PROCwpr("Conrad wins the pot : "+STR$PT%):PROCmouse:PT%=0
1870IF C%>7 AND A%<>7 RECTANGLE FILL 868,616,296,140:GCOL 13:PROCwpr("Conrad keeps his stake"):GCOL 1:PROCmouse
1880WXC%=942:WW%=13
1890IF A%=7 AND C%<>7 RECTANGLE FILL 720,616,444,140:GCOL 13:PROCwpr("You win the pot : "+STR$PT%):PROCmouse:!(HIMEM+&150)+=PT%:PT%=0
1900IF A%>7 AND C%<>7 RECTANGLE FILL 720,616,444,140:GCOL 13:PROCwpr("You keep your stake"):PROCmouse
1910IF !(HIMEM+&150)=0 GCOL 1:RECTANGLE FILL 720,616,444,140:GCOL 13:PROCwpr("You've spent all your money !"):PROCmouse:MX%=980:MY%=16 ELSE MX%=0:MY%=0
1920SYS"OS_SpriteOp",272,WSP%,"s",0,704,596,1180,776:PROCup:GCOL0:RECTANGLE FILL 708,136,560,652::SYS"OS_SpriteOp",546,ISP%,ISP%+16,828,336:VDU 24,0;0;1279;799;:SYS"OS_SpriteOp",290,ISP%,"6",8,8:MOUSE ON 2:ENDPROC
1930:
1940DEF PROCpot:*FX112,2
1950CLG:VDU 24,0;0;1279;788;:RESTORE 390:PROCrect(0,4,476,172):GCOL13:MOVE12,136:PRINT"You have : ";!(HIMEM+&150):MOVE172,72:PRINT"Pot : ";PT%:SYS"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
1960PROCdown:PROCmouse:PROCup:VDU24,0;0;1279;799;:MX%=0:MY%=0:ENDPROC
1970:
1980DEF PROCno_money:*FX 112,2
1990CLG:VDU 24,0;0;1279;788;:RESTORE 390:PROCrect(0,4,476,172):GCOL13:WXC%=236:WYC%=90:WW%=13:PROCwpr("You don't have any money !"):SYS"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
2000PROCdown:PROCmouse:PROCup:VDU24,0;0;1279;799;:ENDPROC
2010:
2020DEF PROCrect(X%,Y%,W%,H%):LOCAL C%
2030READ N%:FOR L%=1 TO N%:READ C%:GCOL C%:RECTANGLE X%,Y%,W%,H%:X%+=4:Y%+=4:W%-=8:H%-=8:NEXT:READ C%:GCOL C%:RECTANGLE FILL X%,Y%,W%,H%:ENDPROC
2040:
2050DEF PROCmouse:*FX 21,9
2060REPEAT:MOUSE MX%,MY%,B%:UNTIL B%=0:REPEAT:MOUSE MX%,MY%,B%:UNTIL B%<>0:ENDPROC
2070:
2080DEF PROCdown:FOR Y%=788 TO 596 STEP -4:WAIT:SYS"OS_SpriteOp",546,WSP%,WSP%+16,704,Y%:NEXT:ENDPROC
2090DEF PROCup:FOR Y%=596 TO 788 STEP 4:WAIT:SYS"OS_SpriteOp",546,WSP%,WSP%+16,704,Y%:NEXT:ENDPROC
2100:
2110DEF PROCasm
2120sp=13:link=14:OS_WriteI=&100
2130FOR O%=0 TO 2 STEP 2
2140P%=code%
2150[OPT O%
2160\ Throw dice
2170.throw MOV R8,#932:MOV R9,#360:MOV R10,#932:MOV R11,#360:ADR R12,dmtab
2180.thlp MOV R0,#272:LDR R1,bspadd:ADR R2,sname:MOV R3,#0:MOV R4,R8:MOV R5,R9:ADD R6,R4,#84:ADD R7,R5,#92:SWI "OS_SpriteOp":MOV R0,#272:LDR R1,cspadd:ADR R2,sname:MOV R4,R10:MOV R5,R11:ADD R6,R4,#84:ADD R7,R5,#92:SWI "OS_SpriteOp"
2190MOV R0,#34:ADD R0,R0,#512:LDR R1,ispadd:LDR R2,spradd:MOV R3,R8:MOV R4,R9:MOV R5,#8:SWI "OS_SpriteOp":MOV R0,#34:ADD R0,R0,#512:MOV R3,R10:MOV R4,R11:SWI "OS_SpriteOp"
2200TST R12,#8:BEQ nospin:ADD R2,R2,#&26C:LDR R1,sprcmp:TEQ R1,R2:LDREQ R2,sprst:STR R2,spradd
2210.nospin MOV R0,#19:SWI "OS_Byte"
2220MOV R0,#34:ADD R0,R0,#512:LDR R1,bspadd:ADD R2,R1,#16:MOV R3,R8:MOV R4,R9:MOV R5,#0:SWI "OS_SpriteOp":MOV R0,#34:ADD R0,R0,#512:LDR R1,cspadd:ADD R2,R1,#16:MOV R3,R10:MOV R4,R11:SWI "OS_SpriteOp"
2230LDR R11,[R12],#4:MOV R10,R11,LSR#6:MOV R9,R11,LSR#14:MOV R8,R11,LSR#22:ANDS R8,R8,#1020:MOVEQ PC,link:AND R9,R9,#1020:AND R11,R11,#255:MOV R11,R11,LSL#2:ANDS R10,R10,#1020:BNE thlp:ADR R0,dwind:MOV R1,#9:SWI "OS_WriteN":B thlp
2240.bspadd EQUD BSP%
2250.cspadd EQUD CSP%
2260.ispadd EQUD ISP%
2270.sname EQUS "s":EQUB 0:ALIGN
2280.sprst EQUD ISP%+&80CC
2290.spradd EQUD ISP%+&80CC
2300.sprcmp EQUD ISP%+&8F54
2310\ Copy screen
2320.copy STMFD (sp)!,{R6-R12,link}:MOV R0,#200:LDR R1,from:LDR R2,to
2330.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}
2340\
2350.from EQUD S%
2360.to EQUD T%
2370.dwind EQUB 24:EQUD 0:EQUW 608:EQUW 799:ALIGN
2380.dmtab
2390]
2400N%=3:X1=233:Y1=90:X2=233:Y2=90:YI%=0:FORX%=1TO35:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1-=2:X2-=1:Y1+=YI%:Y2+=YI%:N%+=1:IF N%=8 YI%-=1:N%=0
2410NEXT:!P%=&FFFF00FF:P%+=4:X1=153:Y1=170:X2=163:Y2=170:YI%=-2:FORX%=1TO26:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1-=3:X2-=2:Y1+=YI%:Y2+=YI%:N%+=1:IF N%=8 YI%-=1:N%=0
2420NEXT:XI1=-4:YI1=.1:YI2=-.6:FORX%=1TO30:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1+=XI1:Y1+=YI1:X2-=2:Y2+=YI2
2430IF X1<13 YI1=1.8:XI1+=1
2440IF Y2<60 YI2+=.1
2450NEXT
2460!P%=0:P%+=4
2470IF P%>(code%+space%) MODE 15:PRINT"Not enough code space.":END
2480NEXT
2490ENDPROC
2500:
2510DEF PROCerror:ON ERROR OFF
2520MODE 15:OFF:CALLHIMEM+&214
2530*FX 20
2540IF ERR=17 PRINT"Goodbye." ELSE PRINT"Iron Lord has stopped because of a fatal error :-"''REPORT$
2550ENDPROC
� >:IronLord.!IronLord.Iron3
� (C) 1990 UBI soft.
<� Archimedes version by Cygnus Software Engineering Ltd.
(:
2� � �error:�
<:
FIspace%=&334:� code% space%,ISP% &19F9C,WSP% &1BCC,BSP% &400,CSP% &400
P2� AX%(13),AY%(13),AS%(7),AT%(7),AO%(3),AOD$(7)
ZK� L%=0 � 13:� AX%(L%),AY%(L%):�:� L%=0 � 7:� AOD$(L%),AS%(L%),AT%(L%):�
dWL%=-98:WR%=-67
n:
x!ISP%=&19F9C
�-!WSP%=&1BCC:WSP%!4=0:WSP%!8=16:WSP%!12=16
�,!BSP%=&400:BSP%!4=0:BSP%!8=16:BSP%!12=16
�,!CSP%=&400:CSP%!4=0:CSP%!8=16:CSP%!12=16
��asm
�:
�c�picture:BK%=2:ș"Sound_QInit":�I%=1�8:ș"Sound_AttachVoice",I%,0:�:ș"Sound_Configure",1,0,100
� �:�mouse
�2� MX%>332 � MX%<468 � MY%>364 � MY%<612 � �arm
�3� MX%>748 � MX%<940 � MY%>268 � MY%<472 � �dice
�j� MX%>612 � MX%<828 � MY%>484 � MY%<800 � ȗ �:�"IronFadeOut":Z%=3:V%=13:� � �:�"<IronLord$Dir>.Iron1"
� � MY%<256:ȗ �:*IronFadeOut
�?Z%=2:V%=6:A%=728:B%=48:C%=&B0:� � �:�"<IronLord$Dir>.Iron1"
�:
u� 328,320,324,280,340,272,384,280,420,252,468,220,504,236,512,232,508,208,512,208,512,208,512,208,512,208,508,208
:
� Opponents
":
,�� "This is Jean Brisemain. He is well known for the time he defeated five opponents in succession. Will you be able to beat him ?",6,20
6t� "Your adversary is Arthur Leboucher, known as a vicious and pitiless person. Be wary if you want to win.",6,40
@�� "You must fight against Louis Lethueur. He is reputed to take terrible revenge on those who defeat him. Will you dare ?",6,30
Jr� "Igor Baistroye is his name. He has the strength of five men; it will be very difficult to defeat him.",7,15
T�� "Jean-Marie Lefourbe employs his excellent strength and trickery to defeat his adversaries. He will be most difficult to beat.",6,35
^�� "Patrick Gradubide is a mighty figure, do not use trickery with him. To defeat him you must use all your strength from the outset.",7,17
hu� "Here is Harold Schwartz de Maguere, whose legendary strength is matched only by his legendary stupidity.",7,18
r\� "You are in front of Ivan Latruande, who usually wins through trickery. Beware !",6,25
|:
�� 4,4,4,3,2,1
�:
�<� �picture:�:�"IronLoad <IronLord$Dir>.InnPicture "+�~S%
�;� �tFA:�rect(0,0,1276,256):WXC%=640:WYC%=128:WW%=38:� 0
���wpr("You are in a lively gaming room. In one corner an arm-wrestling contest is taking place. In another there is a rich merchant who challenges you to a game of dice."):*IronFadeIn 17
�ȗ � 612,300:ȗ � 2:�
�:
�$� �wpr(S$):� T$,P%,Y%:T$=S$:Y%=0
��
� � �T$>WW% �
�( P%=WW%+1:ȕ �T$,P%,1)<>" ":P%-=1:�
� T$=�T$,�(T$)-P%)
� �
T$=""
�
Y%+=1
& � T$=""
0Y%=WYC%+Y%*18
: �:T$=""
D � �S$>WW% �
N( P%=WW%+1:ȕ �S$,P%,1)<>" ":P%-=1:�
X# T$=�S$,�(S$)-P%):S$=�S$,P%-1)
b �
l& � WXC%-16*�S$,Y%:�S$:Y%-=36:S$=T$
v
� S$="":�
�:
�5� �copy:� BK%=1 !from=T%:!to=S% � !from=S%:!to=T%
� � copy:�
�:
� � �arm:ȗ �:*IronFadeOut
�?�:�"IronLoad <IronLord$Dir>.ArmSpr "+�~(ISP%+4):�choose_opp
��� 12:ȓ 0,0,1276,796:ȓ 4,4,1268,788:� 892,8,892,788:� 896,8,896,788:� 8,136,888,136:� 8,140,888,140:� 296,8,296,132:� 300,8,300,132:� 592,8,592,132:� 596,8,596,132:� 1080,8,1080,640:� 1084,8,1084,640:� 900,644,1268,644:� 900,648,1268,648
Ƨ� �T`C:� I%=1 � 5:� N$,X%,Y%:ș"OS_SpriteOp",290,ISP%,N$,X%,Y%,8:�:ș"OS_SpriteOp",290,ISP%,�(AOP%+86),1132,660:�copy:SG%=7:FC%=&DDA4+AOP%*&BE8:�str:*IronFadeIn 18
� ȗ � 960,520:ȗ � 2:AF%=�
� �:�mouse
�^� MX%<288 � MY%<136 � �doarm � � MX%>296 � MX%<584 � MY%<136 � �bw_up(AOD$(AOP%)):�bw_down
�'� AF% � MX%>596 � MX%<884 � MY%<136
�ȗ �:*IronFadeOut
Aș"OS_Byte",112,1:ș"OS_Byte",113,1:�picture:MX%=1272:MY%=796
�
:
5� 83,16,16,96,168,20,84,324,8,85,624,8,94,944,660
*:
4� �choose_opp
>$� I%=0 � 3:�:F%=�:AO%(I%)=�(8)-1
H � I%>0 �
R(� J%=0 � I%-1:� AO%(J%)=AO%(I%) F%=�
\�
f�
p8� F%:�:AO%=0:AOP%=AO%(0):AS%=AS%(AOP%):AT%=AT%(AOP%)
z�
�:
��� �bw_up(S$):�copy:ș"OS_Byte",112,BK%:� �tFA:�rect(8,144,656,336):WXC%=336:WYC%=308:WW%=19:� 0:�wpr(S$):ș"OS_SpriteOp",265,WSP%:ș"OS_SpriteOp",272,WSP%,"s",0,8,144,660,476
�B� 24,8;144;1279;799;:� Y%=-188 � 252 � 4:�draw_bw(Y%):�:�mouse
��
�:
�E� �bw_down:� Y%=248 � -192 � -4:�draw_bw(Y%):�:� 24,0;0;1279;799;
��
�:
�&� �draw_bw(Y%):ș"OS_Byte",112,BK%
ޓș"OS_SpriteOp",290,ISP%,"82",8,144:ș"OS_SpriteOp",546,ISP%,ISP%+FC%,656,476:� SG%>0 ș"OS_SpriteOp",290,ISP%,�(SG%-1),AX%(SG%-1),AY%(SG%-1),8
�Nș"OS_SpriteOp",546,WSP%,WSP%+16,120,Y%:Ȗ:ș"OS_Byte",113,BK%:BK%=BK% � 3
��
�:
,� �doarm:ȗ �:OMX%=MX%:OMY%=MY%:ȗ � 0,0
7�=0:�:��>60:Ȗ:ș"OS_SpriteOp",290,ISP%,"97",168,20
J�=0:�:��>60:Ȗ:ȓ Ȑ 200,76,76,20:ș"OS_SpriteOp",290,ISP%,"98",168,20
$N�=0:�:��>60:Ȗ:ȓ Ȑ 16,24,20,56:ș"OS_SpriteOp",290,ISP%,"99",28,12:�copy
.Pȗ ȓ -100,-100,200,200:K%=1:M%=1:ATC%=0:�:�=0:N%=0:�:ȗ MX%,MY%,B%:ȗ � 0,0
8
� MX%=0 �
B � K%=1 � � �(WL%) K%=2
L � K%=2 � �(WL%) K%=3:N%+=1
V � K%=3 � � �(WR%) K%=4
[I � IFINKEY(-84)ANDINKEY(-71) N%=&7FFFFFFF: REM cheat at arm wrestling
` � K%=4 � �(WR%) K%=1:N%+=1
j�
t � M%=1 � MX%>0 M%=2:N%+=1
~ � M%=2 � MX%<0 M%=1:N%+=1
��
�D��>49:N%+=�(3)-2:� N%>AS% SG%-=1 � � N%<AS% SG%+=1 � SG%+=�(3)-2
�,ATC%+=1:� ATC%=AT% � AS%>1 AS%-=1:ATC%=0
�^� SG%=0 FC%=&D7B0+AOP%*&BE8 � � SG%=14 FC%=&E19C+AOP%*&BE8 � FC%=&D7B0+�(4)*&1FC+AOP%*&BE8
��str:�SG%=0 � SG%=14
�uș"OS_SpriteOp",290,ISP%,"83",16,16:ș"OS_SpriteOp",290,ISP%,"96",168,20:� 0:Ȓ 272,108:Ȓ 140,12:Ȓ 184,16:�copy
�
� SG%=0 �
�, ȡ1,"IronEffect-ArmWin":�1,&17F,&2550,1
� � AO%=3 � ?(�+&15D)=0 �
� AF%=�:�bw_up("There is a round of applause from the crowd as you defeat your last opponent. The maid is so impressed she gives you a kiss."):?(�+322)=116:?(�+&15D)=255:� 24,0;0;1279;799;
� �
�� �bw_up("Your adversary leaves the table, defeated. His place is taken by a new opponent, even more determined to beat you."):AO%+=1:� AO%=4 �choose_opp � AOP%=AO%(AO%):AS%=AS%(AOP%):AT%=AT%(AOP%)
` SG%=7:FC%=&DDA4+AOP%*&BE8:�bw_down:�str:ș"OS_SpriteOp",290,ISP%,�(AOP%+86),1132,660:�copy
�
�
- ȡ1,"IronEffect-ArmLose":�1,&17F,&2550,1
(| AF%=�:�bw_up("Your opponent's strength proves too much for you, and you leave the table in defeat."):� 24,0;0;1279;799;
2�
<.ȗ ȓ 0,0,1279,799:ȗ � OMX%,OMY%:ȗ � 2:�
F:
P� �str:ș"OS_Byte",112,BK%:� 0:ȓ Ȑ 936,24,104,604:� SG%<14 � � L%=1 � 14-SG%:ș"OS_SpriteOp",290,ISP%,"95",936,L%*44-20:�
Z\ȓ Ȑ 1124,24,104,604:� SG%>0 � L%=1 � SG%:ș"OS_SpriteOp",290,ISP%,"95",1124,L%*44-20:�
d�ș"OS_SpriteOp",290,ISP%,"82",8,144:ș"OS_SpriteOp",546,ISP%,ISP%+FC%,656,476:� SG%>0 � ș"OS_SpriteOp",290,ISP%,�(SG%-1),AX%(SG%-1),AY%(SG%-1),8
n&Ȗ:ș"OS_Byte",113,BK%:BK%=BK% � 3
x�
�:
� � �dice:ȗ �:*IronFadeOut
�@�:�"IronLoad <IronLord$Dir>.DiceSpr "+�~(ISP%+4):ST%=1:PT%=0
��� 12:ȓ 0,0,1276,796:ȓ 4,4,1268,788:� 612,8,612,788:� 616,8,616,788:� 616,132,1268,132:� 616,128,1268,128:� 924,8,924,124:� 928,8,928,124:� 968,8,968,124:� 972,8,972,124
�D� �TlF:� I%=1 � 4:� N$,X%,Y%:ș"OS_SpriteOp",290,ISP%,N$,X%,Y%:�
�*IronFadeIn 19
�� !(�+&150)=0 �
� �no_money
��
�! ȗ � 924,264:ȗ � 2:�:�mouse
�6 � MX%>812 � MX%<1272 � MY%>332 � MY%<588 � �throw
�1 � MX%>608 � MX%<916 � MY%>4 � MY%<128 � �pot
�0 � MX%>964 � MX%<1272 � MY%>4 � MY%<128:ȗ �
�:*IronFadeOut
�picture:MX%=1272:MY%=796
�
":
,&� 6,8,8,0,828,336,4,620,8,5,1000,8
6:
@� �throw:*FX112,2
J!� ST%>!(�+&150) ST%=!(�+&150)
T��:� �tFA:�rect(0,4,476,172):ș"OS_SpriteOp",290,ISP%,"30",16,24:ș"OS_SpriteOp",290,ISP%,"26",340,36:� 13:� 328+(3-�(�(ST%)))*16,124:�;ST%:ș"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
^#� 24,0;136;1276;788;:�down:G%=�
hD�:J%=0:�:ȗ MX%,MY%,B%:J%+=1:� B%<>0:C%=�:Ȗ:� J%=1 J%=3 � J%=12
r� MY%>628 � MY%<680 �
|/� MX%>1032 � MX%<1064 � ST%>1 � ST%-=1:C%=�
�7� MX%>1084 � MX%<1120 � ST%<!(�+&150) � ST%+=1:C%=�
�Y� C% � 1:ȓ Ȑ 1036,692,96,28:� 13:� 1032+(3-�(�(ST%)))*16,720:�;ST%:� I%=1 � J%:Ȗ:�
��
�0� MX%>712 � MX%<896 � MY%>644 � MY%<756 G%=�
�1� G% � (MX%>964 � MX%<1272 � MY%>4 � MY%<128)
�!� � G% � � 24,0;0;1279;799;:�
�`ș"OS_SpriteOp",272,WSP%,"s",0,704,596,1180,776:ȗ �:�up:ȡ1,"IronEffect-ShakeDice":*FX 21,9
�uY%=336:I%=-4:�:Y%=Y%+I%:Ȗ:ș"OS_SpriteOp",546,ISP%,ISP%+16,828,Y%:� Y%=324 I%=4:�1,&17F,&2550,1 � � Y%=348 I%=-4
�ȗ X%,X%,B%:� B%<>0
�C� Y%=Y% � 324 � -4:Ȗ:ș"OS_SpriteOp",546,ISP%,ISP%+16,828,Y%:�
�JH$="1":X%=828:� Y%=320 � 284 � -4:Ȗ:ș"OS_SpriteOp",290,ISP%,H$,X%,Y%
�3� Y%=308 H$="2":X%=768 � � Y%=296 H$="3":X%=708
�*�:Ȗ:ș"OS_SpriteOp",290,ISP%,H$,X%,Y%
�A%=�(6):B%=�(6):C%=�(6)+�(6):ȡ1,"IronEffect-ThrowDice":�1,&17F,&2550,1,60:� throw:ș"OS_SpriteOp",290,ISP%,�(A%+18),X1<<2,Y1<<2,8:ș"OS_SpriteOp",290,ISP%,�(B%+18),X2<<2,Y2<<2,8:A%=A%+B%:*FX 112,2
�� 24,0;0;1279;788;:�:� �tFA:�rect(0,4,476,172):ș"OS_SpriteOp",290,ISP%,�(27),20,20:� 13:� 212,128:�"Conrad":O$="made "+�(C%):� 308-�(O$)*16,84:� O$:ș"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
�down:�mouse:� 1
&� C%<8 � A%=7 PT%+=ST%
0)� A%<8 � C%=7 PT%+=ST%:!(�+&150)-=ST%
: WXC%=1016:WYC%=686:WW%=9
D^� C%=7 � A%<>7 ȓ Ȑ 868,616,296,140:� 13:�wpr("Conrad wins the pot : "+�PT%):�mouse:PT%=0
NW� C%>7 � A%<>7 ȓ Ȑ 868,616,296,140:� 13:�wpr("Conrad keeps his stake"):� 1:�mouse
XWXC%=942:WW%=13
bi� A%=7 � C%<>7 ȓ Ȑ 720,616,444,140:� 13:�wpr("You win the pot : "+�PT%):�mouse:!(�+&150)+=PT%:PT%=0
lP� A%>7 � C%<>7 ȓ Ȑ 720,616,444,140:� 13:�wpr("You keep your stake"):�mouse
vz� !(�+&150)=0 � 1:ȓ Ȑ 720,616,444,140:� 13:�wpr("You've spent all your money !"):�mouse:MX%=980:MY%=16 � MX%=0:MY%=0
��ș"OS_SpriteOp",272,WSP%,"s",0,704,596,1180,776:�up:�0:ȓ Ȑ 708,136,560,652::ș"OS_SpriteOp",546,ISP%,ISP%+16,828,336:� 24,0;0;1279;799;:ș"OS_SpriteOp",290,ISP%,"6",8,8:ȗ � 2:�
�:
�� �pot:*FX112,2
���:� 24,0;0;1279;788;:� �tFA:�rect(0,4,476,172):�13:�12,136:�"You have : ";!(�+&150):�172,72:�"Pot : ";PT%:ș"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
�4�down:�mouse:�up:�24,0;0;1279;799;:MX%=0:MY%=0:�
�:
�� �no_money:*FX 112,2
Ʀ�:� 24,0;0;1279;788;:� �tFA:�rect(0,4,476,172):�13:WXC%=236:WYC%=90:WW%=13:�wpr("You don't have any money !"):ș"OS_SpriteOp",272,WSP%,"s",0,0,0,476,180:*FX 112,1
�(�down:�mouse:�up:�24,0;0;1279;799;:�
�:
� � �rect(X%,Y%,W%,H%):� C%
�e� N%:� L%=1 � N%:� C%:� C%:ȓ X%,Y%,W%,H%:X%+=4:Y%+=4:W%-=8:H%-=8:�:� C%:� C%:ȓ Ȑ X%,Y%,W%,H%:�
�:
� �mouse:*FX 21,9
4�:ȗ MX%,MY%,B%:� B%=0:�:ȗ MX%,MY%,B%:� B%<>0:�
:
N� �down:� Y%=788 � 596 � -4:Ȗ:ș"OS_SpriteOp",546,WSP%,WSP%+16,704,Y%:�:�
*K� �up:� Y%=596 � 788 � 4:Ȗ:ș"OS_SpriteOp",546,WSP%,WSP%+16,704,Y%:�:�
4:
>
� �asm
H sp=13:link=14:OS_WriteI=&100
R� O%=0 � 2 � 2
\ P%=code%
f [OPT O%
p\ Throw dice
zJ.throw MOV R8,#932:MOV R9,#360:MOV R10,#932:MOV R11,#360:ADR R12,dmtab
��.thlp MOV R0,#272:LDR R1,bspadd:ADR R2,sname:MOV R3,#0:MOV R4,R8:MOV R5,R9:ADD R6,R4,#84:ADD R7,R5,#92:SWI "OS_SpriteOp":MOV R0,#272:LDR R1,cspadd:ADR R2,sname:MOV R4,R10:MOV R5,R11:ADD R6,R4,#84:ADD R7,R5,#92:SWI "OS_SpriteOp"
��MOV R0,#34:ADD R0,R0,#512:LDR R1,ispadd:LDR R2,spradd:MOV R3,R8:MOV R4,R9:MOV R5,#8:SWI "OS_SpriteOp":MOV R0,#34:ADD R0,R0,#512:MOV R3,R10:MOV R4,R11:SWI "OS_SpriteOp"
�^TST R12,#8:BEQ nospin:ADD R2,R2,#&26C:LDR R1,sprcmp:TEQ R1,R2:LDREQ R2,sprst:STR R2,spradd
�$.nospin MOV R0,#19:SWI "OS_Byte"
��MOV R0,#34:ADD R0,R0,#512:LDR R1,bspadd:ADD R2,R1,#16:MOV R3,R8:MOV R4,R9:MOV R5,#0:SWI "OS_SpriteOp":MOV R0,#34:ADD R0,R0,#512:LDR R1,cspadd:ADD R2,R1,#16:MOV R3,R10:MOV R4,R11:SWI "OS_SpriteOp"
��LDR R11,[R12],#4:MOV R10,R11,LSR#6:MOV R9,R11,LSR#14:MOV R8,R11,LSR#22:�S R8,R8,#1020:�Q PC,link:� R9,R9,#1020:� R11,R11,#255:MOV R11,R11,LSL#2:�S R10,R10,#1020:BNE thlp:ADR R0,dwind:MOV R1,#9:SWI "OS_WriteN":B thlp
�.bspadd EQUD BSP%
�.cspadd EQUD CSP%
�.ispadd EQUD ISP%
�!.sname EQUS "s":EQUB 0:ALIGN
�.sprst EQUD ISP%+&80CC
�.spradd EQUD ISP%+&80CC
�.sprcmp EQUD ISP%+&8F54
\ 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%
8.to EQUD T%
B1.dwind EQUB 24:EQUD 0:EQUW 608:EQUW 799:ALIGN
L
.dmtab
V]
`�N%=3:X1=233:Y1=90:X2=233:Y2=90:YI%=0:�X%=1�35:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1-=2:X2-=1:Y1+=YI%:Y2+=YI%:N%+=1:� N%=8 YI%-=1:N%=0
j��:!P%=&FFFF00FF:P%+=4:X1=153:Y1=170:X2=163:Y2=170:YI%=-2:�X%=1�26:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1-=3:X2-=2:Y1+=YI%:Y2+=YI%:N%+=1:� N%=8 YI%-=1:N%=0
tg�:XI1=-4:YI1=.1:YI2=-.6:�X%=1�30:?P%=Y2:P%?1=X2:P%?2=Y1:P%?3=X1:P%+=4:X1+=XI1:Y1+=YI1:X2-=2:Y2+=YI2
~� X1<13 YI1=1.8:XI1+=1
�� Y2<60 YI2+=.1
��
�!P%=0:P%+=4
�8� P%>(code%+space%) � 15:�"Not enough code space.":�
��
��
�:
�� �error:� � �
�� 15:�:֓+&214
�
*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 33 |.!IronLord.Iron3|
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 49 73 70 61 63 65 25 3d 26 33 33 34 3a de 20 |FIspace%=&334:. |
000000a0 63 6f 64 65 25 20 73 70 61 63 65 25 2c 49 53 50 |code% space%,ISP|
000000b0 25 20 26 31 39 46 39 43 2c 57 53 50 25 20 26 31 |% &19F9C,WSP% &1|
000000c0 42 43 43 2c 42 53 50 25 20 26 34 30 30 2c 43 53 |BCC,BSP% &400,CS|
000000d0 50 25 20 26 34 30 30 0d 00 50 32 de 20 41 58 25 |P% &400..P2. AX%|
000000e0 28 31 33 29 2c 41 59 25 28 31 33 29 2c 41 53 25 |(13),AY%(13),AS%|
000000f0 28 37 29 2c 41 54 25 28 37 29 2c 41 4f 25 28 33 |(7),AT%(7),AO%(3|
00000100 29 2c 41 4f 44 24 28 37 29 0d 00 5a 4b e3 20 4c |),AOD$(7)..ZK. L|
00000110 25 3d 30 20 b8 20 31 33 3a f3 20 41 58 25 28 4c |%=0 . 13:. AX%(L|
00000120 25 29 2c 41 59 25 28 4c 25 29 3a ed 3a e3 20 4c |%),AY%(L%):.:. L|
00000130 25 3d 30 20 b8 20 37 3a f3 20 41 4f 44 24 28 4c |%=0 . 7:. AOD$(L|
00000140 25 29 2c 41 53 25 28 4c 25 29 2c 41 54 25 28 4c |%),AS%(L%),AT%(L|
00000150 25 29 3a ed 0d 00 64 13 57 4c 25 3d 2d 39 38 3a |%):...d.WL%=-98:|
00000160 57 52 25 3d 2d 36 37 0d 00 6e 05 3a 0d 00 78 10 |WR%=-67..n.:..x.|
00000170 21 49 53 50 25 3d 26 31 39 46 39 43 0d 00 82 2d |!ISP%=&19F9C...-|
00000180 21 57 53 50 25 3d 26 31 42 43 43 3a 57 53 50 25 |!WSP%=&1BCC:WSP%|
00000190 21 34 3d 30 3a 57 53 50 25 21 38 3d 31 36 3a 57 |!4=0:WSP%!8=16:W|
000001a0 53 50 25 21 31 32 3d 31 36 0d 00 8c 2c 21 42 53 |SP%!12=16...,!BS|
000001b0 50 25 3d 26 34 30 30 3a 42 53 50 25 21 34 3d 30 |P%=&400:BSP%!4=0|
000001c0 3a 42 53 50 25 21 38 3d 31 36 3a 42 53 50 25 21 |:BSP%!8=16:BSP%!|
000001d0 31 32 3d 31 36 0d 00 96 2c 21 43 53 50 25 3d 26 |12=16...,!CSP%=&|
000001e0 34 30 30 3a 43 53 50 25 21 34 3d 30 3a 43 53 50 |400:CSP%!4=0:CSP|
000001f0 25 21 38 3d 31 36 3a 43 53 50 25 21 31 32 3d 31 |%!8=16:CSP%!12=1|
00000200 36 0d 00 a0 08 f2 61 73 6d 0d 00 aa 05 3a 0d 00 |6.....asm....:..|
00000210 b4 63 f2 70 69 63 74 75 72 65 3a 42 4b 25 3d 32 |.c.picture:BK%=2|
00000220 3a c8 99 22 53 6f 75 6e 64 5f 51 49 6e 69 74 22 |:.."Sound_QInit"|
00000230 3a e3 49 25 3d 31 b8 38 3a c8 99 22 53 6f 75 6e |:.I%=1.8:.."Soun|
00000240 64 5f 41 74 74 61 63 68 56 6f 69 63 65 22 2c 49 |d_AttachVoice",I|
00000250 25 2c 30 3a ed 3a c8 99 22 53 6f 75 6e 64 5f 43 |%,0:.:.."Sound_C|
00000260 6f 6e 66 69 67 75 72 65 22 2c 31 2c 30 2c 31 30 |onfigure",1,0,10|
00000270 30 0d 00 be 0c f5 3a f2 6d 6f 75 73 65 0d 00 c8 |0.....:.mouse...|
00000280 32 e7 20 4d 58 25 3e 33 33 32 20 80 20 4d 58 25 |2. MX%>332 . MX%|
00000290 3c 34 36 38 20 80 20 4d 59 25 3e 33 36 34 20 80 |<468 . MY%>364 .|
000002a0 20 4d 59 25 3c 36 31 32 20 8c 20 f2 61 72 6d 0d | MY%<612 . .arm.|
000002b0 00 d2 33 e7 20 4d 58 25 3e 37 34 38 20 80 20 4d |..3. MX%>748 . M|
000002c0 58 25 3c 39 34 30 20 80 20 4d 59 25 3e 32 36 38 |X%<940 . MY%>268|
000002d0 20 80 20 4d 59 25 3c 34 37 32 20 8c 20 f2 64 69 | . MY%<472 . .di|
000002e0 63 65 0d 00 dc 6a e7 20 4d 58 25 3e 36 31 32 20 |ce...j. MX%>612 |
000002f0 80 20 4d 58 25 3c 38 32 38 20 80 20 4d 59 25 3e |. MX%<828 . MY%>|
00000300 34 38 34 20 80 20 4d 59 25 3c 38 30 30 20 8c 20 |484 . MY%<800 . |
00000310 c8 97 20 87 3a ff 22 49 72 6f 6e 46 61 64 65 4f |.. .:."IronFadeO|
00000320 75 74 22 3a 5a 25 3d 33 3a 56 25 3d 31 33 3a ee |ut":Z%=3:V%=13:.|
00000330 20 85 20 87 3a d7 22 3c 49 72 6f 6e 4c 6f 72 64 | . .:."<IronLord|
00000340 24 44 69 72 3e 2e 49 72 6f 6e 31 22 0d 00 e6 1f |$Dir>.Iron1"....|
00000350 fd 20 4d 59 25 3c 32 35 36 3a c8 97 20 87 3a 2a |. MY%<256:.. .:*|
00000360 49 72 6f 6e 46 61 64 65 4f 75 74 0d 00 f0 3f 5a |IronFadeOut...?Z|
00000370 25 3d 32 3a 56 25 3d 36 3a 41 25 3d 37 32 38 3a |%=2:V%=6:A%=728:|
00000380 42 25 3d 34 38 3a 43 25 3d 26 42 30 3a ee 20 85 |B%=48:C%=&B0:. .|
00000390 20 87 3a d7 22 3c 49 72 6f 6e 4c 6f 72 64 24 44 | .:."<IronLord$D|
000003a0 69 72 3e 2e 49 72 6f 6e 31 22 0d 00 fa 05 3a 0d |ir>.Iron1"....:.|
000003b0 01 04 75 dc 20 33 32 38 2c 33 32 30 2c 33 32 34 |..u. 328,320,324|
000003c0 2c 32 38 30 2c 33 34 30 2c 32 37 32 2c 33 38 34 |,280,340,272,384|
000003d0 2c 32 38 30 2c 34 32 30 2c 32 35 32 2c 34 36 38 |,280,420,252,468|
000003e0 2c 32 32 30 2c 35 30 34 2c 32 33 36 2c 35 31 32 |,220,504,236,512|
000003f0 2c 32 33 32 2c 35 30 38 2c 32 30 38 2c 35 31 32 |,232,508,208,512|
00000400 2c 32 30 38 2c 35 31 32 2c 32 30 38 2c 35 31 32 |,208,512,208,512|
00000410 2c 32 30 38 2c 35 31 32 2c 32 30 38 2c 35 30 38 |,208,512,208,508|
00000420 2c 32 30 38 0d 01 0e 05 3a 0d 01 18 0f f4 20 4f |,208....:..... O|
00000430 70 70 6f 6e 65 6e 74 73 0d 01 22 05 3a 0d 01 2c |pponents..".:..,|
00000440 8b dc 20 22 54 68 69 73 20 69 73 20 4a 65 61 6e |.. "This is Jean|
00000450 20 42 72 69 73 65 6d 61 69 6e 2e 20 48 65 20 69 | Brisemain. He i|
00000460 73 20 77 65 6c 6c 20 6b 6e 6f 77 6e 20 66 6f 72 |s well known for|
00000470 20 74 68 65 20 74 69 6d 65 20 68 65 20 64 65 66 | the time he def|
00000480 65 61 74 65 64 20 66 69 76 65 20 6f 70 70 6f 6e |eated five oppon|
00000490 65 6e 74 73 20 69 6e 20 73 75 63 63 65 73 73 69 |ents in successi|
000004a0 6f 6e 2e 20 57 69 6c 6c 20 79 6f 75 20 62 65 20 |on. Will you be |
000004b0 61 62 6c 65 20 74 6f 20 62 65 61 74 20 68 69 6d |able to beat him|
000004c0 20 3f 22 2c 36 2c 32 30 0d 01 36 74 dc 20 22 59 | ?",6,20..6t. "Y|
000004d0 6f 75 72 20 61 64 76 65 72 73 61 72 79 20 69 73 |our adversary is|
000004e0 20 41 72 74 68 75 72 20 4c 65 62 6f 75 63 68 65 | Arthur Lebouche|
000004f0 72 2c 20 6b 6e 6f 77 6e 20 61 73 20 61 20 76 69 |r, known as a vi|
00000500 63 69 6f 75 73 20 61 6e 64 20 70 69 74 69 6c 65 |cious and pitile|
00000510 73 73 20 70 65 72 73 6f 6e 2e 20 42 65 20 77 61 |ss person. Be wa|
00000520 72 79 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 |ry if you want t|
00000530 6f 20 77 69 6e 2e 22 2c 36 2c 34 30 0d 01 40 83 |o win.",6,40..@.|
00000540 dc 20 22 59 6f 75 20 6d 75 73 74 20 66 69 67 68 |. "You must figh|
00000550 74 20 61 67 61 69 6e 73 74 20 4c 6f 75 69 73 20 |t against Louis |
00000560 4c 65 74 68 75 65 75 72 2e 20 48 65 20 69 73 20 |Lethueur. He is |
00000570 72 65 70 75 74 65 64 20 74 6f 20 74 61 6b 65 20 |reputed to take |
00000580 74 65 72 72 69 62 6c 65 20 72 65 76 65 6e 67 65 |terrible revenge|
00000590 20 6f 6e 20 74 68 6f 73 65 20 77 68 6f 20 64 65 | on those who de|
000005a0 66 65 61 74 20 68 69 6d 2e 20 57 69 6c 6c 20 79 |feat him. Will y|
000005b0 6f 75 20 64 61 72 65 20 3f 22 2c 36 2c 33 30 0d |ou dare ?",6,30.|
000005c0 01 4a 72 dc 20 22 49 67 6f 72 20 42 61 69 73 74 |.Jr. "Igor Baist|
000005d0 72 6f 79 65 20 69 73 20 68 69 73 20 6e 61 6d 65 |roye is his name|
000005e0 2e 20 48 65 20 68 61 73 20 74 68 65 20 73 74 72 |. He has the str|
000005f0 65 6e 67 74 68 20 6f 66 20 66 69 76 65 20 6d 65 |ength of five me|
00000600 6e 3b 20 69 74 20 77 69 6c 6c 20 62 65 20 76 65 |n; it will be ve|
00000610 72 79 20 64 69 66 66 69 63 75 6c 74 20 74 6f 20 |ry difficult to |
00000620 64 65 66 65 61 74 20 68 69 6d 2e 22 2c 37 2c 31 |defeat him.",7,1|
00000630 35 0d 01 54 8a dc 20 22 4a 65 61 6e 2d 4d 61 72 |5..T.. "Jean-Mar|
00000640 69 65 20 4c 65 66 6f 75 72 62 65 20 65 6d 70 6c |ie Lefourbe empl|
00000650 6f 79 73 20 68 69 73 20 65 78 63 65 6c 6c 65 6e |oys his excellen|
00000660 74 20 73 74 72 65 6e 67 74 68 20 61 6e 64 20 74 |t strength and t|
00000670 72 69 63 6b 65 72 79 20 74 6f 20 64 65 66 65 61 |rickery to defea|
00000680 74 20 68 69 73 20 61 64 76 65 72 73 61 72 69 65 |t his adversarie|
00000690 73 2e 20 48 65 20 77 69 6c 6c 20 62 65 20 6d 6f |s. He will be mo|
000006a0 73 74 20 64 69 66 66 69 63 75 6c 74 20 74 6f 20 |st difficult to |
000006b0 62 65 61 74 2e 22 2c 36 2c 33 35 0d 01 5e 8e dc |beat.",6,35..^..|
000006c0 20 22 50 61 74 72 69 63 6b 20 47 72 61 64 75 62 | "Patrick Gradub|
000006d0 69 64 65 20 69 73 20 61 20 6d 69 67 68 74 79 20 |ide is a mighty |
000006e0 66 69 67 75 72 65 2c 20 64 6f 20 6e 6f 74 20 75 |figure, do not u|
000006f0 73 65 20 74 72 69 63 6b 65 72 79 20 77 69 74 68 |se trickery with|
00000700 20 68 69 6d 2e 20 54 6f 20 64 65 66 65 61 74 20 | him. To defeat |
00000710 68 69 6d 20 79 6f 75 20 6d 75 73 74 20 75 73 65 |him you must use|
00000720 20 61 6c 6c 20 79 6f 75 72 20 73 74 72 65 6e 67 | all your streng|
00000730 74 68 20 66 72 6f 6d 20 74 68 65 20 6f 75 74 73 |th from the outs|
00000740 65 74 2e 22 2c 37 2c 31 37 0d 01 68 75 dc 20 22 |et.",7,17..hu. "|
00000750 48 65 72 65 20 69 73 20 48 61 72 6f 6c 64 20 53 |Here is Harold S|
00000760 63 68 77 61 72 74 7a 20 64 65 20 4d 61 67 75 65 |chwartz de Mague|
00000770 72 65 2c 20 77 68 6f 73 65 20 6c 65 67 65 6e 64 |re, whose legend|
00000780 61 72 79 20 73 74 72 65 6e 67 74 68 20 69 73 20 |ary strength is |
00000790 6d 61 74 63 68 65 64 20 6f 6e 6c 79 20 62 79 20 |matched only by |
000007a0 68 69 73 20 6c 65 67 65 6e 64 61 72 79 20 73 74 |his legendary st|
000007b0 75 70 69 64 69 74 79 2e 22 2c 37 2c 31 38 0d 01 |upidity.",7,18..|
000007c0 72 5c dc 20 22 59 6f 75 20 61 72 65 20 69 6e 20 |r\. "You are in |
000007d0 66 72 6f 6e 74 20 6f 66 20 49 76 61 6e 20 4c 61 |front of Ivan La|
000007e0 74 72 75 61 6e 64 65 2c 20 77 68 6f 20 75 73 75 |truande, who usu|
000007f0 61 6c 6c 79 20 77 69 6e 73 20 74 68 72 6f 75 67 |ally wins throug|
00000800 68 20 74 72 69 63 6b 65 72 79 2e 20 42 65 77 61 |h trickery. Bewa|
00000810 72 65 20 21 22 2c 36 2c 32 35 0d 01 7c 05 3a 0d |re !",6,25..|.:.|
00000820 01 86 11 dc 20 34 2c 34 2c 34 2c 33 2c 32 2c 31 |.... 4,4,4,3,2,1|
00000830 0d 01 90 05 3a 0d 01 9a 3c dd 20 f2 70 69 63 74 |....:...<. .pict|
00000840 75 72 65 3a da 3a ff 22 49 72 6f 6e 4c 6f 61 64 |ure:.:."IronLoad|
00000850 20 3c 49 72 6f 6e 4c 6f 72 64 24 44 69 72 3e 2e | <IronLord$Dir>.|
00000860 49 6e 6e 50 69 63 74 75 72 65 20 22 2b c3 7e 53 |InnPicture "+.~S|
00000870 25 0d 01 a4 3b f7 20 8d 74 46 41 3a f2 72 65 63 |%...;. .tFA:.rec|
00000880 74 28 30 2c 30 2c 31 32 37 36 2c 32 35 36 29 3a |t(0,0,1276,256):|
00000890 57 58 43 25 3d 36 34 30 3a 57 59 43 25 3d 31 32 |WXC%=640:WYC%=12|
000008a0 38 3a 57 57 25 3d 33 38 3a e6 20 30 0d 01 ae bd |8:WW%=38:. 0....|
000008b0 f2 77 70 72 28 22 59 6f 75 20 61 72 65 20 69 6e |.wpr("You are in|
000008c0 20 61 20 6c 69 76 65 6c 79 20 67 61 6d 69 6e 67 | a lively gaming|
000008d0 20 72 6f 6f 6d 2e 20 49 6e 20 6f 6e 65 20 63 6f | room. In one co|
000008e0 72 6e 65 72 20 61 6e 20 61 72 6d 2d 77 72 65 73 |rner an arm-wres|
000008f0 74 6c 69 6e 67 20 63 6f 6e 74 65 73 74 20 69 73 |tling contest is|
00000900 20 74 61 6b 69 6e 67 20 70 6c 61 63 65 2e 20 49 | taking place. I|
00000910 6e 20 61 6e 6f 74 68 65 72 20 74 68 65 72 65 20 |n another there |
00000920 69 73 20 61 20 72 69 63 68 20 6d 65 72 63 68 61 |is a rich mercha|
00000930 6e 74 20 77 68 6f 20 63 68 61 6c 6c 65 6e 67 65 |nt who challenge|
00000940 73 20 79 6f 75 20 74 6f 20 61 20 67 61 6d 65 20 |s you to a game |
00000950 6f 66 20 64 69 63 65 2e 22 29 3a 2a 49 72 6f 6e |of dice."):*Iron|
00000960 46 61 64 65 49 6e 20 31 37 0d 01 b8 19 c8 97 20 |FadeIn 17...... |
00000970 b8 20 36 31 32 2c 33 30 30 3a c8 97 20 ee 20 32 |. 612,300:.. . 2|
00000980 3a e1 0d 01 c2 05 3a 0d 01 cc 24 dd 20 f2 77 70 |:.....:...$. .wp|
00000990 72 28 53 24 29 3a ea 20 54 24 2c 50 25 2c 59 25 |r(S$):. T$,P%,Y%|
000009a0 3a 54 24 3d 53 24 3a 59 25 3d 30 0d 01 d6 05 f5 |:T$=S$:Y%=0.....|
000009b0 0d 01 e0 10 20 e7 20 a9 54 24 3e 57 57 25 20 8c |.... . .T$>WW% .|
000009c0 0d 01 ea 28 20 20 50 25 3d 57 57 25 2b 31 3a c8 |...( P%=WW%+1:.|
000009d0 95 20 c1 54 24 2c 50 25 2c 31 29 3c 3e 22 20 22 |. .T$,P%,1)<>" "|
000009e0 3a 50 25 2d 3d 31 3a ce 0d 01 f4 16 20 20 54 24 |:P%-=1:..... T$|
000009f0 3d c2 54 24 2c a9 28 54 24 29 2d 50 25 29 0d 01 |=.T$,.(T$)-P%)..|
00000a00 fe 06 20 cc 0d 02 08 0b 20 20 54 24 3d 22 22 0d |.. ..... T$="".|
00000a10 02 12 06 20 cd 0d 02 1c 0a 20 59 25 2b 3d 31 0d |... ..... Y%+=1.|
00000a20 02 26 0b fd 20 54 24 3d 22 22 0d 02 30 11 59 25 |.&.. T$=""..0.Y%|
00000a30 3d 57 59 43 25 2b 59 25 2a 31 38 0d 02 3a 0b f5 |=WYC%+Y%*18..:..|
00000a40 3a 54 24 3d 22 22 0d 02 44 10 20 e7 20 a9 53 24 |:T$=""..D. . .S$|
00000a50 3e 57 57 25 20 8c 0d 02 4e 28 20 20 50 25 3d 57 |>WW% ...N( P%=W|
00000a60 57 25 2b 31 3a c8 95 20 c1 53 24 2c 50 25 2c 31 |W%+1:.. .S$,P%,1|
00000a70 29 3c 3e 22 20 22 3a 50 25 2d 3d 31 3a ce 0d 02 |)<>" ":P%-=1:...|
00000a80 58 23 20 20 54 24 3d c2 53 24 2c a9 28 53 24 29 |X# T$=.S$,.(S$)|
00000a90 2d 50 25 29 3a 53 24 3d c0 53 24 2c 50 25 2d 31 |-P%):S$=.S$,P%-1|
00000aa0 29 0d 02 62 06 20 cd 0d 02 6c 26 20 ec 20 57 58 |)..b. ...l& . WX|
00000ab0 43 25 2d 31 36 2a a9 53 24 2c 59 25 3a f1 53 24 |C%-16*.S$,Y%:.S$|
00000ac0 3a 59 25 2d 3d 33 36 3a 53 24 3d 54 24 0d 02 76 |:Y%-=36:S$=T$..v|
00000ad0 0d fd 20 53 24 3d 22 22 3a e1 0d 02 80 05 3a 0d |.. S$="":.....:.|
00000ae0 02 8a 35 dd 20 f2 63 6f 70 79 3a e7 20 42 4b 25 |..5. .copy:. BK%|
00000af0 3d 31 20 21 66 72 6f 6d 3d 54 25 3a 21 74 6f 3d |=1 !from=T%:!to=|
00000b00 53 25 20 8b 20 21 66 72 6f 6d 3d 53 25 3a 21 74 |S% . !from=S%:!t|
00000b10 6f 3d 54 25 0d 02 94 0c d6 20 63 6f 70 79 3a e1 |o=T%..... copy:.|
00000b20 0d 02 9e 05 3a 0d 02 a8 1c dd 20 f2 61 72 6d 3a |....:..... .arm:|
00000b30 c8 97 20 87 3a 2a 49 72 6f 6e 46 61 64 65 4f 75 |.. .:*IronFadeOu|
00000b40 74 0d 02 b2 3f da 3a ff 22 49 72 6f 6e 4c 6f 61 |t...?.:."IronLoa|
00000b50 64 20 3c 49 72 6f 6e 4c 6f 72 64 24 44 69 72 3e |d <IronLord$Dir>|
00000b60 2e 41 72 6d 53 70 72 20 22 2b c3 7e 28 49 53 50 |.ArmSpr "+.~(ISP|
00000b70 25 2b 34 29 3a f2 63 68 6f 6f 73 65 5f 6f 70 70 |%+4):.choose_opp|
00000b80 0d 02 bc f2 e6 20 31 32 3a c8 93 20 30 2c 30 2c |..... 12:.. 0,0,|
00000b90 31 32 37 36 2c 37 39 36 3a c8 93 20 34 2c 34 2c |1276,796:.. 4,4,|
00000ba0 31 32 36 38 2c 37 38 38 3a 86 20 38 39 32 2c 38 |1268,788:. 892,8|
00000bb0 2c 38 39 32 2c 37 38 38 3a 86 20 38 39 36 2c 38 |,892,788:. 896,8|
00000bc0 2c 38 39 36 2c 37 38 38 3a 86 20 38 2c 31 33 36 |,896,788:. 8,136|
00000bd0 2c 38 38 38 2c 31 33 36 3a 86 20 38 2c 31 34 30 |,888,136:. 8,140|
00000be0 2c 38 38 38 2c 31 34 30 3a 86 20 32 39 36 2c 38 |,888,140:. 296,8|
00000bf0 2c 32 39 36 2c 31 33 32 3a 86 20 33 30 30 2c 38 |,296,132:. 300,8|
00000c00 2c 33 30 30 2c 31 33 32 3a 86 20 35 39 32 2c 38 |,300,132:. 592,8|
00000c10 2c 35 39 32 2c 31 33 32 3a 86 20 35 39 36 2c 38 |,592,132:. 596,8|
00000c20 2c 35 39 36 2c 31 33 32 3a 86 20 31 30 38 30 2c |,596,132:. 1080,|
00000c30 38 2c 31 30 38 30 2c 36 34 30 3a 86 20 31 30 38 |8,1080,640:. 108|
00000c40 34 2c 38 2c 31 30 38 34 2c 36 34 30 3a 86 20 39 |4,8,1084,640:. 9|
00000c50 30 30 2c 36 34 34 2c 31 32 36 38 2c 36 34 34 3a |00,644,1268,644:|
00000c60 86 20 39 30 30 2c 36 34 38 2c 31 32 36 38 2c 36 |. 900,648,1268,6|
00000c70 34 38 0d 02 c6 a7 f7 20 8d 54 60 43 3a e3 20 49 |48..... .T`C:. I|
00000c80 25 3d 31 20 b8 20 35 3a f3 20 4e 24 2c 58 25 2c |%=1 . 5:. N$,X%,|
00000c90 59 25 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |Y%:.."OS_SpriteO|
00000ca0 70 22 2c 32 39 30 2c 49 53 50 25 2c 4e 24 2c 58 |p",290,ISP%,N$,X|
00000cb0 25 2c 59 25 2c 38 3a ed 3a c8 99 22 4f 53 5f 53 |%,Y%,8:.:.."OS_S|
00000cc0 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 |priteOp",290,ISP|
00000cd0 25 2c c3 28 41 4f 50 25 2b 38 36 29 2c 31 31 33 |%,.(AOP%+86),113|
00000ce0 32 2c 36 36 30 3a f2 63 6f 70 79 3a 53 47 25 3d |2,660:.copy:SG%=|
00000cf0 37 3a 46 43 25 3d 26 44 44 41 34 2b 41 4f 50 25 |7:FC%=&DDA4+AOP%|
00000d00 2a 26 42 45 38 3a f2 73 74 72 3a 2a 49 72 6f 6e |*&BE8:.str:*Iron|
00000d10 46 61 64 65 49 6e 20 31 38 0d 02 d0 1d c8 97 20 |FadeIn 18...... |
00000d20 b8 20 39 36 30 2c 35 32 30 3a c8 97 20 ee 20 32 |. 960,520:.. . 2|
00000d30 3a 41 46 25 3d a3 0d 02 da 0c f5 3a f2 6d 6f 75 |:AF%=......:.mou|
00000d40 73 65 0d 02 e4 5e e7 20 4d 58 25 3c 32 38 38 20 |se...^. MX%<288 |
00000d50 80 20 4d 59 25 3c 31 33 36 20 8c 20 f2 64 6f 61 |. MY%<136 . .doa|
00000d60 72 6d 20 8b 20 e7 20 4d 58 25 3e 32 39 36 20 80 |rm . . MX%>296 .|
00000d70 20 4d 58 25 3c 35 38 34 20 80 20 4d 59 25 3c 31 | MX%<584 . MY%<1|
00000d80 33 36 20 8c 20 f2 62 77 5f 75 70 28 41 4f 44 24 |36 . .bw_up(AOD$|
00000d90 28 41 4f 50 25 29 29 3a f2 62 77 5f 64 6f 77 6e |(AOP%)):.bw_down|
00000da0 0d 02 ee 27 fd 20 41 46 25 20 84 20 4d 58 25 3e |...'. AF% . MX%>|
00000db0 35 39 36 20 80 20 4d 58 25 3c 38 38 34 20 80 20 |596 . MX%<884 . |
00000dc0 4d 59 25 3c 31 33 36 0d 02 f8 15 c8 97 20 87 3a |MY%<136...... .:|
00000dd0 2a 49 72 6f 6e 46 61 64 65 4f 75 74 0d 03 02 41 |*IronFadeOut...A|
00000de0 c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c |.."OS_Byte",112,|
00000df0 31 3a c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 31 |1:.."OS_Byte",11|
00000e00 33 2c 31 3a f2 70 69 63 74 75 72 65 3a 4d 58 25 |3,1:.picture:MX%|
00000e10 3d 31 32 37 32 3a 4d 59 25 3d 37 39 36 0d 03 0c |=1272:MY%=796...|
00000e20 05 e1 0d 03 16 05 3a 0d 03 20 35 dc 20 38 33 2c |......:.. 5. 83,|
00000e30 31 36 2c 31 36 2c 39 36 2c 31 36 38 2c 32 30 2c |16,16,96,168,20,|
00000e40 38 34 2c 33 32 34 2c 38 2c 38 35 2c 36 32 34 2c |84,324,8,85,624,|
00000e50 38 2c 39 34 2c 39 34 34 2c 36 36 30 0d 03 2a 05 |8,94,944,660..*.|
00000e60 3a 0d 03 34 11 dd 20 f2 63 68 6f 6f 73 65 5f 6f |:..4.. .choose_o|
00000e70 70 70 0d 03 3e 24 e3 20 49 25 3d 30 20 b8 20 33 |pp..>$. I%=0 . 3|
00000e80 3a f5 3a 46 25 3d b9 3a 41 4f 25 28 49 25 29 3d |:.:F%=.:AO%(I%)=|
00000e90 b3 28 38 29 2d 31 0d 03 48 0c e7 20 49 25 3e 30 |.(8)-1..H.. I%>0|
00000ea0 20 8c 0d 03 52 28 e3 20 4a 25 3d 30 20 b8 20 49 | ...R(. J%=0 . I|
00000eb0 25 2d 31 3a e7 20 41 4f 25 28 4a 25 29 3d 41 4f |%-1:. AO%(J%)=AO|
00000ec0 25 28 49 25 29 20 46 25 3d a3 0d 03 5c 05 ed 0d |%(I%) F%=...\...|
00000ed0 03 66 05 cd 0d 03 70 38 fd 20 46 25 3a ed 3a 41 |.f....p8. F%:.:A|
00000ee0 4f 25 3d 30 3a 41 4f 50 25 3d 41 4f 25 28 30 29 |O%=0:AOP%=AO%(0)|
00000ef0 3a 41 53 25 3d 41 53 25 28 41 4f 50 25 29 3a 41 |:AS%=AS%(AOP%):A|
00000f00 54 25 3d 41 54 25 28 41 4f 50 25 29 0d 03 7a 05 |T%=AT%(AOP%)..z.|
00000f10 e1 0d 03 84 05 3a 0d 03 8e b2 dd 20 f2 62 77 5f |.....:..... .bw_|
00000f20 75 70 28 53 24 29 3a f2 63 6f 70 79 3a c8 99 22 |up(S$):.copy:.."|
00000f30 4f 53 5f 42 79 74 65 22 2c 31 31 32 2c 42 4b 25 |OS_Byte",112,BK%|
00000f40 3a f7 20 8d 74 46 41 3a f2 72 65 63 74 28 38 2c |:. .tFA:.rect(8,|
00000f50 31 34 34 2c 36 35 36 2c 33 33 36 29 3a 57 58 43 |144,656,336):WXC|
00000f60 25 3d 33 33 36 3a 57 59 43 25 3d 33 30 38 3a 57 |%=336:WYC%=308:W|
00000f70 57 25 3d 31 39 3a e6 20 30 3a f2 77 70 72 28 53 |W%=19:. 0:.wpr(S|
00000f80 24 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |$):.."OS_SpriteO|
00000f90 70 22 2c 32 36 35 2c 57 53 50 25 3a c8 99 22 4f |p",265,WSP%:.."O|
00000fa0 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 37 32 2c |S_SpriteOp",272,|
00000fb0 57 53 50 25 2c 22 73 22 2c 30 2c 38 2c 31 34 34 |WSP%,"s",0,8,144|
00000fc0 2c 36 36 30 2c 34 37 36 0d 03 98 42 ef 20 32 34 |,660,476...B. 24|
00000fd0 2c 38 3b 31 34 34 3b 31 32 37 39 3b 37 39 39 3b |,8;144;1279;799;|
00000fe0 3a e3 20 59 25 3d 2d 31 38 38 20 b8 20 32 35 32 |:. Y%=-188 . 252|
00000ff0 20 88 20 34 3a f2 64 72 61 77 5f 62 77 28 59 25 | . 4:.draw_bw(Y%|
00001000 29 3a ed 3a f2 6d 6f 75 73 65 0d 03 a2 05 e1 0d |):.:.mouse......|
00001010 03 ac 05 3a 0d 03 b6 45 dd 20 f2 62 77 5f 64 6f |...:...E. .bw_do|
00001020 77 6e 3a e3 20 59 25 3d 32 34 38 20 b8 20 2d 31 |wn:. Y%=248 . -1|
00001030 39 32 20 88 20 2d 34 3a f2 64 72 61 77 5f 62 77 |92 . -4:.draw_bw|
00001040 28 59 25 29 3a ed 3a ef 20 32 34 2c 30 3b 30 3b |(Y%):.:. 24,0;0;|
00001050 31 32 37 39 3b 37 39 39 3b 0d 03 c0 05 e1 0d 03 |1279;799;.......|
00001060 ca 05 3a 0d 03 d4 26 dd 20 f2 64 72 61 77 5f 62 |..:...&. .draw_b|
00001070 77 28 59 25 29 3a c8 99 22 4f 53 5f 42 79 74 65 |w(Y%):.."OS_Byte|
00001080 22 2c 31 31 32 2c 42 4b 25 0d 03 de 93 c8 99 22 |",112,BK%......"|
00001090 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
000010a0 2c 49 53 50 25 2c 22 38 32 22 2c 38 2c 31 34 34 |,ISP%,"82",8,144|
000010b0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
000010c0 2c 35 34 36 2c 49 53 50 25 2c 49 53 50 25 2b 46 |,546,ISP%,ISP%+F|
000010d0 43 25 2c 36 35 36 2c 34 37 36 3a e7 20 53 47 25 |C%,656,476:. SG%|
000010e0 3e 30 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |>0 .."OS_SpriteO|
000010f0 70 22 2c 32 39 30 2c 49 53 50 25 2c c3 28 53 47 |p",290,ISP%,.(SG|
00001100 25 2d 31 29 2c 41 58 25 28 53 47 25 2d 31 29 2c |%-1),AX%(SG%-1),|
00001110 41 59 25 28 53 47 25 2d 31 29 2c 38 0d 03 e8 4e |AY%(SG%-1),8...N|
00001120 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00001130 35 34 36 2c 57 53 50 25 2c 57 53 50 25 2b 31 36 |546,WSP%,WSP%+16|
00001140 2c 31 32 30 2c 59 25 3a c8 96 3a c8 99 22 4f 53 |,120,Y%:..:.."OS|
00001150 5f 42 79 74 65 22 2c 31 31 33 2c 42 4b 25 3a 42 |_Byte",113,BK%:B|
00001160 4b 25 3d 42 4b 25 20 82 20 33 0d 03 f2 05 e1 0d |K%=BK% . 3......|
00001170 03 fc 05 3a 0d 04 06 2c dd 20 f2 64 6f 61 72 6d |...:...,. .doarm|
00001180 3a c8 97 20 87 3a 4f 4d 58 25 3d 4d 58 25 3a 4f |:.. .:OMX%=MX%:O|
00001190 4d 59 25 3d 4d 59 25 3a c8 97 20 b8 20 30 2c 30 |MY%=MY%:.. . 0,0|
000011a0 0d 04 10 37 d1 3d 30 3a f5 3a fd 91 3e 36 30 3a |...7.=0:.:..>60:|
000011b0 c8 96 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |..:.."OS_SpriteO|
000011c0 70 22 2c 32 39 30 2c 49 53 50 25 2c 22 39 37 22 |p",290,ISP%,"97"|
000011d0 2c 31 36 38 2c 32 30 0d 04 1a 4a d1 3d 30 3a f5 |,168,20...J.=0:.|
000011e0 3a fd 91 3e 36 30 3a c8 96 3a c8 93 20 c8 90 20 |:..>60:..:.. .. |
000011f0 32 30 30 2c 37 36 2c 37 36 2c 32 30 3a c8 99 22 |200,76,76,20:.."|
00001200 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
00001210 2c 49 53 50 25 2c 22 39 38 22 2c 31 36 38 2c 32 |,ISP%,"98",168,2|
00001220 30 0d 04 24 4e d1 3d 30 3a f5 3a fd 91 3e 36 30 |0..$N.=0:.:..>60|
00001230 3a c8 96 3a c8 93 20 c8 90 20 31 36 2c 32 34 2c |:..:.. .. 16,24,|
00001240 32 30 2c 35 36 3a c8 99 22 4f 53 5f 53 70 72 69 |20,56:.."OS_Spri|
00001250 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 25 2c 22 |teOp",290,ISP%,"|
00001260 39 39 22 2c 32 38 2c 31 32 3a f2 63 6f 70 79 0d |99",28,12:.copy.|
00001270 04 2e 50 c8 97 20 c8 93 20 2d 31 30 30 2c 2d 31 |..P.. .. -100,-1|
00001280 30 30 2c 32 30 30 2c 32 30 30 3a 4b 25 3d 31 3a |00,200,200:K%=1:|
00001290 4d 25 3d 31 3a 41 54 43 25 3d 30 3a f5 3a d1 3d |M%=1:ATC%=0:.:.=|
000012a0 30 3a 4e 25 3d 30 3a f5 3a c8 97 20 4d 58 25 2c |0:N%=0:.:.. MX%,|
000012b0 4d 59 25 2c 42 25 3a c8 97 20 b8 20 30 2c 30 0d |MY%,B%:.. . 0,0.|
000012c0 04 38 0d e7 20 4d 58 25 3d 30 20 8c 0d 04 42 1b |.8.. MX%=0 ...B.|
000012d0 20 e7 20 4b 25 3d 31 20 80 20 ac 20 a6 28 57 4c | . K%=1 . . .(WL|
000012e0 25 29 20 4b 25 3d 32 0d 04 4c 1f 20 e7 20 4b 25 |%) K%=2..L. . K%|
000012f0 3d 32 20 80 20 a6 28 57 4c 25 29 20 4b 25 3d 33 |=2 . .(WL%) K%=3|
00001300 3a 4e 25 2b 3d 31 0d 04 56 1b 20 e7 20 4b 25 3d |:N%+=1..V. . K%=|
00001310 33 20 80 20 ac 20 a6 28 57 52 25 29 20 4b 25 3d |3 . . .(WR%) K%=|
00001320 34 0d 04 5b 49 20 f4 20 49 46 49 4e 4b 45 59 28 |4..[I . IFINKEY(|
00001330 2d 38 34 29 41 4e 44 49 4e 4b 45 59 28 2d 37 31 |-84)ANDINKEY(-71|
00001340 29 20 4e 25 3d 26 37 46 46 46 46 46 46 46 3a 20 |) N%=&7FFFFFFF: |
00001350 52 45 4d 20 63 68 65 61 74 20 61 74 20 61 72 6d |REM cheat at arm|
00001360 20 77 72 65 73 74 6c 69 6e 67 0d 04 60 1f 20 e7 | wrestling..`. .|
00001370 20 4b 25 3d 34 20 80 20 a6 28 57 52 25 29 20 4b | K%=4 . .(WR%) K|
00001380 25 3d 31 3a 4e 25 2b 3d 31 0d 04 6a 05 cc 0d 04 |%=1:N%+=1..j....|
00001390 74 1e 20 e7 20 4d 25 3d 31 20 80 20 4d 58 25 3e |t. . M%=1 . MX%>|
000013a0 30 20 4d 25 3d 32 3a 4e 25 2b 3d 31 0d 04 7e 1e |0 M%=2:N%+=1..~.|
000013b0 20 e7 20 4d 25 3d 32 20 80 20 4d 58 25 3c 30 20 | . M%=2 . MX%<0 |
000013c0 4d 25 3d 31 3a 4e 25 2b 3d 31 0d 04 88 05 cd 0d |M%=1:N%+=1......|
000013d0 04 92 44 fd 91 3e 34 39 3a 4e 25 2b 3d b3 28 33 |..D..>49:N%+=.(3|
000013e0 29 2d 32 3a e7 20 4e 25 3e 41 53 25 20 53 47 25 |)-2:. N%>AS% SG%|
000013f0 2d 3d 31 20 8b 20 e7 20 4e 25 3c 41 53 25 20 53 |-=1 . . N%<AS% S|
00001400 47 25 2b 3d 31 20 8b 20 53 47 25 2b 3d b3 28 33 |G%+=1 . SG%+=.(3|
00001410 29 2d 32 0d 04 9c 2c 41 54 43 25 2b 3d 31 3a e7 |)-2...,ATC%+=1:.|
00001420 20 41 54 43 25 3d 41 54 25 20 80 20 41 53 25 3e | ATC%=AT% . AS%>|
00001430 31 20 41 53 25 2d 3d 31 3a 41 54 43 25 3d 30 0d |1 AS%-=1:ATC%=0.|
00001440 04 a6 5e e7 20 53 47 25 3d 30 20 46 43 25 3d 26 |..^. SG%=0 FC%=&|
00001450 44 37 42 30 2b 41 4f 50 25 2a 26 42 45 38 20 8b |D7B0+AOP%*&BE8 .|
00001460 20 e7 20 53 47 25 3d 31 34 20 46 43 25 3d 26 45 | . SG%=14 FC%=&E|
00001470 31 39 43 2b 41 4f 50 25 2a 26 42 45 38 20 8b 20 |19C+AOP%*&BE8 . |
00001480 46 43 25 3d 26 44 37 42 30 2b b3 28 34 29 2a 26 |FC%=&D7B0+.(4)*&|
00001490 31 46 43 2b 41 4f 50 25 2a 26 42 45 38 0d 04 b0 |1FC+AOP%*&BE8...|
000014a0 18 f2 73 74 72 3a fd 53 47 25 3d 30 20 84 20 53 |..str:.SG%=0 . S|
000014b0 47 25 3d 31 34 0d 04 ba 75 c8 99 22 4f 53 5f 53 |G%=14...u.."OS_S|
000014c0 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 |priteOp",290,ISP|
000014d0 25 2c 22 38 33 22 2c 31 36 2c 31 36 3a c8 99 22 |%,"83",16,16:.."|
000014e0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
000014f0 2c 49 53 50 25 2c 22 39 36 22 2c 31 36 38 2c 32 |,ISP%,"96",168,2|
00001500 30 3a e6 20 30 3a c8 92 20 32 37 32 2c 31 30 38 |0:. 0:.. 272,108|
00001510 3a c8 92 20 31 34 30 2c 31 32 3a c8 92 20 31 38 |:.. 140,12:.. 18|
00001520 34 2c 31 36 3a f2 63 6f 70 79 0d 04 c4 0d e7 20 |4,16:.copy..... |
00001530 53 47 25 3d 30 20 8c 0d 04 ce 2c 20 c8 a1 31 2c |SG%=0 ...., ..1,|
00001540 22 49 72 6f 6e 45 66 66 65 63 74 2d 41 72 6d 57 |"IronEffect-ArmW|
00001550 69 6e 22 3a d4 31 2c 26 31 37 46 2c 26 32 35 35 |in":.1,&17F,&255|
00001560 30 2c 31 0d 04 d8 1c 20 e7 20 41 4f 25 3d 33 20 |0,1.... . AO%=3 |
00001570 80 20 3f 28 93 2b 26 31 35 44 29 3d 30 20 8c 0d |. ?(.+&15D)=0 ..|
00001580 04 e2 c0 20 20 41 46 25 3d b9 3a f2 62 77 5f 75 |... AF%=.:.bw_u|
00001590 70 28 22 54 68 65 72 65 20 69 73 20 61 20 72 6f |p("There is a ro|
000015a0 75 6e 64 20 6f 66 20 61 70 70 6c 61 75 73 65 20 |und of applause |
000015b0 66 72 6f 6d 20 74 68 65 20 63 72 6f 77 64 20 61 |from the crowd a|
000015c0 73 20 79 6f 75 20 64 65 66 65 61 74 20 79 6f 75 |s you defeat you|
000015d0 72 20 6c 61 73 74 20 6f 70 70 6f 6e 65 6e 74 2e |r last opponent.|
000015e0 20 54 68 65 20 6d 61 69 64 20 69 73 20 73 6f 20 | The maid is so |
000015f0 69 6d 70 72 65 73 73 65 64 20 73 68 65 20 67 69 |impressed she gi|
00001600 76 65 73 20 79 6f 75 20 61 20 6b 69 73 73 2e 22 |ves you a kiss."|
00001610 29 3a 3f 28 93 2b 33 32 32 29 3d 31 31 36 3a 3f |):?(.+322)=116:?|
00001620 28 93 2b 26 31 35 44 29 3d 32 35 35 3a ef 20 32 |(.+&15D)=255:. 2|
00001630 34 2c 30 3b 30 3b 31 32 37 39 3b 37 39 39 3b 0d |4,0;0;1279;799;.|
00001640 04 ec 06 20 cc 0d 04 f6 c9 20 20 f2 62 77 5f 75 |... ..... .bw_u|
00001650 70 28 22 59 6f 75 72 20 61 64 76 65 72 73 61 72 |p("Your adversar|
00001660 79 20 6c 65 61 76 65 73 20 74 68 65 20 74 61 62 |y leaves the tab|
00001670 6c 65 2c 20 64 65 66 65 61 74 65 64 2e 20 48 69 |le, defeated. Hi|
00001680 73 20 70 6c 61 63 65 20 69 73 20 74 61 6b 65 6e |s place is taken|
00001690 20 62 79 20 61 20 6e 65 77 20 6f 70 70 6f 6e 65 | by a new oppone|
000016a0 6e 74 2c 20 65 76 65 6e 20 6d 6f 72 65 20 64 65 |nt, even more de|
000016b0 74 65 72 6d 69 6e 65 64 20 74 6f 20 62 65 61 74 |termined to beat|
000016c0 20 79 6f 75 2e 22 29 3a 41 4f 25 2b 3d 31 3a e7 | you."):AO%+=1:.|
000016d0 20 41 4f 25 3d 34 20 f2 63 68 6f 6f 73 65 5f 6f | AO%=4 .choose_o|
000016e0 70 70 20 8b 20 41 4f 50 25 3d 41 4f 25 28 41 4f |pp . AOP%=AO%(AO|
000016f0 25 29 3a 41 53 25 3d 41 53 25 28 41 4f 50 25 29 |%):AS%=AS%(AOP%)|
00001700 3a 41 54 25 3d 41 54 25 28 41 4f 50 25 29 0d 05 |:AT%=AT%(AOP%)..|
00001710 00 60 20 20 53 47 25 3d 37 3a 46 43 25 3d 26 44 |.` SG%=7:FC%=&D|
00001720 44 41 34 2b 41 4f 50 25 2a 26 42 45 38 3a f2 62 |DA4+AOP%*&BE8:.b|
00001730 77 5f 64 6f 77 6e 3a f2 73 74 72 3a c8 99 22 4f |w_down:.str:.."O|
00001740 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 2c |S_SpriteOp",290,|
00001750 49 53 50 25 2c c3 28 41 4f 50 25 2b 38 36 29 2c |ISP%,.(AOP%+86),|
00001760 31 31 33 32 2c 36 36 30 3a f2 63 6f 70 79 0d 05 |1132,660:.copy..|
00001770 0a 06 20 cd 0d 05 14 05 cc 0d 05 1e 2d 20 c8 a1 |.. .........- ..|
00001780 31 2c 22 49 72 6f 6e 45 66 66 65 63 74 2d 41 72 |1,"IronEffect-Ar|
00001790 6d 4c 6f 73 65 22 3a d4 31 2c 26 31 37 46 2c 26 |mLose":.1,&17F,&|
000017a0 32 35 35 30 2c 31 0d 05 28 7c 20 41 46 25 3d b9 |2550,1..(| AF%=.|
000017b0 3a f2 62 77 5f 75 70 28 22 59 6f 75 72 20 6f 70 |:.bw_up("Your op|
000017c0 70 6f 6e 65 6e 74 27 73 20 73 74 72 65 6e 67 74 |ponent's strengt|
000017d0 68 20 70 72 6f 76 65 73 20 74 6f 6f 20 6d 75 63 |h proves too muc|
000017e0 68 20 66 6f 72 20 79 6f 75 2c 20 61 6e 64 20 79 |h for you, and y|
000017f0 6f 75 20 6c 65 61 76 65 20 74 68 65 20 74 61 62 |ou leave the tab|
00001800 6c 65 20 69 6e 20 64 65 66 65 61 74 2e 22 29 3a |le in defeat."):|
00001810 ef 20 32 34 2c 30 3b 30 3b 31 32 37 39 3b 37 39 |. 24,0;0;1279;79|
00001820 39 3b 0d 05 32 05 cd 0d 05 3c 2e c8 97 20 c8 93 |9;..2....<... ..|
00001830 20 30 2c 30 2c 31 32 37 39 2c 37 39 39 3a c8 97 | 0,0,1279,799:..|
00001840 20 b8 20 4f 4d 58 25 2c 4f 4d 59 25 3a c8 97 20 | . OMX%,OMY%:.. |
00001850 ee 20 32 3a e1 0d 05 46 05 3a 0d 05 50 7f dd 20 |. 2:...F.:..P.. |
00001860 f2 73 74 72 3a c8 99 22 4f 53 5f 42 79 74 65 22 |.str:.."OS_Byte"|
00001870 2c 31 31 32 2c 42 4b 25 3a e6 20 30 3a c8 93 20 |,112,BK%:. 0:.. |
00001880 c8 90 20 39 33 36 2c 32 34 2c 31 30 34 2c 36 30 |.. 936,24,104,60|
00001890 34 3a e7 20 53 47 25 3c 31 34 20 8c 20 e3 20 4c |4:. SG%<14 . . L|
000018a0 25 3d 31 20 b8 20 31 34 2d 53 47 25 3a c8 99 22 |%=1 . 14-SG%:.."|
000018b0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
000018c0 2c 49 53 50 25 2c 22 39 35 22 2c 39 33 36 2c 4c |,ISP%,"95",936,L|
000018d0 25 2a 34 34 2d 32 30 3a ed 0d 05 5a 5c c8 93 20 |%*44-20:...Z\.. |
000018e0 c8 90 20 31 31 32 34 2c 32 34 2c 31 30 34 2c 36 |.. 1124,24,104,6|
000018f0 30 34 3a e7 20 53 47 25 3e 30 20 e3 20 4c 25 3d |04:. SG%>0 . L%=|
00001900 31 20 b8 20 53 47 25 3a c8 99 22 4f 53 5f 53 70 |1 . SG%:.."OS_Sp|
00001910 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 25 |riteOp",290,ISP%|
00001920 2c 22 39 35 22 2c 31 31 32 34 2c 4c 25 2a 34 34 |,"95",1124,L%*44|
00001930 2d 32 30 3a ed 0d 05 64 95 c8 99 22 4f 53 5f 53 |-20:...d..."OS_S|
00001940 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 |priteOp",290,ISP|
00001950 25 2c 22 38 32 22 2c 38 2c 31 34 34 3a c8 99 22 |%,"82",8,144:.."|
00001960 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 35 34 36 |OS_SpriteOp",546|
00001970 2c 49 53 50 25 2c 49 53 50 25 2b 46 43 25 2c 36 |,ISP%,ISP%+FC%,6|
00001980 35 36 2c 34 37 36 3a e7 20 53 47 25 3e 30 20 8c |56,476:. SG%>0 .|
00001990 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 | .."OS_SpriteOp"|
000019a0 2c 32 39 30 2c 49 53 50 25 2c c3 28 53 47 25 2d |,290,ISP%,.(SG%-|
000019b0 31 29 2c 41 58 25 28 53 47 25 2d 31 29 2c 41 59 |1),AX%(SG%-1),AY|
000019c0 25 28 53 47 25 2d 31 29 2c 38 0d 05 6e 26 c8 96 |%(SG%-1),8..n&..|
000019d0 3a c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 31 33 |:.."OS_Byte",113|
000019e0 2c 42 4b 25 3a 42 4b 25 3d 42 4b 25 20 82 20 33 |,BK%:BK%=BK% . 3|
000019f0 0d 05 78 05 e1 0d 05 82 05 3a 0d 05 8c 1d dd 20 |..x......:..... |
00001a00 f2 64 69 63 65 3a c8 97 20 87 3a 2a 49 72 6f 6e |.dice:.. .:*Iron|
00001a10 46 61 64 65 4f 75 74 0d 05 96 40 da 3a ff 22 49 |FadeOut...@.:."I|
00001a20 72 6f 6e 4c 6f 61 64 20 3c 49 72 6f 6e 4c 6f 72 |ronLoad <IronLor|
00001a30 64 24 44 69 72 3e 2e 44 69 63 65 53 70 72 20 22 |d$Dir>.DiceSpr "|
00001a40 2b c3 7e 28 49 53 50 25 2b 34 29 3a 53 54 25 3d |+.~(ISP%+4):ST%=|
00001a50 31 3a 50 54 25 3d 30 0d 05 a0 ae e6 20 31 32 3a |1:PT%=0..... 12:|
00001a60 c8 93 20 30 2c 30 2c 31 32 37 36 2c 37 39 36 3a |.. 0,0,1276,796:|
00001a70 c8 93 20 34 2c 34 2c 31 32 36 38 2c 37 38 38 3a |.. 4,4,1268,788:|
00001a80 86 20 36 31 32 2c 38 2c 36 31 32 2c 37 38 38 3a |. 612,8,612,788:|
00001a90 86 20 36 31 36 2c 38 2c 36 31 36 2c 37 38 38 3a |. 616,8,616,788:|
00001aa0 86 20 36 31 36 2c 31 33 32 2c 31 32 36 38 2c 31 |. 616,132,1268,1|
00001ab0 33 32 3a 86 20 36 31 36 2c 31 32 38 2c 31 32 36 |32:. 616,128,126|
00001ac0 38 2c 31 32 38 3a 86 20 39 32 34 2c 38 2c 39 32 |8,128:. 924,8,92|
00001ad0 34 2c 31 32 34 3a 86 20 39 32 38 2c 38 2c 39 32 |4,124:. 928,8,92|
00001ae0 38 2c 31 32 34 3a 86 20 39 36 38 2c 38 2c 39 36 |8,124:. 968,8,96|
00001af0 38 2c 31 32 34 3a 86 20 39 37 32 2c 38 2c 39 37 |8,124:. 972,8,97|
00001b00 32 2c 31 32 34 0d 05 aa 44 f7 20 8d 54 6c 46 3a |2,124...D. .TlF:|
00001b10 e3 20 49 25 3d 31 20 b8 20 34 3a f3 20 4e 24 2c |. I%=1 . 4:. N$,|
00001b20 58 25 2c 59 25 3a c8 99 22 4f 53 5f 53 70 72 69 |X%,Y%:.."OS_Spri|
00001b30 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 25 2c 4e |teOp",290,ISP%,N|
00001b40 24 2c 58 25 2c 59 25 3a ed 0d 05 b4 12 2a 49 72 |$,X%,Y%:.....*Ir|
00001b50 6f 6e 46 61 64 65 49 6e 20 31 39 0d 05 be 13 e7 |onFadeIn 19.....|
00001b60 20 21 28 93 2b 26 31 35 30 29 3d 30 20 8c 0d 05 | !(.+&150)=0 ...|
00001b70 c8 0e 20 f2 6e 6f 5f 6d 6f 6e 65 79 0d 05 d2 05 |.. .no_money....|
00001b80 cc 0d 05 dc 21 20 c8 97 20 b8 20 39 32 34 2c 32 |....! .. . 924,2|
00001b90 36 34 3a c8 97 20 ee 20 32 3a f5 3a f2 6d 6f 75 |64:.. . 2:.:.mou|
00001ba0 73 65 0d 05 e6 36 20 e7 20 4d 58 25 3e 38 31 32 |se...6 . MX%>812|
00001bb0 20 80 20 4d 58 25 3c 31 32 37 32 20 80 20 4d 59 | . MX%<1272 . MY|
00001bc0 25 3e 33 33 32 20 80 20 4d 59 25 3c 35 38 38 20 |%>332 . MY%<588 |
00001bd0 8c 20 f2 74 68 72 6f 77 0d 05 f0 31 20 e7 20 4d |. .throw...1 . M|
00001be0 58 25 3e 36 30 38 20 80 20 4d 58 25 3c 39 31 36 |X%>608 . MX%<916|
00001bf0 20 80 20 4d 59 25 3e 34 20 80 20 4d 59 25 3c 31 | . MY%>4 . MY%<1|
00001c00 32 38 20 8c 20 f2 70 6f 74 0d 05 fa 30 20 fd 20 |28 . .pot...0 . |
00001c10 4d 58 25 3e 39 36 34 20 80 20 4d 58 25 3c 31 32 |MX%>964 . MX%<12|
00001c20 37 32 20 80 20 4d 59 25 3e 34 20 80 20 4d 59 25 |72 . MY%>4 . MY%|
00001c30 3c 31 32 38 3a c8 97 20 87 0d 06 04 12 cd 3a 2a |<128:.. ......:*|
00001c40 49 72 6f 6e 46 61 64 65 4f 75 74 0d 06 0e 1d f2 |IronFadeOut.....|
00001c50 70 69 63 74 75 72 65 3a 4d 58 25 3d 31 32 37 32 |picture:MX%=1272|
00001c60 3a 4d 59 25 3d 37 39 36 0d 06 18 05 e1 0d 06 22 |:MY%=796......."|
00001c70 05 3a 0d 06 2c 26 dc 20 36 2c 38 2c 38 2c 30 2c |.:..,&. 6,8,8,0,|
00001c80 38 32 38 2c 33 33 36 2c 34 2c 36 32 30 2c 38 2c |828,336,4,620,8,|
00001c90 35 2c 31 30 30 30 2c 38 0d 06 36 05 3a 0d 06 40 |5,1000,8..6.:..@|
00001ca0 15 dd 20 f2 74 68 72 6f 77 3a 2a 46 58 31 31 32 |.. .throw:*FX112|
00001cb0 2c 32 0d 06 4a 21 e7 20 53 54 25 3e 21 28 93 2b |,2..J!. ST%>!(.+|
00001cc0 26 31 35 30 29 20 53 54 25 3d 21 28 93 2b 26 31 |&150) ST%=!(.+&1|
00001cd0 35 30 29 0d 06 54 c3 da 3a f7 20 8d 74 46 41 3a |50)..T..:. .tFA:|
00001ce0 f2 72 65 63 74 28 30 2c 34 2c 34 37 36 2c 31 37 |.rect(0,4,476,17|
00001cf0 32 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |2):.."OS_SpriteO|
00001d00 70 22 2c 32 39 30 2c 49 53 50 25 2c 22 33 30 22 |p",290,ISP%,"30"|
00001d10 2c 31 36 2c 32 34 3a c8 99 22 4f 53 5f 53 70 72 |,16,24:.."OS_Spr|
00001d20 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 25 2c |iteOp",290,ISP%,|
00001d30 22 32 36 22 2c 33 34 30 2c 33 36 3a e6 20 31 33 |"26",340,36:. 13|
00001d40 3a ec 20 33 32 38 2b 28 33 2d a9 28 c3 28 53 54 |:. 328+(3-.(.(ST|
00001d50 25 29 29 29 2a 31 36 2c 31 32 34 3a f1 3b 53 54 |%)))*16,124:.;ST|
00001d60 25 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |%:.."OS_SpriteOp|
00001d70 22 2c 32 37 32 2c 57 53 50 25 2c 22 73 22 2c 30 |",272,WSP%,"s",0|
00001d80 2c 30 2c 30 2c 34 37 36 2c 31 38 30 3a 2a 46 58 |,0,0,476,180:*FX|
00001d90 20 31 31 32 2c 31 0d 06 5e 23 ef 20 32 34 2c 30 | 112,1..^#. 24,0|
00001da0 3b 31 33 36 3b 31 32 37 36 3b 37 38 38 3b 3a f2 |;136;1276;788;:.|
00001db0 64 6f 77 6e 3a 47 25 3d a3 0d 06 68 44 f5 3a 4a |down:G%=...hD.:J|
00001dc0 25 3d 30 3a f5 3a c8 97 20 4d 58 25 2c 4d 59 25 |%=0:.:.. MX%,MY%|
00001dd0 2c 42 25 3a 4a 25 2b 3d 31 3a fd 20 42 25 3c 3e |,B%:J%+=1:. B%<>|
00001de0 30 3a 43 25 3d a3 3a c8 96 3a e7 20 4a 25 3d 31 |0:C%=.:..:. J%=1|
00001df0 20 4a 25 3d 33 20 8b 20 4a 25 3d 31 32 0d 06 72 | J%=3 . J%=12..r|
00001e00 19 e7 20 4d 59 25 3e 36 32 38 20 80 20 4d 59 25 |.. MY%>628 . MY%|
00001e10 3c 36 38 30 20 8c 0d 06 7c 2f e7 20 4d 58 25 3e |<680 ...|/. MX%>|
00001e20 31 30 33 32 20 80 20 4d 58 25 3c 31 30 36 34 20 |1032 . MX%<1064 |
00001e30 80 20 53 54 25 3e 31 20 8c 20 53 54 25 2d 3d 31 |. ST%>1 . ST%-=1|
00001e40 3a 43 25 3d b9 0d 06 86 37 e7 20 4d 58 25 3e 31 |:C%=....7. MX%>1|
00001e50 30 38 34 20 80 20 4d 58 25 3c 31 31 32 30 20 80 |084 . MX%<1120 .|
00001e60 20 53 54 25 3c 21 28 93 2b 26 31 35 30 29 20 8c | ST%<!(.+&150) .|
00001e70 20 53 54 25 2b 3d 31 3a 43 25 3d b9 0d 06 90 59 | ST%+=1:C%=....Y|
00001e80 e7 20 43 25 20 e6 20 31 3a c8 93 20 c8 90 20 31 |. C% . 1:.. .. 1|
00001e90 30 33 36 2c 36 39 32 2c 39 36 2c 32 38 3a e6 20 |036,692,96,28:. |
00001ea0 31 33 3a ec 20 31 30 33 32 2b 28 33 2d a9 28 c3 |13:. 1032+(3-.(.|
00001eb0 28 53 54 25 29 29 29 2a 31 36 2c 37 32 30 3a f1 |(ST%)))*16,720:.|
00001ec0 3b 53 54 25 3a e3 20 49 25 3d 31 20 b8 20 4a 25 |;ST%:. I%=1 . J%|
00001ed0 3a c8 96 3a ed 0d 06 9a 05 cd 0d 06 a4 30 e7 20 |:..:.........0. |
00001ee0 4d 58 25 3e 37 31 32 20 80 20 4d 58 25 3c 38 39 |MX%>712 . MX%<89|
00001ef0 36 20 80 20 4d 59 25 3e 36 34 34 20 80 20 4d 59 |6 . MY%>644 . MY|
00001f00 25 3c 37 35 36 20 47 25 3d b9 0d 06 ae 31 fd 20 |%<756 G%=....1. |
00001f10 47 25 20 84 20 28 4d 58 25 3e 39 36 34 20 80 20 |G% . (MX%>964 . |
00001f20 4d 58 25 3c 31 32 37 32 20 80 20 4d 59 25 3e 34 |MX%<1272 . MY%>4|
00001f30 20 80 20 4d 59 25 3c 31 32 38 29 0d 06 b8 21 e7 | . MY%<128)...!.|
00001f40 20 ac 20 47 25 20 8c 20 ef 20 32 34 2c 30 3b 30 | . G% . . 24,0;0|
00001f50 3b 31 32 37 39 3b 37 39 39 3b 3a e1 0d 06 c2 60 |;1279;799;:....`|
00001f60 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00001f70 32 37 32 2c 57 53 50 25 2c 22 73 22 2c 30 2c 37 |272,WSP%,"s",0,7|
00001f80 30 34 2c 35 39 36 2c 31 31 38 30 2c 37 37 36 3a |04,596,1180,776:|
00001f90 c8 97 20 87 3a f2 75 70 3a c8 a1 31 2c 22 49 72 |.. .:.up:..1,"Ir|
00001fa0 6f 6e 45 66 66 65 63 74 2d 53 68 61 6b 65 44 69 |onEffect-ShakeDi|
00001fb0 63 65 22 3a 2a 46 58 20 32 31 2c 39 0d 06 cc 75 |ce":*FX 21,9...u|
00001fc0 59 25 3d 33 33 36 3a 49 25 3d 2d 34 3a f5 3a 59 |Y%=336:I%=-4:.:Y|
00001fd0 25 3d 59 25 2b 49 25 3a c8 96 3a c8 99 22 4f 53 |%=Y%+I%:..:.."OS|
00001fe0 5f 53 70 72 69 74 65 4f 70 22 2c 35 34 36 2c 49 |_SpriteOp",546,I|
00001ff0 53 50 25 2c 49 53 50 25 2b 31 36 2c 38 32 38 2c |SP%,ISP%+16,828,|
00002000 59 25 3a e7 20 59 25 3d 33 32 34 20 49 25 3d 34 |Y%:. Y%=324 I%=4|
00002010 3a d4 31 2c 26 31 37 46 2c 26 32 35 35 30 2c 31 |:.1,&17F,&2550,1|
00002020 20 8b 20 e7 20 59 25 3d 33 34 38 20 49 25 3d 2d | . . Y%=348 I%=-|
00002030 34 0d 06 d6 17 c8 97 20 58 25 2c 58 25 2c 42 25 |4...... X%,X%,B%|
00002040 3a fd 20 42 25 3c 3e 30 0d 06 e0 43 e3 20 59 25 |:. B%<>0...C. Y%|
00002050 3d 59 25 20 b8 20 33 32 34 20 88 20 2d 34 3a c8 |=Y% . 324 . -4:.|
00002060 96 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |.:.."OS_SpriteOp|
00002070 22 2c 35 34 36 2c 49 53 50 25 2c 49 53 50 25 2b |",546,ISP%,ISP%+|
00002080 31 36 2c 38 32 38 2c 59 25 3a ed 0d 06 ea 4a 48 |16,828,Y%:....JH|
00002090 24 3d 22 31 22 3a 58 25 3d 38 32 38 3a e3 20 59 |$="1":X%=828:. Y|
000020a0 25 3d 33 32 30 20 b8 20 32 38 34 20 88 20 2d 34 |%=320 . 284 . -4|
000020b0 3a c8 96 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |:..:.."OS_Sprite|
000020c0 4f 70 22 2c 32 39 30 2c 49 53 50 25 2c 48 24 2c |Op",290,ISP%,H$,|
000020d0 58 25 2c 59 25 0d 06 f4 33 e7 20 59 25 3d 33 30 |X%,Y%...3. Y%=30|
000020e0 38 20 48 24 3d 22 32 22 3a 58 25 3d 37 36 38 20 |8 H$="2":X%=768 |
000020f0 8b 20 e7 20 59 25 3d 32 39 36 20 48 24 3d 22 33 |. . Y%=296 H$="3|
00002100 22 3a 58 25 3d 37 30 38 0d 06 fe 2a ed 3a c8 96 |":X%=708...*.:..|
00002110 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
00002120 2c 32 39 30 2c 49 53 50 25 2c 48 24 2c 58 25 2c |,290,ISP%,H$,X%,|
00002130 59 25 0d 07 08 c9 41 25 3d b3 28 36 29 3a 42 25 |Y%....A%=.(6):B%|
00002140 3d b3 28 36 29 3a 43 25 3d b3 28 36 29 2b b3 28 |=.(6):C%=.(6)+.(|
00002150 36 29 3a c8 a1 31 2c 22 49 72 6f 6e 45 66 66 65 |6):..1,"IronEffe|
00002160 63 74 2d 54 68 72 6f 77 44 69 63 65 22 3a d4 31 |ct-ThrowDice":.1|
00002170 2c 26 31 37 46 2c 26 32 35 35 30 2c 31 2c 36 30 |,&17F,&2550,1,60|
00002180 3a d6 20 74 68 72 6f 77 3a c8 99 22 4f 53 5f 53 |:. throw:.."OS_S|
00002190 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 |priteOp",290,ISP|
000021a0 25 2c c3 28 41 25 2b 31 38 29 2c 58 31 3c 3c 32 |%,.(A%+18),X1<<2|
000021b0 2c 59 31 3c 3c 32 2c 38 3a c8 99 22 4f 53 5f 53 |,Y1<<2,8:.."OS_S|
000021c0 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 49 53 50 |priteOp",290,ISP|
000021d0 25 2c c3 28 42 25 2b 31 38 29 2c 58 32 3c 3c 32 |%,.(B%+18),X2<<2|
000021e0 2c 59 32 3c 3c 32 2c 38 3a 41 25 3d 41 25 2b 42 |,Y2<<2,8:A%=A%+B|
000021f0 25 3a 2a 46 58 20 31 31 32 2c 32 0d 07 12 cd ef |%:*FX 112,2.....|
00002200 20 32 34 2c 30 3b 30 3b 31 32 37 39 3b 37 38 38 | 24,0;0;1279;788|
00002210 3b 3a da 3a f7 20 8d 74 46 41 3a f2 72 65 63 74 |;:.:. .tFA:.rect|
00002220 28 30 2c 34 2c 34 37 36 2c 31 37 32 29 3a c8 99 |(0,4,476,172):..|
00002230 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 |"OS_SpriteOp",29|
00002240 30 2c 49 53 50 25 2c c3 28 32 37 29 2c 32 30 2c |0,ISP%,.(27),20,|
00002250 32 30 3a e6 20 31 33 3a ec 20 32 31 32 2c 31 32 |20:. 13:. 212,12|
00002260 38 3a f1 22 43 6f 6e 72 61 64 22 3a 4f 24 3d 22 |8:."Conrad":O$="|
00002270 6d 61 64 65 20 22 2b c3 28 43 25 29 3a ec 20 33 |made "+.(C%):. 3|
00002280 30 38 2d a9 28 4f 24 29 2a 31 36 2c 38 34 3a f1 |08-.(O$)*16,84:.|
00002290 20 4f 24 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 | O$:.."OS_Sprite|
000022a0 4f 70 22 2c 32 37 32 2c 57 53 50 25 2c 22 73 22 |Op",272,WSP%,"s"|
000022b0 2c 30 2c 30 2c 30 2c 34 37 36 2c 31 38 30 3a 2a |,0,0,0,476,180:*|
000022c0 46 58 20 31 31 32 2c 31 0d 07 1c 14 f2 64 6f 77 |FX 112,1.....dow|
000022d0 6e 3a f2 6d 6f 75 73 65 3a e6 20 31 0d 07 26 1a |n:.mouse:. 1..&.|
000022e0 e7 20 43 25 3c 38 20 84 20 41 25 3d 37 20 50 54 |. C%<8 . A%=7 PT|
000022f0 25 2b 3d 53 54 25 0d 07 30 29 e7 20 41 25 3c 38 |%+=ST%..0). A%<8|
00002300 20 84 20 43 25 3d 37 20 50 54 25 2b 3d 53 54 25 | . C%=7 PT%+=ST%|
00002310 3a 21 28 93 2b 26 31 35 30 29 2d 3d 53 54 25 0d |:!(.+&150)-=ST%.|
00002320 07 3a 1c 57 58 43 25 3d 31 30 31 36 3a 57 59 43 |.:.WXC%=1016:WYC|
00002330 25 3d 36 38 36 3a 57 57 25 3d 39 0d 07 44 5e e7 |%=686:WW%=9..D^.|
00002340 20 43 25 3d 37 20 80 20 41 25 3c 3e 37 20 c8 93 | C%=7 . A%<>7 ..|
00002350 20 c8 90 20 38 36 38 2c 36 31 36 2c 32 39 36 2c | .. 868,616,296,|
00002360 31 34 30 3a e6 20 31 33 3a f2 77 70 72 28 22 43 |140:. 13:.wpr("C|
00002370 6f 6e 72 61 64 20 77 69 6e 73 20 74 68 65 20 70 |onrad wins the p|
00002380 6f 74 20 3a 20 22 2b c3 50 54 25 29 3a f2 6d 6f |ot : "+.PT%):.mo|
00002390 75 73 65 3a 50 54 25 3d 30 0d 07 4e 57 e7 20 43 |use:PT%=0..NW. C|
000023a0 25 3e 37 20 80 20 41 25 3c 3e 37 20 c8 93 20 c8 |%>7 . A%<>7 .. .|
000023b0 90 20 38 36 38 2c 36 31 36 2c 32 39 36 2c 31 34 |. 868,616,296,14|
000023c0 30 3a e6 20 31 33 3a f2 77 70 72 28 22 43 6f 6e |0:. 13:.wpr("Con|
000023d0 72 61 64 20 6b 65 65 70 73 20 68 69 73 20 73 74 |rad keeps his st|
000023e0 61 6b 65 22 29 3a e6 20 31 3a f2 6d 6f 75 73 65 |ake"):. 1:.mouse|
000023f0 0d 07 58 13 57 58 43 25 3d 39 34 32 3a 57 57 25 |..X.WXC%=942:WW%|
00002400 3d 31 33 0d 07 62 69 e7 20 41 25 3d 37 20 80 20 |=13..bi. A%=7 . |
00002410 43 25 3c 3e 37 20 c8 93 20 c8 90 20 37 32 30 2c |C%<>7 .. .. 720,|
00002420 36 31 36 2c 34 34 34 2c 31 34 30 3a e6 20 31 33 |616,444,140:. 13|
00002430 3a f2 77 70 72 28 22 59 6f 75 20 77 69 6e 20 74 |:.wpr("You win t|
00002440 68 65 20 70 6f 74 20 3a 20 22 2b c3 50 54 25 29 |he pot : "+.PT%)|
00002450 3a f2 6d 6f 75 73 65 3a 21 28 93 2b 26 31 35 30 |:.mouse:!(.+&150|
00002460 29 2b 3d 50 54 25 3a 50 54 25 3d 30 0d 07 6c 50 |)+=PT%:PT%=0..lP|
00002470 e7 20 41 25 3e 37 20 80 20 43 25 3c 3e 37 20 c8 |. A%>7 . C%<>7 .|
00002480 93 20 c8 90 20 37 32 30 2c 36 31 36 2c 34 34 34 |. .. 720,616,444|
00002490 2c 31 34 30 3a e6 20 31 33 3a f2 77 70 72 28 22 |,140:. 13:.wpr("|
000024a0 59 6f 75 20 6b 65 65 70 20 79 6f 75 72 20 73 74 |You keep your st|
000024b0 61 6b 65 22 29 3a f2 6d 6f 75 73 65 0d 07 76 7a |ake"):.mouse..vz|
000024c0 e7 20 21 28 93 2b 26 31 35 30 29 3d 30 20 e6 20 |. !(.+&150)=0 . |
000024d0 31 3a c8 93 20 c8 90 20 37 32 30 2c 36 31 36 2c |1:.. .. 720,616,|
000024e0 34 34 34 2c 31 34 30 3a e6 20 31 33 3a f2 77 70 |444,140:. 13:.wp|
000024f0 72 28 22 59 6f 75 27 76 65 20 73 70 65 6e 74 20 |r("You've spent |
00002500 61 6c 6c 20 79 6f 75 72 20 6d 6f 6e 65 79 20 21 |all your money !|
00002510 22 29 3a f2 6d 6f 75 73 65 3a 4d 58 25 3d 39 38 |"):.mouse:MX%=98|
00002520 30 3a 4d 59 25 3d 31 36 20 8b 20 4d 58 25 3d 30 |0:MY%=16 . MX%=0|
00002530 3a 4d 59 25 3d 30 0d 07 80 b7 c8 99 22 4f 53 5f |:MY%=0......"OS_|
00002540 53 70 72 69 74 65 4f 70 22 2c 32 37 32 2c 57 53 |SpriteOp",272,WS|
00002550 50 25 2c 22 73 22 2c 30 2c 37 30 34 2c 35 39 36 |P%,"s",0,704,596|
00002560 2c 31 31 38 30 2c 37 37 36 3a f2 75 70 3a e6 30 |,1180,776:.up:.0|
00002570 3a c8 93 20 c8 90 20 37 30 38 2c 31 33 36 2c 35 |:.. .. 708,136,5|
00002580 36 30 2c 36 35 32 3a 3a c8 99 22 4f 53 5f 53 70 |60,652::.."OS_Sp|
00002590 72 69 74 65 4f 70 22 2c 35 34 36 2c 49 53 50 25 |riteOp",546,ISP%|
000025a0 2c 49 53 50 25 2b 31 36 2c 38 32 38 2c 33 33 36 |,ISP%+16,828,336|
000025b0 3a ef 20 32 34 2c 30 3b 30 3b 31 32 37 39 3b 37 |:. 24,0;0;1279;7|
000025c0 39 39 3b 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |99;:.."OS_Sprite|
000025d0 4f 70 22 2c 32 39 30 2c 49 53 50 25 2c 22 36 22 |Op",290,ISP%,"6"|
000025e0 2c 38 2c 38 3a c8 97 20 ee 20 32 3a e1 0d 07 8a |,8,8:.. . 2:....|
000025f0 05 3a 0d 07 94 13 dd 20 f2 70 6f 74 3a 2a 46 58 |.:..... .pot:*FX|
00002600 31 31 32 2c 32 0d 07 9e a2 da 3a ef 20 32 34 2c |112,2.....:. 24,|
00002610 30 3b 30 3b 31 32 37 39 3b 37 38 38 3b 3a f7 20 |0;0;1279;788;:. |
00002620 8d 74 46 41 3a f2 72 65 63 74 28 30 2c 34 2c 34 |.tFA:.rect(0,4,4|
00002630 37 36 2c 31 37 32 29 3a e6 31 33 3a ec 31 32 2c |76,172):.13:.12,|
00002640 31 33 36 3a f1 22 59 6f 75 20 68 61 76 65 20 3a |136:."You have :|
00002650 20 22 3b 21 28 93 2b 26 31 35 30 29 3a ec 31 37 | ";!(.+&150):.17|
00002660 32 2c 37 32 3a f1 22 50 6f 74 20 3a 20 22 3b 50 |2,72:."Pot : ";P|
00002670 54 25 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |T%:.."OS_SpriteO|
00002680 70 22 2c 32 37 32 2c 57 53 50 25 2c 22 73 22 2c |p",272,WSP%,"s",|
00002690 30 2c 30 2c 30 2c 34 37 36 2c 31 38 30 3a 2a 46 |0,0,0,476,180:*F|
000026a0 58 20 31 31 32 2c 31 0d 07 a8 34 f2 64 6f 77 6e |X 112,1...4.down|
000026b0 3a f2 6d 6f 75 73 65 3a f2 75 70 3a ef 32 34 2c |:.mouse:.up:.24,|
000026c0 30 3b 30 3b 31 32 37 39 3b 37 39 39 3b 3a 4d 58 |0;0;1279;799;:MX|
000026d0 25 3d 30 3a 4d 59 25 3d 30 3a e1 0d 07 b2 05 3a |%=0:MY%=0:.....:|
000026e0 0d 07 bc 19 dd 20 f2 6e 6f 5f 6d 6f 6e 65 79 3a |..... .no_money:|
000026f0 2a 46 58 20 31 31 32 2c 32 0d 07 c6 a6 da 3a ef |*FX 112,2.....:.|
00002700 20 32 34 2c 30 3b 30 3b 31 32 37 39 3b 37 38 38 | 24,0;0;1279;788|
00002710 3b 3a f7 20 8d 74 46 41 3a f2 72 65 63 74 28 30 |;:. .tFA:.rect(0|
00002720 2c 34 2c 34 37 36 2c 31 37 32 29 3a e6 31 33 3a |,4,476,172):.13:|
00002730 57 58 43 25 3d 32 33 36 3a 57 59 43 25 3d 39 30 |WXC%=236:WYC%=90|
00002740 3a 57 57 25 3d 31 33 3a f2 77 70 72 28 22 59 6f |:WW%=13:.wpr("Yo|
00002750 75 20 64 6f 6e 27 74 20 68 61 76 65 20 61 6e 79 |u don't have any|
00002760 20 6d 6f 6e 65 79 20 21 22 29 3a c8 99 22 4f 53 | money !"):.."OS|
00002770 5f 53 70 72 69 74 65 4f 70 22 2c 32 37 32 2c 57 |_SpriteOp",272,W|
00002780 53 50 25 2c 22 73 22 2c 30 2c 30 2c 30 2c 34 37 |SP%,"s",0,0,0,47|
00002790 36 2c 31 38 30 3a 2a 46 58 20 31 31 32 2c 31 0d |6,180:*FX 112,1.|
000027a0 07 d0 28 f2 64 6f 77 6e 3a f2 6d 6f 75 73 65 3a |..(.down:.mouse:|
000027b0 f2 75 70 3a ef 32 34 2c 30 3b 30 3b 31 32 37 39 |.up:.24,0;0;1279|
000027c0 3b 37 39 39 3b 3a e1 0d 07 da 05 3a 0d 07 e4 1d |;799;:.....:....|
000027d0 dd 20 f2 72 65 63 74 28 58 25 2c 59 25 2c 57 25 |. .rect(X%,Y%,W%|
000027e0 2c 48 25 29 3a ea 20 43 25 0d 07 ee 65 f3 20 4e |,H%):. C%...e. N|
000027f0 25 3a e3 20 4c 25 3d 31 20 b8 20 4e 25 3a f3 20 |%:. L%=1 . N%:. |
00002800 43 25 3a e6 20 43 25 3a c8 93 20 58 25 2c 59 25 |C%:. C%:.. X%,Y%|
00002810 2c 57 25 2c 48 25 3a 58 25 2b 3d 34 3a 59 25 2b |,W%,H%:X%+=4:Y%+|
00002820 3d 34 3a 57 25 2d 3d 38 3a 48 25 2d 3d 38 3a ed |=4:W%-=8:H%-=8:.|
00002830 3a f3 20 43 25 3a e6 20 43 25 3a c8 93 20 c8 90 |:. C%:. C%:.. ..|
00002840 20 58 25 2c 59 25 2c 57 25 2c 48 25 3a e1 0d 07 | X%,Y%,W%,H%:...|
00002850 f8 05 3a 0d 08 02 15 dd 20 f2 6d 6f 75 73 65 3a |..:..... .mouse:|
00002860 2a 46 58 20 32 31 2c 39 0d 08 0c 34 f5 3a c8 97 |*FX 21,9...4.:..|
00002870 20 4d 58 25 2c 4d 59 25 2c 42 25 3a fd 20 42 25 | MX%,MY%,B%:. B%|
00002880 3d 30 3a f5 3a c8 97 20 4d 58 25 2c 4d 59 25 2c |=0:.:.. MX%,MY%,|
00002890 42 25 3a fd 20 42 25 3c 3e 30 3a e1 0d 08 16 05 |B%:. B%<>0:.....|
000028a0 3a 0d 08 20 4e dd 20 f2 64 6f 77 6e 3a e3 20 59 |:.. N. .down:. Y|
000028b0 25 3d 37 38 38 20 b8 20 35 39 36 20 88 20 2d 34 |%=788 . 596 . -4|
000028c0 3a c8 96 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |:..:.."OS_Sprite|
000028d0 4f 70 22 2c 35 34 36 2c 57 53 50 25 2c 57 53 50 |Op",546,WSP%,WSP|
000028e0 25 2b 31 36 2c 37 30 34 2c 59 25 3a ed 3a e1 0d |%+16,704,Y%:.:..|
000028f0 08 2a 4b dd 20 f2 75 70 3a e3 20 59 25 3d 35 39 |.*K. .up:. Y%=59|
00002900 36 20 b8 20 37 38 38 20 88 20 34 3a c8 96 3a c8 |6 . 788 . 4:..:.|
00002910 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 35 |."OS_SpriteOp",5|
00002920 34 36 2c 57 53 50 25 2c 57 53 50 25 2b 31 36 2c |46,WSP%,WSP%+16,|
00002930 37 30 34 2c 59 25 3a ed 3a e1 0d 08 34 05 3a 0d |704,Y%:.:...4.:.|
00002940 08 3e 0a dd 20 f2 61 73 6d 0d 08 48 20 73 70 3d |.>.. .asm..H sp=|
00002950 31 33 3a 6c 69 6e 6b 3d 31 34 3a 4f 53 5f 57 72 |13:link=14:OS_Wr|
00002960 69 74 65 49 3d 26 31 30 30 0d 08 52 12 e3 20 4f |iteI=&100..R.. O|
00002970 25 3d 30 20 b8 20 32 20 88 20 32 0d 08 5c 0c 50 |%=0 . 2 . 2..\.P|
00002980 25 3d 63 6f 64 65 25 0d 08 66 0b 5b 4f 50 54 20 |%=code%..f.[OPT |
00002990 4f 25 0d 08 70 10 5c 20 54 68 72 6f 77 20 64 69 |O%..p.\ Throw di|
000029a0 63 65 0d 08 7a 4a 2e 74 68 72 6f 77 20 4d 4f 56 |ce..zJ.throw MOV|
000029b0 20 52 38 2c 23 39 33 32 3a 4d 4f 56 20 52 39 2c | R8,#932:MOV R9,|
000029c0 23 33 36 30 3a 4d 4f 56 20 52 31 30 2c 23 39 33 |#360:MOV R10,#93|
000029d0 32 3a 4d 4f 56 20 52 31 31 2c 23 33 36 30 3a 41 |2:MOV R11,#360:A|
000029e0 44 52 20 52 31 32 2c 64 6d 74 61 62 0d 08 84 e7 |DR R12,dmtab....|
000029f0 2e 74 68 6c 70 20 4d 4f 56 20 52 30 2c 23 32 37 |.thlp MOV R0,#27|
00002a00 32 3a 4c 44 52 20 52 31 2c 62 73 70 61 64 64 3a |2:LDR R1,bspadd:|
00002a10 41 44 52 20 52 32 2c 73 6e 61 6d 65 3a 4d 4f 56 |ADR R2,sname:MOV|
00002a20 20 52 33 2c 23 30 3a 4d 4f 56 20 52 34 2c 52 38 | R3,#0:MOV R4,R8|
00002a30 3a 4d 4f 56 20 52 35 2c 52 39 3a 41 44 44 20 52 |:MOV R5,R9:ADD R|
00002a40 36 2c 52 34 2c 23 38 34 3a 41 44 44 20 52 37 2c |6,R4,#84:ADD R7,|
00002a50 52 35 2c 23 39 32 3a 53 57 49 20 22 4f 53 5f 53 |R5,#92:SWI "OS_S|
00002a60 70 72 69 74 65 4f 70 22 3a 4d 4f 56 20 52 30 2c |priteOp":MOV R0,|
00002a70 23 32 37 32 3a 4c 44 52 20 52 31 2c 63 73 70 61 |#272:LDR R1,cspa|
00002a80 64 64 3a 41 44 52 20 52 32 2c 73 6e 61 6d 65 3a |dd:ADR R2,sname:|
00002a90 4d 4f 56 20 52 34 2c 52 31 30 3a 4d 4f 56 20 52 |MOV R4,R10:MOV R|
00002aa0 35 2c 52 31 31 3a 41 44 44 20 52 36 2c 52 34 2c |5,R11:ADD R6,R4,|
00002ab0 23 38 34 3a 41 44 44 20 52 37 2c 52 35 2c 23 39 |#84:ADD R7,R5,#9|
00002ac0 32 3a 53 57 49 20 22 4f 53 5f 53 70 72 69 74 65 |2:SWI "OS_Sprite|
00002ad0 4f 70 22 0d 08 8e ab 4d 4f 56 20 52 30 2c 23 33 |Op"....MOV R0,#3|
00002ae0 34 3a 41 44 44 20 52 30 2c 52 30 2c 23 35 31 32 |4:ADD R0,R0,#512|
00002af0 3a 4c 44 52 20 52 31 2c 69 73 70 61 64 64 3a 4c |:LDR R1,ispadd:L|
00002b00 44 52 20 52 32 2c 73 70 72 61 64 64 3a 4d 4f 56 |DR R2,spradd:MOV|
00002b10 20 52 33 2c 52 38 3a 4d 4f 56 20 52 34 2c 52 39 | R3,R8:MOV R4,R9|
00002b20 3a 4d 4f 56 20 52 35 2c 23 38 3a 53 57 49 20 22 |:MOV R5,#8:SWI "|
00002b30 4f 53 5f 53 70 72 69 74 65 4f 70 22 3a 4d 4f 56 |OS_SpriteOp":MOV|
00002b40 20 52 30 2c 23 33 34 3a 41 44 44 20 52 30 2c 52 | R0,#34:ADD R0,R|
00002b50 30 2c 23 35 31 32 3a 4d 4f 56 20 52 33 2c 52 31 |0,#512:MOV R3,R1|
00002b60 30 3a 4d 4f 56 20 52 34 2c 52 31 31 3a 53 57 49 |0:MOV R4,R11:SWI|
00002b70 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 0d 08 | "OS_SpriteOp"..|
00002b80 98 5e 54 53 54 20 52 31 32 2c 23 38 3a 42 45 51 |.^TST R12,#8:BEQ|
00002b90 20 6e 6f 73 70 69 6e 3a 41 44 44 20 52 32 2c 52 | nospin:ADD R2,R|
00002ba0 32 2c 23 26 32 36 43 3a 4c 44 52 20 52 31 2c 73 |2,#&26C:LDR R1,s|
00002bb0 70 72 63 6d 70 3a 54 45 51 20 52 31 2c 52 32 3a |prcmp:TEQ R1,R2:|
00002bc0 4c 44 52 45 51 20 52 32 2c 73 70 72 73 74 3a 53 |LDREQ R2,sprst:S|
00002bd0 54 52 20 52 32 2c 73 70 72 61 64 64 0d 08 a2 24 |TR R2,spradd...$|
00002be0 2e 6e 6f 73 70 69 6e 20 4d 4f 56 20 52 30 2c 23 |.nospin MOV R0,#|
00002bf0 31 39 3a 53 57 49 20 22 4f 53 5f 42 79 74 65 22 |19:SWI "OS_Byte"|
00002c00 0d 08 ac c7 4d 4f 56 20 52 30 2c 23 33 34 3a 41 |....MOV R0,#34:A|
00002c10 44 44 20 52 30 2c 52 30 2c 23 35 31 32 3a 4c 44 |DD R0,R0,#512:LD|
00002c20 52 20 52 31 2c 62 73 70 61 64 64 3a 41 44 44 20 |R R1,bspadd:ADD |
00002c30 52 32 2c 52 31 2c 23 31 36 3a 4d 4f 56 20 52 33 |R2,R1,#16:MOV R3|
00002c40 2c 52 38 3a 4d 4f 56 20 52 34 2c 52 39 3a 4d 4f |,R8:MOV R4,R9:MO|
00002c50 56 20 52 35 2c 23 30 3a 53 57 49 20 22 4f 53 5f |V R5,#0:SWI "OS_|
00002c60 53 70 72 69 74 65 4f 70 22 3a 4d 4f 56 20 52 30 |SpriteOp":MOV R0|
00002c70 2c 23 33 34 3a 41 44 44 20 52 30 2c 52 30 2c 23 |,#34:ADD R0,R0,#|
00002c80 35 31 32 3a 4c 44 52 20 52 31 2c 63 73 70 61 64 |512:LDR R1,cspad|
00002c90 64 3a 41 44 44 20 52 32 2c 52 31 2c 23 31 36 3a |d:ADD R2,R1,#16:|
00002ca0 4d 4f 56 20 52 33 2c 52 31 30 3a 4d 4f 56 20 52 |MOV R3,R10:MOV R|
00002cb0 34 2c 52 31 31 3a 53 57 49 20 22 4f 53 5f 53 70 |4,R11:SWI "OS_Sp|
00002cc0 72 69 74 65 4f 70 22 0d 08 b6 db 4c 44 52 20 52 |riteOp"....LDR R|
00002cd0 31 31 2c 5b 52 31 32 5d 2c 23 34 3a 4d 4f 56 20 |11,[R12],#4:MOV |
00002ce0 52 31 30 2c 52 31 31 2c 4c 53 52 23 36 3a 4d 4f |R10,R11,LSR#6:MO|
00002cf0 56 20 52 39 2c 52 31 31 2c 4c 53 52 23 31 34 3a |V R9,R11,LSR#14:|
00002d00 4d 4f 56 20 52 38 2c 52 31 31 2c 4c 53 52 23 32 |MOV R8,R11,LSR#2|
00002d10 32 3a 80 53 20 52 38 2c 52 38 2c 23 31 30 32 30 |2:.S R8,R8,#1020|
00002d20 3a ec 51 20 50 43 2c 6c 69 6e 6b 3a 80 20 52 39 |:.Q PC,link:. R9|
00002d30 2c 52 39 2c 23 31 30 32 30 3a 80 20 52 31 31 2c |,R9,#1020:. R11,|
00002d40 52 31 31 2c 23 32 35 35 3a 4d 4f 56 20 52 31 31 |R11,#255:MOV R11|
00002d50 2c 52 31 31 2c 4c 53 4c 23 32 3a 80 53 20 52 31 |,R11,LSL#2:.S R1|
00002d60 30 2c 52 31 30 2c 23 31 30 32 30 3a 42 4e 45 20 |0,R10,#1020:BNE |
00002d70 74 68 6c 70 3a 41 44 52 20 52 30 2c 64 77 69 6e |thlp:ADR R0,dwin|
00002d80 64 3a 4d 4f 56 20 52 31 2c 23 39 3a 53 57 49 20 |d:MOV R1,#9:SWI |
00002d90 22 4f 53 5f 57 72 69 74 65 4e 22 3a 42 20 74 68 |"OS_WriteN":B th|
00002da0 6c 70 0d 08 c0 15 2e 62 73 70 61 64 64 20 45 51 |lp.....bspadd EQ|
00002db0 55 44 20 42 53 50 25 0d 08 ca 15 2e 63 73 70 61 |UD BSP%.....cspa|
00002dc0 64 64 20 45 51 55 44 20 43 53 50 25 0d 08 d4 15 |dd EQUD CSP%....|
00002dd0 2e 69 73 70 61 64 64 20 45 51 55 44 20 49 53 50 |.ispadd EQUD ISP|
00002de0 25 0d 08 de 21 2e 73 6e 61 6d 65 20 20 45 51 55 |%...!.sname EQU|
00002df0 53 20 22 73 22 3a 45 51 55 42 20 30 3a 41 4c 49 |S "s":EQUB 0:ALI|
00002e00 47 4e 0d 08 e8 1b 2e 73 70 72 73 74 20 20 45 51 |GN.....sprst EQ|
00002e10 55 44 20 49 53 50 25 2b 26 38 30 43 43 0d 08 f2 |UD ISP%+&80CC...|
00002e20 1b 2e 73 70 72 61 64 64 20 45 51 55 44 20 49 53 |..spradd EQUD IS|
00002e30 50 25 2b 26 38 30 43 43 0d 08 fc 1b 2e 73 70 72 |P%+&80CC.....spr|
00002e40 63 6d 70 20 45 51 55 44 20 49 53 50 25 2b 26 38 |cmp EQUD ISP%+&8|
00002e50 46 35 34 0d 09 06 11 5c 20 43 6f 70 79 20 73 63 |F54....\ Copy sc|
00002e60 72 65 65 6e 0d 09 10 45 2e 63 6f 70 79 20 53 54 |reen...E.copy ST|
00002e70 4d 46 44 20 28 73 70 29 21 2c 7b 52 36 2d 52 31 |MFD (sp)!,{R6-R1|
00002e80 32 2c 6c 69 6e 6b 7d 3a 4d 4f 56 20 52 30 2c 23 |2,link}:MOV R0,#|
00002e90 32 30 30 3a 4c 44 52 20 52 31 2c 66 72 6f 6d 3a |200:LDR R1,from:|
00002ea0 4c 44 52 20 52 32 2c 74 6f 0d 09 1a ce 2e 63 6c |LDR R2,to.....cl|
00002eb0 70 20 4c 44 4d 49 41 20 52 31 21 2c 7b 52 33 2d |p LDMIA R1!,{R3-|
00002ec0 52 31 32 7d 3a 53 54 4d 49 41 20 52 32 21 2c 7b |R12}:STMIA R2!,{|
00002ed0 52 33 2d 52 31 32 7d 3a 4c 44 4d 49 41 20 52 31 |R3-R12}:LDMIA R1|
00002ee0 21 2c 7b 52 33 2d 52 31 32 7d 3a 53 54 4d 49 41 |!,{R3-R12}:STMIA|
00002ef0 20 52 32 21 2c 7b 52 33 2d 52 31 32 7d 3a 4c 44 | R2!,{R3-R12}:LD|
00002f00 4d 49 41 20 52 31 21 2c 7b 52 33 2d 52 31 32 7d |MIA R1!,{R3-R12}|
00002f10 3a 53 54 4d 49 41 20 52 32 21 2c 7b 52 33 2d 52 |:STMIA R2!,{R3-R|
00002f20 31 32 7d 3a 4c 44 4d 49 41 20 52 31 21 2c 7b 52 |12}:LDMIA R1!,{R|
00002f30 33 2d 52 31 32 7d 3a 53 54 4d 49 41 20 52 32 21 |3-R12}:STMIA R2!|
00002f40 2c 7b 52 33 2d 52 31 32 7d 3a 53 55 42 53 20 52 |,{R3-R12}:SUBS R|
00002f50 30 2c 52 30 2c 23 31 3a 42 4e 45 20 63 6c 70 3a |0,R0,#1:BNE clp:|
00002f60 4c 44 4d 46 44 20 28 73 70 29 21 2c 7b 52 36 2d |LDMFD (sp)!,{R6-|
00002f70 52 31 32 2c 50 43 7d 0d 09 24 05 5c 0d 09 2e 11 |R12,PC}..$.\....|
00002f80 2e 66 72 6f 6d 20 45 51 55 44 20 53 25 0d 09 38 |.from EQUD S%..8|
00002f90 0f 2e 74 6f 20 45 51 55 44 20 54 25 0d 09 42 31 |..to EQUD T%..B1|
00002fa0 2e 64 77 69 6e 64 20 45 51 55 42 20 32 34 3a 45 |.dwind EQUB 24:E|
00002fb0 51 55 44 20 30 3a 45 51 55 57 20 36 30 38 3a 45 |QUD 0:EQUW 608:E|
00002fc0 51 55 57 20 37 39 39 3a 41 4c 49 47 4e 0d 09 4c |QUW 799:ALIGN..L|
00002fd0 0a 2e 64 6d 74 61 62 0d 09 56 05 5d 0d 09 60 8b |..dmtab..V.]..`.|
00002fe0 4e 25 3d 33 3a 58 31 3d 32 33 33 3a 59 31 3d 39 |N%=3:X1=233:Y1=9|
00002ff0 30 3a 58 32 3d 32 33 33 3a 59 32 3d 39 30 3a 59 |0:X2=233:Y2=90:Y|
00003000 49 25 3d 30 3a e3 58 25 3d 31 b8 33 35 3a 3f 50 |I%=0:.X%=1.35:?P|
00003010 25 3d 59 32 3a 50 25 3f 31 3d 58 32 3a 50 25 3f |%=Y2:P%?1=X2:P%?|
00003020 32 3d 59 31 3a 50 25 3f 33 3d 58 31 3a 50 25 2b |2=Y1:P%?3=X1:P%+|
00003030 3d 34 3a 58 31 2d 3d 32 3a 58 32 2d 3d 31 3a 59 |=4:X1-=2:X2-=1:Y|
00003040 31 2b 3d 59 49 25 3a 59 32 2b 3d 59 49 25 3a 4e |1+=YI%:Y2+=YI%:N|
00003050 25 2b 3d 31 3a e7 20 4e 25 3d 38 20 59 49 25 2d |%+=1:. N%=8 YI%-|
00003060 3d 31 3a 4e 25 3d 30 0d 09 6a 9f ed 3a 21 50 25 |=1:N%=0..j..:!P%|
00003070 3d 26 46 46 46 46 30 30 46 46 3a 50 25 2b 3d 34 |=&FFFF00FF:P%+=4|
00003080 3a 58 31 3d 31 35 33 3a 59 31 3d 31 37 30 3a 58 |:X1=153:Y1=170:X|
00003090 32 3d 31 36 33 3a 59 32 3d 31 37 30 3a 59 49 25 |2=163:Y2=170:YI%|
000030a0 3d 2d 32 3a e3 58 25 3d 31 b8 32 36 3a 3f 50 25 |=-2:.X%=1.26:?P%|
000030b0 3d 59 32 3a 50 25 3f 31 3d 58 32 3a 50 25 3f 32 |=Y2:P%?1=X2:P%?2|
000030c0 3d 59 31 3a 50 25 3f 33 3d 58 31 3a 50 25 2b 3d |=Y1:P%?3=X1:P%+=|
000030d0 34 3a 58 31 2d 3d 33 3a 58 32 2d 3d 32 3a 59 31 |4:X1-=3:X2-=2:Y1|
000030e0 2b 3d 59 49 25 3a 59 32 2b 3d 59 49 25 3a 4e 25 |+=YI%:Y2+=YI%:N%|
000030f0 2b 3d 31 3a e7 20 4e 25 3d 38 20 59 49 25 2d 3d |+=1:. N%=8 YI%-=|
00003100 31 3a 4e 25 3d 30 0d 09 74 67 ed 3a 58 49 31 3d |1:N%=0..tg.:XI1=|
00003110 2d 34 3a 59 49 31 3d 2e 31 3a 59 49 32 3d 2d 2e |-4:YI1=.1:YI2=-.|
00003120 36 3a e3 58 25 3d 31 b8 33 30 3a 3f 50 25 3d 59 |6:.X%=1.30:?P%=Y|
00003130 32 3a 50 25 3f 31 3d 58 32 3a 50 25 3f 32 3d 59 |2:P%?1=X2:P%?2=Y|
00003140 31 3a 50 25 3f 33 3d 58 31 3a 50 25 2b 3d 34 3a |1:P%?3=X1:P%+=4:|
00003150 58 31 2b 3d 58 49 31 3a 59 31 2b 3d 59 49 31 3a |X1+=XI1:Y1+=YI1:|
00003160 58 32 2d 3d 32 3a 59 32 2b 3d 59 49 32 0d 09 7e |X2-=2:Y2+=YI2..~|
00003170 1a e7 20 58 31 3c 31 33 20 59 49 31 3d 31 2e 38 |.. X1<13 YI1=1.8|
00003180 3a 58 49 31 2b 3d 31 0d 09 88 13 e7 20 59 32 3c |:XI1+=1..... Y2<|
00003190 36 30 20 59 49 32 2b 3d 2e 31 0d 09 92 05 ed 0d |60 YI2+=.1......|
000031a0 09 9c 0f 21 50 25 3d 30 3a 50 25 2b 3d 34 0d 09 |...!P%=0:P%+=4..|
000031b0 a6 38 e7 20 50 25 3e 28 63 6f 64 65 25 2b 73 70 |.8. P%>(code%+sp|
000031c0 61 63 65 25 29 20 eb 20 31 35 3a f1 22 4e 6f 74 |ace%) . 15:."Not|
000031d0 20 65 6e 6f 75 67 68 20 63 6f 64 65 20 73 70 61 | enough code spa|
000031e0 63 65 2e 22 3a e0 0d 09 b0 05 ed 0d 09 ba 05 e1 |ce.":...........|
000031f0 0d 09 c4 05 3a 0d 09 ce 12 dd 20 f2 65 72 72 6f |....:..... .erro|
00003200 72 3a ee 20 85 20 87 0d 09 d8 12 eb 20 31 35 3a |r:. . ...... 15:|
00003210 87 3a d6 93 2b 26 32 31 34 0d 09 e2 0a 2a 46 58 |.:..+&214....*FX|
00003220 20 32 30 0d 09 ec 51 e7 20 9f 3d 31 37 20 f1 22 | 20...Q. .=17 ."|
00003230 47 6f 6f 64 62 79 65 2e 22 20 8b 20 f1 22 49 72 |Goodbye." . ."Ir|
00003240 6f 6e 20 4c 6f 72 64 20 68 61 73 20 73 74 6f 70 |on Lord has stop|
00003250 70 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 61 |ped because of a|
00003260 20 66 61 74 61 6c 20 65 72 72 6f 72 20 3a 2d 22 | fatal error :-"|
00003270 27 27 f6 24 0d 09 f6 05 e1 0d ff |''.$.......|
0000327b 
.