/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / Blib / Message

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 13 2a 7c 73 74 | 61 72 74 20 4d 65 73 73 |....*|st|art Mess|
|00000010| 61 67 65 0d 00 02 16 2a | 7c 21 4d 65 73 73 61 67 |age....*||!Messag|
|00000020| 65 20 4c 69 62 72 61 72 | 79 0d 00 03 07 2a 7c 21 |e Librar|y....*|!|
|00000030| 0d 00 04 33 2a 7c 21 56 | 65 72 73 69 6f 6e 20 32 |...3*|!V|ersion 2|
|00000040| 2e 30 31 20 2d 20 28 43 | 29 20 54 6f 6d 20 48 75 |.01 - (C|) Tom Hu|
|00000050| 67 68 65 73 20 32 6e 64 | 20 4d 61 72 63 68 20 31 |ghes 2nd| March 1|
|00000060| 39 39 33 0d 00 05 07 2a | 7c 21 0d 00 06 41 2a 7c |993....*||!...A*||
|00000070| 21 54 68 69 73 20 6c 69 | 62 72 61 72 79 20 63 6f |!This li|brary co|
|00000080| 6e 74 61 69 6e 73 20 72 | 6f 75 74 69 6e 65 73 20 |ntains r|outines |
|00000090| 66 6f 72 20 68 61 6e 64 | 6c 69 6e 67 20 6d 65 73 |for hand|ling mes|
|000000a0| 73 61 67 65 73 20 66 69 | 6c 65 73 0d 00 07 43 2a |sages fi|les...C*|
|000000b0| 7c 21 77 68 69 63 68 20 | 61 6c 6c 6f 77 20 73 6f ||!which |allow so|
|000000c0| 66 74 77 61 72 65 20 74 | 6f 20 62 65 20 77 72 69 |ftware t|o be wri|
|000000d0| 74 74 65 6e 20 69 6e 20 | 61 20 6c 61 6e 67 75 61 |tten in |a langua|
|000000e0| 67 65 20 69 6e 64 65 70 | 65 6e 64 65 6e 74 0d 00 |ge indep|endent..|
|000000f0| 08 3f 2a 7c 21 77 61 79 | 2e 20 49 6e 20 70 61 72 |.?*|!way|. In par|
|00000100| 74 69 63 75 6c 61 72 2c | 20 69 74 20 61 6c 6c 6f |ticular,| it allo|
|00000110| 77 73 20 74 68 65 20 63 | 72 65 61 74 69 6f 6e 20 |ws the c|reation |
|00000120| 6f 66 20 6d 65 6e 75 73 | 20 66 72 6f 6d 0d 00 09 |of menus| from...|
|00000130| 42 2a 7c 21 6d 65 73 73 | 61 67 65 20 66 69 6c 65 |B*|!mess|age file|
|00000140| 73 2c 20 61 6e 64 20 74 | 68 65 20 67 65 6e 65 72 |s, and t|he gener|
|00000150| 61 74 69 6f 6e 20 6f 66 | 20 65 72 72 6f 72 73 20 |ation of| errors |
|00000160| 75 73 69 6e 67 20 74 65 | 78 74 20 66 72 6f 6d 0d |using te|xt from.|
|00000170| 00 0a 13 2a 7c 21 73 75 | 63 68 20 61 20 66 69 6c |...*|!su|ch a fil|
|00000180| 65 2e 0d 00 0b 07 2a 7c | 21 0d 00 0c 45 2a 7c 21 |e.....*||!...E*|!|
|00000190| 54 68 65 20 66 69 6c 65 | 73 20 61 72 65 20 73 74 |The file|s are st|
|000001a0| 61 6e 64 61 72 64 20 4d | 65 73 73 61 67 65 54 72 |andard M|essageTr|
|000001b0| 61 6e 73 20 66 69 6c 65 | 73 2e 20 4c 69 6e 65 73 |ans file|s. Lines|
|000001c0| 20 73 74 61 72 74 69 6e | 67 20 77 69 74 68 0d 00 | startin|g with..|
|000001d0| 0d 46 2a 7c 21 61 20 68 | 61 73 68 20 28 23 29 20 |.F*|!a h|ash (#) |
|000001e0| 61 72 65 20 69 67 6e 6f | 72 65 64 2c 20 61 73 20 |are igno|red, as |
|000001f0| 61 72 65 20 62 6c 61 6e | 6b 20 6c 69 6e 65 73 2e |are blan|k lines.|
|00000200| 20 4f 74 68 65 72 20 6c | 69 6e 65 73 20 63 6f 6e | Other l|ines con|
|00000210| 74 61 69 6e 0d 00 0e 45 | 2a 7c 21 61 20 74 6f 6b |tain...E|*|!a tok|
|00000220| 65 6e 20 61 6e 64 20 61 | 20 74 72 61 6e 73 6c 61 |en and a| transla|
|00000230| 74 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 74 6f 6b |tion for| the tok|
|00000240| 65 6e 2c 20 73 65 70 61 | 72 61 74 65 64 20 62 79 |en, sepa|rated by|
|00000250| 20 61 20 63 6f 6c 6f 6e | 2e 0d 00 0f 35 2a 7c 21 | a colon|....5*|!|
|00000260| 46 6f 72 20 6d 6f 72 65 | 20 64 65 74 61 69 6c 73 |For more| details|
|00000270| 20 6f 66 20 74 68 69 73 | 20 66 6f 72 6d 61 74 2c | of this| format,|
|00000280| 20 73 65 65 20 74 68 65 | 20 50 52 4d 73 2e 0d 00 | see the| PRMs...|
|00000290| 10 12 2a 7c 73 74 6f 70 | 20 4d 65 73 73 61 67 65 |..*|stop| Message|
|000002a0| 0d 00 11 04 0d 00 12 1c | 2a 7c 73 74 61 72 74 20 |........|*|start |
|000002b0| 50 52 4f 43 6d 65 73 73 | 61 67 65 5f 69 6e 69 74 |PROCmess|age_init|
|000002c0| 0d 00 13 28 2a 7c 21 50 | 52 4f 43 6d 65 73 73 61 |...(*|!P|ROCmessa|
|000002d0| 67 65 5f 69 6e 69 74 28 | 20 73 63 72 61 74 63 68 |ge_init(| scratch|
|000002e0| 5f 73 70 61 63 65 20 29 | 0d 00 14 07 2a 7c 21 0d |_space )|....*|!.|
|000002f0| 00 15 50 2a 7c 21 54 68 | 69 73 20 72 6f 75 74 69 |..P*|!Th|is routi|
|00000300| 6e 65 20 69 6e 69 74 69 | 61 6c 69 73 65 73 20 74 |ne initi|alises t|
|00000310| 68 65 20 6d 65 73 73 61 | 67 65 20 66 69 6c 65 20 |he messa|ge file |
|00000320| 68 61 6e 64 6c 69 6e 67 | 20 6c 69 62 72 61 72 79 |handling| library|
|00000330| 2e 20 54 68 65 20 70 61 | 72 61 6d 65 74 65 72 0d |. The pa|rameter.|
|00000340| 00 16 50 2a 7c 21 73 70 | 65 63 69 66 69 65 73 20 |..P*|!sp|ecifies |
|00000350| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |the size| of the |
|00000360| 73 63 72 61 74 63 68 20 | 73 70 61 63 65 20 75 73 |scratch |space us|
|00000370| 65 64 20 66 6f 72 20 74 | 72 61 6e 73 6c 61 74 69 |ed for t|ranslati|
|00000380| 6e 67 20 6d 65 73 73 61 | 67 65 73 2e 20 41 6e 0d |ng messa|ges. An.|
|00000390| 00 17 4b 2a 7c 21 65 72 | 72 6f 72 20 77 69 6c 6c |..K*|!er|ror will|
|000003a0| 20 6f 63 63 75 72 20 69 | 66 20 61 6e 79 20 6d 65 | occur i|f any me|
|000003b0| 73 73 61 67 65 20 6c 6f | 6e 67 65 72 20 74 68 61 |ssage lo|nger tha|
|000003c0| 6e 20 74 68 69 73 20 73 | 69 7a 65 20 69 73 20 74 |n this s|ize is t|
|000003d0| 72 61 6e 73 6c 61 74 65 | 64 2e 0d 00 18 1a dd 20 |ranslate|d...... |
|000003e0| f2 6d 65 73 73 61 67 65 | 5f 69 6e 69 74 28 73 69 |.message|_init(si|
|000003f0| 7a 65 25 29 0d 00 19 20 | 5f 6d 65 73 73 61 67 65 |ze%)... |_message|
|00000400| 5f 62 75 66 25 3d a4 6d | 61 6c 6c 6f 63 28 73 69 |_buf%=.m|alloc(si|
|00000410| 7a 65 25 29 0d 00 1a 11 | 6d 65 73 73 61 67 65 5f |ze%)....|message_|
|00000420| 52 4d 41 3d 30 0d 00 1b | 11 6d 65 73 73 61 67 65 |RMA=0...|.message|
|00000430| 5f 41 50 50 3d 31 0d 00 | 1c 05 e1 0d 00 1d 04 0d |_APP=1..|........|
|00000440| 00 1e 1b 2a 7c 73 74 6f | 70 20 50 52 4f 43 6d 65 |...*|sto|p PROCme|
|00000450| 73 73 61 67 65 5f 69 6e | 69 74 0d 00 1f 04 0d 00 |ssage_in|it......|
|00000460| 20 1e 2a 7c 73 74 61 72 | 74 20 46 4e 6d 65 73 73 | .*|star|t FNmess|
|00000470| 61 67 65 5f 6f 70 65 6e | 66 69 6c 65 0d 00 21 39 |age_open|file..!9|
|00000480| 2a 7c 21 46 4e 6d 65 73 | 73 61 67 65 5f 6f 70 65 |*|!FNmes|sage_ope|
|00000490| 6e 66 69 6c 65 28 20 66 | 69 6c 65 5f 6e 61 6d 65 |nfile( f|ile_name|
|000004a0| 20 2c 20 73 74 6f 72 61 | 67 65 5f 6c 6f 63 61 74 | , stora|ge_locat|
|000004b0| 69 6f 6e 20 29 0d 00 22 | 07 2a 7c 21 0d 00 23 47 |ion ).."|.*|!..#G|
|000004c0| 2a 7c 21 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |*|!This |routine |
|000004d0| 6f 70 65 6e 73 20 61 20 | 6d 65 73 73 61 67 65 20 |opens a |message |
|000004e0| 66 69 6c 65 20 61 6e 64 | 20 72 65 74 75 72 6e 73 |file and| returns|
|000004f0| 20 61 20 68 61 6e 64 6c | 65 20 74 6f 20 69 74 20 | a handl|e to it |
|00000500| 66 6f 72 0d 00 24 4a 2a | 7c 21 75 73 65 20 69 6e |for..$J*||!use in|
|00000510| 20 66 75 74 75 72 65 20 | 63 61 6c 6c 73 20 74 6f | future |calls to|
|00000520| 20 74 68 65 20 6c 69 62 | 72 61 72 79 2e 20 54 68 | the lib|rary. Th|
|00000530| 65 20 66 69 6c 65 20 6d | 61 79 20 65 69 74 68 65 |e file m|ay eithe|
|00000540| 72 20 62 65 20 62 75 66 | 66 65 72 65 64 0d 00 25 |r be buf|fered..%|
|00000550| 44 2a 7c 21 69 6e 20 61 | 70 70 6c 69 63 61 74 69 |D*|!in a|pplicati|
|00000560| 6f 6e 20 6d 65 6d 6f 72 | 79 20 73 70 61 63 65 20 |on memor|y space |
|00000570| 28 73 74 6f 72 61 67 65 | 5f 6c 6f 63 61 74 69 6f |(storage|_locatio|
|00000580| 6e 3d 6d 65 73 73 61 67 | 65 5f 41 50 50 29 20 6f |n=messag|e_APP) o|
|00000590| 72 0d 00 26 45 2a 7c 21 | 69 6e 20 74 68 65 20 52 |r..&E*|!|in the R|
|000005a0| 4d 41 20 28 73 74 6f 72 | 61 67 65 5f 6c 6f 63 61 |MA (stor|age_loca|
|000005b0| 74 69 6f 6e 3d 6d 65 73 | 73 61 67 65 5f 52 4d 41 |tion=mes|sage_RMA|
|000005c0| 29 2e 20 54 68 69 73 20 | 6c 61 74 74 65 72 20 63 |). This |latter c|
|000005d0| 61 73 65 20 69 73 0d 00 | 27 4d 2a 7c 21 70 61 72 |ase is..|'M*|!par|
|000005e0| 74 69 63 75 6c 61 72 6c | 79 20 75 73 65 66 75 6c |ticularl|y useful|
|000005f0| 20 69 66 20 79 6f 75 20 | 61 72 65 20 6f 70 65 6e | if you |are open|
|00000600| 69 6e 67 20 61 20 6d 65 | 73 73 61 67 65 20 66 69 |ing a me|ssage fi|
|00000610| 6c 65 20 77 68 69 63 68 | 20 69 73 20 61 6c 72 65 |le which| is alre|
|00000620| 61 64 79 0d 00 28 4c 2a | 7c 21 69 6e 20 52 4f 4d |ady..(L*||!in ROM|
|00000630| 20 28 65 67 20 74 68 6f | 73 65 20 69 6e 20 52 65 | (eg tho|se in Re|
|00000640| 73 6f 75 72 63 65 46 53 | 20 69 6e 20 52 69 73 63 |sourceFS| in Risc|
|00000650| 4f 53 20 33 29 2c 20 61 | 73 20 74 68 65 79 20 77 |OS 3), a|s they w|
|00000660| 69 6c 6c 20 62 65 20 62 | 75 66 66 65 72 65 64 0d |ill be b|uffered.|
|00000670| 00 29 2d 2a 7c 21 73 74 | 72 61 69 67 68 74 20 66 |.)-*|!st|raight f|
|00000680| 72 6f 6d 20 52 4f 4d 2c | 20 74 68 75 73 20 73 61 |rom ROM,| thus sa|
|00000690| 76 69 6e 67 20 6d 65 6d | 6f 72 79 2e 0d 00 2a 28 |ving mem|ory...*(|
|000006a0| dd 20 a4 6d 65 73 73 61 | 67 65 5f 6f 70 65 6e 66 |. .messa|ge_openf|
|000006b0| 69 6c 65 28 66 69 6c 65 | 24 2c 6c 6f 63 61 74 69 |ile(file|$,locati|
|000006c0| 6f 6e 25 29 0d 00 2b 1e | ea 20 73 69 7a 65 25 2c |on%)..+.|. size%,|
|000006d0| 66 69 6c 65 64 65 73 63 | 25 2c 66 69 6c 65 62 75 |filedesc|%,filebu|
|000006e0| 66 25 0d 00 2c 2f c8 99 | 20 22 4d 65 73 73 61 67 |f%..,/..| "Messag|
|000006f0| 65 54 72 61 6e 73 5f 46 | 69 6c 65 49 6e 66 6f 22 |eTrans_F|ileInfo"|
|00000700| 2c 2c 66 69 6c 65 24 20 | b8 20 2c 2c 73 69 7a 65 |,,file$ |. ,,size|
|00000710| 25 0d 00 2d 1d e7 20 6c | 6f 63 61 74 69 6f 6e 25 |%..-.. l|ocation%|
|00000720| 3d 6d 65 73 73 61 67 65 | 5f 52 4d 41 20 8c 0d 00 |=message|_RMA ...|
|00000730| 2e 32 20 20 c8 99 20 22 | 4f 53 5f 4d 6f 64 75 6c |.2  .. "|OS_Modul|
|00000740| 65 22 2c 36 2c 2c 2c 32 | 31 2b a9 28 66 69 6c 65 |e",6,,,2|1+.(file|
|00000750| 24 29 20 b8 20 2c 2c 66 | 69 6c 65 64 65 73 63 25 |$) . ,,f|iledesc%|
|00000760| 0d 00 2f 10 20 20 66 69 | 6c 65 62 75 66 25 3d 30 |../.  fi|lebuf%=0|
|00000770| 0d 00 30 05 cc 0d 00 31 | 24 20 20 66 69 6c 65 64 |..0....1|$  filed|
|00000780| 65 73 63 25 3d a4 6d 61 | 6c 6c 6f 63 28 32 31 2b |esc%=.ma|lloc(21+|
|00000790| a9 28 66 69 6c 65 24 29 | 29 0d 00 32 1d 20 20 66 |.(file$)|)..2.  f|
|000007a0| 69 6c 65 62 75 66 25 3d | a4 6d 61 6c 6c 6f 63 28 |ilebuf%=|.malloc(|
|000007b0| 73 69 7a 65 25 29 0d 00 | 33 05 cd 0d 00 34 19 24 |size%)..|3....4.$|
|000007c0| 28 66 69 6c 65 64 65 73 | 63 25 2b 32 30 29 3d 66 |(filedes|c%+20)=f|
|000007d0| 69 6c 65 24 0d 00 35 19 | 66 69 6c 65 64 65 73 63 |ile$..5.|filedesc|
|000007e0| 25 21 31 36 3d 66 69 6c | 65 62 75 66 25 0d 00 36 |%!16=fil|ebuf%..6|
|000007f0| 3e c8 99 20 22 4d 65 73 | 73 61 67 65 54 72 61 6e |>.. "Mes|sageTran|
|00000800| 73 5f 4f 70 65 6e 46 69 | 6c 65 22 2c 66 69 6c 65 |s_OpenFi|le",file|
|00000810| 64 65 73 63 25 2c 66 69 | 6c 65 64 65 73 63 25 2b |desc%,fi|ledesc%+|
|00000820| 32 30 2c 66 69 6c 65 62 | 75 66 25 0d 00 37 0e 3d |20,fileb|uf%..7.=|
|00000830| 66 69 6c 65 64 65 73 63 | 25 0d 00 38 04 0d 00 39 |filedesc|%..8...9|
|00000840| 1d 2a 7c 73 74 6f 70 20 | 46 4e 6d 65 73 73 61 67 |.*|stop |FNmessag|
|00000850| 65 5f 6f 70 65 6e 66 69 | 6c 65 0d 00 3a 04 0d 00 |e_openfi|le..:...|
|00000860| 3b 21 2a 7c 73 74 61 72 | 74 20 50 52 4f 43 6d 65 |;!*|star|t PROCme|
|00000870| 73 73 61 67 65 5f 63 6c | 6f 73 65 66 69 6c 65 0d |ssage_cl|osefile.|
|00000880| 00 3c 33 2a 7c 21 50 52 | 4f 43 6d 65 73 73 61 67 |.<3*|!PR|OCmessag|
|00000890| 65 5f 63 6c 6f 73 65 66 | 69 6c 65 28 20 6d 65 73 |e_closef|ile( mes|
|000008a0| 73 61 67 65 5f 66 69 6c | 65 5f 68 61 6e 64 6c 65 |sage_fil|e_handle|
|000008b0| 20 29 0d 00 3d 07 2a 7c | 21 0d 00 3e 46 2a 7c 21 | )..=.*||!..>F*|!|
|000008c0| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 63 |This pro|cedure c|
|000008d0| 6c 6f 73 65 73 20 61 6e | 20 6f 70 65 6e 20 6d 65 |loses an| open me|
|000008e0| 73 73 61 67 65 20 66 69 | 6c 65 20 61 6e 64 20 66 |ssage fi|le and f|
|000008f0| 72 65 65 73 20 61 6e 79 | 20 6d 65 6d 6f 72 79 0d |rees any| memory.|
|00000900| 00 3f 19 2a 7c 21 75 73 | 65 64 20 74 6f 20 62 75 |.?.*|!us|ed to bu|
|00000910| 66 66 65 72 20 69 74 2e | 0d 00 40 20 dd 20 f2 6d |ffer it.|..@ . .m|
|00000920| 65 73 73 61 67 65 5f 66 | 69 6c 65 63 6c 6f 73 65 |essage_f|ileclose|
|00000930| 28 62 6c 6f 63 6b 25 29 | 0d 00 41 26 c8 99 20 22 |(block%)|..A&.. "|
|00000940| 4d 65 73 73 61 67 65 54 | 72 61 6e 73 5f 43 6c 6f |MessageT|rans_Clo|
|00000950| 73 65 46 69 6c 65 22 2c | 62 6c 6f 63 6b 25 0d 00 |seFile",|block%..|
|00000960| 42 13 e7 20 62 6c 6f 63 | 6b 25 21 31 36 3e 30 20 |B.. bloc|k%!16>0 |
|00000970| 8c 0d 00 43 16 20 20 f2 | 66 72 65 65 28 62 6c 6f |...C.  .|free(blo|
|00000980| 63 6b 25 21 31 36 29 0d | 00 44 13 20 20 f2 66 72 |ck%!16).|.D.  .fr|
|00000990| 65 65 28 62 6c 6f 63 6b | 25 29 0d 00 45 05 cc 0d |ee(block|%)..E...|
|000009a0| 00 46 1e 20 20 c8 99 20 | 22 4f 53 5f 4d 6f 64 75 |.F.  .. |"OS_Modu|
|000009b0| 6c 65 22 2c 37 2c 2c 62 | 6c 6f 63 6b 25 0d 00 47 |le",7,,b|lock%..G|
|000009c0| 05 cd 0d 00 48 05 e1 0d | 00 49 04 0d 00 4a 20 2a |....H...|.I...J *|
|000009d0| 7c 73 74 6f 70 20 50 52 | 4f 43 6d 65 73 73 61 67 ||stop PR|OCmessag|
|000009e0| 65 5f 63 6c 6f 73 65 66 | 69 6c 65 0d 00 4b 04 0d |e_closef|ile..K..|
|000009f0| 00 4c 1c 2a 7c 73 74 61 | 72 74 20 46 4e 6d 65 73 |.L.*|sta|rt FNmes|
|00000a00| 73 61 67 65 5f 6c 6f 6f | 6b 75 70 0d 00 4d 3e 2a |sage_loo|kup..M>*|
|00000a10| 7c 21 46 4e 6d 65 73 73 | 61 67 65 5f 6c 6f 6f 6b ||!FNmess|age_look|
|00000a20| 75 70 28 20 6d 65 73 73 | 61 67 65 5f 66 69 6c 65 |up( mess|age_file|
|00000a30| 5f 68 61 6e 64 6c 65 20 | 2c 20 6d 65 73 73 61 67 |_handle |, messag|
|00000a40| 65 5f 74 6f 6b 65 6e 20 | 29 0d 00 4e 07 2a 7c 21 |e_token |)..N.*|!|
|00000a50| 0d 00 4f 48 2a 7c 21 54 | 68 69 73 20 70 72 6f 63 |..OH*|!T|his proc|
|00000a60| 65 64 75 72 65 20 6c 6f | 6f 6b 73 20 75 70 20 61 |edure lo|oks up a|
|00000a70| 20 74 6f 6b 65 6e 20 69 | 6e 20 74 68 65 20 73 70 | token i|n the sp|
|00000a80| 65 63 69 66 69 65 64 20 | 6d 65 73 73 61 67 65 20 |ecified |message |
|00000a90| 66 69 6c 65 20 61 6e 64 | 0d 00 50 23 2a 7c 21 72 |file and|..P#*|!r|
|00000aa0| 65 74 75 72 6e 73 20 74 | 68 65 20 61 73 73 6f 63 |eturns t|he assoc|
|00000ab0| 69 61 74 65 64 20 74 65 | 78 74 2e 0d 00 51 24 dd |iated te|xt...Q$.|
|00000ac0| 20 a4 6d 65 73 73 61 67 | 65 5f 6c 6f 6f 6b 75 70 | .messag|e_lookup|
|00000ad0| 28 62 6c 6f 63 6b 25 2c | 74 6f 6b 65 6e 24 29 0d |(block%,|token$).|
|00000ae0| 00 52 0a ea 20 70 74 72 | 25 0d 00 53 3f c8 99 20 |.R.. ptr|%..S?.. |
|00000af0| 22 4d 65 73 73 61 67 65 | 54 72 61 6e 73 5f 4c 6f |"Message|Trans_Lo|
|00000b00| 6f 6b 75 70 22 2c 62 6c | 6f 63 6b 25 2c 74 6f 6b |okup",bl|ock%,tok|
|00000b10| 65 6e 24 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 20 |en$,0,0,|0,0,0,0 |
|00000b20| b8 20 2c 2c 70 74 72 25 | 0d 00 54 18 3d a4 6f 73 |. ,,ptr%|..T.=.os|
|00000b30| 5f 67 65 74 73 74 72 69 | 6e 67 28 70 74 72 25 29 |_getstri|ng(ptr%)|
|00000b40| 0d 00 55 04 0d 00 56 1b | 2a 7c 73 74 6f 70 20 46 |..U...V.|*|stop F|
|00000b50| 4e 6d 65 73 73 61 67 65 | 5f 6c 6f 6f 6b 75 70 0d |Nmessage|_lookup.|
|00000b60| 00 57 04 0d 00 58 1d 2a | 7c 73 74 61 72 74 20 46 |.W...X.*||start F|
|00000b70| 4e 6d 65 73 73 61 67 65 | 5f 6c 6f 6f 6b 75 70 31 |Nmessage|_lookup1|
|00000b80| 0d 00 59 48 2a 7c 21 46 | 4e 6d 65 73 73 61 67 65 |..YH*|!F|Nmessage|
|00000b90| 5f 6c 6f 6f 6b 75 70 31 | 28 20 6d 65 73 73 61 67 |_lookup1|( messag|
|00000ba0| 65 5f 66 69 6c 65 5f 68 | 61 6e 64 6c 65 20 2c 20 |e_file_h|andle , |
|00000bb0| 6d 65 73 73 61 67 65 5f | 74 6f 6b 65 6e 20 2c 20 |message_|token , |
|00000bc0| 70 61 72 61 6d 31 20 29 | 0d 00 5a 07 2a 7c 21 0d |param1 )|..Z.*|!.|
|00000bd0| 00 5b 48 2a 7c 21 54 68 | 69 73 20 70 72 6f 63 65 |.[H*|!Th|is proce|
|00000be0| 64 75 72 65 20 6c 6f 6f | 6b 73 20 75 70 20 61 20 |dure loo|ks up a |
|00000bf0| 74 6f 6b 65 6e 20 69 6e | 20 74 68 65 20 73 70 65 |token in| the spe|
|00000c00| 63 69 66 69 65 64 20 6d | 65 73 73 61 67 65 20 66 |cified m|essage f|
|00000c10| 69 6c 65 20 61 6e 64 0d | 00 5c 4b 2a 7c 21 72 65 |ile and.|.\K*|!re|
|00000c20| 74 75 72 6e 73 20 74 68 | 65 20 61 73 73 6f 63 69 |turns th|e associ|
|00000c30| 61 74 65 64 20 74 65 78 | 74 2c 20 68 61 76 69 6e |ated tex|t, havin|
|00000c40| 67 20 73 75 62 73 74 69 | 74 75 74 65 64 20 70 61 |g substi|tuted pa|
|00000c50| 72 61 6d 31 20 66 6f 72 | 20 25 30 20 69 6e 20 74 |ram1 for| %0 in t|
|00000c60| 68 65 0d 00 5d 14 2a 7c | 21 6d 65 73 73 61 67 65 |he..].*||!message|
|00000c70| 20 66 69 6c 65 2e 0d 00 | 5e 29 dd 20 a4 6d 65 73 | file...|^). .mes|
|00000c80| 73 61 67 65 5f 6c 6f 6f | 6b 75 70 31 28 62 6c 6f |sage_loo|kup1(blo|
|00000c90| 63 6b 25 2c 74 6f 6b 65 | 6e 24 2c 70 30 24 29 0d |ck%,toke|n$,p0$).|
|00000ca0| 00 5f 0b ea 20 73 69 7a | 65 25 0d 00 60 65 c8 99 |._.. siz|e%..`e..|
|00000cb0| 20 22 4d 65 73 73 61 67 | 65 54 72 61 6e 73 5f 4c | "Messag|eTrans_L|
|00000cc0| 6f 6f 6b 75 70 22 2c 62 | 6c 6f 63 6b 25 2c 74 6f |ookup",b|lock%,to|
|00000cd0| 6b 65 6e 24 2c 5f 6d 65 | 73 73 61 67 65 5f 62 75 |ken$,_me|ssage_bu|
|00000ce0| 66 25 2c a4 73 69 7a 65 | 5f 6f 66 28 5f 6d 65 73 |f%,.size|_of(_mes|
|00000cf0| 73 61 67 65 5f 62 75 66 | 25 29 2c 70 30 24 2c 30 |sage_buf|%),p0$,0|
|00000d00| 2c 30 2c 30 20 b8 20 2c | 2c 2c 73 69 7a 65 25 0d |,0,0 . ,|,,size%.|
|00000d10| 00 61 47 e7 20 73 69 7a | 65 25 3e 3d a4 73 69 7a |.aG. siz|e%>=.siz|
|00000d20| 65 5f 6f 66 28 5f 6d 65 | 73 73 61 67 65 5f 62 75 |e_of(_me|ssage_bu|
|00000d30| 66 25 29 20 8c 20 85 20 | 30 2c 22 54 72 61 6e 73 |f%) . . |0,"Trans|
|00000d40| 6c 61 74 65 64 20 6d 65 | 73 73 61 67 65 20 74 6f |lated me|ssage to|
|00000d50| 6f 20 62 69 67 22 0d 00 | 62 21 3d a4 6f 73 5f 67 |o big"..|b!=.os_g|
|00000d60| 65 74 73 74 72 69 6e 67 | 28 5f 6d 65 73 73 61 67 |etstring|(_messag|
|00000d70| 65 5f 62 75 66 25 29 0d | 00 63 04 0d 00 64 1c 2a |e_buf%).|.c...d.*|
|00000d80| 7c 73 74 6f 70 20 46 4e | 6d 65 73 73 61 67 65 5f ||stop FN|message_|
|00000d90| 6c 6f 6f 6b 75 70 31 0d | 00 65 04 0d 00 66 1e 2a |lookup1.|.e...f.*|
|00000da0| 7c 73 74 61 72 74 20 46 | 4e 6d 65 73 73 61 67 65 ||start F|Nmessage|
|00000db0| 5f 6c 6f 6f 6b 75 70 32 | 20 0d 00 67 44 2a 7c 21 |_lookup2| ..gD*|!|
|00000dc0| 46 4e 6d 65 73 73 61 67 | 65 5f 6c 6f 6f 6b 75 70 |FNmessag|e_lookup|
|00000dd0| 32 28 20 68 61 6e 64 6c | 65 20 2c 20 6d 65 73 73 |2( handl|e , mess|
|00000de0| 61 67 65 5f 74 6f 6b 65 | 6e 20 2c 20 70 61 72 61 |age_toke|n , para|
|00000df0| 6d 31 20 2c 20 70 61 72 | 61 6d 32 20 29 0d 00 68 |m1 , par|am2 )..h|
|00000e00| 07 2a 7c 21 0d 00 69 48 | 2a 7c 21 54 68 69 73 20 |.*|!..iH|*|!This |
|00000e10| 70 72 6f 63 65 64 75 72 | 65 20 6c 6f 6f 6b 73 20 |procedur|e looks |
|00000e20| 75 70 20 61 20 74 6f 6b | 65 6e 20 69 6e 20 74 68 |up a tok|en in th|
|00000e30| 65 20 73 70 65 63 69 66 | 69 65 64 20 6d 65 73 73 |e specif|ied mess|
|00000e40| 61 67 65 20 66 69 6c 65 | 20 61 6e 64 0d 00 6a 48 |age file| and..jH|
|00000e50| 2a 7c 21 72 65 74 75 72 | 6e 73 20 74 68 65 20 61 |*|!retur|ns the a|
|00000e60| 73 73 6f 63 69 61 74 65 | 64 20 74 65 78 74 2c 20 |ssociate|d text, |
|00000e70| 68 61 76 69 6e 67 20 73 | 75 62 73 74 69 74 75 74 |having s|ubstitut|
|00000e80| 65 64 20 70 61 72 61 6d | 31 20 61 6e 64 20 70 61 |ed param|1 and pa|
|00000e90| 72 61 6d 32 0d 00 6b 29 | 2a 7c 21 66 6f 72 20 25 |ram2..k)|*|!for %|
|00000ea0| 30 20 61 6e 64 20 25 31 | 20 69 6e 20 74 68 65 20 |0 and %1| in the |
|00000eb0| 6d 65 73 73 61 67 65 20 | 66 69 6c 65 2e 0d 00 6c |message |file...l|
|00000ec0| 2d dd 20 a4 6d 65 73 73 | 61 67 65 5f 6c 6f 6f 6b |-. .mess|age_look|
|00000ed0| 75 70 32 28 62 6c 6f 63 | 6b 25 2c 74 6f 6b 65 6e |up2(bloc|k%,token|
|00000ee0| 24 2c 70 30 24 2c 70 31 | 24 29 0d 00 6d 0b ea 20 |$,p0$,p1|$)..m.. |
|00000ef0| 73 69 7a 65 25 0d 00 6e | 67 c8 99 20 22 4d 65 73 |size%..n|g.. "Mes|
|00000f00| 73 61 67 65 54 72 61 6e | 73 5f 4c 6f 6f 6b 75 70 |sageTran|s_Lookup|
|00000f10| 22 2c 62 6c 6f 63 6b 25 | 2c 74 6f 6b 65 6e 24 2c |",block%|,token$,|
|00000f20| 5f 6d 65 73 73 61 67 65 | 5f 62 75 66 25 2c a4 73 |_message|_buf%,.s|
|00000f30| 69 7a 65 5f 6f 66 28 5f | 6d 65 73 73 61 67 65 5f |ize_of(_|message_|
|00000f40| 62 75 66 25 29 2c 70 30 | 24 2c 70 31 24 2c 30 2c |buf%),p0|$,p1$,0,|
|00000f50| 30 20 b8 20 2c 2c 2c 73 | 69 7a 65 25 0d 00 6f 47 |0 . ,,,s|ize%..oG|
|00000f60| e7 20 73 69 7a 65 25 3e | 3d a4 73 69 7a 65 5f 6f |. size%>|=.size_o|
|00000f70| 66 28 5f 6d 65 73 73 61 | 67 65 5f 62 75 66 25 29 |f(_messa|ge_buf%)|
|00000f80| 20 8c 20 85 20 30 2c 22 | 54 72 61 6e 73 6c 61 74 | . . 0,"|Translat|
|00000f90| 65 64 20 6d 65 73 73 61 | 67 65 20 74 6f 6f 20 62 |ed messa|ge too b|
|00000fa0| 69 67 22 0d 00 70 21 3d | a4 6f 73 5f 67 65 74 73 |ig"..p!=|.os_gets|
|00000fb0| 74 72 69 6e 67 28 5f 6d | 65 73 73 61 67 65 5f 62 |tring(_m|essage_b|
|00000fc0| 75 66 25 29 0d 00 71 04 | 0d 00 72 1c 2a 7c 73 74 |uf%)..q.|..r.*|st|
|00000fd0| 6f 70 20 46 4e 6d 65 73 | 73 61 67 65 5f 6c 6f 6f |op FNmes|sage_loo|
|00000fe0| 6b 75 70 32 0d 00 73 04 | 0d 00 74 1d 2a 7c 73 74 |kup2..s.|..t.*|st|
|00000ff0| 61 72 74 20 46 4e 6d 65 | 73 73 61 67 65 5f 6c 6f |art FNme|ssage_lo|
|00001000| 6f 6b 75 70 33 0d 00 75 | 4d 2a 7c 21 46 4e 6d 65 |okup3..u|M*|!FNme|
|00001010| 73 73 61 67 65 5f 6c 6f | 6f 6b 75 70 33 28 20 68 |ssage_lo|okup3( h|
|00001020| 61 6e 64 6c 65 20 2c 20 | 6d 65 73 73 61 67 65 5f |andle , |message_|
|00001030| 74 6f 6b 65 6e 20 2c 20 | 70 61 72 61 6d 31 20 2c |token , |param1 ,|
|00001040| 20 70 61 72 61 6d 32 20 | 2c 20 70 61 72 61 6d 33 | param2 |, param3|
|00001050| 20 29 0d 00 76 07 2a 7c | 21 0d 00 77 48 2a 7c 21 | )..v.*||!..wH*|!|
|00001060| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 6c |This pro|cedure l|
|00001070| 6f 6f 6b 73 20 75 70 20 | 61 20 74 6f 6b 65 6e 20 |ooks up |a token |
|00001080| 69 6e 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |in the s|pecified|
|00001090| 20 6d 65 73 73 61 67 65 | 20 66 69 6c 65 20 61 6e | message| file an|
|000010a0| 64 0d 00 78 49 2a 7c 21 | 72 65 74 75 72 6e 73 20 |d..xI*|!|returns |
|000010b0| 74 68 65 20 61 73 73 6f | 63 69 61 74 65 64 20 74 |the asso|ciated t|
|000010c0| 65 78 74 2c 20 68 61 76 | 69 6e 67 20 73 75 62 73 |ext, hav|ing subs|
|000010d0| 74 69 74 75 74 65 64 20 | 70 61 72 61 6d 31 2c 20 |tituted |param1, |
|000010e0| 70 61 72 61 6d 32 20 61 | 6e 64 0d 00 79 34 2a 7c |param2 a|nd..y4*||
|000010f0| 21 70 61 72 61 6d 33 20 | 66 6f 72 20 25 30 2c 20 |!param3 |for %0, |
|00001100| 25 31 20 61 6e 64 20 25 | 32 20 69 6e 20 74 68 65 |%1 and %|2 in the|
|00001110| 20 6d 65 73 73 61 67 65 | 20 66 69 6c 65 2e 0d 00 | message| file...|
|00001120| 7a 31 dd 20 a4 6d 65 73 | 73 61 67 65 5f 6c 6f 6f |z1. .mes|sage_loo|
|00001130| 6b 75 70 33 28 62 6c 6f | 63 6b 25 2c 74 6f 6b 65 |kup3(blo|ck%,toke|
|00001140| 6e 24 2c 70 30 24 2c 70 | 31 24 2c 70 32 24 29 0d |n$,p0$,p|1$,p2$).|
|00001150| 00 7b 0b ea 20 73 69 7a | 65 25 0d 00 7c 68 c8 99 |.{.. siz|e%..|h..|
|00001160| 20 22 4d 65 73 73 61 67 | 65 54 72 61 6e 73 5f 4c | "Messag|eTrans_L|
|00001170| 6f 6f 6b 75 70 22 2c 62 | 6c 6f 63 6b 25 2c 74 6f |ookup",b|lock%,to|
|00001180| 6b 65 6e 24 2c 5f 6d 65 | 73 73 61 67 65 5f 62 75 |ken$,_me|ssage_bu|
|00001190| 66 25 2c a4 73 69 7a 65 | 5f 6f 66 28 5f 6d 65 73 |f%,.size|_of(_mes|
|000011a0| 73 61 67 65 5f 62 75 66 | 25 29 2c 70 30 24 2c 70 |sage_buf|%),p0$,p|
|000011b0| 31 24 2c 70 32 2c 30 20 | b8 20 2c 2c 2c 73 69 7a |1$,p2,0 |. ,,,siz|
|000011c0| 65 25 0d 00 7d 47 e7 20 | 73 69 7a 65 25 3e 3d a4 |e%..}G. |size%>=.|
|000011d0| 73 69 7a 65 5f 6f 66 28 | 5f 6d 65 73 73 61 67 65 |size_of(|_message|
|000011e0| 5f 62 75 66 25 29 20 8c | 20 85 20 30 2c 22 54 72 |_buf%) .| . 0,"Tr|
|000011f0| 61 6e 73 6c 61 74 65 64 | 20 6d 65 73 73 61 67 65 |anslated| message|
|00001200| 20 74 6f 6f 20 62 69 67 | 22 0d 00 7e 21 3d a4 6f | too big|"..~!=.o|
|00001210| 73 5f 67 65 74 73 74 72 | 69 6e 67 28 5f 6d 65 73 |s_getstr|ing(_mes|
|00001220| 73 61 67 65 5f 62 75 66 | 25 29 0d 00 7f 04 0d 00 |sage_buf|%)......|
|00001230| 80 1c 2a 7c 73 74 6f 70 | 20 46 4e 6d 65 73 73 61 |..*|stop| FNmessa|
|00001240| 67 65 5f 6c 6f 6f 6b 75 | 70 33 0d 00 81 04 0d 00 |ge_looku|p3......|
|00001250| 82 1d 2a 7c 73 74 61 72 | 74 20 46 4e 6d 65 73 73 |..*|star|t FNmess|
|00001260| 61 67 65 5f 6c 6f 6f 6b | 75 70 34 0d 00 83 4d 2a |age_look|up4...M*|
|00001270| 7c 21 46 4e 6d 65 73 73 | 61 67 65 5f 6c 6f 6f 6b ||!FNmess|age_look|
|00001280| 75 70 34 28 20 68 61 6e | 64 6c 65 20 2c 20 74 6f |up4( han|dle , to|
|00001290| 6b 65 6e 20 2c 20 70 61 | 72 61 6d 31 20 2c 20 70 |ken , pa|ram1 , p|
|000012a0| 61 72 61 6d 32 20 2c 20 | 70 61 72 61 6d 33 20 2c |aram2 , |param3 ,|
|000012b0| 20 70 61 72 61 6d 34 29 | 0d 00 84 07 2a 7c 21 0d | param4)|....*|!.|
|000012c0| 00 85 48 2a 7c 21 54 68 | 69 73 20 70 72 6f 63 65 |..H*|!Th|is proce|
|000012d0| 64 75 72 65 20 6c 6f 6f | 6b 73 20 75 70 20 61 20 |dure loo|ks up a |
|000012e0| 74 6f 6b 65 6e 20 69 6e | 20 74 68 65 20 73 70 65 |token in| the spe|
|000012f0| 63 69 66 69 65 64 20 6d | 65 73 73 61 67 65 20 66 |cified m|essage f|
|00001300| 69 6c 65 20 61 6e 64 0d | 00 86 4d 2a 7c 21 72 65 |ile and.|..M*|!re|
|00001310| 74 75 72 6e 73 20 74 68 | 65 20 61 73 73 6f 63 69 |turns th|e associ|
|00001320| 61 74 65 64 20 74 65 78 | 74 2c 20 68 61 76 69 6e |ated tex|t, havin|
|00001330| 67 20 73 75 62 73 74 69 | 74 75 74 65 64 20 70 61 |g substi|tuted pa|
|00001340| 72 61 6d 31 2c 20 70 61 | 72 61 6d 32 2c 20 70 61 |ram1, pa|ram2, pa|
|00001350| 72 61 6d 33 0d 00 87 3c | 2a 7c 21 61 6e 64 20 70 |ram3...<|*|!and p|
|00001360| 61 72 61 6d 34 20 66 6f | 72 20 25 30 2c 20 25 31 |aram4 fo|r %0, %1|
|00001370| 2c 20 25 32 20 61 6e 64 | 20 25 33 20 69 6e 20 74 |, %2 and| %3 in t|
|00001380| 68 65 20 6d 65 73 73 61 | 67 65 20 66 69 6c 65 2e |he messa|ge file.|
|00001390| 0d 00 88 3a dd 20 a4 6d | 65 73 73 61 67 65 5f 6c |...:. .m|essage_l|
|000013a0| 6f 6f 6b 75 70 61 6e 64 | 73 75 62 28 62 6c 6f 63 |ookupand|sub(bloc|
|000013b0| 6b 25 2c 74 6f 6b 65 6e | 24 2c 70 30 24 2c 70 31 |k%,token|$,p0$,p1|
|000013c0| 24 2c 70 32 24 2c 70 33 | 24 29 0d 00 89 0b ea 20 |$,p2$,p3|$)..... |
|000013d0| 73 69 7a 65 25 0d 00 8a | 6b c8 99 20 22 4d 65 73 |size%...|k.. "Mes|
|000013e0| 73 61 67 65 54 72 61 6e | 73 5f 4c 6f 6f 6b 75 70 |sageTran|s_Lookup|
|000013f0| 22 2c 62 6c 6f 63 6b 25 | 2c 74 6f 6b 65 6e 24 2c |",block%|,token$,|
|00001400| 5f 6d 65 73 73 61 67 65 | 5f 62 75 66 25 2c a4 73 |_message|_buf%,.s|
|00001410| 69 7a 65 5f 6f 66 28 5f | 6d 65 73 73 61 67 65 5f |ize_of(_|message_|
|00001420| 62 75 66 25 29 2c 70 30 | 24 2c 70 31 24 2c 70 32 |buf%),p0|$,p1$,p2|
|00001430| 24 2c 70 33 24 20 b8 20 | 2c 2c 2c 73 69 7a 65 25 |$,p3$ . |,,,size%|
|00001440| 0d 00 8b 47 e7 20 73 69 | 7a 65 25 3e 3d a4 73 69 |...G. si|ze%>=.si|
|00001450| 7a 65 5f 6f 66 28 5f 6d | 65 73 73 61 67 65 5f 62 |ze_of(_m|essage_b|
|00001460| 75 66 25 29 20 8c 20 85 | 20 30 2c 22 54 72 61 6e |uf%) . .| 0,"Tran|
|00001470| 73 6c 61 74 65 64 20 6d | 65 73 73 61 67 65 20 74 |slated m|essage t|
|00001480| 6f 6f 20 62 69 67 22 0d | 00 8c 21 3d a4 6f 73 5f |oo big".|..!=.os_|
|00001490| 67 65 74 73 74 72 69 6e | 67 28 5f 6d 65 73 73 61 |getstrin|g(_messa|
|000014a0| 67 65 5f 62 75 66 25 29 | 0d 00 8d 04 0d 00 8e 1c |ge_buf%)|........|
|000014b0| 2a 7c 73 74 6f 70 20 46 | 4e 6d 65 73 73 61 67 65 |*|stop F|Nmessage|
|000014c0| 5f 6c 6f 6f 6b 75 70 34 | 0d 00 8f 04 0d 00 90 1d |_lookup4|........|
|000014d0| 2a 7c 73 74 61 72 74 20 | 50 52 4f 43 6d 65 73 73 |*|start |PROCmess|
|000014e0| 61 67 65 5f 65 72 72 6f | 72 0d 00 91 44 2a 7c 21 |age_erro|r...D*|!|
|000014f0| 50 52 4f 43 6d 65 73 73 | 61 67 65 5f 65 72 72 6f |PROCmess|age_erro|
|00001500| 72 28 20 68 61 6e 64 6c | 65 20 2c 20 66 61 74 61 |r( handl|e , fata|
|00001510| 6c 20 2c 20 65 72 72 2d | 6e 75 6d 20 2c 20 6d 65 |l , err-|num , me|
|00001520| 73 73 61 67 65 5f 74 6f | 6b 65 6e 20 29 0d 00 92 |ssage_to|ken )...|
|00001530| 07 2a 7c 21 0d 00 93 41 | 2a 7c 21 54 68 69 73 20 |.*|!...A|*|!This |
|00001540| 72 6f 75 74 69 6e 65 20 | 74 72 61 6e 73 6c 61 74 |routine |translat|
|00001550| 65 73 20 74 68 65 20 67 | 69 76 65 6e 20 74 6f 6b |es the g|iven tok|
|00001560| 65 6e 20 75 73 69 6e 67 | 20 74 68 65 20 6d 65 73 |en using| the mes|
|00001570| 73 61 67 65 73 0d 00 94 | 3e 2a 7c 21 66 69 6c 65 |sages...|>*|!file|
|00001580| 20 61 6e 64 20 74 68 65 | 6e 20 63 61 6c 6c 73 20 | and the|n calls |
|00001590| 50 52 4f 43 77 69 6d 70 | 5f 65 72 72 6f 72 20 74 |PROCwimp|_error t|
|000015a0| 6f 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 65 72 |o displa|y the er|
|000015b0| 72 6f 72 0d 00 95 1b 2a | 7c 21 69 6e 20 74 68 65 |ror....*||!in the|
|000015c0| 20 73 74 61 6e 64 61 72 | 64 20 77 61 79 2e 0d 00 | standar|d way...|
|000015d0| 96 2f dd 20 f2 6d 65 73 | 73 61 67 65 5f 65 72 72 |./. .mes|sage_err|
|000015e0| 6f 72 28 62 6c 6f 63 6b | 25 2c 66 61 74 61 6c 25 |or(block|%,fatal%|
|000015f0| 2c 65 72 72 25 2c 74 6f | 6b 65 6e 24 29 0d 00 97 |,err%,to|ken$)...|
|00001600| 3b f2 77 69 6d 70 5f 65 | 72 72 6f 72 28 66 61 74 |;.wimp_e|rror(fat|
|00001610| 61 6c 25 2c 65 72 72 25 | 2c a4 6d 65 73 73 61 67 |al%,err%|,.messag|
|00001620| 65 5f 6c 6f 6f 6b 75 70 | 28 62 6c 6f 63 6b 25 2c |e_lookup|(block%,|
|00001630| 74 6f 6b 65 6e 24 29 29 | 0d 00 98 05 e1 0d 00 99 |token$))|........|
|00001640| 04 0d 00 9a 1c 2a 7c 73 | 74 6f 70 20 50 52 4f 43 |.....*|s|top PROC|
|00001650| 6d 65 73 73 61 67 65 5f | 65 72 72 6f 72 0d 00 9b |message_|error...|
|00001660| 04 0d 00 9c 20 2a 7c 73 | 74 61 72 74 20 50 52 4f |.... *|s|tart PRO|
|00001670| 43 6d 65 73 73 61 67 65 | 5f 6d 61 6b 65 6d 65 6e |Cmessage|_makemen|
|00001680| 75 0d 00 9d 4d 2a 7c 21 | 50 52 4f 43 6d 65 73 73 |u...M*|!|PROCmess|
|00001690| 61 67 65 5f 6d 61 6b 65 | 6d 65 6e 75 28 20 68 61 |age_make|menu( ha|
|000016a0| 6e 64 6c 65 20 2c 20 74 | 69 74 6c 65 20 2c 20 6d |ndle , t|itle , m|
|000016b0| 65 6e 75 20 2c 20 65 6e | 74 72 69 65 73 28 29 20 |enu , en|tries() |
|000016c0| 2c 20 6c 61 73 74 5f 65 | 6e 74 72 79 20 29 0d 00 |, last_e|ntry )..|
|000016d0| 9e 07 2a 7c 21 0d 00 9f | 4e 2a 7c 21 54 68 69 73 |..*|!...|N*|!This|
|000016e0| 20 72 6f 75 74 69 6e 65 | 20 63 72 65 61 74 65 73 | routine| creates|
|000016f0| 20 61 20 6d 65 6e 75 20 | 75 73 69 6e 67 20 50 52 | a menu |using PR|
|00001700| 4f 43 6d 65 6e 75 5f 6d | 61 6b 65 6d 65 6e 75 2e |OCmenu_m|akemenu.|
|00001710| 20 42 65 66 6f 72 20 63 | 61 6c 6c 69 6e 67 20 74 | Befor c|alling t|
|00001720| 68 69 73 0d 00 a0 4f 2a | 7c 21 72 6f 75 74 69 6e |his...O*||!routin|
|00001730| 65 2c 20 69 74 20 74 72 | 61 6e 73 6c 61 74 65 73 |e, it tr|anslates|
|00001740| 20 74 68 65 20 6d 65 6e | 75 20 74 69 74 6c 65 20 | the men|u title |
|00001750| 61 6e 64 20 65 61 63 68 | 20 6f 66 20 74 68 65 20 |and each| of the |
|00001760| 6d 65 6e 75 20 65 6e 74 | 72 69 65 73 20 75 73 69 |menu ent|ries usi|
|00001770| 6e 67 0d 00 a1 22 2a 7c | 21 74 68 65 20 73 70 65 |ng..."*||!the spe|
|00001780| 63 69 66 69 65 64 20 6d | 65 73 73 61 67 65 20 66 |cified m|essage f|
|00001790| 69 6c 65 2e 0d 00 a2 3d | dd 20 f2 6d 65 73 73 61 |ile....=|. .messa|
|000017a0| 67 65 5f 6d 61 6b 65 6d | 65 6e 75 28 62 6c 6f 63 |ge_makem|enu(bloc|
|000017b0| 6b 25 2c 74 69 74 6c 65 | 24 2c 6d 65 6e 75 25 2c |k%,title|$,menu%,|
|000017c0| 65 6e 74 72 69 65 73 24 | 28 29 2c 6c 61 73 74 25 |entries$|(),last%|
|000017d0| 29 0d 00 a3 11 ea 20 49 | 25 2c 4a 25 2c 6c 24 2c |)..... I|%,J%,l$,|
|000017e0| 72 24 0d 00 a4 29 74 69 | 74 6c 65 24 3d a4 6d 65 |r$...)ti|tle$=.me|
|000017f0| 73 73 61 67 65 5f 6c 6f | 6f 6b 75 70 28 62 6c 6f |ssage_lo|okup(blo|
|00001800| 63 6b 25 2c 74 69 74 6c | 65 24 29 0d 00 a5 12 e3 |ck%,titl|e$).....|
|00001810| 20 49 25 3d 30 20 b8 20 | 6c 61 73 74 25 0d 00 a6 | I%=0 . |last%...|
|00001820| 0a 20 20 4a 25 3d 30 0d | 00 a7 07 20 20 f5 0d 00 |.  J%=0.|...  ...|
|00001830| a8 0d 20 20 20 20 4a 25 | 2b 3d 31 0d 00 a9 3a 20 |..    J%|+=1...: |
|00001840| 20 fd 20 a7 22 2f 5f 40 | 3c 3e 22 2c c1 65 6e 74 | . ."/_@|<>",.ent|
|00001850| 72 69 65 73 24 28 49 25 | 29 2c 4a 25 2c 31 29 29 |ries$(I%|),J%,1))|
|00001860| 20 84 20 4a 25 3d a9 28 | 65 6e 74 72 69 65 73 24 | . J%=.(|entries$|
|00001870| 28 49 25 29 29 0d 00 aa | 27 20 20 e7 20 a7 22 2f |(I%))...|'  . ."/|
|00001880| 5f 40 3c 3e 22 2c c1 65 | 6e 74 72 69 65 73 24 28 |_@<>",.e|ntries$(|
|00001890| 49 25 29 2c 4a 25 2c 31 | 29 29 20 8c 0d 00 ab 1e |I%),J%,1|)) .....|
|000018a0| 20 20 20 20 6c 24 3d c0 | 65 6e 74 72 69 65 73 24 |    l$=.|entries$|
|000018b0| 28 49 25 29 2c 4a 25 2d | 31 29 0d 00 ac 1e 20 20 |(I%),J%-|1)....  |
|000018c0| 20 20 72 24 3d c1 65 6e | 74 72 69 65 73 24 28 49 |  r$=.en|tries$(I|
|000018d0| 25 29 2c 4a 25 2b 31 29 | 0d 00 ad 07 20 20 cc 0d |%),J%+1)|....  ..|
|000018e0| 00 ae 1d 20 20 20 20 6c | 24 3d 65 6e 74 72 69 65 |...    l|$=entrie|
|000018f0| 73 24 28 49 25 29 3a 72 | 24 3d 22 22 0d 00 af 07 |s$(I%):r|$=""....|
|00001900| 20 20 cd 0d 00 b0 30 20 | 20 65 6e 74 72 69 65 73 |  ....0 | entries|
|00001910| 24 28 49 25 29 3d a4 6d | 65 73 73 61 67 65 5f 6c |$(I%)=.m|essage_l|
|00001920| 6f 6f 6b 75 70 28 62 6c | 6f 63 6b 25 2c 6c 24 29 |ookup(bl|ock%,l$)|
|00001930| 2b 72 24 0d 00 b1 08 ed | 20 49 25 0d 00 b2 31 f2 |+r$.....| I%...1.|
|00001940| 6d 65 6e 75 5f 6d 61 6b | 65 6d 65 6e 75 28 74 69 |menu_mak|emenu(ti|
|00001950| 74 6c 65 24 2c 6d 65 6e | 75 25 2c 65 6e 74 72 69 |tle$,men|u%,entri|
|00001960| 65 73 24 28 29 2c 6c 61 | 73 74 25 29 0d 00 b3 05 |es$(),la|st%)....|
|00001970| e1 0d 00 b4 04 0d 00 b5 | 1f 2a 7c 73 74 6f 70 20 |........|.*|stop |
|00001980| 50 52 4f 43 6d 65 73 73 | 61 67 65 5f 6d 61 6b 65 |PROCmess|age_make|
|00001990| 6d 65 6e 75 0d ff       |                         |menu..  |        |
+--------+-------------------------+-------------------------+--------+--------+