/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basconv / !BasConv / MenuLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 4d 65 6e 75 4c 69 62 0d |..... > |MenuLib.|
|00000010| 00 14 15 f4 20 4d 65 6e | 75 69 6e 67 20 6c 69 62 |.... Men|uing lib|
|00000020| 72 61 72 79 0d 00 1e 05 | 3a 0d 00 28 14 dd 20 a4 |rary....|:..(.. .|
|00000030| 63 72 6d 65 6e 75 28 6d | 65 6e 75 24 29 0d 00 32 |crmenu(m|enu$)..2|
|00000040| 34 e7 20 6d 65 6e 75 66 | 72 65 65 25 2b 32 38 20 |4. menuf|ree%+28 |
|00000050| 3e 20 6d 65 6e 75 65 6e | 64 25 20 8c 20 85 20 31 |> menuen|d% . . 1|
|00000060| 2c 22 4d 65 6e 75 20 61 | 72 65 61 20 66 75 6c 6c |,"Menu a|rea full|
|00000070| 22 0d 00 3c 23 ea 20 6d | 25 2c 69 25 3a 6d 65 6e |"..<#. m|%,i%:men|
|00000080| 75 70 74 72 25 3d 6d 65 | 6e 75 66 72 65 65 25 3a |uptr%=me|nufree%:|
|00000090| 69 25 3d 30 0d 00 46 3f | e7 20 c0 6d 65 6e 75 24 |i%=0..F?|. .menu$|
|000000a0| 2c 31 29 3d 22 23 22 20 | 8c 20 69 25 3d 31 3a 6d |,1)="#" |. i%=1:m|
|000000b0| 65 6e 75 74 69 74 6c 65 | 24 3d a4 70 61 72 28 22 |enutitle|$=.par("|
|000000c0| 2c 22 29 20 8b 20 6d 65 | 6e 75 74 69 74 6c 65 24 |,") . me|nutitle$|
|000000d0| 3d 22 22 0d 00 50 ff 24 | 6d 65 6e 75 70 74 72 25 |=""..P.$|menuptr%|
|000000e0| 3d 6d 65 6e 75 74 69 74 | 6c 65 24 3a 6d 65 6e 75 |=menutit|le$:menu|
|000000f0| 70 74 72 25 3f 31 32 3d | 60 74 66 63 6f 6c 3a 6d |ptr%?12=|`tfcol:m|
|00000100| 65 6e 75 70 74 72 25 3f | 31 33 3d 32 3a 6d 65 6e |enuptr%?|13=2:men|
|00000110| 75 70 74 72 25 3f 31 34 | 3d 60 77 66 63 6f 6c 3a |uptr%?14|=`wfcol:|
|00000120| 6d 65 6e 75 70 74 72 25 | 3f 31 35 3d 60 77 62 63 |menuptr%|?15=`wbc|
|00000130| 6f 6c 3a 6d 65 6e 75 70 | 74 72 25 21 31 36 3d 31 |ol:menup|tr%!16=1|
|00000140| 39 36 2d 32 34 3a 6d 65 | 6e 75 70 74 72 25 21 32 |96-24:me|nuptr%!2|
|00000150| 30 3d 34 34 3a 6d 65 6e | 75 70 74 72 25 21 32 34 |0=44:men|uptr%!24|
|00000160| 3d 30 3a 6d 65 6e 75 70 | 74 72 25 2b 3d 32 38 3a |=0:menup|tr%+=28:|
|00000170| 6d 61 78 78 25 3d a9 6d | 65 6e 75 74 69 74 6c 65 |maxx%=.m|enutitle|
|00000180| 24 2d 33 3a f5 20 69 74 | 65 6d 24 3d a4 70 61 72 |$-3:. it|em$=.par|
|00000190| 28 22 2c 22 29 3a f2 6d | 65 6e 75 69 74 65 6d 28 |(","):.m|enuitem(|
|000001a0| 69 74 65 6d 24 29 3a fd | 20 69 74 65 6d 24 3d 22 |item$):.| item$="|
|000001b0| 22 3a 6d 25 3d 6d 65 6e | 75 66 72 65 65 25 3a 6d |":m%=men|ufree%:m|
|000001c0| 25 21 31 36 3d 28 6d 61 | 78 78 25 2a 38 2b 36 29 |%!16=(ma|xx%*8+6)|
|000001d0| 2a 32 0d 00 5a 1a 6d 65 | 6e 75 66 72 65 65 25 3d |*2..Z.me|nufree%=|
|000001e0| 6d 65 6e 75 70 74 72 25 | 3a 3d 6d 25 0d 00 64 45 |menuptr%|:=m%..dE|
|000001f0| dd 20 f2 6d 65 6e 75 69 | 74 65 6d 28 74 65 78 74 |. .menui|tem(text|
|00000200| 24 29 3a e7 20 74 65 78 | 74 24 3d 22 22 20 8c 20 |$):. tex|t$="" . |
|00000210| 6d 65 6e 75 70 74 72 25 | 21 2d 32 34 3d 28 6d 65 |menuptr%|!-24=(me|
|00000220| 6e 75 70 74 72 25 21 2d | 32 34 29 84 26 38 30 3a |nuptr%!-|24).&80:|
|00000230| e1 0d 00 6e 33 e7 20 6d | 65 6e 75 70 74 72 25 2b |...n3. m|enuptr%+|
|00000240| 32 34 20 3e 20 6d 65 6e | 75 65 6e 64 25 20 8c 20 |24 > men|uend% . |
|00000250| 85 20 31 2c 22 4d 65 6e | 75 20 61 72 65 61 20 66 |. 1,"Men|u area f|
|00000260| 75 6c 6c 22 0d 00 78 40 | ea 69 25 2c 66 6c 67 25 |ull"..x@|.i%,flg%|
|00000270| 2c 56 25 3a 66 6c 67 25 | 3d 26 30 30 3a e7 c0 74 |,V%:flg%|=&00:..t|
|00000280| 65 78 74 24 2c 31 29 3d | 22 21 22 20 66 6c 67 25 |ext$,1)=|"!" flg%|
|00000290| 3d 26 30 38 3a 74 65 78 | 74 24 3d c1 74 65 78 74 |=&08:tex|t$=.text|
|000002a0| 24 2c 32 29 0d 00 82 45 | 69 25 3d a7 74 65 78 74 |$,2)...E|i%=.text|
|000002b0| 24 2c 22 3e 22 29 3a e7 | 20 c2 74 65 78 74 24 2c |$,">"):.| .text$,|
|000002c0| 31 29 3d 22 23 22 20 8c | 20 74 65 78 74 24 3d c0 |1)="#" .| text$=.|
|000002d0| 74 65 78 74 24 2c a9 74 | 65 78 74 24 2d 31 29 3a |text$,.t|ext$-1):|
|000002e0| 66 6c 67 25 2b 3d 26 30 | 32 0d 00 8c 3d e7 69 25 |flg%+=&0|2...=.i%|
|000002f0| 3e 30 8c 73 75 62 70 74 | 72 25 3d a0 c1 74 65 78 |>0.subpt|r%=..tex|
|00000300| 74 24 2c 69 25 2b 31 29 | 3a 74 65 78 74 24 3d c0 |t$,i%+1)|:text$=.|
|00000310| 74 65 78 74 24 2c 69 25 | 2d 31 29 8b 73 75 62 70 |text$,i%|-1).subp|
|00000320| 74 72 25 3d 2d 31 0d 00 | 96 4b 6d 65 6e 75 70 74 |tr%=-1..|.Kmenupt|
|00000330| 72 25 21 30 3d 66 6c 67 | 25 3a 6d 65 6e 75 70 74 |r%!0=flg|%:menupt|
|00000340| 72 25 21 34 3d 73 75 62 | 70 74 72 25 3a 6d 65 6e |r%!4=sub|ptr%:men|
|00000350| 75 70 74 72 25 21 38 3d | 26 30 37 30 30 30 30 32 |uptr%!8=|&0700002|
|00000360| 31 3a e7 c0 74 65 78 74 | 24 2c 31 29 3d 22 24 22 |1:..text|$,1)="$"|
|00000370| 8c 0d 00 a0 33 20 21 6d | 65 6e 75 70 74 72 25 2b |....3 !m|enuptr%+|
|00000380| 3d 26 30 34 3a 6d 65 6e | 75 70 74 72 25 21 38 2b |=&04:men|uptr%!8+|
|00000390| 3d 26 31 30 38 3a 69 25 | 3d a7 74 65 78 74 24 2c |=&108:i%|=.text$,|
|000003a0| 22 28 22 29 0d 00 aa 36 | 20 e7 69 25 3e 30 20 8c |"(")...6| .i%>0 .|
|000003b0| 20 4c 25 3d bb c1 74 65 | 78 74 24 2c 69 25 2b 31 | L%=..te|xt$,i%+1|
|000003c0| 29 3a 74 65 78 74 24 3d | c0 74 65 78 74 24 2c 69 |):text$=|.text$,i|
|000003d0| 25 2d 31 29 8b 4c 25 3d | 31 32 0d 00 b4 50 20 56 |%-1).L%=|12...P V|
|000003e0| 25 20 3d 20 2d 31 3a 6d | 65 6e 75 70 74 72 25 21 |% = -1:m|enuptr%!|
|000003f0| 31 32 3d a0 c1 74 65 78 | 74 24 2c 32 29 3a 6d 65 |12=..tex|t$,2):me|
|00000400| 6e 75 70 74 72 25 21 31 | 36 3d 2d 31 3a 6d 65 6e |nuptr%!1|6=-1:men|
|00000410| 75 70 74 72 25 21 32 30 | 3d 4c 25 3a 74 65 78 74 |uptr%!20|=L%:text|
|00000420| 24 3d c4 4c 25 2c 22 20 | 22 29 0d 00 be 1a 20 e7 |$=.L%," |").... .|
|00000430| 20 6d 61 78 78 25 3c 32 | 30 20 8c 20 6d 61 78 78 | maxx%<2|0 . maxx|
|00000440| 25 3d 32 30 0d 00 c8 05 | cc 0d 00 d2 11 20 e7 a9 |%=20....|..... ..|
|00000450| 74 65 78 74 24 3c 3d 31 | 32 8c 0d 00 dc 1a 20 20 |text$<=1|2.....  |
|00000460| 24 28 6d 65 6e 75 70 74 | 72 25 2b 31 32 29 3d 74 |$(menupt|r%+12)=t|
|00000470| 65 78 74 24 0d 00 e6 28 | 20 cc 20 49 25 3d a4 77 |ext$...(| . I%=.w|
|00000480| 6f 72 6b 73 70 61 63 65 | 28 a9 74 65 78 74 24 2b |orkspace|(.text$+|
|00000490| 31 29 3a 24 49 25 3d 74 | 65 78 74 24 0d 00 f0 38 |1):$I%=t|ext$...8|
|000004a0| 20 20 6d 65 6e 75 70 74 | 72 25 21 31 32 3d 49 25 |  menupt|r%!12=I%|
|000004b0| 3a 6d 65 6e 75 70 74 72 | 25 21 31 36 3d 2d 31 3a |:menuptr|%!16=-1:|
|000004c0| 6d 65 6e 75 70 74 72 25 | 21 32 30 3d a9 74 65 78 |menuptr%|!20=.tex|
|000004d0| 74 24 2b 31 0d 00 fa 22 | 20 20 6d 65 6e 75 70 74 |t$+1..."|  menupt|
|000004e0| 72 25 21 38 3d 6d 65 6e | 75 70 74 72 25 21 38 20 |r%!8=men|uptr%!8 |
|000004f0| 84 20 26 31 30 30 0d 01 | 04 06 20 cd 0d 01 0e 1f |. &100..|.. .....|
|00000500| e7 a9 74 65 78 74 24 3e | 6d 61 78 78 25 20 8c 6d |..text$>|maxx% .m|
|00000510| 61 78 78 25 3d a9 74 65 | 78 74 24 0d 01 18 15 cd |axx%=.te|xt$.....|
|00000520| 3a 6d 65 6e 75 70 74 72 | 25 2b 3d 32 34 3a e1 3a |:menuptr|%+=24:.:|
|00000530| 0d 01 22 20 dd 20 f2 73 | 68 61 64 65 28 6d 65 6e |.." . .s|hade(men|
|00000540| 75 68 61 6e 64 6c 65 25 | 2c 20 69 74 65 6d 25 29 |uhandle%|, item%)|
|00000550| 0d 01 2c 45 6d 65 6e 75 | 68 61 6e 64 6c 65 25 21 |..,Emenu|handle%!|
|00000560| 28 32 38 2b 38 2b 32 34 | 2a 69 74 65 6d 25 29 3d |(28+8+24|*item%)=|
|00000570| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 21 28 32 38 2b |menuhand|le%!(28+|
|00000580| 38 2b 32 34 2a 69 74 65 | 6d 25 29 82 26 34 30 30 |8+24*ite|m%).&400|
|00000590| 30 30 30 3a e1 0d 01 36 | 5a dd 20 a4 73 68 61 64 |000:...6|Z. .shad|
|000005a0| 65 5f 73 74 61 74 75 73 | 28 6d 65 6e 75 68 61 6e |e_status|(menuhan|
|000005b0| 64 6c 65 25 2c 69 74 65 | 6d 25 29 20 3d 20 28 28 |dle%,ite|m%) = ((|
|000005c0| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 21 28 32 38 2b |menuhand|le%!(28+|
|000005d0| 38 2b 32 34 2a 69 74 65 | 6d 25 29 20 80 20 26 34 |8+24*ite|m%) . &4|
|000005e0| 30 30 30 30 30 29 3d 26 | 34 30 30 30 30 30 29 0d |00000)=&|400000).|
|000005f0| 01 40 32 dd 20 f2 73 65 | 74 5f 73 68 61 64 65 28 |.@2. .se|t_shade(|
|00000600| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 2c 20 69 74 65 |menuhand|le%, ite|
|00000610| 6d 25 2c 20 76 61 6c 75 | 65 25 29 3a ea 20 73 74 |m%, valu|e%):. st|
|00000620| 25 0d 01 4a 2b 73 74 25 | 20 3d 20 a4 73 68 61 64 |%..J+st%| = .shad|
|00000630| 65 5f 73 74 61 74 75 73 | 28 6d 65 6e 75 68 61 6e |e_status|(menuhan|
|00000640| 64 6c 65 25 2c 20 69 74 | 65 6d 25 29 0d 01 54 30 |dle%, it|em%)..T0|
|00000650| e7 20 76 61 6c 75 65 25 | 20 3c 3e 20 73 74 25 20 |. value%| <> st% |
|00000660| 8c 20 f2 73 68 61 64 65 | 28 6d 65 6e 75 68 61 6e |. .shade|(menuhan|
|00000670| 64 6c 65 25 2c 20 69 74 | 65 6d 25 29 0d 01 5e 06 |dle%, it|em%)..^.|
|00000680| e1 3a 0d 01 68 1e dd 20 | f2 74 69 63 6b 28 6d 65 |.:..h.. |.tick(me|
|00000690| 6e 75 68 61 6e 64 6c 65 | 25 2c 69 74 65 6d 25 29 |nuhandle|%,item%)|
|000006a0| 0d 01 72 3d 6d 65 6e 75 | 68 61 6e 64 6c 65 25 21 |..r=menu|handle%!|
|000006b0| 28 32 38 2b 32 34 2a 69 | 74 65 6d 25 29 3d 6d 65 |(28+24*i|tem%)=me|
|000006c0| 6e 75 68 61 6e 64 6c 65 | 25 21 28 32 38 2b 32 34 |nuhandle|%!(28+24|
|000006d0| 2a 69 74 65 6d 25 29 82 | 26 30 31 3a e1 0d 01 7c |*item%).|&01:...||
|000006e0| 44 dd 20 a4 74 69 63 6b | 5f 73 74 61 74 75 73 28 |D. .tick|_status(|
|000006f0| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 2c 20 69 74 65 |menuhand|le%, ite|
|00000700| 6d 25 29 20 3d 20 6d 65 | 6e 75 68 61 6e 64 6c 65 |m%) = me|nuhandle|
|00000710| 25 21 28 32 38 2b 32 34 | 2a 69 74 65 6d 25 29 80 |%!(28+24|*item%).|
|00000720| 31 0d 01 86 2b dd 20 f2 | 73 65 74 5f 74 69 63 6b |1...+. .|set_tick|
|00000730| 28 6d 65 6e 75 68 61 6e | 64 6c 65 25 2c 20 69 74 |(menuhan|dle%, it|
|00000740| 65 6d 25 2c 20 76 61 6c | 75 65 25 29 0d 01 90 4a |em%, val|ue%)...J|
|00000750| e7 20 a4 74 69 63 6b 5f | 73 74 61 74 75 73 28 6d |. .tick_|status(m|
|00000760| 65 6e 75 68 61 6e 64 6c | 65 25 2c 20 69 74 65 6d |enuhandl|e%, item|
|00000770| 25 29 3c 3e 76 61 6c 75 | 65 25 20 8c 20 f2 74 69 |%)<>valu|e% . .ti|
|00000780| 63 6b 28 6d 65 6e 75 68 | 61 6e 64 6c 65 25 2c 20 |ck(menuh|andle%, |
|00000790| 69 74 65 6d 25 29 0d 01 | 9a 06 e1 3a 0d 01 a4 39 |item%)..|...:...9|
|000007a0| dd f2 74 69 63 6b 69 74 | 28 6d 65 6e 75 25 2c 20 |..tickit|(menu%, |
|000007b0| 69 74 65 6d 25 2c 20 6e | 69 74 65 6d 73 25 29 3a |item%, n|items%):|
|000007c0| ea 20 49 25 3a e3 20 49 | 25 3d 30 20 b8 20 6e 69 |. I%:. I|%=0 . ni|
|000007d0| 74 65 6d 73 25 0d 01 ae | 3b f2 73 65 74 5f 74 69 |tems%...|;.set_ti|
|000007e0| 63 6b 28 6d 65 6e 75 25 | 2c 20 49 25 2c 20 30 29 |ck(menu%|, I%, 0)|
|000007f0| 3a ed 3a f2 73 65 74 5f | 74 69 63 6b 28 6d 65 6e |:.:.set_|tick(men|
|00000800| 75 25 2c 20 69 74 65 6d | 25 2c 20 31 29 3a e1 3a |u%, item|%, 1):.:|
|00000810| 0d 01 b8 21 dd 20 a4 77 | 6f 72 6b 73 70 61 63 65 |...!. .w|orkspace|
|00000820| 28 4c 25 29 3a de 20 4c | 25 20 4c 25 3a 3d 20 4c |(L%):. L|% L%:= L|
|00000830| 25 0d ff                |                         |%..     |        |
+--------+-------------------------+-------------------------+--------+--------+