/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / bbc / !BBC / Compiler

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 40 00 9f e5 40 10 9f e5 | 40 20 9f e5 04 30 11 e4 |@...@...|@ ...0..|
|00000010| 04 30 02 e4 04 00 50 e2 | fb ff ff 1a 00 00 8f e2 |.0....P.|........|
|00000020| 05 00 00 ef 42 41 53 49 | 43 20 2d 71 75 69 74 20 |....BASI|C -quit |
|00000030| 40 30 30 30 30 39 30 30 | 30 2c 30 30 30 31 30 37 |@0000900|0,000107|
|00000040| 42 43 0d 00 00 00 00 00 | c0 77 00 00 10 f8 00 00 |BC......|.w......|
|00000050| bc 07 01 00 0d 00 0a 09 | f4 20 42 42 43 0d 00 14 |........|. BBC...|
|00000060| 1e f4 20 54 68 65 20 42 | 61 73 69 63 20 42 41 53 |.. The B|asic BAS|
|00000070| 49 43 20 43 6f 6d 70 69 | 6c 65 72 0d 00 1e 16 f4 |IC Compi|ler.....|
|00000080| 20 a9 20 53 6f 66 74 53 | 74 75 66 66 20 31 39 39 | . SoftS|tuff 199|
|00000090| 34 0d 00 28 05 3a 0d 00 | 32 09 f2 69 6e 69 74 0d |4..(.:..|2..init.|
|000000a0| 00 3c 05 3a 0d 00 46 0e | c8 95 20 ac 20 71 75 69 |.<.:..F.|.. . qui|
|000000b0| 74 25 0d 00 50 09 f2 70 | 6f 6c 6c 0d 00 5a 05 ce |t%..P..p|oll..Z..|
|000000c0| 0d 00 64 17 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |..d... "|Wimp_Clo|
|000000d0| 73 65 44 6f 77 6e 22 0d | 00 6e 05 e0 0d 00 78 05 |seDown".|.n....x.|
|000000e0| 3a 0d 00 82 0b dd 20 f2 | 69 6e 69 74 0d 00 8c 10 |:..... .|init....|
|000000f0| 6d 75 6c 74 69 74 61 73 | 6b 25 3d b9 0d 00 96 10 |multitas|k%=.....|
|00000100| 63 6f 6d 70 69 6c 69 6e | 67 25 3d a3 0d 00 a0 10 |compilin|g%=.....|
|00000110| de 20 73 74 75 66 66 25 | 20 31 35 35 0d 00 aa 16 |. stuff%| 155....|
|00000120| 73 61 76 65 6e 61 6d 65 | 24 3d 22 4f 62 6a 65 63 |savename|$="Objec|
|00000130| 74 22 0d 00 b4 14 63 68 | 6b 66 6f 72 6e 6f 6e 69 |t"....ch|kfornoni|
|00000140| 6e 74 73 25 3d a3 0d 00 | be 11 6e 73 3d 31 30 30 |nts%=...|..ns=100|
|00000150| 3a 6e 6c 3d 31 30 30 0d | 00 c8 10 63 68 6b 66 6f |:nl=100.|...chkfo|
|00000160| 72 65 73 63 25 3d 30 0d | 00 d2 0d f2 74 6f 6b 65 |resc%=0.|....toke|
|00000170| 6e 61 73 73 0d 00 dc 13 | de 20 70 72 6f 67 72 61 |nass....|. progra|
|00000180| 6d 20 31 30 30 30 30 0d | 00 e6 3b de 20 63 6f 6e |m 10000.|..;. con|
|00000190| 73 74 73 25 28 36 34 29 | 2c 63 6f 6e 73 74 73 74 |sts%(64)|,constst|
|000001a0| 72 69 6e 67 24 28 36 34 | 29 2c 61 72 72 61 79 65 |ring$(64|),arraye|
|000001b0| 6e 74 72 69 65 73 25 28 | 36 34 29 2c 4d 50 25 28 |ntries%(|64),MP%(|
|000001c0| 38 29 0d 00 f0 1c de 20 | 73 74 24 28 6e 73 29 2c |8)..... |st$(ns),|
|000001d0| 73 61 28 6e 73 29 2c 73 | 74 70 28 6e 73 29 0d 00 |sa(ns),s|tp(ns)..|
|000001e0| fa 17 de 20 6c 69 6e 6f | 28 6e 6c 29 2c 6c 69 6e |... lino|(nl),lin|
|000001f0| 61 28 6e 6c 29 0d 01 04 | 1b 53 24 3d c4 34 30 2c |a(nl)...|.S$=.40,|
|00000200| 22 20 22 29 3a 53 24 3d | 22 22 3a 4e 4c 25 3d 30 |" "):S$=|"":NL%=0|
|00000210| 0d 01 0e 10 f4 20 73 74 | 72 75 63 74 75 72 65 73 |..... st|ructures|
|00000220| 0d 01 18 24 66 6f 72 3d | 26 45 33 3a 74 6f 3d 26 |...$for=|&E3:to=&|
|00000230| 42 38 3a 73 74 65 70 3d | 26 38 38 3a 6e 65 78 74 |B8:step=|&88:next|
|00000240| 3d 26 45 44 0d 01 22 2b | 72 65 70 3d 26 46 35 3a |=&ED.."+|rep=&F5:|
|00000250| 75 6e 74 3d 26 46 44 3a | 77 68 69 6c 65 3d 32 35 |unt=&FD:|while=25|
|00000260| 36 2b 31 34 39 3a 65 6e | 64 77 68 3d 32 30 36 0d |6+149:en|dwh=206.|
|00000270| 01 2c 1c 69 66 3d 26 45 | 37 3a 74 68 65 6e 3d 26 |.,.if=&E|7:then=&|
|00000280| 38 43 3a 65 6c 73 65 3d | 26 38 42 0d 01 36 20 70 |8C:else=|&8B..6 p|
|00000290| 72 6f 63 3d 26 46 32 3a | 64 65 66 3d 26 44 44 3a |roc=&F2:|def=&DD:|
|000002a0| 65 6e 64 70 72 6f 63 3d | 26 45 31 0d 01 40 21 67 |endproc=|&E1..@!g|
|000002b0| 6f 74 6f 3d 26 45 35 3a | 67 6f 73 75 62 3d 26 45 |oto=&E5:|gosub=&E|
|000002c0| 34 3a 72 65 74 75 72 6e | 3d 26 46 38 0d 01 4a 0b |4:return|=&F8..J.|
|000002d0| 65 6e 64 3d 26 45 30 0d | 01 54 15 72 65 6d 3d 32 |end=&E0.|.T.rem=2|
|000002e0| 34 34 3a 65 72 72 6f 72 | 3d 31 33 33 0d 01 5e 16 |44:error|=133..^.|
|000002f0| f4 20 69 6e 70 75 74 20 | 2d 20 6b 65 79 62 6f 61 |. input |- keyboa|
|00000300| 72 64 0d 01 68 2a 69 6e | 6b 65 79 3d 26 41 36 3a |rd..h*in|key=&A6:|
|00000310| 67 65 74 3d 31 36 35 3a | 69 6e 70 75 74 3d 32 33 |get=165:|input=23|
|00000320| 32 3a 67 65 74 73 74 72 | 3d 31 39 30 0d 01 72 1f |2:getstr|=190..r.|
|00000330| f4 20 6f 75 74 70 75 74 | 20 2d 20 67 72 61 70 68 |. output| - graph|
|00000340| 69 63 73 20 26 20 73 6f | 75 6e 64 0d 01 7c 1e 70 |ics & so|und..|.p|
|00000350| 72 69 6e 74 3d 26 46 31 | 3a 76 64 75 3d 26 45 46 |rint=&F1|:vdu=&EF|
|00000360| 3a 73 70 63 62 3d 31 33 | 37 0d 01 86 1c 6d 6f 64 |:spcb=13|7....mod|
|00000370| 65 3d 32 33 35 3a 63 6c | 73 3d 26 44 42 3a 63 6c |e=235:cl|s=&DB:cl|
|00000380| 67 3d 32 31 38 0d 01 90 | 1e 6d 6f 76 65 3d 26 45 |g=218...|.move=&E|
|00000390| 43 3a 64 72 61 77 3d 26 | 44 46 3a 70 6c 6f 74 3d |C:draw=&|DF:plot=|
|000003a0| 32 34 30 0d 01 9a 41 63 | 69 72 63 6c 65 3d 32 35 |240...Ac|ircle=25|
|000003b0| 36 2b 31 34 33 3a 72 65 | 63 74 61 6e 67 6c 65 3d |6+143:re|ctangle=|
|000003c0| 32 35 36 2b 31 34 37 3a | 65 6c 6c 69 70 73 65 3d |256+147:|ellipse=|
|000003d0| 32 35 36 2b 31 35 37 3a | 66 69 6c 6c 3d 32 35 36 |256+157:|fill=256|
|000003e0| 2b 31 34 34 0d 01 a4 24 | 63 6f 6c 6f 75 72 3d 32 |+144...$|colour=2|
|000003f0| 35 31 3a 67 63 6f 6c 3d | 32 33 30 3a 74 69 6e 74 |51:gcol=|230:tint|
|00000400| 3d 32 35 36 2b 31 35 36 | 0d 01 ae 1f 6f 6e 3d 32 |=256+156|....on=2|
|00000410| 33 38 3a 6f 66 66 3d 31 | 33 35 3a 77 61 69 74 3d |38:off=1|35:wait=|
|00000420| 32 35 36 2b 31 35 30 0d | 01 b8 1c 6f 72 69 67 69 |256+150.|...origi|
|00000430| 6e 3d 32 35 36 2b 31 34 | 35 3a 70 6f 69 6e 74 3d |n=256+14|5:point=|
|00000440| 31 37 36 0d 01 c2 1c 73 | 6f 75 6e 64 3d 26 44 34 |176....s|ound=&D4|
|00000450| 3a 76 6f 69 63 65 73 3d | 32 35 36 2b 31 36 30 0d |:voices=|256+160.|
|00000460| 01 cc 11 6d 6f 75 73 65 | 3d 32 35 36 2b 31 35 31 |...mouse|=256+151|
|00000470| 0d 01 d6 27 f4 20 76 61 | 72 69 61 62 6c 65 73 20 |...'. va|riables |
|00000480| 61 6e 64 20 6e 75 6d 65 | 72 69 63 61 6c 20 66 75 |and nume|rical fu|
|00000490| 6e 63 74 69 6f 6e 73 0d | 01 e0 13 64 69 76 3d 31 |nctions.|...div=1|
|000004a0| 32 39 3a 6d 6f 64 3d 31 | 33 31 0d 01 ea 18 64 69 |29:mod=1|31....di|
|000004b0| 6d 3d 32 32 32 3a 73 77 | 61 70 3d 32 35 36 2b 31 |m=222:sw|ap=256+1|
|000004c0| 34 38 0d 01 f4 21 74 69 | 6d 65 72 69 3d 26 39 31 |48...!ti|meri=&91|
|000004d0| 3a 74 69 6d 65 6c 65 3d | 26 44 31 3a 72 6e 64 3d |:timele=|&D1:rnd=|
|000004e0| 26 42 33 0d 01 fe 2a 61 | 62 73 3d 31 34 38 3a 73 |&B3...*a|bs=148:s|
|000004f0| 69 6e 3d 26 42 35 3a 63 | 6f 73 3d 26 39 42 3a 73 |in=&B5:c|os=&9B:s|
|00000500| 71 72 3d 26 42 36 3a 70 | 69 3d 26 41 46 0d 02 08 |qr=&B6:p|i=&AF...|
|00000510| 22 6e 6f 74 3d 31 37 32 | 3a 61 6e 64 3d 31 32 38 |"not=172|:and=128|
|00000520| 3a 6f 72 3d 31 33 32 3a | 65 6f 72 3d 31 33 30 0d |:or=132:|eor=130.|
|00000530| 02 12 22 63 61 6c 6c 3d | 26 44 36 3a 73 79 73 3d |.."call=|&D6:sys=|
|00000540| 32 35 36 2b 31 35 33 3a | 6d 61 6c 6c 6f 63 3d 31 |256+153:|malloc=1|
|00000550| 32 0d 02 1c 15 f4 20 73 | 74 72 69 6e 67 20 68 61 |2..... s|tring ha|
|00000560| 6e 64 6c 69 6e 67 0d 02 | 26 40 6c 65 66 74 73 74 |ndling..|&@leftst|
|00000570| 72 3d 31 39 32 3a 6d 69 | 64 73 74 72 3d 31 39 33 |r=192:mi|dstr=193|
|00000580| 3a 72 69 67 68 74 73 74 | 72 3d 31 39 34 3a 73 74 |:rightst|r=194:st|
|00000590| 72 73 74 72 3d 31 39 35 | 3a 73 74 72 69 6e 67 73 |rstr=195|:strings|
|000005a0| 74 72 3d 31 39 36 0d 02 | 30 0d 6f 73 63 6c 69 3d |tr=196..|0.oscli=|
|000005b0| 32 35 35 0d 02 3a 0d f4 | 20 73 79 6d 62 6f 6c 73 |255..:..| symbols|
|000005c0| 0d 02 44 18 65 71 3d 26 | 33 44 3a 67 74 3d 26 33 |..D.eq=&|3D:gt=&3|
|000005d0| 45 3a 6c 74 3d 26 33 43 | 0d 02 4e 1f 6c 62 3d 26 |E:lt=&3C|..N.lb=&|
|000005e0| 32 38 3a 72 62 3d 26 32 | 39 3a 74 72 3d 26 42 39 |28:rb=&2|9:tr=&B9|
|000005f0| 3a 66 6c 3d 26 41 33 0d | 02 58 20 70 6c 75 73 3d |:fl=&A3.|.X plus=|
|00000600| 26 32 42 3a 6d 69 6e 75 | 73 3d 26 32 44 3a 73 6c |&2B:minu|s=&2D:sl|
|00000610| 61 73 68 3d 26 32 46 0d | 02 62 20 74 69 6d 65 73 |ash=&2F.|.b times|
|00000620| 3d 26 32 41 3a 73 71 75 | 6f 74 65 3d 26 32 37 3a |=&2A:squ|ote=&27:|
|00000630| 74 61 62 3d 26 38 41 0d | 02 6c 21 64 71 75 6f 74 |tab=&8A.|.l!dquot|
|00000640| 65 3d 26 32 32 3a 63 6f | 6d 6d 61 3d 26 32 43 3a |e=&22:co|mma=&2C:|
|00000650| 73 63 6f 6c 3d 26 33 42 | 0d 02 76 22 63 6f 6c 3d |scol=&3B|..v"col=|
|00000660| 26 33 41 3a 73 70 63 3d | 33 32 3a 65 6f 6c 6e 3d |&3A:spc=|32:eoln=|
|00000670| 26 44 3a 65 6f 70 3d 26 | 46 41 0d 02 80 20 67 65 |&D:eop=&|FA... ge|
|00000680| 71 3d 31 3a 6c 65 71 3d | 32 3a 6e 65 71 3d 33 3a |q=1:leq=|2:neq=3:|
|00000690| 69 64 3d 34 3a 6c 62 6c | 3d 35 0d 02 8a 1a 63 6f |id=4:lbl|=5....co|
|000006a0| 6e 73 74 3d 36 3a 73 74 | 72 69 6e 67 3d 37 3a 73 |nst=6:st|ring=7:s|
|000006b0| 69 64 3d 38 0d 02 94 1e | 70 6c 75 73 65 71 3d 39 |id=8....|pluseq=9|
|000006c0| 3a 6d 69 6e 75 73 65 71 | 3d 31 30 3a 61 69 64 3d |:minuseq|=10:aid=|
|000006d0| 31 31 0d 02 9e 0c 6c 69 | 6e 6f 3d 26 38 44 0d 02 |11....li|no=&8D..|
|000006e0| a8 23 53 4e 25 3d 30 3a | 6a 6d 3d 30 3a 4e 43 25 |.#SN%=0:|jm=0:NC%|
|000006f0| 3d 35 3a 4e 43 53 54 25 | 3d 30 3a 4e 41 45 25 3d |=5:NCST%|=0:NAE%=|
|00000700| 30 0d 02 b2 21 58 31 25 | 3d 30 3a 58 32 25 3d 30 |0...!X1%|=0:X2%=0|
|00000710| 3a 59 31 25 3d 30 3a 59 | 32 25 3d 30 3a 57 25 3d |:Y1%=0:Y|2%=0:W%=|
|00000720| 5a 25 0d 02 bc 1e 42 43 | 25 3d 30 3a 76 6d 65 6d |Z%....BC|%=0:vmem|
|00000730| 3d 30 3a 73 6d 65 6d 3d | 30 3a 61 6d 65 6d 3d 30 |=0:smem=|0:amem=0|
|00000740| 0d 02 c6 04 0d 02 d0 10 | 66 69 6c 65 6e 61 6d 65 |........|filename|
|00000750| 24 3d 22 22 0d 02 da 1b | de 20 62 6c 6f 63 6b 25 |$=""....|. block%|
|00000760| 20 26 32 36 37 2c 69 6d | 65 6e 75 25 20 39 39 0d | &267,im|enu% 99.|
|00000770| 02 e4 3b de 20 63 6f 6d | 70 69 6c 65 72 69 6e 64 |..;. com|pilerind|
|00000780| 25 20 26 43 32 2c 6e 61 | 6d 65 25 20 31 31 2c 69 |% &C2,na|me% 11,i|
|00000790| 6e 66 6f 69 6e 64 25 20 | 26 32 39 2c 20 73 61 76 |nfoind% |&29, sav|
|000007a0| 65 69 6e 64 25 20 26 31 | 32 46 0d 02 ee 36 71 75 |eind% &1|2F...6qu|
|000007b0| 69 74 25 3d a3 3a 61 70 | 70 24 3d 22 54 68 65 20 |it%=.:ap|p$="The |
|000007c0| 42 61 73 69 63 20 42 41 | 53 49 43 20 43 6f 6d 70 |Basic BA|SIC Comp|
|000007d0| 69 6c 65 72 22 3a 69 63 | 6f 6e 73 65 6c 25 3d 30 |iler":ic|onsel%=0|
|000007e0| 0d 02 f8 2b c8 99 20 22 | 57 69 6d 70 5f 49 6e 69 |...+.. "|Wimp_Ini|
|000007f0| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 26 34 42 |tialise"|,200,&4B|
|00000800| 35 33 34 31 35 34 2c 61 | 70 70 24 0d 03 02 21 ee |534154,a|pp$...!.|
|00000810| 20 85 20 f2 65 72 72 6f | 72 28 f6 24 2b 22 20 61 | . .erro|r(.$+" a|
|00000820| 74 20 6c 69 6e 65 20 22 | 2b c3 9e 29 0d 03 0c 20 |t line "|+..)... |
|00000830| 66 69 6c 65 25 3d 8e 22 | 3c 42 42 43 6d 70 24 44 |file%=."|<BBCmp$D|
|00000840| 69 72 3e 2e 53 70 72 69 | 74 65 73 22 0d 03 16 1b |ir>.Spri|tes"....|
|00000850| 73 69 7a 65 25 3d a2 23 | 66 69 6c 65 25 2b 34 3a |size%=.#|file%+4:|
|00000860| d9 23 66 69 6c 65 25 0d | 03 20 13 de 20 73 70 61 |.#file%.|. .. spa|
|00000870| 72 65 61 25 20 73 69 7a | 65 25 0d 03 2a 1f 21 73 |rea% siz|e%..*.!s|
|00000880| 70 61 72 65 61 25 3d 73 | 69 7a 65 25 3a 73 70 61 |parea%=s|ize%:spa|
|00000890| 72 65 61 25 21 38 3d 31 | 36 0d 03 34 36 c8 99 22 |rea%!8=1|6..46.."|
|000008a0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 30 |OS_Sprit|eOp",&10|
|000008b0| 41 2c 73 70 61 72 65 61 | 25 2c 22 3c 42 42 43 6d |A,sparea|%,"<BBCm|
|000008c0| 70 24 44 69 72 3e 2e 53 | 70 72 69 74 65 73 22 0d |p$Dir>.S|prites".|
|000008d0| 03 3e 33 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.>3.. "W|imp_Open|
|000008e0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 3c 42 42 43 |Template|",,"<BBC|
|000008f0| 6d 70 24 44 69 72 3e 2e | 54 65 6d 70 6c 61 74 65 |mp$Dir>.|Template|
|00000900| 73 22 0d 03 48 11 24 6e | 61 6d 65 25 3d 22 69 6e |s"..H.$n|ame%="in|
|00000910| 66 6f 22 0d 03 52 43 c8 | 99 20 22 57 69 6d 70 5f |fo"..RC.|. "Wimp_|
|00000920| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 62 |LoadTemp|late",,b|
|00000930| 6c 6f 63 6b 25 2c 69 6e | 66 6f 69 6e 64 25 2c 69 |lock%,in|foind%,i|
|00000940| 6e 66 6f 69 6e 64 25 2b | 26 32 39 2c 2d 31 2c 6e |nfoind%+|&29,-1,n|
|00000950| 61 6d 65 25 2c 30 0d 03 | 5c 15 62 6c 6f 63 6b 25 |ame%,0..|\.block%|
|00000960| 21 36 34 3d 73 70 61 72 | 65 61 25 0d 03 66 2a c8 |!64=spar|ea%..f*.|
|00000970| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000980| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |ndow",,b|lock% . |
|00000990| 69 6e 66 6f 25 0d 03 70 | 11 21 62 6c 6f 63 6b 25 |info%..p|.!block%|
|000009a0| 3d 69 6e 66 6f 25 0d 03 | 7a 1b c8 99 20 22 57 69 |=info%..|z... "Wi|
|000009b0| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|000009c0| 22 0d 03 84 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |"...$.. |"Wimp_Ge|
|000009d0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|000009e0| 6c 6f 63 6b 25 0d 03 8e | 20 c8 99 20 22 57 69 6d |lock%...| .. "Wim|
|000009f0| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00000a00| 6c 6f 63 6b 25 0d 03 98 | 19 6f 70 65 6e 65 64 25 |lock%...|.opened%|
|00000a10| 3d b9 3a 6f 70 65 6e 74 | 69 6d 65 25 3d 91 0d 03 |=.:opent|ime%=...|
|00000a20| a2 33 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 54 |.3.. "Wi|mp_OpenT|
|00000a30| 65 6d 70 6c 61 74 65 22 | 2c 2c 22 3c 42 42 43 6d |emplate"|,,"<BBCm|
|00000a40| 70 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |p$Dir>.T|emplates|
|00000a50| 22 0d 03 ac 15 24 6e 61 | 6d 65 25 3d 22 43 6f 6d |"....$na|me%="Com|
|00000a60| 70 69 6c 65 72 22 0d 03 | b6 4b c8 99 20 22 57 69 |piler"..|.K.. "Wi|
|00000a70| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|00000a80| 2c 2c 62 6c 6f 63 6b 25 | 2c 63 6f 6d 70 69 6c 65 |,,block%|,compile|
|00000a90| 72 69 6e 64 25 2c 63 6f | 6d 70 69 6c 65 72 69 6e |rind%,co|mpilerin|
|00000aa0| 64 25 2b 26 43 32 2c 2d | 31 2c 6e 61 6d 65 25 2c |d%+&C2,-|1,name%,|
|00000ab0| 30 0d 03 c0 15 62 6c 6f | 63 6b 25 21 36 34 3d 73 |0....blo|ck%!64=s|
|00000ac0| 70 61 72 65 61 25 0d 03 | ca 31 c8 99 20 22 57 69 |parea%..|.1.. "Wi|
|00000ad0| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000ae0| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 63 6f 6d 70 69 |,,block%| . compi|
|00000af0| 6c 65 72 77 69 6e 25 0d | 03 d4 11 24 6e 61 6d 65 |lerwin%.|...$name|
|00000b00| 25 3d 22 73 61 76 65 22 | 0d 03 de 44 c8 99 20 22 |%="save"|...D.. "|
|00000b10| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000b20| 65 22 2c 2c 62 6c 6f 63 | 6b 25 2c 73 61 76 65 69 |e",,bloc|k%,savei|
|00000b30| 6e 64 25 2c 73 61 76 65 | 69 6e 64 25 2b 26 31 32 |nd%,save|ind%+&12|
|00000b40| 46 2c 2d 31 2c 6e 61 6d | 65 25 2c 30 0d 03 e8 15 |F,-1,nam|e%,0....|
|00000b50| 62 6c 6f 63 6b 25 21 36 | 34 3d 73 70 61 72 65 61 |block%!6|4=sparea|
|00000b60| 25 0d 03 f2 2d c8 99 20 | 22 57 69 6d 70 5f 43 72 |%...-.. |"Wimp_Cr|
|00000b70| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|00000b80| 63 6b 25 20 b8 20 73 61 | 76 65 77 69 6e 25 0d 03 |ck% . sa|vewin%..|
|00000b90| fc 1b c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.... "Wi|mp_Close|
|00000ba0| 54 65 6d 70 6c 61 74 65 | 22 0d 04 06 2c 24 6e 61 |Template|"...,$na|
|00000bb0| 6d 65 25 3d 22 42 42 43 | 22 3a de 20 76 61 6c 69 |me%="BBC|":. vali|
|00000bc0| 64 25 20 31 32 3a 24 76 | 61 6c 69 64 25 3d 22 73 |d% 12:$v|alid%="s|
|00000bd0| 21 42 42 43 22 0d 04 10 | 1e f2 73 68 61 64 65 69 |!BBC"...|..shadei|
|00000be0| 63 6f 6e 28 63 6f 6d 70 | 69 6c 65 72 77 69 6e 25 |con(comp|ilerwin%|
|00000bf0| 2c 34 29 0d 04 1a 49 42 | 61 72 5f 49 63 6f 6e 25 |,4)...IB|ar_Icon%|
|00000c00| 3d a4 63 72 65 61 74 65 | 5f 69 63 6f 6e 28 2d 31 |=.create|_icon(-1|
|00000c10| 2c 30 2c 2d 31 35 2c 31 | 33 30 2c 31 32 32 2c 26 |,0,-15,1|30,122,&|
|00000c20| 31 37 30 30 33 31 30 42 | 2c 22 22 2c 6e 61 6d 65 |1700310B|,"",name|
|00000c30| 25 2c 76 61 6c 69 64 25 | 2c 31 32 29 0d 04 24 12 |%,valid%|,12)..$.|
|00000c40| 20 24 69 6d 65 6e 75 25 | 3d 22 42 42 43 22 0d 04 | $imenu%|="BBC"..|
|00000c50| 2e 10 20 69 6d 65 6e 75 | 25 3f 31 32 3d 37 0d 04 |.. imenu|%?12=7..|
|00000c60| 38 10 20 69 6d 65 6e 75 | 25 3f 31 33 3d 32 0d 04 |8. imenu|%?13=2..|
|00000c70| 42 10 20 69 6d 65 6e 75 | 25 3f 31 34 3d 37 0d 04 |B. imenu|%?14=7..|
|00000c80| 4c 10 20 69 6d 65 6e 75 | 25 3f 31 35 3d 30 0d 04 |L. imenu|%?15=0..|
|00000c90| 56 12 20 69 6d 65 6e 75 | 25 21 31 36 3d 31 33 30 |V. imenu|%!16=130|
|00000ca0| 0d 04 60 11 20 69 6d 65 | 6e 75 25 21 32 30 3d 34 |..`. ime|nu%!20=4|
|00000cb0| 34 0d 04 6a 10 20 69 6d | 65 6e 75 25 21 32 34 3d |4..j. im|enu%!24=|
|00000cc0| 30 0d 04 74 11 20 6d 25 | 3d 69 6d 65 6e 75 25 2b |0..t. m%|=imenu%+|
|00000cd0| 32 38 0d 04 7e 0c 20 6d | 25 21 30 3d 26 30 0d 04 |28..~. m|%!0=&0..|
|00000ce0| 88 0f 20 6d 25 21 34 3d | 69 6e 66 6f 25 0d 04 92 |.. m%!4=|info%...|
|00000cf0| 1a 20 6d 25 21 38 3d 28 | 37 3c 3c 32 34 29 20 84 |. m%!8=(|7<<24) .|
|00000d00| 20 25 31 30 30 30 31 0d | 04 9c 14 20 24 28 6d 25 | %10001.|... $(m%|
|00000d10| 2b 31 32 29 3d 22 49 6e | 66 6f 22 0d 04 a6 0b 20 |+12)="In|fo".... |
|00000d20| 6d 25 2b 3d 32 34 0d 04 | b0 0d 20 6d 25 21 30 3d |m%+=24..|.. m%!0=|
|00000d30| 26 38 30 0d 04 ba 0b 20 | 6d 25 21 34 3d 30 0d 04 |&80.... |m%!4=0..|
|00000d40| c4 19 20 6d 25 21 38 3d | 28 37 3c 3c 32 34 29 84 |.. m%!8=|(7<<24).|
|00000d50| 20 25 31 30 30 30 31 0d | 04 ce 14 20 24 28 6d 25 | %10001.|... $(m%|
|00000d60| 2b 31 32 29 3d 22 51 75 | 69 74 22 0d 04 d8 05 e1 |+12)="Qu|it".....|
|00000d70| 0d 04 e2 05 3a 0d 04 ec | 0b dd 20 f2 70 6f 6c 6c |....:...|.. .poll|
|00000d80| 0d 04 f6 25 c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c |...%.. "|Wimp_Pol|
|00000d90| 6c 22 2c 30 2c 62 6c 6f | 63 6b 25 20 b8 20 72 65 |l",0,blo|ck% . re|
|00000da0| 61 73 6f 6e 25 0d 05 00 | 10 c8 8e 20 72 65 61 73 |ason%...|... reas|
|00000db0| 6f 6e 25 20 ca 0d 05 0a | 0f c9 20 30 3a f2 6e 6f |on% ....|.. 0:.no|
|00000dc0| 70 6f 6c 6c 0d 05 14 24 | c9 20 32 3a c8 99 20 22 |poll...$|. 2:.. "|
|00000dd0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00000de0| 2c 2c 62 6c 6f 63 6b 25 | 0d 05 1e 25 c9 20 33 3a |,,block%|...%. 3:|
|00000df0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|00000e00| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 05 28 |ndow",,b|lock%..(|
|00000e10| 19 c9 20 36 3a f2 63 6c | 69 63 6b 28 62 6c 6f 63 |.. 6:.cl|ick(bloc|
|00000e20| 6b 25 21 31 32 29 0d 05 | 32 12 c9 20 37 3a f2 73 |k%!12)..|2.. 7:.s|
|00000e30| 74 61 72 74 73 61 76 65 | 0d 05 3c 1c c9 20 38 3a |tartsave|..<.. 8:|
|00000e40| f2 6b 65 79 70 72 65 73 | 73 28 62 6c 6f 63 6b 25 |.keypres|s(block%|
|00000e50| 21 32 34 29 0d 05 46 13 | c9 20 39 3a f2 6d 65 6e |!24)..F.|. 9:.men|
|00000e60| 75 73 65 6c 65 63 74 0d | 05 50 26 c9 20 31 37 2c |uselect.|.P&. 17,|
|00000e70| 31 38 3a f2 6d 65 73 73 | 61 67 65 72 65 63 69 65 |18:.mess|agerecie|
|00000e80| 76 65 28 62 6c 6f 63 6b | 25 21 31 36 29 0d 05 5a |ve(block|%!16)..Z|
|00000e90| 05 cb 0d 05 64 05 e1 0d | 05 6e 05 3a 0d 05 78 19 |....d...|.n.:..x.|
|00000ea0| dd 20 f2 72 65 70 6f 72 | 74 28 65 72 72 24 2c 66 |. .repor|t(err$,f|
|00000eb0| 6c 61 67 25 29 0d 05 82 | 0e 6e 61 6d 65 24 3d 61 |lag%)...|.name$=a|
|00000ec0| 70 70 24 0d 05 8c 2e e7 | 20 66 6c 61 67 25 20 80 |pp$.....| flag% .|
|00000ed0| 20 31 36 20 8c 20 6e 61 | 6d 65 24 3d 22 4d 65 73 | 16 . na|me$="Mes|
|00000ee0| 73 61 67 65 20 66 72 6f | 6d 20 22 2b 6e 61 6d 65 |sage fro|m "+name|
|00000ef0| 24 0d 05 96 0f 21 62 6c | 6f 63 6b 25 3d 32 35 35 |$....!bl|ock%=255|
|00000f00| 0d 05 a0 17 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |....$(bl|ock%+4)=|
|00000f10| 65 72 72 24 2b bd 30 0d | 05 aa 39 c8 99 20 22 57 |err$+.0.|..9.. "W|
|00000f20| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00000f30| 2c 62 6c 6f 63 6b 25 2c | 66 6c 61 67 25 2c 6e 61 |,block%,|flag%,na|
|00000f40| 6d 65 24 20 b8 20 2c 65 | 72 72 63 6c 69 63 6b 25 |me$ . ,e|rrclick%|
|00000f50| 0d 05 b4 05 e1 0d 05 be | 05 3a 0d 05 c8 10 dd 20 |........|.:..... |
|00000f60| f2 65 72 72 6f 72 28 61 | 24 29 0d 05 d2 11 f2 72 |.error(a|$).....r|
|00000f70| 65 70 6f 72 74 28 61 24 | 2c 31 29 0d 05 dc 17 c8 |eport(a$|,1).....|
|00000f80| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|00000f90| 6e 22 0d 05 e6 0c d9 23 | 20 66 69 6c 65 25 0d 05 |n".....#| file%..|
|00000fa0| f0 05 e0 0d 05 fa 05 e1 | 0d 06 04 05 3a 0d 06 0e |........|....:...|
|00000fb0| 12 dd 20 f2 63 6c 69 63 | 6b 28 77 69 6e 25 29 0d |.. .clic|k(win%).|
|00000fc0| 06 18 0d c8 8e 20 77 69 | 6e 25 20 ca 0d 06 22 18 |..... wi|n% ...".|
|00000fd0| c9 20 2d 32 3a f2 69 62 | 61 72 28 62 6c 6f 63 6b |. -2:.ib|ar(block|
|00000fe0| 25 21 38 29 0d 06 2c 45 | c9 20 69 6e 66 6f 25 3a |%!8)..,E|. info%:|
|00000ff0| e7 20 6f 70 65 6e 65 64 | 25 3d b9 20 8c 20 21 62 |. opened|%=. . !b|
|00001000| 6c 6f 63 6b 25 3d 69 6e | 66 6f 25 3a c8 99 20 22 |lock%=in|fo%:.. "|
|00001010| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00001020| 22 2c 2c 62 6c 6f 63 6b | 25 0d 06 36 2d c9 20 63 |",,block|%..6-. c|
|00001030| 6f 6d 70 69 6c 65 72 77 | 69 6e 25 20 3a 20 f2 63 |ompilerw|in% : .c|
|00001040| 6f 6d 70 69 6c 65 63 6c | 69 63 6b 28 62 6c 6f 63 |ompilecl|ick(bloc|
|00001050| 6b 25 21 31 36 29 0d 06 | 40 1b c9 20 73 61 76 65 |k%!16)..|@.. save|
|00001060| 77 69 6e 25 20 3a 20 f2 | 73 61 76 65 63 6c 69 63 |win% : .|saveclic|
|00001070| 6b 0d 06 4a 05 cb 0d 06 | 54 05 e1 0d 06 5e 05 3a |k..J....|T....^.:|
|00001080| 0d 06 68 47 dd 20 a4 63 | 72 65 61 74 65 5f 69 63 |..hG. .c|reate_ic|
|00001090| 6f 6e 28 77 68 61 6e 25 | 2c 69 78 25 2c 69 79 25 |on(whan%|,ix%,iy%|
|000010a0| 2c 69 77 25 2c 69 68 25 | 2c 66 6c 61 67 25 2c 74 |,iw%,ih%|,flag%,t|
|000010b0| 65 78 74 24 2c 70 74 72 | 31 25 2c 70 74 72 32 25 |ext$,ptr|1%,ptr2%|
|000010c0| 2c 70 74 72 33 25 29 0d | 06 72 11 21 62 6c 6f 63 |,ptr3%).|.r.!bloc|
|000010d0| 6b 25 3d 77 68 61 6e 25 | 0d 06 7c 10 62 6c 6f 63 |k%=whan%|..|.bloc|
|000010e0| 6b 25 21 34 3d 69 78 25 | 0d 06 86 10 62 6c 6f 63 |k%!4=ix%|....bloc|
|000010f0| 6b 25 21 38 3d 69 79 25 | 0d 06 90 15 62 6c 6f 63 |k%!8=iy%|....bloc|
|00001100| 6b 25 21 31 32 3d 69 78 | 25 2b 69 77 25 0d 06 9a |k%!12=ix|%+iw%...|
|00001110| 15 62 6c 6f 63 6b 25 21 | 31 36 3d 69 79 25 2b 69 |.block%!|16=iy%+i|
|00001120| 68 25 0d 06 a4 13 62 6c | 6f 63 6b 25 21 32 30 3d |h%....bl|ock%!20=|
|00001130| 66 6c 61 67 25 0d 06 ae | 0f e7 20 70 74 72 31 25 |flag%...|.. ptr1%|
|00001140| 3d 30 20 8c 0d 06 b8 16 | 24 28 62 6c 6f 63 6b 25 |=0 .....|$(block%|
|00001150| 2b 32 34 29 3d 74 65 78 | 74 24 0d 06 c2 05 cc 0d |+24)=tex|t$......|
|00001160| 06 cc 13 62 6c 6f 63 6b | 25 21 32 34 3d 70 74 72 |...block|%!24=ptr|
|00001170| 31 25 0d 06 d6 13 62 6c | 6f 63 6b 25 21 32 38 3d |1%....bl|ock%!28=|
|00001180| 70 74 72 32 25 0d 06 e0 | 13 62 6c 6f 63 6b 25 21 |ptr2%...|.block%!|
|00001190| 33 32 3d 70 74 72 33 25 | 0d 06 ea 05 cd 0d 06 f4 |32=ptr3%|........|
|000011a0| 2b c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |+.. "Wim|p_Create|
|000011b0| 49 63 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |Icon",,b|lock% . |
|000011c0| 69 68 61 6e 64 6c 65 25 | 0d 06 fe 0d 3d 69 68 61 |ihandle%|....=iha|
|000011d0| 6e 64 6c 65 25 0d 07 08 | 05 3a 0d 07 12 14 dd 20 |ndle%...|.:..... |
|000011e0| f2 69 62 61 72 28 62 75 | 74 74 6f 6e 25 29 0d 07 |.ibar(bu|tton%)..|
|000011f0| 1c 10 c8 8e 20 62 75 74 | 74 6f 6e 25 20 ca 0d 07 |.... but|ton% ...|
|00001200| 26 1e c9 20 31 2c 34 3a | 21 62 6c 6f 63 6b 25 3d |&.. 1,4:|!block%=|
|00001210| 63 6f 6d 70 69 6c 65 72 | 77 69 6e 25 0d 07 30 24 |compiler|win%..0$|
|00001220| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00001230| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |owState"|,,block%|
|00001240| 0d 07 3a 2d 62 6c 6f 63 | 6b 25 21 32 38 3d 2d 31 |..:-bloc|k%!28=-1|
|00001250| 3a c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |:.. "Wim|p_OpenWi|
|00001260| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 07 44 |ndow",,b|lock%..D|
|00001270| 28 c9 20 32 3a f2 73 68 | 6f 77 6d 65 6e 75 28 69 |(. 2:.sh|owmenu(i|
|00001280| 6d 65 6e 75 25 2c 21 62 | 6c 6f 63 6b 25 2d 36 34 |menu%,!b|lock%-64|
|00001290| 2c 31 38 34 29 0d 07 4e | 05 cb 0d 07 58 05 e1 0d |,184)..N|....X...|
|000012a0| 07 62 05 3a 0d 07 6c 1e | dd 20 f2 73 68 6f 77 6d |.b.:..l.|. .showm|
|000012b0| 65 6e 75 28 6d 65 6e 75 | 25 2c 6d 78 25 2c 6d 79 |enu(menu|%,mx%,my|
|000012c0| 25 29 0d 07 76 27 c8 99 | 20 22 57 69 6d 70 5f 43 |%)..v'..| "Wimp_C|
|000012d0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 6d 65 6e 75 |reateMen|u",,menu|
|000012e0| 25 2c 6d 78 25 2c 6d 79 | 25 0d 07 80 05 e1 0d 07 |%,mx%,my|%.......|
|000012f0| 8a 05 3a 0d 07 94 11 dd | 20 f2 6d 65 6e 75 73 65 |..:.....| .menuse|
|00001300| 6c 65 63 74 0d 07 9e 20 | 73 65 6c 31 25 3d 21 62 |lect... |sel1%=!b|
|00001310| 6c 6f 63 6b 25 3a 73 65 | 6c 32 25 3d 62 6c 6f 63 |lock%:se|l2%=bloc|
|00001320| 6b 25 21 34 0d 07 a8 24 | c8 99 20 22 57 69 6d 70 |k%!4...$|.. "Wimp|
|00001330| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|00001340| 2c 2c 62 6c 6f 63 6b 25 | 0d 07 b2 14 62 75 74 74 |,,block%|....butt|
|00001350| 6f 6e 25 3d 62 6c 6f 63 | 6b 25 21 38 0d 07 bc 0e |on%=bloc|k%!8....|
|00001360| c8 8e 20 73 65 6c 31 25 | 20 ca 0d 07 c6 0f c9 20 |.. sel1%| ...... |
|00001370| 31 3a 71 75 69 74 25 3d | b9 0d 07 d0 05 cb 0d 07 |1:quit%=|........|
|00001380| da 25 e7 20 62 75 74 74 | 6f 6e 25 3d 31 20 f2 73 |.%. butt|on%=1 .s|
|00001390| 68 6f 77 6d 65 6e 75 28 | 69 6d 65 6e 75 25 2c 30 |howmenu(|imenu%,0|
|000013a0| 2c 30 29 0d 07 e4 05 e1 | 0d 07 ee 05 3a 0d 07 f8 |,0).....|....:...|
|000013b0| 1c dd 20 f2 6d 65 73 73 | 61 67 65 72 65 63 69 65 |.. .mess|agerecie|
|000013c0| 76 65 28 63 6f 64 65 25 | 29 0d 08 02 0e c8 8e 20 |ve(code%|)...... |
|000013d0| 63 6f 64 65 25 20 ca 0d | 08 0c 13 20 20 c9 20 30 |code% ..|...  . 0|
|000013e0| 20 3a 20 71 75 69 74 25 | 3d b9 0d 08 16 13 20 20 | : quit%|=.....  |
|000013f0| c9 20 32 20 3a 20 f2 73 | 61 76 65 69 74 0d 08 20 |. 2 : .s|aveit.. |
|00001400| 12 20 20 c9 20 33 20 3a | 20 f2 73 68 72 65 64 0d |.  . 3 :| .shred.|
|00001410| 08 2a 05 cb 0d 08 34 05 | e1 0d 08 3e 05 3a 0d 08 |.*....4.|...>.:..|
|00001420| 48 0c dd 20 f2 73 68 72 | 65 64 0d 08 52 20 66 69 |H.. .shr|ed..R fi|
|00001430| 6c 65 6e 61 6d 65 24 3d | a4 73 74 72 69 6e 67 28 |lename$=|.string(|
|00001440| 62 6c 6f 63 6b 25 2b 34 | 34 29 0d 08 5c 40 e7 20 |block%+4|4)..\@. |
|00001450| 62 6c 6f 63 6b 25 21 34 | 30 3c 3e 26 46 46 42 20 |block%!4|0<>&FFB |
|00001460| 8c 20 f2 72 65 70 6f 72 | 74 28 22 54 68 69 73 20 |. .repor|t("This |
|00001470| 69 73 6e 27 74 20 61 20 | 42 41 53 49 43 20 66 69 |isn't a |BASIC fi|
|00001480| 6c 65 21 22 2c 31 37 29 | 3a e1 0d 08 66 1e f2 73 |le!",17)|:...f..s|
|00001490| 68 61 64 65 69 63 6f 6e | 28 63 6f 6d 70 69 6c 65 |hadeicon|(compile|
|000014a0| 72 77 69 6e 25 2c 34 29 | 0d 08 70 23 f2 69 63 6f |rwin%,4)|..p#.ico|
|000014b0| 6e 70 75 74 74 65 78 74 | 28 63 6f 6d 70 69 6c 65 |nputtext|(compile|
|000014c0| 72 77 69 6e 25 2c 37 2c | 22 22 29 0d 08 7a 23 f2 |rwin%,7,|"")..z#.|
|000014d0| 69 63 6f 6e 70 75 74 74 | 65 78 74 28 63 6f 6d 70 |iconputt|ext(comp|
|000014e0| 69 6c 65 72 77 69 6e 25 | 2c 38 2c 22 22 29 0d 08 |ilerwin%|,8,"")..|
|000014f0| 84 2a f2 69 63 6f 6e 70 | 75 74 74 65 78 74 28 63 |.*.iconp|uttext(c|
|00001500| 6f 6d 70 69 6c 65 72 77 | 69 6e 25 2c 36 2c 66 69 |ompilerw|in%,6,fi|
|00001510| 6c 65 6e 61 6d 65 24 29 | 0d 08 8e 23 f2 77 69 6e |lename$)|...#.win|
|00001520| 64 6f 77 62 72 69 6e 67 | 74 6f 74 6f 70 28 63 6f |dowbring|totop(co|
|00001530| 6d 70 69 6c 65 72 77 69 | 6e 25 29 0d 08 98 05 e1 |mpilerwi|n%).....|
|00001540| 0d 08 a2 05 3a 0d 08 ac | 13 dd 20 a4 73 74 72 69 |....:...|.. .stri|
|00001550| 6e 67 28 70 74 72 25 29 | 0d 08 b6 07 ea 61 24 0d |ng(ptr%)|.....a$.|
|00001560| 08 c0 0f c8 95 20 3f 70 | 74 72 25 3c 3e 30 0d 08 |..... ?p|tr%<>0..|
|00001570| ca 18 61 24 2b 3d bd 28 | 3f 70 74 72 25 29 3a 70 |..a$+=.(|?ptr%):p|
|00001580| 74 72 25 2b 3d 31 0d 08 | d4 05 ce 0d 08 de 07 3d |tr%+=1..|.......=|
|00001590| 61 24 0d 08 e8 05 3a 0d | 08 f2 27 dd 20 f2 69 63 |a$....:.|..'. .ic|
|000015a0| 6f 6e 70 75 74 74 65 78 | 74 28 77 69 6e 64 6f 77 |onputtex|t(window|
|000015b0| 25 2c 69 63 6f 6e 25 2c | 74 65 78 74 24 29 0d 08 |%,icon%,|text$)..|
|000015c0| fc 22 21 62 6c 6f 63 6b | 25 3d 77 69 6e 64 6f 77 |."!block|%=window|
|000015d0| 25 3a 62 6c 6f 63 6b 25 | 21 34 3d 69 63 6f 6e 25 |%:block%|!4=icon%|
|000015e0| 0d 09 06 22 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...".. "|Wimp_Get|
|000015f0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00001600| 6b 25 0d 09 10 22 21 62 | 6c 6f 63 6b 25 3d 77 69 |k%..."!b|lock%=wi|
|00001610| 6e 64 6f 77 25 3a 62 6c | 6f 63 6b 25 21 34 3d 69 |ndow%:bl|ock%!4=i|
|00001620| 63 6f 6e 25 0d 09 1a 1a | 62 6c 6f 63 6b 25 21 38 |con%....|block%!8|
|00001630| 3d 30 3a 62 6c 6f 63 6b | 25 21 31 32 3d 30 0d 09 |=0:block|%!12=0..|
|00001640| 24 16 24 28 62 6c 6f 63 | 6b 25 21 32 38 29 3d 74 |$.$(bloc|k%!28)=t|
|00001650| 65 78 74 24 0d 09 2e 22 | c8 99 20 22 57 69 6d 70 |ext$..."|.. "Wimp|
|00001660| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00001670| 62 6c 6f 63 6b 25 0d 09 | 38 05 e1 0d 09 42 05 3a |block%..|8....B.:|
|00001680| 0d 09 4c 20 dd 20 f2 77 | 69 6e 64 6f 77 62 72 69 |..L . .w|indowbri|
|00001690| 6e 67 74 6f 74 6f 70 28 | 77 69 6e 64 6f 77 25 29 |ngtotop(|window%)|
|000016a0| 0d 09 56 13 21 62 6c 6f | 63 6b 25 3d 77 69 6e 64 |..V.!blo|ck%=wind|
|000016b0| 6f 77 25 0d 09 60 24 c8 | 99 20 22 57 69 6d 70 5f |ow%..`$.|. "Wimp_|
|000016c0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000016d0| 2c 62 6c 6f 63 6b 25 0d | 09 6a 10 62 6c 6f 63 6b |,block%.|.j.block|
|000016e0| 25 21 32 38 3d 2d 31 0d | 09 74 20 c8 99 20 22 57 |%!28=-1.|.t .. "W|
|000016f0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00001700| 2c 62 6c 6f 63 6b 25 0d | 09 7e 05 e1 0d 09 88 05 |,block%.|.~......|
|00001710| 3a 0d 09 92 1a dd 20 f2 | 63 6f 6d 70 69 6c 65 63 |:..... .|compilec|
|00001720| 6c 69 63 6b 28 69 63 6f | 6e 25 29 0d 09 9c 11 c8 |lick(ico|n%).....|
|00001730| 8e 20 62 6c 6f 63 6b 25 | 21 38 20 ca 0d 09 a6 31 |. block%|!8 ....1|
|00001740| 20 20 c9 20 32 20 3a 20 | f2 73 68 6f 77 6d 65 6e |  . 2 : |.showmen|
|00001750| 75 28 69 6d 65 6e 75 25 | 2c 21 62 6c 6f 63 6b 25 |u(imenu%|,!block%|
|00001760| 2d 36 34 2c 62 6c 6f 63 | 6b 25 21 34 29 0d 09 b0 |-64,bloc|k%!4)...|
|00001770| 05 cb 0d 09 ba 0e c8 8e | 20 69 63 6f 6e 25 20 ca |........| icon% .|
|00001780| 0d 09 c4 13 20 c9 20 31 | 20 3a 20 f2 63 6f 6d 70 |.... . 1| : .comp|
|00001790| 69 6c 65 0d 09 ce 26 20 | c9 20 34 20 3a 20 f2 77 |ile...& |. 4 : .w|
|000017a0| 69 6e 64 6f 77 62 72 69 | 6e 67 74 6f 74 6f 70 28 |indowbri|ngtotop(|
|000017b0| 73 61 76 65 77 69 6e 25 | 29 0d 09 d8 15 20 c9 20 |savewin%|).... . |
|000017c0| 32 20 3a 20 f2 6d 75 6c | 74 69 6c 6f 6f 70 0d 09 |2 : .mul|tiloop..|
|000017d0| e2 05 cb 0d 09 ec 05 e1 | 0d 09 f6 05 3a 0d 0a 00 |........|....:...|
|000017e0| 0e dd 20 f2 63 6f 6d 70 | 69 6c 65 0d 0a 0a 40 e7 |.. .comp|ile...@.|
|000017f0| 20 66 69 6c 65 6e 61 6d | 65 24 3d 22 22 20 8c 20 | filenam|e$="" . |
|00001800| f2 72 65 70 6f 72 74 28 | 22 54 68 65 72 65 27 73 |.report(|"There's|
|00001810| 20 6e 6f 74 68 69 6e 67 | 20 74 6f 20 63 6f 6d 70 | nothing| to comp|
|00001820| 69 6c 65 21 22 2c 31 37 | 29 3a e1 0d 0a 14 0c f2 |ile!",17|):......|
|00001830| 72 75 6e 74 69 6d 65 0d | 0a 1e 1a 66 69 6c 65 6e |runtime.|...filen|
|00001840| 61 6d 65 25 3d 8e 28 66 | 69 6c 65 6e 61 6d 65 24 |ame%=.(f|ilename$|
|00001850| 29 0d 0a 28 16 66 69 6c | 65 6c 25 3d a2 23 66 69 |)..(.fil|el%=.#fi|
|00001860| 6c 65 6e 61 6d 65 25 0d | 0a 32 15 54 25 3d a4 43 |lename%.|.2.T%=.C|
|00001870| 48 3a 41 25 3d a4 43 48 | 3a f2 4c 58 0d 0a 3c 2c |H:A%=.CH|:.LX..<,|
|00001880| f2 69 63 6f 6e 70 75 74 | 74 65 78 74 28 63 6f 6d |.iconput|text(com|
|00001890| 70 69 6c 65 72 77 69 6e | 25 2c 37 2c 22 43 6f 6d |pilerwin|%,7,"Com|
|000018a0| 70 69 6c 69 6e 67 22 29 | 0d 0a 46 10 63 6f 6d 70 |piling")|..F.comp|
|000018b0| 69 6c 69 6e 67 25 3d b9 | 0d 0a 50 05 e1 0d 0a 5a |iling%=.|..P....Z|
|000018c0| 05 3a 0d 0a 64 11 dd 20 | f2 65 6e 64 63 6f 6d 70 |.:..d.. |.endcomp|
|000018d0| 69 6c 65 0d 0a 6e 2a f2 | 63 6f 6e 73 74 61 6e 74 |ile..n*.|constant|
|000018e0| 73 3a f2 77 69 6e 64 6f | 77 62 72 69 6e 67 74 6f |s:.windo|wbringto|
|000018f0| 74 6f 70 28 73 61 76 65 | 77 69 6e 25 29 0d 0a 78 |top(save|win%)..x|
|00001900| 36 f2 69 63 6f 6e 70 75 | 74 74 65 78 74 28 73 61 |6.iconpu|ttext(sa|
|00001910| 76 65 77 69 6e 25 2c 36 | 2c c3 28 a8 28 4d 43 4c |vewin%,6|,.(.(MCL|
|00001920| 25 2f 31 30 2e 32 34 29 | 2f 31 30 30 29 2b 22 20 |%/10.24)|/100)+" |
|00001930| 6b 22 29 0d 0a 82 26 f2 | 69 63 6f 6e 70 75 74 74 |k")...&.|iconputt|
|00001940| 65 78 74 28 73 61 76 65 | 77 69 6e 25 2c 32 2c 73 |ext(save|win%,2,s|
|00001950| 61 76 65 6e 61 6d 65 24 | 29 0d 0a 8c 24 f2 70 75 |avename$|)...$.pu|
|00001960| 74 63 61 72 65 74 28 73 | 61 76 65 77 69 6e 25 2c |tcaret(s|avewin%,|
|00001970| 32 2c a9 73 61 76 65 6e | 61 6d 65 24 29 0d 0a 96 |2,.saven|ame$)...|
|00001980| 08 f2 46 49 58 0d 0a a0 | 10 63 6f 6d 70 69 6c 69 |..FIX...|.compili|
|00001990| 6e 67 25 3d a3 0d 0a aa | 2b f2 69 63 6f 6e 70 75 |ng%=....|+.iconpu|
|000019a0| 74 74 65 78 74 28 63 6f | 6d 70 69 6c 65 72 77 69 |ttext(co|mpilerwi|
|000019b0| 6e 25 2c 37 2c 22 43 6f | 6d 70 69 6c 65 64 22 29 |n%,7,"Co|mpiled")|
|000019c0| 0d 0a b4 20 f2 75 6e 73 | 68 61 64 65 69 63 6f 6e |... .uns|hadeicon|
|000019d0| 28 63 6f 6d 70 69 6c 65 | 72 77 69 6e 25 2c 34 29 |(compile|rwin%,4)|
|000019e0| 0d 0a be 09 42 43 25 3d | 30 0d 0a c8 0f d9 23 66 |....BC%=|0.....#f|
|000019f0| 69 6c 65 6e 61 6d 65 25 | 0d 0a d2 05 e1 0d 0a dc |ilename%|........|
|00001a00| 05 3a 0d 0a e6 0a dd f2 | 73 61 76 65 0d 0a f0 28 |.:......|save...(|
|00001a10| ff 22 53 41 56 45 20 48 | 65 6c 6c 6f 20 22 2b c3 |."SAVE H|ello "+.|
|00001a20| 7e 70 72 6f 67 72 61 6d | 2b 22 20 2b 22 2b c3 7e |~program|+" +"+.~|
|00001a30| 4d 43 4c 25 0d 0a fa 1d | ff 22 53 65 74 74 79 70 |MCL%....|."Settyp|
|00001a40| 65 20 48 65 6c 6c 6f 20 | 41 62 73 6f 6c 75 74 65 |e Hello |Absolute|
|00001a50| 22 0d 0b 04 05 e1 0d 0b | 0e 05 3a 0d 0b 18 08 dd |".......|..:.....|
|00001a60| f2 53 31 0d 0b 22 05 e1 | 0d 0b 2c 08 dd f2 53 32 |.S1.."..|..,...S2|
|00001a70| 0d 0b 36 05 e1 0d 0b 40 | 1c dd a4 43 48 3a 42 43 |..6....@|...CH:BC|
|00001a80| 25 2b 3d 31 3a 3d 9a 23 | 66 69 6c 65 6e 61 6d 65 |%+=1:=.#|filename|
|00001a90| 25 0d 0b 4a 28 dd f2 41 | 3a f2 53 31 3a fb 33 3a |%..J(..A|:.S1:.3:|
|00001aa0| e7 41 25 3e 31 32 37 20 | d6 20 74 6f 6b 65 6e 70 |.A%>127 |. tokenp|
|00001ab0| 72 69 6e 74 20 8b ef 41 | 25 0d 0b 54 21 f2 53 32 |rint ..A|%..T!.S2|
|00001ac0| 3a 41 25 3d a4 43 48 3a | e7 41 25 3d 32 30 30 20 |:A%=.CH:|.A%=200 |
|00001ad0| 41 25 3d 32 35 36 2b a4 | 43 48 0d 0b 5e 05 e1 0d |A%=256+.|CH..^...|
|00001ae0| 0b 68 08 dd f2 4c 58 0d | 0b 72 1b e7 54 25 3d 65 |.h...LX.|.r..T%=e|
|00001af0| 6f 6c 6e 20 80 41 25 3d | 32 35 35 20 54 25 3d 65 |oln .A%=|255 T%=e|
|00001b00| 6f 70 0d 0b 7c 0d e7 54 | 25 3d 65 6f 70 3a e1 0d |op..|..T|%=eop:..|
|00001b10| 0b 86 10 e7 54 25 3d 65 | 6f 6c 6e 20 f2 4e 4c 0d |....T%=e|oln .NL.|
|00001b20| 0b 90 18 e7 41 25 3d 73 | 70 63 3a f5 f2 41 3a fd |....A%=s|pc:..A:.|
|00001b30| 41 25 3c 3e 73 70 63 0d | 0b 9a 13 e7 ac a4 41 4c |A%<>spc.|......AL|
|00001b40| 28 41 25 29 20 e5 8d 64 | 7e 4b 0d 0b a4 07 f2 49 |(A%) ..d|~K.....I|
|00001b50| 47 0d 0b ae 1c e7 53 24 | 3d 22 4d 41 4c 4c 4f 43 |G.....S$|="MALLOC|
|00001b60| 22 20 54 25 3d 6d 61 6c | 6c 6f 63 3a e1 0d 0b b8 |" T%=mal|loc:....|
|00001b70| 19 e7 c2 53 24 29 3d 22 | 24 22 20 54 25 3d 73 69 |...S$)="|$" T%=si|
|00001b80| 64 3a f2 53 3a e1 0d 0b | c2 15 e7 63 68 6b 66 6f |d:.S:...|...chkfo|
|00001b90| 72 6e 6f 6e 69 6e 74 73 | 25 20 8c 0d 0b cc 47 e7 |rnonints|% ....G.|
|00001ba0| c2 53 24 29 3c 3e 22 25 | 22 20 f2 53 31 3a f2 72 |.S$)<>"%|" .S1:.r|
|00001bb0| 65 70 6f 72 74 28 22 20 | 4f 6e 6c 79 20 69 6e 74 |eport(" |Only int|
|00001bc0| 65 67 65 72 20 76 61 72 | 69 61 62 6c 65 73 20 61 |eger var|iables a|
|00001bd0| 6c 6c 6f 77 65 64 22 2c | 31 37 29 3a f2 53 55 42 |llowed",|17):.SUB|
|00001be0| 45 52 0d 0b d6 05 cd 0d | 0b e0 18 e7 41 25 3d 6c |ER......|....A%=l|
|00001bf0| 62 20 54 25 3d 61 69 64 | 20 8b 54 25 3d 69 64 0d |b T%=aid| .T%=id.|
|00001c00| 0b ea 06 f2 53 0d 0b f4 | 05 e1 0d 0b fe 13 e7 41 |....S...|.......A|
|00001c10| 25 3c 3e 70 72 6f 63 20 | e5 8d 54 5c 4c 0d 0c 08 |%<>proc |..T\L...|
|00001c20| 1d 54 25 3d 41 25 3a f2 | 41 3a e7 ac a4 41 4c 28 |.T%=A%:.|A:...AL(|
|00001c30| 41 25 29 20 54 25 3d 30 | 3a e1 0d 0c 12 0c f2 49 |A%) T%=0|:......I|
|00001c40| 47 3a f2 53 3a e1 0d 0c | 1c 46 e7 a4 44 4e 28 41 |G:.S:...|.F..DN(A|
|00001c50| 25 29 20 f2 44 4e 47 20 | 8b e7 41 25 3d 97 22 26 |%) .DNG |..A%=."&|
|00001c60| 22 20 f2 48 45 58 44 4e | 47 20 8b e7 41 25 3d 64 |" .HEXDN|G ..A%=d|
|00001c70| 71 75 6f 74 65 20 f2 53 | 47 20 8b e7 41 25 3d 6c |quote .S|G ..A%=l|
|00001c80| 69 6e 6f 20 f2 4c 47 20 | 8b f2 54 47 0d 0c 26 05 |ino .LG |..TG..&.|
|00001c90| e1 0d 0c 30 2a dd a4 41 | 4c 28 41 25 29 3a 3d 28 |...0*..A|L(A%):=(|
|00001ca0| 41 25 3e 36 34 80 41 25 | 3c 39 31 29 84 28 41 25 |A%>64.A%|<91).(A%|
|00001cb0| 3e 39 36 80 41 25 3c 31 | 32 33 29 0d 0c 3a 1b dd |>96.A%<1|23)..:..|
|00001cc0| a4 44 4e 28 41 25 29 3a | 3d 28 41 25 3e 34 37 80 |.DN(A%):|=(A%>47.|
|00001cd0| 41 25 3c 35 38 29 0d 0c | 44 2b dd a4 44 4e 4f 48 |A%<58)..|D+..DNOH|
|00001ce0| 28 41 25 29 3a 3d 28 41 | 25 3e 34 37 80 41 25 3c |(A%):=(A|%>47.A%<|
|00001cf0| 35 38 29 84 28 41 25 3e | 36 34 80 41 25 3c 37 31 |58).(A%>|64.A%<71|
|00001d00| 29 0d 0c 4e 08 dd f2 4c | 47 0d 0c 58 16 4e 25 3d |)..N...L|G..X.N%=|
|00001d10| a4 4c 28 a4 43 48 2c a4 | 43 48 2c a4 43 48 29 0d |.L(.CH,.|CH,.CH).|
|00001d20| 0c 62 19 54 25 3d 6c 69 | 6e 6f 3a 41 25 3d a4 43 |.b.T%=li|no:A%=.C|
|00001d30| 48 3a 53 24 3d c3 4e 25 | 0d 0c 6c 11 f2 53 3a f2 |H:S$=.N%|..l..S:.|
|00001d40| 53 31 3a fb 33 3a f2 53 | 32 0d 0c 76 05 e1 0d 0c |S1:.3:.S|2..v....|
|00001d50| 80 08 dd f2 49 47 0d 0c | 8a 3c 53 24 3d 22 22 3a |....IG..|.<S$="":|
|00001d60| f5 3a 53 24 2b 3d bd 41 | 25 3a f2 41 3a fd ac 28 |.:S$+=.A|%:.A:..(|
|00001d70| a4 44 4e 28 41 25 29 84 | a4 41 4c 28 41 25 29 29 |.DN(A%).|.AL(A%))|
|00001d80| 80 41 25 3c 3e 97 22 25 | 22 80 41 25 3c 3e 97 22 |.A%<>."%|".A%<>."|
|00001d90| 24 22 0d 0c 94 05 e1 0d | 0c 9e 09 dd f2 44 4e 47 |$"......|.....DNG|
|00001da0| 0d 0c a8 31 53 24 3d 22 | 22 3a f5 3a 53 24 2b 3d |...1S$="|":.:S$+=|
|00001db0| bd 41 25 3a f2 41 3a fd | ac a4 44 4e 28 41 25 29 |.A%:.A:.|..DN(A%)|
|00001dc0| 3a 54 25 3d 63 6f 6e 73 | 74 3a 4e 3d bb 53 24 3a |:T%=cons|t:N=.S$:|
|00001dd0| e1 0d 0c b2 12 54 25 3d | 63 6f 6e 73 74 3a 4e 3d |.....T%=|const:N=|
|00001de0| bb 53 24 0d 0c bc 05 e1 | 0d 0c c6 55 dd f2 48 45 |.S$.....|...U..HE|
|00001df0| 58 44 4e 47 3a 53 24 3d | 22 22 3a f5 3a 53 24 2b |XDNG:S$=|"":.:S$+|
|00001e00| 3d bd 41 25 3a f2 41 3a | fd ac a4 44 4e 4f 48 28 |=.A%:.A:|...DNOH(|
|00001e10| 41 25 29 3a 54 25 3d 63 | 6f 6e 73 74 3a c8 99 22 |A%):T%=c|onst:.."|
|00001e20| 4f 53 5f 52 65 61 64 55 | 6e 73 69 67 6e 65 64 22 |OS_ReadU|nsigned"|
|00001e30| 2c 31 36 2c 53 24 20 b8 | 2c 2c 4e 3a e1 0d 0c d0 |,16,S$ .|,,N:....|
|00001e40| 11 dd f2 53 47 3a 53 24 | 3d 22 22 3a f2 41 0d 0c |...SG:S$|="":.A..|
|00001e50| da 48 f5 53 24 2b 3d bd | 41 25 3a f2 53 31 3a fb |.H.S$+=.|A%:.S1:.|
|00001e60| 33 3a ef 41 25 3a f2 53 | 32 3a 41 25 3d a4 43 48 |3:.A%:.S|2:A%=.CH|
|00001e70| 3a fd 41 25 3d 64 71 75 | 6f 74 65 20 84 41 25 3d |:.A%=dqu|ote .A%=|
|00001e80| 65 6f 6c 6e 3a e7 41 25 | 3d 65 6f 6c 6e 20 f2 45 |eoln:.A%|=eoln .E|
|00001e90| 52 52 20 8b f2 41 0d 0c | e4 14 e7 41 25 3d 64 71 |RR ..A..|...A%=dq|
|00001ea0| 75 6f 74 65 20 e5 8d 64 | 5a 4c 0d 0c ee 2f 54 25 |uote ..d|ZL.../T%|
|00001eb0| 3d 73 74 72 69 6e 67 3a | 63 6f 6e 73 74 73 74 72 |=string:|conststr|
|00001ec0| 69 6e 67 24 28 4e 43 53 | 54 25 29 3d 53 24 3a 4e |ing$(NCS|T%)=S$:N|
|00001ed0| 43 53 54 25 2b 3d 31 3a | e1 0d 0c f8 08 dd f2 54 |CST%+=1:|.......T|
|00001ee0| 47 0d 0d 02 32 e7 54 25 | 3d 6e 65 78 74 20 80 41 |G...2.T%|=next .A|
|00001ef0| 25 3d 63 6f 6d 6d 61 20 | 54 25 3d 63 6f 6c 3a 41 |%=comma |T%=col:A|
|00001f00| 25 3d 6e 65 78 74 3a f2 | 53 31 3a fb 33 3a f2 53 |%=next:.|S1:.3:.S|
|00001f10| 32 3a e1 0d 0d 0c 46 e7 | 41 25 3d 74 69 6d 65 73 |2:....F.|A%=times|
|00001f20| 20 80 28 54 25 3d 65 6f | 6c 6e 20 84 54 25 3d 63 | .(T%=eo|ln .T%=c|
|00001f30| 6f 6c 29 20 53 24 3d 22 | 22 3a f5 53 24 2b 3d bd |ol) S$="|":.S$+=.|
|00001f40| 41 25 3a f2 41 3a fd 41 | 25 3d 65 6f 6c 6e 3a 54 |A%:.A:.A|%=eoln:T|
|00001f50| 25 3d 74 69 6d 65 73 3a | e1 0d 0d 16 0c 54 25 3d |%=times:|.....T%=|
|00001f60| 41 25 3a f2 41 0d 0d 20 | 1b e7 54 25 3d 67 74 20 |A%:.A.. |..T%=gt |
|00001f70| 80 41 25 3d 65 71 20 54 | 25 3d 67 65 71 3a f2 41 |.A%=eq T|%=geq:.A|
|00001f80| 0d 0d 2a 1b e7 54 25 3d | 6c 74 20 80 41 25 3d 65 |..*..T%=|lt .A%=e|
|00001f90| 71 20 54 25 3d 6c 65 71 | 3a f2 41 0d 0d 34 1b e7 |q T%=leq|:.A..4..|
|00001fa0| 54 25 3d 6c 74 20 80 41 | 25 3d 67 74 20 54 25 3d |T%=lt .A|%=gt T%=|
|00001fb0| 6e 65 71 3a f2 41 0d 0d | 3e 20 e7 54 25 3d 70 6c |neq:.A..|> .T%=pl|
|00001fc0| 75 73 20 80 41 25 3d 65 | 71 20 54 25 3d 70 6c 75 |us .A%=e|q T%=plu|
|00001fd0| 73 65 71 3a f2 41 0d 0d | 48 22 e7 54 25 3d 6d 69 |seq:.A..|H".T%=mi|
|00001fe0| 6e 75 73 20 80 41 25 3d | 65 71 20 54 25 3d 6d 69 |nus .A%=|eq T%=mi|
|00001ff0| 6e 75 73 65 71 3a f2 41 | 0d 0d 52 21 e7 54 25 3d |nuseq:.A|..R!.T%=|
|00002000| 72 65 6d 20 c8 95 41 25 | 3c 3e 65 6f 6c 6e 3a f2 |rem ..A%|<>eoln:.|
|00002010| 41 3a ce 3a e5 8d 54 56 | 4d 0d 0d 5c 2c e7 54 25 |A:.:..TV|M..\,.T%|
|00002020| 3d 63 6f 6c 20 80 41 25 | 3d 63 6f 6c 20 f5 f2 41 |=col .A%|=col ..A|
|00002030| 3a fd 28 41 25 3c 3e 63 | 6f 6c 29 80 28 41 25 3c |:.(A%<>c|ol).(A%<|
|00002040| 3e 73 70 63 29 0d 0d 66 | 1d e7 54 25 3d 63 6f 6c |>spc)..f|..T%=col|
|00002050| 20 80 41 25 3d 65 6f 6c | 6e 20 54 25 3d 41 25 3a | .A%=eol|n T%=A%:|
|00002060| f2 41 0d 0d 70 05 e1 0d | 0d 7a 08 dd f2 4e 4c 0d |.A..p...|.z...NL.|
|00002070| 0d 84 1a 4c 49 25 3d 41 | 25 2a 32 35 36 2b a4 43 |...LI%=A|%*256+.C|
|00002080| 48 3a 4c 4c 25 3d a4 43 | 48 0d 0d 8e 1e 6c 69 6e |H:LL%=.C|H....lin|
|00002090| 6f 28 4e 4c 25 29 3d 4c | 49 25 3a 6c 69 6e 61 28 |o(NL%)=L|I%:lina(|
|000020a0| 4e 4c 25 29 3d 50 25 0d | 0d 98 0e 4e 4c 25 2b 3d |NL%)=P%.|...NL%+=|
|000020b0| 31 3a f2 53 31 0d 0d a2 | 0c fb 32 3a 41 25 3d 33 |1:.S1...|..2:A%=3|
|000020c0| 32 0d 0d ac 09 f2 53 32 | 3a e1 0d 0d b6 07 dd f2 |2.....S2|:.......|
|000020d0| 53 0d 0d c0 13 53 4e 25 | 3d 2d 31 3a f5 3a 53 4e |S....SN%|=-1:.:SN|
|000020e0| 25 2b 3d 31 0d 0d ca 2a | fd 28 73 74 24 28 53 4e |%+=1...*|.(st$(SN|
|000020f0| 25 29 3d 53 24 80 73 74 | 70 28 53 4e 25 29 3d 54 |%)=S$.st|p(SN%)=T|
|00002100| 25 29 84 73 74 24 28 53 | 4e 25 29 3d 22 22 0d 0d |%).st$(S|N%)=""..|
|00002110| d4 12 e7 73 74 24 28 53 | 4e 25 29 3d 22 22 20 8c |...st$(S|N%)="" .|
|00002120| 0d 0d de 77 73 74 24 28 | 53 4e 25 29 3d 53 24 3a |...wst$(|SN%)=S$:|
|00002130| 4e 53 25 3d 4e 53 25 2b | 31 3a 73 74 70 28 53 4e |NS%=NS%+|1:stp(SN|
|00002140| 25 29 3d 54 25 3a e7 54 | 25 3d 69 64 20 73 61 28 |%)=T%:.T|%=id sa(|
|00002150| 53 4e 25 29 3d 76 6d 65 | 6d 3a 76 6d 65 6d 2b 3d |SN%)=vme|m:vmem+=|
|00002160| 34 20 8b e7 54 25 3d 73 | 69 64 20 73 61 28 53 4e |4 ..T%=s|id sa(SN|
|00002170| 25 29 3d 73 6d 65 6d 3a | 73 6d 65 6d 2b 3d 31 20 |%)=smem:|smem+=1 |
|00002180| 8b e7 54 25 3d 61 69 64 | 20 73 61 28 53 4e 25 29 |..T%=aid| sa(SN%)|
|00002190| 3d 4e 41 45 25 2a 34 0d | 0d e8 05 cd 0d 0d f2 05 |=NAE%*4.|........|
|000021a0| e1 0d 0d fc 0a dd f2 49 | 4e 46 4f 0d 0e 06 07 f2 |.......I|NFO.....|
|000021b0| 53 32 0d 0e 10 05 e1 0d | 0e 1a 0a dd f2 70 72 6f |S2......|.....pro|
|000021c0| 67 0d 0e 24 35 f2 69 63 | 6f 6e 70 75 74 74 65 78 |g..$5.ic|onputtex|
|000021d0| 74 28 63 6f 6d 70 69 6c | 65 72 77 69 6e 25 2c 38 |t(compil|erwin%,8|
|000021e0| 2c c3 28 a8 28 42 43 25 | 2f 66 69 6c 65 6c 25 2a |,.(.(BC%|/filel%*|
|000021f0| 31 30 30 29 29 29 0d 0e | 2e 1e e7 54 25 3d 65 6f |100)))..|...T%=eo|
|00002200| 70 20 f2 45 4e 44 3a f2 | 65 6e 64 63 6f 6d 70 69 |p .END:.|endcompi|
|00002210| 6c 65 3a e1 0d 0e 38 1f | f2 73 74 61 74 65 3a e7 |le:...8.|.state:.|
|00002220| 54 25 3d 63 6f 6c 20 84 | 54 25 3d 65 6f 6c 6e 20 |T%=col .|T%=eoln |
|00002230| f2 4c 58 0d 0e 42 05 e1 | 0d 0e 4c 0b dd f2 73 74 |.LX..B..|..L...st|
|00002240| 61 74 65 0d 0e 56 0b c8 | 8e 20 54 25 20 ca 0d 0e |ate..V..|. T% ...|
|00002250| 60 1b c9 20 65 6f 6c 6e | 20 84 54 25 3d 63 6f 6c |`.. eoln| .T%=col|
|00002260| 20 84 54 25 3d 65 6c 73 | 65 0d 0e 6a 15 c9 20 6d | .T%=els|e..j.. m|
|00002270| 61 6c 6c 6f 63 3a 20 f2 | 6d 61 6c 6c 6f 63 0d 0e |alloc: .|malloc..|
|00002280| 74 11 c9 20 63 61 6c 6c | 3a 20 f2 63 61 6c 6c 0d |t.. call|: .call.|
|00002290| 0e 7e 17 c9 20 61 69 64 | 3a 20 f2 61 73 73 69 67 |.~.. aid|: .assig|
|000022a0| 6e 61 72 72 61 79 0d 0e | 88 11 c9 20 69 64 3a 20 |narray..|... id: |
|000022b0| f2 61 73 73 69 67 6e 0d | 0e 92 14 c9 20 73 69 64 |.assign.|.... sid|
|000022c0| 3a 20 f2 61 73 73 74 72 | 69 6e 67 0d 0e 9c 0f c9 |: .asstr|ing.....|
|000022d0| 20 64 69 6d 3a 20 f2 64 | 69 6d 0d 0e a6 13 c9 20 | dim: .d|im..... |
|000022e0| 6f 73 63 6c 69 3a 20 f2 | 6f 73 63 6c 69 0d 0e b0 |oscli: .|oscli...|
|000022f0| 11 c9 20 70 72 6f 63 3a | 20 f2 70 72 6f 63 0d 0e |.. proc:| .proc..|
|00002300| ba 0f c9 20 72 65 70 3a | 20 f2 72 65 70 0d 0e c4 |... rep:| .rep...|
|00002310| 13 c9 20 77 68 69 6c 65 | 3a 20 f2 77 68 69 6c 65 |.. while|: .while|
|00002320| 0d 0e ce 13 c9 20 67 6f | 73 75 62 3a 20 f2 67 6f |..... go|sub: .go|
|00002330| 73 75 62 0d 0e d8 15 c9 | 20 72 65 74 75 72 6e 3a |sub.....| return:|
|00002340| 20 f2 72 65 74 75 72 6e | 0d 0e e2 0f c9 20 76 64 | .return|..... vd|
|00002350| 75 3a 20 f2 76 64 75 0d | 0e ec 13 c9 20 70 72 69 |u: .vdu.|.... pri|
|00002360| 6e 74 3a 20 f2 70 72 69 | 6e 74 0d 0e f6 14 c9 20 |nt: .pri|nt..... |
|00002370| 69 6e 70 75 74 3a 20 20 | f2 69 6e 70 75 74 0d 0f |input:  |.input..|
|00002380| 00 0f c9 20 65 6e 64 3a | 20 f2 65 6e 64 0d 0f 0a |... end:| .end...|
|00002390| 13 c9 20 73 6f 75 6e 64 | 3a 20 f2 73 6f 75 6e 64 |.. sound|: .sound|
|000023a0| 0d 0f 14 15 c9 20 76 6f | 69 63 65 73 3a 20 f2 76 |..... vo|ices: .v|
|000023b0| 6f 69 63 65 73 0d 0f 1e | 11 c9 20 6d 6f 76 65 3a |oices...|.. move:|
|000023c0| 20 f2 6d 6f 76 65 0d 0f | 28 11 c9 20 64 72 61 77 | .move..|(.. draw|
|000023d0| 3a 20 f2 64 72 61 77 0d | 0f 32 17 c9 20 63 6c 73 |: .draw.|.2.. cls|
|000023e0| 3a 20 f2 4c 58 3a f2 56 | 44 4c 28 31 32 29 0d 0f |: .LX:.V|DL(12)..|
|000023f0| 3c 11 c9 20 6d 6f 64 65 | 3a 20 f2 6d 6f 64 65 0d |<.. mode|: .mode.|
|00002400| 0f 46 11 c9 20 70 6c 6f | 74 3a 20 f2 70 6c 6f 74 |.F.. plo|t: .plot|
|00002410| 0d 0f 50 11 c9 20 77 61 | 69 74 3a 20 f2 77 61 69 |..P.. wa|it: .wai|
|00002420| 74 0d 0f 5a 11 c9 20 67 | 63 6f 6c 3a 20 f2 67 63 |t..Z.. g|col: .gc|
|00002430| 6f 6c 0d 0f 64 12 c9 20 | 6f 6e 3a 20 f2 4c 58 3a |ol..d.. |on: .LX:|
|00002440| f2 43 4f 4e 0d 0f 6e 14 | c9 20 6f 66 66 3a 20 f2 |.CON..n.|. off: .|
|00002450| 4c 58 3a f2 43 4f 46 46 | 0d 0f 78 17 c9 20 63 6c |LX:.COFF|..x.. cl|
|00002460| 67 3a 20 f2 4c 58 3a f2 | 56 44 4c 28 31 36 29 0d |g: .LX:.|VDL(16).|
|00002470| 0f 82 15 c9 20 63 6f 6c | 6f 75 72 3a 20 f2 63 6f |.... col|our: .co|
|00002480| 6c 6f 75 72 0d 0f 8c 15 | c9 20 63 69 72 63 6c 65 |lour....|. circle|
|00002490| 3a 20 f2 63 69 72 63 6c | 65 0d 0f 96 13 c9 20 6d |: .circl|e..... m|
|000024a0| 6f 75 73 65 3a 20 f2 6d | 6f 75 73 65 0d 0f a0 1b |ouse: .m|ouse....|
|000024b0| c9 20 72 65 63 74 61 6e | 67 6c 65 3a 20 f2 72 65 |. rectan|gle: .re|
|000024c0| 63 74 61 6e 67 6c 65 0d | 0f aa 17 c9 20 65 6c 6c |ctangle.|.... ell|
|000024d0| 69 70 73 65 3a 20 f2 65 | 6c 6c 69 70 73 65 0d 0f |ipse: .e|llipse..|
|000024e0| b4 11 c9 20 66 69 6c 6c | 3a 20 f2 66 69 6c 6c 0d |... fill|: .fill.|
|000024f0| 0f be 15 c9 20 6f 72 69 | 67 69 6e 3a 20 f2 6f 72 |.... ori|gin: .or|
|00002500| 69 67 69 6e 0d 0f c8 0d | c9 20 69 66 3a 20 f2 69 |igin....|. if: .i|
|00002510| 66 0d 0f d2 0f c9 20 66 | 6f 72 3a 20 f2 66 6f 72 |f..... f|or: .for|
|00002520| 0d 0f dc 11 c9 20 67 6f | 74 6f 3a 20 f2 67 6f 74 |..... go|to: .got|
|00002530| 6f 0d 0f e6 0f c9 20 64 | 65 66 3a 20 f2 64 65 66 |o..... d|ef: .def|
|00002540| 0d 0f f0 19 c9 20 74 69 | 6d 65 73 3a 20 f2 73 74 |..... ti|mes: .st|
|00002550| 61 72 63 6f 6d 6d 61 6e | 64 0d 0f fa 13 c9 20 74 |arcomman|d..... t|
|00002560| 69 6d 65 6c 65 3a 20 f2 | 74 69 6d 65 0d 10 04 11 |imele: .|time....|
|00002570| c9 20 73 77 61 70 3a 20 | f2 73 77 61 70 0d 10 0e |. swap: |.swap...|
|00002580| 0f c9 20 73 79 73 3a 20 | f2 73 79 73 0d 10 18 05 |.. sys: |.sys....|
|00002590| cb 0d 10 22 27 e7 28 54 | 25 3c 3e 65 6f 6c 6e 20 |..."'.(T|%<>eoln |
|000025a0| 80 54 25 3c 3e 63 6f 6c | 20 80 54 25 3c 3e 65 6c |.T%<>col| .T%<>el|
|000025b0| 73 65 29 20 f2 45 52 52 | 0d 10 2c 05 e1 0d 10 36 |se) .ERR|..,....6|
|000025c0| 05 3a 0d 10 40 ae dd f2 | 6d 61 6c 6c 6f 63 3a ea |.:..@...|malloc:.|
|000025d0| 53 54 25 3a f2 4c 58 3a | f2 43 28 73 74 72 69 6e |ST%:.LX:|.C(strin|
|000025e0| 67 29 3a f2 4c 58 3a f2 | 43 28 63 6f 6d 6d 61 29 |g):.LX:.|C(comma)|
|000025f0| 3a f2 4c 58 3a f2 43 28 | 69 64 29 3a 53 54 25 3d |:.LX:.C(|id):ST%=|
|00002600| 53 4e 25 3a f2 4c 58 3a | e7 54 25 3c 3e 65 6f 6c |SN%:.LX:|.T%<>eol|
|00002610| 6e 20 80 54 25 3c 3e 63 | 6f 6c 20 f2 43 28 63 6f |n .T%<>c|ol .C(co|
|00002620| 6d 6d 61 29 3a f2 4c 58 | 3a f2 43 28 69 64 29 3a |mma):.LX|:.C(id):|
|00002630| f2 4d 41 4c 4c 4f 43 28 | 4e 43 53 54 25 2d 31 2c |.MALLOC(|NCST%-1,|
|00002640| 73 61 28 53 54 25 29 2c | 73 61 28 53 4e 25 29 29 |sa(ST%),|sa(SN%))|
|00002650| 3a f2 4c 58 20 8b f2 4d | 41 4c 4c 4f 43 28 4e 43 |:.LX ..M|ALLOC(NC|
|00002660| 53 54 25 2d 31 2c 73 61 | 28 53 54 25 29 2c 30 29 |ST%-1,sa|(ST%),0)|
|00002670| 0d 10 4a 05 e1 0d 10 54 | 19 dd f2 63 61 6c 6c 3a |..J....T|...call:|
|00002680| ea 20 53 46 25 3a f2 4c | 58 3a f2 65 78 70 0d 10 |. SF%:.L|X:.exp..|
|00002690| 5e 3a 53 46 25 3d 30 3a | c8 95 20 54 25 3c 3e 65 |^:SF%=0:|.. T%<>e|
|000026a0| 6f 6c 6e 20 80 54 25 3c | 3e 63 6f 6c 20 f2 43 28 |oln .T%<|>col .C(|
|000026b0| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 65 78 70 3a |comma):.|LX:.exp:|
|000026c0| 53 46 25 2b 3d 31 3a ce | 0d 10 68 10 f2 43 41 4c |SF%+=1:.|..h..CAL|
|000026d0| 4c 28 53 46 25 29 3a e1 | 0d 10 72 17 dd f2 64 65 |L(SF%):.|..r...de|
|000026e0| 66 3a ea 20 4e 50 25 2c | 50 53 25 2c 53 54 25 0d |f:. NP%,|PS%,ST%.|
|000026f0| 10 7c 1c f2 4c 58 3a f2 | 43 28 70 72 6f 63 29 3a |.|..LX:.|C(proc):|
|00002700| 53 54 25 3d 53 4e 25 3a | f2 4c 58 0d 10 86 1c e7 |ST%=SN%:|.LX.....|
|00002710| 54 25 3c 3e 6c 62 20 73 | 61 28 53 54 25 29 3d 50 |T%<>lb s|a(ST%)=P|
|00002720| 25 3a e5 8d 64 4c 50 0d | 10 90 11 50 53 25 3d 50 |%:..dLP.|...PS%=P|
|00002730| 25 3a f2 50 53 28 31 29 | 0d 10 9a 1b f2 4c 58 3a |%:.PS(1)|.....LX:|
|00002740| f2 43 28 69 64 29 3a f2 | 50 50 28 73 61 28 53 4e |.C(id):.|PP(sa(SN|
|00002750| 25 29 29 0d 10 a4 1e f2 | 4c 58 3a 4e 50 25 2b 3d |%)).....|LX:NP%+=|
|00002760| 31 3a e7 54 25 3d 63 6f | 6d 6d 61 20 e5 8d 74 5a |1:.T%=co|mma ..tZ|
|00002770| 50 0d 10 ae 0e f2 43 28 | 72 62 29 3a f2 4c 58 0d |P.....C(|rb):.LX.|
|00002780| 10 b8 1f 56 25 3d 50 25 | 3a 50 25 3d 50 53 25 3a |...V%=P%|:P%=PS%:|
|00002790| f2 50 53 28 4e 50 25 29 | 3a 50 25 3d 56 25 0d 10 |.PS(NP%)|:P%=V%..|
|000027a0| c2 1d f2 50 53 58 3a 73 | 61 28 53 54 25 29 3d 50 |...PSX:s|a(ST%)=P|
|000027b0| 25 3a f2 4a 53 52 28 50 | 53 25 29 0d 10 cc 1d e7 |%:.JSR(P|S%).....|
|000027c0| 54 25 3d 65 6f 70 20 84 | 54 25 3d 65 6e 64 70 72 |T%=eop .|T%=endpr|
|000027d0| 6f 63 20 e5 8d 64 60 50 | 0d 10 d6 25 f2 73 74 61 |oc ..d`P|...%.sta|
|000027e0| 74 65 3a e7 54 25 3d 63 | 6f 6c 20 84 54 25 3d 65 |te:.T%=c|ol .T%=e|
|000027f0| 6f 6c 6e 20 f2 4c 58 3a | e5 8d 64 4c 50 0d 10 e0 |oln .LX:|..dLP...|
|00002800| 13 f2 43 28 65 6e 64 70 | 72 6f 63 29 3a f2 4c 58 |..C(endp|roc):.LX|
|00002810| 0d 10 ea 18 e7 4e 50 25 | 3c 3e 30 20 f2 50 46 28 |.....NP%|<>0 .PF(|
|00002820| 4e 50 25 2c 50 53 25 29 | 0d 10 f4 0a f2 52 54 53 |NP%,PS%)|.....RTS|
|00002830| 3a e1 0d 10 fe 05 3a 0d | 11 08 14 dd f2 65 6e 64 |:.....:.|.....end|
|00002840| 3a f2 45 4e 44 3a f2 4c | 58 3a e1 0d 11 12 05 3a |:.END:.L|X:.....:|
|00002850| 0d 11 1c 36 dd f2 67 6f | 73 75 62 3a f2 4c 58 3a |...6..go|sub:.LX:|
|00002860| f2 43 28 6c 69 6e 6f 29 | 3a f2 4a 4d 28 53 4e 25 |.C(lino)|:.JM(SN%|
|00002870| 29 3a 73 74 70 28 53 4e | 25 29 3d 67 6f 73 75 62 |):stp(SN|%)=gosub|
|00002880| 3a f2 4c 58 3a e1 0d 11 | 26 17 dd f2 72 65 74 75 |:.LX:...|&...retu|
|00002890| 72 6e 3a f2 4c 58 3a f2 | 52 54 53 3a e1 0d 11 30 |rn:.LX:.|RTS:...0|
|000028a0| 05 3a 0d 11 3a 1e dd f2 | 61 73 73 69 67 6e 3a ea |.:..:...|assign:.|
|000028b0| 20 53 54 25 2c 54 31 25 | 3a 53 54 25 3d 53 4e 25 | ST%,T1%|:ST%=SN%|
|000028c0| 0d 11 44 3c f2 4c 58 3a | 54 31 25 3d 54 25 3a e7 |..D<.LX:|T1%=T%:.|
|000028d0| 54 25 3d 70 6c 75 73 65 | 71 20 84 54 25 3d 6d 69 |T%=pluse|q .T%=mi|
|000028e0| 6e 75 73 65 71 20 f2 4c | 44 41 28 73 61 28 53 54 |nuseq .L|DA(sa(ST|
|000028f0| 25 29 29 3a f2 4c 58 3a | f2 65 78 70 0d 11 4e 39 |%)):.LX:|.exp..N9|
|00002900| e7 54 31 25 3d 70 6c 75 | 73 65 71 20 f2 41 44 44 |.T1%=plu|seq .ADD|
|00002910| 20 8b e7 54 31 25 3d 6d | 69 6e 75 73 65 71 20 f2 | ..T1%=m|inuseq .|
|00002920| 53 55 42 20 8b 20 f2 43 | 28 65 71 29 3a f2 4c 58 |SUB . .C|(eq):.LX|
|00002930| 3a f2 65 78 70 0d 11 58 | 13 f2 53 54 41 28 73 61 |:.exp..X|..STA(sa|
|00002940| 28 53 54 25 29 29 3a e1 | 0d 11 62 05 3a 0d 11 6c |(ST%)):.|..b.:..l|
|00002950| 23 dd f2 61 73 73 69 67 | 6e 61 72 72 61 79 3a ea |#..assig|narray:.|
|00002960| 20 53 54 25 2c 54 31 25 | 3a 53 54 25 3d 53 4e 25 | ST%,T1%|:ST%=SN%|
|00002970| 0d 11 76 22 f2 4c 58 3a | f2 43 28 6c 62 29 3a f2 |..v".LX:|.C(lb):.|
|00002980| 4c 58 3a f2 65 78 70 3a | f2 43 28 72 62 29 3a f2 |LX:.exp:|.C(rb):.|
|00002990| 4c 58 0d 11 80 13 f2 43 | 28 65 71 29 3a f2 4c 58 |LX.....C|(eq):.LX|
|000029a0| 3a f2 65 78 70 0d 11 8a | 16 f2 53 54 41 61 72 72 |:.exp...|..STAarr|
|000029b0| 28 73 61 28 53 54 25 29 | 29 3a e1 0d 11 94 0a dd |(sa(ST%)|):......|
|000029c0| f2 64 69 6d 3a 0d 11 9e | 64 f2 4c 58 3a f2 43 28 |.dim:...|d.LX:.C(|
|000029d0| 61 69 64 29 3a 61 72 72 | 61 79 65 6e 74 72 69 65 |aid):arr|ayentrie|
|000029e0| 73 25 28 4e 41 45 25 29 | 3d 61 6d 65 6d 3a 4e 41 |s%(NAE%)|=amem:NA|
|000029f0| 45 25 2b 3d 31 3a f2 4c | 58 3a f2 43 28 6c 62 29 |E%+=1:.L|X:.C(lb)|
|00002a00| 3a f2 4c 58 3a f2 43 28 | 63 6f 6e 73 74 29 3a 61 |:.LX:.C(|const):a|
|00002a10| 6d 65 6d 2b 3d 4e 2a 34 | 2b 34 3a f2 4c 58 3a f2 |mem+=N*4|+4:.LX:.|
|00002a20| 43 28 72 62 29 3a f2 4c | 58 0d 11 a8 13 e7 54 25 |C(rb):.L|X.....T%|
|00002a30| 3d 63 6f 6d 6d 61 20 e5 | 8d 74 5e 51 0d 11 b2 05 |=comma .|.t^Q....|
|00002a40| e1 0d 11 bc 17 dd f2 70 | 72 6f 63 3a ea 53 54 25 |.......p|roc:.ST%|
|00002a50| 3a 53 54 25 3d 53 4e 25 | 0d 11 c6 15 f2 4c 58 3a |:ST%=SN%|.....LX:|
|00002a60| e7 54 25 3c 3e 6c 62 20 | e5 8d 64 64 51 0d 11 d0 |.T%<>lb |..ddQ...|
|00002a70| 1c f2 4c 58 3a f2 65 78 | 70 3a e7 54 25 3d 63 6f |..LX:.ex|p:.T%=co|
|00002a80| 6d 6d 61 20 e5 8d 64 50 | 51 0d 11 da 0e f2 43 28 |mma ..dP|Q.....C(|
|00002a90| 72 62 29 3a f2 4c 58 0d | 11 e4 0e f2 4a 4d 28 53 |rb):.LX.|....JM(S|
|00002aa0| 54 25 29 3a e1 0d 11 ee | 05 3a 0d 11 f8 09 dd f2 |T%):....|.:......|
|00002ab0| 76 64 75 0d 12 02 07 f2 | 4c 58 0d 12 0c 08 f2 65 |vdu.....|LX.....e|
|00002ac0| 78 70 0d 12 16 17 e7 54 | 25 3d 73 63 6f 6c 20 f2 |xp.....T|%=scol .|
|00002ad0| 56 44 44 20 8b f2 56 44 | 55 0d 12 20 2d e7 54 25 |VDD ..VD|U.. -.T%|
|00002ae0| 3d 63 6f 6d 6d 61 20 e5 | 8d 54 42 52 20 8b e7 54 |=comma .|.TBR ..T|
|00002af0| 25 3d 73 63 6f 6c 20 f2 | 4c 58 3a e7 a4 45 58 50 |%=scol .|LX:..EXP|
|00002b00| 20 e5 8d 54 4c 52 0d 12 | 2a 05 e1 0d 12 34 05 3a | ..TLR..|*....4.:|
|00002b10| 0d 12 3e 0c dd f2 63 6f | 6c 6f 75 72 0d 12 48 07 |..>...co|lour..H.|
|00002b20| f2 4c 58 0d 12 52 23 f2 | 65 78 70 3a e7 54 25 3c |.LX..R#.|exp:.T%<|
|00002b30| 3e 63 6f 6d 6d 61 20 f2 | 56 44 4c 28 31 37 29 3a |>comma .|VDL(17):|
|00002b40| f2 56 44 55 3a e1 0d 12 | 5c 4e f2 43 28 63 6f 6d |.VDU:...|\N.C(com|
|00002b50| 6d 61 29 3a f2 56 44 4c | 28 31 39 29 3a f2 56 44 |ma):.VDL|(19):.VD|
|00002b60| 55 3a f2 4c 58 3a f2 65 | 78 70 3a e7 54 25 3c 3e |U:.LX:.e|xp:.T%<>|
|00002b70| 63 6f 6d 6d 61 20 f2 56 | 44 55 3a f2 56 44 4c 28 |comma .V|DU:.VDL(|
|00002b80| 30 29 3a f2 56 44 4c 28 | 30 29 3a f2 56 44 4c 28 |0):.VDL(|0):.VDL(|
|00002b90| 30 29 3a e1 0d 12 66 37 | f2 43 28 63 6f 6d 6d 61 |0):...f7|.C(comma|
|00002ba0| 29 3a f2 56 44 4c 28 31 | 36 29 3a f2 56 44 55 3a |):.VDL(1|6):.VDU:|
|00002bb0| f2 4c 58 3a f2 65 78 70 | 3a f2 56 44 55 3a f2 4c |.LX:.exp|:.VDU:.L|
|00002bc0| 58 3a f2 65 78 70 3a f2 | 56 44 55 0d 12 70 05 e1 |X:.exp:.|VDU..p..|
|00002bd0| 0d 12 7a 0a dd f2 6d 6f | 76 65 0d 12 84 16 f2 4c |..z...mo|ve.....L|
|00002be0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00002bf0| 0d 12 8e 15 f2 4c 58 3a | f2 65 78 70 3a f2 50 4c |.....LX:|.exp:.PL|
|00002c00| 54 4c 28 34 29 0d 12 98 | 05 e1 0d 12 a2 05 3a 0d |TL(4)...|......:.|
|00002c10| 12 ac 0a dd f2 64 72 61 | 77 0d 12 b6 16 f2 4c 58 |.....dra|w.....LX|
|00002c20| 3a f2 65 78 70 3a f2 43 | 28 63 6f 6d 6d 61 29 0d |:.exp:.C|(comma).|
|00002c30| 12 c0 15 f2 4c 58 3a f2 | 65 78 70 3a f2 50 4c 54 |....LX:.|exp:.PLT|
|00002c40| 4c 28 35 29 0d 12 ca 05 | e1 0d 12 d4 05 3a 0d 12 |L(5)....|.....:..|
|00002c50| de 23 dd f2 6d 6f 64 65 | 3a f2 4c 58 3a f2 56 44 |.#..mode|:.LX:.VD|
|00002c60| 4c 28 32 32 29 3a f2 65 | 78 70 3a f2 56 44 55 3a |L(22):.e|xp:.VDU:|
|00002c70| e1 0d 12 e8 05 3a 0d 12 | f2 41 dd f2 70 6c 6f 74 |.....:..|.A..plot|
|00002c80| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 63 6f 6d |:.LX:.ex|p:.C(com|
|00002c90| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 43 28 |ma):.LX:|.exp:.C(|
|00002ca0| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 65 78 70 3a |comma):.|LX:.exp:|
|00002cb0| f2 50 4c 4f 54 3a e1 0d | 12 fc 05 3a 0d 13 06 16 |.PLOT:..|...:....|
|00002cc0| dd f2 77 61 69 74 3a f2 | 4c 58 3a f2 57 41 49 54 |..wait:.|LX:.WAIT|
|00002cd0| 3a e1 0d 13 10 05 3a 0d | 13 1a 3d dd f2 67 63 6f |:.....:.|..=..gco|
|00002ce0| 6c 3a f2 56 44 4c 28 31 | 38 29 3a f2 4c 58 3a f2 |l:.VDL(1|8):.LX:.|
|00002cf0| 65 78 70 3a e7 54 25 3d | 63 6f 6d 6d 61 20 f2 56 |exp:.T%=|comma .V|
|00002d00| 44 55 3a f2 4c 58 3a f2 | 65 78 70 20 8b f2 56 44 |DU:.LX:.|exp ..VD|
|00002d10| 4c 28 30 29 0d 13 24 0a | f2 56 44 55 3a e1 0d 13 |L(0)..$.|.VDU:...|
|00002d20| 2e 05 3a 0d 13 38 23 dd | f2 63 69 72 63 6c 65 3a |..:..8#.|.circle:|
|00002d30| f2 4c 58 3a 46 25 3d 54 | 25 3a e7 46 25 3d 66 69 |.LX:F%=T|%:.F%=fi|
|00002d40| 6c 6c 20 f2 4c 58 0d 13 | 42 2e f2 65 78 70 3a f2 |ll .LX..|B..exp:.|
|00002d50| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 65 78 |C(comma)|:.LX:.ex|
|00002d60| 70 3a f2 43 28 63 6f 6d | 6d 61 29 3a f2 50 4c 54 |p:.C(com|ma):.PLT|
|00002d70| 4c 28 34 29 0d 13 4c 2c | f2 4c 58 3a f2 65 78 70 |L(4)..L,|.LX:.exp|
|00002d80| 3a f2 4c 44 4c 28 30 29 | 3a f2 50 4c 54 4c 28 31 |:.LDL(0)|:.PLTL(1|
|00002d90| 34 35 2b 28 46 25 3d 66 | 69 6c 6c 29 2a 2d 38 29 |45+(F%=f|ill)*-8)|
|00002da0| 0d 13 56 05 e1 0d 13 60 | 26 dd f2 72 65 63 74 61 |..V....`|&..recta|
|00002db0| 6e 67 6c 65 3a f2 4c 58 | 3a e7 54 25 3d 66 69 6c |ngle:.LX|:.T%=fil|
|00002dc0| 6c 20 f2 4c 58 3a e5 8d | 44 74 53 0d 13 6a 49 f2 |l .LX:..|DtS..jI.|
|00002dd0| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|00002de0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00002df0| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 63 6f 6d |:.LX:.ex|p:.C(com|
|00002e00| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 52 45 |ma):.LX:|.exp:.RE|
|00002e10| 43 54 3a e1 0d 13 74 2e | f2 65 78 70 3a f2 43 28 |CT:...t.|.exp:.C(|
|00002e20| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 65 78 70 3a |comma):.|LX:.exp:|
|00002e30| f2 43 28 63 6f 6d 6d 61 | 29 3a f2 50 4c 54 4c 28 |.C(comma|):.PLTL(|
|00002e40| 34 29 0d 13 7e 29 f2 4c | 58 3a f2 65 78 70 3a f2 |4)..~).L|X:.exp:.|
|00002e50| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 65 78 |C(comma)|:.LX:.ex|
|00002e60| 70 3a f2 50 4c 54 4c 28 | 39 37 29 0d 13 88 3d dd |p:.PLTL(|97)...=.|
|00002e70| f2 6f 72 69 67 69 6e 3a | f2 56 44 4c 28 32 39 29 |.origin:|.VDL(29)|
|00002e80| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 63 6f 6d |:.LX:.ex|p:.C(com|
|00002e90| 6d 61 29 3a f2 56 44 44 | 3a f2 4c 58 3a f2 65 78 |ma):.VDD|:.LX:.ex|
|00002ea0| 70 3a f2 56 44 44 3a e1 | 0d 13 92 05 e1 0d 13 9c |p:.VDD:.|........|
|00002eb0| 33 dd f2 66 69 6c 6c 3a | f2 4c 58 3a f2 65 78 70 |3..fill:|.LX:.exp|
|00002ec0| 3a f2 43 28 63 6f 6d 6d | 61 29 3a f2 4c 58 3a f2 |:.C(comm|a):.LX:.|
|00002ed0| 65 78 70 3a f2 50 4c 54 | 4c 28 31 33 33 29 3a e1 |exp:.PLT|L(133):.|
|00002ee0| 0d 13 a6 12 dd f2 69 66 | 3a ea 20 4c 31 25 2c 4c |......if|:. L1%,L|
|00002ef0| 32 25 0d 13 b0 0c f2 4c | 58 3a f2 65 78 70 0d 13 |2%.....L|X:.exp..|
|00002f00| ba 12 4c 31 25 3d 50 25 | 3a f2 4a 4d 43 28 30 29 |..L1%=P%|:.JMC(0)|
|00002f10| 0d 13 c4 2c e7 54 25 3d | 74 68 65 6e 20 f2 4c 58 |...,.T%=|then .LX|
|00002f20| 3a e7 54 25 3d 6c 69 6e | 6f 20 f2 4a 4d 28 53 4e |:.T%=lin|o .JM(SN|
|00002f30| 25 29 3a f2 4c 58 3a e5 | 8d 64 58 53 0d 13 ce 0a |%):.LX:.|.dXS....|
|00002f40| f2 73 74 61 74 65 0d 13 | d8 15 e7 54 25 3d 63 6f |.state..|...T%=co|
|00002f50| 6c 3a f2 4c 58 3a e5 8d | 64 4e 53 0d 13 e2 2b e7 |l:.LX:..|dNS...+.|
|00002f60| 54 25 3c 3e 65 6c 73 65 | 20 56 25 3d 50 25 3a 50 |T%<>else| V%=P%:P|
|00002f70| 25 3d 4c 31 25 3a f2 4a | 4d 43 28 56 25 29 3a 50 |%=L1%:.J|MC(V%):P|
|00002f80| 25 3d 56 25 3a e1 0d 13 | ec 2e 4c 32 25 3d 50 25 |%=V%:...|..L2%=P%|
|00002f90| 3a f2 4a 4d 50 28 30 29 | 3a 56 25 3d 50 25 3a 50 |:.JMP(0)|:V%=P%:P|
|00002fa0| 25 3d 4c 31 25 3a f2 4a | 4d 43 28 56 25 29 3a 50 |%=L1%:.J|MC(V%):P|
|00002fb0| 25 3d 56 25 0d 13 f6 07 | f2 4c 58 0d 14 00 1f e7 |%=V%....|.LX.....|
|00002fc0| 54 25 3d 6c 69 6e 6f 20 | f2 4a 4d 28 53 4e 25 29 |T%=lino |.JM(SN%)|
|00002fd0| 3a f2 4c 58 3a e5 8d 54 | 54 54 0d 14 0a 0a f2 73 |:.LX:..T|TT.....s|
|00002fe0| 74 61 74 65 0d 14 14 15 | e7 54 25 3d 63 6f 6c 3a |tate....|.T%=col:|
|00002ff0| f2 4c 58 3a e5 8d 54 4a | 54 0d 14 1e 21 56 25 3d |.LX:..TJ|T...!V%=|
|00003000| 50 25 3a 50 25 3d 4c 32 | 25 3a f2 4a 4d 50 28 56 |P%:P%=L2|%:.JMP(V|
|00003010| 25 29 3a 50 25 3d 56 25 | 3a e1 0d 14 28 05 3a 0d |%):P%=V%|:...(.:.|
|00003020| 14 32 16 dd f2 66 6f 72 | 3a ea 53 54 25 2c 4c 31 |.2...for|:.ST%,L1|
|00003030| 25 3a f2 4c 58 0d 14 3c | 16 f2 43 28 69 64 29 3a |%:.LX..<|..C(id):|
|00003040| 53 54 25 3d 53 4e 25 3a | f2 4c 58 0d 14 46 13 f2 |ST%=SN%:|.LX..F..|
|00003050| 43 28 65 71 29 3a f2 4c | 58 3a f2 65 78 70 0d 14 |C(eq):.L|X:.exp..|
|00003060| 50 11 f2 53 54 41 28 73 | 61 28 53 54 25 29 29 0d |P..STA(s|a(ST%)).|
|00003070| 14 5a 13 f2 43 28 74 6f | 29 3a f2 4c 58 3a f2 65 |.Z..C(to|):.LX:.e|
|00003080| 78 70 0d 14 64 1e e7 54 | 25 3d 73 74 65 70 20 f2 |xp..d..T|%=step .|
|00003090| 4c 58 3a f2 65 78 70 20 | 8b f2 4c 44 4c 28 31 29 |LX:.exp |..LDL(1)|
|000030a0| 0d 14 6e 0e f2 4c 58 3a | 4c 31 25 3d 50 25 0d 14 |..n..LX:|L1%=P%..|
|000030b0| 78 1a e7 54 25 3d 65 6f | 70 20 84 54 25 3d 6e 65 |x..T%=eo|p .T%=ne|
|000030c0| 78 74 20 e5 8d 74 4c 54 | 0d 14 82 25 f2 73 74 61 |xt ..tLT|...%.sta|
|000030d0| 74 65 3a e7 54 25 3d 63 | 6f 6c 20 84 54 25 3d 65 |te:.T%=c|ol .T%=e|
|000030e0| 6f 6c 6e 20 f2 4c 58 3a | e5 8d 44 78 54 0d 14 8c |oln .LX:|..DxT...|
|000030f0| 2c f2 43 28 6e 65 78 74 | 29 3a f2 4c 58 3a f2 45 |,.C(next|):.LX:.E|
|00003100| 53 43 41 50 45 3a f2 4e | 58 54 28 73 61 28 53 54 |SCAPE:.N|XT(sa(ST|
|00003110| 25 29 2c 4c 31 25 29 3a | e1 0d 14 96 05 3a 0d 14 |%),L1%):|.....:..|
|00003120| a0 2e dd f2 67 6f 74 6f | 3a f2 4c 58 3a f2 43 28 |....goto|:.LX:.C(|
|00003130| 6c 69 6e 6f 29 3a f2 45 | 53 43 41 50 45 3a f2 4a |lino):.E|SCAPE:.J|
|00003140| 4d 28 53 4e 25 29 3a f2 | 4c 58 3a e1 0d 14 aa 05 |M(SN%):.|LX:.....|
|00003150| 3a 0d 14 b4 19 dd f2 72 | 65 70 3a ea 4c 31 25 3a |:......r|ep:.L1%:|
|00003160| f2 4c 58 3a 4c 31 25 3d | 50 25 0d 14 be 19 e7 54 |.LX:L1%=|P%.....T|
|00003170| 25 3d 65 6f 70 20 84 54 | 25 3d 75 6e 74 20 e5 8d |%=eop .T|%=unt ..|
|00003180| 64 52 54 0d 14 c8 25 f2 | 73 74 61 74 65 3a e7 54 |dRT...%.|state:.T|
|00003190| 25 3d 63 6f 6c 20 84 54 | 25 3d 65 6f 6c 6e 20 f2 |%=col .T|%=eoln .|
|000031a0| 4c 58 3a e5 8d 74 7e 54 | 0d 14 d2 14 f2 43 28 75 |LX:..t~T|.....C(u|
|000031b0| 6e 74 29 3a f2 4c 58 3a | f2 65 78 70 0d 14 dc 17 |nt):.LX:|.exp....|
|000031c0| f2 45 53 43 41 50 45 3a | f2 4a 4d 43 28 4c 31 25 |.ESCAPE:|.JMC(L1%|
|000031d0| 29 3a e1 0d 14 e6 05 3a | 0d 14 f0 1c dd f2 77 68 |):.....:|......wh|
|000031e0| 69 6c 65 3a ea 20 4c 31 | 25 2c 4c 32 25 3a 4c 31 |ile:. L1|%,L2%:L1|
|000031f0| 25 3d 50 25 0d 14 fa 1b | f2 4c 58 3a f2 65 78 70 |%=P%....|.LX:.exp|
|00003200| 3a 4c 32 25 3d 50 25 3a | f2 4a 4d 43 28 30 29 0d |:L2%=P%:|.JMC(0).|
|00003210| 15 04 1b e7 54 25 3d 65 | 6f 70 20 84 54 25 3d 65 |....T%=e|op .T%=e|
|00003220| 6e 64 77 68 20 e5 8d 54 | 58 55 0d 15 0e 25 f2 73 |ndwh ..T|XU...%.s|
|00003230| 74 61 74 65 3a e7 54 25 | 3d 63 6f 6c 20 84 54 25 |tate:.T%|=col .T%|
|00003240| 3d 65 6f 6c 6e 20 f2 4c | 58 3a e5 8d 54 44 55 0d |=eoln .L|X:..TDU.|
|00003250| 15 18 23 f2 43 28 65 6e | 64 77 68 29 3a f2 4c 58 |..#.C(en|dwh):.LX|
|00003260| 3a f2 45 53 43 41 50 45 | 3a f2 4a 4d 50 28 4c 31 |:.ESCAPE|:.JMP(L1|
|00003270| 25 29 0d 15 22 1f 56 25 | 3d 50 25 3a 50 25 3d 4c |%)..".V%|=P%:P%=L|
|00003280| 32 25 3a f2 4a 4d 43 28 | 56 25 29 3a 50 25 3d 56 |2%:.JMC(|V%):P%=V|
|00003290| 25 0d 15 2c 05 e1 0d 15 | 36 05 3a 0d 15 40 0b dd |%..,....|6.:..@..|
|000032a0| f2 73 6f 75 6e 64 0d 15 | 4a 16 f2 4c 58 3a f2 65 |.sound..|J..LX:.e|
|000032b0| 78 70 3a f2 43 28 63 6f | 6d 6d 61 29 0d 15 54 16 |xp:.C(co|mma)..T.|
|000032c0| f2 4c 58 3a f2 65 78 70 | 3a f2 43 28 63 6f 6d 6d |.LX:.exp|:.C(comm|
|000032d0| 61 29 0d 15 5e 16 f2 4c | 58 3a f2 65 78 70 3a f2 |a)..^..L|X:.exp:.|
|000032e0| 43 28 63 6f 6d 6d 61 29 | 0d 15 68 11 f2 4c 58 3a |C(comma)|..h..LX:|
|000032f0| f2 65 78 70 3a f2 53 4e | 44 0d 15 72 05 e1 0d 15 |.exp:.SN|D..r....|
|00003300| 7c 05 3a 0d 15 86 1f dd | f2 76 6f 69 63 65 73 3a ||.:.....|.voices:|
|00003310| f2 4c 58 3a f2 65 78 70 | 3a f2 56 4f 49 43 45 53 |.LX:.exp|:.VOICES|
|00003320| 3a e1 0d 15 90 05 3a 0d | 15 9a 59 dd f2 73 77 61 |:.....:.|..Y..swa|
|00003330| 70 3a ea 20 53 54 25 3a | f2 4c 58 3a f2 43 28 69 |p:. ST%:|.LX:.C(i|
|00003340| 64 29 3a 53 54 25 3d 53 | 4e 25 3a f2 4c 58 3a f2 |d):ST%=S|N%:.LX:.|
|00003350| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 43 28 |C(comma)|:.LX:.C(|
|00003360| 69 64 29 3a f2 53 57 41 | 50 28 73 61 28 53 54 25 |id):.SWA|P(sa(ST%|
|00003370| 29 2c 73 61 28 53 4e 25 | 29 29 3a f2 4c 58 3a e1 |),sa(SN%|)):.LX:.|
|00003380| 0d 15 a4 05 3a 0d 15 ae | 26 dd f2 74 69 6d 65 3a |....:...|&..time:|
|00003390| f2 4c 58 3a f2 43 28 65 | 71 29 3a f2 4c 58 3a f2 |.LX:.C(e|q):.LX:.|
|000033a0| 65 78 70 3a f2 54 49 4d | 45 3a e1 0d 15 b8 1a dd |exp:.TIM|E:......|
|000033b0| f2 6d 6f 75 73 65 3a ea | 53 54 31 25 2c 53 54 32 |.mouse:.|ST1%,ST2|
|000033c0| 25 3a f2 4c 58 0d 15 c2 | 7c e7 54 25 3d 69 64 20 |%:.LX...||.T%=id |
|000033d0| 53 54 31 25 3d 53 4e 25 | 3a f2 4c 58 3a f2 43 28 |ST1%=SN%|:.LX:.C(|
|000033e0| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 43 28 69 64 |comma):.|LX:.C(id|
|000033f0| 29 3a 53 54 32 25 3d 53 | 4e 25 3a f2 4c 58 3a f2 |):ST2%=S|N%:.LX:.|
|00003400| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 43 28 |C(comma)|:.LX:.C(|
|00003410| 69 64 29 3a f2 4d 4f 55 | 53 45 53 54 41 54 55 53 |id):.MOU|SESTATUS|
|00003420| 28 73 61 28 53 54 31 25 | 29 2c 73 61 28 53 54 32 |(sa(ST1%|),sa(ST2|
|00003430| 25 29 2c 73 61 28 53 4e | 25 29 29 3a f2 4c 58 3a |%),sa(SN|%)):.LX:|
|00003440| e1 0d 15 cc 0c e7 54 25 | 3d 6f 6e 20 8c 0d 15 d6 |......T%|=on ....|
|00003450| 1b f2 4c 58 3a e7 a4 45 | 58 50 20 f2 65 78 70 20 |..LX:..E|XP .exp |
|00003460| 8b f2 4c 44 4c 28 31 29 | 0d 15 e0 0e f2 4d 4f 55 |..LDL(1)|.....MOU|
|00003470| 53 45 4c 49 4e 4b 0d 15 | ea 05 e1 0d 15 f4 05 cd |SELINK..|........|
|00003480| 0d 15 fe 24 e7 54 25 3d | 6f 66 66 20 f2 4c 58 3a |...$.T%=|off .LX:|
|00003490| f2 4c 44 4c 28 30 29 3a | f2 4d 4f 55 53 45 4c 49 |.LDL(0):|.MOUSELI|
|000034a0| 4e 4b 3a e1 0d 16 08 78 | e7 54 25 3d 63 6f 6c 6f |NK:....x|.T%=colo|
|000034b0| 75 72 20 f2 56 44 4c 28 | 31 39 29 3a f2 4c 58 3a |ur .VDL(|19):.LX:|
|000034c0| f2 65 78 70 3a f2 56 44 | 55 3a f2 43 28 63 6f 6d |.exp:.VD|U:.C(com|
|000034d0| 6d 61 29 3a f2 56 44 4c | 28 32 35 29 3a f2 4c 58 |ma):.VDL|(25):.LX|
|000034e0| 3a f2 65 78 70 3a f2 56 | 44 55 3a f2 43 28 63 6f |:.exp:.V|DU:.C(co|
|000034f0| 6d 6d 61 29 3a f2 4c 58 | 3a f2 65 78 70 3a f2 56 |mma):.LX|:.exp:.V|
|00003500| 44 55 3a f2 43 28 63 6f | 6d 6d 61 29 3a f2 4c 58 |DU:.C(co|mma):.LX|
|00003510| 3a f2 65 78 70 3a f2 56 | 44 55 3a e1 0d 16 12 31 |:.exp:.V|DU:....1|
|00003520| e7 54 25 3d 74 6f 20 f2 | 4c 58 3a f2 65 78 70 3a |.T%=to .|LX:.exp:|
|00003530| f2 43 28 63 6f 6d 6d 61 | 29 3a f2 4c 58 3a f2 65 |.C(comma|):.LX:.e|
|00003540| 78 70 3a f2 4d 4f 55 53 | 45 54 4f 3a e1 0d 16 1c |xp:.MOUS|ETO:....|
|00003550| 0e e7 54 25 3d 73 74 65 | 70 20 8c 0d 16 26 49 f2 |..T%=ste|p ...&I.|
|00003560| 4c 58 3a f2 65 78 70 3a | e7 54 25 3c 3e 63 6f 6d |LX:.exp:|.T%<>com|
|00003570| 6d 61 20 f2 4d 4f 55 53 | 45 53 54 45 50 31 41 3a |ma .MOUS|ESTEP1A:|
|00003580| e1 20 8b f2 43 28 63 6f | 6d 6d 61 29 3a f2 4c 58 |. ..C(co|mma):.LX|
|00003590| 3a f2 65 78 70 3a f2 4d | 4f 55 53 45 53 54 45 50 |:.exp:.M|OUSESTEP|
|000035a0| 32 41 3a e1 0d 16 30 05 | cd 0d 16 3a 5f e7 54 25 |2A:...0.|...:_.T%|
|000035b0| 3d 72 65 63 74 61 6e 67 | 6c 65 20 f2 4c 58 3a f2 |=rectang|le .LX:.|
|000035c0| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|000035d0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|000035e0| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 63 6f 6d |:.LX:.ex|p:.C(com|
|000035f0| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 4d 4f |ma):.LX:|.exp:.MO|
|00003600| 55 53 45 52 45 43 3a e1 | 0d 16 44 0a f2 45 52 52 |USEREC:.|..D..ERR|
|00003610| 3a e1 0d 16 4e 46 dd f2 | 73 74 61 72 63 6f 6d 6d |:...NF..|starcomm|
|00003620| 61 6e 64 3a f2 4c 58 3a | 63 6f 6e 73 74 73 74 72 |and:.LX:|conststr|
|00003630| 69 6e 67 24 28 4e 43 53 | 54 25 29 3d 53 24 3a 4e |ing$(NCS|T%)=S$:N|
|00003640| 43 53 54 25 2b 3d 31 3a | f2 53 54 41 52 28 4e 43 |CST%+=1:|.STAR(NC|
|00003650| 53 54 25 2d 31 29 3a e1 | 0d 16 58 05 3a 0d 16 62 |ST%-1):.|..X.:..b|
|00003660| 55 dd f2 73 79 73 3a ea | 20 53 46 25 2c 53 53 25 |U..sys:.| SF%,SS%|
|00003670| 3a f2 4c 58 3a e7 54 25 | 3d 63 6f 6e 73 74 20 4e |:.LX:.T%|=const N|
|00003680| 25 3d 4e 20 8b f2 43 28 | 73 74 72 69 6e 67 29 3a |%=N ..C(|string):|
|00003690| c8 99 20 22 4f 53 5f 53 | 57 49 4e 75 6d 62 65 72 |.. "OS_S|WINumber|
|000036a0| 46 72 6f 6d 53 74 72 69 | 6e 67 22 2c 2c 53 24 b8 |FromStri|ng",,S$.|
|000036b0| 4e 25 0d 16 6c 46 f2 4c | 58 3a 53 46 25 3d 30 3a |N%..lF.L|X:SF%=0:|
|000036c0| c8 95 20 54 25 3c 3e 65 | 6f 6c 6e 20 80 54 25 3c |.. T%<>e|oln .T%<|
|000036d0| 3e 63 6f 6c 20 80 54 25 | 3c 3e 74 6f 20 f2 43 28 |>col .T%|<>to .C(|
|000036e0| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 65 78 70 3a |comma):.|LX:.exp:|
|000036f0| 53 46 25 2b 3d 31 3a ce | 0d 16 76 2a e7 54 25 3c |SF%+=1:.|..v*.T%<|
|00003700| 3e 65 6f 6c 6e 20 80 54 | 25 3c 3e 63 6f 6c 20 f2 |>eoln .T|%<>col .|
|00003710| 43 28 74 6f 29 20 8b 53 | 53 25 3d 30 3a e5 8d 74 |C(to) .S|S%=0:..t|
|00003720| 4a 56 0d 16 80 6f f2 4c | 58 3a f2 43 28 69 64 29 |JV...o.L|X:.C(id)|
|00003730| 3a 4d 50 25 28 30 29 3d | 73 61 28 53 4e 25 29 3a |:MP%(0)=|sa(SN%):|
|00003740| f2 4c 58 3a 53 53 25 3d | 31 3a c8 95 20 54 25 3c |.LX:SS%=|1:.. T%<|
|00003750| 3e 65 6f 6c 6e 20 80 54 | 25 3c 3e 63 6f 6c 3a f2 |>eoln .T|%<>col:.|
|00003760| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 43 28 |C(comma)|:.LX:.C(|
|00003770| 69 64 29 3a 4d 50 25 28 | 53 53 25 29 3d 73 61 28 |id):MP%(|SS%)=sa(|
|00003780| 53 4e 25 29 3a f2 4c 58 | 3a 53 53 25 2b 3d 31 3a |SN%):.LX|:SS%+=1:|
|00003790| ce 0d 16 8a 14 f2 53 59 | 53 28 4e 25 2c 53 46 25 |......SY|S(N%,SF%|
|000037a0| 2c 53 53 25 29 0d 16 94 | 05 e1 0d 16 9e 2a dd f2 |,SS%)...|.....*..|
|000037b0| 61 73 73 74 72 69 6e 67 | 3a ea 53 54 25 3a 53 54 |asstring|:.ST%:ST|
|000037c0| 25 3d 53 4e 25 3a f2 4c | 58 3a f2 43 28 65 71 29 |%=SN%:.L|X:.C(eq)|
|000037d0| 3a f2 4c 58 0d 16 a8 1f | e7 54 25 3d 6c 65 66 74 |:.LX....|.T%=left|
|000037e0| 73 74 72 20 f2 6c 65 66 | 74 73 74 72 28 53 54 25 |str .lef|tstr(ST%|
|000037f0| 29 3a e1 0d 16 b2 1d e7 | 54 25 3d 6d 69 64 73 74 |):......|T%=midst|
|00003800| 72 20 f2 6d 69 64 73 74 | 72 28 53 54 25 29 3a e1 |r .midst|r(ST%):.|
|00003810| 0d 16 bc 21 e7 54 25 3d | 72 69 67 68 74 73 74 72 |...!.T%=|rightstr|
|00003820| 20 f2 72 69 67 68 74 73 | 74 72 28 53 54 25 29 3a | .rights|tr(ST%):|
|00003830| e1 0d 16 c6 0e f2 73 74 | 72 69 6e 67 65 78 70 0d |......st|ringexp.|
|00003840| 16 d0 1b e7 54 25 3c 3e | 63 6f 6c 20 80 54 25 3c |....T%<>|col .T%<|
|00003850| 3e 65 6f 6c 6e 20 f2 45 | 52 52 0d 16 da 16 f2 53 |>eoln .E|RR.....S|
|00003860| 54 4f 52 45 53 54 52 28 | 73 61 28 53 54 25 29 29 |TORESTR(|sa(ST%))|
|00003870| 0d 16 e4 05 e1 0d 16 ee | 05 3a 0d 16 f8 39 dd f2 |........|.:...9..|
|00003880| 6f 73 63 6c 69 3a f2 4c | 58 3a f2 43 28 6c 62 29 |oscli:.L|X:.C(lb)|
|00003890| 3a f2 4c 58 3a f2 73 74 | 72 69 6e 67 65 78 70 3a |:.LX:.st|ringexp:|
|000038a0| f2 43 28 72 62 29 3a f2 | 4f 53 43 4c 49 3a f2 4c |.C(rb):.|OSCLI:.L|
|000038b0| 58 3a e1 0d 17 02 05 3a | 0d 17 0c 0f dd f2 73 74 |X:.....:|......st|
|000038c0| 72 69 6e 67 65 78 70 0d | 17 16 0c f2 45 4d 50 54 |ringexp.|....EMPT|
|000038d0| 59 54 42 0d 17 20 1f e7 | 54 25 3d 73 74 72 69 6e |YTB.. ..|T%=strin|
|000038e0| 67 20 f2 43 4f 4e 53 54 | 52 28 4e 43 53 54 25 2d |g .CONST|R(NCST%-|
|000038f0| 31 29 0d 17 2a 19 e7 54 | 25 3d 73 69 64 20 f2 53 |1)..*..T|%=sid .S|
|00003900| 54 52 28 73 61 28 53 4e | 25 29 29 0d 17 34 16 e7 |TR(sa(SN|%))..4..|
|00003910| 54 25 3d 67 65 74 73 74 | 72 20 f2 47 45 54 53 54 |T%=getst|r .GETST|
|00003920| 52 0d 17 3e 1a f2 4c 58 | 3a e7 54 25 3d 70 6c 75 |R..>..LX|:.T%=plu|
|00003930| 73 20 f2 4c 58 3a e5 8d | 54 60 57 0d 17 48 05 e1 |s .LX:..|T`W..H..|
|00003940| 0d 17 52 53 dd f2 6c 65 | 66 74 73 74 72 28 53 54 |..RS..le|ftstr(ST|
|00003950| 25 29 3a f2 4c 58 3a f2 | 73 74 72 69 6e 67 65 78 |%):.LX:.|stringex|
|00003960| 70 3a f2 43 28 63 6f 6d | 6d 61 29 3a f2 4c 58 3a |p:.C(com|ma):.LX:|
|00003970| f2 65 78 70 3a f2 43 28 | 72 62 29 3a f2 4c 45 46 |.exp:.C(|rb):.LEF|
|00003980| 54 53 54 52 28 73 61 28 | 53 54 25 29 29 3a f2 4c |TSTR(sa(|ST%)):.L|
|00003990| 58 3a e1 0d 17 5c 64 dd | f2 6d 69 64 73 74 72 28 |X:...\d.|.midstr(|
|000039a0| 53 54 25 29 3a f2 4c 58 | 3a f2 73 74 72 69 6e 67 |ST%):.LX|:.string|
|000039b0| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|000039c0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|000039d0| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 72 62 29 |:.LX:.ex|p:.C(rb)|
|000039e0| 3a f2 4d 49 44 53 54 52 | 28 73 61 28 53 54 25 29 |:.MIDSTR|(sa(ST%)|
|000039f0| 29 3a f2 4c 58 3a e1 0d | 17 66 55 dd f2 72 69 67 |):.LX:..|.fU..rig|
|00003a00| 68 74 73 74 72 28 53 54 | 25 29 3a f2 4c 58 3a f2 |htstr(ST|%):.LX:.|
|00003a10| 73 74 72 69 6e 67 65 78 | 70 3a f2 43 28 63 6f 6d |stringex|p:.C(com|
|00003a20| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 43 28 |ma):.LX:|.exp:.C(|
|00003a30| 72 62 29 3a f2 52 49 47 | 48 54 53 54 52 28 73 61 |rb):.RIG|HTSTR(sa|
|00003a40| 28 53 54 25 29 29 3a f2 | 4c 58 3a e1 0d 17 70 0b |(ST%)):.|LX:...p.|
|00003a50| dd f2 70 72 69 6e 74 0d | 17 7a 07 f2 4c 58 0d 17 |..print.|.z..LX..|
|00003a60| 84 26 e7 54 25 3d 73 71 | 75 6f 74 65 20 f2 56 44 |.&.T%=sq|uote .VD|
|00003a70| 4c 28 31 33 29 3a f2 56 | 44 4c 28 31 30 29 3a e5 |L(13):.V|DL(10):.|
|00003a80| 8d 44 7a 57 0d 17 8e 12 | e7 54 25 3d 73 63 6f 6c |.DzW....|.T%=scol|
|00003a90| 20 e5 8d 44 7a 57 0d 17 | 98 22 e7 54 25 3d 73 69 | ..DzW..|.".T%=si|
|00003aa0| 64 20 f2 50 52 49 53 54 | 52 28 73 61 28 53 4e 25 |d .PRIST|R(sa(SN%|
|00003ab0| 29 29 3a e5 8d 44 7a 57 | 0d 17 a2 28 e7 54 25 3d |)):..DzW|...(.T%=|
|00003ac0| 73 74 72 69 6e 67 20 f2 | 50 52 49 43 4f 4e 53 54 |string .|PRICONST|
|00003ad0| 52 28 4e 43 53 54 25 2d | 31 29 3a e5 8d 44 7a 57 |R(NCST%-|1):..DzW|
|00003ae0| 0d 17 ac 20 e7 54 25 3d | 73 70 63 62 20 f2 4c 58 |... .T%=|spcb .LX|
|00003af0| 3a f2 65 78 70 3a f2 53 | 50 43 3a e5 8d 74 44 57 |:.exp:.S|PC:..tDW|
|00003b00| 0d 17 b6 1c e7 54 25 3d | 63 6f 6d 6d 61 20 f2 56 |.....T%=|comma .V|
|00003b10| 44 4c 28 33 32 29 3a e5 | 8d 44 7a 57 0d 17 c0 4e |DL(32):.|.DzW...N|
|00003b20| e7 54 25 3d 74 61 62 20 | 54 31 25 3d 54 25 3a f2 |.T%=tab |T1%=T%:.|
|00003b30| 56 44 4c 28 33 31 29 3a | f2 4c 58 3a f2 65 78 70 |VDL(31):|.LX:.exp|
|00003b40| 3a f2 56 44 55 3a f2 43 | 28 63 6f 6d 6d 61 29 3a |:.VDU:.C|(comma):|
|00003b50| f2 4c 58 3a f2 65 78 70 | 3a f2 56 44 55 3a f2 43 |.LX:.exp|:.VDU:.C|
|00003b60| 28 72 62 29 3a e5 8d 44 | 7a 57 0d 17 ca 1c e7 a4 |(rb):..D|zW......|
|00003b70| 45 58 50 20 f2 65 78 70 | 3a f2 50 52 49 45 58 50 |EXP .exp|:.PRIEXP|
|00003b80| 3a e5 8d 74 44 57 0d 17 | d4 1f e7 54 25 3c 3e 73 |:..tDW..|...T%<>s|
|00003b90| 63 6f 6c 20 f2 56 44 4c | 28 31 33 29 3a f2 56 44 |col .VDL|(13):.VD|
|00003ba0| 4c 28 31 30 29 0d 17 de | 05 e1 0d 17 e8 0f dd f2 |L(10)...|........|
|00003bb0| 69 6e 70 75 74 3a f2 4c | 58 0d 17 f2 2c e7 54 25 |input:.L|X...,.T%|
|00003bc0| 3d 73 74 72 69 6e 67 20 | f2 50 52 49 43 4f 4e 53 |=string |.PRICONS|
|00003bd0| 54 52 28 4e 43 53 54 25 | 2d 31 29 3a f2 4c 58 3a |TR(NCST%|-1):.LX:|
|00003be0| e5 8d 54 46 58 0d 17 fc | 2b f2 56 44 4c 28 97 22 |..TFX...|+.VDL(."|
|00003bf0| 3f 22 29 3a e7 54 25 3d | 63 6f 6d 6d 61 20 84 54 |?"):.T%=|comma .T|
|00003c00| 25 3d 73 63 6f 6c 20 f2 | 4c 58 20 8b f2 45 52 52 |%=scol .|LX ..ERR|
|00003c10| 0d 18 06 30 e7 54 25 3d | 73 69 64 20 f2 73 74 72 |...0.T%=|sid .str|
|00003c20| 69 6e 67 69 6e 70 75 74 | 20 8b e7 54 25 3d 69 64 |inginput| ..T%=id|
|00003c30| 20 f2 76 61 72 69 6e 70 | 75 74 20 8b f2 45 52 52 | .varinp|ut ..ERR|
|00003c40| 0d 18 10 05 e1 0d 18 1a | 28 dd f2 73 74 72 69 6e |........|(..strin|
|00003c50| 67 69 6e 70 75 74 3a f2 | 53 49 4e 50 55 54 28 73 |ginput:.|SINPUT(s|
|00003c60| 61 28 53 4e 25 29 29 3a | f2 4c 58 3a e1 0d 18 24 |a(SN%)):|.LX:...$|
|00003c70| 25 dd f2 76 61 72 69 6e | 70 75 74 3a f2 56 49 4e |%..varin|put:.VIN|
|00003c80| 50 55 54 28 73 61 28 53 | 4e 25 29 29 3a f2 4c 58 |PUT(sa(S|N%)):.LX|
|00003c90| 3a e1 0d 18 2e aa dd a4 | 45 58 50 3a 3d 20 54 25 |:.......|EXP:= T%|
|00003ca0| 3d 70 6c 75 73 20 84 54 | 25 3d 6d 69 6e 75 73 20 |=plus .T|%=minus |
|00003cb0| 84 54 25 3d 6c 62 20 84 | 54 25 3d 69 6e 6b 65 79 |.T%=lb .|T%=inkey|
|00003cc0| 20 84 54 25 3d 69 64 20 | 84 54 25 3d 61 69 64 20 | .T%=id |.T%=aid |
|00003cd0| 84 54 25 3d 63 6f 6e 73 | 74 20 84 54 25 3d 73 71 |.T%=cons|t .T%=sq|
|00003ce0| 72 20 84 54 25 3d 73 69 | 6e 20 84 54 25 3d 72 6e |r .T%=si|n .T%=rn|
|00003cf0| 64 20 84 54 25 3d 63 6f | 73 20 84 54 25 3d 70 69 |d .T%=co|s .T%=pi|
|00003d00| 20 84 54 25 3d 66 6c 20 | 84 54 25 3d 74 72 20 84 | .T%=fl |.T%=tr .|
|00003d10| 54 25 3d 67 65 74 20 84 | 54 25 3d 6e 6f 74 20 84 |T%=get .|T%=not .|
|00003d20| 54 25 3d 70 6f 69 6e 74 | 20 84 54 25 3d 74 69 6e |T%=point| .T%=tin|
|00003d30| 74 20 84 54 25 3d 74 69 | 6d 65 72 69 0d 18 38 05 |t .T%=ti|meri..8.|
|00003d40| 3a 0d 18 42 14 dd f2 65 | 78 70 3a ea 54 31 25 3a |:..B...e|xp:.T1%:|
|00003d50| f2 65 65 78 70 0d 18 4c | 16 e7 54 25 3c 3e 6f 72 |.eexp..L|..T%<>or|
|00003d60| 20 80 54 25 3c 3e 65 6f | 72 20 e1 0d 18 56 13 54 | .T%<>eo|r ...V.T|
|00003d70| 31 25 3d 54 25 3a f2 4c | 58 3a f2 65 78 70 0d 18 |1%=T%:.L|X:.exp..|
|00003d80| 60 1e e7 54 31 25 3d 6f | 72 20 f2 4f 52 20 8b e7 |`..T1%=o|r .OR ..|
|00003d90| 54 31 25 3d 65 6f 72 20 | f2 45 4f 52 0d 18 6a 05 |T1%=eor |.EOR..j.|
|00003da0| e1 0d 18 74 05 3a 0d 18 | 7e 15 dd f2 65 65 78 70 |...t.:..|~...eexp|
|00003db0| 3a ea 54 31 25 3a f2 61 | 65 78 70 0d 18 88 0e e7 |:.T1%:.a|exp.....|
|00003dc0| 54 25 3c 3e 61 6e 64 20 | e1 0d 18 92 14 54 31 25 |T%<>and |.....T1%|
|00003dd0| 3d 54 25 3a f2 4c 58 3a | f2 65 65 78 70 0d 18 9c |=T%:.LX:|.eexp...|
|00003de0| 11 e7 54 31 25 3d 61 6e | 64 20 f2 41 4e 44 0d 18 |..T1%=an|d .AND..|
|00003df0| a6 05 e1 0d 18 b0 15 dd | f2 61 65 78 70 3a ea 54 |........|.aexp:.T|
|00003e00| 31 25 3a f2 73 65 78 70 | 0d 18 ba 38 e7 54 25 3c |1%:.sexp|...8.T%<|
|00003e10| 3e 67 74 20 80 54 25 3c | 3e 6c 74 20 80 54 25 3c |>gt .T%<|>lt .T%<|
|00003e20| 3e 67 65 71 20 80 54 25 | 3c 3e 6c 65 71 20 80 54 |>geq .T%|<>leq .T|
|00003e30| 25 3c 3e 65 71 20 80 54 | 25 3c 3e 6e 65 71 20 e1 |%<>eq .T|%<>neq .|
|00003e40| 0d 18 c4 14 54 31 25 3d | 54 25 3a f2 4c 58 3a f2 |....T1%=|T%:.LX:.|
|00003e50| 73 65 78 70 0d 18 ce 59 | e7 54 31 25 3d 67 74 20 |sexp...Y|.T1%=gt |
|00003e60| f2 47 54 54 20 8b e7 54 | 31 25 3d 6c 74 20 f2 4c |.GTT ..T|1%=lt .L|
|00003e70| 54 54 20 8b e7 54 31 25 | 3d 67 65 71 20 f2 47 45 |TT ..T1%|=geq .GE|
|00003e80| 51 20 8b e7 54 31 25 3d | 6c 65 71 20 f2 4c 45 51 |Q ..T1%=|leq .LEQ|
|00003e90| 20 8b e7 54 31 25 3d 65 | 71 20 f2 45 51 55 20 8b | ..T1%=e|q .EQU .|
|00003ea0| e7 54 31 25 3d 6e 65 71 | 20 f2 4e 45 51 0d 18 d8 |.T1%=neq| .NEQ...|
|00003eb0| 05 e1 0d 18 e2 0a dd f2 | 73 65 78 70 0d 18 ec 4f |........|sexp...O|
|00003ec0| e7 54 25 3d 70 6c 75 73 | 20 f2 4c 58 3a f2 74 65 |.T%=plus| .LX:.te|
|00003ed0| 72 6d 20 8b e7 54 25 3d | 6d 69 6e 75 73 20 f2 4c |rm ..T%=|minus .L|
|00003ee0| 58 3a f2 74 65 72 6d 3a | f2 4e 45 47 20 8b e7 54 |X:.term:|.NEG ..T|
|00003ef0| 25 3d 6e 6f 74 20 f2 4c | 58 3a f2 74 65 72 6d 3a |%=not .L|X:.term:|
|00003f00| f2 4e 4f 54 20 8b f2 74 | 65 72 6d 0d 18 f6 41 e7 |.NOT ..t|erm...A.|
|00003f10| 54 25 3d 70 6c 75 73 20 | f2 4c 58 3a f2 74 65 72 |T%=plus |.LX:.ter|
|00003f20| 6d 3a f2 41 44 44 3a e5 | 8d 64 76 58 20 8b e7 54 |m:.ADD:.|.dvX ..T|
|00003f30| 25 3d 6d 69 6e 75 73 20 | f2 4c 58 3a f2 74 65 72 |%=minus |.LX:.ter|
|00003f40| 6d 3a f2 53 55 42 3a e5 | 8d 64 76 58 0d 19 00 05 |m:.SUB:.|.dvX....|
|00003f50| e1 0d 19 0a 24 dd f2 66 | 61 63 74 6f 72 3a ea 20 |....$..f|actor:. |
|00003f60| 53 54 25 2c 54 46 25 3a | 53 54 25 3d 53 4e 25 3a |ST%,TF%:|ST%=SN%:|
|00003f70| 54 46 25 3d a3 0d 19 14 | 29 e7 54 25 3d 70 6c 75 |TF%=....|).T%=plu|
|00003f80| 73 20 84 54 25 3d 6d 69 | 6e 75 73 20 84 54 25 3d |s .T%=mi|nus .T%=|
|00003f90| 6e 6f 74 20 54 46 25 3d | 54 25 3a f2 4c 58 0d 19 |not TF%=|T%:.LX..|
|00003fa0| 1e 22 e7 54 25 3d 69 64 | 20 f2 4c 58 3a f2 4c 44 |.".T%=id| .LX:.LD|
|00003fb0| 41 28 73 61 28 53 54 25 | 29 29 3a e5 8d 74 74 59 |A(sa(ST%|)):..ttY|
|00003fc0| 0d 19 28 42 e7 54 25 3d | 61 69 64 20 f2 4c 58 3a |..(B.T%=|aid .LX:|
|00003fd0| f2 43 28 6c 62 29 3a f2 | 4c 58 3a f2 6c 65 72 6d |.C(lb):.|LX:.lerm|
|00003fe0| 3a f2 43 28 72 62 29 3a | f2 4c 44 41 61 72 72 28 |:.C(rb):|.LDAarr(|
|00003ff0| 73 61 28 53 54 25 29 29 | 3a f2 4c 58 3a e5 8d 74 |sa(ST%))|:.LX:..t|
|00004000| 74 59 0d 19 32 1f e7 54 | 25 3d 63 6f 6e 73 74 20 |tY..2..T|%=const |
|00004010| f2 4c 58 3a f2 4c 44 4c | 28 4e 29 3a e5 8d 74 74 |.LX:.LDL|(N):..tt|
|00004020| 59 0d 19 3c 1d e7 54 25 | 3d 6c 62 20 f2 4c 58 3a |Y..<..T%|=lb .LX:|
|00004030| f2 65 78 70 3a f2 4c 58 | 3a e5 8d 74 74 59 0d 19 |.exp:.LX|:..ttY..|
|00004040| 46 22 e7 54 25 3d 69 6e | 6b 65 79 20 f2 4c 58 3a |F".T%=in|key .LX:|
|00004050| f2 6c 65 72 6d 3a f2 49 | 4e 4b 3a e5 8d 74 74 59 |.lerm:.I|NK:..ttY|
|00004060| 0d 19 50 20 e7 54 25 3d | 61 62 73 20 f2 4c 58 3a |..P .T%=|abs .LX:|
|00004070| f2 6c 65 72 6d 3a f2 41 | 42 53 3a e5 8d 74 74 59 |.lerm:.A|BS:..ttY|
|00004080| 0d 19 5a 1a e7 54 25 3d | 67 65 74 20 f2 4c 58 3a |..Z..T%=|get .LX:|
|00004090| f2 47 45 54 3a e5 8d 74 | 74 59 0d 19 64 20 e7 54 |.GET:..t|tY..d .T|
|000040a0| 25 3d 73 71 72 20 f2 4c | 58 3a f2 6c 65 72 6d 3a |%=sqr .L|X:.lerm:|
|000040b0| f2 53 51 52 3a e5 8d 74 | 74 59 0d 19 6e 36 e7 54 |.SQR:..t|tY..n6.T|
|000040c0| 25 3d 72 6e 64 20 f2 4c | 58 3a f2 43 28 6c 62 29 |%=rnd .L|X:.C(lb)|
|000040d0| 3a f2 4c 58 3a f2 6c 65 | 72 6d 3a f2 43 28 72 62 |:.LX:.le|rm:.C(rb|
|000040e0| 29 3a f2 52 4e 44 3a f2 | 4c 58 3a e5 8d 74 74 59 |):.RND:.|LX:..ttY|
|000040f0| 0d 19 78 43 e7 54 25 3d | 70 6f 69 6e 74 20 f2 4c |..xC.T%=|point .L|
|00004100| 58 3a f2 6c 65 72 6d 3a | f2 43 28 63 6f 6d 6d 61 |X:.lerm:|.C(comma|
|00004110| 29 3a f2 4c 58 3a f2 6c | 65 72 6d 3a f2 50 4f 49 |):.LX:.l|erm:.POI|
|00004120| 4e 54 3a f2 43 28 72 62 | 29 3a f2 4c 58 3a e5 8d |NT:.C(rb|):.LX:..|
|00004130| 74 74 59 0d 19 82 4d e7 | 54 25 3d 74 69 6e 74 20 |ttY...M.|T%=tint |
|00004140| f2 4c 58 3a f2 43 28 6c | 62 29 3a f2 4c 58 3a f2 |.LX:.C(l|b):.LX:.|
|00004150| 6c 65 72 6d 3a f2 43 28 | 63 6f 6d 6d 61 29 3a f2 |lerm:.C(|comma):.|
|00004160| 4c 58 3a f2 6c 65 72 6d | 3a f2 52 54 49 4e 54 3a |LX:.lerm|:.RTINT:|
|00004170| f2 43 28 72 62 29 3a f2 | 4c 58 3a e5 8d 74 74 59 |.C(rb):.|LX:..ttY|
|00004180| 0d 19 8c 1f e7 54 25 3d | 74 69 6d 65 72 69 20 f2 |.....T%=|timeri .|
|00004190| 4c 58 3a f2 52 54 49 4d | 45 3a e5 8d 74 74 59 0d |LX:.RTIM|E:..ttY.|
|000041a0| 19 96 1d e7 54 25 3d 74 | 72 20 f2 4c 58 3a f2 4c |....T%=t|r .LX:.L|
|000041b0| 44 4c 28 2d 31 29 3a e5 | 8d 74 74 59 0d 19 a0 1c |DL(-1):.|.ttY....|
|000041c0| e7 54 25 3d 66 6c 20 f2 | 4c 58 3a f2 4c 44 4c 28 |.T%=fl .|LX:.LDL(|
|000041d0| 30 29 3a e5 8d 74 74 59 | 0d 19 aa 0b f2 43 28 31 |0):..ttY|.....C(1|
|000041e0| 29 3a e1 0d 19 b4 09 f2 | 6b 65 72 6d 0d 19 be 05 |):......|kerm....|
|000041f0| e1 0d 19 c8 0a dd f2 74 | 65 72 6d 0d 19 d2 0b f2 |.......t|erm.....|
|00004200| 66 61 63 74 6f 72 0d 19 | dc 70 e7 54 25 3d 74 69 |factor..|.p.T%=ti|
|00004210| 6d 65 73 20 f2 4c 58 3a | f2 66 61 63 74 6f 72 3a |mes .LX:|.factor:|
|00004220| f2 4d 55 4c 3a e5 8d 64 | 5c 59 20 8b e7 28 54 25 |.MUL:..d|\Y ..(T%|
|00004230| 3d 73 6c 61 73 68 20 84 | 54 25 3d 64 69 76 29 20 |=slash .|T%=div) |
|00004240| f2 4c 58 3a f2 66 61 63 | 74 6f 72 3a f2 44 49 56 |.LX:.fac|tor:.DIV|
|00004250| 3a e5 8d 64 5c 59 20 8b | e7 54 25 3d 6d 6f 64 20 |:..d\Y .|.T%=mod |
|00004260| f2 4c 58 3a f2 66 61 63 | 74 6f 72 3a f2 4d 4f 44 |.LX:.fac|tor:.MOD|
|00004270| 3a e5 8d 64 5c 59 0d 19 | e6 05 e1 0d 19 f0 0a dd |:..d\Y..|........|
|00004280| f2 6c 65 72 6d 0d 19 fa | 57 e7 54 25 3d 70 6c 75 |.lerm...|W.T%=plu|
|00004290| 73 20 f2 4c 58 3a f2 66 | 61 63 74 6f 72 20 8b e7 |s .LX:.f|actor ..|
|000042a0| 54 25 3d 6d 69 6e 75 73 | 20 f2 4c 58 3a f2 66 61 |T%=minus| .LX:.fa|
|000042b0| 63 74 6f 72 3a f2 4e 45 | 47 20 8b e7 54 25 3d 6e |ctor:.NE|G ..T%=n|
|000042c0| 6f 74 20 f2 4c 58 3a f2 | 66 61 63 74 6f 72 3a f2 |ot .LX:.|factor:.|
|000042d0| 4e 4f 54 20 8b f2 66 61 | 63 74 6f 72 0d 1a 04 05 |NOT ..fa|ctor....|
|000042e0| e1 0d 1a 0e 0a dd f2 6b | 65 72 6d 0d 1a 18 22 e7 |.......k|erm...".|
|000042f0| 54 46 25 3d 6d 69 6e 75 | 73 20 f2 4e 45 47 20 8b |TF%=minu|s .NEG .|
|00004300| e7 54 46 25 3d 6e 6f 74 | 20 f2 4e 4f 54 0d 1a 22 |.TF%=not| .NOT.."|
|00004310| 05 e1 0d 1a 2c 05 3a 0d | 1a 36 14 dd f2 43 28 41 |....,.:.|.6...C(A|
|00004320| 25 29 3a e7 54 25 3d 41 | 25 20 e1 0d 1a 40 17 f2 |%):.T%=A|% ...@..|
|00004330| 53 31 3a f1 27 27 22 20 | 4d 69 73 73 69 6e 67 20 |S1:.''" |Missing |
|00004340| 22 3b 0d 1a 4a 7c e7 41 | 25 3e 31 32 37 20 80 41 |";..J|.A|%>127 .A|
|00004350| 25 3c 3e 6c 69 6e 6f 20 | d6 20 74 6f 6b 65 6e 70 |%<>lino |. tokenp|
|00004360| 72 69 6e 74 20 8b e7 41 | 25 3d 31 20 f2 72 65 70 |rint ..A|%=1 .rep|
|00004370| 6f 72 74 28 22 4d 69 73 | 73 69 6e 67 20 65 78 70 |ort("Mis|sing exp|
|00004380| 72 65 73 73 69 6f 6e 22 | 2c 31 37 29 3b 20 8b e7 |ression"|,17); ..|
|00004390| 41 25 3d 6c 69 6e 6f 20 | f2 72 65 70 6f 72 74 28 |A%=lino |.report(|
|000043a0| 22 4d 69 73 73 69 6e 67 | 20 6c 69 6e 65 20 6e 75 |"Missing| line nu|
|000043b0| 6d 62 65 72 22 2c 31 37 | 29 20 8b ef 41 25 0d 1a |mber",17|) ..A%..|
|000043c0| 54 09 e5 8d 44 72 5a 0d | 1a 5e 29 dd f2 45 52 52 |T...DrZ.|.^)..ERR|
|000043d0| 3a f2 53 31 3a f2 72 65 | 70 6f 72 74 28 22 20 53 |:.S1:.re|port(" S|
|000043e0| 79 6e 74 61 78 20 65 72 | 72 6f 72 22 2c 31 37 29 |yntax er|ror",17)|
|000043f0| 0d 1a 68 0b dd f2 53 55 | 42 45 52 0d 1a 72 13 f1 |..h...SU|BER..r..|
|00004400| 3a d9 23 66 69 6c 65 6e | 61 6d 65 25 3a e0 0d 1a |:.#filen|ame%:...|
|00004410| 7c 0e dd f2 74 6f 6b 65 | 6e 61 73 73 0d 1a 86 14 ||...toke|nass....|
|00004420| de 20 74 6f 6b 65 6e 73 | 70 61 63 65 20 31 32 38 |. tokens|pace 128|
|00004430| 0d 1a 90 10 e3 70 61 73 | 73 3d 30 b8 32 20 88 32 |.....pas|s=0.2 .2|
|00004440| 0d 1a 9a 11 50 25 3d 74 | 6f 6b 65 6e 73 70 61 63 |....P%=t|okenspac|
|00004450| 65 0d 1a a4 0d 5b 4f 50 | 54 20 70 61 73 73 0d 1a |e....[OP|T pass..|
|00004460| ae 0f 2e 74 6f 6b 65 6e | 70 72 69 6e 74 0d 1a b8 |...token|print...|
|00004470| 1f 53 54 4d 46 44 20 52 | 31 33 21 2c 7b 52 31 34 |.STMFD R|13!,{R14|
|00004480| 7d 3a 4d 4f 56 20 52 35 | 2c 52 31 34 0d 1a c2 55 |}:MOV R5|,R14...U|
|00004490| 43 4d 50 20 52 30 2c 23 | 32 35 35 3a 41 44 52 48 |CMP R0,#|255:ADRH|
|000044a0| 49 20 52 31 32 2c 74 6f | 6b 65 6e 62 75 66 66 3a |I R12,to|kenbuff:|
|000044b0| 53 55 42 48 49 20 52 30 | 2c 52 30 2c 23 32 35 36 |SUBHI R0|,R0,#256|
|000044c0| 3a 53 54 52 48 49 20 52 | 30 2c 74 6f 6b 65 6e 62 |:STRHI R|0,tokenb|
|000044d0| 75 66 66 3a 4d 4f 56 48 | 49 20 52 30 2c 23 32 30 |uff:MOVH|I R0,#20|
|000044e0| 30 0d 1a cc 1f 41 44 52 | 20 52 31 34 2c 62 61 63 |0....ADR| R14,bac|
|000044f0| 6b 3a 41 44 44 20 50 43 | 2c 52 35 2c 23 26 34 43 |k:ADD PC|,R5,#&4C|
|00004500| 0d 1a d6 09 2e 62 61 63 | 6b 0d 1a e0 0f 2e 74 6f |.....bac|k.....to|
|00004510| 6b 65 6e 70 6c 6f 6f 70 | 0d 1a ea 13 4c 44 52 42 |kenploop|....LDRB|
|00004520| 20 52 30 2c 5b 52 31 5d | 2c 23 31 0d 1a f4 0f 43 | R0,[R1]|,#1....C|
|00004530| 4d 50 20 52 30 2c 23 26 | 37 46 0d 1a fe 15 53 57 |MP R0,#&|7F....SW|
|00004540| 49 43 43 20 22 4f 53 5f | 57 72 69 74 65 43 22 0d |ICC "OS_|WriteC".|
|00004550| 1b 08 12 42 43 43 20 74 | 6f 6b 65 6e 70 6c 6f 6f |...BCC t|okenploo|
|00004560| 70 0d 1b 12 13 4c 44 4d | 46 44 20 52 31 33 21 2c |p....LDM|FD R13!,|
|00004570| 7b 50 43 7d 0d 1b 1c 16 | 2e 74 6f 6b 65 6e 62 75 |{PC}....|.tokenbu|
|00004580| 66 66 20 45 51 55 44 28 | 30 29 0d 1b 26 05 5d 0d |ff EQUD(|0)..&.].|
|00004590| 1b 30 05 ed 0d 1b 3a 05 | e1 0d 1b 44 0d dd f2 72 |.0....:.|...D...r|
|000045a0| 75 6e 74 69 6d 65 0d 1b | 4e 32 73 74 61 63 6b 70 |untime..|N2stackp|
|000045b0| 3d 31 32 3a 63 6f 6e 73 | 74 62 61 73 65 3d 31 31 |=12:cons|tbase=11|
|000045c0| 3a 74 65 6d 70 73 74 72 | 69 6e 67 3d 31 30 3a 76 |:tempstr|ing=10:v|
|000045d0| 61 72 62 61 73 65 3d 39 | 0d 1b 58 10 e3 70 61 73 |arbase=9|..X..pas|
|000045e0| 73 3d 30 b8 32 20 88 32 | 0d 1b 62 0e 50 25 3d 70 |s=0.2 .2|..b.P%=p|
|000045f0| 72 6f 67 72 61 6d 0d 1b | 6c 0d 5b 4f 50 54 20 70 |rogram..|l.[OPT p|
|00004600| 61 73 73 0d 1b 76 0f 2e | 67 6f 20 42 20 73 65 74 |ass..v..|go B set|
|00004610| 75 70 0d 1b 80 0d 2e 64 | 69 76 69 73 69 6f 6e 0d |up.....d|ivision.|
|00004620| 1b 8a 59 4c 44 4d 45 41 | 20 52 31 32 21 2c 7b 52 |..YLDMEA| R12!,{R|
|00004630| 30 2c 52 31 7d 3a 80 53 | 20 52 36 2c 52 30 2c 23 |0,R1}:.S| R6,R0,#|
|00004640| 31 3c 3c 33 31 3a 52 53 | 42 4d 49 20 52 30 2c 52 |1<<31:RS|BMI R0,R|
|00004650| 30 2c 23 30 3a 82 20 52 | 35 2c 52 36 2c 52 31 3a |0,#0:. R|5,R6,R1:|
|00004660| 43 4d 50 20 52 31 2c 23 | 30 3a 52 53 42 4d 49 20 |CMP R1,#|0:RSBMI |
|00004670| 52 31 2c 52 31 2c 23 30 | 0d 1b 94 25 4d 4f 56 20 |R1,R1,#0|...%MOV |
|00004680| 52 32 2c 23 30 3a 4d 4f | 56 20 52 33 2c 23 30 3a |R2,#0:MO|V R3,#0:|
|00004690| 4d 4f 56 20 52 34 2c 23 | 31 3c 3c 33 31 0d 1b 9e |MOV R4,#|1<<31...|
|000046a0| 78 2e 64 69 76 69 73 69 | 6f 6e 6c 6f 6f 70 20 4d |x.divisi|onloop M|
|000046b0| 4f 56 53 20 52 30 2c 52 | 30 2c 41 53 4c 23 31 3a |OVS R0,R|0,ASL#1:|
|000046c0| 41 44 43 20 52 32 2c 52 | 32 2c 52 32 3a 43 4d 50 |ADC R2,R|2,R2:CMP|
|000046d0| 20 52 32 2c 52 31 3a 53 | 55 42 47 45 20 52 32 2c | R2,R1:S|UBGE R2,|
|000046e0| 52 32 2c 52 31 3a 84 52 | 47 45 20 52 33 2c 52 33 |R2,R1:.R|GE R3,R3|
|000046f0| 2c 52 34 3a 4d 4f 56 53 | 20 52 34 2c 52 34 2c 4c |,R4:MOVS| R4,R4,L|
|00004700| 53 52 23 31 3a 42 4e 45 | 20 64 69 76 69 73 69 6f |SR#1:BNE| divisio|
|00004710| 6e 6c 6f 6f 70 0d 1b a8 | 35 43 4d 50 20 52 35 2c |nloop...|5CMP R5,|
|00004720| 23 30 3a 52 53 42 4d 49 | 20 52 33 2c 52 33 2c 23 |#0:RSBMI| R3,R3,#|
|00004730| 30 3a 43 4d 50 20 52 36 | 2c 23 30 3a 52 53 42 4d |0:CMP R6|,#0:RSBM|
|00004740| 49 20 52 32 2c 52 32 2c | 23 30 0d 1b b2 0e 4d 4f |I R2,R2,|#0....MO|
|00004750| 56 20 50 43 2c 52 31 34 | 0d 1b bc 14 5d 3a e7 20 |V PC,R14|....]:. |
|00004760| 63 68 6b 66 6f 72 65 73 | 63 25 20 8c 0d 1b c6 19 |chkfores|c% .....|
|00004770| 5b 4f 50 54 20 70 61 73 | 73 3a 2e 65 73 63 61 70 |[OPT pas|s:.escap|
|00004780| 65 63 6f 64 65 0d 1b d0 | 47 4d 4f 56 20 52 30 2c |ecode...|GMOV R0,|
|00004790| 23 26 37 45 3a 53 57 49 | 20 22 4f 53 5f 42 79 74 |#&7E:SWI| "OS_Byt|
|000047a0| 65 22 3a 41 44 52 20 52 | 30 2c 65 73 63 61 70 65 |e":ADR R|0,escape|
|000047b0| 62 6c 6f 63 6b 3a 53 57 | 49 20 22 4f 53 5f 47 65 |block:SW|I "OS_Ge|
|000047c0| 6e 65 72 61 74 65 45 72 | 72 6f 72 22 0d 1b da 31 |nerateEr|ror"...1|
|000047d0| 2e 65 73 63 61 70 65 62 | 6c 6f 63 6b 20 45 51 55 |.escapeb|lock EQU|
|000047e0| 44 28 31 37 29 3a 45 51 | 55 53 22 45 73 63 61 70 |D(17):EQ|US"Escap|
|000047f0| 65 22 2b bd 30 3a 41 4c | 49 47 4e 3a 5d 0d 1b e4 |e"+.0:AL|IGN:]...|
|00004800| 05 cd 0d 1b ee a0 5b 4f | 50 54 20 70 61 73 73 3a |......[O|PT pass:|
|00004810| 2e 63 6f 6e 73 74 6f 66 | 66 20 45 51 55 44 28 30 |.constof|f EQUD(0|
|00004820| 29 3a 2e 61 72 72 61 79 | 74 61 62 6c 65 6f 66 66 |):.array|tableoff|
|00004830| 20 45 51 55 44 28 30 29 | 3a 2e 63 6f 6e 73 74 73 | EQUD(0)|:.consts|
|00004840| 74 72 69 6e 67 6f 66 66 | 20 45 51 55 44 28 30 29 |tringoff| EQUD(0)|
|00004850| 3a 2e 73 74 72 69 6e 67 | 6f 66 66 20 45 51 55 44 |:.string|off EQUD|
|00004860| 28 30 29 3a 2e 74 65 6d | 70 73 74 72 69 6e 67 6f |(0):.tem|pstringo|
|00004870| 66 66 20 45 51 55 44 28 | 30 29 3a 2e 61 72 72 61 |ff EQUD(|0):.arra|
|00004880| 79 64 61 74 61 6f 66 66 | 20 45 51 55 44 28 30 29 |ydataoff| EQUD(0)|
|00004890| 3a 2e 73 74 61 63 6b 6f | 66 66 20 45 51 55 44 28 |:.stacko|ff EQUD(|
|000048a0| 30 29 0d 1b f8 0a 2e 73 | 65 74 75 70 0d 1c 02 35 |0).....s|etup...5|
|000048b0| 4c 44 52 20 63 6f 6e 73 | 74 62 61 73 65 2c 63 6f |LDR cons|tbase,co|
|000048c0| 6e 73 74 6f 66 66 3a 41 | 44 44 20 63 6f 6e 73 74 |nstoff:A|DD const|
|000048d0| 62 61 73 65 2c 50 43 2c | 63 6f 6e 73 74 62 61 73 |base,PC,|constbas|
|000048e0| 65 0d 1c 0c 42 4c 44 52 | 20 52 30 2c 61 72 72 61 |e...BLDR| R0,arra|
|000048f0| 79 74 61 62 6c 65 6f 66 | 66 3a 41 44 44 20 52 30 |ytableof|f:ADD R0|
|00004900| 2c 52 30 2c 63 6f 6e 73 | 74 62 61 73 65 3a 53 54 |,R0,cons|tbase:ST|
|00004910| 52 20 52 30 2c 5b 63 6f | 6e 73 74 62 61 73 65 2c |R R0,[co|nstbase,|
|00004920| 23 30 5d 0d 1c 16 3c 4c | 44 52 20 52 31 2c 63 6f |#0]...<L|DR R1,co|
|00004930| 6e 73 74 73 74 72 69 6e | 67 6f 66 66 3a 41 44 44 |nststrin|goff:ADD|
|00004940| 20 52 31 2c 52 31 2c 52 | 30 3a 53 54 52 20 52 31 | R1,R1,R|0:STR R1|
|00004950| 2c 5b 63 6f 6e 73 74 62 | 61 73 65 2c 23 34 5d 0d |,[constb|ase,#4].|
|00004960| 1c 20 37 4c 44 52 20 52 | 32 2c 73 74 72 69 6e 67 |. 7LDR R|2,string|
|00004970| 6f 66 66 3a 41 44 44 20 | 52 32 2c 52 32 2c 52 31 |off:ADD |R2,R2,R1|
|00004980| 3a 53 54 52 20 52 32 2c | 5b 63 6f 6e 73 74 62 61 |:STR R2,|[constba|
|00004990| 73 65 2c 23 38 5d 0d 1c | 2a 3d 4c 44 52 20 74 65 |se,#8]..|*=LDR te|
|000049a0| 6d 70 73 74 72 69 6e 67 | 2c 74 65 6d 70 73 74 72 |mpstring|,tempstr|
|000049b0| 69 6e 67 6f 66 66 3a 41 | 44 44 20 74 65 6d 70 73 |ingoff:A|DD temps|
|000049c0| 74 72 69 6e 67 2c 74 65 | 6d 70 73 74 72 69 6e 67 |tring,te|mpstring|
|000049d0| 2c 52 32 0d 1c 34 1f 41 | 44 44 20 76 61 72 62 61 |,R2..4.A|DD varba|
|000049e0| 73 65 2c 74 65 6d 70 73 | 74 72 69 6e 67 2c 23 32 |se,temps|tring,#2|
|000049f0| 35 36 0d 1c 3e 40 4c 44 | 52 20 52 33 2c 61 72 72 |56..>@LD|R R3,arr|
|00004a00| 61 79 64 61 74 61 6f 66 | 66 3a 41 44 44 20 52 33 |aydataof|f:ADD R3|
|00004a10| 2c 52 33 2c 76 61 72 62 | 61 73 65 3a 53 54 52 20 |,R3,varb|ase:STR |
|00004a20| 52 33 2c 5b 63 6f 6e 73 | 74 62 61 73 65 2c 23 31 |R3,[cons|tbase,#1|
|00004a30| 32 5d 0d 1c 48 2c 4c 44 | 52 20 73 74 61 63 6b 70 |2]..H,LD|R stackp|
|00004a40| 2c 73 74 61 63 6b 6f 66 | 66 3a 41 44 44 20 73 74 |,stackof|f:ADD st|
|00004a50| 61 63 6b 70 2c 73 74 61 | 63 6b 70 2c 52 33 0d 1c |ackp,sta|ckp,R3..|
|00004a60| 52 18 53 54 4d 45 41 20 | 52 31 32 21 2c 7b 52 31 |R.STMEA |R12!,{R1|
|00004a70| 33 2c 52 31 34 7d 0d 1c | 5c ab 53 57 49 20 22 4f |3,R14}..|\.SWI "O|
|00004a80| 53 5f 57 72 69 74 65 53 | 22 3a 45 51 55 53 22 43 |S_WriteS|":EQUS"C|
|00004a90| 6f 6d 70 69 6c 65 64 20 | 75 73 69 6e 67 20 74 68 |ompiled |using th|
|00004aa0| 65 20 42 61 73 69 63 20 | 42 41 53 49 43 20 43 6f |e Basic |BASIC Co|
|00004ab0| 6d 70 69 6c 65 72 20 62 | 79 20 50 65 74 65 72 20 |mpiler b|y Peter |
|00004ac0| 4a 6f 6e 65 73 22 3a 45 | 51 55 42 28 31 33 29 3a |Jones":E|QUB(13):|
|00004ad0| 45 51 55 53 22 a9 20 53 | 6f 66 74 53 74 75 66 66 |EQUS". S|oftStuff|
|00004ae0| 20 31 39 39 34 22 3a 45 | 51 55 42 28 31 33 29 3a | 1994":E|QUB(13):|
|00004af0| 45 51 55 53 22 55 6e 72 | 65 67 69 73 74 65 72 65 |EQUS"Unr|egistere|
|00004b00| 64 20 76 65 72 73 69 6f | 6e 22 3a 45 51 55 42 28 |d versio|n":EQUB(|
|00004b10| 31 30 29 3a 45 51 55 42 | 28 30 29 3a 41 4c 49 47 |10):EQUB|(0):ALIG|
|00004b20| 4e 0d 1c 66 06 5d ed 0d | 1c 70 05 e1 0d 1c 7a 05 |N..f.]..|.p....z.|
|00004b30| 3a 0d 1c 84 43 dd f2 45 | 53 43 41 50 45 3a e7 63 |:...C..E|SCAPE:.c|
|00004b40| 68 6b 66 6f 72 65 73 63 | 25 20 5b 53 57 49 20 22 |hkforesc|% [SWI "|
|00004b50| 4f 53 5f 52 65 61 64 45 | 73 63 61 70 65 53 74 61 |OS_ReadE|scapeSta|
|00004b60| 74 65 22 3a 42 43 53 20 | 65 73 63 61 70 65 63 6f |te":BCS |escapeco|
|00004b70| 64 65 3a 5d 0d 1c 8e 05 | e1 0d 1c 98 34 dd f2 53 |de:]....|....4..S|
|00004b80| 4e 44 3a 5b 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |ND:[LDME|A R12!,{|
|00004b90| 52 30 2d 52 33 7d 3a 53 | 57 49 20 22 53 6f 75 6e |R0-R3}:S|WI "Soun|
|00004ba0| 64 5f 43 6f 6e 74 72 6f | 6c 22 3a 5d e1 0d 1c a2 |d_Contro|l":]....|
|00004bb0| 5e dd f2 56 4f 49 43 45 | 53 3a 5b 4c 44 4d 45 41 |^..VOICE|S:[LDMEA|
|00004bc0| 20 52 31 32 21 2c 7b 52 | 30 7d 3a 4d 4f 56 20 52 | R12!,{R|0}:MOV R|
|00004bd0| 31 2c 23 30 3a 4d 4f 56 | 20 52 32 2c 23 30 3a 4d |1,#0:MOV| R2,#0:M|
|00004be0| 4f 56 20 52 33 2c 23 30 | 3a 4d 4f 56 20 52 34 2c |OV R3,#0|:MOV R4,|
|00004bf0| 23 30 3a 53 57 49 20 22 | 53 6f 75 6e 64 5f 43 6f |#0:SWI "|Sound_Co|
|00004c00| 6e 66 69 67 75 72 65 22 | 3a 5d e1 0d 1c ac 1c dd |nfigure"|:]......|
|00004c10| f2 56 44 4c 28 4c 25 29 | 3a 5b 53 57 49 20 32 35 |.VDL(L%)|:[SWI 25|
|00004c20| 36 2b 4c 25 3a 5d e1 0d | 1c b6 2d dd f2 56 44 55 |6+L%:]..|..-..VDU|
|00004c30| 3a 5b 4c 44 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |:[LDMEA |R12!,{R0|
|00004c40| 7d 3a 53 57 49 20 22 4f | 53 5f 57 72 69 74 65 43 |}:SWI "O|S_WriteC|
|00004c50| 22 3a 5d e1 0d 1c c0 73 | dd f2 56 44 44 3a 5b 4c |":]....s|..VDD:[L|
|00004c60| 44 4d 45 41 20 52 31 32 | 21 2c 7b 52 30 7d 3a 80 |DMEA R12|!,{R0}:.|
|00004c70| 20 52 31 2c 52 30 2c 23 | 26 46 46 30 30 3a 4d 4f | R1,R0,#|&FF00:MO|
|00004c80| 56 20 52 31 2c 52 31 2c | 41 53 52 23 38 3a 80 20 |V R1,R1,|ASR#8:. |
|00004c90| 52 30 2c 52 30 2c 23 26 | 46 46 3a 53 57 49 20 22 |R0,R0,#&|FF:SWI "|
|00004ca0| 4f 53 5f 57 72 69 74 65 | 43 22 3a 4d 4f 56 20 52 |OS_Write|C":MOV R|
|00004cb0| 30 2c 52 31 3a 53 57 49 | 20 22 4f 53 5f 57 72 69 |0,R1:SWI| "OS_Wri|
|00004cc0| 74 65 43 22 3a 5d e1 0d | 1c ca 3e dd f2 50 4c 54 |teC":]..|..>..PLT|
|00004cd0| 4c 28 4c 25 29 3a 5b 4c | 44 4d 45 41 20 52 31 32 |L(L%):[L|DMEA R12|
|00004ce0| 21 2c 7b 52 31 2c 52 32 | 7d 3a 4d 4f 56 20 52 30 |!,{R1,R2|}:MOV R0|
|00004cf0| 2c 23 4c 25 3a 53 57 49 | 20 22 4f 53 5f 50 6c 6f |,#L%:SWI| "OS_Plo|
|00004d00| 74 22 3a 5d e1 0d 1c d4 | 5b dd f2 50 4f 49 4e 54 |t":]....|[..POINT|
|00004d10| 3a 5b 4c 44 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |:[LDMEA |R12!,{R0|
|00004d20| 2c 52 31 7d 3a 53 57 49 | 20 22 4f 53 5f 52 65 61 |,R1}:SWI| "OS_Rea|
|00004d30| 64 50 6f 69 6e 74 22 3a | 43 4d 50 20 52 34 2c 23 |dPoint":|CMP R4,#|
|00004d40| 30 3a 4d 56 4e 4d 49 20 | 52 32 2c 23 30 3a 53 54 |0:MVNMI |R2,#0:ST|
|00004d50| 4d 45 41 20 52 31 32 21 | 2c 7b 52 32 7d 3a 5d e1 |MEA R12!|,{R2}:].|
|00004d60| 0d 1c de 5b dd f2 52 54 | 49 4e 54 3a 5b 4c 44 4d |...[..RT|INT:[LDM|
|00004d70| 45 41 20 52 31 32 21 2c | 7b 52 30 2c 52 31 7d 3a |EA R12!,|{R0,R1}:|
|00004d80| 53 57 49 20 22 4f 53 5f | 52 65 61 64 50 6f 69 6e |SWI "OS_|ReadPoin|
|00004d90| 74 22 3a 43 4d 50 20 52 | 34 2c 23 30 3a 4d 56 4e |t":CMP R|4,#0:MVN|
|00004da0| 4d 49 20 52 33 2c 23 30 | 3a 53 54 4d 45 41 20 52 |MI R3,#0|:STMEA R|
|00004db0| 31 32 21 2c 7b 52 33 7d | 3a 5d e1 0d 1c e8 2f dd |12!,{R3}|:]..../.|
|00004dc0| f2 50 4c 4f 54 3a 5b 4c | 44 4d 45 41 20 52 31 32 |.PLOT:[L|DMEA R12|
|00004dd0| 21 2c 7b 52 30 2d 52 32 | 7d 3a 53 57 49 20 22 4f |!,{R0-R2|}:SWI "O|
|00004de0| 53 5f 50 6c 6f 74 22 3a | 5d e1 0d 1c f2 da dd f2 |S_Plot":|].......|
|00004df0| 52 45 43 54 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |RECT:[LD|MEA R12!|
|00004e00| 2c 7b 52 33 2c 52 34 7d | 3a 4d 4f 56 20 52 30 2c |,{R3,R4}|:MOV R0,|
|00004e10| 23 34 3a 4d 4f 56 20 52 | 31 2c 52 33 3a 4d 4f 56 |#4:MOV R|1,R3:MOV|
|00004e20| 20 52 32 2c 52 34 3a 53 | 57 49 20 22 4f 53 5f 50 | R2,R4:S|WI "OS_P|
|00004e30| 6c 6f 74 22 3a 4c 44 4d | 45 41 20 52 31 32 2c 21 |lot":LDM|EA R12,!|
|00004e40| 7b 52 33 2c 52 34 7d 3a | 4d 4f 56 20 52 30 2c 23 |{R3,R4}:|MOV R0,#|
|00004e50| 31 3a 4d 4f 56 20 52 31 | 2c 52 33 3a 4d 4f 56 20 |1:MOV R1|,R3:MOV |
|00004e60| 52 32 2c 23 30 3a 53 57 | 49 20 22 4f 53 5f 50 6c |R2,#0:SW|I "OS_Pl|
|00004e70| 6f 74 22 3a 4d 4f 56 20 | 52 31 2c 23 30 3a 4d 4f |ot":MOV |R1,#0:MO|
|00004e80| 56 20 52 32 2c 52 34 3a | 53 57 49 20 22 4f 53 5f |V R2,R4:|SWI "OS_|
|00004e90| 50 6c 6f 74 22 3a 4d 4f | 56 20 52 31 2c 52 33 3a |Plot":MO|V R1,R3:|
|00004ea0| 52 53 42 20 52 31 2c 52 | 31 2c 23 30 3a 4d 4f 56 |RSB R1,R|1,#0:MOV|
|00004eb0| 20 52 32 2c 23 30 3a 53 | 57 49 20 22 4f 53 5f 50 | R2,#0:S|WI "OS_P|
|00004ec0| 6c 6f 74 22 0d 1c fc 35 | 4d 4f 56 20 52 31 2c 23 |lot"...5|MOV R1,#|
|00004ed0| 30 3a 4d 4f 56 20 52 32 | 2c 52 34 3a 52 53 42 20 |0:MOV R2|,R4:RSB |
|00004ee0| 52 32 2c 52 32 2c 23 30 | 3a 53 57 49 20 22 4f 53 |R2,R2,#0|:SWI "OS|
|00004ef0| 5f 50 6c 6f 74 22 3a 5d | e1 0d 1d 06 73 dd f2 4d |_Plot":]|....s..M|
|00004f00| 4f 55 53 45 53 54 41 54 | 55 53 28 41 31 25 2c 41 |OUSESTAT|US(A1%,A|
|00004f10| 32 25 2c 41 33 25 29 3a | 5b 53 57 49 20 22 4f 53 |2%,A3%):|[SWI "OS|
|00004f20| 5f 4d 6f 75 73 65 22 3a | 53 54 52 20 52 30 2c 5b |_Mouse":|STR R0,[|
|00004f30| 76 61 72 62 61 73 65 2c | 23 41 31 25 5d 3a 53 54 |varbase,|#A1%]:ST|
|00004f40| 52 20 52 31 2c 5b 76 61 | 72 62 61 73 65 2c 23 41 |R R1,[va|rbase,#A|
|00004f50| 32 25 5d 3a 53 54 52 20 | 52 32 2c 5b 76 61 72 62 |2%]:STR |R2,[varb|
|00004f60| 61 73 65 2c 23 41 33 25 | 5d 3a 5d e1 0d 1d 10 3d |ase,#A3%|]:]....=|
|00004f70| dd f2 4d 4f 55 53 45 4c | 49 4e 4b 3a 5b 4c 44 4d |..MOUSEL|INK:[LDM|
|00004f80| 45 41 20 52 31 32 21 2c | 7b 52 31 7d 3a 4d 4f 56 |EA R12!,|{R1}:MOV|
|00004f90| 20 52 30 2c 23 31 30 36 | 3a 53 57 49 20 22 4f 53 | R0,#106|:SWI "OS|
|00004fa0| 5f 42 79 74 65 22 3a 5d | e1 0d 1d 1a 84 dd f2 4d |_Byte":]|.......M|
|00004fb0| 4f 55 53 45 54 4f 3a 5b | 4c 44 4d 45 41 20 52 31 |OUSETO:[|LDMEA R1|
|00004fc0| 32 21 2c 7b 52 32 2c 52 | 33 7d 3a 4d 4f 56 20 52 |2!,{R2,R|3}:MOV R|
|00004fd0| 31 2c 74 65 6d 70 73 74 | 72 69 6e 67 3a 4d 4f 56 |1,tempst|ring:MOV|
|00004fe0| 20 52 30 2c 23 33 3a 53 | 54 52 42 20 52 30 2c 5b | R0,#3:S|TRB R0,[|
|00004ff0| 52 31 5d 3a 53 54 52 20 | 52 32 2c 5b 52 31 2c 23 |R1]:STR |R2,[R1,#|
|00005000| 31 5d 3a 53 54 52 20 52 | 33 2c 5b 52 31 2c 23 33 |1]:STR R|3,[R1,#3|
|00005010| 5d 3a 4d 4f 56 20 52 30 | 2c 23 32 31 3a 53 57 49 |]:MOV R0|,#21:SWI|
|00005020| 20 22 4f 53 5f 57 6f 72 | 64 22 3a 5d e1 0d 1d 24 | "OS_Wor|d":]...$|
|00005030| 87 dd f2 4d 4f 55 53 45 | 53 54 45 50 31 41 3a 5b |...MOUSE|STEP1A:[|
|00005040| 4c 44 4d 45 41 20 52 31 | 32 21 2c 7b 52 32 7d 3a |LDMEA R1|2!,{R2}:|
|00005050| 4d 4f 56 20 52 31 2c 74 | 65 6d 70 73 74 72 69 6e |MOV R1,t|empstrin|
|00005060| 67 3a 4d 4f 56 20 52 30 | 2c 23 32 3a 53 54 52 42 |g:MOV R0|,#2:STRB|
|00005070| 20 52 30 2c 5b 52 31 5d | 3a 53 54 52 42 20 52 32 | R0,[R1]|:STRB R2|
|00005080| 2c 5b 52 31 2c 23 31 5d | 3a 53 54 52 42 20 52 32 |,[R1,#1]|:STRB R2|
|00005090| 2c 5b 52 31 2c 23 32 5d | 3a 4d 4f 56 20 52 30 2c |,[R1,#2]|:MOV R0,|
|000050a0| 23 32 31 3a 53 57 49 20 | 22 4f 53 5f 57 6f 72 64 |#21:SWI |"OS_Word|
|000050b0| 22 3a 5d e1 0d 1d 2e 8a | dd f2 4d 4f 55 53 45 53 |":].....|..MOUSES|
|000050c0| 54 45 50 32 41 3a 5b 4c | 44 4d 45 41 20 52 31 32 |TEP2A:[L|DMEA R12|
|000050d0| 21 2c 7b 52 32 2c 52 33 | 7d 3a 4d 4f 56 20 52 31 |!,{R2,R3|}:MOV R1|
|000050e0| 2c 74 65 6d 70 73 74 72 | 69 6e 67 3a 4d 4f 56 20 |,tempstr|ing:MOV |
|000050f0| 52 30 2c 23 32 3a 53 54 | 52 42 20 52 30 2c 5b 52 |R0,#2:ST|RB R0,[R|
|00005100| 31 5d 3a 53 54 52 42 20 | 52 32 2c 5b 52 31 2c 23 |1]:STRB |R2,[R1,#|
|00005110| 31 5d 3a 53 54 52 42 20 | 52 33 2c 5b 52 31 2c 23 |1]:STRB |R3,[R1,#|
|00005120| 32 5d 3a 4d 4f 56 20 52 | 30 2c 23 32 31 3a 53 57 |2]:MOV R|0,#21:SW|
|00005130| 49 20 22 4f 53 5f 57 6f | 72 64 22 3a 5d e1 0d 1d |I "OS_Wo|rd":]...|
|00005140| 38 d5 dd f2 4d 4f 55 53 | 45 52 45 43 3a 5b 4c 44 |8...MOUS|EREC:[LD|
|00005150| 4d 45 41 20 52 31 32 21 | 2c 7b 52 32 2d 52 35 7d |MEA R12!|,{R2-R5}|
|00005160| 3a 41 44 44 20 52 34 2c | 52 34 2c 52 32 3a 41 44 |:ADD R4,|R4,R2:AD|
|00005170| 44 20 52 35 2c 52 35 2c | 52 33 3a 4d 4f 56 20 52 |D R5,R5,|R3:MOV R|
|00005180| 31 2c 74 65 6d 70 73 74 | 72 69 6e 67 3a 4d 4f 56 |1,tempst|ring:MOV|
|00005190| 20 52 30 2c 23 31 3a 53 | 54 52 42 20 52 30 2c 5b | R0,#1:S|TRB R0,[|
|000051a0| 52 31 5d 3a 53 54 52 42 | 20 52 32 2c 5b 52 31 2c |R1]:STRB| R2,[R1,|
|000051b0| 23 31 5d 3a 4d 4f 56 20 | 52 32 2c 52 32 2c 4c 53 |#1]:MOV |R2,R2,LS|
|000051c0| 52 23 38 3a 53 54 52 42 | 20 52 32 2c 5b 52 31 2c |R#8:STRB| R2,[R1,|
|000051d0| 23 32 5d 3a 53 54 52 42 | 20 52 33 2c 5b 52 31 2c |#2]:STRB| R3,[R1,|
|000051e0| 23 33 5d 3a 4d 4f 56 20 | 52 33 2c 52 33 2c 4c 53 |#3]:MOV |R3,R3,LS|
|000051f0| 52 23 38 3a 53 54 52 42 | 20 52 33 2c 5b 52 31 2c |R#8:STRB| R3,[R1,|
|00005200| 23 34 5d 3a 53 54 52 42 | 20 52 34 2c 5b 52 31 2c |#4]:STRB| R4,[R1,|
|00005210| 23 35 5d 0d 1d 42 6f 4d | 4f 56 20 52 34 2c 52 34 |#5]..BoM|OV R4,R4|
|00005220| 2c 4c 53 52 23 38 3a 53 | 54 52 42 20 52 34 2c 5b |,LSR#8:S|TRB R4,[|
|00005230| 52 31 2c 23 36 5d 3a 53 | 54 52 42 20 52 35 2c 5b |R1,#6]:S|TRB R5,[|
|00005240| 52 31 2c 23 37 5d 3a 4d | 4f 56 20 52 35 2c 52 35 |R1,#7]:M|OV R5,R5|
|00005250| 2c 4c 53 52 23 38 3a 53 | 54 52 42 20 52 35 2c 5b |,LSR#8:S|TRB R5,[|
|00005260| 52 31 2c 23 38 5d 3a 4d | 4f 56 20 52 30 2c 23 32 |R1,#8]:M|OV R0,#2|
|00005270| 31 3a 53 57 49 20 22 4f | 53 5f 57 6f 72 64 22 3a |1:SWI "O|S_Word":|
|00005280| 5d e1 0d 1d 4c 25 dd f2 | 43 4f 4e 3a 5b 53 57 49 |]...L%..|CON:[SWI|
|00005290| 20 22 4f 53 5f 52 65 73 | 74 6f 72 65 43 75 72 73 | "OS_Res|toreCurs|
|000052a0| 6f 72 73 22 3a 5d e1 0d | 1d 56 25 dd f2 43 4f 46 |ors":]..|.V%..COF|
|000052b0| 46 3a 5b 53 57 49 20 22 | 4f 53 5f 52 65 6d 6f 76 |F:[SWI "|OS_Remov|
|000052c0| 65 43 75 72 73 6f 72 73 | 22 3a 5d e1 0d 1d 60 27 |eCursors|":]...`'|
|000052d0| dd f2 57 41 49 54 3a 5b | 4d 4f 56 20 52 30 2c 23 |..WAIT:[|MOV R0,#|
|000052e0| 31 39 3a 53 57 49 20 22 | 4f 53 5f 42 79 74 65 22 |19:SWI "|OS_Byte"|
|000052f0| 3a 5d e1 0d 1d 6a c0 dd | f2 49 4e 4b 3a ea 20 50 |:]...j..|.INK:. P|
|00005300| 31 25 3a 50 31 25 3d 50 | 25 3a e3 70 61 73 73 3d |1%:P1%=P|%:.pass=|
|00005310| 30 b8 32 88 32 3a 50 25 | 3d 50 31 25 3a 5b 4f 50 |0.2.2:P%|=P1%:[OP|
|00005320| 54 70 61 73 73 3a 4c 44 | 4d 45 41 20 52 31 32 21 |Tpass:LD|MEA R12!|
|00005330| 2c 7b 52 31 7d 3a 43 4d | 50 20 52 31 2c 23 30 3a |,{R1}:CM|P R1,#0:|
|00005340| 80 50 4c 20 52 32 2c 52 | 31 2c 23 26 46 46 30 30 |.PL R2,R|1,#&FF00|
|00005350| 3a 4d 4f 56 50 4c 20 52 | 32 2c 52 32 2c 4c 53 52 |:MOVPL R|2,R2,LSR|
|00005360| 23 38 3a 80 50 4c 20 52 | 31 2c 52 31 2c 23 26 46 |#8:.PL R|1,R1,#&F|
|00005370| 46 3a 4d 4f 56 50 4c 20 | 52 33 2c 23 30 3a 4d 4f |F:MOVPL |R3,#0:MO|
|00005380| 56 4d 49 20 52 32 2c 23 | 32 35 35 3a 4d 4f 56 4d |VMI R2,#|255:MOVM|
|00005390| 49 20 52 33 2c 23 32 35 | 35 3a 4d 4f 56 20 52 30 |I R3,#25|5:MOV R0|
|000053a0| 2c 23 31 32 39 3a 53 57 | 49 20 22 4f 53 5f 42 79 |,#129:SW|I "OS_By|
|000053b0| 74 65 22 0d 1d 74 69 43 | 4d 50 20 52 33 2c 23 30 |te"..tiC|MP R3,#0|
|000053c0| 3a 42 45 51 20 69 6e 6b | 65 79 77 61 69 74 3a 43 |:BEQ ink|eywait:C|
|000053d0| 4d 50 20 52 31 2c 23 32 | 35 35 3a 4d 56 4e 45 51 |MP R1,#2|55:MVNEQ|
|000053e0| 20 52 31 2c 23 30 3a 2e | 69 6e 6b 65 79 77 61 69 | R1,#0:.|inkeywai|
|000053f0| 74 3a 5d e7 63 68 6b 66 | 6f 72 65 73 63 25 20 5b |t:].chkf|oresc% [|
|00005400| 43 4d 50 20 52 32 2c 23 | 26 31 42 3a 42 45 51 20 |CMP R2,#|&1B:BEQ |
|00005410| 65 73 63 61 70 65 63 6f | 64 65 3a 5d 0d 1d 7e 19 |escapeco|de:]..~.|
|00005420| 5b 53 54 4d 45 41 20 52 | 31 32 21 2c 7b 52 31 7d |[STMEA R|12!,{R1}|
|00005430| 3a 5d ed 3a e1 0d 1d 88 | 46 dd f2 41 42 53 3a 5b |:].:....|F..ABS:[|
|00005440| 4c 44 4d 45 41 20 52 31 | 32 21 2c 7b 52 30 7d 3a |LDMEA R1|2!,{R0}:|
|00005450| 43 4d 50 20 52 30 2c 23 | 30 3a 52 53 42 4d 49 20 |CMP R0,#|0:RSBMI |
|00005460| 52 30 2c 52 30 2c 23 30 | 3a 53 54 4d 45 41 20 52 |R0,R0,#0|:STMEA R|
|00005470| 31 32 21 2c 7b 52 30 7d | 3a 5d e1 0d 1d 92 38 dd |12!,{R0}|:]....8.|
|00005480| f2 47 45 54 3a 5b 53 57 | 49 20 22 4f 53 5f 52 65 |.GET:[SW|I "OS_Re|
|00005490| 61 64 43 22 3a 5d e7 63 | 68 6b 66 6f 72 65 73 63 |adC":].c|hkforesc|
|000054a0| 25 20 5b 42 43 53 20 65 | 73 63 61 70 65 63 6f 64 |% [BCS e|scapecod|
|000054b0| 65 3a 5d 0d 1d 9c 17 5b | 53 54 4d 45 41 20 52 31 |e:]....[|STMEA R1|
|000054c0| 32 21 2c 7b 52 30 7d 3a | 5d e1 0d 1d a6 7e dd f2 |2!,{R0}:|]....~..|
|000054d0| 54 49 4d 45 3a 5b 4d 4f | 56 20 52 30 2c 23 30 3a |TIME:[MO|V R0,#0:|
|000054e0| 53 54 52 42 20 52 30 2c | 5b 74 65 6d 70 73 74 72 |STRB R0,|[tempstr|
|000054f0| 69 6e 67 2c 23 35 5d 3a | 4c 44 4d 45 41 20 52 31 |ing,#5]:|LDMEA R1|
|00005500| 32 21 2c 7b 52 30 7d 3a | 53 54 52 20 52 30 2c 5b |2!,{R0}:|STR R0,[|
|00005510| 74 65 6d 70 73 74 72 69 | 6e 67 5d 3a 4d 4f 56 20 |tempstri|ng]:MOV |
|00005520| 52 30 2c 23 32 3a 4d 4f | 56 20 52 31 2c 74 65 6d |R0,#2:MO|V R1,tem|
|00005530| 70 73 74 72 69 6e 67 3a | 53 57 49 20 22 4f 53 5f |pstring:|SWI "OS_|
|00005540| 57 6f 72 64 22 3a 5d e1 | 0d 1d b0 5d dd f2 52 54 |Word":].|...]..RT|
|00005550| 49 4d 45 3a 5b 4d 4f 56 | 20 52 30 2c 23 31 3a 4d |IME:[MOV| R0,#1:M|
|00005560| 4f 56 20 52 31 2c 74 65 | 6d 70 73 74 72 69 6e 67 |OV R1,te|mpstring|
|00005570| 3a 53 57 49 20 22 4f 53 | 5f 57 6f 72 64 22 3a 4c |:SWI "OS|_Word":L|
|00005580| 44 52 20 52 30 2c 5b 74 | 65 6d 70 73 74 72 69 6e |DR R0,[t|empstrin|
|00005590| 67 5d 3a 53 54 4d 45 41 | 20 52 31 32 21 2c 7b 52 |g]:STMEA| R12!,{R|
|000055a0| 30 7d 3a 5d e1 0d 1d ba | 83 dd f2 53 59 53 28 4e |0}:]....|...SYS(N|
|000055b0| 25 2c 4e 31 25 2c 4e 32 | 25 29 3a 4e 55 25 3d 30 |%,N1%,N2|%):NU%=0|
|000055c0| 3a c8 95 4e 55 25 3c 4e | 31 25 3a 5b 4c 44 4d 45 |:..NU%<N|1%:[LDME|
|000055d0| 41 20 52 31 32 21 2c 7b | 4e 55 25 7d 3a 5d 4e 55 |A R12!,{|NU%}:]NU|
|000055e0| 25 2b 3d 31 3a ce 3a 5b | 53 57 49 20 4e 25 3a 5d |%+=1:.:[|SWI N%:]|
|000055f0| 4e 55 25 3d 30 3a c8 95 | 4e 55 25 3c 4e 32 25 3a |NU%=0:..|NU%<N2%:|
|00005600| 5b 53 54 52 20 4e 55 25 | 2c 5b 76 61 72 62 61 73 |[STR NU%|,[varbas|
|00005610| 65 2c 23 4d 50 25 28 4e | 55 25 29 5d 3a 5d 4e 55 |e,#MP%(N|U%)]:]NU|
|00005620| 25 2b 3d 31 3a ce 3a e1 | 0d 1d c4 05 3a 0d 1d ce |%+=1:.:.|....:...|
|00005630| 7c dd f2 4c 44 4c 28 51 | 29 3a e7 51 3e 3d 30 80 ||..LDL(Q|):.Q>=0.|
|00005640| 51 3c 32 35 36 20 5b 4d | 4f 56 20 52 30 2c 23 51 |Q<256 [M|OV R0,#Q|
|00005650| 3a 5d 20 8b 20 e7 51 3c | 30 80 51 3e 3d 2d 32 35 |:] . .Q<|0.Q>=-25|
|00005660| 35 20 5b 4d 56 4e 20 52 | 30 2c 23 28 94 28 51 29 |5 [MVN R|0,#(.(Q)|
|00005670| 2d 31 29 3a 5d 20 8b 5b | 4c 44 52 20 52 30 2c 5b |-1):] .[|LDR R0,[|
|00005680| 63 6f 6e 73 74 62 61 73 | 65 2c 23 4e 43 25 2a 34 |constbas|e,#NC%*4|
|00005690| 5d 3a 5d 3a 63 6f 6e 73 | 74 73 25 28 4e 43 25 29 |]:]:cons|ts%(NC%)|
|000056a0| 3d 51 3a 4e 43 25 2b 3d | 31 0d 1d d8 17 5b 53 54 |=Q:NC%+=|1....[ST|
|000056b0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 7d 3a 5d e1 |MEA R12!|,{R0}:].|
|000056c0| 0d 1d e2 36 dd f2 4c 44 | 41 28 41 25 29 3a 5b 4c |...6..LD|A(A%):[L|
|000056d0| 44 52 20 52 30 2c 5b 76 | 61 72 62 61 73 65 2c 23 |DR R0,[v|arbase,#|
|000056e0| 41 25 5d 3a 53 54 4d 45 | 41 20 52 31 32 21 2c 7b |A%]:STME|A R12!,{|
|000056f0| 52 30 7d 3a 5d e1 0d 1d | ec 36 dd f2 53 54 41 28 |R0}:]...|.6..STA(|
|00005700| 41 25 29 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |A%):[LDM|EA R12!,|
|00005710| 7b 52 30 7d 3a 53 54 52 | 20 52 30 2c 5b 76 61 72 |{R0}:STR| R0,[var|
|00005720| 62 61 73 65 2c 23 41 25 | 5d 3a 5d e1 0d 1d f6 6c |base,#A%|]:]....l|
|00005730| dd f2 53 57 41 50 28 41 | 25 2c 46 41 25 29 3a 5b |..SWAP(A|%,FA%):[|
|00005740| 4c 44 52 20 52 30 2c 5b | 76 61 72 62 61 73 65 2c |LDR R0,[|varbase,|
|00005750| 23 41 25 5d 3a 4c 44 52 | 20 52 31 2c 5b 76 61 72 |#A%]:LDR| R1,[var|
|00005760| 62 61 73 65 2c 23 46 41 | 25 5d 3a 53 54 52 20 52 |base,#FA|%]:STR R|
|00005770| 31 2c 5b 76 61 72 62 61 | 73 65 2c 23 41 25 5d 3a |1,[varba|se,#A%]:|
|00005780| 53 54 52 20 52 30 2c 5b | 76 61 72 62 61 73 65 2c |STR R0,[|varbase,|
|00005790| 23 46 41 25 5d 3a 5d e1 | 0d 1e 00 93 dd f2 4c 44 |#FA%]:].|......LD|
|000057a0| 41 61 72 72 28 41 25 29 | 3a 5b 4c 44 52 20 52 30 |Aarr(A%)|:[LDR R0|
|000057b0| 2c 5b 63 6f 6e 73 74 62 | 61 73 65 2c 23 31 32 5d |,[constb|ase,#12]|
|000057c0| 3a 4c 44 52 20 52 38 2c | 5b 63 6f 6e 73 74 62 61 |:LDR R8,|[constba|
|000057d0| 73 65 2c 23 30 5d 3a 4c | 44 52 20 52 31 2c 5b 52 |se,#0]:L|DR R1,[R|
|000057e0| 38 2c 23 41 25 5d 3a 41 | 44 44 20 52 30 2c 52 30 |8,#A%]:A|DD R0,R0|
|000057f0| 2c 52 31 3a 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |,R1:LDME|A R12!,{|
|00005800| 52 31 7d 3a 4c 44 52 20 | 52 32 2c 5b 52 30 2c 52 |R1}:LDR |R2,[R0,R|
|00005810| 31 2c 4c 53 4c 23 32 5d | 3a 53 54 4d 45 41 20 52 |1,LSL#2]|:STMEA R|
|00005820| 31 32 21 2c 7b 52 32 7d | 3a 5d e1 0d 1e 0a 86 dd |12!,{R2}|:]......|
|00005830| f2 53 54 41 61 72 72 28 | 41 25 29 3a 5b 4c 44 52 |.STAarr(|A%):[LDR|
|00005840| 20 52 30 2c 5b 63 6f 6e | 73 74 62 61 73 65 2c 23 | R0,[con|stbase,#|
|00005850| 31 32 5d 3a 4c 44 52 20 | 52 38 2c 5b 63 6f 6e 73 |12]:LDR |R8,[cons|
|00005860| 74 62 61 73 65 2c 23 30 | 5d 3a 4c 44 52 20 52 31 |tbase,#0|]:LDR R1|
|00005870| 2c 5b 52 38 2c 23 41 25 | 5d 3a 41 44 44 20 52 30 |,[R8,#A%|]:ADD R0|
|00005880| 2c 52 30 2c 52 31 3a 4c | 44 4d 45 41 20 52 31 32 |,R0,R1:L|DMEA R12|
|00005890| 21 2c 7b 52 31 2c 52 32 | 7d 3a 53 54 52 20 52 32 |!,{R1,R2|}:STR R2|
|000058a0| 2c 5b 52 30 2c 52 31 2c | 4c 53 4c 23 32 5d 3a 5d |,[R0,R1,|LSL#2]:]|
|000058b0| e1 0d 1e 14 3d dd f2 41 | 44 44 3a 5b 4c 44 4d 45 |....=..A|DD:[LDME|
|000058c0| 41 20 52 31 32 21 2c 7b | 52 30 2c 52 31 7d 3a 41 |A R12!,{|R0,R1}:A|
|000058d0| 44 44 20 52 30 2c 52 30 | 2c 52 31 3a 53 54 4d 45 |DD R0,R0|,R1:STME|
|000058e0| 41 20 52 31 32 21 2c 7b | 52 30 7d 3a 5d e1 0d 1e |A R12!,{|R0}:]...|
|000058f0| 1e 3d dd f2 53 55 42 3a | 5b 4c 44 4d 45 41 20 52 |.=..SUB:|[LDMEA R|
|00005900| 31 32 21 2c 7b 52 30 2c | 52 31 7d 3a 53 55 42 20 |12!,{R0,|R1}:SUB |
|00005910| 52 30 2c 52 30 2c 52 31 | 3a 53 54 4d 45 41 20 52 |R0,R0,R1|:STMEA R|
|00005920| 31 32 21 2c 7b 52 30 7d | 3a 5d e1 0d 1e 28 3d dd |12!,{R0}|:]...(=.|
|00005930| f2 4d 55 4c 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |.MUL:[LD|MEA R12!|
|00005940| 2c 7b 52 31 2c 52 32 7d | 3a 4d 55 4c 20 52 30 2c |,{R1,R2}|:MUL R0,|
|00005950| 52 31 2c 52 32 3a 53 54 | 4d 45 41 20 52 31 32 21 |R1,R2:ST|MEA R12!|
|00005960| 2c 7b 52 30 7d 3a 5d e1 | 0d 1e 32 29 dd f2 44 49 |,{R0}:].|..2)..DI|
|00005970| 56 3a 5b 42 4c 20 64 69 | 76 69 73 69 6f 6e 3a 53 |V:[BL di|vision:S|
|00005980| 54 4d 45 41 20 52 31 32 | 21 2c 7b 52 33 7d 3a 5d |TMEA R12|!,{R3}:]|
|00005990| e1 0d 1e 3c 29 dd f2 4d | 4f 44 3a 5b 42 4c 20 64 |...<)..M|OD:[BL d|
|000059a0| 69 76 69 73 69 6f 6e 3a | 53 54 4d 45 41 20 52 31 |ivision:|STMEA R1|
|000059b0| 32 21 2c 7b 52 32 7d 3a | 5d e1 0d 1e 46 52 dd f2 |2!,{R2}:|]...FR..|
|000059c0| 47 54 54 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |GTT:[LDM|EA R12!,|
|000059d0| 7b 52 30 2c 52 31 7d 3a | 43 4d 50 20 52 30 2c 52 |{R0,R1}:|CMP R0,R|
|000059e0| 31 3a 4d 56 4e 47 54 20 | 52 30 2c 23 30 3a 4d 4f |1:MVNGT |R0,#0:MO|
|000059f0| 56 4c 45 20 52 30 2c 23 | 30 3a 53 54 4d 45 41 20 |VLE R0,#|0:STMEA |
|00005a00| 52 31 32 21 2c 7b 52 30 | 7d 3a 5d e1 0d 1e 50 52 |R12!,{R0|}:]...PR|
|00005a10| dd f2 4c 54 54 3a 5b 4c | 44 4d 45 41 20 52 31 32 |..LTT:[L|DMEA R12|
|00005a20| 21 2c 7b 52 30 2c 52 31 | 7d 3a 43 4d 50 20 52 30 |!,{R0,R1|}:CMP R0|
|00005a30| 2c 52 31 3a 4d 56 4e 4c | 54 20 52 30 2c 23 30 3a |,R1:MVNL|T R0,#0:|
|00005a40| 4d 4f 56 47 45 20 52 30 | 2c 23 30 3a 53 54 4d 45 |MOVGE R0|,#0:STME|
|00005a50| 41 20 52 31 32 21 2c 7b | 52 30 7d 3a 5d e1 0d 1e |A R12!,{|R0}:]...|
|00005a60| 5a 52 dd f2 47 45 51 3a | 5b 4c 44 4d 45 41 20 52 |ZR..GEQ:|[LDMEA R|
|00005a70| 31 32 21 2c 7b 52 30 2c | 52 31 7d 3a 43 4d 50 20 |12!,{R0,|R1}:CMP |
|00005a80| 52 30 2c 52 31 3a 4d 56 | 4e 47 45 20 52 30 2c 23 |R0,R1:MV|NGE R0,#|
|00005a90| 30 3a 4d 4f 56 4c 54 20 | 52 30 2c 23 30 3a 53 54 |0:MOVLT |R0,#0:ST|
|00005aa0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 7d 3a 5d e1 |MEA R12!|,{R0}:].|
|00005ab0| 0d 1e 64 52 dd f2 4c 45 | 51 3a 5b 4c 44 4d 45 41 |..dR..LE|Q:[LDMEA|
|00005ac0| 20 52 31 32 21 2c 7b 52 | 30 2c 52 31 7d 3a 43 4d | R12!,{R|0,R1}:CM|
|00005ad0| 50 20 52 30 2c 52 31 3a | 4d 56 4e 4c 45 20 52 30 |P R0,R1:|MVNLE R0|
|00005ae0| 2c 23 30 3a 4d 4f 56 47 | 54 20 52 30 2c 23 30 3a |,#0:MOVG|T R0,#0:|
|00005af0| 53 54 4d 45 41 20 52 31 | 32 21 2c 7b 52 30 7d 3a |STMEA R1|2!,{R0}:|
|00005b00| 5d e1 0d 1e 6e 52 dd f2 | 45 51 55 3a 5b 4c 44 4d |]...nR..|EQU:[LDM|
|00005b10| 45 41 20 52 31 32 21 2c | 7b 52 30 2c 52 31 7d 3a |EA R12!,|{R0,R1}:|
|00005b20| 43 4d 50 20 52 30 2c 52 | 31 3a 4d 56 4e 45 51 20 |CMP R0,R|1:MVNEQ |
|00005b30| 52 30 2c 23 30 3a 4d 4f | 56 4e 45 20 52 30 2c 23 |R0,#0:MO|VNE R0,#|
|00005b40| 30 3a 53 54 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |0:STMEA |R12!,{R0|
|00005b50| 7d 3a 5d e1 0d 1e 78 4f | dd f2 4e 45 51 3a 5b 4c |}:]...xO|..NEQ:[L|
|00005b60| 44 4d 45 41 20 52 31 32 | 21 2c 7b 52 30 2c 52 31 |DMEA R12|!,{R0,R1|
|00005b70| 7d 3a 43 4d 50 20 52 30 | 2c 52 31 3a 4d 56 4e 4e |}:CMP R0|,R1:MVNN|
|00005b80| 45 20 52 30 2c 23 30 3a | ec 51 20 52 30 2c 23 30 |E R0,#0:|.Q R0,#0|
|00005b90| 3a 53 54 4d 45 41 20 52 | 31 32 21 2c 7b 52 30 7d |:STMEA R|12!,{R0}|
|00005ba0| 3a 5d e1 0d 1e 82 3a dd | f2 4e 45 47 3a 5b 4c 44 |:]....:.|.NEG:[LD|
|00005bb0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 7d 3a 52 53 |MEA R12!|,{R0}:RS|
|00005bc0| 42 20 52 30 2c 52 30 2c | 23 30 3a 53 54 4d 45 41 |B R0,R0,|#0:STMEA|
|00005bd0| 20 52 31 32 21 2c 7b 52 | 30 7d 3a 5d e1 0d 1e 8c | R12!,{R|0}:]....|
|00005be0| 37 dd f2 4e 4f 54 3a 5b | 4c 44 4d 45 41 20 52 31 |7..NOT:[|LDMEA R1|
|00005bf0| 32 21 2c 7b 52 30 7d 3a | 4d 56 4e 20 52 30 2c 52 |2!,{R0}:|MVN R0,R|
|00005c00| 30 3a 53 54 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |0:STMEA |R12!,{R0|
|00005c10| 7d 3a 5d e1 0d 1e 96 3b | dd f2 41 4e 44 3a 5b 4c |}:]....;|..AND:[L|
|00005c20| 44 4d 45 41 20 52 31 32 | 21 2c 7b 52 30 2c 52 31 |DMEA R12|!,{R0,R1|
|00005c30| 7d 3a 80 20 52 30 2c 52 | 30 2c 52 31 3a 53 54 4d |}:. R0,R|0,R1:STM|
|00005c40| 45 41 20 52 31 32 21 2c | 7b 52 30 7d 3a 5d e1 0d |EA R12!,|{R0}:]..|
|00005c50| 1e a0 3b dd f2 4f 52 3a | 5b 4c 44 4d 45 41 20 52 |..;..OR:|[LDMEA R|
|00005c60| 31 32 21 2c 7b 52 30 2c | 52 31 7d 3a 84 52 20 52 |12!,{R0,|R1}:.R R|
|00005c70| 30 2c 52 30 2c 52 31 3a | 53 54 4d 45 41 20 52 31 |0,R0,R1:|STMEA R1|
|00005c80| 32 21 2c 7b 52 30 7d 3a | 5d e1 0d 1e aa 3b dd f2 |2!,{R0}:|]....;..|
|00005c90| 45 4f 52 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |EOR:[LDM|EA R12!,|
|00005ca0| 7b 52 30 2c 52 31 7d 3a | 82 20 52 30 2c 52 30 2c |{R0,R1}:|. R0,R0,|
|00005cb0| 52 31 3a 53 54 4d 45 41 | 20 52 31 32 21 2c 7b 52 |R1:STMEA| R12!,{R|
|00005cc0| 30 7d 3a 5d e1 0d 1e b4 | bc dd f2 52 4e 44 3a 5b |0}:]....|...RND:[|
|00005cd0| 53 57 49 20 22 4f 53 5f | 52 65 61 64 4d 6f 6e 6f |SWI "OS_|ReadMono|
|00005ce0| 74 6f 6e 69 63 54 69 6d | 65 22 3a 4c 44 52 20 52 |tonicTim|e":LDR R|
|00005cf0| 31 2c 5b 63 6f 6e 73 74 | 62 61 73 65 2c 23 31 36 |1,[const|base,#16|
|00005d00| 5d 3a 41 44 44 20 52 30 | 2c 52 30 2c 52 31 3a 3a |]:ADD R0|,R0,R1::|
|00005d10| 53 54 52 20 52 30 2c 5b | 63 6f 6e 73 74 62 61 73 |STR R0,[|constbas|
|00005d20| 65 2c 23 31 36 5d 3a 4c | 44 4d 45 41 20 52 31 32 |e,#16]:L|DMEA R12|
|00005d30| 21 2c 7b 52 31 7d 3a 53 | 54 4d 45 41 20 52 31 32 |!,{R1}:S|TMEA R12|
|00005d40| 21 2c 7b 52 30 2c 52 31 | 7d 3a 42 4c 20 64 69 76 |!,{R0,R1|}:BL div|
|00005d50| 69 73 69 6f 6e 3a 43 4d | 50 20 52 32 2c 23 30 3a |ision:CM|P R2,#0:|
|00005d60| 52 53 42 4d 49 20 52 32 | 2c 52 32 2c 23 30 3a 53 |RSBMI R2|,R2,#0:S|
|00005d70| 54 4d 45 41 20 52 31 32 | 21 2c 7b 52 32 7d 3a 5d |TMEA R12|!,{R2}:]|
|00005d80| e1 0d 1e be 16 dd f2 4a | 4d 50 28 41 25 29 3a 5b |.......J|MP(A%):[|
|00005d90| 42 20 41 25 3a 5d e1 0d | 1e c8 34 dd f2 4a 53 52 |B A%:]..|..4..JSR|
|00005da0| 28 41 25 29 3a 5b 41 44 | 44 20 52 30 2c 52 31 35 |(A%):[AD|D R0,R15|
|00005db0| 2c 23 34 3a 53 54 4d 45 | 41 20 52 31 32 21 2c 7b |,#4:STME|A R12!,{|
|00005dc0| 52 30 7d 3a 42 20 41 25 | 3a 5d e1 0d 1e d2 32 dd |R0}:B A%|:]....2.|
|00005dd0| f2 4a 4d 43 28 41 25 29 | 3a 5b 4c 44 4d 45 41 20 |.JMC(A%)|:[LDMEA |
|00005de0| 52 31 32 21 2c 7b 52 30 | 7d 3a 43 4d 50 20 52 30 |R12!,{R0|}:CMP R0|
|00005df0| 2c 23 30 3a 42 45 51 20 | 41 25 3a 5d e1 0d 1e dc |,#0:BEQ |A%:]....|
|00005e00| ad dd f2 4e 58 54 28 41 | 25 2c 46 41 25 29 3a 5b |...NXT(A|%,FA%):[|
|00005e10| 4c 44 4d 45 41 20 52 31 | 32 2c 7b 52 30 2c 52 31 |LDMEA R1|2,{R0,R1|
|00005e20| 7d 3a 4c 44 52 20 52 32 | 2c 5b 76 61 72 62 61 73 |}:LDR R2|,[varbas|
|00005e30| 65 2c 23 41 25 5d 3a 41 | 44 44 20 52 32 2c 52 32 |e,#A%]:A|DD R2,R2|
|00005e40| 2c 52 31 3a 53 54 52 20 | 52 32 2c 5b 76 61 72 62 |,R1:STR |R2,[varb|
|00005e50| 61 73 65 2c 23 41 25 5d | 3a 43 4d 50 20 52 31 2c |ase,#A%]|:CMP R1,|
|00005e60| 23 30 3a 4d 4f 56 4c 54 | 20 52 31 2c 52 30 3a 4d |#0:MOVLT| R1,R0:M|
|00005e70| 4f 56 4c 54 20 52 30 2c | 52 32 3a 4d 4f 56 4c 54 |OVLT R0,|R2:MOVLT|
|00005e80| 20 52 32 2c 52 31 3a 43 | 4d 50 20 52 32 2c 52 30 | R2,R1:C|MP R2,R0|
|00005e90| 3a 42 4c 45 20 46 41 25 | 3a 53 55 42 20 52 31 32 |:BLE FA%|:SUB R12|
|00005ea0| 2c 52 31 32 2c 23 38 3a | 5d e1 0d 1e e6 21 dd f2 |,R12,#8:|]....!..|
|00005eb0| 45 4e 44 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |END:[LDM|EA R12!,|
|00005ec0| 7b 52 31 33 2c 50 43 7d | 3a 5d e1 0d 1e f0 0c dd |{R13,PC}|:]......|
|00005ed0| f2 4a 4d 28 53 25 29 0d | 1e fa 12 3f 50 25 3d 53 |.JM(S%).|...?P%=S|
|00005ee0| 25 3a 50 25 21 31 3d 6a | 6d 0d 1f 04 10 6a 6d 3d |%:P%!1=j|m....jm=|
|00005ef0| 50 25 3a 50 25 2b 3d 31 | 32 0d 1f 0e 05 e1 0d 1f |P%:P%+=1|2.......|
|00005f00| 18 1e dd f2 52 54 53 3a | 5b 4c 44 4d 45 41 20 52 |....RTS:|[LDMEA R|
|00005f10| 31 32 21 2c 7b 52 31 35 | 7d 3a 5d e1 0d 1f 22 05 |12!,{R15|}:]...".|
|00005f20| 3a 0d 1f 2c 31 dd f2 45 | 4d 50 54 59 54 42 3a 5b |:..,1..E|MPTYTB:[|
|00005f30| 4d 4f 56 20 52 30 2c 23 | 31 33 3a 53 54 52 42 20 |MOV R0,#|13:STRB |
|00005f40| 52 30 2c 5b 74 65 6d 70 | 73 74 72 69 6e 67 5d 3a |R0,[temp|string]:|
|00005f50| 5d e1 0d 1f 36 dd dd f2 | 43 4f 4e 53 54 52 28 41 |]...6...|CONSTR(A|
|00005f60| 25 29 3a 5b 4d 4f 56 20 | 52 32 2c 74 65 6d 70 73 |%):[MOV |R2,temps|
|00005f70| 74 72 69 6e 67 3a 2e 66 | 6e 64 65 6f 73 6c 6f 6f |tring:.f|ndeosloo|
|00005f80| 70 3a 4c 44 52 42 20 52 | 30 2c 5b 52 32 5d 2c 23 |p:LDRB R|0,[R2],#|
|00005f90| 31 3a 43 4d 50 20 52 30 | 2c 23 31 33 3a 42 4e 45 |1:CMP R0|,#13:BNE|
|00005fa0| 20 66 6e 64 65 6f 73 6c | 6f 6f 70 3a 53 55 42 20 | fndeosl|oop:SUB |
|00005fb0| 52 32 2c 52 32 2c 23 31 | 3a 4d 4f 56 20 52 31 2c |R2,R2,#1|:MOV R1,|
|00005fc0| 23 41 25 3a 4c 44 52 20 | 52 38 2c 5b 63 6f 6e 73 |#A%:LDR |R8,[cons|
|00005fd0| 74 62 61 73 65 2c 23 34 | 5d 3a 41 44 44 20 52 31 |tbase,#4|]:ADD R1|
|00005fe0| 2c 52 38 2c 52 31 2c 41 | 53 4c 23 38 3a 2e 73 74 |,R8,R1,A|SL#8:.st|
|00005ff0| 72 6c 6f 6f 70 3a 4c 44 | 52 42 20 52 30 2c 5b 52 |rloop:LD|RB R0,[R|
|00006000| 31 5d 2c 23 31 3a 53 54 | 52 42 20 52 30 2c 5b 52 |1],#1:ST|RB R0,[R|
|00006010| 32 5d 2c 23 31 3a 43 4d | 50 20 52 30 2c 23 31 33 |2],#1:CM|P R0,#13|
|00006020| 3a 42 4e 45 20 73 74 72 | 6c 6f 6f 70 3a 5d e1 0d |:BNE str|loop:]..|
|00006030| 1f 40 dc dd f2 53 54 52 | 28 46 41 25 29 3a 5b 4d |.@...STR|(FA%):[M|
|00006040| 4f 56 20 52 32 2c 74 65 | 6d 70 73 74 72 69 6e 67 |OV R2,te|mpstring|
|00006050| 3a 2e 66 6e 64 65 6f 73 | 6c 6f 6f 70 3a 4c 44 52 |:.fndeos|loop:LDR|
|00006060| 42 20 52 30 2c 5b 52 32 | 5d 2c 23 31 3a 43 4d 50 |B R0,[R2|],#1:CMP|
|00006070| 20 52 30 2c 23 31 33 3a | 42 4e 45 20 66 6e 64 65 | R0,#13:|BNE fnde|
|00006080| 6f 73 6c 6f 6f 70 3a 53 | 55 42 20 52 32 2c 52 32 |osloop:S|UB R2,R2|
|00006090| 2c 23 31 3a 4d 4f 56 20 | 52 31 2c 23 46 41 25 3a |,#1:MOV |R1,#FA%:|
|000060a0| 4c 44 52 20 52 38 2c 5b | 63 6f 6e 73 74 62 61 73 |LDR R8,[|constbas|
|000060b0| 65 2c 23 38 5d 3a 41 44 | 44 20 52 31 2c 52 38 2c |e,#8]:AD|D R1,R8,|
|000060c0| 52 31 2c 41 53 4c 23 38 | 3a 2e 73 74 72 6c 6f 6f |R1,ASL#8|:.strloo|
|000060d0| 70 3a 4c 44 52 42 20 52 | 30 2c 5b 52 31 5d 2c 23 |p:LDRB R|0,[R1],#|
|000060e0| 31 3a 53 54 52 42 20 52 | 30 2c 5b 52 32 5d 2c 23 |1:STRB R|0,[R2],#|
|000060f0| 31 3a 43 4d 50 20 52 30 | 2c 23 31 33 3a 42 4e 45 |1:CMP R0|,#13:BNE|
|00006100| 20 73 74 72 6c 6f 6f 70 | 3a 5d e1 0d 1f 4a 9c dd | strloop|:]...J..|
|00006110| f2 47 45 54 53 54 52 3a | 5b 4d 4f 56 20 52 32 2c |.GETSTR:|[MOV R2,|
|00006120| 74 65 6d 70 73 74 72 69 | 6e 67 3a 2e 66 6e 64 65 |tempstri|ng:.fnde|
|00006130| 6f 73 6c 6f 6f 70 3a 4c | 44 52 42 20 52 30 2c 5b |osloop:L|DRB R0,[|
|00006140| 52 32 5d 2c 23 31 3a 43 | 4d 50 20 52 30 2c 23 31 |R2],#1:C|MP R0,#1|
|00006150| 33 3a 42 4e 45 20 66 6e | 64 65 6f 73 6c 6f 6f 70 |3:BNE fn|deosloop|
|00006160| 3a 53 55 42 20 52 32 2c | 52 32 2c 23 31 3a 53 57 |:SUB R2,|R2,#1:SW|
|00006170| 49 20 22 4f 53 5f 52 65 | 61 64 43 22 3a 53 54 52 |I "OS_Re|adC":STR|
|00006180| 42 20 52 30 2c 5b 52 32 | 5d 3a 4d 4f 56 20 52 30 |B R0,[R2|]:MOV R0|
|00006190| 2c 23 31 33 3a 53 54 52 | 42 20 52 30 2c 5b 52 32 |,#13:STR|B R0,[R2|
|000061a0| 2c 23 31 5d 3a 5d e1 0d | 1f 54 9f dd f2 53 49 4e |,#1]:]..|.T...SIN|
|000061b0| 50 55 54 28 46 41 25 29 | 3a 5b 4d 4f 56 20 52 30 |PUT(FA%)|:[MOV R0|
|000061c0| 2c 23 46 41 25 3a 4c 44 | 52 20 52 38 2c 5b 63 6f |,#FA%:LD|R R8,[co|
|000061d0| 6e 73 74 62 61 73 65 2c | 23 38 5d 3a 41 44 44 20 |nstbase,|#8]:ADD |
|000061e0| 52 30 2c 52 38 2c 52 30 | 2c 41 53 4c 23 38 3a 4d |R0,R8,R0|,ASL#8:M|
|000061f0| 4f 56 20 52 31 2c 23 32 | 35 35 3a 4d 4f 56 20 52 |OV R1,#2|55:MOV R|
|00006200| 32 2c 23 33 32 3a 4d 4f | 56 20 52 33 2c 23 31 32 |2,#32:MO|V R3,#12|
|00006210| 38 3a 53 57 49 20 22 4f | 53 5f 52 65 61 64 4c 69 |8:SWI "O|S_ReadLi|
|00006220| 6e 65 22 3a 5d e7 63 68 | 6b 66 6f 72 65 73 63 25 |ne":].ch|kforesc%|
|00006230| 20 5b 42 43 53 20 65 73 | 63 61 70 65 63 6f 64 65 | [BCS es|capecode|
|00006240| 3a 5d e1 20 8b e1 0d 1f | 5e e6 dd f2 56 49 4e 50 |:]. ....|^...VINP|
|00006250| 55 54 28 46 41 25 29 3a | 5b 4d 4f 56 20 52 30 2c |UT(FA%):|[MOV R0,|
|00006260| 23 46 41 25 3a 4c 44 52 | 20 52 38 2c 5b 63 6f 6e |#FA%:LDR| R8,[con|
|00006270| 73 74 62 61 73 65 2c 23 | 38 5d 3a 41 44 44 20 52 |stbase,#|8]:ADD R|
|00006280| 30 2c 52 38 2c 52 30 2c | 41 53 4c 23 38 3a 4d 4f |0,R8,R0,|ASL#8:MO|
|00006290| 56 20 52 31 2c 23 32 35 | 35 3a 4d 4f 56 20 52 32 |V R1,#25|5:MOV R2|
|000062a0| 2c 23 33 32 3a 4d 4f 56 | 20 52 33 2c 23 31 32 38 |,#32:MOV| R3,#128|
|000062b0| 3a 53 57 49 20 22 4f 53 | 5f 52 65 61 64 4c 69 6e |:SWI "OS|_ReadLin|
|000062c0| 65 22 3a 4d 4f 56 20 52 | 31 2c 52 30 3a 4d 4f 56 |e":MOV R|1,R0:MOV|
|000062d0| 20 52 30 2c 23 31 30 3a | 53 57 49 20 22 4f 53 5f | R0,#10:|SWI "OS_|
|000062e0| 52 65 61 64 55 6e 73 69 | 67 6e 65 64 22 3a 4d 4f |ReadUnsi|gned":MO|
|000062f0| 56 20 52 30 2c 52 32 3a | 53 54 4d 45 41 20 52 31 |V R0,R2:|STMEA R1|
|00006300| 32 21 2c 7b 52 30 7d 3a | 4c 44 4d 45 41 20 52 31 |2!,{R0}:|LDMEA R1|
|00006310| 32 21 2c 7b 52 30 7d 3a | 53 54 52 20 52 30 2c 5b |2!,{R0}:|STR R0,[|
|00006320| 76 61 72 62 61 73 65 2c | 23 41 25 5d 0d 1f 68 26 |varbase,|#A%]..h&|
|00006330| 5d e7 63 68 6b 66 6f 72 | 65 73 63 25 20 5b 42 43 |].chkfor|esc% [BC|
|00006340| 53 20 65 73 63 61 70 65 | 63 6f 64 65 3a 5d e1 20 |S escape|code:]. |
|00006350| 8b e1 0d 1f 72 a8 dd f2 | 53 54 4f 52 45 53 54 52 |....r...|STORESTR|
|00006360| 28 46 41 25 29 3a 5b 4d | 4f 56 20 52 32 2c 74 65 |(FA%):[M|OV R2,te|
|00006370| 6d 70 73 74 72 69 6e 67 | 3a 4d 4f 56 20 52 31 2c |mpstring|:MOV R1,|
|00006380| 23 46 41 25 3a 4c 44 52 | 20 52 38 2c 5b 63 6f 6e |#FA%:LDR| R8,[con|
|00006390| 73 74 62 61 73 65 2c 23 | 38 5d 3a 41 44 44 20 52 |stbase,#|8]:ADD R|
|000063a0| 31 2c 52 38 2c 52 31 2c | 41 53 4c 23 38 3a 2e 73 |1,R8,R1,|ASL#8:.s|
|000063b0| 74 6f 72 65 73 74 72 6c | 6f 6f 70 3a 4c 44 52 42 |torestrl|oop:LDRB|
|000063c0| 20 52 30 2c 5b 52 32 5d | 2c 23 31 3a 53 54 52 42 | R0,[R2]|,#1:STRB|
|000063d0| 20 52 30 2c 5b 52 31 5d | 2c 23 31 3a 43 4d 50 20 | R0,[R1]|,#1:CMP |
|000063e0| 52 30 2c 23 31 33 3a 42 | 4e 45 20 73 74 6f 72 65 |R0,#13:B|NE store|
|000063f0| 73 74 72 6c 6f 6f 70 3a | 5d e1 0d 1f 7c db dd f2 |strloop:|]...|...|
+--------+-------------------------+-------------------------+--------+--------+