/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / assembly / FontWindow / Library / Module

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 0c f4 3e 4d 6f | 64 75 6c 65 0d 00 02 30 |.....>Mo|dule...0|
|00000010| f4 50 72 6f 64 75 63 65 | 64 20 62 79 20 42 61 73 |.Produce|d by Bas|
|00000020| 43 6f 6d 70 72 65 73 73 | 20 76 31 2e 33 31 20 28 |Compress| v1.31 (|
|00000030| 31 38 20 4a 61 6e 20 31 | 39 39 33 29 0d 00 03 17 |18 Jan 1|993)....|
|00000040| dd a4 5f 4d 6f 64 75 6c | 65 5f 76 65 72 73 69 6f |.._Modul|e_versio|
|00000050| 6e 3d 35 0d 00 04 8e dd | a4 5f 68 61 72 64 5f 69 |n=5.....|._hard_i|
|00000060| 6e 69 74 69 61 6c 69 73 | 65 5f 4d 6f 64 75 6c 65 |nitialis|e_Module|
|00000070| 3a ea 69 25 3a 6d 6f 64 | 5f 68 65 6c 70 5f 6d 61 |:.i%:mod|_help_ma|
|00000080| 78 25 3d 31 3a 6d 6f 64 | 5f 69 6e 64 65 78 25 3d |x%=1:mod|_index%=|
|00000090| 31 3a 69 25 3d 32 30 3a | de 6d 6f 64 5f 68 65 6c |1:i%=20:|.mod_hel|
|000000a0| 70 24 28 69 25 29 2c 6d | 6f 64 5f 73 79 6e 74 61 |p$(i%),m|od_synta|
|000000b0| 78 24 28 69 25 29 2c 6d | 6f 64 5f 6f 66 66 73 65 |x$(i%),m|od_offse|
|000000c0| 74 25 28 69 25 2c 31 29 | 3a 4d 65 73 73 61 67 65 |t%(i%,1)|:Message|
|000000d0| 73 5f 67 6c 6f 62 61 6c | 76 61 72 73 3d 31 3a 3d |s_global|vars=1:=|
|000000e0| 30 0d 00 05 2b dd a4 5f | 4d 6f 64 75 6c 65 5f 43 |0...+.._|Module_C|
|000000f0| 6f 6d 6d 61 6e 64 5f 53 | 74 61 72 74 3a 6d 6f 64 |ommand_S|tart:mod|
|00000100| 5f 69 6e 64 65 78 25 3d | 30 3a 3d 30 0d 00 06 b2 |_index%=|0:=0....|
|00000110| dd a4 5f 4d 6f 64 75 6c | 65 5f 43 6f 6d 6d 61 6e |.._Modul|e_Comman|
|00000120| 64 28 63 6f 6d 24 2c 63 | 6f 64 65 25 2c 66 6c 61 |d(com$,c|ode%,fla|
|00000130| 67 73 25 2c 73 79 6e 74 | 61 78 24 2c 68 65 6c 70 |gs%,synt|ax$,help|
|00000140| 24 29 3a 5b 4f 50 54 70 | 61 73 73 25 3a 45 51 55 |$):[OPTp|ass%:EQU|
|00000150| 53 20 63 6f 6d 24 3a 44 | 43 42 30 3a 41 4c 49 47 |S com$:D|CB0:ALIG|
|00000160| 4e 3a 44 43 44 63 6f 64 | 65 25 3a 44 43 44 66 6c |N:DCDcod|e%:DCDfl|
|00000170| 61 67 73 25 3a 44 43 44 | 6d 6f 64 5f 6f 66 66 73 |ags%:DCD|mod_offs|
|00000180| 65 74 25 28 6d 6f 64 5f | 69 6e 64 65 78 25 2c 30 |et%(mod_|index%,0|
|00000190| 29 3a 44 43 44 6d 6f 64 | 5f 6f 66 66 73 65 74 25 |):DCDmod|_offset%|
|000001a0| 28 6d 6f 64 5f 69 6e 64 | 65 78 25 2c 31 29 3a 5d |(mod_ind|ex%,1):]|
|000001b0| 3a e7 28 70 61 73 73 25 | 80 32 29 3d 30 8c 0d 00 |:.(pass%|.2)=0...|
|000001c0| 07 3f 6d 6f 64 5f 73 79 | 6e 74 61 78 24 28 6d 6f |.?mod_sy|ntax$(mo|
|000001d0| 64 5f 69 6e 64 65 78 25 | 29 3d 73 79 6e 74 61 78 |d_index%|)=syntax|
|000001e0| 24 3a 6d 6f 64 5f 68 65 | 6c 70 24 28 6d 6f 64 5f |$:mod_he|lp$(mod_|
|000001f0| 69 6e 64 65 78 25 29 3d | 68 65 6c 70 24 0d 00 08 |index%)=|help$...|
|00000200| 16 cd 3a 6d 6f 64 5f 69 | 6e 64 65 78 25 2b 3d 31 |..:mod_i|ndex%+=1|
|00000210| 3a 3d 30 0d 00 09 59 dd | a4 5f 4d 6f 64 75 6c 65 |:=0...Y.|._Module|
|00000220| 5f 43 6f 6d 6d 61 6e 64 | 5f 45 6e 64 3a ea 69 25 |_Command|_End:.i%|
|00000230| 3a 5b 4f 50 54 70 61 73 | 73 25 3a 44 43 42 30 3a |:[OPTpas|s%:DCB0:|
|00000240| 5d 3a e3 69 25 3d 30 b8 | 6d 6f 64 5f 69 6e 64 65 |]:.i%=0.|mod_inde|
|00000250| 78 25 2d 31 3a e7 c0 6d | 6f 64 5f 68 65 6c 70 24 |x%-1:..m|od_help$|
|00000260| 28 69 25 29 2c 31 29 3d | 22 3a 22 8c 0d 00 0a 8c |(i%),1)=|":".....|
|00000270| f2 5f 4d 6f 64 75 6c 65 | 5f 43 6f 6d 6d 61 6e 64 |._Module|_Command|
|00000280| 5f 53 74 72 69 6e 67 28 | 6d 6f 64 5f 6f 66 66 73 |_String(|mod_offs|
|00000290| 65 74 25 28 69 25 2c 31 | 29 2c 22 2d 22 2b c1 6d |et%(i%,1|),"-"+.m|
|000002a0| 6f 64 5f 68 65 6c 70 24 | 28 69 25 29 2c 32 29 2b |od_help$|(i%),2)+|
|000002b0| bd 28 31 30 29 2b bd 31 | 33 29 3a f2 5f 4d 6f 64 |.(10)+.1|3):._Mod|
|000002c0| 75 6c 65 5f 43 6f 6d 6d | 61 6e 64 5f 53 74 72 69 |ule_Comm|and_Stri|
|000002d0| 6e 67 28 6d 6f 64 5f 6f | 66 66 73 65 74 25 28 69 |ng(mod_o|ffset%(i|
|000002e0| 25 2c 30 29 2c 6d 6f 64 | 5f 73 79 6e 74 61 78 24 |%,0),mod|_syntax$|
|000002f0| 28 69 25 29 2b bd 30 29 | 0d 00 0b 7f cc 3a f2 5f |(i%)+.0)|.....:._|
|00000300| 4d 6f 64 75 6c 65 5f 43 | 6f 6d 6d 61 6e 64 5f 53 |Module_C|ommand_S|
|00000310| 74 72 69 6e 67 28 6d 6f | 64 5f 6f 66 66 73 65 74 |tring(mo|d_offset|
|00000320| 25 28 69 25 2c 30 29 2c | 6d 6f 64 5f 73 79 6e 74 |%(i%,0),|mod_synt|
|00000330| 61 78 24 28 69 25 29 2b | bd 30 29 3a f2 5f 4d 6f |ax$(i%)+|.0):._Mo|
|00000340| 64 75 6c 65 5f 43 6f 6d | 6d 61 6e 64 5f 53 74 72 |dule_Com|mand_Str|
|00000350| 69 6e 67 28 6d 6f 64 5f | 6f 66 66 73 65 74 25 28 |ing(mod_|offset%(|
|00000360| 69 25 2c 31 29 2c 6d 6f | 64 5f 68 65 6c 70 24 28 |i%,1),mo|d_help$(|
|00000370| 69 25 29 2b bd 30 29 0d | 00 0c 0c cd 3a ed 69 25 |i%)+.0).|....:.i%|
|00000380| 3a 3d 30 0d 00 0d 2c dd | f2 5f 4d 6f 64 75 6c 65 |:=0...,.|._Module|
|00000390| 5f 43 6f 6d 6d 61 6e 64 | 5f 53 74 72 69 6e 67 28 |_Command|_String(|
|000003a0| f8 69 25 2c 73 24 29 3a | e7 73 24 3d 22 22 8c 0d |.i%,s$):|.s$=""..|
|000003b0| 00 0e 08 69 25 3d 30 0d | 00 0f 1b cc 3a 69 25 3d |...i%=0.|....:i%=|
|000003c0| 50 25 3a e7 97 28 73 24 | 29 3c 3e 97 28 22 2d 22 |P%:..(s$|)<>.("-"|
|000003d0| 29 8c 0d 00 10 1a 5b 4f | 50 54 70 61 73 73 25 3a |).....[O|PTpass%:|
|000003e0| 44 43 42 32 37 3a 44 43 | 42 31 3a 5d 0d 00 11 0f |DCB27:DC|B1:]....|
|000003f0| cc 3a 73 24 3d c1 73 24 | 2c 32 29 0d 00 12 19 cd |.:s$=.s$|,2).....|
|00000400| 3a 5b 4f 50 54 70 61 73 | 73 25 3a 45 51 55 53 20 |:[OPTpas|s%:EQUS |
|00000410| 73 24 3a 5d 0d 00 13 07 | cd 3a e1 0d 00 14 69 dd |s$:]....|.:....i.|
|00000420| a4 5f 4d 65 73 73 61 67 | 65 73 5f 67 6c 6f 62 61 |._Messag|es_globa|
|00000430| 6c 76 61 72 73 3a 4d 65 | 73 73 61 67 65 73 5f 67 |lvars:Me|ssages_g|
|00000440| 6c 6f 62 61 6c 76 61 72 | 73 2d 3d 31 3a 5b 4f 50 |lobalvar|s-=1:[OP|
|00000450| 54 70 61 73 73 25 3a 2e | 47 5f 4d 65 73 73 61 67 |Tpass%:.|G_Messag|
|00000460| 65 73 4c 6f 61 64 65 64 | 20 44 43 44 30 3a 2e 47 |esLoaded| DCD0:.G|
|00000470| 5f 4d 65 73 73 61 67 65 | 73 a4 72 28 31 36 29 3a |_Message|s.r(16):|
|00000480| 5d 3a 3d 30 0d 00 15 8e | dd f2 5f 61 73 73 65 6d |]:=0....|.._assem|
|00000490| 62 6c 65 5f 4d 65 73 73 | 61 67 65 73 28 66 69 6c |ble_Mess|ages(fil|
|000004a0| 65 24 29 3a f2 5f 6c 6f | 61 64 5f 6c 69 62 72 61 |e$):._lo|ad_libra|
|000004b0| 72 79 28 22 3c 42 61 73 | 69 63 56 5f 41 73 73 65 |ry("<Bas|icV_Asse|
|000004c0| 6d 62 6c 65 72 24 4c 69 | 62 3e 2e 4d 69 73 63 22 |mbler$Li|b>.Misc"|
|000004d0| 2c 33 39 29 3a e7 4d 65 | 73 73 61 67 65 73 5f 67 |,39):.Me|ssages_g|
|000004e0| 6c 6f 62 61 6c 76 61 72 | 73 3e 30 8c 85 31 2c 22 |lobalvar|s>0..1,"|
|000004f0| 4e 6f 74 20 63 61 6c 6c | 65 64 20 46 4e 5f 4d 65 |Not call|ed FN_Me|
|00000500| 73 73 61 67 65 73 5f 67 | 6c 6f 62 61 6c 76 61 72 |ssages_g|lobalvar|
|00000510| 73 22 0d 00 16 4c e7 4d | 65 73 73 61 67 65 73 5f |s"...L.M|essages_|
|00000520| 67 6c 6f 62 61 6c 76 61 | 72 73 3c 30 8c 85 31 2c |globalva|rs<0..1,|
|00000530| 22 43 61 6c 6c 65 64 20 | 46 4e 5f 4d 65 73 73 61 |"Called |FN_Messa|
|00000540| 67 65 73 5f 67 6c 6f 62 | 61 6c 76 61 72 73 20 74 |ges_glob|alvars t|
|00000550| 6f 6f 20 6d 61 6e 79 20 | 74 69 6d 65 73 22 0d 00 |oo many |times"..|
|00000560| 17 f6 5b 4f 50 54 70 61 | 73 73 25 3a 2e 6d 73 67 |..[OPTpa|ss%:.msg|
|00000570| 5f 66 69 6c 65 31 3a 45 | 51 55 53 20 66 69 6c 65 |_file1:E|QUS file|
|00000580| 24 2b bd 30 3a 41 4c 49 | 47 4e 3a 2e 5f 78 6d 73 |$+.0:ALI|GN:._xms|
|00000590| 67 6c 6f 61 64 3a 4c 44 | 52 30 2c 5b 67 62 2c 23 |gload:LD|R0,[gb,#|
|000005a0| 47 5f 4d 65 73 73 61 67 | 65 73 4c 6f 61 64 65 64 |G_Messag|esLoaded|
|000005b0| 5d 3a 43 4d 50 30 2c 23 | 30 3a 42 49 43 6e 65 53 |]:CMP0,#|0:BICneS|
|000005c0| 70 63 2c 6c 72 2c 23 50 | 53 52 5f 56 3a 53 54 4d |pc,lr,#P|SR_V:STM|
|000005d0| 46 44 28 73 70 29 21 2c | 7b 31 2d 32 2c 6c 72 7d |FD(sp)!,|{1-2,lr}|
|000005e0| 3a a4 67 62 28 22 22 2c | 30 2c 47 5f 4d 65 73 73 |:.gb("",|0,G_Mess|
|000005f0| 61 67 65 73 29 3a 41 44 | 52 31 2c 6d 73 67 5f 66 |ages):AD|R1,msg_f|
|00000600| 69 6c 65 31 3a 4d 4f 56 | 32 2c 23 30 3a 53 57 49 |ile1:MOV|2,#0:SWI|
|00000610| 20 26 36 31 35 30 31 3a | 53 54 52 76 63 30 2c 5b | &61501:|STRvc0,[|
|00000620| 67 62 2c 23 47 5f 4d 65 | 73 73 61 67 65 73 4c 6f |gb,#G_Me|ssagesLo|
|00000630| 61 64 65 64 5d 3a 4c 44 | 4d 46 44 28 73 70 29 21 |aded]:LD|MFD(sp)!|
|00000640| 2c 7b 31 2d 32 2c 70 63 | 7d 3a 2e 5f 78 6d 73 67 |,{1-2,pc|}:._xmsg|
|00000650| 72 65 61 64 0d 00 18 e9 | 53 54 4d 46 44 28 73 70 |read....|STMFD(sp|
|00000660| 29 21 2c 7b 34 2d 37 2c | 6c 72 7d 3a 42 4c 20 5f |)!,{4-7,|lr}:BL _|
|00000670| 78 6d 73 67 6c 6f 61 64 | 3a 4d 4f 56 76 63 36 2c |xmsgload|:MOVvc6,|
|00000680| 23 30 3a 4d 4f 56 76 63 | 37 2c 23 30 3a 53 57 49 |#0:MOVvc|7,#0:SWI|
|00000690| 76 63 20 26 36 31 35 30 | 32 3a 4c 44 4d 46 44 28 |vc &6150|2:LDMFD(|
|000006a0| 73 70 29 21 2c 7b 34 2d | 37 2c 70 63 7d 3a 2e 5f |sp)!,{4-|7,pc}:._|
|000006b0| 6d 73 67 66 72 65 65 3a | 53 54 4d 46 44 28 73 70 |msgfree:|STMFD(sp|
|000006c0| 29 21 2c 7b 30 2c 6c 72 | 7d 3a 4c 44 52 30 2c 5b |)!,{0,lr|}:LDR0,[|
|000006d0| 67 62 2c 23 47 5f 4d 65 | 73 73 61 67 65 73 4c 6f |gb,#G_Me|ssagesLo|
|000006e0| 61 64 65 64 5d 3a 43 4d | 50 30 2c 23 30 3a 4d 4f |aded]:CM|P0,#0:MO|
|000006f0| 56 6e 65 20 6c 72 2c 23 | 30 3a 53 54 52 6e 65 20 |Vne lr,#|0:STRne |
|00000700| 6c 72 2c 5b 67 62 2c 23 | 47 5f 4d 65 73 73 61 67 |lr,[gb,#|G_Messag|
|00000710| 65 73 4c 6f 61 64 65 64 | 5d 3a 53 57 49 6e 65 20 |esLoaded|]:SWIne |
|00000720| 26 36 31 35 30 34 3a 4c | 44 4d 46 44 28 73 70 29 |&61504:L|DMFD(sp)|
|00000730| 21 2c 7b 30 2c 70 63 7d | 5e 3a 5d 3a e1 0d 00 19 |!,{0,pc}|^:]:....|
|00000740| ec dd f2 5f 61 73 73 65 | 6d 62 6c 65 5f 4d 65 73 |..._asse|mble_Mes|
|00000750| 73 61 67 65 73 5f 45 72 | 72 6f 72 3a 5b 4f 50 54 |sages_Er|ror:[OPT|
|00000760| 70 61 73 73 25 3a 2e 78 | 6d 73 67 65 72 72 6f 72 |pass%:.x|msgerror|
|00000770| 3a 53 54 4d 46 44 28 73 | 70 29 21 2c 7b 34 2d 37 |:STMFD(s|p)!,{4-7|
|00000780| 2c 6c 72 7d 3a 4d 4f 56 | 34 2c 30 3a 42 4c 20 5f |,lr}:MOV|4,0:BL _|
|00000790| 78 6d 73 67 6c 6f 61 64 | 3a 4d 4f 56 76 63 31 2c |xmsgload|:MOVvc1,|
|000007a0| 30 3a 4d 4f 56 76 63 30 | 2c 34 3a 4d 4f 56 76 63 |0:MOVvc0|,4:MOVvc|
|000007b0| 32 2c 23 30 3a a4 61 64 | 72 66 28 22 76 63 22 2c |2,#0:.ad|rf("vc",|
|000007c0| 34 2c 4d 6f 64 75 6c 65 | 5f 54 69 74 6c 65 5f 53 |4,Module|_Title_S|
|000007d0| 74 72 69 6e 67 29 3a 4d | 4f 56 76 63 35 2c 23 30 |tring):M|OVvc5,#0|
|000007e0| 3a 4d 4f 56 76 63 36 2c | 23 30 3a 4d 4f 56 76 63 |:MOVvc6,|#0:MOVvc|
|000007f0| 37 2c 23 30 3a 53 57 49 | 76 63 20 26 36 31 35 30 |7,#0:SWI|vc &6150|
|00000800| 36 3a 4c 44 4d 46 44 28 | 73 70 29 21 2c 7b 34 2d |6:LDMFD(|sp)!,{4-|
|00000810| 37 2c 6c 72 7d 3a 84 52 | 53 70 63 2c 6c 72 2c 23 |7,lr}:.R|Spc,lr,#|
|00000820| 50 53 52 5f 56 3a 5d 3a | e1 0d 00 1a f9 dd f2 5f |PSR_V:]:|......._|
|00000830| 61 73 73 65 6d 62 6c 65 | 5f 4d 65 73 73 61 67 65 |assemble|_Message|
|00000840| 73 5f 4c 6f 61 64 45 72 | 72 6f 72 3a 5b 4f 50 54 |s_LoadEr|ror:[OPT|
|00000850| 70 61 73 73 25 3a 2e 5f | 78 6d 73 67 74 72 61 6e |pass%:._|xmsgtran|
|00000860| 73 5f 6c 6f 61 64 65 72 | 72 6f 72 3a 53 54 4d 46 |s_loader|ror:STMF|
|00000870| 44 28 73 70 29 21 2c 7b | 31 2d 38 2c 6c 72 7d 3a |D(sp)!,{|1-8,lr}:|
|00000880| 42 4c 20 5f 78 6d 73 67 | 74 72 61 6e 73 5f 6c 6f |BL _xmsg|trans_lo|
|00000890| 61 64 65 72 72 6f 72 5f | 31 3a 4c 44 4d 46 44 28 |aderror_|1:LDMFD(|
|000008a0| 73 70 29 21 2c 7b 31 2d | 38 2c 70 63 7d 3a 2e 5f |sp)!,{1-|8,pc}:._|
|000008b0| 78 6d 73 67 74 72 61 6e | 73 5f 6c 6f 61 64 65 72 |xmsgtran|s_loader|
|000008c0| 72 6f 72 5f 31 3a 4d 4f | 56 38 2c 6c 72 3a 4d 4f |ror_1:MO|V8,lr:MO|
|000008d0| 56 34 2c 30 3a 4d 4f 56 | 30 2c 23 4d 6f 64 48 61 |V4,0:MOV|0,#ModHa|
|000008e0| 6e 64 52 65 61 73 6f 6e | 5f 43 6c 61 69 6d 3a 4d |ndReason|_Claim:M|
|000008f0| 4f 56 33 2c 23 31 36 3a | 53 57 49 20 26 32 30 30 |OV3,#16:|SWI &200|
|00000900| 31 65 3a 4d 4f 56 76 73 | 70 63 2c 38 3a 4d 4f 56 |1e:MOVvs|pc,8:MOV|
|00000910| 30 2c 32 3a 41 44 52 31 | 2c 6d 73 67 5f 66 69 6c |0,2:ADR1|,msg_fil|
|00000920| 65 31 0d 00 1b db 4d 4f | 56 32 2c 23 30 3a 53 57 |e1....MO|V2,#0:SW|
|00000930| 49 20 26 36 31 35 30 31 | 3a 4d 4f 56 76 63 31 2c |I &61501|:MOVvc1,|
|00000940| 30 3a 4d 4f 56 30 2c 34 | 3a 4d 4f 56 76 63 32 2c |0:MOV0,4|:MOVvc2,|
|00000950| 23 30 3a a4 61 64 72 66 | 28 22 76 63 22 2c 34 2c |#0:.adrf|("vc",4,|
|00000960| 4d 6f 64 75 6c 65 5f 54 | 69 74 6c 65 5f 53 74 72 |Module_T|itle_Str|
|00000970| 69 6e 67 29 3a 4d 4f 56 | 76 63 35 2c 23 30 3a 4d |ing):MOV|vc5,#0:M|
|00000980| 4f 56 76 63 36 2c 23 30 | 3a 4d 4f 56 76 63 37 2c |OVvc6,#0|:MOVvc7,|
|00000990| 23 30 3a 53 57 49 76 63 | 20 26 36 31 35 30 36 3a |#0:SWIvc| &61506:|
|000009a0| 4d 4f 56 33 2c 30 3a 4d | 4f 56 30 2c 31 3a 53 57 |MOV3,0:M|OV0,1:SW|
|000009b0| 49 20 26 36 31 35 30 34 | 3a 4d 4f 56 30 2c 23 4d |I &61504|:MOV0,#M|
|000009c0| 6f 64 48 61 6e 64 52 65 | 61 73 6f 6e 5f 46 72 65 |odHandRe|ason_Fre|
|000009d0| 65 3a 4d 4f 56 32 2c 31 | 3a 53 57 49 20 26 32 30 |e:MOV2,1|:SWI &20|
|000009e0| 30 31 65 3a 4d 4f 56 30 | 2c 33 3a 84 52 53 70 63 |01e:MOV0|,3:.RSpc|
|000009f0| 2c 38 2c 23 50 53 52 5f | 56 3a 5d 3a e1 0d 00 1c |,8,#PSR_|V:]:....|
|00000a00| 32 dd a4 6d 65 73 73 61 | 67 65 5f 73 74 61 72 74 |2..messa|ge_start|
|00000a10| 3a 5b 4f 50 54 70 61 73 | 73 25 3a 41 4c 49 47 4e |:[OPTpas|s%:ALIGN|
|00000a20| 3a 2e 6d 65 73 73 61 67 | 65 73 3a 5d 3a 3d 30 0d |:.messag|es:]:=0.|
|00000a30| 00 1d 4a dd a4 6d 65 73 | 73 61 67 65 28 6d 65 73 |..J..mes|sage(mes|
|00000a40| 73 61 67 65 2c 68 61 6e | 64 6c 65 72 29 3a 5b 4f |sage,han|dler):[O|
|00000a50| 50 54 70 61 73 73 25 3a | 44 43 44 6d 65 73 73 61 |PTpass%:|DCDmessa|
|00000a60| 67 65 3a 44 43 44 68 61 | 6e 64 6c 65 72 2d 28 50 |ge:DCDha|ndler-(P|
|00000a70| 25 2b 34 29 3a 5d 3a 3d | 30 0d 00 1e 32 dd a4 6d |%+4):]:=|0...2..m|
|00000a80| 65 73 73 61 67 65 5f 65 | 6e 64 3a ea 6e 25 3a e7 |essage_e|nd:.n%:.|
|00000a90| 50 25 80 33 8c 85 31 2c | 22 6d 65 73 73 61 67 65 |P%.3..1,|"message|
|00000aa0| 20 61 6c 69 67 6e 6d 65 | 6e 74 22 0d 00 1f 70 5b | alignme|nt"...p[|
|00000ab0| 4f 50 54 70 61 73 73 25 | 3a 2e 6d 65 73 73 61 67 |OPTpass%|:.messag|
|00000ac0| 65 73 5f 65 6e 64 20 44 | 43 44 28 6d 65 73 73 61 |es_end D|CD(messa|
|00000ad0| 67 65 73 5f 65 6e 64 2d | 6d 65 73 73 61 67 65 73 |ges_end-|messages|
|00000ae0| 29 81 38 3a 5d 3a 6e 25 | 3d 6d 65 73 73 61 67 65 |).8:]:n%|=message|
|00000af0| 73 5f 65 6e 64 2d 6d 65 | 73 73 61 67 65 73 3a e7 |s_end-me|ssages:.|
|00000b00| 6e 25 83 38 8c 85 31 2c | 22 6d 65 73 73 61 67 65 |n%.8..1,|"message|
|00000b10| 20 61 6c 69 67 6e 6d 65 | 6e 74 22 0d 00 20 18 e7 | alignme|nt".. ..|
|00000b20| 6e 25 3c 31 8c 85 31 2c | 22 6d 65 73 73 61 67 65 |n%<1..1,|"message|
|00000b30| 20 6e 22 0d 00 21 45 e7 | 21 a4 61 61 64 72 28 6d | n"..!E.|!.aadr(m|
|00000b40| 65 73 73 61 67 65 73 5f | 65 6e 64 2d 38 29 3c 3e |essages_|end-8)<>|
|00000b50| 30 8c 85 31 2c 22 6c 61 | 73 74 20 6d 65 73 73 61 |0..1,"la|st messa|
|00000b60| 67 65 20 6d 75 73 74 20 | 62 65 20 4d 65 73 73 61 |ge must |be Messa|
|00000b70| 67 65 5f 51 75 69 74 22 | 0d 00 22 06 3d 30 0d 00 |ge_Quit"|..".=0..|
|00000b80| 23 5b dd a4 6d 65 6e 75 | 5f 74 69 74 6c 65 28 74 |#[..menu|_title(t|
|00000b90| 69 74 6c 65 24 29 3a 5b | 4f 50 54 70 61 73 73 25 |itle$):[|OPTpass%|
|00000ba0| 3a 45 51 55 53 20 74 69 | 74 6c 65 24 3a 44 43 42 |:EQUS ti|tle$:DCB|
|00000bb0| 50 25 80 33 31 3a 44 43 | 42 37 3a 44 43 42 32 3a |P%.31:DC|B7:DCB2:|
|00000bc0| 44 43 42 37 3a 44 43 42 | 30 3a 44 43 42 34 34 3a |DCB7:DCB|0:DCB44:|
|00000bd0| 44 43 42 30 3a 5d 3a 3d | 30 0d 00 24 4d dd a4 6d |DCB0:]:=|0..$M..m|
|00000be0| 65 6e 75 5f 69 74 65 6d | 28 69 74 65 6d 24 2c 69 |enu_item|(item$,i|
|00000bf0| 74 65 6d 5f 66 6c 61 67 | 73 25 29 3a 3d a4 6d 65 |tem_flag|s%):=.me|
|00000c00| 6e 75 5f 69 74 65 6d 78 | 28 69 74 65 6d 24 2c 69 |nu_itemx|(item$,i|
|00000c10| 74 65 6d 5f 66 6c 61 67 | 73 25 2c 30 2c 26 37 30 |tem_flag|s%,0,&70|
|00000c20| 30 30 31 32 31 29 0d 00 | 25 4f dd a4 6d 65 6e 75 |00121)..|%O..menu|
|00000c30| 5f 69 74 65 6d 78 28 69 | 74 65 6d 24 2c 69 74 65 |_itemx(i|tem$,ite|
|00000c40| 6d 5f 66 6c 61 67 73 25 | 2c 73 75 62 6d 65 6e 75 |m_flags%|,submenu|
|00000c50| 25 2c 69 63 6f 6e 5f 66 | 6c 61 67 73 25 29 3a e7 |%,icon_f|lags%):.|
|00000c60| 73 75 62 6d 65 6e 75 25 | 8c 85 31 2c 22 6e 6f 74 |submenu%|..1,"not|
|00000c70| 20 79 65 74 22 0d 00 26 | 55 5b 4f 50 54 70 61 73 | yet"..&|U[OPTpas|
|00000c80| 73 25 3a 45 51 55 53 20 | 69 74 65 6d 24 3a 44 43 |s%:EQUS |item$:DC|
|00000c90| 42 50 25 80 30 3a 41 4c | 49 47 4e 3a 44 43 44 69 |BP%.0:AL|IGN:DCDi|
|00000ca0| 74 65 6d 5f 66 6c 61 67 | 73 25 3a 44 43 44 73 75 |tem_flag|s%:DCDsu|
|00000cb0| 62 6d 65 6e 75 25 3a 44 | 43 44 69 63 6f 6e 5f 66 |bmenu%:D|CDicon_f|
|00000cc0| 6c 61 67 73 25 3a 5d 3a | 3d 30 0d 00 27 31 dd a4 |lags%:]:|=0..'1..|
|00000cd0| 6d 65 6e 75 5f 65 6e 64 | 3a 21 28 a4 61 61 64 72 |menu_end|:!(.aadr|
|00000ce0| 28 50 25 29 2d 31 32 29 | 2b 3d 6d 69 5f 69 74 5f |(P%)-12)|+=mi_it_|
|00000cf0| 6c 61 73 74 69 74 65 6d | 3a 3d 30 0d 00 28 2e dd |lastitem|:=0..(..|
|00000d00| a4 6d 65 6e 75 5f 74 65 | 72 6d 69 6e 61 74 65 3a |.menu_te|rminate:|
|00000d10| 5b 4f 50 54 70 61 73 73 | 25 3a 44 43 42 30 3a 41 |[OPTpass|%:DCB0:A|
|00000d20| 4c 49 47 4e 3a 5d 3a 3d | 30 0d 00 29 27 dd a4 6d |LIGN:]:=|0..)'..m|
|00000d30| 69 74 65 6d 28 63 63 24 | 2c 72 25 2c 62 61 73 65 |item(cc$|,r%,base|
|00000d40| 2c 69 74 65 6d 29 3a e7 | 69 74 65 6d 3e 3d 30 8c |,item):.|item>=0.|
|00000d50| 0d 00 2a 25 62 61 73 65 | 2b 3d 6d 5f 68 65 61 64 |..*%base|+=m_head|
|00000d60| 65 72 73 69 7a 65 2b 28 | 69 74 65 6d 2a 6d 69 5f |ersize+(|item*mi_|
|00000d70| 73 69 7a 65 29 0d 00 2b | 17 cd 3a 3d a4 67 62 28 |size)..+|..:=.gb(|
|00000d80| 63 63 24 2c 72 25 2c 62 | 61 73 65 29 0d ff       |cc$,r%,b|ase)..  |
+--------+-------------------------+-------------------------+--------+--------+