/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / b / bbc / !BBC / Compiler

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f4 20 42 42 | 43 0d 00 14 1e f4 20 54 |..... BB|C..... T|
|00000010| 68 65 20 42 61 73 69 63 | 20 42 41 53 49 43 20 43 |he Basic| BASIC C|
|00000020| 6f 6d 70 69 6c 65 72 0d | 00 1e 16 f4 20 a9 20 53 |ompiler.|.... . S|
|00000030| 6f 66 74 53 74 75 66 66 | 20 31 39 39 34 0d 00 1f |oftStuff| 1994...|
|00000040| 1c f4 20 57 72 69 74 74 | 65 6e 20 62 79 20 50 65 |.. Writt|en by Pe|
|00000050| 74 65 72 20 4a 6f 6e 65 | 73 0d 00 20 37 f4 20 53 |ter Jone|s.. 7. S|
|00000060| 68 61 72 65 77 61 72 65 | 20 2d 20 73 65 6e 64 20 |hareware| - send |
|00000070| a3 35 20 74 6f 20 61 64 | 64 72 65 73 73 20 67 69 |.5 to ad|dress gi|
|00000080| 76 65 6e 20 69 6e 20 74 | 65 78 74 20 66 69 6c 65 |ven in t|ext file|
|00000090| 0d 00 28 05 3a 0d 00 32 | 09 f2 69 6e 69 74 0d 00 |..(.:..2|..init..|
|000000a0| 3c 05 3a 0d 00 46 0e c8 | 95 20 ac 20 71 75 69 74 |<.:..F..|. . quit|
|000000b0| 25 0d 00 50 09 f2 70 6f | 6c 6c 0d 00 5a 05 ce 0d |%..P..po|ll..Z...|
|000000c0| 00 64 17 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |.d... "W|imp_Clos|
|000000d0| 65 44 6f 77 6e 22 0d 00 | 6e 05 e0 0d 00 78 05 3a |eDown"..|n....x.:|
|000000e0| 0d 00 82 0b dd 20 f2 69 | 6e 69 74 0d 00 8c 10 6d |..... .i|nit....m|
|000000f0| 75 6c 74 69 74 61 73 6b | 25 3d b9 0d 00 96 10 63 |ultitask|%=.....c|
|00000100| 6f 6d 70 69 6c 69 6e 67 | 25 3d a3 0d 00 a0 10 de |ompiling|%=......|
|00000110| 20 73 74 75 66 66 25 20 | 31 35 35 0d 00 aa 16 73 | stuff% |155....s|
|00000120| 61 76 65 6e 61 6d 65 24 | 3d 22 4f 62 6a 65 63 74 |avename$|="Object|
|00000130| 22 0d 00 b4 14 63 68 6b | 66 6f 72 6e 6f 6e 69 6e |"....chk|fornonin|
|00000140| 74 73 25 3d a3 0d 00 be | 11 6e 73 3d 31 30 30 3a |ts%=....|.ns=100:|
|00000150| 6e 6c 3d 31 30 30 0d 00 | c8 10 63 68 6b 66 6f 72 |nl=100..|..chkfor|
|00000160| 65 73 63 25 3d 30 0d 00 | d2 0d f2 74 6f 6b 65 6e |esc%=0..|...token|
|00000170| 61 73 73 0d 00 dc 13 de | 20 70 72 6f 67 72 61 6d |ass.....| program|
|00000180| 20 31 30 30 30 30 0d 00 | e6 3b de 20 63 6f 6e 73 | 10000..|.;. cons|
|00000190| 74 73 25 28 36 34 29 2c | 63 6f 6e 73 74 73 74 72 |ts%(64),|conststr|
|000001a0| 69 6e 67 24 28 36 34 29 | 2c 61 72 72 61 79 65 6e |ing$(64)|,arrayen|
|000001b0| 74 72 69 65 73 25 28 36 | 34 29 2c 4d 50 25 28 38 |tries%(6|4),MP%(8|
|000001c0| 29 0d 00 f0 1c de 20 73 | 74 24 28 6e 73 29 2c 73 |)..... s|t$(ns),s|
|000001d0| 61 28 6e 73 29 2c 73 74 | 70 28 6e 73 29 0d 00 fa |a(ns),st|p(ns)...|
|000001e0| 17 de 20 6c 69 6e 6f 28 | 6e 6c 29 2c 6c 69 6e 61 |.. lino(|nl),lina|
|000001f0| 28 6e 6c 29 0d 01 04 1b | 53 24 3d c4 34 30 2c 22 |(nl)....|S$=.40,"|
|00000200| 20 22 29 3a 53 24 3d 22 | 22 3a 4e 4c 25 3d 30 0d | "):S$="|":NL%=0.|
|00000210| 01 18 24 66 6f 72 3d 26 | 45 33 3a 74 6f 3d 26 42 |..$for=&|E3:to=&B|
|00000220| 38 3a 73 74 65 70 3d 26 | 38 38 3a 6e 65 78 74 3d |8:step=&|88:next=|
|00000230| 26 45 44 0d 01 22 2b 72 | 65 70 3d 26 46 35 3a 75 |&ED.."+r|ep=&F5:u|
|00000240| 6e 74 3d 26 46 44 3a 77 | 68 69 6c 65 3d 32 35 36 |nt=&FD:w|hile=256|
|00000250| 2b 31 34 39 3a 65 6e 64 | 77 68 3d 32 30 36 0d 01 |+149:end|wh=206..|
|00000260| 2c 1c 69 66 3d 26 45 37 | 3a 74 68 65 6e 3d 26 38 |,.if=&E7|:then=&8|
|00000270| 43 3a 65 6c 73 65 3d 26 | 38 42 0d 01 36 20 70 72 |C:else=&|8B..6 pr|
|00000280| 6f 63 3d 26 46 32 3a 64 | 65 66 3d 26 44 44 3a 65 |oc=&F2:d|ef=&DD:e|
|00000290| 6e 64 70 72 6f 63 3d 26 | 45 31 0d 01 40 21 67 6f |ndproc=&|E1..@!go|
|000002a0| 74 6f 3d 26 45 35 3a 67 | 6f 73 75 62 3d 26 45 34 |to=&E5:g|osub=&E4|
|000002b0| 3a 72 65 74 75 72 6e 3d | 26 46 38 0d 01 4a 0b 65 |:return=|&F8..J.e|
|000002c0| 6e 64 3d 26 45 30 0d 01 | 54 15 72 65 6d 3d 32 34 |nd=&E0..|T.rem=24|
|000002d0| 34 3a 65 72 72 6f 72 3d | 31 33 33 0d 01 68 2a 69 |4:error=|133..h*i|
|000002e0| 6e 6b 65 79 3d 26 41 36 | 3a 67 65 74 3d 31 36 35 |nkey=&A6|:get=165|
|000002f0| 3a 69 6e 70 75 74 3d 32 | 33 32 3a 67 65 74 73 74 |:input=2|32:getst|
|00000300| 72 3d 31 39 30 0d 01 7c | 1e 70 72 69 6e 74 3d 26 |r=190..||.print=&|
|00000310| 46 31 3a 76 64 75 3d 26 | 45 46 3a 73 70 63 62 3d |F1:vdu=&|EF:spcb=|
|00000320| 31 33 37 0d 01 86 1c 6d | 6f 64 65 3d 32 33 35 3a |137....m|ode=235:|
|00000330| 63 6c 73 3d 26 44 42 3a | 63 6c 67 3d 32 31 38 0d |cls=&DB:|clg=218.|
|00000340| 01 90 1e 6d 6f 76 65 3d | 26 45 43 3a 64 72 61 77 |...move=|&EC:draw|
|00000350| 3d 26 44 46 3a 70 6c 6f | 74 3d 32 34 30 0d 01 9a |=&DF:plo|t=240...|
|00000360| 41 63 69 72 63 6c 65 3d | 32 35 36 2b 31 34 33 3a |Acircle=|256+143:|
|00000370| 72 65 63 74 61 6e 67 6c | 65 3d 32 35 36 2b 31 34 |rectangl|e=256+14|
|00000380| 37 3a 65 6c 6c 69 70 73 | 65 3d 32 35 36 2b 31 35 |7:ellips|e=256+15|
|00000390| 37 3a 66 69 6c 6c 3d 32 | 35 36 2b 31 34 34 0d 01 |7:fill=2|56+144..|
|000003a0| a4 24 63 6f 6c 6f 75 72 | 3d 32 35 31 3a 67 63 6f |.$colour|=251:gco|
|000003b0| 6c 3d 32 33 30 3a 74 69 | 6e 74 3d 32 35 36 2b 31 |l=230:ti|nt=256+1|
|000003c0| 35 36 0d 01 ae 1f 6f 6e | 3d 32 33 38 3a 6f 66 66 |56....on|=238:off|
|000003d0| 3d 31 33 35 3a 77 61 69 | 74 3d 32 35 36 2b 31 35 |=135:wai|t=256+15|
|000003e0| 30 0d 01 b8 1c 6f 72 69 | 67 69 6e 3d 32 35 36 2b |0....ori|gin=256+|
|000003f0| 31 34 35 3a 70 6f 69 6e | 74 3d 31 37 36 0d 01 c2 |145:poin|t=176...|
|00000400| 1c 73 6f 75 6e 64 3d 26 | 44 34 3a 76 6f 69 63 65 |.sound=&|D4:voice|
|00000410| 73 3d 32 35 36 2b 31 36 | 30 0d 01 cc 11 6d 6f 75 |s=256+16|0....mou|
|00000420| 73 65 3d 32 35 36 2b 31 | 35 31 0d 01 e0 13 64 69 |se=256+1|51....di|
|00000430| 76 3d 31 32 39 3a 6d 6f | 64 3d 31 33 31 0d 01 ea |v=129:mo|d=131...|
|00000440| 18 64 69 6d 3d 32 32 32 | 3a 73 77 61 70 3d 32 35 |.dim=222|:swap=25|
|00000450| 36 2b 31 34 38 0d 01 f4 | 21 74 69 6d 65 72 69 3d |6+148...|!timeri=|
|00000460| 26 39 31 3a 74 69 6d 65 | 6c 65 3d 26 44 31 3a 72 |&91:time|le=&D1:r|
|00000470| 6e 64 3d 26 42 33 0d 01 | fe 2a 61 62 73 3d 31 34 |nd=&B3..|.*abs=14|
|00000480| 38 3a 73 69 6e 3d 26 42 | 35 3a 63 6f 73 3d 26 39 |8:sin=&B|5:cos=&9|
|00000490| 42 3a 73 71 72 3d 26 42 | 36 3a 70 69 3d 26 41 46 |B:sqr=&B|6:pi=&AF|
|000004a0| 0d 02 08 22 6e 6f 74 3d | 31 37 32 3a 61 6e 64 3d |..."not=|172:and=|
|000004b0| 31 32 38 3a 6f 72 3d 31 | 33 32 3a 65 6f 72 3d 31 |128:or=1|32:eor=1|
|000004c0| 33 30 0d 02 12 22 63 61 | 6c 6c 3d 26 44 36 3a 73 |30..."ca|ll=&D6:s|
|000004d0| 79 73 3d 32 35 36 2b 31 | 35 33 3a 6d 61 6c 6c 6f |ys=256+1|53:mallo|
|000004e0| 63 3d 31 32 0d 02 26 40 | 6c 65 66 74 73 74 72 3d |c=12..&@|leftstr=|
|000004f0| 31 39 32 3a 6d 69 64 73 | 74 72 3d 31 39 33 3a 72 |192:mids|tr=193:r|
|00000500| 69 67 68 74 73 74 72 3d | 31 39 34 3a 73 74 72 73 |ightstr=|194:strs|
|00000510| 74 72 3d 31 39 35 3a 73 | 74 72 69 6e 67 73 74 72 |tr=195:s|tringstr|
|00000520| 3d 31 39 36 0d 02 30 0d | 6f 73 63 6c 69 3d 32 35 |=196..0.|oscli=25|
|00000530| 35 0d 02 44 18 65 71 3d | 26 33 44 3a 67 74 3d 26 |5..D.eq=|&3D:gt=&|
|00000540| 33 45 3a 6c 74 3d 26 33 | 43 0d 02 4e 1f 6c 62 3d |3E:lt=&3|C..N.lb=|
|00000550| 26 32 38 3a 72 62 3d 26 | 32 39 3a 74 72 3d 26 42 |&28:rb=&|29:tr=&B|
|00000560| 39 3a 66 6c 3d 26 41 33 | 0d 02 58 20 70 6c 75 73 |9:fl=&A3|..X plus|
|00000570| 3d 26 32 42 3a 6d 69 6e | 75 73 3d 26 32 44 3a 73 |=&2B:min|us=&2D:s|
|00000580| 6c 61 73 68 3d 26 32 46 | 0d 02 62 20 74 69 6d 65 |lash=&2F|..b time|
|00000590| 73 3d 26 32 41 3a 73 71 | 75 6f 74 65 3d 26 32 37 |s=&2A:sq|uote=&27|
|000005a0| 3a 74 61 62 3d 26 38 41 | 0d 02 6c 21 64 71 75 6f |:tab=&8A|..l!dquo|
|000005b0| 74 65 3d 26 32 32 3a 63 | 6f 6d 6d 61 3d 26 32 43 |te=&22:c|omma=&2C|
|000005c0| 3a 73 63 6f 6c 3d 26 33 | 42 0d 02 76 22 63 6f 6c |:scol=&3|B..v"col|
|000005d0| 3d 26 33 41 3a 73 70 63 | 3d 33 32 3a 65 6f 6c 6e |=&3A:spc|=32:eoln|
|000005e0| 3d 26 44 3a 65 6f 70 3d | 26 46 41 0d 02 80 20 67 |=&D:eop=|&FA... g|
|000005f0| 65 71 3d 31 3a 6c 65 71 | 3d 32 3a 6e 65 71 3d 33 |eq=1:leq|=2:neq=3|
|00000600| 3a 69 64 3d 34 3a 6c 62 | 6c 3d 35 0d 02 8a 1a 63 |:id=4:lb|l=5....c|
|00000610| 6f 6e 73 74 3d 36 3a 73 | 74 72 69 6e 67 3d 37 3a |onst=6:s|tring=7:|
|00000620| 73 69 64 3d 38 0d 02 94 | 1e 70 6c 75 73 65 71 3d |sid=8...|.pluseq=|
|00000630| 39 3a 6d 69 6e 75 73 65 | 71 3d 31 30 3a 61 69 64 |9:minuse|q=10:aid|
|00000640| 3d 31 31 0d 02 9e 0c 6c | 69 6e 6f 3d 26 38 44 0d |=11....l|ino=&8D.|
|00000650| 02 a8 23 53 4e 25 3d 30 | 3a 6a 6d 3d 30 3a 4e 43 |..#SN%=0|:jm=0:NC|
|00000660| 25 3d 35 3a 4e 43 53 54 | 25 3d 30 3a 4e 41 45 25 |%=5:NCST|%=0:NAE%|
|00000670| 3d 30 0d 02 b2 21 58 31 | 25 3d 30 3a 58 32 25 3d |=0...!X1|%=0:X2%=|
|00000680| 30 3a 59 31 25 3d 30 3a | 59 32 25 3d 30 3a 57 25 |0:Y1%=0:|Y2%=0:W%|
|00000690| 3d 5a 25 0d 02 bc 1e 42 | 43 25 3d 30 3a 76 6d 65 |=Z%....B|C%=0:vme|
|000006a0| 6d 3d 30 3a 73 6d 65 6d | 3d 30 3a 61 6d 65 6d 3d |m=0:smem|=0:amem=|
|000006b0| 30 0d 02 d0 10 66 69 6c | 65 6e 61 6d 65 24 3d 22 |0....fil|ename$="|
|000006c0| 22 0d 02 da 1b de 20 62 | 6c 6f 63 6b 25 20 26 32 |"..... b|lock% &2|
|000006d0| 36 37 2c 69 6d 65 6e 75 | 25 20 39 39 0d 02 e4 3b |67,imenu|% 99...;|
|000006e0| de 20 63 6f 6d 70 69 6c | 65 72 69 6e 64 25 20 26 |. compil|erind% &|
|000006f0| 43 32 2c 6e 61 6d 65 25 | 20 31 31 2c 69 6e 66 6f |C2,name%| 11,info|
|00000700| 69 6e 64 25 20 26 32 39 | 2c 20 73 61 76 65 69 6e |ind% &29|, savein|
|00000710| 64 25 20 26 31 32 46 0d | 02 ee 36 71 75 69 74 25 |d% &12F.|..6quit%|
|00000720| 3d a3 3a 61 70 70 24 3d | 22 54 68 65 20 42 61 73 |=.:app$=|"The Bas|
|00000730| 69 63 20 42 41 53 49 43 | 20 43 6f 6d 70 69 6c 65 |ic BASIC| Compile|
|00000740| 72 22 3a 69 63 6f 6e 73 | 65 6c 25 3d 30 0d 02 f8 |r":icons|el%=0...|
|00000750| 2b c8 99 20 22 57 69 6d | 70 5f 49 6e 69 74 69 61 |+.. "Wim|p_Initia|
|00000760| 6c 69 73 65 22 2c 32 30 | 30 2c 26 34 42 35 33 34 |lise",20|0,&4B534|
|00000770| 31 35 34 2c 61 70 70 24 | 0d 03 02 21 ee 20 85 20 |154,app$|...!. . |
|00000780| f2 65 72 72 6f 72 28 f6 | 24 2b 22 20 61 74 20 6c |.error(.|$+" at l|
|00000790| 69 6e 65 20 22 2b c3 9e | 29 0d 03 0c 20 66 69 6c |ine "+..|)... fil|
|000007a0| 65 25 3d 8e 22 3c 42 42 | 43 6d 70 24 44 69 72 3e |e%=."<BB|Cmp$Dir>|
|000007b0| 2e 53 70 72 69 74 65 73 | 22 0d 03 16 1b 73 69 7a |.Sprites|"....siz|
|000007c0| 65 25 3d a2 23 66 69 6c | 65 25 2b 34 3a d9 23 66 |e%=.#fil|e%+4:.#f|
|000007d0| 69 6c 65 25 0d 03 20 13 | de 20 73 70 61 72 65 61 |ile%.. .|. sparea|
|000007e0| 25 20 73 69 7a 65 25 0d | 03 2a 1f 21 73 70 61 72 |% size%.|.*.!spar|
|000007f0| 65 61 25 3d 73 69 7a 65 | 25 3a 73 70 61 72 65 61 |ea%=size|%:sparea|
|00000800| 25 21 38 3d 31 36 0d 03 | 34 36 c8 99 22 4f 53 5f |%!8=16..|46.."OS_|
|00000810| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 30 41 2c 73 |SpriteOp|",&10A,s|
|00000820| 70 61 72 65 61 25 2c 22 | 3c 42 42 43 6d 70 24 44 |parea%,"|<BBCmp$D|
|00000830| 69 72 3e 2e 53 70 72 69 | 74 65 73 22 0d 03 3e 33 |ir>.Spri|tes"..>3|
|00000840| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 54 65 6d |.. "Wimp|_OpenTem|
|00000850| 70 6c 61 74 65 22 2c 2c | 22 3c 42 42 43 6d 70 24 |plate",,|"<BBCmp$|
|00000860| 44 69 72 3e 2e 54 65 6d | 70 6c 61 74 65 73 22 0d |Dir>.Tem|plates".|
|00000870| 03 48 11 24 6e 61 6d 65 | 25 3d 22 69 6e 66 6f 22 |.H.$name|%="info"|
|00000880| 0d 03 52 43 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |..RC.. "|Wimp_Loa|
|00000890| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 62 6c 6f 63 |dTemplat|e",,bloc|
|000008a0| 6b 25 2c 69 6e 66 6f 69 | 6e 64 25 2c 69 6e 66 6f |k%,infoi|nd%,info|
|000008b0| 69 6e 64 25 2b 26 32 39 | 2c 2d 31 2c 6e 61 6d 65 |ind%+&29|,-1,name|
|000008c0| 25 2c 30 0d 03 5c 15 62 | 6c 6f 63 6b 25 21 36 34 |%,0..\.b|lock%!64|
|000008d0| 3d 73 70 61 72 65 61 25 | 0d 03 66 2a c8 99 20 22 |=sparea%|..f*.. "|
|000008e0| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|000008f0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 69 6e 66 |w",,bloc|k% . inf|
|00000900| 6f 25 0d 03 70 11 21 62 | 6c 6f 63 6b 25 3d 69 6e |o%..p.!b|lock%=in|
|00000910| 66 6f 25 0d 03 7a 1b c8 | 99 20 22 57 69 6d 70 5f |fo%..z..|. "Wimp_|
|00000920| 43 6c 6f 73 65 54 65 6d | 70 6c 61 74 65 22 0d 03 |CloseTem|plate"..|
|00000930| 84 24 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |.$.. "Wi|mp_GetWi|
|00000940| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |ndowStat|e",,bloc|
|00000950| 6b 25 0d 03 8e 20 c8 99 | 20 22 57 69 6d 70 5f 4f |k%... ..| "Wimp_O|
|00000960| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00000970| 6b 25 0d 03 98 19 6f 70 | 65 6e 65 64 25 3d b9 3a |k%....op|ened%=.:|
|00000980| 6f 70 65 6e 74 69 6d 65 | 25 3d 91 0d 03 a2 33 c8 |opentime|%=....3.|
|00000990| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|000009a0| 6c 61 74 65 22 2c 2c 22 | 3c 42 42 43 6d 70 24 44 |late",,"|<BBCmp$D|
|000009b0| 69 72 3e 2e 54 65 6d 70 | 6c 61 74 65 73 22 0d 03 |ir>.Temp|lates"..|
|000009c0| ac 15 24 6e 61 6d 65 25 | 3d 22 43 6f 6d 70 69 6c |..$name%|="Compil|
|000009d0| 65 72 22 0d 03 b6 4b c8 | 99 20 22 57 69 6d 70 5f |er"...K.|. "Wimp_|
|000009e0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 62 |LoadTemp|late",,b|
|000009f0| 6c 6f 63 6b 25 2c 63 6f | 6d 70 69 6c 65 72 69 6e |lock%,co|mpilerin|
|00000a00| 64 25 2c 63 6f 6d 70 69 | 6c 65 72 69 6e 64 25 2b |d%,compi|lerind%+|
|00000a10| 26 43 32 2c 2d 31 2c 6e | 61 6d 65 25 2c 30 0d 03 |&C2,-1,n|ame%,0..|
|00000a20| c0 15 62 6c 6f 63 6b 25 | 21 36 34 3d 73 70 61 72 |..block%|!64=spar|
|00000a30| 65 61 25 0d 03 ca 31 c8 | 99 20 22 57 69 6d 70 5f |ea%...1.|. "Wimp_|
|00000a40| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000a50| 6c 6f 63 6b 25 20 b8 20 | 63 6f 6d 70 69 6c 65 72 |lock% . |compiler|
|00000a60| 77 69 6e 25 0d 03 d4 11 | 24 6e 61 6d 65 25 3d 22 |win%....|$name%="|
|00000a70| 73 61 76 65 22 0d 03 de | 44 c8 99 20 22 57 69 6d |save"...|D.. "Wim|
|00000a80| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000a90| 2c 62 6c 6f 63 6b 25 2c | 73 61 76 65 69 6e 64 25 |,block%,|saveind%|
|00000aa0| 2c 73 61 76 65 69 6e 64 | 25 2b 26 31 32 46 2c 2d |,saveind|%+&12F,-|
|00000ab0| 31 2c 6e 61 6d 65 25 2c | 30 0d 03 e8 15 62 6c 6f |1,name%,|0....blo|
|00000ac0| 63 6b 25 21 36 34 3d 73 | 70 61 72 65 61 25 0d 03 |ck%!64=s|parea%..|
|00000ad0| f2 2d c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.-.. "Wi|mp_Creat|
|00000ae0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00000af0| 20 b8 20 73 61 76 65 77 | 69 6e 25 0d 03 fc 1b c8 | . savew|in%.....|
|00000b00| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|00000b10| 70 6c 61 74 65 22 0d 04 | 06 2c 24 6e 61 6d 65 25 |plate"..|.,$name%|
|00000b20| 3d 22 42 42 43 22 3a de | 20 76 61 6c 69 64 25 20 |="BBC":.| valid% |
|00000b30| 31 32 3a 24 76 61 6c 69 | 64 25 3d 22 73 21 42 42 |12:$vali|d%="s!BB|
|00000b40| 43 22 0d 04 10 1e f2 73 | 68 61 64 65 69 63 6f 6e |C".....s|hadeicon|
|00000b50| 28 63 6f 6d 70 69 6c 65 | 72 77 69 6e 25 2c 34 29 |(compile|rwin%,4)|
|00000b60| 0d 04 1a 49 42 61 72 5f | 49 63 6f 6e 25 3d a4 63 |...IBar_|Icon%=.c|
|00000b70| 72 65 61 74 65 5f 69 63 | 6f 6e 28 2d 31 2c 30 2c |reate_ic|on(-1,0,|
|00000b80| 2d 31 35 2c 31 33 30 2c | 31 32 32 2c 26 31 37 30 |-15,130,|122,&170|
|00000b90| 30 33 31 30 42 2c 22 22 | 2c 6e 61 6d 65 25 2c 76 |0310B,""|,name%,v|
|00000ba0| 61 6c 69 64 25 2c 31 32 | 29 0d 04 24 12 20 24 69 |alid%,12|)..$. $i|
|00000bb0| 6d 65 6e 75 25 3d 22 42 | 42 43 22 0d 04 2e 10 20 |menu%="B|BC".... |
|00000bc0| 69 6d 65 6e 75 25 3f 31 | 32 3d 37 0d 04 38 10 20 |imenu%?1|2=7..8. |
|00000bd0| 69 6d 65 6e 75 25 3f 31 | 33 3d 32 0d 04 42 10 20 |imenu%?1|3=2..B. |
|00000be0| 69 6d 65 6e 75 25 3f 31 | 34 3d 37 0d 04 4c 10 20 |imenu%?1|4=7..L. |
|00000bf0| 69 6d 65 6e 75 25 3f 31 | 35 3d 30 0d 04 56 12 20 |imenu%?1|5=0..V. |
|00000c00| 69 6d 65 6e 75 25 21 31 | 36 3d 31 33 30 0d 04 60 |imenu%!1|6=130..`|
|00000c10| 11 20 69 6d 65 6e 75 25 | 21 32 30 3d 34 34 0d 04 |. imenu%|!20=44..|
|00000c20| 6a 10 20 69 6d 65 6e 75 | 25 21 32 34 3d 30 0d 04 |j. imenu|%!24=0..|
|00000c30| 74 11 20 6d 25 3d 69 6d | 65 6e 75 25 2b 32 38 0d |t. m%=im|enu%+28.|
|00000c40| 04 7e 0c 20 6d 25 21 30 | 3d 26 30 0d 04 88 0f 20 |.~. m%!0|=&0.... |
|00000c50| 6d 25 21 34 3d 69 6e 66 | 6f 25 0d 04 92 1a 20 6d |m%!4=inf|o%.... m|
|00000c60| 25 21 38 3d 28 37 3c 3c | 32 34 29 20 84 20 25 31 |%!8=(7<<|24) . %1|
|00000c70| 30 30 30 31 0d 04 9c 14 | 20 24 28 6d 25 2b 31 32 |0001....| $(m%+12|
|00000c80| 29 3d 22 49 6e 66 6f 22 | 0d 04 a6 0b 20 6d 25 2b |)="Info"|.... m%+|
|00000c90| 3d 32 34 0d 04 b0 0d 20 | 6d 25 21 30 3d 26 38 30 |=24.... |m%!0=&80|
|00000ca0| 0d 04 ba 0b 20 6d 25 21 | 34 3d 30 0d 04 c4 19 20 |.... m%!|4=0.... |
|00000cb0| 6d 25 21 38 3d 28 37 3c | 3c 32 34 29 84 20 25 31 |m%!8=(7<|<24). %1|
|00000cc0| 30 30 30 31 0d 04 ce 14 | 20 24 28 6d 25 2b 31 32 |0001....| $(m%+12|
|00000cd0| 29 3d 22 51 75 69 74 22 | 0d 04 d8 05 e1 0d 04 e2 |)="Quit"|........|
|00000ce0| 05 3a 0d 04 ec 0b dd 20 | f2 70 6f 6c 6c 0d 04 f6 |.:..... |.poll...|
|00000cf0| 25 c8 99 20 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |%.. "Wim|p_Poll",|
|00000d00| 30 2c 62 6c 6f 63 6b 25 | 20 b8 20 72 65 61 73 6f |0,block%| . reaso|
|00000d10| 6e 25 0d 05 00 10 c8 8e | 20 72 65 61 73 6f 6e 25 |n%......| reason%|
|00000d20| 20 ca 0d 05 0a 0f c9 20 | 30 3a f2 6e 6f 70 6f 6c | ...... |0:.nopol|
|00000d30| 6c 0d 05 14 24 c9 20 32 | 3a c8 99 20 22 57 69 6d |l...$. 2|:.. "Wim|
|00000d40| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00000d50| 6c 6f 63 6b 25 0d 05 1e | 25 c9 20 33 3a c8 99 20 |lock%...|%. 3:.. |
|00000d60| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000d70| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 05 28 19 c9 20 |w",,bloc|k%..(.. |
|00000d80| 36 3a f2 63 6c 69 63 6b | 28 62 6c 6f 63 6b 25 21 |6:.click|(block%!|
|00000d90| 31 32 29 0d 05 32 12 c9 | 20 37 3a f2 73 74 61 72 |12)..2..| 7:.star|
|00000da0| 74 73 61 76 65 0d 05 3c | 1c c9 20 38 3a f2 6b 65 |tsave..<|.. 8:.ke|
|00000db0| 79 70 72 65 73 73 28 62 | 6c 6f 63 6b 25 21 32 34 |ypress(b|lock%!24|
|00000dc0| 29 0d 05 46 13 c9 20 39 | 3a f2 6d 65 6e 75 73 65 |)..F.. 9|:.menuse|
|00000dd0| 6c 65 63 74 0d 05 50 26 | c9 20 31 37 2c 31 38 3a |lect..P&|. 17,18:|
|00000de0| f2 6d 65 73 73 61 67 65 | 72 65 63 69 65 76 65 28 |.message|recieve(|
|00000df0| 62 6c 6f 63 6b 25 21 31 | 36 29 0d 05 5a 05 cb 0d |block%!1|6)..Z...|
|00000e00| 05 64 05 e1 0d 05 6e 05 | 3a 0d 05 78 19 dd 20 f2 |.d....n.|:..x.. .|
|00000e10| 72 65 70 6f 72 74 28 65 | 72 72 24 2c 66 6c 61 67 |report(e|rr$,flag|
|00000e20| 25 29 0d 05 82 0e 6e 61 | 6d 65 24 3d 61 70 70 24 |%)....na|me$=app$|
|00000e30| 0d 05 8c 2e e7 20 66 6c | 61 67 25 20 80 20 31 36 |..... fl|ag% . 16|
|00000e40| 20 8c 20 6e 61 6d 65 24 | 3d 22 4d 65 73 73 61 67 | . name$|="Messag|
|00000e50| 65 20 66 72 6f 6d 20 22 | 2b 6e 61 6d 65 24 0d 05 |e from "|+name$..|
|00000e60| 96 0f 21 62 6c 6f 63 6b | 25 3d 32 35 35 0d 05 a0 |..!block|%=255...|
|00000e70| 17 24 28 62 6c 6f 63 6b | 25 2b 34 29 3d 65 72 72 |.$(block|%+4)=err|
|00000e80| 24 2b bd 30 0d 05 aa 39 | c8 99 20 22 57 69 6d 70 |$+.0...9|.. "Wimp|
|00000e90| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 6c |_ReportE|rror",bl|
|00000ea0| 6f 63 6b 25 2c 66 6c 61 | 67 25 2c 6e 61 6d 65 24 |ock%,fla|g%,name$|
|00000eb0| 20 b8 20 2c 65 72 72 63 | 6c 69 63 6b 25 0d 05 b4 | . ,errc|lick%...|
|00000ec0| 05 e1 0d 05 be 05 3a 0d | 05 c8 10 dd 20 f2 65 72 |......:.|.... .er|
|00000ed0| 72 6f 72 28 61 24 29 0d | 05 d2 11 f2 72 65 70 6f |ror(a$).|....repo|
|00000ee0| 72 74 28 61 24 2c 31 29 | 0d 05 dc 17 c8 99 20 22 |rt(a$,1)|...... "|
|00000ef0| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 0d |Wimp_Clo|seDown".|
|00000f00| 05 e6 0c d9 23 20 66 69 | 6c 65 25 0d 05 f0 05 e0 |....# fi|le%.....|
|00000f10| 0d 05 fa 05 e1 0d 06 04 | 05 3a 0d 06 0e 12 dd 20 |........|.:..... |
|00000f20| f2 63 6c 69 63 6b 28 77 | 69 6e 25 29 0d 06 18 0d |.click(w|in%)....|
|00000f30| c8 8e 20 77 69 6e 25 20 | ca 0d 06 22 18 c9 20 2d |.. win% |...".. -|
|00000f40| 32 3a f2 69 62 61 72 28 | 62 6c 6f 63 6b 25 21 38 |2:.ibar(|block%!8|
|00000f50| 29 0d 06 2c 45 c9 20 69 | 6e 66 6f 25 3a e7 20 6f |)..,E. i|nfo%:. o|
|00000f60| 70 65 6e 65 64 25 3d b9 | 20 8c 20 21 62 6c 6f 63 |pened%=.| . !bloc|
|00000f70| 6b 25 3d 69 6e 66 6f 25 | 3a c8 99 20 22 57 69 6d |k%=info%|:.. "Wim|
|00000f80| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00000f90| 62 6c 6f 63 6b 25 0d 06 | 36 2d c9 20 63 6f 6d 70 |block%..|6-. comp|
|00000fa0| 69 6c 65 72 77 69 6e 25 | 20 3a 20 f2 63 6f 6d 70 |ilerwin%| : .comp|
|00000fb0| 69 6c 65 63 6c 69 63 6b | 28 62 6c 6f 63 6b 25 21 |ileclick|(block%!|
|00000fc0| 31 36 29 0d 06 40 1b c9 | 20 73 61 76 65 77 69 6e |16)..@..| savewin|
|00000fd0| 25 20 3a 20 f2 73 61 76 | 65 63 6c 69 63 6b 0d 06 |% : .sav|eclick..|
|00000fe0| 4a 05 cb 0d 06 54 05 e1 | 0d 06 5e 05 3a 0d 06 68 |J....T..|..^.:..h|
|00000ff0| 47 dd 20 a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 |G. .crea|te_icon(|
|00001000| 77 68 61 6e 25 2c 69 78 | 25 2c 69 79 25 2c 69 77 |whan%,ix|%,iy%,iw|
|00001010| 25 2c 69 68 25 2c 66 6c | 61 67 25 2c 74 65 78 74 |%,ih%,fl|ag%,text|
|00001020| 24 2c 70 74 72 31 25 2c | 70 74 72 32 25 2c 70 74 |$,ptr1%,|ptr2%,pt|
|00001030| 72 33 25 29 0d 06 72 11 | 21 62 6c 6f 63 6b 25 3d |r3%)..r.|!block%=|
|00001040| 77 68 61 6e 25 0d 06 7c | 10 62 6c 6f 63 6b 25 21 |whan%..||.block%!|
|00001050| 34 3d 69 78 25 0d 06 86 | 10 62 6c 6f 63 6b 25 21 |4=ix%...|.block%!|
|00001060| 38 3d 69 79 25 0d 06 90 | 15 62 6c 6f 63 6b 25 21 |8=iy%...|.block%!|
|00001070| 31 32 3d 69 78 25 2b 69 | 77 25 0d 06 9a 15 62 6c |12=ix%+i|w%....bl|
|00001080| 6f 63 6b 25 21 31 36 3d | 69 79 25 2b 69 68 25 0d |ock%!16=|iy%+ih%.|
|00001090| 06 a4 13 62 6c 6f 63 6b | 25 21 32 30 3d 66 6c 61 |...block|%!20=fla|
|000010a0| 67 25 0d 06 ae 0f e7 20 | 70 74 72 31 25 3d 30 20 |g%..... |ptr1%=0 |
|000010b0| 8c 0d 06 b8 16 24 28 62 | 6c 6f 63 6b 25 2b 32 34 |.....$(b|lock%+24|
|000010c0| 29 3d 74 65 78 74 24 0d | 06 c2 05 cc 0d 06 cc 13 |)=text$.|........|
|000010d0| 62 6c 6f 63 6b 25 21 32 | 34 3d 70 74 72 31 25 0d |block%!2|4=ptr1%.|
|000010e0| 06 d6 13 62 6c 6f 63 6b | 25 21 32 38 3d 70 74 72 |...block|%!28=ptr|
|000010f0| 32 25 0d 06 e0 13 62 6c | 6f 63 6b 25 21 33 32 3d |2%....bl|ock%!32=|
|00001100| 70 74 72 33 25 0d 06 ea | 05 cd 0d 06 f4 2b c8 99 |ptr3%...|.....+..|
|00001110| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00001120| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 69 68 61 |n",,bloc|k% . iha|
|00001130| 6e 64 6c 65 25 0d 06 fe | 0d 3d 69 68 61 6e 64 6c |ndle%...|.=ihandl|
|00001140| 65 25 0d 07 08 05 3a 0d | 07 12 14 dd 20 f2 69 62 |e%....:.|.... .ib|
|00001150| 61 72 28 62 75 74 74 6f | 6e 25 29 0d 07 1c 10 c8 |ar(butto|n%).....|
|00001160| 8e 20 62 75 74 74 6f 6e | 25 20 ca 0d 07 26 1e c9 |. button|% ...&..|
|00001170| 20 31 2c 34 3a 21 62 6c | 6f 63 6b 25 3d 63 6f 6d | 1,4:!bl|ock%=com|
|00001180| 70 69 6c 65 72 77 69 6e | 25 0d 07 30 24 c8 99 20 |pilerwin|%..0$.. |
|00001190| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|000011a0| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 07 3a |tate",,b|lock%..:|
|000011b0| 2d 62 6c 6f 63 6b 25 21 | 32 38 3d 2d 31 3a c8 99 |-block%!|28=-1:..|
|000011c0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|000011d0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 07 44 28 c9 20 |w",,bloc|k%..D(. |
|000011e0| 32 3a f2 73 68 6f 77 6d | 65 6e 75 28 69 6d 65 6e |2:.showm|enu(imen|
|000011f0| 75 25 2c 21 62 6c 6f 63 | 6b 25 2d 36 34 2c 31 38 |u%,!bloc|k%-64,18|
|00001200| 34 29 0d 07 4e 05 cb 0d | 07 58 05 e1 0d 07 62 05 |4)..N...|.X....b.|
|00001210| 3a 0d 07 6c 1e dd 20 f2 | 73 68 6f 77 6d 65 6e 75 |:..l.. .|showmenu|
|00001220| 28 6d 65 6e 75 25 2c 6d | 78 25 2c 6d 79 25 29 0d |(menu%,m|x%,my%).|
|00001230| 07 76 27 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.v'.. "W|imp_Crea|
|00001240| 74 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 25 2c 6d |teMenu",|,menu%,m|
|00001250| 78 25 2c 6d 79 25 0d 07 | 80 05 e1 0d 07 8a 05 3a |x%,my%..|.......:|
|00001260| 0d 07 94 11 dd 20 f2 6d | 65 6e 75 73 65 6c 65 63 |..... .m|enuselec|
|00001270| 74 0d 07 9e 20 73 65 6c | 31 25 3d 21 62 6c 6f 63 |t... sel|1%=!bloc|
|00001280| 6b 25 3a 73 65 6c 32 25 | 3d 62 6c 6f 63 6b 25 21 |k%:sel2%|=block%!|
|00001290| 34 0d 07 a8 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |4...$.. |"Wimp_Ge|
|000012a0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|000012b0| 6c 6f 63 6b 25 0d 07 b2 | 14 62 75 74 74 6f 6e 25 |lock%...|.button%|
|000012c0| 3d 62 6c 6f 63 6b 25 21 | 38 0d 07 bc 0e c8 8e 20 |=block%!|8...... |
|000012d0| 73 65 6c 31 25 20 ca 0d | 07 c6 0f c9 20 31 3a 71 |sel1% ..|.... 1:q|
|000012e0| 75 69 74 25 3d b9 0d 07 | d0 05 cb 0d 07 da 25 e7 |uit%=...|......%.|
|000012f0| 20 62 75 74 74 6f 6e 25 | 3d 31 20 f2 73 68 6f 77 | button%|=1 .show|
|00001300| 6d 65 6e 75 28 69 6d 65 | 6e 75 25 2c 30 2c 30 29 |menu(ime|nu%,0,0)|
|00001310| 0d 07 e4 05 e1 0d 07 ee | 05 3a 0d 07 f8 1c dd 20 |........|.:..... |
|00001320| f2 6d 65 73 73 61 67 65 | 72 65 63 69 65 76 65 28 |.message|recieve(|
|00001330| 63 6f 64 65 25 29 0d 08 | 02 0e c8 8e 20 63 6f 64 |code%)..|.... cod|
|00001340| 65 25 20 ca 0d 08 0c 13 | 20 20 c9 20 30 20 3a 20 |e% .....|  . 0 : |
|00001350| 71 75 69 74 25 3d b9 0d | 08 16 13 20 20 c9 20 32 |quit%=..|...  . 2|
|00001360| 20 3a 20 f2 73 61 76 65 | 69 74 0d 08 20 12 20 20 | : .save|it.. .  |
|00001370| c9 20 33 20 3a 20 f2 73 | 68 72 65 64 0d 08 2a 05 |. 3 : .s|hred..*.|
|00001380| cb 0d 08 34 05 e1 0d 08 | 3e 05 3a 0d 08 48 0c dd |...4....|>.:..H..|
|00001390| 20 f2 73 68 72 65 64 0d | 08 52 20 66 69 6c 65 6e | .shred.|.R filen|
|000013a0| 61 6d 65 24 3d a4 73 74 | 72 69 6e 67 28 62 6c 6f |ame$=.st|ring(blo|
|000013b0| 63 6b 25 2b 34 34 29 0d | 08 5c 40 e7 20 62 6c 6f |ck%+44).|.\@. blo|
|000013c0| 63 6b 25 21 34 30 3c 3e | 26 46 46 42 20 8c 20 f2 |ck%!40<>|&FFB . .|
|000013d0| 72 65 70 6f 72 74 28 22 | 54 68 69 73 20 69 73 6e |report("|This isn|
|000013e0| 27 74 20 61 20 42 41 53 | 49 43 20 66 69 6c 65 21 |'t a BAS|IC file!|
|000013f0| 22 2c 31 37 29 3a e1 0d | 08 66 1e f2 73 68 61 64 |",17):..|.f..shad|
|00001400| 65 69 63 6f 6e 28 63 6f | 6d 70 69 6c 65 72 77 69 |eicon(co|mpilerwi|
|00001410| 6e 25 2c 34 29 0d 08 70 | 23 f2 69 63 6f 6e 70 75 |n%,4)..p|#.iconpu|
|00001420| 74 74 65 78 74 28 63 6f | 6d 70 69 6c 65 72 77 69 |ttext(co|mpilerwi|
|00001430| 6e 25 2c 37 2c 22 22 29 | 0d 08 7a 23 f2 69 63 6f |n%,7,"")|..z#.ico|
|00001440| 6e 70 75 74 74 65 78 74 | 28 63 6f 6d 70 69 6c 65 |nputtext|(compile|
|00001450| 72 77 69 6e 25 2c 38 2c | 22 22 29 0d 08 84 2a f2 |rwin%,8,|"")...*.|
|00001460| 69 63 6f 6e 70 75 74 74 | 65 78 74 28 63 6f 6d 70 |iconputt|ext(comp|
|00001470| 69 6c 65 72 77 69 6e 25 | 2c 36 2c 66 69 6c 65 6e |ilerwin%|,6,filen|
|00001480| 61 6d 65 24 29 0d 08 8e | 23 f2 77 69 6e 64 6f 77 |ame$)...|#.window|
|00001490| 62 72 69 6e 67 74 6f 74 | 6f 70 28 63 6f 6d 70 69 |bringtot|op(compi|
|000014a0| 6c 65 72 77 69 6e 25 29 | 0d 08 98 05 e1 0d 08 a2 |lerwin%)|........|
|000014b0| 05 3a 0d 08 ac 13 dd 20 | a4 73 74 72 69 6e 67 28 |.:..... |.string(|
|000014c0| 70 74 72 25 29 0d 08 b6 | 07 ea 61 24 0d 08 c0 0f |ptr%)...|..a$....|
|000014d0| c8 95 20 3f 70 74 72 25 | 3c 3e 30 0d 08 ca 18 61 |.. ?ptr%|<>0....a|
|000014e0| 24 2b 3d bd 28 3f 70 74 | 72 25 29 3a 70 74 72 25 |$+=.(?pt|r%):ptr%|
|000014f0| 2b 3d 31 0d 08 d4 05 ce | 0d 08 de 07 3d 61 24 0d |+=1.....|....=a$.|
|00001500| 08 e8 05 3a 0d 08 f2 27 | dd 20 f2 69 63 6f 6e 70 |...:...'|. .iconp|
|00001510| 75 74 74 65 78 74 28 77 | 69 6e 64 6f 77 25 2c 69 |uttext(w|indow%,i|
|00001520| 63 6f 6e 25 2c 74 65 78 | 74 24 29 0d 08 fc 22 21 |con%,tex|t$)..."!|
|00001530| 62 6c 6f 63 6b 25 3d 77 | 69 6e 64 6f 77 25 3a 62 |block%=w|indow%:b|
|00001540| 6c 6f 63 6b 25 21 34 3d | 69 63 6f 6e 25 0d 09 06 |lock%!4=|icon%...|
|00001550| 22 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |".. "Wim|p_GetIco|
|00001560| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00001570| 09 10 22 21 62 6c 6f 63 | 6b 25 3d 77 69 6e 64 6f |.."!bloc|k%=windo|
|00001580| 77 25 3a 62 6c 6f 63 6b | 25 21 34 3d 69 63 6f 6e |w%:block|%!4=icon|
|00001590| 25 0d 09 1a 1a 62 6c 6f | 63 6b 25 21 38 3d 30 3a |%....blo|ck%!8=0:|
|000015a0| 62 6c 6f 63 6b 25 21 31 | 32 3d 30 0d 09 24 16 24 |block%!1|2=0..$.$|
|000015b0| 28 62 6c 6f 63 6b 25 21 | 32 38 29 3d 74 65 78 74 |(block%!|28)=text|
|000015c0| 24 0d 09 2e 22 c8 99 20 | 22 57 69 6d 70 5f 53 65 |$...".. |"Wimp_Se|
|000015d0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|000015e0| 63 6b 25 0d 09 38 05 e1 | 0d 09 42 05 3a 0d 09 4c |ck%..8..|..B.:..L|
|000015f0| 20 dd 20 f2 77 69 6e 64 | 6f 77 62 72 69 6e 67 74 | . .wind|owbringt|
|00001600| 6f 74 6f 70 28 77 69 6e | 64 6f 77 25 29 0d 09 56 |otop(win|dow%)..V|
|00001610| 13 21 62 6c 6f 63 6b 25 | 3d 77 69 6e 64 6f 77 25 |.!block%|=window%|
|00001620| 0d 09 60 24 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |..`$.. "|Wimp_Get|
|00001630| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00001640| 6f 63 6b 25 0d 09 6a 10 | 62 6c 6f 63 6b 25 21 32 |ock%..j.|block%!2|
|00001650| 38 3d 2d 31 0d 09 74 20 | c8 99 20 22 57 69 6d 70 |8=-1..t |.. "Wimp|
|00001660| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00001670| 6f 63 6b 25 0d 09 7e 05 | e1 0d 09 88 05 3a 0d 09 |ock%..~.|.....:..|
|00001680| 92 1a dd 20 f2 63 6f 6d | 70 69 6c 65 63 6c 69 63 |... .com|pileclic|
|00001690| 6b 28 69 63 6f 6e 25 29 | 0d 09 9c 11 c8 8e 20 62 |k(icon%)|...... b|
|000016a0| 6c 6f 63 6b 25 21 38 20 | ca 0d 09 a6 31 20 20 c9 |lock%!8 |....1  .|
|000016b0| 20 32 20 3a 20 f2 73 68 | 6f 77 6d 65 6e 75 28 69 | 2 : .sh|owmenu(i|
|000016c0| 6d 65 6e 75 25 2c 21 62 | 6c 6f 63 6b 25 2d 36 34 |menu%,!b|lock%-64|
|000016d0| 2c 62 6c 6f 63 6b 25 21 | 34 29 0d 09 b0 05 cb 0d |,block%!|4)......|
|000016e0| 09 ba 0e c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 09 c4 |..... ic|on% ....|
|000016f0| 13 20 c9 20 31 20 3a 20 | f2 63 6f 6d 70 69 6c 65 |. . 1 : |.compile|
|00001700| 0d 09 ce 26 20 c9 20 34 | 20 3a 20 f2 77 69 6e 64 |...& . 4| : .wind|
|00001710| 6f 77 62 72 69 6e 67 74 | 6f 74 6f 70 28 73 61 76 |owbringt|otop(sav|
|00001720| 65 77 69 6e 25 29 0d 09 | d8 15 20 c9 20 32 20 3a |ewin%)..|.. . 2 :|
|00001730| 20 f2 6d 75 6c 74 69 6c | 6f 6f 70 0d 09 e2 05 cb | .multil|oop.....|
|00001740| 0d 09 ec 05 e1 0d 09 f6 | 05 3a 0d 0a 00 0e dd 20 |........|.:..... |
|00001750| f2 63 6f 6d 70 69 6c 65 | 0d 0a 0a 40 e7 20 66 69 |.compile|...@. fi|
|00001760| 6c 65 6e 61 6d 65 24 3d | 22 22 20 8c 20 f2 72 65 |lename$=|"" . .re|
|00001770| 70 6f 72 74 28 22 54 68 | 65 72 65 27 73 20 6e 6f |port("Th|ere's no|
|00001780| 74 68 69 6e 67 20 74 6f | 20 63 6f 6d 70 69 6c 65 |thing to| compile|
|00001790| 21 22 2c 31 37 29 3a e1 | 0d 0a 14 0c f2 72 75 6e |!",17):.|.....run|
|000017a0| 74 69 6d 65 0d 0a 1e 1a | 66 69 6c 65 6e 61 6d 65 |time....|filename|
|000017b0| 25 3d 8e 28 66 69 6c 65 | 6e 61 6d 65 24 29 0d 0a |%=.(file|name$)..|
|000017c0| 28 16 66 69 6c 65 6c 25 | 3d a2 23 66 69 6c 65 6e |(.filel%|=.#filen|
|000017d0| 61 6d 65 25 0d 0a 32 15 | 54 25 3d a4 43 48 3a 41 |ame%..2.|T%=.CH:A|
|000017e0| 25 3d a4 43 48 3a f2 4c | 58 0d 0a 3c 2c f2 69 63 |%=.CH:.L|X..<,.ic|
|000017f0| 6f 6e 70 75 74 74 65 78 | 74 28 63 6f 6d 70 69 6c |onputtex|t(compil|
|00001800| 65 72 77 69 6e 25 2c 37 | 2c 22 43 6f 6d 70 69 6c |erwin%,7|,"Compil|
|00001810| 69 6e 67 22 29 0d 0a 46 | 10 63 6f 6d 70 69 6c 69 |ing")..F|.compili|
|00001820| 6e 67 25 3d b9 0d 0a 50 | 05 e1 0d 0a 5a 05 3a 0d |ng%=...P|....Z.:.|
|00001830| 0a 64 11 dd 20 f2 65 6e | 64 63 6f 6d 70 69 6c 65 |.d.. .en|dcompile|
|00001840| 0d 0a 6e 2a f2 63 6f 6e | 73 74 61 6e 74 73 3a f2 |..n*.con|stants:.|
|00001850| 77 69 6e 64 6f 77 62 72 | 69 6e 67 74 6f 74 6f 70 |windowbr|ingtotop|
|00001860| 28 73 61 76 65 77 69 6e | 25 29 0d 0a 78 36 f2 69 |(savewin|%)..x6.i|
|00001870| 63 6f 6e 70 75 74 74 65 | 78 74 28 73 61 76 65 77 |conputte|xt(savew|
|00001880| 69 6e 25 2c 36 2c c3 28 | a8 28 4d 43 4c 25 2f 31 |in%,6,.(|.(MCL%/1|
|00001890| 30 2e 32 34 29 2f 31 30 | 30 29 2b 22 20 6b 22 29 |0.24)/10|0)+" k")|
|000018a0| 0d 0a 82 26 f2 69 63 6f | 6e 70 75 74 74 65 78 74 |...&.ico|nputtext|
|000018b0| 28 73 61 76 65 77 69 6e | 25 2c 32 2c 73 61 76 65 |(savewin|%,2,save|
|000018c0| 6e 61 6d 65 24 29 0d 0a | 8c 24 f2 70 75 74 63 61 |name$)..|.$.putca|
|000018d0| 72 65 74 28 73 61 76 65 | 77 69 6e 25 2c 32 2c a9 |ret(save|win%,2,.|
|000018e0| 73 61 76 65 6e 61 6d 65 | 24 29 0d 0a 96 08 f2 46 |savename|$).....F|
|000018f0| 49 58 0d 0a a0 10 63 6f | 6d 70 69 6c 69 6e 67 25 |IX....co|mpiling%|
|00001900| 3d a3 0d 0a aa 2b f2 69 | 63 6f 6e 70 75 74 74 65 |=....+.i|conputte|
|00001910| 78 74 28 63 6f 6d 70 69 | 6c 65 72 77 69 6e 25 2c |xt(compi|lerwin%,|
|00001920| 37 2c 22 43 6f 6d 70 69 | 6c 65 64 22 29 0d 0a b4 |7,"Compi|led")...|
|00001930| 20 f2 75 6e 73 68 61 64 | 65 69 63 6f 6e 28 63 6f | .unshad|eicon(co|
|00001940| 6d 70 69 6c 65 72 77 69 | 6e 25 2c 34 29 0d 0a be |mpilerwi|n%,4)...|
|00001950| 09 42 43 25 3d 30 0d 0a | c8 0f d9 23 66 69 6c 65 |.BC%=0..|...#file|
|00001960| 6e 61 6d 65 25 0d 0a d2 | 05 e1 0d 0a dc 05 3a 0d |name%...|......:.|
|00001970| 0a e6 0a dd f2 73 61 76 | 65 0d 0a f0 28 ff 22 53 |.....sav|e...(."S|
|00001980| 41 56 45 20 48 65 6c 6c | 6f 20 22 2b c3 7e 70 72 |AVE Hell|o "+.~pr|
|00001990| 6f 67 72 61 6d 2b 22 20 | 2b 22 2b c3 7e 4d 43 4c |ogram+" |+"+.~MCL|
|000019a0| 25 0d 0a fa 1d ff 22 53 | 65 74 74 79 70 65 20 48 |%....."S|ettype H|
|000019b0| 65 6c 6c 6f 20 41 62 73 | 6f 6c 75 74 65 22 0d 0b |ello Abs|olute"..|
|000019c0| 04 05 e1 0d 0b 0e 05 3a | 0d 0b 18 08 dd f2 53 31 |.......:|......S1|
|000019d0| 0d 0b 22 05 e1 0d 0b 2c | 08 dd f2 53 32 0d 0b 36 |.."....,|...S2..6|
|000019e0| 05 e1 0d 0b 40 1c dd a4 | 43 48 3a 42 43 25 2b 3d |....@...|CH:BC%+=|
|000019f0| 31 3a 3d 9a 23 66 69 6c | 65 6e 61 6d 65 25 0d 0b |1:=.#fil|ename%..|
|00001a00| 4a 28 dd f2 41 3a f2 53 | 31 3a fb 33 3a e7 41 25 |J(..A:.S|1:.3:.A%|
|00001a10| 3e 31 32 37 20 d6 20 74 | 6f 6b 65 6e 70 72 69 6e |>127 . t|okenprin|
|00001a20| 74 20 8b ef 41 25 0d 0b | 54 21 f2 53 32 3a 41 25 |t ..A%..|T!.S2:A%|
|00001a30| 3d a4 43 48 3a e7 41 25 | 3d 32 30 30 20 41 25 3d |=.CH:.A%|=200 A%=|
|00001a40| 32 35 36 2b a4 43 48 0d | 0b 5e 05 e1 0d 0b 68 08 |256+.CH.|.^....h.|
|00001a50| dd f2 4c 58 0d 0b 72 1b | e7 54 25 3d 65 6f 6c 6e |..LX..r.|.T%=eoln|
|00001a60| 20 80 41 25 3d 32 35 35 | 20 54 25 3d 65 6f 70 0d | .A%=255| T%=eop.|
|00001a70| 0b 7c 0d e7 54 25 3d 65 | 6f 70 3a e1 0d 0b 86 10 |.|..T%=e|op:.....|
|00001a80| e7 54 25 3d 65 6f 6c 6e | 20 f2 4e 4c 0d 0b 90 18 |.T%=eoln| .NL....|
|00001a90| e7 41 25 3d 73 70 63 3a | f5 f2 41 3a fd 41 25 3c |.A%=spc:|..A:.A%<|
|00001aa0| 3e 73 70 63 0d 0b 9a 13 | e7 ac a4 41 4c 28 41 25 |>spc....|...AL(A%|
|00001ab0| 29 20 e5 8d 64 7e 4b 0d | 0b a4 07 f2 49 47 0d 0b |) ..d~K.|....IG..|
|00001ac0| ae 1c e7 53 24 3d 22 4d | 41 4c 4c 4f 43 22 20 54 |...S$="M|ALLOC" T|
|00001ad0| 25 3d 6d 61 6c 6c 6f 63 | 3a e1 0d 0b b8 19 e7 c2 |%=malloc|:.......|
|00001ae0| 53 24 29 3d 22 24 22 20 | 54 25 3d 73 69 64 3a f2 |S$)="$" |T%=sid:.|
|00001af0| 53 3a e1 0d 0b c2 15 e7 | 63 68 6b 66 6f 72 6e 6f |S:......|chkforno|
|00001b00| 6e 69 6e 74 73 25 20 8c | 0d 0b cc 47 e7 c2 53 24 |nints% .|...G..S$|
|00001b10| 29 3c 3e 22 25 22 20 f2 | 53 31 3a f2 72 65 70 6f |)<>"%" .|S1:.repo|
|00001b20| 72 74 28 22 20 4f 6e 6c | 79 20 69 6e 74 65 67 65 |rt(" Onl|y intege|
|00001b30| 72 20 76 61 72 69 61 62 | 6c 65 73 20 61 6c 6c 6f |r variab|les allo|
|00001b40| 77 65 64 22 2c 31 37 29 | 3a f2 53 55 42 45 52 0d |wed",17)|:.SUBER.|
|00001b50| 0b d6 05 cd 0d 0b e0 18 | e7 41 25 3d 6c 62 20 54 |........|.A%=lb T|
|00001b60| 25 3d 61 69 64 20 8b 54 | 25 3d 69 64 0d 0b ea 06 |%=aid .T|%=id....|
|00001b70| f2 53 0d 0b f4 05 e1 0d | 0b fe 13 e7 41 25 3c 3e |.S......|....A%<>|
|00001b80| 70 72 6f 63 20 e5 8d 54 | 5c 4c 0d 0c 08 1d 54 25 |proc ..T|\L....T%|
|00001b90| 3d 41 25 3a f2 41 3a e7 | ac a4 41 4c 28 41 25 29 |=A%:.A:.|..AL(A%)|
|00001ba0| 20 54 25 3d 30 3a e1 0d | 0c 12 0c f2 49 47 3a f2 | T%=0:..|....IG:.|
|00001bb0| 53 3a e1 0d 0c 1c 46 e7 | a4 44 4e 28 41 25 29 20 |S:....F.|.DN(A%) |
|00001bc0| f2 44 4e 47 20 8b e7 41 | 25 3d 97 22 26 22 20 f2 |.DNG ..A|%=."&" .|
|00001bd0| 48 45 58 44 4e 47 20 8b | e7 41 25 3d 64 71 75 6f |HEXDNG .|.A%=dquo|
|00001be0| 74 65 20 f2 53 47 20 8b | e7 41 25 3d 6c 69 6e 6f |te .SG .|.A%=lino|
|00001bf0| 20 f2 4c 47 20 8b f2 54 | 47 0d 0c 26 05 e1 0d 0c | .LG ..T|G..&....|
|00001c00| 30 2a dd a4 41 4c 28 41 | 25 29 3a 3d 28 41 25 3e |0*..AL(A|%):=(A%>|
|00001c10| 36 34 80 41 25 3c 39 31 | 29 84 28 41 25 3e 39 36 |64.A%<91|).(A%>96|
|00001c20| 80 41 25 3c 31 32 33 29 | 0d 0c 3a 1b dd a4 44 4e |.A%<123)|..:...DN|
|00001c30| 28 41 25 29 3a 3d 28 41 | 25 3e 34 37 80 41 25 3c |(A%):=(A|%>47.A%<|
|00001c40| 35 38 29 0d 0c 44 2b dd | a4 44 4e 4f 48 28 41 25 |58)..D+.|.DNOH(A%|
|00001c50| 29 3a 3d 28 41 25 3e 34 | 37 80 41 25 3c 35 38 29 |):=(A%>4|7.A%<58)|
|00001c60| 84 28 41 25 3e 36 34 80 | 41 25 3c 37 31 29 0d 0c |.(A%>64.|A%<71)..|
|00001c70| 4e 08 dd f2 4c 47 0d 0c | 58 16 4e 25 3d a4 4c 28 |N...LG..|X.N%=.L(|
|00001c80| a4 43 48 2c a4 43 48 2c | a4 43 48 29 0d 0c 62 19 |.CH,.CH,|.CH)..b.|
|00001c90| 54 25 3d 6c 69 6e 6f 3a | 41 25 3d a4 43 48 3a 53 |T%=lino:|A%=.CH:S|
|00001ca0| 24 3d c3 4e 25 0d 0c 6c | 11 f2 53 3a f2 53 31 3a |$=.N%..l|..S:.S1:|
|00001cb0| fb 33 3a f2 53 32 0d 0c | 76 05 e1 0d 0c 80 08 dd |.3:.S2..|v.......|
|00001cc0| f2 49 47 0d 0c 8a 3c 53 | 24 3d 22 22 3a f5 3a 53 |.IG...<S|$="":.:S|
|00001cd0| 24 2b 3d bd 41 25 3a f2 | 41 3a fd ac 28 a4 44 4e |$+=.A%:.|A:..(.DN|
|00001ce0| 28 41 25 29 84 a4 41 4c | 28 41 25 29 29 80 41 25 |(A%)..AL|(A%)).A%|
|00001cf0| 3c 3e 97 22 25 22 80 41 | 25 3c 3e 97 22 24 22 0d |<>."%".A|%<>."$".|
|00001d00| 0c 94 05 e1 0d 0c 9e 09 | dd f2 44 4e 47 0d 0c a8 |........|..DNG...|
|00001d10| 31 53 24 3d 22 22 3a f5 | 3a 53 24 2b 3d bd 41 25 |1S$="":.|:S$+=.A%|
|00001d20| 3a f2 41 3a fd ac a4 44 | 4e 28 41 25 29 3a 54 25 |:.A:...D|N(A%):T%|
|00001d30| 3d 63 6f 6e 73 74 3a 4e | 3d bb 53 24 3a e1 0d 0c |=const:N|=.S$:...|
|00001d40| b2 12 54 25 3d 63 6f 6e | 73 74 3a 4e 3d bb 53 24 |..T%=con|st:N=.S$|
|00001d50| 0d 0c bc 05 e1 0d 0c c6 | 55 dd f2 48 45 58 44 4e |........|U..HEXDN|
|00001d60| 47 3a 53 24 3d 22 22 3a | f5 3a 53 24 2b 3d bd 41 |G:S$="":|.:S$+=.A|
|00001d70| 25 3a f2 41 3a fd ac a4 | 44 4e 4f 48 28 41 25 29 |%:.A:...|DNOH(A%)|
|00001d80| 3a 54 25 3d 63 6f 6e 73 | 74 3a c8 99 22 4f 53 5f |:T%=cons|t:.."OS_|
|00001d90| 52 65 61 64 55 6e 73 69 | 67 6e 65 64 22 2c 31 36 |ReadUnsi|gned",16|
|00001da0| 2c 53 24 20 b8 2c 2c 4e | 3a e1 0d 0c d0 11 dd f2 |,S$ .,,N|:.......|
|00001db0| 53 47 3a 53 24 3d 22 22 | 3a f2 41 0d 0c da 48 f5 |SG:S$=""|:.A...H.|
|00001dc0| 53 24 2b 3d bd 41 25 3a | f2 53 31 3a fb 33 3a ef |S$+=.A%:|.S1:.3:.|
|00001dd0| 41 25 3a f2 53 32 3a 41 | 25 3d a4 43 48 3a fd 41 |A%:.S2:A|%=.CH:.A|
|00001de0| 25 3d 64 71 75 6f 74 65 | 20 84 41 25 3d 65 6f 6c |%=dquote| .A%=eol|
|00001df0| 6e 3a e7 41 25 3d 65 6f | 6c 6e 20 f2 45 52 52 20 |n:.A%=eo|ln .ERR |
|00001e00| 8b f2 41 0d 0c e4 14 e7 | 41 25 3d 64 71 75 6f 74 |..A.....|A%=dquot|
|00001e10| 65 20 e5 8d 64 5a 4c 0d | 0c ee 2f 54 25 3d 73 74 |e ..dZL.|../T%=st|
|00001e20| 72 69 6e 67 3a 63 6f 6e | 73 74 73 74 72 69 6e 67 |ring:con|ststring|
|00001e30| 24 28 4e 43 53 54 25 29 | 3d 53 24 3a 4e 43 53 54 |$(NCST%)|=S$:NCST|
|00001e40| 25 2b 3d 31 3a e1 0d 0c | f8 08 dd f2 54 47 0d 0d |%+=1:...|....TG..|
|00001e50| 02 32 e7 54 25 3d 6e 65 | 78 74 20 80 41 25 3d 63 |.2.T%=ne|xt .A%=c|
|00001e60| 6f 6d 6d 61 20 54 25 3d | 63 6f 6c 3a 41 25 3d 6e |omma T%=|col:A%=n|
|00001e70| 65 78 74 3a f2 53 31 3a | fb 33 3a f2 53 32 3a e1 |ext:.S1:|.3:.S2:.|
|00001e80| 0d 0d 0c 46 e7 41 25 3d | 74 69 6d 65 73 20 80 28 |...F.A%=|times .(|
|00001e90| 54 25 3d 65 6f 6c 6e 20 | 84 54 25 3d 63 6f 6c 29 |T%=eoln |.T%=col)|
|00001ea0| 20 53 24 3d 22 22 3a f5 | 53 24 2b 3d bd 41 25 3a | S$="":.|S$+=.A%:|
|00001eb0| f2 41 3a fd 41 25 3d 65 | 6f 6c 6e 3a 54 25 3d 74 |.A:.A%=e|oln:T%=t|
|00001ec0| 69 6d 65 73 3a e1 0d 0d | 16 0c 54 25 3d 41 25 3a |imes:...|..T%=A%:|
|00001ed0| f2 41 0d 0d 20 1b e7 54 | 25 3d 67 74 20 80 41 25 |.A.. ..T|%=gt .A%|
|00001ee0| 3d 65 71 20 54 25 3d 67 | 65 71 3a f2 41 0d 0d 2a |=eq T%=g|eq:.A..*|
|00001ef0| 1b e7 54 25 3d 6c 74 20 | 80 41 25 3d 65 71 20 54 |..T%=lt |.A%=eq T|
|00001f00| 25 3d 6c 65 71 3a f2 41 | 0d 0d 34 1b e7 54 25 3d |%=leq:.A|..4..T%=|
|00001f10| 6c 74 20 80 41 25 3d 67 | 74 20 54 25 3d 6e 65 71 |lt .A%=g|t T%=neq|
|00001f20| 3a f2 41 0d 0d 3e 20 e7 | 54 25 3d 70 6c 75 73 20 |:.A..> .|T%=plus |
|00001f30| 80 41 25 3d 65 71 20 54 | 25 3d 70 6c 75 73 65 71 |.A%=eq T|%=pluseq|
|00001f40| 3a f2 41 0d 0d 48 22 e7 | 54 25 3d 6d 69 6e 75 73 |:.A..H".|T%=minus|
|00001f50| 20 80 41 25 3d 65 71 20 | 54 25 3d 6d 69 6e 75 73 | .A%=eq |T%=minus|
|00001f60| 65 71 3a f2 41 0d 0d 52 | 21 e7 54 25 3d 72 65 6d |eq:.A..R|!.T%=rem|
|00001f70| 20 c8 95 41 25 3c 3e 65 | 6f 6c 6e 3a f2 41 3a ce | ..A%<>e|oln:.A:.|
|00001f80| 3a e5 8d 54 56 4d 0d 0d | 5c 2c e7 54 25 3d 63 6f |:..TVM..|\,.T%=co|
|00001f90| 6c 20 80 41 25 3d 63 6f | 6c 20 f5 f2 41 3a fd 28 |l .A%=co|l ..A:.(|
|00001fa0| 41 25 3c 3e 63 6f 6c 29 | 80 28 41 25 3c 3e 73 70 |A%<>col)|.(A%<>sp|
|00001fb0| 63 29 0d 0d 66 1d e7 54 | 25 3d 63 6f 6c 20 80 41 |c)..f..T|%=col .A|
|00001fc0| 25 3d 65 6f 6c 6e 20 54 | 25 3d 41 25 3a f2 41 0d |%=eoln T|%=A%:.A.|
|00001fd0| 0d 70 05 e1 0d 0d 7a 08 | dd f2 4e 4c 0d 0d 84 1a |.p....z.|..NL....|
|00001fe0| 4c 49 25 3d 41 25 2a 32 | 35 36 2b a4 43 48 3a 4c |LI%=A%*2|56+.CH:L|
|00001ff0| 4c 25 3d a4 43 48 0d 0d | 8e 1e 6c 69 6e 6f 28 4e |L%=.CH..|..lino(N|
|00002000| 4c 25 29 3d 4c 49 25 3a | 6c 69 6e 61 28 4e 4c 25 |L%)=LI%:|lina(NL%|
|00002010| 29 3d 50 25 0d 0d 98 0e | 4e 4c 25 2b 3d 31 3a f2 |)=P%....|NL%+=1:.|
|00002020| 53 31 0d 0d a2 0c fb 32 | 3a 41 25 3d 33 32 0d 0d |S1.....2|:A%=32..|
|00002030| ac 09 f2 53 32 3a e1 0d | 0d b6 07 dd f2 53 0d 0d |...S2:..|.....S..|
|00002040| c0 13 53 4e 25 3d 2d 31 | 3a f5 3a 53 4e 25 2b 3d |..SN%=-1|:.:SN%+=|
|00002050| 31 0d 0d ca 2a fd 28 73 | 74 24 28 53 4e 25 29 3d |1...*.(s|t$(SN%)=|
|00002060| 53 24 80 73 74 70 28 53 | 4e 25 29 3d 54 25 29 84 |S$.stp(S|N%)=T%).|
|00002070| 73 74 24 28 53 4e 25 29 | 3d 22 22 0d 0d d4 12 e7 |st$(SN%)|="".....|
|00002080| 73 74 24 28 53 4e 25 29 | 3d 22 22 20 8c 0d 0d de |st$(SN%)|="" ....|
|00002090| 77 73 74 24 28 53 4e 25 | 29 3d 53 24 3a 4e 53 25 |wst$(SN%|)=S$:NS%|
|000020a0| 3d 4e 53 25 2b 31 3a 73 | 74 70 28 53 4e 25 29 3d |=NS%+1:s|tp(SN%)=|
|000020b0| 54 25 3a e7 54 25 3d 69 | 64 20 73 61 28 53 4e 25 |T%:.T%=i|d sa(SN%|
|000020c0| 29 3d 76 6d 65 6d 3a 76 | 6d 65 6d 2b 3d 34 20 8b |)=vmem:v|mem+=4 .|
|000020d0| e7 54 25 3d 73 69 64 20 | 73 61 28 53 4e 25 29 3d |.T%=sid |sa(SN%)=|
|000020e0| 73 6d 65 6d 3a 73 6d 65 | 6d 2b 3d 31 20 8b e7 54 |smem:sme|m+=1 ..T|
|000020f0| 25 3d 61 69 64 20 73 61 | 28 53 4e 25 29 3d 4e 41 |%=aid sa|(SN%)=NA|
|00002100| 45 25 2a 34 0d 0d e8 05 | cd 0d 0d f2 05 e1 0d 0d |E%*4....|........|
|00002110| fc 0a dd f2 49 4e 46 4f | 0d 0e 06 07 f2 53 32 0d |....INFO|.....S2.|
|00002120| 0e 10 05 e1 0d 0e 1a 0a | dd f2 70 72 6f 67 0d 0e |........|..prog..|
|00002130| 24 35 f2 69 63 6f 6e 70 | 75 74 74 65 78 74 28 63 |$5.iconp|uttext(c|
|00002140| 6f 6d 70 69 6c 65 72 77 | 69 6e 25 2c 38 2c c3 28 |ompilerw|in%,8,.(|
|00002150| a8 28 42 43 25 2f 66 69 | 6c 65 6c 25 2a 31 30 30 |.(BC%/fi|lel%*100|
|00002160| 29 29 29 0d 0e 2e 1e e7 | 54 25 3d 65 6f 70 20 f2 |))).....|T%=eop .|
|00002170| 45 4e 44 3a f2 65 6e 64 | 63 6f 6d 70 69 6c 65 3a |END:.end|compile:|
|00002180| e1 0d 0e 38 1f f2 73 74 | 61 74 65 3a e7 54 25 3d |...8..st|ate:.T%=|
|00002190| 63 6f 6c 20 84 54 25 3d | 65 6f 6c 6e 20 f2 4c 58 |col .T%=|eoln .LX|
|000021a0| 0d 0e 42 05 e1 0d 0e 4c | 0b dd f2 73 74 61 74 65 |..B....L|...state|
|000021b0| 0d 0e 56 0b c8 8e 20 54 | 25 20 ca 0d 0e 60 1b c9 |..V... T|% ...`..|
|000021c0| 20 65 6f 6c 6e 20 84 54 | 25 3d 63 6f 6c 20 84 54 | eoln .T|%=col .T|
|000021d0| 25 3d 65 6c 73 65 0d 0e | 6a 15 c9 20 6d 61 6c 6c |%=else..|j.. mall|
|000021e0| 6f 63 3a 20 f2 6d 61 6c | 6c 6f 63 0d 0e 74 11 c9 |oc: .mal|loc..t..|
|000021f0| 20 63 61 6c 6c 3a 20 f2 | 63 61 6c 6c 0d 0e 7e 17 | call: .|call..~.|
|00002200| c9 20 61 69 64 3a 20 f2 | 61 73 73 69 67 6e 61 72 |. aid: .|assignar|
|00002210| 72 61 79 0d 0e 88 11 c9 | 20 69 64 3a 20 f2 61 73 |ray.....| id: .as|
|00002220| 73 69 67 6e 0d 0e 92 14 | c9 20 73 69 64 3a 20 f2 |sign....|. sid: .|
|00002230| 61 73 73 74 72 69 6e 67 | 0d 0e 9c 0f c9 20 64 69 |asstring|..... di|
|00002240| 6d 3a 20 f2 64 69 6d 0d | 0e a6 13 c9 20 6f 73 63 |m: .dim.|.... osc|
|00002250| 6c 69 3a 20 f2 6f 73 63 | 6c 69 0d 0e b0 11 c9 20 |li: .osc|li..... |
|00002260| 70 72 6f 63 3a 20 f2 70 | 72 6f 63 0d 0e ba 0f c9 |proc: .p|roc.....|
|00002270| 20 72 65 70 3a 20 f2 72 | 65 70 0d 0e c4 13 c9 20 | rep: .r|ep..... |
|00002280| 77 68 69 6c 65 3a 20 f2 | 77 68 69 6c 65 0d 0e ce |while: .|while...|
|00002290| 13 c9 20 67 6f 73 75 62 | 3a 20 f2 67 6f 73 75 62 |.. gosub|: .gosub|
|000022a0| 0d 0e d8 15 c9 20 72 65 | 74 75 72 6e 3a 20 f2 72 |..... re|turn: .r|
|000022b0| 65 74 75 72 6e 0d 0e e2 | 0f c9 20 76 64 75 3a 20 |eturn...|.. vdu: |
|000022c0| f2 76 64 75 0d 0e ec 13 | c9 20 70 72 69 6e 74 3a |.vdu....|. print:|
|000022d0| 20 f2 70 72 69 6e 74 0d | 0e f6 14 c9 20 69 6e 70 | .print.|.... inp|
|000022e0| 75 74 3a 20 20 f2 69 6e | 70 75 74 0d 0f 00 0f c9 |ut:  .in|put.....|
|000022f0| 20 65 6e 64 3a 20 f2 65 | 6e 64 0d 0f 0a 13 c9 20 | end: .e|nd..... |
|00002300| 73 6f 75 6e 64 3a 20 f2 | 73 6f 75 6e 64 0d 0f 14 |sound: .|sound...|
|00002310| 15 c9 20 76 6f 69 63 65 | 73 3a 20 f2 76 6f 69 63 |.. voice|s: .voic|
|00002320| 65 73 0d 0f 1e 11 c9 20 | 6d 6f 76 65 3a 20 f2 6d |es..... |move: .m|
|00002330| 6f 76 65 0d 0f 28 11 c9 | 20 64 72 61 77 3a 20 f2 |ove..(..| draw: .|
|00002340| 64 72 61 77 0d 0f 32 17 | c9 20 63 6c 73 3a 20 f2 |draw..2.|. cls: .|
|00002350| 4c 58 3a f2 56 44 4c 28 | 31 32 29 0d 0f 3c 11 c9 |LX:.VDL(|12)..<..|
|00002360| 20 6d 6f 64 65 3a 20 f2 | 6d 6f 64 65 0d 0f 46 11 | mode: .|mode..F.|
|00002370| c9 20 70 6c 6f 74 3a 20 | f2 70 6c 6f 74 0d 0f 50 |. plot: |.plot..P|
|00002380| 11 c9 20 77 61 69 74 3a | 20 f2 77 61 69 74 0d 0f |.. wait:| .wait..|
|00002390| 5a 11 c9 20 67 63 6f 6c | 3a 20 f2 67 63 6f 6c 0d |Z.. gcol|: .gcol.|
|000023a0| 0f 64 12 c9 20 6f 6e 3a | 20 f2 4c 58 3a f2 43 4f |.d.. on:| .LX:.CO|
|000023b0| 4e 0d 0f 6e 14 c9 20 6f | 66 66 3a 20 f2 4c 58 3a |N..n.. o|ff: .LX:|
|000023c0| f2 43 4f 46 46 0d 0f 78 | 17 c9 20 63 6c 67 3a 20 |.COFF..x|.. clg: |
|000023d0| f2 4c 58 3a f2 56 44 4c | 28 31 36 29 0d 0f 82 15 |.LX:.VDL|(16)....|
|000023e0| c9 20 63 6f 6c 6f 75 72 | 3a 20 f2 63 6f 6c 6f 75 |. colour|: .colou|
|000023f0| 72 0d 0f 8c 15 c9 20 63 | 69 72 63 6c 65 3a 20 f2 |r..... c|ircle: .|
|00002400| 63 69 72 63 6c 65 0d 0f | 96 13 c9 20 6d 6f 75 73 |circle..|... mous|
|00002410| 65 3a 20 f2 6d 6f 75 73 | 65 0d 0f a0 1b c9 20 72 |e: .mous|e..... r|
|00002420| 65 63 74 61 6e 67 6c 65 | 3a 20 f2 72 65 63 74 61 |ectangle|: .recta|
|00002430| 6e 67 6c 65 0d 0f aa 17 | c9 20 65 6c 6c 69 70 73 |ngle....|. ellips|
|00002440| 65 3a 20 f2 65 6c 6c 69 | 70 73 65 0d 0f b4 11 c9 |e: .elli|pse.....|
|00002450| 20 66 69 6c 6c 3a 20 f2 | 66 69 6c 6c 0d 0f be 15 | fill: .|fill....|
|00002460| c9 20 6f 72 69 67 69 6e | 3a 20 f2 6f 72 69 67 69 |. origin|: .origi|
|00002470| 6e 0d 0f c8 0d c9 20 69 | 66 3a 20 f2 69 66 0d 0f |n..... i|f: .if..|
|00002480| d2 0f c9 20 66 6f 72 3a | 20 f2 66 6f 72 0d 0f dc |... for:| .for...|
|00002490| 11 c9 20 67 6f 74 6f 3a | 20 f2 67 6f 74 6f 0d 0f |.. goto:| .goto..|
|000024a0| e6 0f c9 20 64 65 66 3a | 20 f2 64 65 66 0d 0f f0 |... def:| .def...|
|000024b0| 19 c9 20 74 69 6d 65 73 | 3a 20 f2 73 74 61 72 63 |.. times|: .starc|
|000024c0| 6f 6d 6d 61 6e 64 0d 0f | fa 13 c9 20 74 69 6d 65 |ommand..|... time|
|000024d0| 6c 65 3a 20 f2 74 69 6d | 65 0d 10 04 11 c9 20 73 |le: .tim|e..... s|
|000024e0| 77 61 70 3a 20 f2 73 77 | 61 70 0d 10 0e 0f c9 20 |wap: .sw|ap..... |
|000024f0| 73 79 73 3a 20 f2 73 79 | 73 0d 10 18 05 cb 0d 10 |sys: .sy|s.......|
|00002500| 22 27 e7 28 54 25 3c 3e | 65 6f 6c 6e 20 80 54 25 |"'.(T%<>|eoln .T%|
|00002510| 3c 3e 63 6f 6c 20 80 54 | 25 3c 3e 65 6c 73 65 29 |<>col .T|%<>else)|
|00002520| 20 f2 45 52 52 0d 10 2c | 05 e1 0d 10 36 05 3a 0d | .ERR..,|....6.:.|
|00002530| 10 40 ae dd f2 6d 61 6c | 6c 6f 63 3a ea 53 54 25 |.@...mal|loc:.ST%|
|00002540| 3a f2 4c 58 3a f2 43 28 | 73 74 72 69 6e 67 29 3a |:.LX:.C(|string):|
|00002550| f2 4c 58 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |.LX:.C(c|omma):.L|
|00002560| 58 3a f2 43 28 69 64 29 | 3a 53 54 25 3d 53 4e 25 |X:.C(id)|:ST%=SN%|
|00002570| 3a f2 4c 58 3a e7 54 25 | 3c 3e 65 6f 6c 6e 20 80 |:.LX:.T%|<>eoln .|
|00002580| 54 25 3c 3e 63 6f 6c 20 | f2 43 28 63 6f 6d 6d 61 |T%<>col |.C(comma|
|00002590| 29 3a f2 4c 58 3a f2 43 | 28 69 64 29 3a f2 4d 41 |):.LX:.C|(id):.MA|
|000025a0| 4c 4c 4f 43 28 4e 43 53 | 54 25 2d 31 2c 73 61 28 |LLOC(NCS|T%-1,sa(|
|000025b0| 53 54 25 29 2c 73 61 28 | 53 4e 25 29 29 3a f2 4c |ST%),sa(|SN%)):.L|
|000025c0| 58 20 8b f2 4d 41 4c 4c | 4f 43 28 4e 43 53 54 25 |X ..MALL|OC(NCST%|
|000025d0| 2d 31 2c 73 61 28 53 54 | 25 29 2c 30 29 0d 10 4a |-1,sa(ST|%),0)..J|
|000025e0| 05 e1 0d 10 54 19 dd f2 | 63 61 6c 6c 3a ea 20 53 |....T...|call:. S|
|000025f0| 46 25 3a f2 4c 58 3a f2 | 65 78 70 0d 10 5e 3a 53 |F%:.LX:.|exp..^:S|
|00002600| 46 25 3d 30 3a c8 95 20 | 54 25 3c 3e 65 6f 6c 6e |F%=0:.. |T%<>eoln|
|00002610| 20 80 54 25 3c 3e 63 6f | 6c 20 f2 43 28 63 6f 6d | .T%<>co|l .C(com|
|00002620| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a 53 46 25 |ma):.LX:|.exp:SF%|
|00002630| 2b 3d 31 3a ce 0d 10 68 | 10 f2 43 41 4c 4c 28 53 |+=1:...h|..CALL(S|
|00002640| 46 25 29 3a e1 0d 10 72 | 17 dd f2 64 65 66 3a ea |F%):...r|...def:.|
|00002650| 20 4e 50 25 2c 50 53 25 | 2c 53 54 25 0d 10 7c 1c | NP%,PS%|,ST%..|.|
|00002660| f2 4c 58 3a f2 43 28 70 | 72 6f 63 29 3a 53 54 25 |.LX:.C(p|roc):ST%|
|00002670| 3d 53 4e 25 3a f2 4c 58 | 0d 10 86 1c e7 54 25 3c |=SN%:.LX|.....T%<|
|00002680| 3e 6c 62 20 73 61 28 53 | 54 25 29 3d 50 25 3a e5 |>lb sa(S|T%)=P%:.|
|00002690| 8d 64 4c 50 0d 10 90 11 | 50 53 25 3d 50 25 3a f2 |.dLP....|PS%=P%:.|
|000026a0| 50 53 28 31 29 0d 10 9a | 1b f2 4c 58 3a f2 43 28 |PS(1)...|..LX:.C(|
|000026b0| 69 64 29 3a f2 50 50 28 | 73 61 28 53 4e 25 29 29 |id):.PP(|sa(SN%))|
|000026c0| 0d 10 a4 1e f2 4c 58 3a | 4e 50 25 2b 3d 31 3a e7 |.....LX:|NP%+=1:.|
|000026d0| 54 25 3d 63 6f 6d 6d 61 | 20 e5 8d 74 5a 50 0d 10 |T%=comma| ..tZP..|
|000026e0| ae 0e f2 43 28 72 62 29 | 3a f2 4c 58 0d 10 b8 1f |...C(rb)|:.LX....|
|000026f0| 56 25 3d 50 25 3a 50 25 | 3d 50 53 25 3a f2 50 53 |V%=P%:P%|=PS%:.PS|
|00002700| 28 4e 50 25 29 3a 50 25 | 3d 56 25 0d 10 c2 1d f2 |(NP%):P%|=V%.....|
|00002710| 50 53 58 3a 73 61 28 53 | 54 25 29 3d 50 25 3a f2 |PSX:sa(S|T%)=P%:.|
|00002720| 4a 53 52 28 50 53 25 29 | 0d 10 cc 1d e7 54 25 3d |JSR(PS%)|.....T%=|
|00002730| 65 6f 70 20 84 54 25 3d | 65 6e 64 70 72 6f 63 20 |eop .T%=|endproc |
|00002740| e5 8d 64 60 50 0d 10 d6 | 25 f2 73 74 61 74 65 3a |..d`P...|%.state:|
|00002750| e7 54 25 3d 63 6f 6c 20 | 84 54 25 3d 65 6f 6c 6e |.T%=col |.T%=eoln|
|00002760| 20 f2 4c 58 3a e5 8d 64 | 4c 50 0d 10 e0 13 f2 43 | .LX:..d|LP.....C|
|00002770| 28 65 6e 64 70 72 6f 63 | 29 3a f2 4c 58 0d 10 ea |(endproc|):.LX...|
|00002780| 18 e7 4e 50 25 3c 3e 30 | 20 f2 50 46 28 4e 50 25 |..NP%<>0| .PF(NP%|
|00002790| 2c 50 53 25 29 0d 10 f4 | 0a f2 52 54 53 3a e1 0d |,PS%)...|..RTS:..|
|000027a0| 10 fe 05 3a 0d 11 08 14 | dd f2 65 6e 64 3a f2 45 |...:....|..end:.E|
|000027b0| 4e 44 3a f2 4c 58 3a e1 | 0d 11 12 05 3a 0d 11 1c |ND:.LX:.|....:...|
|000027c0| 36 dd f2 67 6f 73 75 62 | 3a f2 4c 58 3a f2 43 28 |6..gosub|:.LX:.C(|
|000027d0| 6c 69 6e 6f 29 3a f2 4a | 4d 28 53 4e 25 29 3a 73 |lino):.J|M(SN%):s|
|000027e0| 74 70 28 53 4e 25 29 3d | 67 6f 73 75 62 3a f2 4c |tp(SN%)=|gosub:.L|
|000027f0| 58 3a e1 0d 11 26 17 dd | f2 72 65 74 75 72 6e 3a |X:...&..|.return:|
|00002800| f2 4c 58 3a f2 52 54 53 | 3a e1 0d 11 30 05 3a 0d |.LX:.RTS|:...0.:.|
|00002810| 11 3a 1e dd f2 61 73 73 | 69 67 6e 3a ea 20 53 54 |.:...ass|ign:. ST|
|00002820| 25 2c 54 31 25 3a 53 54 | 25 3d 53 4e 25 0d 11 44 |%,T1%:ST|%=SN%..D|
|00002830| 3c f2 4c 58 3a 54 31 25 | 3d 54 25 3a e7 54 25 3d |<.LX:T1%|=T%:.T%=|
|00002840| 70 6c 75 73 65 71 20 84 | 54 25 3d 6d 69 6e 75 73 |pluseq .|T%=minus|
|00002850| 65 71 20 f2 4c 44 41 28 | 73 61 28 53 54 25 29 29 |eq .LDA(|sa(ST%))|
|00002860| 3a f2 4c 58 3a f2 65 78 | 70 0d 11 4e 39 e7 54 31 |:.LX:.ex|p..N9.T1|
|00002870| 25 3d 70 6c 75 73 65 71 | 20 f2 41 44 44 20 8b e7 |%=pluseq| .ADD ..|
|00002880| 54 31 25 3d 6d 69 6e 75 | 73 65 71 20 f2 53 55 42 |T1%=minu|seq .SUB|
|00002890| 20 8b 20 f2 43 28 65 71 | 29 3a f2 4c 58 3a f2 65 | . .C(eq|):.LX:.e|
|000028a0| 78 70 0d 11 58 13 f2 53 | 54 41 28 73 61 28 53 54 |xp..X..S|TA(sa(ST|
|000028b0| 25 29 29 3a e1 0d 11 62 | 05 3a 0d 11 6c 23 dd f2 |%)):...b|.:..l#..|
|000028c0| 61 73 73 69 67 6e 61 72 | 72 61 79 3a ea 20 53 54 |assignar|ray:. ST|
|000028d0| 25 2c 54 31 25 3a 53 54 | 25 3d 53 4e 25 0d 11 76 |%,T1%:ST|%=SN%..v|
|000028e0| 22 f2 4c 58 3a f2 43 28 | 6c 62 29 3a f2 4c 58 3a |".LX:.C(|lb):.LX:|
|000028f0| f2 65 78 70 3a f2 43 28 | 72 62 29 3a f2 4c 58 0d |.exp:.C(|rb):.LX.|
|00002900| 11 80 13 f2 43 28 65 71 | 29 3a f2 4c 58 3a f2 65 |....C(eq|):.LX:.e|
|00002910| 78 70 0d 11 8a 16 f2 53 | 54 41 61 72 72 28 73 61 |xp.....S|TAarr(sa|
|00002920| 28 53 54 25 29 29 3a e1 | 0d 11 94 0a dd f2 64 69 |(ST%)):.|......di|
|00002930| 6d 3a 0d 11 9e 64 f2 4c | 58 3a f2 43 28 61 69 64 |m:...d.L|X:.C(aid|
|00002940| 29 3a 61 72 72 61 79 65 | 6e 74 72 69 65 73 25 28 |):arraye|ntries%(|
|00002950| 4e 41 45 25 29 3d 61 6d | 65 6d 3a 4e 41 45 25 2b |NAE%)=am|em:NAE%+|
|00002960| 3d 31 3a f2 4c 58 3a f2 | 43 28 6c 62 29 3a f2 4c |=1:.LX:.|C(lb):.L|
|00002970| 58 3a f2 43 28 63 6f 6e | 73 74 29 3a 61 6d 65 6d |X:.C(con|st):amem|
|00002980| 2b 3d 4e 2a 34 2b 34 3a | f2 4c 58 3a f2 43 28 72 |+=N*4+4:|.LX:.C(r|
|00002990| 62 29 3a f2 4c 58 0d 11 | a8 13 e7 54 25 3d 63 6f |b):.LX..|...T%=co|
|000029a0| 6d 6d 61 20 e5 8d 74 5e | 51 0d 11 b2 05 e1 0d 11 |mma ..t^|Q.......|
|000029b0| bc 17 dd f2 70 72 6f 63 | 3a ea 53 54 25 3a 53 54 |....proc|:.ST%:ST|
|000029c0| 25 3d 53 4e 25 0d 11 c6 | 15 f2 4c 58 3a e7 54 25 |%=SN%...|..LX:.T%|
|000029d0| 3c 3e 6c 62 20 e5 8d 64 | 64 51 0d 11 d0 1c f2 4c |<>lb ..d|dQ.....L|
|000029e0| 58 3a f2 65 78 70 3a e7 | 54 25 3d 63 6f 6d 6d 61 |X:.exp:.|T%=comma|
|000029f0| 20 e5 8d 64 50 51 0d 11 | da 0e f2 43 28 72 62 29 | ..dPQ..|...C(rb)|
|00002a00| 3a f2 4c 58 0d 11 e4 0e | f2 4a 4d 28 53 54 25 29 |:.LX....|.JM(ST%)|
|00002a10| 3a e1 0d 11 ee 05 3a 0d | 11 f8 09 dd f2 76 64 75 |:.....:.|.....vdu|
|00002a20| 0d 12 02 07 f2 4c 58 0d | 12 0c 08 f2 65 78 70 0d |.....LX.|....exp.|
|00002a30| 12 16 17 e7 54 25 3d 73 | 63 6f 6c 20 f2 56 44 44 |....T%=s|col .VDD|
|00002a40| 20 8b f2 56 44 55 0d 12 | 20 2d e7 54 25 3d 63 6f | ..VDU..| -.T%=co|
|00002a50| 6d 6d 61 20 e5 8d 54 42 | 52 20 8b e7 54 25 3d 73 |mma ..TB|R ..T%=s|
|00002a60| 63 6f 6c 20 f2 4c 58 3a | e7 a4 45 58 50 20 e5 8d |col .LX:|..EXP ..|
|00002a70| 54 4c 52 0d 12 2a 05 e1 | 0d 12 34 05 3a 0d 12 3e |TLR..*..|..4.:..>|
|00002a80| 0c dd f2 63 6f 6c 6f 75 | 72 0d 12 48 07 f2 4c 58 |...colou|r..H..LX|
|00002a90| 0d 12 52 23 f2 65 78 70 | 3a e7 54 25 3c 3e 63 6f |..R#.exp|:.T%<>co|
|00002aa0| 6d 6d 61 20 f2 56 44 4c | 28 31 37 29 3a f2 56 44 |mma .VDL|(17):.VD|
|00002ab0| 55 3a e1 0d 12 5c 4e f2 | 43 28 63 6f 6d 6d 61 29 |U:...\N.|C(comma)|
|00002ac0| 3a f2 56 44 4c 28 31 39 | 29 3a f2 56 44 55 3a f2 |:.VDL(19|):.VDU:.|
|00002ad0| 4c 58 3a f2 65 78 70 3a | e7 54 25 3c 3e 63 6f 6d |LX:.exp:|.T%<>com|
|00002ae0| 6d 61 20 f2 56 44 55 3a | f2 56 44 4c 28 30 29 3a |ma .VDU:|.VDL(0):|
|00002af0| f2 56 44 4c 28 30 29 3a | f2 56 44 4c 28 30 29 3a |.VDL(0):|.VDL(0):|
|00002b00| e1 0d 12 66 37 f2 43 28 | 63 6f 6d 6d 61 29 3a f2 |...f7.C(|comma):.|
|00002b10| 56 44 4c 28 31 36 29 3a | f2 56 44 55 3a f2 4c 58 |VDL(16):|.VDU:.LX|
|00002b20| 3a f2 65 78 70 3a f2 56 | 44 55 3a f2 4c 58 3a f2 |:.exp:.V|DU:.LX:.|
|00002b30| 65 78 70 3a f2 56 44 55 | 0d 12 70 05 e1 0d 12 7a |exp:.VDU|..p....z|
|00002b40| 0a dd f2 6d 6f 76 65 0d | 12 84 16 f2 4c 58 3a f2 |...move.|....LX:.|
|00002b50| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 0d 12 8e |exp:.C(c|omma)...|
|00002b60| 15 f2 4c 58 3a f2 65 78 | 70 3a f2 50 4c 54 4c 28 |..LX:.ex|p:.PLTL(|
|00002b70| 34 29 0d 12 98 05 e1 0d | 12 a2 05 3a 0d 12 ac 0a |4)......|...:....|
|00002b80| dd f2 64 72 61 77 0d 12 | b6 16 f2 4c 58 3a f2 65 |..draw..|...LX:.e|
|00002b90| 78 70 3a f2 43 28 63 6f | 6d 6d 61 29 0d 12 c0 15 |xp:.C(co|mma)....|
|00002ba0| f2 4c 58 3a f2 65 78 70 | 3a f2 50 4c 54 4c 28 35 |.LX:.exp|:.PLTL(5|
|00002bb0| 29 0d 12 ca 05 e1 0d 12 | d4 05 3a 0d 12 de 23 dd |).......|..:...#.|
|00002bc0| f2 6d 6f 64 65 3a f2 4c | 58 3a f2 56 44 4c 28 32 |.mode:.L|X:.VDL(2|
|00002bd0| 32 29 3a f2 65 78 70 3a | f2 56 44 55 3a e1 0d 12 |2):.exp:|.VDU:...|
|00002be0| e8 05 3a 0d 12 f2 41 dd | f2 70 6c 6f 74 3a f2 4c |..:...A.|.plot:.L|
|00002bf0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00002c00| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 63 6f 6d |:.LX:.ex|p:.C(com|
|00002c10| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 50 4c |ma):.LX:|.exp:.PL|
|00002c20| 4f 54 3a e1 0d 12 fc 05 | 3a 0d 13 06 16 dd f2 77 |OT:.....|:......w|
|00002c30| 61 69 74 3a f2 4c 58 3a | f2 57 41 49 54 3a e1 0d |ait:.LX:|.WAIT:..|
|00002c40| 13 10 05 3a 0d 13 1a 3d | dd f2 67 63 6f 6c 3a f2 |...:...=|..gcol:.|
|00002c50| 56 44 4c 28 31 38 29 3a | f2 4c 58 3a f2 65 78 70 |VDL(18):|.LX:.exp|
|00002c60| 3a e7 54 25 3d 63 6f 6d | 6d 61 20 f2 56 44 55 3a |:.T%=com|ma .VDU:|
|00002c70| f2 4c 58 3a f2 65 78 70 | 20 8b f2 56 44 4c 28 30 |.LX:.exp| ..VDL(0|
|00002c80| 29 0d 13 24 0a f2 56 44 | 55 3a e1 0d 13 2e 05 3a |)..$..VD|U:.....:|
|00002c90| 0d 13 38 23 dd f2 63 69 | 72 63 6c 65 3a f2 4c 58 |..8#..ci|rcle:.LX|
|00002ca0| 3a 46 25 3d 54 25 3a e7 | 46 25 3d 66 69 6c 6c 20 |:F%=T%:.|F%=fill |
|00002cb0| f2 4c 58 0d 13 42 2e f2 | 65 78 70 3a f2 43 28 63 |.LX..B..|exp:.C(c|
|00002cc0| 6f 6d 6d 61 29 3a f2 4c | 58 3a f2 65 78 70 3a f2 |omma):.L|X:.exp:.|
|00002cd0| 43 28 63 6f 6d 6d 61 29 | 3a f2 50 4c 54 4c 28 34 |C(comma)|:.PLTL(4|
|00002ce0| 29 0d 13 4c 2c f2 4c 58 | 3a f2 65 78 70 3a f2 4c |)..L,.LX|:.exp:.L|
|00002cf0| 44 4c 28 30 29 3a f2 50 | 4c 54 4c 28 31 34 35 2b |DL(0):.P|LTL(145+|
|00002d00| 28 46 25 3d 66 69 6c 6c | 29 2a 2d 38 29 0d 13 56 |(F%=fill|)*-8)..V|
|00002d10| 05 e1 0d 13 60 26 dd f2 | 72 65 63 74 61 6e 67 6c |....`&..|rectangl|
|00002d20| 65 3a f2 4c 58 3a e7 54 | 25 3d 66 69 6c 6c 20 f2 |e:.LX:.T|%=fill .|
|00002d30| 4c 58 3a e5 8d 44 74 53 | 0d 13 6a 49 f2 65 78 70 |LX:..DtS|..jI.exp|
|00002d40| 3a f2 43 28 63 6f 6d 6d | 61 29 3a f2 4c 58 3a f2 |:.C(comm|a):.LX:.|
|00002d50| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|00002d60| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00002d70| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 52 45 43 54 3a |:.LX:.ex|p:.RECT:|
|00002d80| e1 0d 13 74 2e f2 65 78 | 70 3a f2 43 28 63 6f 6d |...t..ex|p:.C(com|
|00002d90| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a f2 43 28 |ma):.LX:|.exp:.C(|
|00002da0| 63 6f 6d 6d 61 29 3a f2 | 50 4c 54 4c 28 34 29 0d |comma):.|PLTL(4).|
|00002db0| 13 7e 29 f2 4c 58 3a f2 | 65 78 70 3a f2 43 28 63 |.~).LX:.|exp:.C(c|
|00002dc0| 6f 6d 6d 61 29 3a f2 4c | 58 3a f2 65 78 70 3a f2 |omma):.L|X:.exp:.|
|00002dd0| 50 4c 54 4c 28 39 37 29 | 0d 13 88 3d dd f2 6f 72 |PLTL(97)|...=..or|
|00002de0| 69 67 69 6e 3a f2 56 44 | 4c 28 32 39 29 3a f2 4c |igin:.VD|L(29):.L|
|00002df0| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00002e00| 3a f2 56 44 44 3a f2 4c | 58 3a f2 65 78 70 3a f2 |:.VDD:.L|X:.exp:.|
|00002e10| 56 44 44 3a e1 0d 13 92 | 05 e1 0d 13 9c 33 dd f2 |VDD:....|.....3..|
|00002e20| 66 69 6c 6c 3a f2 4c 58 | 3a f2 65 78 70 3a f2 43 |fill:.LX|:.exp:.C|
|00002e30| 28 63 6f 6d 6d 61 29 3a | f2 4c 58 3a f2 65 78 70 |(comma):|.LX:.exp|
|00002e40| 3a f2 50 4c 54 4c 28 31 | 33 33 29 3a e1 0d 13 a6 |:.PLTL(1|33):....|
|00002e50| 12 dd f2 69 66 3a ea 20 | 4c 31 25 2c 4c 32 25 0d |...if:. |L1%,L2%.|
|00002e60| 13 b0 0c f2 4c 58 3a f2 | 65 78 70 0d 13 ba 12 4c |....LX:.|exp....L|
|00002e70| 31 25 3d 50 25 3a f2 4a | 4d 43 28 30 29 0d 13 c4 |1%=P%:.J|MC(0)...|
|00002e80| 2c e7 54 25 3d 74 68 65 | 6e 20 f2 4c 58 3a e7 54 |,.T%=the|n .LX:.T|
|00002e90| 25 3d 6c 69 6e 6f 20 f2 | 4a 4d 28 53 4e 25 29 3a |%=lino .|JM(SN%):|
|00002ea0| f2 4c 58 3a e5 8d 64 58 | 53 0d 13 ce 0a f2 73 74 |.LX:..dX|S.....st|
|00002eb0| 61 74 65 0d 13 d8 15 e7 | 54 25 3d 63 6f 6c 3a f2 |ate.....|T%=col:.|
|00002ec0| 4c 58 3a e5 8d 64 4e 53 | 0d 13 e2 2b e7 54 25 3c |LX:..dNS|...+.T%<|
|00002ed0| 3e 65 6c 73 65 20 56 25 | 3d 50 25 3a 50 25 3d 4c |>else V%|=P%:P%=L|
|00002ee0| 31 25 3a f2 4a 4d 43 28 | 56 25 29 3a 50 25 3d 56 |1%:.JMC(|V%):P%=V|
|00002ef0| 25 3a e1 0d 13 ec 2e 4c | 32 25 3d 50 25 3a f2 4a |%:.....L|2%=P%:.J|
|00002f00| 4d 50 28 30 29 3a 56 25 | 3d 50 25 3a 50 25 3d 4c |MP(0):V%|=P%:P%=L|
|00002f10| 31 25 3a f2 4a 4d 43 28 | 56 25 29 3a 50 25 3d 56 |1%:.JMC(|V%):P%=V|
|00002f20| 25 0d 13 f6 07 f2 4c 58 | 0d 14 00 1f e7 54 25 3d |%.....LX|.....T%=|
|00002f30| 6c 69 6e 6f 20 f2 4a 4d | 28 53 4e 25 29 3a f2 4c |lino .JM|(SN%):.L|
|00002f40| 58 3a e5 8d 54 54 54 0d | 14 0a 0a f2 73 74 61 74 |X:..TTT.|....stat|
|00002f50| 65 0d 14 14 15 e7 54 25 | 3d 63 6f 6c 3a f2 4c 58 |e.....T%|=col:.LX|
|00002f60| 3a e5 8d 54 4a 54 0d 14 | 1e 21 56 25 3d 50 25 3a |:..TJT..|.!V%=P%:|
|00002f70| 50 25 3d 4c 32 25 3a f2 | 4a 4d 50 28 56 25 29 3a |P%=L2%:.|JMP(V%):|
|00002f80| 50 25 3d 56 25 3a e1 0d | 14 28 05 3a 0d 14 32 16 |P%=V%:..|.(.:..2.|
|00002f90| dd f2 66 6f 72 3a ea 53 | 54 25 2c 4c 31 25 3a f2 |..for:.S|T%,L1%:.|
|00002fa0| 4c 58 0d 14 3c 16 f2 43 | 28 69 64 29 3a 53 54 25 |LX..<..C|(id):ST%|
|00002fb0| 3d 53 4e 25 3a f2 4c 58 | 0d 14 46 13 f2 43 28 65 |=SN%:.LX|..F..C(e|
|00002fc0| 71 29 3a f2 4c 58 3a f2 | 65 78 70 0d 14 50 11 f2 |q):.LX:.|exp..P..|
|00002fd0| 53 54 41 28 73 61 28 53 | 54 25 29 29 0d 14 5a 13 |STA(sa(S|T%))..Z.|
|00002fe0| f2 43 28 74 6f 29 3a f2 | 4c 58 3a f2 65 78 70 0d |.C(to):.|LX:.exp.|
|00002ff0| 14 64 1e e7 54 25 3d 73 | 74 65 70 20 f2 4c 58 3a |.d..T%=s|tep .LX:|
|00003000| f2 65 78 70 20 8b f2 4c | 44 4c 28 31 29 0d 14 6e |.exp ..L|DL(1)..n|
|00003010| 0e f2 4c 58 3a 4c 31 25 | 3d 50 25 0d 14 78 1a e7 |..LX:L1%|=P%..x..|
|00003020| 54 25 3d 65 6f 70 20 84 | 54 25 3d 6e 65 78 74 20 |T%=eop .|T%=next |
|00003030| e5 8d 74 4c 54 0d 14 82 | 25 f2 73 74 61 74 65 3a |..tLT...|%.state:|
|00003040| e7 54 25 3d 63 6f 6c 20 | 84 54 25 3d 65 6f 6c 6e |.T%=col |.T%=eoln|
|00003050| 20 f2 4c 58 3a e5 8d 44 | 78 54 0d 14 8c 2c f2 43 | .LX:..D|xT...,.C|
|00003060| 28 6e 65 78 74 29 3a f2 | 4c 58 3a f2 45 53 43 41 |(next):.|LX:.ESCA|
|00003070| 50 45 3a f2 4e 58 54 28 | 73 61 28 53 54 25 29 2c |PE:.NXT(|sa(ST%),|
|00003080| 4c 31 25 29 3a e1 0d 14 | 96 05 3a 0d 14 a0 2e dd |L1%):...|..:.....|
|00003090| f2 67 6f 74 6f 3a f2 4c | 58 3a f2 43 28 6c 69 6e |.goto:.L|X:.C(lin|
|000030a0| 6f 29 3a f2 45 53 43 41 | 50 45 3a f2 4a 4d 28 53 |o):.ESCA|PE:.JM(S|
|000030b0| 4e 25 29 3a f2 4c 58 3a | e1 0d 14 aa 05 3a 0d 14 |N%):.LX:|.....:..|
|000030c0| b4 19 dd f2 72 65 70 3a | ea 4c 31 25 3a f2 4c 58 |....rep:|.L1%:.LX|
|000030d0| 3a 4c 31 25 3d 50 25 0d | 14 be 19 e7 54 25 3d 65 |:L1%=P%.|....T%=e|
|000030e0| 6f 70 20 84 54 25 3d 75 | 6e 74 20 e5 8d 64 52 54 |op .T%=u|nt ..dRT|
|000030f0| 0d 14 c8 25 f2 73 74 61 | 74 65 3a e7 54 25 3d 63 |...%.sta|te:.T%=c|
|00003100| 6f 6c 20 84 54 25 3d 65 | 6f 6c 6e 20 f2 4c 58 3a |ol .T%=e|oln .LX:|
|00003110| e5 8d 74 7e 54 0d 14 d2 | 14 f2 43 28 75 6e 74 29 |..t~T...|..C(unt)|
|00003120| 3a f2 4c 58 3a f2 65 78 | 70 0d 14 dc 17 f2 45 53 |:.LX:.ex|p.....ES|
|00003130| 43 41 50 45 3a f2 4a 4d | 43 28 4c 31 25 29 3a e1 |CAPE:.JM|C(L1%):.|
|00003140| 0d 14 e6 05 3a 0d 14 f0 | 1c dd f2 77 68 69 6c 65 |....:...|...while|
|00003150| 3a ea 20 4c 31 25 2c 4c | 32 25 3a 4c 31 25 3d 50 |:. L1%,L|2%:L1%=P|
|00003160| 25 0d 14 fa 1b f2 4c 58 | 3a f2 65 78 70 3a 4c 32 |%.....LX|:.exp:L2|
|00003170| 25 3d 50 25 3a f2 4a 4d | 43 28 30 29 0d 15 04 1b |%=P%:.JM|C(0)....|
|00003180| e7 54 25 3d 65 6f 70 20 | 84 54 25 3d 65 6e 64 77 |.T%=eop |.T%=endw|
|00003190| 68 20 e5 8d 54 58 55 0d | 15 0e 25 f2 73 74 61 74 |h ..TXU.|..%.stat|
|000031a0| 65 3a e7 54 25 3d 63 6f | 6c 20 84 54 25 3d 65 6f |e:.T%=co|l .T%=eo|
|000031b0| 6c 6e 20 f2 4c 58 3a e5 | 8d 54 44 55 0d 15 18 23 |ln .LX:.|.TDU...#|
|000031c0| f2 43 28 65 6e 64 77 68 | 29 3a f2 4c 58 3a f2 45 |.C(endwh|):.LX:.E|
|000031d0| 53 43 41 50 45 3a f2 4a | 4d 50 28 4c 31 25 29 0d |SCAPE:.J|MP(L1%).|
|000031e0| 15 22 1f 56 25 3d 50 25 | 3a 50 25 3d 4c 32 25 3a |.".V%=P%|:P%=L2%:|
|000031f0| f2 4a 4d 43 28 56 25 29 | 3a 50 25 3d 56 25 0d 15 |.JMC(V%)|:P%=V%..|
|00003200| 2c 05 e1 0d 15 36 05 3a | 0d 15 40 0b dd f2 73 6f |,....6.:|..@...so|
|00003210| 75 6e 64 0d 15 4a 16 f2 | 4c 58 3a f2 65 78 70 3a |und..J..|LX:.exp:|
|00003220| f2 43 28 63 6f 6d 6d 61 | 29 0d 15 54 16 f2 4c 58 |.C(comma|)..T..LX|
|00003230| 3a f2 65 78 70 3a f2 43 | 28 63 6f 6d 6d 61 29 0d |:.exp:.C|(comma).|
|00003240| 15 5e 16 f2 4c 58 3a f2 | 65 78 70 3a f2 43 28 63 |.^..LX:.|exp:.C(c|
|00003250| 6f 6d 6d 61 29 0d 15 68 | 11 f2 4c 58 3a f2 65 78 |omma)..h|..LX:.ex|
|00003260| 70 3a f2 53 4e 44 0d 15 | 72 05 e1 0d 15 7c 05 3a |p:.SND..|r....|.:|
|00003270| 0d 15 86 1f dd f2 76 6f | 69 63 65 73 3a f2 4c 58 |......vo|ices:.LX|
|00003280| 3a f2 65 78 70 3a f2 56 | 4f 49 43 45 53 3a e1 0d |:.exp:.V|OICES:..|
|00003290| 15 90 05 3a 0d 15 9a 59 | dd f2 73 77 61 70 3a ea |...:...Y|..swap:.|
|000032a0| 20 53 54 25 3a f2 4c 58 | 3a f2 43 28 69 64 29 3a | ST%:.LX|:.C(id):|
|000032b0| 53 54 25 3d 53 4e 25 3a | f2 4c 58 3a f2 43 28 63 |ST%=SN%:|.LX:.C(c|
|000032c0| 6f 6d 6d 61 29 3a f2 4c | 58 3a f2 43 28 69 64 29 |omma):.L|X:.C(id)|
|000032d0| 3a f2 53 57 41 50 28 73 | 61 28 53 54 25 29 2c 73 |:.SWAP(s|a(ST%),s|
|000032e0| 61 28 53 4e 25 29 29 3a | f2 4c 58 3a e1 0d 15 a4 |a(SN%)):|.LX:....|
|000032f0| 05 3a 0d 15 ae 26 dd f2 | 74 69 6d 65 3a f2 4c 58 |.:...&..|time:.LX|
|00003300| 3a f2 43 28 65 71 29 3a | f2 4c 58 3a f2 65 78 70 |:.C(eq):|.LX:.exp|
|00003310| 3a f2 54 49 4d 45 3a e1 | 0d 15 b8 1a dd f2 6d 6f |:.TIME:.|......mo|
|00003320| 75 73 65 3a ea 53 54 31 | 25 2c 53 54 32 25 3a f2 |use:.ST1|%,ST2%:.|
|00003330| 4c 58 0d 15 c2 7c e7 54 | 25 3d 69 64 20 53 54 31 |LX...|.T|%=id ST1|
|00003340| 25 3d 53 4e 25 3a f2 4c | 58 3a f2 43 28 63 6f 6d |%=SN%:.L|X:.C(com|
|00003350| 6d 61 29 3a f2 4c 58 3a | f2 43 28 69 64 29 3a 53 |ma):.LX:|.C(id):S|
|00003360| 54 32 25 3d 53 4e 25 3a | f2 4c 58 3a f2 43 28 63 |T2%=SN%:|.LX:.C(c|
|00003370| 6f 6d 6d 61 29 3a f2 4c | 58 3a f2 43 28 69 64 29 |omma):.L|X:.C(id)|
|00003380| 3a f2 4d 4f 55 53 45 53 | 54 41 54 55 53 28 73 61 |:.MOUSES|TATUS(sa|
|00003390| 28 53 54 31 25 29 2c 73 | 61 28 53 54 32 25 29 2c |(ST1%),s|a(ST2%),|
|000033a0| 73 61 28 53 4e 25 29 29 | 3a f2 4c 58 3a e1 0d 15 |sa(SN%))|:.LX:...|
|000033b0| cc 0c e7 54 25 3d 6f 6e | 20 8c 0d 15 d6 1b f2 4c |...T%=on| ......L|
|000033c0| 58 3a e7 a4 45 58 50 20 | f2 65 78 70 20 8b f2 4c |X:..EXP |.exp ..L|
|000033d0| 44 4c 28 31 29 0d 15 e0 | 0e f2 4d 4f 55 53 45 4c |DL(1)...|..MOUSEL|
|000033e0| 49 4e 4b 0d 15 ea 05 e1 | 0d 15 f4 05 cd 0d 15 fe |INK.....|........|
|000033f0| 24 e7 54 25 3d 6f 66 66 | 20 f2 4c 58 3a f2 4c 44 |$.T%=off| .LX:.LD|
|00003400| 4c 28 30 29 3a f2 4d 4f | 55 53 45 4c 49 4e 4b 3a |L(0):.MO|USELINK:|
|00003410| e1 0d 16 08 78 e7 54 25 | 3d 63 6f 6c 6f 75 72 20 |....x.T%|=colour |
|00003420| f2 56 44 4c 28 31 39 29 | 3a f2 4c 58 3a f2 65 78 |.VDL(19)|:.LX:.ex|
|00003430| 70 3a f2 56 44 55 3a f2 | 43 28 63 6f 6d 6d 61 29 |p:.VDU:.|C(comma)|
|00003440| 3a f2 56 44 4c 28 32 35 | 29 3a f2 4c 58 3a f2 65 |:.VDL(25|):.LX:.e|
|00003450| 78 70 3a f2 56 44 55 3a | f2 43 28 63 6f 6d 6d 61 |xp:.VDU:|.C(comma|
|00003460| 29 3a f2 4c 58 3a f2 65 | 78 70 3a f2 56 44 55 3a |):.LX:.e|xp:.VDU:|
|00003470| f2 43 28 63 6f 6d 6d 61 | 29 3a f2 4c 58 3a f2 65 |.C(comma|):.LX:.e|
|00003480| 78 70 3a f2 56 44 55 3a | e1 0d 16 12 31 e7 54 25 |xp:.VDU:|....1.T%|
|00003490| 3d 74 6f 20 f2 4c 58 3a | f2 65 78 70 3a f2 43 28 |=to .LX:|.exp:.C(|
|000034a0| 63 6f 6d 6d 61 29 3a f2 | 4c 58 3a f2 65 78 70 3a |comma):.|LX:.exp:|
|000034b0| f2 4d 4f 55 53 45 54 4f | 3a e1 0d 16 1c 0e e7 54 |.MOUSETO|:......T|
|000034c0| 25 3d 73 74 65 70 20 8c | 0d 16 26 49 f2 4c 58 3a |%=step .|..&I.LX:|
|000034d0| f2 65 78 70 3a e7 54 25 | 3c 3e 63 6f 6d 6d 61 20 |.exp:.T%|<>comma |
|000034e0| f2 4d 4f 55 53 45 53 54 | 45 50 31 41 3a e1 20 8b |.MOUSEST|EP1A:. .|
|000034f0| f2 43 28 63 6f 6d 6d 61 | 29 3a f2 4c 58 3a f2 65 |.C(comma|):.LX:.e|
|00003500| 78 70 3a f2 4d 4f 55 53 | 45 53 54 45 50 32 41 3a |xp:.MOUS|ESTEP2A:|
|00003510| e1 0d 16 30 05 cd 0d 16 | 3a 5f e7 54 25 3d 72 65 |...0....|:_.T%=re|
|00003520| 63 74 61 6e 67 6c 65 20 | f2 4c 58 3a f2 65 78 70 |ctangle |.LX:.exp|
|00003530| 3a f2 43 28 63 6f 6d 6d | 61 29 3a f2 4c 58 3a f2 |:.C(comm|a):.LX:.|
|00003540| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|00003550| 58 3a f2 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |X:.exp:.|C(comma)|
|00003560| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 4d 4f 55 53 45 |:.LX:.ex|p:.MOUSE|
|00003570| 52 45 43 3a e1 0d 16 44 | 0a f2 45 52 52 3a e1 0d |REC:...D|..ERR:..|
|00003580| 16 4e 46 dd f2 73 74 61 | 72 63 6f 6d 6d 61 6e 64 |.NF..sta|rcommand|
|00003590| 3a f2 4c 58 3a 63 6f 6e | 73 74 73 74 72 69 6e 67 |:.LX:con|ststring|
|000035a0| 24 28 4e 43 53 54 25 29 | 3d 53 24 3a 4e 43 53 54 |$(NCST%)|=S$:NCST|
|000035b0| 25 2b 3d 31 3a f2 53 54 | 41 52 28 4e 43 53 54 25 |%+=1:.ST|AR(NCST%|
|000035c0| 2d 31 29 3a e1 0d 16 58 | 05 3a 0d 16 62 55 dd f2 |-1):...X|.:..bU..|
|000035d0| 73 79 73 3a ea 20 53 46 | 25 2c 53 53 25 3a f2 4c |sys:. SF|%,SS%:.L|
|000035e0| 58 3a e7 54 25 3d 63 6f | 6e 73 74 20 4e 25 3d 4e |X:.T%=co|nst N%=N|
|000035f0| 20 8b f2 43 28 73 74 72 | 69 6e 67 29 3a c8 99 20 | ..C(str|ing):.. |
|00003600| 22 4f 53 5f 53 57 49 4e | 75 6d 62 65 72 46 72 6f |"OS_SWIN|umberFro|
|00003610| 6d 53 74 72 69 6e 67 22 | 2c 2c 53 24 b8 4e 25 0d |mString"|,,S$.N%.|
|00003620| 16 6c 46 f2 4c 58 3a 53 | 46 25 3d 30 3a c8 95 20 |.lF.LX:S|F%=0:.. |
|00003630| 54 25 3c 3e 65 6f 6c 6e | 20 80 54 25 3c 3e 63 6f |T%<>eoln| .T%<>co|
|00003640| 6c 20 80 54 25 3c 3e 74 | 6f 20 f2 43 28 63 6f 6d |l .T%<>t|o .C(com|
|00003650| 6d 61 29 3a f2 4c 58 3a | f2 65 78 70 3a 53 46 25 |ma):.LX:|.exp:SF%|
|00003660| 2b 3d 31 3a ce 0d 16 76 | 2a e7 54 25 3c 3e 65 6f |+=1:...v|*.T%<>eo|
|00003670| 6c 6e 20 80 54 25 3c 3e | 63 6f 6c 20 f2 43 28 74 |ln .T%<>|col .C(t|
|00003680| 6f 29 20 8b 53 53 25 3d | 30 3a e5 8d 74 4a 56 0d |o) .SS%=|0:..tJV.|
|00003690| 16 80 6f f2 4c 58 3a f2 | 43 28 69 64 29 3a 4d 50 |..o.LX:.|C(id):MP|
|000036a0| 25 28 30 29 3d 73 61 28 | 53 4e 25 29 3a f2 4c 58 |%(0)=sa(|SN%):.LX|
|000036b0| 3a 53 53 25 3d 31 3a c8 | 95 20 54 25 3c 3e 65 6f |:SS%=1:.|. T%<>eo|
|000036c0| 6c 6e 20 80 54 25 3c 3e | 63 6f 6c 3a f2 43 28 63 |ln .T%<>|col:.C(c|
|000036d0| 6f 6d 6d 61 29 3a f2 4c | 58 3a f2 43 28 69 64 29 |omma):.L|X:.C(id)|
|000036e0| 3a 4d 50 25 28 53 53 25 | 29 3d 73 61 28 53 4e 25 |:MP%(SS%|)=sa(SN%|
|000036f0| 29 3a f2 4c 58 3a 53 53 | 25 2b 3d 31 3a ce 0d 16 |):.LX:SS|%+=1:...|
|00003700| 8a 14 f2 53 59 53 28 4e | 25 2c 53 46 25 2c 53 53 |...SYS(N|%,SF%,SS|
|00003710| 25 29 0d 16 94 05 e1 0d | 16 9e 2a dd f2 61 73 73 |%)......|..*..ass|
|00003720| 74 72 69 6e 67 3a ea 53 | 54 25 3a 53 54 25 3d 53 |tring:.S|T%:ST%=S|
|00003730| 4e 25 3a f2 4c 58 3a f2 | 43 28 65 71 29 3a f2 4c |N%:.LX:.|C(eq):.L|
|00003740| 58 0d 16 a8 1f e7 54 25 | 3d 6c 65 66 74 73 74 72 |X.....T%|=leftstr|
|00003750| 20 f2 6c 65 66 74 73 74 | 72 28 53 54 25 29 3a e1 | .leftst|r(ST%):.|
|00003760| 0d 16 b2 1d e7 54 25 3d | 6d 69 64 73 74 72 20 f2 |.....T%=|midstr .|
|00003770| 6d 69 64 73 74 72 28 53 | 54 25 29 3a e1 0d 16 bc |midstr(S|T%):....|
|00003780| 21 e7 54 25 3d 72 69 67 | 68 74 73 74 72 20 f2 72 |!.T%=rig|htstr .r|
|00003790| 69 67 68 74 73 74 72 28 | 53 54 25 29 3a e1 0d 16 |ightstr(|ST%):...|
|000037a0| c6 0e f2 73 74 72 69 6e | 67 65 78 70 0d 16 d0 1b |...strin|gexp....|
|000037b0| e7 54 25 3c 3e 63 6f 6c | 20 80 54 25 3c 3e 65 6f |.T%<>col| .T%<>eo|
|000037c0| 6c 6e 20 f2 45 52 52 0d | 16 da 16 f2 53 54 4f 52 |ln .ERR.|....STOR|
|000037d0| 45 53 54 52 28 73 61 28 | 53 54 25 29 29 0d 16 e4 |ESTR(sa(|ST%))...|
|000037e0| 05 e1 0d 16 ee 05 3a 0d | 16 f8 39 dd f2 6f 73 63 |......:.|..9..osc|
|000037f0| 6c 69 3a f2 4c 58 3a f2 | 43 28 6c 62 29 3a f2 4c |li:.LX:.|C(lb):.L|
|00003800| 58 3a f2 73 74 72 69 6e | 67 65 78 70 3a f2 43 28 |X:.strin|gexp:.C(|
|00003810| 72 62 29 3a f2 4f 53 43 | 4c 49 3a f2 4c 58 3a e1 |rb):.OSC|LI:.LX:.|
|00003820| 0d 17 02 05 3a 0d 17 0c | 0f dd f2 73 74 72 69 6e |....:...|...strin|
|00003830| 67 65 78 70 0d 17 16 0c | f2 45 4d 50 54 59 54 42 |gexp....|.EMPTYTB|
|00003840| 0d 17 20 1f e7 54 25 3d | 73 74 72 69 6e 67 20 f2 |.. ..T%=|string .|
|00003850| 43 4f 4e 53 54 52 28 4e | 43 53 54 25 2d 31 29 0d |CONSTR(N|CST%-1).|
|00003860| 17 2a 19 e7 54 25 3d 73 | 69 64 20 f2 53 54 52 28 |.*..T%=s|id .STR(|
|00003870| 73 61 28 53 4e 25 29 29 | 0d 17 34 16 e7 54 25 3d |sa(SN%))|..4..T%=|
|00003880| 67 65 74 73 74 72 20 f2 | 47 45 54 53 54 52 0d 17 |getstr .|GETSTR..|
|00003890| 3e 1a f2 4c 58 3a e7 54 | 25 3d 70 6c 75 73 20 f2 |>..LX:.T|%=plus .|
|000038a0| 4c 58 3a e5 8d 54 60 57 | 0d 17 48 05 e1 0d 17 52 |LX:..T`W|..H....R|
|000038b0| 53 dd f2 6c 65 66 74 73 | 74 72 28 53 54 25 29 3a |S..lefts|tr(ST%):|
|000038c0| f2 4c 58 3a f2 73 74 72 | 69 6e 67 65 78 70 3a f2 |.LX:.str|ingexp:.|
|000038d0| 43 28 63 6f 6d 6d 61 29 | 3a f2 4c 58 3a f2 65 78 |C(comma)|:.LX:.ex|
|000038e0| 70 3a f2 43 28 72 62 29 | 3a f2 4c 45 46 54 53 54 |p:.C(rb)|:.LEFTST|
|000038f0| 52 28 73 61 28 53 54 25 | 29 29 3a f2 4c 58 3a e1 |R(sa(ST%|)):.LX:.|
|00003900| 0d 17 5c 64 dd f2 6d 69 | 64 73 74 72 28 53 54 25 |..\d..mi|dstr(ST%|
|00003910| 29 3a f2 4c 58 3a f2 73 | 74 72 69 6e 67 65 78 70 |):.LX:.s|tringexp|
|00003920| 3a f2 43 28 63 6f 6d 6d | 61 29 3a f2 4c 58 3a f2 |:.C(comm|a):.LX:.|
|00003930| 65 78 70 3a f2 43 28 63 | 6f 6d 6d 61 29 3a f2 4c |exp:.C(c|omma):.L|
|00003940| 58 3a f2 65 78 70 3a f2 | 43 28 72 62 29 3a f2 4d |X:.exp:.|C(rb):.M|
|00003950| 49 44 53 54 52 28 73 61 | 28 53 54 25 29 29 3a f2 |IDSTR(sa|(ST%)):.|
|00003960| 4c 58 3a e1 0d 17 66 55 | dd f2 72 69 67 68 74 73 |LX:...fU|..rights|
|00003970| 74 72 28 53 54 25 29 3a | f2 4c 58 3a f2 73 74 72 |tr(ST%):|.LX:.str|
|00003980| 69 6e 67 65 78 70 3a f2 | 43 28 63 6f 6d 6d 61 29 |ingexp:.|C(comma)|
|00003990| 3a f2 4c 58 3a f2 65 78 | 70 3a f2 43 28 72 62 29 |:.LX:.ex|p:.C(rb)|
|000039a0| 3a f2 52 49 47 48 54 53 | 54 52 28 73 61 28 53 54 |:.RIGHTS|TR(sa(ST|
|000039b0| 25 29 29 3a f2 4c 58 3a | e1 0d 17 70 0b dd f2 70 |%)):.LX:|...p...p|
|000039c0| 72 69 6e 74 0d 17 7a 07 | f2 4c 58 0d 17 84 26 e7 |rint..z.|.LX...&.|
|000039d0| 54 25 3d 73 71 75 6f 74 | 65 20 f2 56 44 4c 28 31 |T%=squot|e .VDL(1|
|000039e0| 33 29 3a f2 56 44 4c 28 | 31 30 29 3a e5 8d 44 7a |3):.VDL(|10):..Dz|
|000039f0| 57 0d 17 8e 12 e7 54 25 | 3d 73 63 6f 6c 20 e5 8d |W.....T%|=scol ..|
|00003a00| 44 7a 57 0d 17 98 22 e7 | 54 25 3d 73 69 64 20 f2 |DzW...".|T%=sid .|
|00003a10| 50 52 49 53 54 52 28 73 | 61 28 53 4e 25 29 29 3a |PRISTR(s|a(SN%)):|
|00003a20| e5 8d 44 7a 57 0d 17 a2 | 28 e7 54 25 3d 73 74 72 |..DzW...|(.T%=str|
|00003a30| 69 6e 67 20 f2 50 52 49 | 43 4f 4e 53 54 52 28 4e |ing .PRI|CONSTR(N|
|00003a40| 43 53 54 25 2d 31 29 3a | e5 8d 44 7a 57 0d 17 ac |CST%-1):|..DzW...|
|00003a50| 20 e7 54 25 3d 73 70 63 | 62 20 f2 4c 58 3a f2 65 | .T%=spc|b .LX:.e|
|00003a60| 78 70 3a f2 53 50 43 3a | e5 8d 74 44 57 0d 17 b6 |xp:.SPC:|..tDW...|
|00003a70| 1c e7 54 25 3d 63 6f 6d | 6d 61 20 f2 56 44 4c 28 |..T%=com|ma .VDL(|
|00003a80| 33 32 29 3a e5 8d 44 7a | 57 0d 17 c0 4e e7 54 25 |32):..Dz|W...N.T%|
|00003a90| 3d 74 61 62 20 54 31 25 | 3d 54 25 3a f2 56 44 4c |=tab T1%|=T%:.VDL|
|00003aa0| 28 33 31 29 3a f2 4c 58 | 3a f2 65 78 70 3a f2 56 |(31):.LX|:.exp:.V|
|00003ab0| 44 55 3a f2 43 28 63 6f | 6d 6d 61 29 3a f2 4c 58 |DU:.C(co|mma):.LX|
|00003ac0| 3a f2 65 78 70 3a f2 56 | 44 55 3a f2 43 28 72 62 |:.exp:.V|DU:.C(rb|
|00003ad0| 29 3a e5 8d 44 7a 57 0d | 17 ca 1c e7 a4 45 58 50 |):..DzW.|.....EXP|
|00003ae0| 20 f2 65 78 70 3a f2 50 | 52 49 45 58 50 3a e5 8d | .exp:.P|RIEXP:..|
|00003af0| 74 44 57 0d 17 d4 1f e7 | 54 25 3c 3e 73 63 6f 6c |tDW.....|T%<>scol|
|00003b00| 20 f2 56 44 4c 28 31 33 | 29 3a f2 56 44 4c 28 31 | .VDL(13|):.VDL(1|
|00003b10| 30 29 0d 17 de 05 e1 0d | 17 e8 0f dd f2 69 6e 70 |0)......|.....inp|
|00003b20| 75 74 3a f2 4c 58 0d 17 | f2 2c e7 54 25 3d 73 74 |ut:.LX..|.,.T%=st|
|00003b30| 72 69 6e 67 20 f2 50 52 | 49 43 4f 4e 53 54 52 28 |ring .PR|ICONSTR(|
|00003b40| 4e 43 53 54 25 2d 31 29 | 3a f2 4c 58 3a e5 8d 54 |NCST%-1)|:.LX:..T|
|00003b50| 46 58 0d 17 fc 2b f2 56 | 44 4c 28 97 22 3f 22 29 |FX...+.V|DL(."?")|
|00003b60| 3a e7 54 25 3d 63 6f 6d | 6d 61 20 84 54 25 3d 73 |:.T%=com|ma .T%=s|
|00003b70| 63 6f 6c 20 f2 4c 58 20 | 8b f2 45 52 52 0d 18 06 |col .LX |..ERR...|
|00003b80| 30 e7 54 25 3d 73 69 64 | 20 f2 73 74 72 69 6e 67 |0.T%=sid| .string|
|00003b90| 69 6e 70 75 74 20 8b e7 | 54 25 3d 69 64 20 f2 76 |input ..|T%=id .v|
|00003ba0| 61 72 69 6e 70 75 74 20 | 8b f2 45 52 52 0d 18 10 |arinput |..ERR...|
|00003bb0| 05 e1 0d 18 1a 28 dd f2 | 73 74 72 69 6e 67 69 6e |.....(..|stringin|
|00003bc0| 70 75 74 3a f2 53 49 4e | 50 55 54 28 73 61 28 53 |put:.SIN|PUT(sa(S|
|00003bd0| 4e 25 29 29 3a f2 4c 58 | 3a e1 0d 18 24 25 dd f2 |N%)):.LX|:...$%..|
|00003be0| 76 61 72 69 6e 70 75 74 | 3a f2 56 49 4e 50 55 54 |varinput|:.VINPUT|
|00003bf0| 28 73 61 28 53 4e 25 29 | 29 3a f2 4c 58 3a e1 0d |(sa(SN%)|):.LX:..|
|00003c00| 18 2e aa dd a4 45 58 50 | 3a 3d 20 54 25 3d 70 6c |.....EXP|:= T%=pl|
|00003c10| 75 73 20 84 54 25 3d 6d | 69 6e 75 73 20 84 54 25 |us .T%=m|inus .T%|
|00003c20| 3d 6c 62 20 84 54 25 3d | 69 6e 6b 65 79 20 84 54 |=lb .T%=|inkey .T|
|00003c30| 25 3d 69 64 20 84 54 25 | 3d 61 69 64 20 84 54 25 |%=id .T%|=aid .T%|
|00003c40| 3d 63 6f 6e 73 74 20 84 | 54 25 3d 73 71 72 20 84 |=const .|T%=sqr .|
|00003c50| 54 25 3d 73 69 6e 20 84 | 54 25 3d 72 6e 64 20 84 |T%=sin .|T%=rnd .|
|00003c60| 54 25 3d 63 6f 73 20 84 | 54 25 3d 70 69 20 84 54 |T%=cos .|T%=pi .T|
|00003c70| 25 3d 66 6c 20 84 54 25 | 3d 74 72 20 84 54 25 3d |%=fl .T%|=tr .T%=|
|00003c80| 67 65 74 20 84 54 25 3d | 6e 6f 74 20 84 54 25 3d |get .T%=|not .T%=|
|00003c90| 70 6f 69 6e 74 20 84 54 | 25 3d 74 69 6e 74 20 84 |point .T|%=tint .|
|00003ca0| 54 25 3d 74 69 6d 65 72 | 69 0d 18 38 05 3a 0d 18 |T%=timer|i..8.:..|
|00003cb0| 42 14 dd f2 65 78 70 3a | ea 54 31 25 3a f2 65 65 |B...exp:|.T1%:.ee|
|00003cc0| 78 70 0d 18 4c 16 e7 54 | 25 3c 3e 6f 72 20 80 54 |xp..L..T|%<>or .T|
|00003cd0| 25 3c 3e 65 6f 72 20 e1 | 0d 18 56 13 54 31 25 3d |%<>eor .|..V.T1%=|
|00003ce0| 54 25 3a f2 4c 58 3a f2 | 65 78 70 0d 18 60 1e e7 |T%:.LX:.|exp..`..|
|00003cf0| 54 31 25 3d 6f 72 20 f2 | 4f 52 20 8b e7 54 31 25 |T1%=or .|OR ..T1%|
|00003d00| 3d 65 6f 72 20 f2 45 4f | 52 0d 18 6a 05 e1 0d 18 |=eor .EO|R..j....|
|00003d10| 74 05 3a 0d 18 7e 15 dd | f2 65 65 78 70 3a ea 54 |t.:..~..|.eexp:.T|
|00003d20| 31 25 3a f2 61 65 78 70 | 0d 18 88 0e e7 54 25 3c |1%:.aexp|.....T%<|
|00003d30| 3e 61 6e 64 20 e1 0d 18 | 92 14 54 31 25 3d 54 25 |>and ...|..T1%=T%|
|00003d40| 3a f2 4c 58 3a f2 65 65 | 78 70 0d 18 9c 11 e7 54 |:.LX:.ee|xp.....T|
|00003d50| 31 25 3d 61 6e 64 20 f2 | 41 4e 44 0d 18 a6 05 e1 |1%=and .|AND.....|
|00003d60| 0d 18 b0 15 dd f2 61 65 | 78 70 3a ea 54 31 25 3a |......ae|xp:.T1%:|
|00003d70| f2 73 65 78 70 0d 18 ba | 38 e7 54 25 3c 3e 67 74 |.sexp...|8.T%<>gt|
|00003d80| 20 80 54 25 3c 3e 6c 74 | 20 80 54 25 3c 3e 67 65 | .T%<>lt| .T%<>ge|
|00003d90| 71 20 80 54 25 3c 3e 6c | 65 71 20 80 54 25 3c 3e |q .T%<>l|eq .T%<>|
|00003da0| 65 71 20 80 54 25 3c 3e | 6e 65 71 20 e1 0d 18 c4 |eq .T%<>|neq ....|
|00003db0| 14 54 31 25 3d 54 25 3a | f2 4c 58 3a f2 73 65 78 |.T1%=T%:|.LX:.sex|
|00003dc0| 70 0d 18 ce 59 e7 54 31 | 25 3d 67 74 20 f2 47 54 |p...Y.T1|%=gt .GT|
|00003dd0| 54 20 8b e7 54 31 25 3d | 6c 74 20 f2 4c 54 54 20 |T ..T1%=|lt .LTT |
|00003de0| 8b e7 54 31 25 3d 67 65 | 71 20 f2 47 45 51 20 8b |..T1%=ge|q .GEQ .|
|00003df0| e7 54 31 25 3d 6c 65 71 | 20 f2 4c 45 51 20 8b e7 |.T1%=leq| .LEQ ..|
|00003e00| 54 31 25 3d 65 71 20 f2 | 45 51 55 20 8b e7 54 31 |T1%=eq .|EQU ..T1|
|00003e10| 25 3d 6e 65 71 20 f2 4e | 45 51 0d 18 d8 05 e1 0d |%=neq .N|EQ......|
|00003e20| 18 e2 0a dd f2 73 65 78 | 70 0d 18 ec 4f e7 54 25 |.....sex|p...O.T%|
|00003e30| 3d 70 6c 75 73 20 f2 4c | 58 3a f2 74 65 72 6d 20 |=plus .L|X:.term |
|00003e40| 8b e7 54 25 3d 6d 69 6e | 75 73 20 f2 4c 58 3a f2 |..T%=min|us .LX:.|
|00003e50| 74 65 72 6d 3a f2 4e 45 | 47 20 8b e7 54 25 3d 6e |term:.NE|G ..T%=n|
|00003e60| 6f 74 20 f2 4c 58 3a f2 | 74 65 72 6d 3a f2 4e 4f |ot .LX:.|term:.NO|
|00003e70| 54 20 8b f2 74 65 72 6d | 0d 18 f6 41 e7 54 25 3d |T ..term|...A.T%=|
|00003e80| 70 6c 75 73 20 f2 4c 58 | 3a f2 74 65 72 6d 3a f2 |plus .LX|:.term:.|
|00003e90| 41 44 44 3a e5 8d 64 76 | 58 20 8b e7 54 25 3d 6d |ADD:..dv|X ..T%=m|
|00003ea0| 69 6e 75 73 20 f2 4c 58 | 3a f2 74 65 72 6d 3a f2 |inus .LX|:.term:.|
|00003eb0| 53 55 42 3a e5 8d 64 76 | 58 0d 19 00 05 e1 0d 19 |SUB:..dv|X.......|
|00003ec0| 0a 24 dd f2 66 61 63 74 | 6f 72 3a ea 20 53 54 25 |.$..fact|or:. ST%|
|00003ed0| 2c 54 46 25 3a 53 54 25 | 3d 53 4e 25 3a 54 46 25 |,TF%:ST%|=SN%:TF%|
|00003ee0| 3d a3 0d 19 14 29 e7 54 | 25 3d 70 6c 75 73 20 84 |=....).T|%=plus .|
|00003ef0| 54 25 3d 6d 69 6e 75 73 | 20 84 54 25 3d 6e 6f 74 |T%=minus| .T%=not|
|00003f00| 20 54 46 25 3d 54 25 3a | f2 4c 58 0d 19 1e 22 e7 | TF%=T%:|.LX...".|
|00003f10| 54 25 3d 69 64 20 f2 4c | 58 3a f2 4c 44 41 28 73 |T%=id .L|X:.LDA(s|
|00003f20| 61 28 53 54 25 29 29 3a | e5 8d 74 74 59 0d 19 28 |a(ST%)):|..ttY..(|
|00003f30| 42 e7 54 25 3d 61 69 64 | 20 f2 4c 58 3a f2 43 28 |B.T%=aid| .LX:.C(|
|00003f40| 6c 62 29 3a f2 4c 58 3a | f2 6c 65 72 6d 3a f2 43 |lb):.LX:|.lerm:.C|
|00003f50| 28 72 62 29 3a f2 4c 44 | 41 61 72 72 28 73 61 28 |(rb):.LD|Aarr(sa(|
|00003f60| 53 54 25 29 29 3a f2 4c | 58 3a e5 8d 74 74 59 0d |ST%)):.L|X:..ttY.|
|00003f70| 19 32 1f e7 54 25 3d 63 | 6f 6e 73 74 20 f2 4c 58 |.2..T%=c|onst .LX|
|00003f80| 3a f2 4c 44 4c 28 4e 29 | 3a e5 8d 74 74 59 0d 19 |:.LDL(N)|:..ttY..|
|00003f90| 3c 1d e7 54 25 3d 6c 62 | 20 f2 4c 58 3a f2 65 78 |<..T%=lb| .LX:.ex|
|00003fa0| 70 3a f2 4c 58 3a e5 8d | 74 74 59 0d 19 46 22 e7 |p:.LX:..|ttY..F".|
|00003fb0| 54 25 3d 69 6e 6b 65 79 | 20 f2 4c 58 3a f2 6c 65 |T%=inkey| .LX:.le|
|00003fc0| 72 6d 3a f2 49 4e 4b 3a | e5 8d 74 74 59 0d 19 50 |rm:.INK:|..ttY..P|
|00003fd0| 20 e7 54 25 3d 61 62 73 | 20 f2 4c 58 3a f2 6c 65 | .T%=abs| .LX:.le|
|00003fe0| 72 6d 3a f2 41 42 53 3a | e5 8d 74 74 59 0d 19 5a |rm:.ABS:|..ttY..Z|
|00003ff0| 1a e7 54 25 3d 67 65 74 | 20 f2 4c 58 3a f2 47 45 |..T%=get| .LX:.GE|
|00004000| 54 3a e5 8d 74 74 59 0d | 19 64 20 e7 54 25 3d 73 |T:..ttY.|.d .T%=s|
|00004010| 71 72 20 f2 4c 58 3a f2 | 6c 65 72 6d 3a f2 53 51 |qr .LX:.|lerm:.SQ|
|00004020| 52 3a e5 8d 74 74 59 0d | 19 6e 36 e7 54 25 3d 72 |R:..ttY.|.n6.T%=r|
|00004030| 6e 64 20 f2 4c 58 3a f2 | 43 28 6c 62 29 3a f2 4c |nd .LX:.|C(lb):.L|
|00004040| 58 3a f2 6c 65 72 6d 3a | f2 43 28 72 62 29 3a f2 |X:.lerm:|.C(rb):.|
|00004050| 52 4e 44 3a f2 4c 58 3a | e5 8d 74 74 59 0d 19 78 |RND:.LX:|..ttY..x|
|00004060| 43 e7 54 25 3d 70 6f 69 | 6e 74 20 f2 4c 58 3a f2 |C.T%=poi|nt .LX:.|
|00004070| 6c 65 72 6d 3a f2 43 28 | 63 6f 6d 6d 61 29 3a f2 |lerm:.C(|comma):.|
|00004080| 4c 58 3a f2 6c 65 72 6d | 3a f2 50 4f 49 4e 54 3a |LX:.lerm|:.POINT:|
|00004090| f2 43 28 72 62 29 3a f2 | 4c 58 3a e5 8d 74 74 59 |.C(rb):.|LX:..ttY|
|000040a0| 0d 19 82 4d e7 54 25 3d | 74 69 6e 74 20 f2 4c 58 |...M.T%=|tint .LX|
|000040b0| 3a f2 43 28 6c 62 29 3a | f2 4c 58 3a f2 6c 65 72 |:.C(lb):|.LX:.ler|
|000040c0| 6d 3a f2 43 28 63 6f 6d | 6d 61 29 3a f2 4c 58 3a |m:.C(com|ma):.LX:|
|000040d0| f2 6c 65 72 6d 3a f2 52 | 54 49 4e 54 3a f2 43 28 |.lerm:.R|TINT:.C(|
|000040e0| 72 62 29 3a f2 4c 58 3a | e5 8d 74 74 59 0d 19 8c |rb):.LX:|..ttY...|
|000040f0| 1f e7 54 25 3d 74 69 6d | 65 72 69 20 f2 4c 58 3a |..T%=tim|eri .LX:|
|00004100| f2 52 54 49 4d 45 3a e5 | 8d 74 74 59 0d 19 96 1d |.RTIME:.|.ttY....|
|00004110| e7 54 25 3d 74 72 20 f2 | 4c 58 3a f2 4c 44 4c 28 |.T%=tr .|LX:.LDL(|
|00004120| 2d 31 29 3a e5 8d 74 74 | 59 0d 19 a0 1c e7 54 25 |-1):..tt|Y.....T%|
|00004130| 3d 66 6c 20 f2 4c 58 3a | f2 4c 44 4c 28 30 29 3a |=fl .LX:|.LDL(0):|
|00004140| e5 8d 74 74 59 0d 19 aa | 0b f2 43 28 31 29 3a e1 |..ttY...|..C(1):.|
|00004150| 0d 19 b4 09 f2 6b 65 72 | 6d 0d 19 be 05 e1 0d 19 |.....ker|m.......|
|00004160| c8 0a dd f2 74 65 72 6d | 0d 19 d2 0b f2 66 61 63 |....term|.....fac|
|00004170| 74 6f 72 0d 19 dc 70 e7 | 54 25 3d 74 69 6d 65 73 |tor...p.|T%=times|
|00004180| 20 f2 4c 58 3a f2 66 61 | 63 74 6f 72 3a f2 4d 55 | .LX:.fa|ctor:.MU|
|00004190| 4c 3a e5 8d 64 5c 59 20 | 8b e7 28 54 25 3d 73 6c |L:..d\Y |..(T%=sl|
|000041a0| 61 73 68 20 84 54 25 3d | 64 69 76 29 20 f2 4c 58 |ash .T%=|div) .LX|
|000041b0| 3a f2 66 61 63 74 6f 72 | 3a f2 44 49 56 3a e5 8d |:.factor|:.DIV:..|
|000041c0| 64 5c 59 20 8b e7 54 25 | 3d 6d 6f 64 20 f2 4c 58 |d\Y ..T%|=mod .LX|
|000041d0| 3a f2 66 61 63 74 6f 72 | 3a f2 4d 4f 44 3a e5 8d |:.factor|:.MOD:..|
|000041e0| 64 5c 59 0d 19 e6 05 e1 | 0d 19 f0 0a dd f2 6c 65 |d\Y.....|......le|
|000041f0| 72 6d 0d 19 fa 57 e7 54 | 25 3d 70 6c 75 73 20 f2 |rm...W.T|%=plus .|
|00004200| 4c 58 3a f2 66 61 63 74 | 6f 72 20 8b e7 54 25 3d |LX:.fact|or ..T%=|
|00004210| 6d 69 6e 75 73 20 f2 4c | 58 3a f2 66 61 63 74 6f |minus .L|X:.facto|
|00004220| 72 3a f2 4e 45 47 20 8b | e7 54 25 3d 6e 6f 74 20 |r:.NEG .|.T%=not |
|00004230| f2 4c 58 3a f2 66 61 63 | 74 6f 72 3a f2 4e 4f 54 |.LX:.fac|tor:.NOT|
|00004240| 20 8b f2 66 61 63 74 6f | 72 0d 1a 04 05 e1 0d 1a | ..facto|r.......|
|00004250| 0e 0a dd f2 6b 65 72 6d | 0d 1a 18 22 e7 54 46 25 |....kerm|...".TF%|
|00004260| 3d 6d 69 6e 75 73 20 f2 | 4e 45 47 20 8b e7 54 46 |=minus .|NEG ..TF|
|00004270| 25 3d 6e 6f 74 20 f2 4e | 4f 54 0d 1a 22 05 e1 0d |%=not .N|OT.."...|
|00004280| 1a 2c 05 3a 0d 1a 36 14 | dd f2 43 28 41 25 29 3a |.,.:..6.|..C(A%):|
|00004290| e7 54 25 3d 41 25 20 e1 | 0d 1a 40 17 f2 53 31 3a |.T%=A% .|..@..S1:|
|000042a0| f1 27 27 22 20 4d 69 73 | 73 69 6e 67 20 22 3b 0d |.''" Mis|sing ";.|
|000042b0| 1a 4a 7c e7 41 25 3e 31 | 32 37 20 80 41 25 3c 3e |.J|.A%>1|27 .A%<>|
|000042c0| 6c 69 6e 6f 20 d6 20 74 | 6f 6b 65 6e 70 72 69 6e |lino . t|okenprin|
|000042d0| 74 20 8b e7 41 25 3d 31 | 20 f2 72 65 70 6f 72 74 |t ..A%=1| .report|
|000042e0| 28 22 4d 69 73 73 69 6e | 67 20 65 78 70 72 65 73 |("Missin|g expres|
|000042f0| 73 69 6f 6e 22 2c 31 37 | 29 3b 20 8b e7 41 25 3d |sion",17|); ..A%=|
|00004300| 6c 69 6e 6f 20 f2 72 65 | 70 6f 72 74 28 22 4d 69 |lino .re|port("Mi|
|00004310| 73 73 69 6e 67 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |ssing li|ne numbe|
|00004320| 72 22 2c 31 37 29 20 8b | ef 41 25 0d 1a 54 09 e5 |r",17) .|.A%..T..|
|00004330| 8d 44 72 5a 0d 1a 5e 29 | dd f2 45 52 52 3a f2 53 |.DrZ..^)|..ERR:.S|
|00004340| 31 3a f2 72 65 70 6f 72 | 74 28 22 20 53 79 6e 74 |1:.repor|t(" Synt|
|00004350| 61 78 20 65 72 72 6f 72 | 22 2c 31 37 29 0d 1a 68 |ax error|",17)..h|
|00004360| 0b dd f2 53 55 42 45 52 | 0d 1a 72 13 f1 3a d9 23 |...SUBER|..r..:.#|
|00004370| 66 69 6c 65 6e 61 6d 65 | 25 3a e0 0d 1a 7c 0e dd |filename|%:...|..|
|00004380| f2 74 6f 6b 65 6e 61 73 | 73 0d 1a 86 14 de 20 74 |.tokenas|s..... t|
|00004390| 6f 6b 65 6e 73 70 61 63 | 65 20 31 32 38 0d 1a 90 |okenspac|e 128...|
|000043a0| 10 e3 70 61 73 73 3d 30 | b8 32 20 88 32 0d 1a 9a |..pass=0|.2 .2...|
|000043b0| 11 50 25 3d 74 6f 6b 65 | 6e 73 70 61 63 65 0d 1a |.P%=toke|nspace..|
|000043c0| a4 0d 5b 4f 50 54 20 70 | 61 73 73 0d 1a ae 0f 2e |..[OPT p|ass.....|
|000043d0| 74 6f 6b 65 6e 70 72 69 | 6e 74 0d 1a b8 1f 53 54 |tokenpri|nt....ST|
|000043e0| 4d 46 44 20 52 31 33 21 | 2c 7b 52 31 34 7d 3a 4d |MFD R13!|,{R14}:M|
|000043f0| 4f 56 20 52 35 2c 52 31 | 34 0d 1a c2 55 43 4d 50 |OV R5,R1|4...UCMP|
|00004400| 20 52 30 2c 23 32 35 35 | 3a 41 44 52 48 49 20 52 | R0,#255|:ADRHI R|
|00004410| 31 32 2c 74 6f 6b 65 6e | 62 75 66 66 3a 53 55 42 |12,token|buff:SUB|
|00004420| 48 49 20 52 30 2c 52 30 | 2c 23 32 35 36 3a 53 54 |HI R0,R0|,#256:ST|
|00004430| 52 48 49 20 52 30 2c 74 | 6f 6b 65 6e 62 75 66 66 |RHI R0,t|okenbuff|
|00004440| 3a 4d 4f 56 48 49 20 52 | 30 2c 23 32 30 30 0d 1a |:MOVHI R|0,#200..|
|00004450| cc 1f 41 44 52 20 52 31 | 34 2c 62 61 63 6b 3a 41 |..ADR R1|4,back:A|
|00004460| 44 44 20 50 43 2c 52 35 | 2c 23 26 34 43 0d 1a d6 |DD PC,R5|,#&4C...|
|00004470| 09 2e 62 61 63 6b 0d 1a | e0 0f 2e 74 6f 6b 65 6e |..back..|...token|
|00004480| 70 6c 6f 6f 70 0d 1a ea | 13 4c 44 52 42 20 52 30 |ploop...|.LDRB R0|
|00004490| 2c 5b 52 31 5d 2c 23 31 | 0d 1a f4 0f 43 4d 50 20 |,[R1],#1|....CMP |
|000044a0| 52 30 2c 23 26 37 46 0d | 1a fe 15 53 57 49 43 43 |R0,#&7F.|...SWICC|
|000044b0| 20 22 4f 53 5f 57 72 69 | 74 65 43 22 0d 1b 08 12 | "OS_Wri|teC"....|
|000044c0| 42 43 43 20 74 6f 6b 65 | 6e 70 6c 6f 6f 70 0d 1b |BCC toke|nploop..|
|000044d0| 12 13 4c 44 4d 46 44 20 | 52 31 33 21 2c 7b 50 43 |..LDMFD |R13!,{PC|
|000044e0| 7d 0d 1b 1c 16 2e 74 6f | 6b 65 6e 62 75 66 66 20 |}.....to|kenbuff |
|000044f0| 45 51 55 44 28 30 29 0d | 1b 26 05 5d 0d 1b 30 05 |EQUD(0).|.&.]..0.|
|00004500| ed 0d 1b 3a 05 e1 0d 1b | 44 0d dd f2 72 75 6e 74 |...:....|D...runt|
|00004510| 69 6d 65 0d 1b 4e 32 73 | 74 61 63 6b 70 3d 31 32 |ime..N2s|tackp=12|
|00004520| 3a 63 6f 6e 73 74 62 61 | 73 65 3d 31 31 3a 74 65 |:constba|se=11:te|
|00004530| 6d 70 73 74 72 69 6e 67 | 3d 31 30 3a 76 61 72 62 |mpstring|=10:varb|
|00004540| 61 73 65 3d 39 0d 1b 58 | 10 e3 70 61 73 73 3d 30 |ase=9..X|..pass=0|
|00004550| b8 32 20 88 32 0d 1b 62 | 0e 50 25 3d 70 72 6f 67 |.2 .2..b|.P%=prog|
|00004560| 72 61 6d 0d 1b 6c 0d 5b | 4f 50 54 20 70 61 73 73 |ram..l.[|OPT pass|
|00004570| 0d 1b 76 0f 2e 67 6f 20 | 42 20 73 65 74 75 70 0d |..v..go |B setup.|
|00004580| 1b 80 0d 2e 64 69 76 69 | 73 69 6f 6e 0d 1b 8a 59 |....divi|sion...Y|
|00004590| 4c 44 4d 45 41 20 52 31 | 32 21 2c 7b 52 30 2c 52 |LDMEA R1|2!,{R0,R|
|000045a0| 31 7d 3a 80 53 20 52 36 | 2c 52 30 2c 23 31 3c 3c |1}:.S R6|,R0,#1<<|
|000045b0| 33 31 3a 52 53 42 4d 49 | 20 52 30 2c 52 30 2c 23 |31:RSBMI| R0,R0,#|
|000045c0| 30 3a 82 20 52 35 2c 52 | 36 2c 52 31 3a 43 4d 50 |0:. R5,R|6,R1:CMP|
|000045d0| 20 52 31 2c 23 30 3a 52 | 53 42 4d 49 20 52 31 2c | R1,#0:R|SBMI R1,|
|000045e0| 52 31 2c 23 30 0d 1b 94 | 25 4d 4f 56 20 52 32 2c |R1,#0...|%MOV R2,|
|000045f0| 23 30 3a 4d 4f 56 20 52 | 33 2c 23 30 3a 4d 4f 56 |#0:MOV R|3,#0:MOV|
|00004600| 20 52 34 2c 23 31 3c 3c | 33 31 0d 1b 9e 78 2e 64 | R4,#1<<|31...x.d|
|00004610| 69 76 69 73 69 6f 6e 6c | 6f 6f 70 20 4d 4f 56 53 |ivisionl|oop MOVS|
|00004620| 20 52 30 2c 52 30 2c 41 | 53 4c 23 31 3a 41 44 43 | R0,R0,A|SL#1:ADC|
|00004630| 20 52 32 2c 52 32 2c 52 | 32 3a 43 4d 50 20 52 32 | R2,R2,R|2:CMP R2|
|00004640| 2c 52 31 3a 53 55 42 47 | 45 20 52 32 2c 52 32 2c |,R1:SUBG|E R2,R2,|
|00004650| 52 31 3a 84 52 47 45 20 | 52 33 2c 52 33 2c 52 34 |R1:.RGE |R3,R3,R4|
|00004660| 3a 4d 4f 56 53 20 52 34 | 2c 52 34 2c 4c 53 52 23 |:MOVS R4|,R4,LSR#|
|00004670| 31 3a 42 4e 45 20 64 69 | 76 69 73 69 6f 6e 6c 6f |1:BNE di|visionlo|
|00004680| 6f 70 0d 1b a8 35 43 4d | 50 20 52 35 2c 23 30 3a |op...5CM|P R5,#0:|
|00004690| 52 53 42 4d 49 20 52 33 | 2c 52 33 2c 23 30 3a 43 |RSBMI R3|,R3,#0:C|
|000046a0| 4d 50 20 52 36 2c 23 30 | 3a 52 53 42 4d 49 20 52 |MP R6,#0|:RSBMI R|
|000046b0| 32 2c 52 32 2c 23 30 0d | 1b b2 0e 4d 4f 56 20 50 |2,R2,#0.|...MOV P|
|000046c0| 43 2c 52 31 34 0d 1b bc | 14 5d 3a e7 20 63 68 6b |C,R14...|.]:. chk|
|000046d0| 66 6f 72 65 73 63 25 20 | 8c 0d 1b c6 19 5b 4f 50 |foresc% |.....[OP|
|000046e0| 54 20 70 61 73 73 3a 2e | 65 73 63 61 70 65 63 6f |T pass:.|escapeco|
|000046f0| 64 65 0d 1b d0 47 4d 4f | 56 20 52 30 2c 23 26 37 |de...GMO|V R0,#&7|
|00004700| 45 3a 53 57 49 20 22 4f | 53 5f 42 79 74 65 22 3a |E:SWI "O|S_Byte":|
|00004710| 41 44 52 20 52 30 2c 65 | 73 63 61 70 65 62 6c 6f |ADR R0,e|scapeblo|
|00004720| 63 6b 3a 53 57 49 20 22 | 4f 53 5f 47 65 6e 65 72 |ck:SWI "|OS_Gener|
|00004730| 61 74 65 45 72 72 6f 72 | 22 0d 1b da 31 2e 65 73 |ateError|"...1.es|
|00004740| 63 61 70 65 62 6c 6f 63 | 6b 20 45 51 55 44 28 31 |capebloc|k EQUD(1|
|00004750| 37 29 3a 45 51 55 53 22 | 45 73 63 61 70 65 22 2b |7):EQUS"|Escape"+|
|00004760| bd 30 3a 41 4c 49 47 4e | 3a 5d 0d 1b e4 05 cd 0d |.0:ALIGN|:]......|
|00004770| 1b ee a0 5b 4f 50 54 20 | 70 61 73 73 3a 2e 63 6f |...[OPT |pass:.co|
|00004780| 6e 73 74 6f 66 66 20 45 | 51 55 44 28 30 29 3a 2e |nstoff E|QUD(0):.|
|00004790| 61 72 72 61 79 74 61 62 | 6c 65 6f 66 66 20 45 51 |arraytab|leoff EQ|
|000047a0| 55 44 28 30 29 3a 2e 63 | 6f 6e 73 74 73 74 72 69 |UD(0):.c|onststri|
|000047b0| 6e 67 6f 66 66 20 45 51 | 55 44 28 30 29 3a 2e 73 |ngoff EQ|UD(0):.s|
|000047c0| 74 72 69 6e 67 6f 66 66 | 20 45 51 55 44 28 30 29 |tringoff| EQUD(0)|
|000047d0| 3a 2e 74 65 6d 70 73 74 | 72 69 6e 67 6f 66 66 20 |:.tempst|ringoff |
|000047e0| 45 51 55 44 28 30 29 3a | 2e 61 72 72 61 79 64 61 |EQUD(0):|.arrayda|
|000047f0| 74 61 6f 66 66 20 45 51 | 55 44 28 30 29 3a 2e 73 |taoff EQ|UD(0):.s|
|00004800| 74 61 63 6b 6f 66 66 20 | 45 51 55 44 28 30 29 0d |tackoff |EQUD(0).|
|00004810| 1b f8 0a 2e 73 65 74 75 | 70 0d 1c 02 35 4c 44 52 |....setu|p...5LDR|
|00004820| 20 63 6f 6e 73 74 62 61 | 73 65 2c 63 6f 6e 73 74 | constba|se,const|
|00004830| 6f 66 66 3a 41 44 44 20 | 63 6f 6e 73 74 62 61 73 |off:ADD |constbas|
|00004840| 65 2c 50 43 2c 63 6f 6e | 73 74 62 61 73 65 0d 1c |e,PC,con|stbase..|
|00004850| 0c 42 4c 44 52 20 52 30 | 2c 61 72 72 61 79 74 61 |.BLDR R0|,arrayta|
|00004860| 62 6c 65 6f 66 66 3a 41 | 44 44 20 52 30 2c 52 30 |bleoff:A|DD R0,R0|
|00004870| 2c 63 6f 6e 73 74 62 61 | 73 65 3a 53 54 52 20 52 |,constba|se:STR R|
|00004880| 30 2c 5b 63 6f 6e 73 74 | 62 61 73 65 2c 23 30 5d |0,[const|base,#0]|
|00004890| 0d 1c 16 3c 4c 44 52 20 | 52 31 2c 63 6f 6e 73 74 |...<LDR |R1,const|
|000048a0| 73 74 72 69 6e 67 6f 66 | 66 3a 41 44 44 20 52 31 |stringof|f:ADD R1|
|000048b0| 2c 52 31 2c 52 30 3a 53 | 54 52 20 52 31 2c 5b 63 |,R1,R0:S|TR R1,[c|
|000048c0| 6f 6e 73 74 62 61 73 65 | 2c 23 34 5d 0d 1c 20 37 |onstbase|,#4].. 7|
|000048d0| 4c 44 52 20 52 32 2c 73 | 74 72 69 6e 67 6f 66 66 |LDR R2,s|tringoff|
|000048e0| 3a 41 44 44 20 52 32 2c | 52 32 2c 52 31 3a 53 54 |:ADD R2,|R2,R1:ST|
|000048f0| 52 20 52 32 2c 5b 63 6f | 6e 73 74 62 61 73 65 2c |R R2,[co|nstbase,|
|00004900| 23 38 5d 0d 1c 2a 3d 4c | 44 52 20 74 65 6d 70 73 |#8]..*=L|DR temps|
|00004910| 74 72 69 6e 67 2c 74 65 | 6d 70 73 74 72 69 6e 67 |tring,te|mpstring|
|00004920| 6f 66 66 3a 41 44 44 20 | 74 65 6d 70 73 74 72 69 |off:ADD |tempstri|
|00004930| 6e 67 2c 74 65 6d 70 73 | 74 72 69 6e 67 2c 52 32 |ng,temps|tring,R2|
|00004940| 0d 1c 34 1f 41 44 44 20 | 76 61 72 62 61 73 65 2c |..4.ADD |varbase,|
|00004950| 74 65 6d 70 73 74 72 69 | 6e 67 2c 23 32 35 36 0d |tempstri|ng,#256.|
|00004960| 1c 3e 40 4c 44 52 20 52 | 33 2c 61 72 72 61 79 64 |.>@LDR R|3,arrayd|
|00004970| 61 74 61 6f 66 66 3a 41 | 44 44 20 52 33 2c 52 33 |ataoff:A|DD R3,R3|
|00004980| 2c 76 61 72 62 61 73 65 | 3a 53 54 52 20 52 33 2c |,varbase|:STR R3,|
|00004990| 5b 63 6f 6e 73 74 62 61 | 73 65 2c 23 31 32 5d 0d |[constba|se,#12].|
|000049a0| 1c 48 2c 4c 44 52 20 73 | 74 61 63 6b 70 2c 73 74 |.H,LDR s|tackp,st|
|000049b0| 61 63 6b 6f 66 66 3a 41 | 44 44 20 73 74 61 63 6b |ackoff:A|DD stack|
|000049c0| 70 2c 73 74 61 63 6b 70 | 2c 52 33 0d 1c 52 18 53 |p,stackp|,R3..R.S|
|000049d0| 54 4d 45 41 20 52 31 32 | 21 2c 7b 52 31 33 2c 52 |TMEA R12|!,{R13,R|
|000049e0| 31 34 7d 0d 1c 5c bd 53 | 57 49 20 22 4f 53 5f 57 |14}..\.S|WI "OS_W|
|000049f0| 72 69 74 65 53 22 3a 45 | 51 55 53 22 43 6f 6d 70 |riteS":E|QUS"Comp|
|00004a00| 69 6c 65 64 20 75 73 69 | 6e 67 20 74 68 65 20 42 |iled usi|ng the B|
|00004a10| 61 73 69 63 20 42 41 53 | 49 43 20 43 6f 6d 70 69 |asic BAS|IC Compi|
|00004a20| 6c 65 72 20 62 79 20 50 | 65 74 65 72 20 4a 6f 6e |ler by P|eter Jon|
|00004a30| 65 73 22 3a 45 51 55 42 | 28 31 33 29 3a 45 51 55 |es":EQUB|(13):EQU|
|00004a40| 42 28 31 30 29 3a 45 51 | 55 53 22 a9 20 53 6f 66 |B(10):EQ|US". Sof|
|00004a50| 74 53 74 75 66 66 20 31 | 39 39 34 22 3a 45 51 55 |tStuff 1|994":EQU|
|00004a60| 42 28 31 33 29 3a 45 51 | 55 42 28 31 30 29 3a 45 |B(13):EQ|UB(10):E|
|00004a70| 51 55 53 22 55 6e 72 65 | 67 69 73 74 65 72 65 64 |QUS"Unre|gistered|
|00004a80| 20 76 65 72 73 69 6f 6e | 22 3a 45 51 55 42 28 31 | version|":EQUB(1|
|00004a90| 30 29 3a 45 51 55 42 28 | 30 29 3a 41 4c 49 47 4e |0):EQUB(|0):ALIGN|
|00004aa0| 0d 1c 66 06 5d ed 0d 1c | 70 05 e1 0d 1c 7a 05 3a |..f.]...|p....z.:|
|00004ab0| 0d 1c 84 43 dd f2 45 53 | 43 41 50 45 3a e7 63 68 |...C..ES|CAPE:.ch|
|00004ac0| 6b 66 6f 72 65 73 63 25 | 20 5b 53 57 49 20 22 4f |kforesc%| [SWI "O|
|00004ad0| 53 5f 52 65 61 64 45 73 | 63 61 70 65 53 74 61 74 |S_ReadEs|capeStat|
|00004ae0| 65 22 3a 42 43 53 20 65 | 73 63 61 70 65 63 6f 64 |e":BCS e|scapecod|
|00004af0| 65 3a 5d 0d 1c 8e 05 e1 | 0d 1c 98 34 dd f2 53 4e |e:].....|...4..SN|
|00004b00| 44 3a 5b 4c 44 4d 45 41 | 20 52 31 32 21 2c 7b 52 |D:[LDMEA| R12!,{R|
|00004b10| 30 2d 52 33 7d 3a 53 57 | 49 20 22 53 6f 75 6e 64 |0-R3}:SW|I "Sound|
|00004b20| 5f 43 6f 6e 74 72 6f 6c | 22 3a 5d e1 0d 1c a2 5e |_Control|":]....^|
|00004b30| dd f2 56 4f 49 43 45 53 | 3a 5b 4c 44 4d 45 41 20 |..VOICES|:[LDMEA |
|00004b40| 52 31 32 21 2c 7b 52 30 | 7d 3a 4d 4f 56 20 52 31 |R12!,{R0|}:MOV R1|
|00004b50| 2c 23 30 3a 4d 4f 56 20 | 52 32 2c 23 30 3a 4d 4f |,#0:MOV |R2,#0:MO|
|00004b60| 56 20 52 33 2c 23 30 3a | 4d 4f 56 20 52 34 2c 23 |V R3,#0:|MOV R4,#|
|00004b70| 30 3a 53 57 49 20 22 53 | 6f 75 6e 64 5f 43 6f 6e |0:SWI "S|ound_Con|
|00004b80| 66 69 67 75 72 65 22 3a | 5d e1 0d 1c ac 1c dd f2 |figure":|].......|
|00004b90| 56 44 4c 28 4c 25 29 3a | 5b 53 57 49 20 32 35 36 |VDL(L%):|[SWI 256|
|00004ba0| 2b 4c 25 3a 5d e1 0d 1c | b6 2d dd f2 56 44 55 3a |+L%:]...|.-..VDU:|
|00004bb0| 5b 4c 44 4d 45 41 20 52 | 31 32 21 2c 7b 52 30 7d |[LDMEA R|12!,{R0}|
|00004bc0| 3a 53 57 49 20 22 4f 53 | 5f 57 72 69 74 65 43 22 |:SWI "OS|_WriteC"|
|00004bd0| 3a 5d e1 0d 1c c0 73 dd | f2 56 44 44 3a 5b 4c 44 |:]....s.|.VDD:[LD|
|00004be0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 7d 3a 80 20 |MEA R12!|,{R0}:. |
|00004bf0| 52 31 2c 52 30 2c 23 26 | 46 46 30 30 3a 4d 4f 56 |R1,R0,#&|FF00:MOV|
|00004c00| 20 52 31 2c 52 31 2c 41 | 53 52 23 38 3a 80 20 52 | R1,R1,A|SR#8:. R|
|00004c10| 30 2c 52 30 2c 23 26 46 | 46 3a 53 57 49 20 22 4f |0,R0,#&F|F:SWI "O|
|00004c20| 53 5f 57 72 69 74 65 43 | 22 3a 4d 4f 56 20 52 30 |S_WriteC|":MOV R0|
|00004c30| 2c 52 31 3a 53 57 49 20 | 22 4f 53 5f 57 72 69 74 |,R1:SWI |"OS_Writ|
|00004c40| 65 43 22 3a 5d e1 0d 1c | ca 3e dd f2 50 4c 54 4c |eC":]...|.>..PLTL|
|00004c50| 28 4c 25 29 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |(L%):[LD|MEA R12!|
|00004c60| 2c 7b 52 31 2c 52 32 7d | 3a 4d 4f 56 20 52 30 2c |,{R1,R2}|:MOV R0,|
|00004c70| 23 4c 25 3a 53 57 49 20 | 22 4f 53 5f 50 6c 6f 74 |#L%:SWI |"OS_Plot|
|00004c80| 22 3a 5d e1 0d 1c d4 5b | dd f2 50 4f 49 4e 54 3a |":]....[|..POINT:|
|00004c90| 5b 4c 44 4d 45 41 20 52 | 31 32 21 2c 7b 52 30 2c |[LDMEA R|12!,{R0,|
|00004ca0| 52 31 7d 3a 53 57 49 20 | 22 4f 53 5f 52 65 61 64 |R1}:SWI |"OS_Read|
|00004cb0| 50 6f 69 6e 74 22 3a 43 | 4d 50 20 52 34 2c 23 30 |Point":C|MP R4,#0|
|00004cc0| 3a 4d 56 4e 4d 49 20 52 | 32 2c 23 30 3a 53 54 4d |:MVNMI R|2,#0:STM|
|00004cd0| 45 41 20 52 31 32 21 2c | 7b 52 32 7d 3a 5d e1 0d |EA R12!,|{R2}:]..|
|00004ce0| 1c de 5b dd f2 52 54 49 | 4e 54 3a 5b 4c 44 4d 45 |..[..RTI|NT:[LDME|
|00004cf0| 41 20 52 31 32 21 2c 7b | 52 30 2c 52 31 7d 3a 53 |A R12!,{|R0,R1}:S|
|00004d00| 57 49 20 22 4f 53 5f 52 | 65 61 64 50 6f 69 6e 74 |WI "OS_R|eadPoint|
|00004d10| 22 3a 43 4d 50 20 52 34 | 2c 23 30 3a 4d 56 4e 4d |":CMP R4|,#0:MVNM|
|00004d20| 49 20 52 33 2c 23 30 3a | 53 54 4d 45 41 20 52 31 |I R3,#0:|STMEA R1|
|00004d30| 32 21 2c 7b 52 33 7d 3a | 5d e1 0d 1c e8 2f dd f2 |2!,{R3}:|]..../..|
|00004d40| 50 4c 4f 54 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |PLOT:[LD|MEA R12!|
|00004d50| 2c 7b 52 30 2d 52 32 7d | 3a 53 57 49 20 22 4f 53 |,{R0-R2}|:SWI "OS|
|00004d60| 5f 50 6c 6f 74 22 3a 5d | e1 0d 1c f2 da dd f2 52 |_Plot":]|.......R|
|00004d70| 45 43 54 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |ECT:[LDM|EA R12!,|
|00004d80| 7b 52 33 2c 52 34 7d 3a | 4d 4f 56 20 52 30 2c 23 |{R3,R4}:|MOV R0,#|
|00004d90| 34 3a 4d 4f 56 20 52 31 | 2c 52 33 3a 4d 4f 56 20 |4:MOV R1|,R3:MOV |
|00004da0| 52 32 2c 52 34 3a 53 57 | 49 20 22 4f 53 5f 50 6c |R2,R4:SW|I "OS_Pl|
|00004db0| 6f 74 22 3a 4c 44 4d 45 | 41 20 52 31 32 2c 21 7b |ot":LDME|A R12,!{|
|00004dc0| 52 33 2c 52 34 7d 3a 4d | 4f 56 20 52 30 2c 23 31 |R3,R4}:M|OV R0,#1|
|00004dd0| 3a 4d 4f 56 20 52 31 2c | 52 33 3a 4d 4f 56 20 52 |:MOV R1,|R3:MOV R|
|00004de0| 32 2c 23 30 3a 53 57 49 | 20 22 4f 53 5f 50 6c 6f |2,#0:SWI| "OS_Plo|
|00004df0| 74 22 3a 4d 4f 56 20 52 | 31 2c 23 30 3a 4d 4f 56 |t":MOV R|1,#0:MOV|
|00004e00| 20 52 32 2c 52 34 3a 53 | 57 49 20 22 4f 53 5f 50 | R2,R4:S|WI "OS_P|
|00004e10| 6c 6f 74 22 3a 4d 4f 56 | 20 52 31 2c 52 33 3a 52 |lot":MOV| R1,R3:R|
|00004e20| 53 42 20 52 31 2c 52 31 | 2c 23 30 3a 4d 4f 56 20 |SB R1,R1|,#0:MOV |
|00004e30| 52 32 2c 23 30 3a 53 57 | 49 20 22 4f 53 5f 50 6c |R2,#0:SW|I "OS_Pl|
|00004e40| 6f 74 22 0d 1c fc 35 4d | 4f 56 20 52 31 2c 23 30 |ot"...5M|OV R1,#0|
|00004e50| 3a 4d 4f 56 20 52 32 2c | 52 34 3a 52 53 42 20 52 |:MOV R2,|R4:RSB R|
|00004e60| 32 2c 52 32 2c 23 30 3a | 53 57 49 20 22 4f 53 5f |2,R2,#0:|SWI "OS_|
|00004e70| 50 6c 6f 74 22 3a 5d e1 | 0d 1d 06 73 dd f2 4d 4f |Plot":].|...s..MO|
|00004e80| 55 53 45 53 54 41 54 55 | 53 28 41 31 25 2c 41 32 |USESTATU|S(A1%,A2|
|00004e90| 25 2c 41 33 25 29 3a 5b | 53 57 49 20 22 4f 53 5f |%,A3%):[|SWI "OS_|
|00004ea0| 4d 6f 75 73 65 22 3a 53 | 54 52 20 52 30 2c 5b 76 |Mouse":S|TR R0,[v|
|00004eb0| 61 72 62 61 73 65 2c 23 | 41 31 25 5d 3a 53 54 52 |arbase,#|A1%]:STR|
|00004ec0| 20 52 31 2c 5b 76 61 72 | 62 61 73 65 2c 23 41 32 | R1,[var|base,#A2|
|00004ed0| 25 5d 3a 53 54 52 20 52 | 32 2c 5b 76 61 72 62 61 |%]:STR R|2,[varba|
|00004ee0| 73 65 2c 23 41 33 25 5d | 3a 5d e1 0d 1d 10 3d dd |se,#A3%]|:]....=.|
|00004ef0| f2 4d 4f 55 53 45 4c 49 | 4e 4b 3a 5b 4c 44 4d 45 |.MOUSELI|NK:[LDME|
|00004f00| 41 20 52 31 32 21 2c 7b | 52 31 7d 3a 4d 4f 56 20 |A R12!,{|R1}:MOV |
|00004f10| 52 30 2c 23 31 30 36 3a | 53 57 49 20 22 4f 53 5f |R0,#106:|SWI "OS_|
|00004f20| 42 79 74 65 22 3a 5d e1 | 0d 1d 1a 84 dd f2 4d 4f |Byte":].|......MO|
|00004f30| 55 53 45 54 4f 3a 5b 4c | 44 4d 45 41 20 52 31 32 |USETO:[L|DMEA R12|
|00004f40| 21 2c 7b 52 32 2c 52 33 | 7d 3a 4d 4f 56 20 52 31 |!,{R2,R3|}:MOV R1|
|00004f50| 2c 74 65 6d 70 73 74 72 | 69 6e 67 3a 4d 4f 56 20 |,tempstr|ing:MOV |
|00004f60| 52 30 2c 23 33 3a 53 54 | 52 42 20 52 30 2c 5b 52 |R0,#3:ST|RB R0,[R|
|00004f70| 31 5d 3a 53 54 52 20 52 | 32 2c 5b 52 31 2c 23 31 |1]:STR R|2,[R1,#1|
|00004f80| 5d 3a 53 54 52 20 52 33 | 2c 5b 52 31 2c 23 33 5d |]:STR R3|,[R1,#3]|
|00004f90| 3a 4d 4f 56 20 52 30 2c | 23 32 31 3a 53 57 49 20 |:MOV R0,|#21:SWI |
|00004fa0| 22 4f 53 5f 57 6f 72 64 | 22 3a 5d e1 0d 1d 24 87 |"OS_Word|":]...$.|
|00004fb0| dd f2 4d 4f 55 53 45 53 | 54 45 50 31 41 3a 5b 4c |..MOUSES|TEP1A:[L|
|00004fc0| 44 4d 45 41 20 52 31 32 | 21 2c 7b 52 32 7d 3a 4d |DMEA R12|!,{R2}:M|
|00004fd0| 4f 56 20 52 31 2c 74 65 | 6d 70 73 74 72 69 6e 67 |OV R1,te|mpstring|
|00004fe0| 3a 4d 4f 56 20 52 30 2c | 23 32 3a 53 54 52 42 20 |:MOV R0,|#2:STRB |
|00004ff0| 52 30 2c 5b 52 31 5d 3a | 53 54 52 42 20 52 32 2c |R0,[R1]:|STRB R2,|
|00005000| 5b 52 31 2c 23 31 5d 3a | 53 54 52 42 20 52 32 2c |[R1,#1]:|STRB R2,|
|00005010| 5b 52 31 2c 23 32 5d 3a | 4d 4f 56 20 52 30 2c 23 |[R1,#2]:|MOV R0,#|
|00005020| 32 31 3a 53 57 49 20 22 | 4f 53 5f 57 6f 72 64 22 |21:SWI "|OS_Word"|
|00005030| 3a 5d e1 0d 1d 2e 8a dd | f2 4d 4f 55 53 45 53 54 |:]......|.MOUSEST|
|00005040| 45 50 32 41 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |EP2A:[LD|MEA R12!|
|00005050| 2c 7b 52 32 2c 52 33 7d | 3a 4d 4f 56 20 52 31 2c |,{R2,R3}|:MOV R1,|
|00005060| 74 65 6d 70 73 74 72 69 | 6e 67 3a 4d 4f 56 20 52 |tempstri|ng:MOV R|
|00005070| 30 2c 23 32 3a 53 54 52 | 42 20 52 30 2c 5b 52 31 |0,#2:STR|B R0,[R1|
|00005080| 5d 3a 53 54 52 42 20 52 | 32 2c 5b 52 31 2c 23 31 |]:STRB R|2,[R1,#1|
|00005090| 5d 3a 53 54 52 42 20 52 | 33 2c 5b 52 31 2c 23 32 |]:STRB R|3,[R1,#2|
|000050a0| 5d 3a 4d 4f 56 20 52 30 | 2c 23 32 31 3a 53 57 49 |]:MOV R0|,#21:SWI|
|000050b0| 20 22 4f 53 5f 57 6f 72 | 64 22 3a 5d e1 0d 1d 38 | "OS_Wor|d":]...8|
|000050c0| d5 dd f2 4d 4f 55 53 45 | 52 45 43 3a 5b 4c 44 4d |...MOUSE|REC:[LDM|
|000050d0| 45 41 20 52 31 32 21 2c | 7b 52 32 2d 52 35 7d 3a |EA R12!,|{R2-R5}:|
|000050e0| 41 44 44 20 52 34 2c 52 | 34 2c 52 32 3a 41 44 44 |ADD R4,R|4,R2:ADD|
|000050f0| 20 52 35 2c 52 35 2c 52 | 33 3a 4d 4f 56 20 52 31 | R5,R5,R|3:MOV R1|
|00005100| 2c 74 65 6d 70 73 74 72 | 69 6e 67 3a 4d 4f 56 20 |,tempstr|ing:MOV |
|00005110| 52 30 2c 23 31 3a 53 54 | 52 42 20 52 30 2c 5b 52 |R0,#1:ST|RB R0,[R|
|00005120| 31 5d 3a 53 54 52 42 20 | 52 32 2c 5b 52 31 2c 23 |1]:STRB |R2,[R1,#|
|00005130| 31 5d 3a 4d 4f 56 20 52 | 32 2c 52 32 2c 4c 53 52 |1]:MOV R|2,R2,LSR|
|00005140| 23 38 3a 53 54 52 42 20 | 52 32 2c 5b 52 31 2c 23 |#8:STRB |R2,[R1,#|
|00005150| 32 5d 3a 53 54 52 42 20 | 52 33 2c 5b 52 31 2c 23 |2]:STRB |R3,[R1,#|
|00005160| 33 5d 3a 4d 4f 56 20 52 | 33 2c 52 33 2c 4c 53 52 |3]:MOV R|3,R3,LSR|
|00005170| 23 38 3a 53 54 52 42 20 | 52 33 2c 5b 52 31 2c 23 |#8:STRB |R3,[R1,#|
|00005180| 34 5d 3a 53 54 52 42 20 | 52 34 2c 5b 52 31 2c 23 |4]:STRB |R4,[R1,#|
|00005190| 35 5d 0d 1d 42 6f 4d 4f | 56 20 52 34 2c 52 34 2c |5]..BoMO|V R4,R4,|
|000051a0| 4c 53 52 23 38 3a 53 54 | 52 42 20 52 34 2c 5b 52 |LSR#8:ST|RB R4,[R|
|000051b0| 31 2c 23 36 5d 3a 53 54 | 52 42 20 52 35 2c 5b 52 |1,#6]:ST|RB R5,[R|
|000051c0| 31 2c 23 37 5d 3a 4d 4f | 56 20 52 35 2c 52 35 2c |1,#7]:MO|V R5,R5,|
|000051d0| 4c 53 52 23 38 3a 53 54 | 52 42 20 52 35 2c 5b 52 |LSR#8:ST|RB R5,[R|
|000051e0| 31 2c 23 38 5d 3a 4d 4f | 56 20 52 30 2c 23 32 31 |1,#8]:MO|V R0,#21|
|000051f0| 3a 53 57 49 20 22 4f 53 | 5f 57 6f 72 64 22 3a 5d |:SWI "OS|_Word":]|
|00005200| e1 0d 1d 4c 25 dd f2 43 | 4f 4e 3a 5b 53 57 49 20 |...L%..C|ON:[SWI |
|00005210| 22 4f 53 5f 52 65 73 74 | 6f 72 65 43 75 72 73 6f |"OS_Rest|oreCurso|
|00005220| 72 73 22 3a 5d e1 0d 1d | 56 25 dd f2 43 4f 46 46 |rs":]...|V%..COFF|
|00005230| 3a 5b 53 57 49 20 22 4f | 53 5f 52 65 6d 6f 76 65 |:[SWI "O|S_Remove|
|00005240| 43 75 72 73 6f 72 73 22 | 3a 5d e1 0d 1d 60 27 dd |Cursors"|:]...`'.|
|00005250| f2 57 41 49 54 3a 5b 4d | 4f 56 20 52 30 2c 23 31 |.WAIT:[M|OV R0,#1|
|00005260| 39 3a 53 57 49 20 22 4f | 53 5f 42 79 74 65 22 3a |9:SWI "O|S_Byte":|
|00005270| 5d e1 0d 1d 6a c0 dd f2 | 49 4e 4b 3a ea 20 50 31 |]...j...|INK:. P1|
|00005280| 25 3a 50 31 25 3d 50 25 | 3a e3 70 61 73 73 3d 30 |%:P1%=P%|:.pass=0|
|00005290| b8 32 88 32 3a 50 25 3d | 50 31 25 3a 5b 4f 50 54 |.2.2:P%=|P1%:[OPT|
|000052a0| 70 61 73 73 3a 4c 44 4d | 45 41 20 52 31 32 21 2c |pass:LDM|EA R12!,|
|000052b0| 7b 52 31 7d 3a 43 4d 50 | 20 52 31 2c 23 30 3a 80 |{R1}:CMP| R1,#0:.|
|000052c0| 50 4c 20 52 32 2c 52 31 | 2c 23 26 46 46 30 30 3a |PL R2,R1|,#&FF00:|
|000052d0| 4d 4f 56 50 4c 20 52 32 | 2c 52 32 2c 4c 53 52 23 |MOVPL R2|,R2,LSR#|
|000052e0| 38 3a 80 50 4c 20 52 31 | 2c 52 31 2c 23 26 46 46 |8:.PL R1|,R1,#&FF|
|000052f0| 3a 4d 4f 56 50 4c 20 52 | 33 2c 23 30 3a 4d 4f 56 |:MOVPL R|3,#0:MOV|
|00005300| 4d 49 20 52 32 2c 23 32 | 35 35 3a 4d 4f 56 4d 49 |MI R2,#2|55:MOVMI|
|00005310| 20 52 33 2c 23 32 35 35 | 3a 4d 4f 56 20 52 30 2c | R3,#255|:MOV R0,|
|00005320| 23 31 32 39 3a 53 57 49 | 20 22 4f 53 5f 42 79 74 |#129:SWI| "OS_Byt|
|00005330| 65 22 0d 1d 74 69 43 4d | 50 20 52 33 2c 23 30 3a |e"..tiCM|P R3,#0:|
|00005340| 42 45 51 20 69 6e 6b 65 | 79 77 61 69 74 3a 43 4d |BEQ inke|ywait:CM|
|00005350| 50 20 52 31 2c 23 32 35 | 35 3a 4d 56 4e 45 51 20 |P R1,#25|5:MVNEQ |
|00005360| 52 31 2c 23 30 3a 2e 69 | 6e 6b 65 79 77 61 69 74 |R1,#0:.i|nkeywait|
|00005370| 3a 5d e7 63 68 6b 66 6f | 72 65 73 63 25 20 5b 43 |:].chkfo|resc% [C|
|00005380| 4d 50 20 52 32 2c 23 26 | 31 42 3a 42 45 51 20 65 |MP R2,#&|1B:BEQ e|
|00005390| 73 63 61 70 65 63 6f 64 | 65 3a 5d 0d 1d 7e 19 5b |scapecod|e:]..~.[|
|000053a0| 53 54 4d 45 41 20 52 31 | 32 21 2c 7b 52 31 7d 3a |STMEA R1|2!,{R1}:|
|000053b0| 5d ed 3a e1 0d 1d 88 46 | dd f2 41 42 53 3a 5b 4c |].:....F|..ABS:[L|
|000053c0| 44 4d 45 41 20 52 31 32 | 21 2c 7b 52 30 7d 3a 43 |DMEA R12|!,{R0}:C|
|000053d0| 4d 50 20 52 30 2c 23 30 | 3a 52 53 42 4d 49 20 52 |MP R0,#0|:RSBMI R|
|000053e0| 30 2c 52 30 2c 23 30 3a | 53 54 4d 45 41 20 52 31 |0,R0,#0:|STMEA R1|
|000053f0| 32 21 2c 7b 52 30 7d 3a | 5d e1 0d 1d 92 38 dd f2 |2!,{R0}:|]....8..|
|00005400| 47 45 54 3a 5b 53 57 49 | 20 22 4f 53 5f 52 65 61 |GET:[SWI| "OS_Rea|
|00005410| 64 43 22 3a 5d e7 63 68 | 6b 66 6f 72 65 73 63 25 |dC":].ch|kforesc%|
|00005420| 20 5b 42 43 53 20 65 73 | 63 61 70 65 63 6f 64 65 | [BCS es|capecode|
|00005430| 3a 5d 0d 1d 9c 17 5b 53 | 54 4d 45 41 20 52 31 32 |:]....[S|TMEA R12|
|00005440| 21 2c 7b 52 30 7d 3a 5d | e1 0d 1d a6 7e dd f2 54 |!,{R0}:]|....~..T|
|00005450| 49 4d 45 3a 5b 4d 4f 56 | 20 52 30 2c 23 30 3a 53 |IME:[MOV| R0,#0:S|
|00005460| 54 52 42 20 52 30 2c 5b | 74 65 6d 70 73 74 72 69 |TRB R0,[|tempstri|
|00005470| 6e 67 2c 23 35 5d 3a 4c | 44 4d 45 41 20 52 31 32 |ng,#5]:L|DMEA R12|
|00005480| 21 2c 7b 52 30 7d 3a 53 | 54 52 20 52 30 2c 5b 74 |!,{R0}:S|TR R0,[t|
|00005490| 65 6d 70 73 74 72 69 6e | 67 5d 3a 4d 4f 56 20 52 |empstrin|g]:MOV R|
|000054a0| 30 2c 23 32 3a 4d 4f 56 | 20 52 31 2c 74 65 6d 70 |0,#2:MOV| R1,temp|
|000054b0| 73 74 72 69 6e 67 3a 53 | 57 49 20 22 4f 53 5f 57 |string:S|WI "OS_W|
|000054c0| 6f 72 64 22 3a 5d e1 0d | 1d b0 5d dd f2 52 54 49 |ord":]..|..]..RTI|
|000054d0| 4d 45 3a 5b 4d 4f 56 20 | 52 30 2c 23 31 3a 4d 4f |ME:[MOV |R0,#1:MO|
|000054e0| 56 20 52 31 2c 74 65 6d | 70 73 74 72 69 6e 67 3a |V R1,tem|pstring:|
|000054f0| 53 57 49 20 22 4f 53 5f | 57 6f 72 64 22 3a 4c 44 |SWI "OS_|Word":LD|
|00005500| 52 20 52 30 2c 5b 74 65 | 6d 70 73 74 72 69 6e 67 |R R0,[te|mpstring|
|00005510| 5d 3a 53 54 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |]:STMEA |R12!,{R0|
|00005520| 7d 3a 5d e1 0d 1d ba 83 | dd f2 53 59 53 28 4e 25 |}:].....|..SYS(N%|
|00005530| 2c 4e 31 25 2c 4e 32 25 | 29 3a 4e 55 25 3d 30 3a |,N1%,N2%|):NU%=0:|
|00005540| c8 95 4e 55 25 3c 4e 31 | 25 3a 5b 4c 44 4d 45 41 |..NU%<N1|%:[LDMEA|
|00005550| 20 52 31 32 21 2c 7b 4e | 55 25 7d 3a 5d 4e 55 25 | R12!,{N|U%}:]NU%|
|00005560| 2b 3d 31 3a ce 3a 5b 53 | 57 49 20 4e 25 3a 5d 4e |+=1:.:[S|WI N%:]N|
|00005570| 55 25 3d 30 3a c8 95 4e | 55 25 3c 4e 32 25 3a 5b |U%=0:..N|U%<N2%:[|
|00005580| 53 54 52 20 4e 55 25 2c | 5b 76 61 72 62 61 73 65 |STR NU%,|[varbase|
|00005590| 2c 23 4d 50 25 28 4e 55 | 25 29 5d 3a 5d 4e 55 25 |,#MP%(NU|%)]:]NU%|
|000055a0| 2b 3d 31 3a ce 3a e1 0d | 1d c4 05 3a 0d 1d ce 7c |+=1:.:..|...:...||
|000055b0| dd f2 4c 44 4c 28 51 29 | 3a e7 51 3e 3d 30 80 51 |..LDL(Q)|:.Q>=0.Q|
|000055c0| 3c 32 35 36 20 5b 4d 4f | 56 20 52 30 2c 23 51 3a |<256 [MO|V R0,#Q:|
|000055d0| 5d 20 8b 20 e7 51 3c 30 | 80 51 3e 3d 2d 32 35 35 |] . .Q<0|.Q>=-255|
|000055e0| 20 5b 4d 56 4e 20 52 30 | 2c 23 28 94 28 51 29 2d | [MVN R0|,#(.(Q)-|
|000055f0| 31 29 3a 5d 20 8b 5b 4c | 44 52 20 52 30 2c 5b 63 |1):] .[L|DR R0,[c|
|00005600| 6f 6e 73 74 62 61 73 65 | 2c 23 4e 43 25 2a 34 5d |onstbase|,#NC%*4]|
|00005610| 3a 5d 3a 63 6f 6e 73 74 | 73 25 28 4e 43 25 29 3d |:]:const|s%(NC%)=|
|00005620| 51 3a 4e 43 25 2b 3d 31 | 0d 1d d8 17 5b 53 54 4d |Q:NC%+=1|....[STM|
|00005630| 45 41 20 52 31 32 21 2c | 7b 52 30 7d 3a 5d e1 0d |EA R12!,|{R0}:]..|
|00005640| 1d e2 36 dd f2 4c 44 41 | 28 41 25 29 3a 5b 4c 44 |..6..LDA|(A%):[LD|
|00005650| 52 20 52 30 2c 5b 76 61 | 72 62 61 73 65 2c 23 41 |R R0,[va|rbase,#A|
|00005660| 25 5d 3a 53 54 4d 45 41 | 20 52 31 32 21 2c 7b 52 |%]:STMEA| R12!,{R|
|00005670| 30 7d 3a 5d e1 0d 1d ec | 36 dd f2 53 54 41 28 41 |0}:]....|6..STA(A|
|00005680| 25 29 3a 5b 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |%):[LDME|A R12!,{|
|00005690| 52 30 7d 3a 53 54 52 20 | 52 30 2c 5b 76 61 72 62 |R0}:STR |R0,[varb|
|000056a0| 61 73 65 2c 23 41 25 5d | 3a 5d e1 0d 1d f6 6c dd |ase,#A%]|:]....l.|
|000056b0| f2 53 57 41 50 28 41 25 | 2c 46 41 25 29 3a 5b 4c |.SWAP(A%|,FA%):[L|
|000056c0| 44 52 20 52 30 2c 5b 76 | 61 72 62 61 73 65 2c 23 |DR R0,[v|arbase,#|
|000056d0| 41 25 5d 3a 4c 44 52 20 | 52 31 2c 5b 76 61 72 62 |A%]:LDR |R1,[varb|
|000056e0| 61 73 65 2c 23 46 41 25 | 5d 3a 53 54 52 20 52 31 |ase,#FA%|]:STR R1|
|000056f0| 2c 5b 76 61 72 62 61 73 | 65 2c 23 41 25 5d 3a 53 |,[varbas|e,#A%]:S|
|00005700| 54 52 20 52 30 2c 5b 76 | 61 72 62 61 73 65 2c 23 |TR R0,[v|arbase,#|
|00005710| 46 41 25 5d 3a 5d e1 0d | 1e 00 93 dd f2 4c 44 41 |FA%]:]..|.....LDA|
|00005720| 61 72 72 28 41 25 29 3a | 5b 4c 44 52 20 52 30 2c |arr(A%):|[LDR R0,|
|00005730| 5b 63 6f 6e 73 74 62 61 | 73 65 2c 23 31 32 5d 3a |[constba|se,#12]:|
|00005740| 4c 44 52 20 52 38 2c 5b | 63 6f 6e 73 74 62 61 73 |LDR R8,[|constbas|
|00005750| 65 2c 23 30 5d 3a 4c 44 | 52 20 52 31 2c 5b 52 38 |e,#0]:LD|R R1,[R8|
|00005760| 2c 23 41 25 5d 3a 41 44 | 44 20 52 30 2c 52 30 2c |,#A%]:AD|D R0,R0,|
|00005770| 52 31 3a 4c 44 4d 45 41 | 20 52 31 32 21 2c 7b 52 |R1:LDMEA| R12!,{R|
|00005780| 31 7d 3a 4c 44 52 20 52 | 32 2c 5b 52 30 2c 52 31 |1}:LDR R|2,[R0,R1|
|00005790| 2c 4c 53 4c 23 32 5d 3a | 53 54 4d 45 41 20 52 31 |,LSL#2]:|STMEA R1|
|000057a0| 32 21 2c 7b 52 32 7d 3a | 5d e1 0d 1e 0a 86 dd f2 |2!,{R2}:|].......|
|000057b0| 53 54 41 61 72 72 28 41 | 25 29 3a 5b 4c 44 52 20 |STAarr(A|%):[LDR |
|000057c0| 52 30 2c 5b 63 6f 6e 73 | 74 62 61 73 65 2c 23 31 |R0,[cons|tbase,#1|
|000057d0| 32 5d 3a 4c 44 52 20 52 | 38 2c 5b 63 6f 6e 73 74 |2]:LDR R|8,[const|
|000057e0| 62 61 73 65 2c 23 30 5d | 3a 4c 44 52 20 52 31 2c |base,#0]|:LDR R1,|
|000057f0| 5b 52 38 2c 23 41 25 5d | 3a 41 44 44 20 52 30 2c |[R8,#A%]|:ADD R0,|
|00005800| 52 30 2c 52 31 3a 4c 44 | 4d 45 41 20 52 31 32 21 |R0,R1:LD|MEA R12!|
|00005810| 2c 7b 52 31 2c 52 32 7d | 3a 53 54 52 20 52 32 2c |,{R1,R2}|:STR R2,|
|00005820| 5b 52 30 2c 52 31 2c 4c | 53 4c 23 32 5d 3a 5d e1 |[R0,R1,L|SL#2]:].|
|00005830| 0d 1e 14 3d dd f2 41 44 | 44 3a 5b 4c 44 4d 45 41 |...=..AD|D:[LDMEA|
|00005840| 20 52 31 32 21 2c 7b 52 | 30 2c 52 31 7d 3a 41 44 | R12!,{R|0,R1}:AD|
|00005850| 44 20 52 30 2c 52 30 2c | 52 31 3a 53 54 4d 45 41 |D R0,R0,|R1:STMEA|
|00005860| 20 52 31 32 21 2c 7b 52 | 30 7d 3a 5d e1 0d 1e 1e | R12!,{R|0}:]....|
|00005870| 3d dd f2 53 55 42 3a 5b | 4c 44 4d 45 41 20 52 31 |=..SUB:[|LDMEA R1|
|00005880| 32 21 2c 7b 52 30 2c 52 | 31 7d 3a 53 55 42 20 52 |2!,{R0,R|1}:SUB R|
|00005890| 30 2c 52 30 2c 52 31 3a | 53 54 4d 45 41 20 52 31 |0,R0,R1:|STMEA R1|
|000058a0| 32 21 2c 7b 52 30 7d 3a | 5d e1 0d 1e 28 3d dd f2 |2!,{R0}:|]...(=..|
|000058b0| 4d 55 4c 3a 5b 4c 44 4d | 45 41 20 52 31 32 21 2c |MUL:[LDM|EA R12!,|
|000058c0| 7b 52 31 2c 52 32 7d 3a | 4d 55 4c 20 52 30 2c 52 |{R1,R2}:|MUL R0,R|
|000058d0| 31 2c 52 32 3a 53 54 4d | 45 41 20 52 31 32 21 2c |1,R2:STM|EA R12!,|
|000058e0| 7b 52 30 7d 3a 5d e1 0d | 1e 32 29 dd f2 44 49 56 |{R0}:]..|.2)..DIV|
|000058f0| 3a 5b 42 4c 20 64 69 76 | 69 73 69 6f 6e 3a 53 54 |:[BL div|ision:ST|
|00005900| 4d 45 41 20 52 31 32 21 | 2c 7b 52 33 7d 3a 5d e1 |MEA R12!|,{R3}:].|
|00005910| 0d 1e 3c 29 dd f2 4d 4f | 44 3a 5b 42 4c 20 64 69 |..<)..MO|D:[BL di|
|00005920| 76 69 73 69 6f 6e 3a 53 | 54 4d 45 41 20 52 31 32 |vision:S|TMEA R12|
|00005930| 21 2c 7b 52 32 7d 3a 5d | e1 0d 1e 46 52 dd f2 47 |!,{R2}:]|...FR..G|
|00005940| 54 54 3a 5b 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |TT:[LDME|A R12!,{|
|00005950| 52 30 2c 52 31 7d 3a 43 | 4d 50 20 52 30 2c 52 31 |R0,R1}:C|MP R0,R1|
|00005960| 3a 4d 56 4e 47 54 20 52 | 30 2c 23 30 3a 4d 4f 56 |:MVNGT R|0,#0:MOV|
|00005970| 4c 45 20 52 30 2c 23 30 | 3a 53 54 4d 45 41 20 52 |LE R0,#0|:STMEA R|
|00005980| 31 32 21 2c 7b 52 30 7d | 3a 5d e1 0d 1e 50 52 dd |12!,{R0}|:]...PR.|
|00005990| f2 4c 54 54 3a 5b 4c 44 | 4d 45 41 20 52 31 32 21 |.LTT:[LD|MEA R12!|
|000059a0| 2c 7b 52 30 2c 52 31 7d | 3a 43 4d 50 20 52 30 2c |,{R0,R1}|:CMP R0,|
|000059b0| 52 31 3a 4d 56 4e 4c 54 | 20 52 30 2c 23 30 3a 4d |R1:MVNLT| R0,#0:M|
|000059c0| 4f 56 47 45 20 52 30 2c | 23 30 3a 53 54 4d 45 41 |OVGE R0,|#0:STMEA|
|000059d0| 20 52 31 32 21 2c 7b 52 | 30 7d 3a 5d e1 0d 1e 5a | R12!,{R|0}:]...Z|
|000059e0| 52 dd f2 47 45 51 3a 5b | 4c 44 4d 45 41 20 52 31 |R..GEQ:[|LDMEA R1|
|000059f0| 32 21 2c 7b 52 30 2c 52 | 31 7d 3a 43 4d 50 20 52 |2!,{R0,R|1}:CMP R|
|00005a00| 30 2c 52 31 3a 4d 56 4e | 47 45 20 52 30 2c 23 30 |0,R1:MVN|GE R0,#0|
|00005a10| 3a 4d 4f 56 4c 54 20 52 | 30 2c 23 30 3a 53 54 4d |:MOVLT R|0,#0:STM|
|00005a20| 45 41 20 52 31 32 21 2c | 7b 52 30 7d 3a 5d e1 0d |EA R12!,|{R0}:]..|
|00005a30| 1e 64 52 dd f2 4c 45 51 | 3a 5b 4c 44 4d 45 41 20 |.dR..LEQ|:[LDMEA |
|00005a40| 52 31 32 21 2c 7b 52 30 | 2c 52 31 7d 3a 43 4d 50 |R12!,{R0|,R1}:CMP|
|00005a50| 20 52 30 2c 52 31 3a 4d | 56 4e 4c 45 20 52 30 2c | R0,R1:M|VNLE R0,|
|00005a60| 23 30 3a 4d 4f 56 47 54 | 20 52 30 2c 23 30 3a 53 |#0:MOVGT| R0,#0:S|
|00005a70| 54 4d 45 41 20 52 31 32 | 21 2c 7b 52 30 7d 3a 5d |TMEA R12|!,{R0}:]|
|00005a80| e1 0d 1e 6e 52 dd f2 45 | 51 55 3a 5b 4c 44 4d 45 |...nR..E|QU:[LDME|
|00005a90| 41 20 52 31 32 21 2c 7b | 52 30 2c 52 31 7d 3a 43 |A R12!,{|R0,R1}:C|
|00005aa0| 4d 50 20 52 30 2c 52 31 | 3a 4d 56 4e 45 51 20 52 |MP R0,R1|:MVNEQ R|
|00005ab0| 30 2c 23 30 3a 4d 4f 56 | 4e 45 20 52 30 2c 23 30 |0,#0:MOV|NE R0,#0|
|00005ac0| 3a 53 54 4d 45 41 20 52 | 31 32 21 2c 7b 52 30 7d |:STMEA R|12!,{R0}|
|00005ad0| 3a 5d e1 0d 1e 78 4f dd | f2 4e 45 51 3a 5b 4c 44 |:]...xO.|.NEQ:[LD|
|00005ae0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 2c 52 31 7d |MEA R12!|,{R0,R1}|
|00005af0| 3a 43 4d 50 20 52 30 2c | 52 31 3a 4d 56 4e 4e 45 |:CMP R0,|R1:MVNNE|
|00005b00| 20 52 30 2c 23 30 3a ec | 51 20 52 30 2c 23 30 3a | R0,#0:.|Q R0,#0:|
|00005b10| 53 54 4d 45 41 20 52 31 | 32 21 2c 7b 52 30 7d 3a |STMEA R1|2!,{R0}:|
|00005b20| 5d e1 0d 1e 82 3a dd f2 | 4e 45 47 3a 5b 4c 44 4d |]....:..|NEG:[LDM|
|00005b30| 45 41 20 52 31 32 21 2c | 7b 52 30 7d 3a 52 53 42 |EA R12!,|{R0}:RSB|
|00005b40| 20 52 30 2c 52 30 2c 23 | 30 3a 53 54 4d 45 41 20 | R0,R0,#|0:STMEA |
|00005b50| 52 31 32 21 2c 7b 52 30 | 7d 3a 5d e1 0d 1e 8c 37 |R12!,{R0|}:]....7|
|00005b60| dd f2 4e 4f 54 3a 5b 4c | 44 4d 45 41 20 52 31 32 |..NOT:[L|DMEA R12|
|00005b70| 21 2c 7b 52 30 7d 3a 4d | 56 4e 20 52 30 2c 52 30 |!,{R0}:M|VN R0,R0|
|00005b80| 3a 53 54 4d 45 41 20 52 | 31 32 21 2c 7b 52 30 7d |:STMEA R|12!,{R0}|
|00005b90| 3a 5d e1 0d 1e 96 3b dd | f2 41 4e 44 3a 5b 4c 44 |:]....;.|.AND:[LD|
|00005ba0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 30 2c 52 31 7d |MEA R12!|,{R0,R1}|
|00005bb0| 3a 80 20 52 30 2c 52 30 | 2c 52 31 3a 53 54 4d 45 |:. R0,R0|,R1:STME|
|00005bc0| 41 20 52 31 32 21 2c 7b | 52 30 7d 3a 5d e1 0d 1e |A R12!,{|R0}:]...|
|00005bd0| a0 3b dd f2 4f 52 3a 5b | 4c 44 4d 45 41 20 52 31 |.;..OR:[|LDMEA R1|
|00005be0| 32 21 2c 7b 52 30 2c 52 | 31 7d 3a 84 52 20 52 30 |2!,{R0,R|1}:.R R0|
|00005bf0| 2c 52 30 2c 52 31 3a 53 | 54 4d 45 41 20 52 31 32 |,R0,R1:S|TMEA R12|
|00005c00| 21 2c 7b 52 30 7d 3a 5d | e1 0d 1e aa 3b dd f2 45 |!,{R0}:]|....;..E|
|00005c10| 4f 52 3a 5b 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |OR:[LDME|A R12!,{|
|00005c20| 52 30 2c 52 31 7d 3a 82 | 20 52 30 2c 52 30 2c 52 |R0,R1}:.| R0,R0,R|
|00005c30| 31 3a 53 54 4d 45 41 20 | 52 31 32 21 2c 7b 52 30 |1:STMEA |R12!,{R0|
|00005c40| 7d 3a 5d e1 0d 1e b4 bc | dd f2 52 4e 44 3a 5b 53 |}:].....|..RND:[S|
|00005c50| 57 49 20 22 4f 53 5f 52 | 65 61 64 4d 6f 6e 6f 74 |WI "OS_R|eadMonot|
|00005c60| 6f 6e 69 63 54 69 6d 65 | 22 3a 4c 44 52 20 52 31 |onicTime|":LDR R1|
|00005c70| 2c 5b 63 6f 6e 73 74 62 | 61 73 65 2c 23 31 36 5d |,[constb|ase,#16]|
|00005c80| 3a 41 44 44 20 52 30 2c | 52 30 2c 52 31 3a 3a 53 |:ADD R0,|R0,R1::S|
|00005c90| 54 52 20 52 30 2c 5b 63 | 6f 6e 73 74 62 61 73 65 |TR R0,[c|onstbase|
|00005ca0| 2c 23 31 36 5d 3a 4c 44 | 4d 45 41 20 52 31 32 21 |,#16]:LD|MEA R12!|
|00005cb0| 2c 7b 52 31 7d 3a 53 54 | 4d 45 41 20 52 31 32 21 |,{R1}:ST|MEA R12!|
|00005cc0| 2c 7b 52 30 2c 52 31 7d | 3a 42 4c 20 64 69 76 69 |,{R0,R1}|:BL divi|
|00005cd0| 73 69 6f 6e 3a 43 4d 50 | 20 52 32 2c 23 30 3a 52 |sion:CMP| R2,#0:R|
|00005ce0| 53 42 4d 49 20 52 32 2c | 52 32 2c 23 30 3a 53 54 |SBMI R2,|R2,#0:ST|
|00005cf0| 4d 45 41 20 52 31 32 21 | 2c 7b 52 32 7d 3a 5d e1 |MEA R12!|,{R2}:].|
|00005d00| 0d 1e be 16 dd f2 4a 4d | 50 28 41 25 29 3a 5b 42 |......JM|P(A%):[B|
|00005d10| 20 41 25 3a 5d e1 0d 1e | c8 34 dd f2 4a 53 52 28 | A%:]...|.4..JSR(|
|00005d20| 41 25 29 3a 5b 41 44 44 | 20 52 30 2c 52 31 35 2c |A%):[ADD| R0,R15,|
|00005d30| 23 34 3a 53 54 4d 45 41 | 20 52 31 32 21 2c 7b 52 |#4:STMEA| R12!,{R|
|00005d40| 30 7d 3a 42 20 41 25 3a | 5d e1 0d 1e d2 32 dd f2 |0}:B A%:|]....2..|
|00005d50| 4a 4d 43 28 41 25 29 3a | 5b 4c 44 4d 45 41 20 52 |JMC(A%):|[LDMEA R|
|00005d60| 31 32 21 2c 7b 52 30 7d | 3a 43 4d 50 20 52 30 2c |12!,{R0}|:CMP R0,|
|00005d70| 23 30 3a 42 45 51 20 41 | 25 3a 5d e1 0d 1e dc ad |#0:BEQ A|%:].....|
|00005d80| dd f2 4e 58 54 28 41 25 | 2c 46 41 25 29 3a 5b 4c |..NXT(A%|,FA%):[L|
|00005d90| 44 4d 45 41 20 52 31 32 | 2c 7b 52 30 2c 52 31 7d |DMEA R12|,{R0,R1}|
|00005da0| 3a 4c 44 52 20 52 32 2c | 5b 76 61 72 62 61 73 65 |:LDR R2,|[varbase|
|00005db0| 2c 23 41 25 5d 3a 41 44 | 44 20 52 32 2c 52 32 2c |,#A%]:AD|D R2,R2,|
|00005dc0| 52 31 3a 53 54 52 20 52 | 32 2c 5b 76 61 72 62 61 |R1:STR R|2,[varba|
|00005dd0| 73 65 2c 23 41 25 5d 3a | 43 4d 50 20 52 31 2c 23 |se,#A%]:|CMP R1,#|
|00005de0| 30 3a 4d 4f 56 4c 54 20 | 52 31 2c 52 30 3a 4d 4f |0:MOVLT |R1,R0:MO|
|00005df0| 56 4c 54 20 52 30 2c 52 | 32 3a 4d 4f 56 4c 54 20 |VLT R0,R|2:MOVLT |
|00005e00| 52 32 2c 52 31 3a 43 4d | 50 20 52 32 2c 52 30 3a |R2,R1:CM|P R2,R0:|
|00005e10| 42 4c 45 20 46 41 25 3a | 53 55 42 20 52 31 32 2c |BLE FA%:|SUB R12,|
|00005e20| 52 31 32 2c 23 38 3a 5d | e1 0d 1e e6 21 dd f2 45 |R12,#8:]|....!..E|
|00005e30| 4e 44 3a 5b 4c 44 4d 45 | 41 20 52 31 32 21 2c 7b |ND:[LDME|A R12!,{|
|00005e40| 52 31 33 2c 50 43 7d 3a | 5d e1 0d 1e f0 0c dd f2 |R13,PC}:|].......|
|00005e50| 4a 4d 28 53 25 29 0d 1e | fa 12 3f 50 25 3d 53 25 |JM(S%)..|..?P%=S%|
|00005e60| 3a 50 25 21 31 3d 6a 6d | 0d 1f 04 10 6a 6d 3d 50 |:P%!1=jm|....jm=P|
|00005e70| 25 3a 50 25 2b 3d 31 32 | 0d 1f 0e 05 e1 0d 1f 18 |%:P%+=12|........|
|00005e80| 1e dd f2 52 54 53 3a 5b | 4c 44 4d 45 41 20 52 31 |...RTS:[|LDMEA R1|
|00005e90| 32 21 2c 7b 52 31 35 7d | 3a 5d e1 0d 1f 22 05 3a |2!,{R15}|:]...".:|
|00005ea0| 0d 1f 2c 31 dd f2 45 4d | 50 54 59 54 42 3a 5b 4d |..,1..EM|PTYTB:[M|
|00005eb0| 4f 56 20 52 30 2c 23 31 | 33 3a 53 54 52 42 20 52 |OV R0,#1|3:STRB R|
|00005ec0| 30 2c 5b 74 65 6d 70 73 | 74 72 69 6e 67 5d 3a 5d |0,[temps|tring]:]|
|00005ed0| e1 0d 1f 36 dd dd f2 43 | 4f 4e 53 54 52 28 41 25 |...6...C|ONSTR(A%|
|00005ee0| 29 3a 5b 4d 4f 56 20 52 | 32 2c 74 65 6d 70 73 74 |):[MOV R|2,tempst|
|00005ef0| 72 69 6e 67 3a 2e 66 6e | 64 65 6f 73 6c 6f 6f 70 |ring:.fn|deosloop|
|00005f00| 3a 4c 44 52 42 20 52 30 | 2c 5b 52 32 5d 2c 23 31 |:LDRB R0|,[R2],#1|
|00005f10| 3a 43 4d 50 20 52 30 2c | 23 31 33 3a 42 4e 45 20 |:CMP R0,|#13:BNE |
|00005f20| 66 6e 64 65 6f 73 6c 6f | 6f 70 3a 53 55 42 20 52 |fndeoslo|op:SUB R|
|00005f30| 32 2c 52 32 2c 23 31 3a | 4d 4f 56 20 52 31 2c 23 |2,R2,#1:|MOV R1,#|
|00005f40| 41 25 3a 4c 44 52 20 52 | 38 2c 5b 63 6f 6e 73 74 |A%:LDR R|8,[const|
|00005f50| 62 61 73 65 2c 23 34 5d | 3a 41 44 44 20 52 31 2c |base,#4]|:ADD R1,|
|00005f60| 52 38 2c 52 31 2c 41 53 | 4c 23 38 3a 2e 73 74 72 |R8,R1,AS|L#8:.str|
|00005f70| 6c 6f 6f 70 3a 4c 44 52 | 42 20 52 30 2c 5b 52 31 |loop:LDR|B R0,[R1|
|00005f80| 5d 2c 23 31 3a 53 54 52 | 42 20 52 30 2c 5b 52 32 |],#1:STR|B R0,[R2|
|00005f90| 5d 2c 23 31 3a 43 4d 50 | 20 52 30 2c 23 31 33 3a |],#1:CMP| R0,#13:|
|00005fa0| 42 4e 45 20 73 74 72 6c | 6f 6f 70 3a 5d e1 0d 1f |BNE strl|oop:]...|
|00005fb0| 40 dc dd f2 53 54 52 28 | 46 41 25 29 3a 5b 4d 4f |@...STR(|FA%):[MO|
|00005fc0| 56 20 52 32 2c 74 65 6d | 70 73 74 72 69 6e 67 3a |V R2,tem|pstring:|
|00005fd0| 2e 66 6e 64 65 6f 73 6c | 6f 6f 70 3a 4c 44 52 42 |.fndeosl|oop:LDRB|
|00005fe0| 20 52 30 2c 5b 52 32 5d | 2c 23 31 3a 43 4d 50 20 | R0,[R2]|,#1:CMP |
|00005ff0| 52 30 2c 23 31 33 3a 42 | 4e 45 20 66 6e 64 65 6f |R0,#13:B|NE fndeo|
|00006000| 73 6c 6f 6f 70 3a 53 55 | 42 20 52 32 2c 52 32 2c |sloop:SU|B R2,R2,|
|00006010| 23 31 3a 4d 4f 56 20 52 | 31 2c 23 46 41 25 3a 4c |#1:MOV R|1,#FA%:L|
|00006020| 44 52 20 52 38 2c 5b 63 | 6f 6e 73 74 62 61 73 65 |DR R8,[c|onstbase|
|00006030| 2c 23 38 5d 3a 41 44 44 | 20 52 31 2c 52 38 2c 52 |,#8]:ADD| R1,R8,R|
|00006040| 31 2c 41 53 4c 23 38 3a | 2e 73 74 72 6c 6f 6f 70 |1,ASL#8:|.strloop|
|00006050| 3a 4c 44 52 42 20 52 30 | 2c 5b 52 31 5d 2c 23 31 |:LDRB R0|,[R1],#1|
|00006060| 3a 53 54 52 42 20 52 30 | 2c 5b 52 32 5d 2c 23 31 |:STRB R0|,[R2],#1|
|00006070| 3a 43 4d 50 20 52 30 2c | 23 31 33 3a 42 4e 45 20 |:CMP R0,|#13:BNE |
|00006080| 73 74 72 6c 6f 6f 70 3a | 5d e1 0d 1f 4a 9c dd f2 |strloop:|]...J...|
|00006090| 47 45 54 53 54 52 3a 5b | 4d 4f 56 20 52 32 2c 74 |GETSTR:[|MOV R2,t|
|000060a0| 65 6d 70 73 74 72 69 6e | 67 3a 2e 66 6e 64 65 6f |empstrin|g:.fndeo|
|000060b0| 73 6c 6f 6f 70 3a 4c 44 | 52 42 20 52 30 2c 5b 52 |sloop:LD|RB R0,[R|
|000060c0| 32 5d 2c 23 31 3a 43 4d | 50 20 52 30 2c 23 31 33 |2],#1:CM|P R0,#13|
|000060d0| 3a 42 4e 45 20 66 6e 64 | 65 6f 73 6c 6f 6f 70 3a |:BNE fnd|eosloop:|
|000060e0| 53 55 42 20 52 32 2c 52 | 32 2c 23 31 3a 53 57 49 |SUB R2,R|2,#1:SWI|
|000060f0| 20 22 4f 53 5f 52 65 61 | 64 43 22 3a 53 54 52 42 | "OS_Rea|dC":STRB|
|00006100| 20 52 30 2c 5b 52 32 5d | 3a 4d 4f 56 20 52 30 2c | R0,[R2]|:MOV R0,|
|00006110| 23 31 33 3a 53 54 52 42 | 20 52 30 2c 5b 52 32 2c |#13:STRB| R0,[R2,|
|00006120| 23 31 5d 3a 5d e1 0d 1f | 54 9f dd f2 53 49 4e 50 |#1]:]...|T...SINP|
|00006130| 55 54 28 46 41 25 29 3a | 5b 4d 4f 56 20 52 30 2c |UT(FA%):|[MOV R0,|
|00006140| 23 46 41 25 3a 4c 44 52 | 20 52 38 2c 5b 63 6f 6e |#FA%:LDR| R8,[con|
|00006150| 73 74 62 61 73 65 2c 23 | 38 5d 3a 41 44 44 20 52 |stbase,#|8]:ADD R|
|00006160| 30 2c 52 38 2c 52 30 2c | 41 53 4c 23 38 3a 4d 4f |0,R8,R0,|ASL#8:MO|
|00006170| 56 20 52 31 2c 23 32 35 | 35 3a 4d 4f 56 20 52 32 |V R1,#25|5:MOV R2|
|00006180| 2c 23 33 32 3a 4d 4f 56 | 20 52 33 2c 23 31 32 38 |,#32:MOV| R3,#128|
|00006190| 3a 53 57 49 20 22 4f 53 | 5f 52 65 61 64 4c 69 6e |:SWI "OS|_ReadLin|
|000061a0| 65 22 3a 5d e7 63 68 6b | 66 6f 72 65 73 63 25 20 |e":].chk|foresc% |
|000061b0| 5b 42 43 53 20 65 73 63 | 61 70 65 63 6f 64 65 3a |[BCS esc|apecode:|
|000061c0| 5d e1 20 8b e1 0d 1f 5e | e6 dd f2 56 49 4e 50 55 |]. ....^|...VINPU|
|000061d0| 54 28 46 41 25 29 3a 5b | 4d 4f 56 20 52 30 2c 23 |T(FA%):[|MOV R0,#|
|000061e0| 46 41 25 3a 4c 44 52 20 | 52 38 2c 5b 63 6f 6e 73 |FA%:LDR |R8,[cons|
|000061f0| 74 62 61 73 65 2c 23 38 | 5d 3a 41 44 44 20 52 30 |tbase,#8|]:ADD R0|
|00006200| 2c 52 38 2c 52 30 2c 41 | 53 4c 23 38 3a 4d 4f 56 |,R8,R0,A|SL#8:MOV|
|00006210| 20 52 31 2c 23 32 35 35 | 3a 4d 4f 56 20 52 32 2c | R1,#255|:MOV R2,|
|00006220| 23 33 32 3a 4d 4f 56 20 | 52 33 2c 23 31 32 38 3a |#32:MOV |R3,#128:|
|00006230| 53 57 49 20 22 4f 53 5f | 52 65 61 64 4c 69 6e 65 |SWI "OS_|ReadLine|
|00006240| 22 3a 4d 4f 56 20 52 31 | 2c 52 30 3a 4d 4f 56 20 |":MOV R1|,R0:MOV |
|00006250| 52 30 2c 23 31 30 3a 53 | 57 49 20 22 4f 53 5f 52 |R0,#10:S|WI "OS_R|
|00006260| 65 61 64 55 6e 73 69 67 | 6e 65 64 22 3a 4d 4f 56 |eadUnsig|ned":MOV|
|00006270| 20 52 30 2c 52 32 3a 53 | 54 4d 45 41 20 52 31 32 | R0,R2:S|TMEA R12|
|00006280| 21 2c 7b 52 30 7d 3a 4c | 44 4d 45 41 20 52 31 32 |!,{R0}:L|DMEA R12|
|00006290| 21 2c 7b 52 30 7d 3a 53 | 54 52 20 52 30 2c 5b 76 |!,{R0}:S|TR R0,[v|
|000062a0| 61 72 62 61 73 65 2c 23 | 41 25 5d 0d 1f 68 26 5d |arbase,#|A%]..h&]|
|000062b0| e7 63 68 6b 66 6f 72 65 | 73 63 25 20 5b 42 43 53 |.chkfore|sc% [BCS|
|000062c0| 20 65 73 63 61 70 65 63 | 6f 64 65 3a 5d e1 20 8b | escapec|ode:]. .|
|000062d0| e1 0d 1f 72 a8 dd f2 53 | 54 4f 52 45 53 54 52 28 |...r...S|TORESTR(|
|000062e0| 46 41 25 29 3a 5b 4d 4f | 56 20 52 32 2c 74 65 6d |FA%):[MO|V R2,tem|
|000062f0| 70 73 74 72 69 6e 67 3a | 4d 4f 56 20 52 31 2c 23 |pstring:|MOV R1,#|
|00006300| 46 41 25 3a 4c 44 52 20 | 52 38 2c 5b 63 6f 6e 73 |FA%:LDR |R8,[cons|
|00006310| 74 62 61 73 65 2c 23 38 | 5d 3a 41 44 44 20 52 31 |tbase,#8|]:ADD R1|
|00006320| 2c 52 38 2c 52 31 2c 41 | 53 4c 23 38 3a 2e 73 74 |,R8,R1,A|SL#8:.st|
|00006330| 6f 72 65 73 74 72 6c 6f | 6f 70 3a 4c 44 52 42 20 |orestrlo|op:LDRB |
|00006340| 52 30 2c 5b 52 32 5d 2c | 23 31 3a 53 54 52 42 20 |R0,[R2],|#1:STRB |
|00006350| 52 30 2c 5b 52 31 5d 2c | 23 31 3a 43 4d 50 20 52 |R0,[R1],|#1:CMP R|
|00006360| 30 2c 23 31 33 3a 42 4e | 45 20 73 74 6f 72 65 73 |0,#13:BN|E stores|
|00006370| 74 72 6c 6f 6f 70 3a 5d | e1 0d 1f 7c db dd f2 4c |trloop:]|...|...L|
|00006380| 45 46 54 53 54 52 28 46 | 41 25 29 3a ea 20 50 31 |EFTSTR(F|A%):. P1|
|00006390| 25 3a 50 31 25 3d 50 25 | 3a e3 70 61 73 73 3d 30 |%:P1%=P%|:.pass=0|
|000063a0| b8 32 88 32 3a 50 25 3d | 50 31 25 3a 5b 4f 50 54 |.2.2:P%=|P1%:[OPT|
|000063b0| 70 61 73 73 3a 4c 44 4d | 45 41 20 52 31 32 21 2c |pass:LDM|EA R12!,|
|000063c0| 7b 52 34 7d 3a 4d 4f 56 | 20 52 32 2c 74 65 6d 70 |{R4}:MOV| R2,temp|
|000063d0| 73 74 72 69 6e 67 3a 4d | 4f 56 20 52 31 2c 23 46 |string:M|OV R1,#F|
|000063e0| 41 25 3a 4c 44 52 20 52 | 38 2c 5b 63 6f 6e 73 74 |A%:LDR R|8,[const|
|000063f0| 62 61 73 65 2c 23 38 5d | 3a 41 44 44 20 52 31 2c |base,#8]|:ADD R1,|
+--------+-------------------------+-------------------------+--------+--------+