home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-07-04 | 6.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 0e 74 65 73 74 | 69 6e 67 25 3d a3 0d 00 |....test|ing%=...|
|00000020| 1e 29 c8 9b 20 22 3c 42 | 61 73 69 63 4c 69 62 72 |.).. "<B|asicLibr|
|00000030| 61 72 79 24 46 69 6c 65 | 3e 22 3a f2 69 6e 69 74 |ary$File|>":.init|
|00000040| 6c 69 62 72 61 72 79 0d | 00 28 46 ee 20 85 20 f2 |library.|.(F. . .|
|00000050| 63 6c 6f 73 65 6d 65 73 | 73 61 67 65 73 3a f6 3a |closemes|sages:.:|
|00000060| f1 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 3a e7 |." at li|ne ";.:.|
|00000070| 20 74 65 73 74 69 6e 67 | 25 3d b9 20 8c ff 28 22 | testing|%=. ..("|
|00000080| 53 70 6f 6f 6c 22 29 3a | e0 20 8b 20 e0 0d 00 32 |Spool"):|. . ...2|
|00000090| 20 e7 20 74 65 73 74 69 | 6e 67 25 3d b9 20 8c 2a | . testi|ng%=. .*|
|000000a0| 53 70 6f 6f 6c 20 53 70 | 6f 6f 6c 65 64 0d 00 3c |Spool Sp|ooled..<|
|000000b0| 15 e7 20 74 65 73 74 69 | 6e 67 25 3d b9 20 8c fc |.. testi|ng%=. ..|
|000000c0| 20 ee 0d 00 46 35 f4 20 | 41 70 70 6e 61 6d 65 24 | ...F5. |Appname$|
|000000d0| 20 69 73 20 75 73 65 64 | 20 66 6f 72 20 74 61 73 | is used| for tas|
|000000e0| 6b 20 6d 61 6e 61 67 65 | 72 20 26 20 41 70 70 6e |k manage|r & Appn|
|000000f0| 61 6d 65 24 44 69 72 0d | 00 50 29 f4 20 73 68 6f |ame$Dir.|.P). sho|
|00000100| 72 74 6e 61 6d 65 24 20 | 69 73 20 75 73 65 64 20 |rtname$ |is used |
|00000110| 66 6f 72 20 69 63 6f 6e | 62 61 72 20 6e 61 6d 65 |for icon|bar name|
|00000120| 0d 00 5a 27 f4 20 6c 6f | 6e 67 6e 61 6d 65 24 20 |..Z'. lo|ngname$ |
|00000130| 69 73 20 75 73 65 64 20 | 66 6f 72 20 69 6e 66 6f |is used |for info|
|00000140| 20 77 69 6e 64 6f 77 0d | 00 64 32 41 70 70 6e 61 | window.|.d2Appna|
|00000150| 6d 65 24 3d 22 43 6c 6f | 73 65 22 3a 76 65 72 73 |me$="Clo|se":vers|
|00000160| 69 6f 6e 24 3d 22 31 2e | 30 34 20 28 30 35 20 4a |ion$="1.|04 (05 J|
|00000170| 75 6c 20 31 39 39 36 29 | 22 0d 00 6e 3c 73 68 6f |ul 1996)|"..n<sho|
|00000180| 72 74 6e 61 6d 65 24 3d | 22 22 3a 6c 6f 6e 67 6e |rtname$=|"":longn|
|00000190| 61 6d 65 24 3d 22 43 6c | 6f 73 69 6e 67 20 66 69 |ame$="Cl|osing fi|
|000001a0| 6c 65 73 20 66 72 6f 6d | 20 74 68 65 20 64 65 73 |les from| the des|
|000001b0| 6b 74 6f 70 22 0d 00 78 | 27 41 70 70 64 69 72 24 |ktop"..x|'Appdir$|
|000001c0| 3d a4 73 79 73 74 65 6d | 76 61 72 28 41 70 70 6e |=.system|var(Appn|
|000001d0| 61 6d 65 24 2b 22 24 44 | 69 72 22 29 0d 00 82 17 |ame$+"$D|ir")....|
|000001e0| f2 69 6e 69 74 77 69 6d | 70 3a f2 69 6e 69 74 70 |.initwim|p:.initp|
|000001f0| 72 6f 67 0d 00 8c 0b 71 | 75 69 74 25 3d a3 0d 00 |rog....q|uit%=...|
|00000200| 96 15 ee 20 85 20 f2 65 | 72 72 6f 72 3a e5 20 8d |... . .e|rror:. .|
|00000210| 74 74 40 0d 00 a0 0f 67 | 6f 24 3d a4 47 65 74 45 |tt@....g|o$=.GetE|
|00000220| 6e 76 0d 00 aa 2c e7 20 | 67 6f 24 3c 3e 22 22 20 |nv...,. |go$<>"" |
|00000230| 8c f2 6c 6f 61 64 66 69 | 6c 65 28 67 6f 24 2c a4 |..loadfi|le(go$,.|
|00000240| 66 69 6c 65 74 79 70 65 | 28 67 6f 24 29 29 0d 00 |filetype|(go$))..|
|00000250| b4 0e c8 95 20 71 75 69 | 74 25 3d a3 0d 00 be 0a |.... qui|t%=.....|
|00000260| 20 f2 50 6f 6c 6c 0d 00 | c8 05 ce 0d 00 d2 19 f2 | .Poll..|........|
|00000270| 72 65 6c 65 61 73 65 28 | 6f 75 72 6d 65 6e 75 69 |release(|ourmenui|
|00000280| 6e 64 25 29 0d 00 dc 16 | f2 72 65 6c 65 61 73 65 |nd%)....|.release|
|00000290| 28 6f 75 72 6d 65 6e 75 | 25 29 0d 00 e6 17 c8 99 |(ourmenu|%)......|
|000002a0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e | "Wimp_C|loseDown|
|000002b0| 22 0d 00 f0 12 f2 63 6c | 6f 73 65 6d 65 73 73 61 |".....cl|osemessa|
|000002c0| 67 65 73 0d 00 fa 18 e7 | 20 74 65 73 74 69 6e 67 |ges.....| testing|
|000002d0| 25 3d b9 20 8c 2a 53 50 | 4f 4f 4c 0d 01 04 05 e0 |%=. .*SP|OOL.....|
|000002e0| 0d 01 0e 35 f4 20 71 75 | 69 74 25 3d 2d 31 20 66 |...5. qu|it%=-1 f|
|000002f0| 6f 72 20 75 73 65 72 20 | 71 75 69 74 2c 20 2d 32 |or user |quit, -2|
|00000300| 20 66 6f 72 20 74 61 73 | 6b 6d 61 6e 61 67 65 72 | for tas|kmanager|
|00000310| 20 71 75 69 74 0d 01 18 | 05 3a 0d 01 22 0a dd f2 | quit...|.:.."...|
|00000320| 50 6f 6c 6c 0d 01 2c 22 | c8 99 20 22 57 69 6d 70 |Poll..,"|.. "Wimp|
|00000330| 5f 50 6f 6c 6c 22 2c 25 | 31 2c 62 25 20 b8 20 72 |_Poll",%|1,b% . r|
|00000340| 65 61 73 6f 6e 25 0d 01 | 36 10 c8 8e 20 72 65 61 |eason%..|6... rea|
|00000350| 73 6f 6e 25 20 ca 0d 01 | 40 18 20 f4 20 31 20 3d |son% ...|@. . 1 =|
|00000360| 20 52 65 64 72 61 77 20 | 77 69 6e 64 6f 77 0d 01 | Redraw |window..|
|00000370| 4a 21 20 c9 20 32 3a c8 | 99 20 22 57 69 6d 70 5f |J! . 2:.|. "Wimp_|
|00000380| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 25 0d |OpenWind|ow",,b%.|
|00000390| 01 54 22 20 c9 20 33 3a | c8 99 20 22 57 69 6d 70 |.T" . 3:|.. "Wimp|
|000003a0| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|000003b0| 25 0d 01 5e 26 20 c9 20 | 36 3a f2 6d 6f 75 73 65 |%..^& . |6:.mouse|
|000003c0| 63 6c 69 63 6b 28 62 25 | 21 38 2c 62 25 21 31 32 |click(b%|!8,b%!12|
|000003d0| 2c 62 25 21 31 36 29 0d | 01 68 2b 20 f4 20 37 20 |,b%!16).|.h+ . 7 |
|000003e0| 3d 20 44 72 61 67 20 62 | 6f 78 20 64 72 6f 70 70 |= Drag b|ox dropp|
|000003f0| 65 64 20 6f 6e 20 61 6e | 6f 74 68 65 72 20 74 61 |ed on an|other ta|
|00000400| 73 6b 0d 01 72 16 20 f4 | 20 38 20 3d 20 50 72 6f |sk..r. .| 8 = Pro|
|00000410| 63 65 73 73 20 6b 65 79 | 0d 01 7c 14 20 c9 20 39 |cess key|..|. . 9|
|00000420| 3a f2 6d 65 6e 75 63 68 | 6f 69 63 65 0d 01 86 1c |:.menuch|oice....|
|00000430| 20 c9 20 31 37 2c 31 38 | 3a f2 72 65 63 65 69 76 | . 17,18|:.receiv|
|00000440| 65 28 62 25 21 31 36 29 | 0d 01 90 05 cb 0d 01 9a |e(b%!16)|........|
|00000450| 05 e1 0d 01 a4 05 3a 0d | 01 ae 30 f4 20 42 75 74 |......:.|..0. But|
|00000460| 74 6f 6e 73 20 3a 20 31 | 20 3d 20 41 64 6a 75 73 |tons : 1| = Adjus|
|00000470| 74 2c 20 32 20 3d 20 4d | 65 6e 75 2c 20 34 20 3d |t, 2 = M|enu, 4 =|
|00000480| 20 53 65 6c 65 63 74 0d | 01 b8 1e dd f2 6d 6f 75 | Select.|.....mou|
|00000490| 73 65 63 6c 69 63 6b 28 | 62 75 74 2c 77 69 6e 2c |seclick(|but,win,|
|000004a0| 69 63 6f 6e 29 0d 01 c2 | 0c c8 8e 20 77 69 6e 20 |icon)...|... win |
|000004b0| ca 0d 01 cc 09 20 c9 20 | 2d 32 0d 01 d6 0e 20 20 |..... . |-2.... |
|000004c0| c8 8e 20 62 75 74 20 ca | 0d 01 e0 12 20 20 20 c9 |.. but .|.... .|
|000004d0| 20 32 3a f2 69 62 6d 65 | 6e 75 0d 01 ea 1d 20 20 | 2:.ibme|nu.... |
|000004e0| 20 c9 20 31 2c 34 3a f2 | 63 72 65 61 74 65 63 6c | . 1,4:.|createcl|
|000004f0| 6f 73 65 6d 65 6e 75 0d | 01 f4 07 20 20 cb 0d 01 |osemenu.|... ...|
|00000500| fe 05 cb 0d 02 08 05 e1 | 0d 02 12 05 3a 0d 02 1c |........|....:...|
|00000510| 10 dd f2 6d 65 6e 75 63 | 68 6f 69 63 65 0d 02 26 |...menuc|hoice..&|
|00000520| 44 c8 99 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |D.."Wimp|_GetPoin|
|00000530| 74 65 72 49 6e 66 6f 22 | 2c 2c 6d 65 73 73 61 67 |terInfo"|,,messag|
|00000540| 65 5f 62 75 66 66 65 72 | 25 3a 6d 62 75 74 25 3d |e_buffer|%:mbut%=|
|00000550| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 21 |message_|buffer%!|
|00000560| 38 0d 02 30 1c 6d 24 3d | a4 64 65 63 6f 64 65 6d |8..0.m$=|.decodem|
|00000570| 65 6e 75 28 63 75 72 6d | 65 6e 75 25 29 0d 02 3a |enu(curm|enu%)..:|
|00000580| 0b c8 8e 20 6d 24 20 ca | 0d 02 44 15 20 c9 20 22 |... m$ .|..D. . "|
|00000590| 51 75 69 74 22 3a 71 75 | 69 74 25 3d b9 0d 02 4e |Quit":qu|it%=...N|
|000005a0| 05 cb 0d 02 58 1a e7 20 | 63 75 72 6d 65 6e 75 25 |....X.. |curmenu%|
|000005b0| 3d 63 6c 6f 73 65 6d 65 | 6e 75 20 8c 0d 02 62 12 |=closeme|nu ...b.|
|000005c0| 20 73 75 62 6d 65 6e 75 | 25 3d 62 25 21 30 0d 02 | submenu|%=b%!0..|
|000005d0| 6c 11 20 6f 70 74 69 6f | 6e 25 3d 62 25 21 34 0d |l. optio|n%=b%!4.|
|000005e0| 02 76 23 20 e7 20 6f 70 | 74 69 6f 6e 25 3c 3e 2d |.v# . op|tion%<>-|
|000005f0| 31 20 80 20 73 75 62 6d | 65 6e 75 25 3c 3e 2d 31 |1 . subm|enu%<>-1|
|00000600| 20 8c 0d 02 80 28 20 20 | 6d 65 6e 75 70 74 72 25 | ....( |menuptr%|
|00000610| 3d 63 75 72 6d 65 6e 75 | 25 21 28 33 32 2b 32 34 |=curmenu|%!(32+24|
|00000620| 2a 73 75 62 6d 65 6e 75 | 25 29 0d 02 8a 24 20 20 |*submenu|%)...$ |
|00000630| f2 6d 65 6e 75 73 68 61 | 64 65 28 6d 65 6e 75 70 |.menusha|de(menup|
|00000640| 74 72 25 2c 6f 70 74 69 | 6f 6e 25 2c 31 29 0d 02 |tr%,opti|on%,1)..|
|00000650| 94 12 20 20 f2 64 6f 63 | 6c 6f 73 65 28 6d 24 29 |.. .doc|lose(m$)|
|00000660| 0d 02 9e 2c 20 20 2a 7c | 50 52 4f 43 6d 61 6b 65 |..., *||PROCmake|
|00000670| 63 6c 6f 73 65 6d 65 6e | 75 3a 63 75 72 6d 65 6e |closemen|u:curmen|
|00000680| 75 25 3d 63 6c 6f 73 65 | 6d 65 6e 75 0d 02 a8 06 |u%=close|menu....|
|00000690| 20 cd 0d 02 b2 05 cd 0d | 02 bc 2d e7 20 28 6d 62 | .......|..-. (mb|
|000006a0| 75 74 25 80 31 29 3d 31 | 20 8c f2 72 65 63 72 65 |ut%.1)=1| ..recre|
|000006b0| 61 74 65 6d 65 6e 75 20 | 8b 63 75 72 6d 65 6e 75 |atemenu |.curmenu|
|000006c0| 25 3d 2d 31 0d 02 c6 05 | e1 0d 02 d0 05 3a 0d 02 |%=-1....|.....:..|
|000006d0| da 13 dd f2 72 65 63 65 | 69 76 65 28 6d 65 73 73 |....rece|ive(mess|
|000006e0| 29 0d 02 e4 0d c8 8e 20 | 6d 65 73 73 20 ca 0d 02 |)...... |mess ...|
|000006f0| ee 1b 20 f4 20 26 34 30 | 30 43 31 20 3d 20 6d 6f |.. . &40|0C1 = mo|
|00000700| 64 65 20 63 68 61 6e 67 | 65 0d 02 f8 0d 20 c9 20 |de chang|e.... . |
|00000710| 26 34 30 30 43 32 0d 03 | 02 37 20 20 e7 20 a4 73 |&400C2..|.7 . .s|
|00000720| 74 72 69 6e 67 30 28 62 | 25 2b 32 38 29 3d 41 70 |tring0(b|%+28)=Ap|
|00000730| 70 6e 61 6d 65 24 20 80 | 62 25 21 34 3c 3e 68 61 |pname$ .|b%!4<>ha|
|00000740| 6e 64 6c 65 20 8c 71 75 | 69 74 25 3d b9 0d 03 0c |ndle .qu|it%=....|
|00000750| 1d 20 f4 20 26 34 30 30 | 43 32 20 3d 20 74 61 73 |. . &400|C2 = tas|
|00000760| 6b 20 73 74 61 72 74 20 | 75 70 0d 03 16 1e 20 f4 |k start |up.... .|
|00000770| 20 26 34 30 30 43 33 20 | 3d 20 74 61 73 6b 20 73 | &400C3 |= task s|
|00000780| 68 75 74 20 64 6f 77 6e | 0d 03 20 12 20 c9 20 30 |hut down|.. . . 0|
|00000790| 3a 71 75 69 74 25 3d b9 | 2a 32 0d 03 2a 15 20 c9 |:quit%=.|*2..*. .|
|000007a0| 20 33 2c 35 3a 74 79 70 | 65 3d 62 25 21 34 30 0d | 3,5:typ|e=b%!40.|
|000007b0| 03 34 16 20 20 e7 20 74 | 79 70 65 20 3d 20 26 38 |.4. . t|ype = &8|
|000007c0| 38 38 38 20 8c 0d 03 3e | 11 20 20 20 e7 20 6d 65 |888 ...>|. . me|
|000007d0| 73 73 3d 35 20 8c 0d 03 | 48 1a 20 20 20 20 62 25 |ss=5 ...|H. b%|
|000007e0| 21 31 32 3d 62 25 21 38 | 3a 62 25 21 31 36 3d 34 |!12=b%!8|:b%!16=4|
|000007f0| 0d 03 52 27 20 20 20 20 | c8 99 22 57 69 6d 70 5f |..R' |.."Wimp_|
|00000800| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|00000810| 62 25 2c 62 25 21 34 0d | 03 5c 08 20 20 20 cd 0d |b%,b%!4.|.\. ..|
|00000820| 03 66 27 20 20 20 f2 6c | 6f 61 64 66 69 6c 65 28 |.f' .l|oadfile(|
|00000830| a4 73 74 72 69 6e 67 30 | 28 62 25 2b 34 34 29 2c |.string0|(b%+44),|
|00000840| 62 25 21 34 30 29 0d 03 | 70 07 20 20 cd 0d 03 7a |b%!40)..|p. ...z|
|00000850| 23 20 c9 20 26 35 30 32 | 3a f2 48 65 6c 70 28 62 |# . &502|:.Help(b|
|00000860| 25 21 33 32 2c 62 25 21 | 33 36 2c 62 25 21 34 29 |%!32,b%!|36,b%!4)|
|00000870| 0d 03 84 1d 20 c9 20 31 | 30 3a f2 64 65 73 6b 74 |.... . 1|0:.deskt|
|00000880| 6f 70 73 61 76 65 28 62 | 25 21 32 30 29 0d 03 8e |opsave(b|%!20)...|
|00000890| 05 cb 0d 03 98 05 e1 0d | 03 a2 05 3a 0d 03 ac 18 |........|...:....|
|000008a0| dd f2 64 65 73 6b 74 6f | 70 73 61 76 65 28 66 69 |..deskto|psave(fi|
|000008b0| 6c 65 25 29 0d 03 b6 07 | ea 20 85 0d 03 c0 3b ee |le%)....|. ....;.|
|000008c0| 20 85 20 ea 20 62 25 21 | 31 32 3d 62 25 21 38 3a | . . b%!|12=b%!8:|
|000008d0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|000008e0| 73 61 67 65 22 2c 31 39 | 2c 62 25 2c 62 25 21 34 |sage",19|,b%,b%!4|
|000008f0| 3a f7 20 85 3a e1 0d 03 | ca 40 f4 20 54 68 65 20 |:. .:...|.@. The |
|00000900| 61 62 6f 76 65 20 6c 69 | 6e 65 20 61 63 6b 6e 6f |above li|ne ackno|
|00000910| 77 6c 65 64 67 65 73 20 | 74 68 65 20 6d 65 73 73 |wledges |the mess|
|00000920| 61 67 65 20 69 66 20 61 | 6e 20 65 72 72 6f 72 20 |age if a|n error |
|00000930| 6f 63 63 75 72 73 0d 03 | d4 20 f4 20 61 62 6f 72 |occurs..|. . abor|
|00000940| 74 69 6e 67 20 74 68 65 | 20 64 65 73 6b 74 6f 70 |ting the| desktop|
|00000950| 20 73 61 76 65 2e 0d 03 | de 1a d5 23 66 69 6c 65 | save...|...#file|
|00000960| 25 2c 22 52 75 6e 20 22 | 2b 41 70 70 64 69 72 24 |%,"Run "|+Appdir$|
|00000970| 0d 03 e8 05 e1 0d 03 f2 | 05 3a 0d 03 fc 1a dd f2 |........|.:......|
|00000980| 6c 6f 61 64 66 69 6c 65 | 28 66 69 6c 65 24 2c 74 |loadfile|(file$,t|
|00000990| 79 70 65 29 0d 04 06 0d | c8 8e 20 74 79 70 65 20 |ype)....|.. type |
|000009a0| ca 0d 04 10 05 cb 0d 04 | 1a 05 e1 0d 04 24 05 3a |........|.....$.:|
|000009b0| 0d 04 2e 2f f4 20 41 6e | 79 20 6d 65 73 73 61 67 |.../. An|y messag|
|000009c0| 65 73 20 74 6f 20 62 65 | 20 72 65 63 65 69 76 65 |es to be| receive|
|000009d0| 64 20 4d 55 53 54 20 62 | 65 20 6e 6f 74 65 64 0d |d MUST b|e noted.|
|000009e0| 04 38 0e dd f2 69 6e 69 | 74 77 69 6d 70 0d 04 42 |.8...ini|twimp..B|
|000009f0| 21 de 20 6d 65 73 73 61 | 67 65 6c 69 73 74 25 20 |!. messa|gelist% |
|00000a00| 32 35 36 3a 6d 65 73 73 | 70 74 72 25 3d 30 0d 04 |256:mess|ptr%=0..|
|00000a10| 4c 27 f2 6e 6f 74 65 6d | 65 73 73 61 67 65 28 26 |L'.notem|essage(&|
|00000a20| 35 30 32 29 3a f2 6e 6f | 74 65 6d 65 73 73 61 67 |502):.no|temessag|
|00000a30| 65 28 31 30 29 0d 04 56 | 13 f2 6e 6f 74 65 6d 65 |e(10)..V|..noteme|
|00000a40| 73 73 61 67 65 28 30 29 | 0d 04 60 51 c8 99 20 22 |ssage(0)|..`Q.. "|
|00000a50| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|00000a60| 2c 33 31 30 2c 26 34 42 | 35 33 34 31 35 34 2c 41 |,310,&4B|534154,A|
|00000a70| 70 70 6e 61 6d 65 24 2c | 6d 65 73 73 61 67 65 6c |ppname$,|messagel|
|00000a80| 69 73 74 25 20 b8 20 77 | 69 6d 70 76 65 72 73 69 |ist% . w|impversi|
|00000a90| 6f 6e 2c 68 61 6e 64 6c | 65 0d 04 6a 47 69 6e 64 |on,handl|e..jGind|
|00000aa0| 6c 25 3d 31 30 32 34 3a | 6d 65 6e 75 6c 25 3d 31 |l%=1024:|menul%=1|
|00000ab0| 30 32 34 3a de 20 62 25 | 20 32 30 34 38 2c 69 6e |024:. b%| 2048,in|
|00000ac0| 64 25 20 69 6e 64 6c 25 | 2c 6d 65 6e 75 25 20 6d |d% indl%|,menu% m|
|00000ad0| 65 6e 75 6c 25 2c 77 73 | 70 63 25 20 26 38 30 30 |enul%,ws|pc% &800|
|00000ae0| 0d 04 74 0f 63 75 72 6d | 65 6e 75 25 3d 2d 31 0d |..t.curm|enu%=-1.|
|00000af0| 04 7e 11 f2 6f 70 65 6e | 6d 65 73 73 61 67 65 73 |.~..open|messages|
|00000b00| 0d 04 88 2d 73 70 72 69 | 74 65 73 25 3d a4 6c 6f |...-spri|tes%=.lo|
|00000b10| 61 64 73 70 72 69 74 65 | 73 28 41 70 70 64 69 72 |adsprite|s(Appdir|
|00000b20| 24 2b 22 2e 53 70 72 69 | 74 65 73 22 29 0d 04 92 |$+".Spri|tes")...|
|00000b30| 24 69 6e 66 6f 62 6f 78 | 25 3d a4 6c 6f 61 64 74 |$infobox|%=.loadt|
|00000b40| 65 6d 70 6c 61 74 65 28 | 22 49 6e 66 6f 22 2c 31 |emplate(|"Info",1|
|00000b50| 29 0d 04 9c 25 f2 73 65 | 74 69 63 6f 6e 74 65 78 |)...%.se|ticontex|
|00000b60| 74 28 69 6e 66 6f 62 6f | 78 25 2c 31 2c 41 70 70 |t(infobo|x%,1,App|
|00000b70| 6e 61 6d 65 24 29 0d 04 | a6 26 f2 73 65 74 69 63 |name$)..|.&.setic|
|00000b80| 6f 6e 74 65 78 74 28 69 | 6e 66 6f 62 6f 78 25 2c |ontext(i|nfobox%,|
|00000b90| 32 2c 6c 6f 6e 67 6e 61 | 6d 65 24 29 0d 04 b0 25 |2,longna|me$)...%|
|00000ba0| f2 73 65 74 69 63 6f 6e | 74 65 78 74 28 69 6e 66 |.seticon|text(inf|
|00000bb0| 6f 62 6f 78 25 2c 34 2c | 76 65 72 73 69 6f 6e 24 |obox%,4,|version$|
|00000bc0| 29 0d 04 ba 3a 69 62 68 | 61 6e 64 6c 65 3d a4 43 |)...:ibh|andle=.C|
|00000bd0| 72 65 61 74 65 49 63 6f | 6e 42 61 72 49 63 6f 6e |reateIco|nBarIcon|
|00000be0| 28 22 21 22 2b 41 70 70 | 6e 61 6d 65 24 2c 73 68 |("!"+App|name$,sh|
|00000bf0| 6f 72 74 6e 61 6d 65 24 | 2c 31 29 0d 04 c4 38 69 |ortname$|,1)...8i|
|00000c00| 62 6d 65 6e 75 25 3d a4 | 63 72 65 61 74 65 6d 65 |bmenu%=.|createme|
|00000c10| 6e 75 28 41 70 70 6e 61 | 6d 65 24 2b 22 7c 49 6e |nu(Appna|me$+"|In|
|00000c20| 66 6f 5d 3e 69 6e 66 6f | 62 6f 78 25 7c 51 75 69 |fo]>info|box%|Qui|
|00000c30| 74 22 29 0d 04 ce 17 69 | 62 6f 70 74 69 6f 6e 73 |t")....i|boptions|
|00000c40| 25 3d 6f 70 74 69 6f 6e | 73 25 0d 04 d8 05 e1 0d |%=option|s%......|
|00000c50| 04 e2 05 3a 0d 04 ec 0e | dd f2 69 6e 69 74 70 72 |...:....|..initpr|
|00000c60| 6f 67 0d 04 f6 16 de 20 | 63 6c 24 28 32 35 35 29 |og..... |cl$(255)|
|00000c70| 2c 69 6d 25 28 32 35 29 | 0d 05 00 19 6f 75 72 6d |,im%(25)|....ourm|
|00000c80| 65 6e 75 25 3d a4 63 6c | 61 69 6d 28 34 30 39 36 |enu%=.cl|aim(4096|
|00000c90| 29 0d 05 0a 1c 6f 75 72 | 6d 65 6e 75 69 6e 64 25 |)....our|menuind%|
|00000ca0| 3d a4 63 6c 61 69 6d 28 | 34 30 39 36 29 0d 05 14 |=.claim(|4096)...|
|00000cb0| 10 63 6c 6f 73 65 6d 65 | 6e 75 3d 2d 31 0d 05 1e |.closeme|nu=-1...|
|00000cc0| 05 e1 0d 05 28 05 3a 0d | 05 32 17 dd f2 48 65 6c |....(.:.|.2...Hel|
|00000cd0| 70 28 77 69 6e 2c 69 63 | 6f 6e 2c 74 6f 29 0d 05 |p(win,ic|on,to)..|
|00000ce0| 3c 21 f7 20 8d 44 5a 45 | 3a f2 72 65 61 64 68 65 |<!. .DZE|:.readhe|
|00000cf0| 6c 70 28 77 69 6e 2c 69 | 63 6f 6e 2c 74 6f 29 0d |lp(win,i|con,to).|
|00000d00| 05 46 05 e1 0d 05 50 0d | f4 20 57 69 6e 64 6f 77 |.F....P.|. Window|
|00000d10| 73 0d 05 5a 1a dc 20 69 | 6e 66 6f 62 6f 78 25 2c |s..Z.. i|nfobox%,|
|00000d20| 22 3e 48 49 6e 66 6f 62 | 6f 78 22 0d 05 64 14 dc |">HInfob|ox"..d..|
|00000d30| 20 33 2c 22 3e 48 49 6e | 66 6f 62 6f 78 33 22 0d | 3,">HIn|fobox3".|
|00000d40| 05 6e 14 dc 20 2d 32 2c | 22 3e 48 49 63 6f 6e 62 |.n.. -2,|">HIconb|
|00000d50| 61 72 22 0d 05 78 0b dc | 20 2d 31 2c 2d 31 0d 05 |ar"..x..| -1,-1..|
|00000d60| 82 0b f4 20 4d 65 6e 75 | 73 0d 05 8c 11 dc 20 2d |... Menu|s..... -|
|00000d70| 32 2c 2d 32 2c 2d 32 2c | 2d 32 0d 05 96 05 3a 0d |2,-2,-2,|-2....:.|
|00000d80| 05 a0 15 dd f2 63 72 65 | 61 74 65 63 6c 6f 73 65 |.....cre|ateclose|
|00000d90| 6d 65 6e 75 0d 05 aa 12 | f2 6d 61 6b 65 63 6c 6f |menu....|.makeclo|
|00000da0| 73 65 6d 65 6e 75 0d 05 | b4 1a f2 6d 65 6e 75 28 |semenu..|...menu(|
|00000db0| 63 6c 6f 73 65 6d 65 6e | 75 2c 2d 31 2c 2d 31 29 |closemen|u,-1,-1)|
|00000dc0| 0d 05 be 05 e1 0d 05 c8 | 05 3a 0d 05 d2 13 dd f2 |........|.:......|
|00000dd0| 6d 61 6b 65 63 6c 6f 73 | 65 6d 65 6e 75 0d 05 dc |makeclos|emenu...|
|00000de0| 1d ea 20 6d 65 6e 75 25 | 2c 6d 65 6e 75 6c 25 2c |.. menu%|,menul%,|
|00000df0| 69 6e 64 25 2c 69 6e 64 | 6c 25 0d 05 e6 21 63 6c |ind%,ind|l%...!cl|
|00000e00| 24 28 29 3d 22 22 3a 6d | 65 6e 75 6c 25 3d 31 30 |$()="":m|enul%=10|
|00000e10| 32 34 3a 69 6e 64 6c 25 | 3d 31 36 0d 05 f0 27 68 |24:indl%|=16...'h|
|00000e20| 61 6e 64 6c 65 3d 32 35 | 35 3a 65 6e 74 72 69 65 |andle=25|5:entrie|
|00000e30| 73 3d 30 3a 6c 61 73 74 | 68 61 6e 64 6c 65 3d 32 |s=0:last|handle=2|
|00000e40| 35 35 0d 05 fa 05 f5 0d | 06 04 2d 20 c8 99 20 22 |55......|..- .. "|
|00000e50| 58 4f 53 5f 41 72 67 73 | 22 2c 37 2c 68 61 6e 64 |XOS_Args|",7,hand|
|00000e60| 6c 65 2c 62 25 2c 2c 2c | 32 35 36 20 b8 20 3b 66 |le,b%,,,|256 . ;f|
|00000e70| 6c 61 67 73 0d 06 0e 15 | 20 e7 20 28 66 6c 61 67 |lags....| . (flag|
|00000e80| 73 20 80 31 29 3d 30 20 | 8c 0d 06 18 2f 20 20 c8 |s .1)=0 |..../ .|
|00000e90| 99 20 22 58 4f 53 5f 41 | 72 67 73 22 2c 32 35 34 |. "XOS_A|rgs",254|
|00000ea0| 2c 68 61 6e 64 6c 65 20 | b8 20 73 74 72 65 61 6d |,handle |. stream|
|00000eb0| 2c 2c 66 73 69 6e 66 6f | 0d 06 22 36 20 20 6e 61 |,,fsinfo|.."6 na|
|00000ec0| 6d 65 24 3d a4 73 74 72 | 69 6e 67 30 28 62 25 29 |me$=.str|ing0(b%)|
|00000ed0| 3a 6c 65 61 66 24 3d a4 | 74 69 64 79 28 a4 6c 65 |:leaf$=.|tidy(.le|
|00000ee0| 61 66 6e 61 6d 65 28 6e | 61 6d 65 24 29 29 0d 06 |afname(n|ame$))..|
|00000ef0| 2c 40 20 20 e7 20 28 6c | 65 61 66 24 3d 22 21 52 |,@ . (l|eaf$="!R|
|00000f00| 75 6e 22 20 84 20 6c 65 | 61 66 24 3d 22 21 42 6f |un" . le|af$="!Bo|
|00000f10| 6f 74 22 29 20 80 20 a4 | 66 69 6c 65 74 79 70 65 |ot") . .|filetype|
|00000f20| 28 6e 61 6d 65 24 29 3d | 26 46 45 42 20 8c 0d 06 |(name$)=|&FEB ...|
|00000f30| 36 27 20 20 20 61 70 70 | 24 3d a4 6c 65 61 66 6e |6' app|$=.leafn|
|00000f40| 61 6d 65 28 a4 70 61 74 | 68 6e 61 6d 65 28 6e 61 |ame(.pat|hname(na|
|00000f50| 6d 65 24 29 29 0d 06 40 | 25 20 20 20 63 6c 24 28 |me$))..@|% cl$(|
|00000f60| 68 61 6e 64 6c 65 29 3d | c1 6c 65 61 66 24 2c 32 |handle)=|.leaf$,2|
|00000f70| 29 2b 22 2e 22 2b 61 70 | 70 24 0d 06 4a 07 20 20 |)+"."+ap|p$..J. |
|00000f80| cc 0d 06 54 3e 20 20 20 | 73 68 6f 72 74 24 3d a4 |...T> |short$=.|
|00000f90| 6c 65 61 66 6e 61 6d 65 | 28 a4 70 61 74 68 6e 61 |leafname|(.pathna|
|00000fa0| 6d 65 28 6e 61 6d 65 24 | 29 29 2b 22 2e 22 2b a4 |me(name$|))+"."+.|
|00000fb0| 6c 65 61 66 6e 61 6d 65 | 28 6e 61 6d 65 24 29 0d |leafname|(name$).|
|00000fc0| 06 5e 1c 20 20 20 c8 8e | 20 a4 66 69 6c 65 74 79 |.^. ..| .filety|
|00000fd0| 70 65 28 6e 61 6d 65 24 | 29 20 ca 0d 06 68 29 20 |pe(name$|) ...h) |
|00000fe0| 20 20 20 c9 20 26 46 45 | 42 3a 63 6c 24 28 68 61 | . &FE|B:cl$(ha|
|00000ff0| 6e 64 6c 65 29 3d 22 4f | 62 65 79 2e 22 2b 73 68 |ndle)="O|bey."+sh|
|00001000| 6f 72 74 24 0d 06 72 2b | 20 20 20 20 c9 20 26 46 |ort$..r+| . &F|
|00001010| 43 43 3a 63 6c 24 28 68 | 61 6e 64 6c 65 29 3d 22 |CC:cl$(h|andle)="|
|00001020| 44 65 76 69 63 65 2e 22 | 2b 73 68 6f 72 74 24 0d |Device."|+short$.|
|00001030| 06 7c 29 20 20 20 20 c9 | 20 26 46 46 36 3a 63 6c |.|) .| &FF6:cl|
|00001040| 24 28 68 61 6e 64 6c 65 | 29 3d 22 46 6f 6e 74 2e |$(handle|)="Font.|
|00001050| 22 2b 73 68 6f 72 74 24 | 0d 06 86 1b 20 20 20 20 |"+short$|.... |
|00001060| c9 20 26 31 30 30 30 3a | f4 20 44 69 72 65 63 74 |. &1000:|. Direct|
|00001070| 6f 72 79 0d 06 90 1e 20 | 20 20 20 20 74 79 70 65 |ory.... | type|
|00001080| 3d a4 62 61 73 65 74 79 | 70 65 28 6e 61 6d 65 24 |=.basety|pe(name$|
|00001090| 29 0d 06 9a 7d 20 20 20 | 20 20 e7 20 74 79 70 65 |)...} | . type|
|000010a0| 3d 26 31 30 30 30 20 8c | 63 6c 24 28 68 61 6e 64 |=&1000 .|cl$(hand|
|000010b0| 6c 65 29 3d 22 44 69 72 | 2e 22 2b 73 68 6f 72 74 |le)="Dir|."+short|
|000010c0| 24 20 8b 63 6c 24 28 68 | 61 6e 64 6c 65 29 3d 22 |$ .cl$(h|andle)="|
|000010d0| 49 22 2b c3 7e 28 74 79 | 70 65 20 81 20 32 35 36 |I"+.~(ty|pe . 256|
|000010e0| 29 2b c3 7e 28 28 74 79 | 70 65 20 81 20 31 36 29 |)+.~((ty|pe . 16)|
|000010f0| 83 20 31 36 29 2b c3 7e | 28 74 79 70 65 20 83 20 |. 16)+.~|(type . |
|00001100| 31 36 29 2b 22 2e 22 2b | 73 68 6f 72 74 24 0d 06 |16)+"."+|short$..|
|00001110| a4 24 20 20 20 20 7f 3a | 63 6c 24 28 68 61 6e 64 |.$ .:|cl$(hand|
|00001120| 6c 65 29 3d 22 46 69 6c | 65 2e 22 2b 73 68 6f 72 |le)="Fil|e."+shor|
|00001130| 74 24 0d 06 ae 08 20 20 | 20 cb 0d 06 b8 07 20 20 |t$.... | ..... |
|00001140| cd 0d 06 c2 0e 20 20 61 | 74 74 72 24 3d 22 22 0d |..... a|ttr$="".|
|00001150| 06 cc 31 20 20 e7 20 28 | 73 74 72 65 61 6d 20 80 |..1 . (|stream .|
|00001160| 20 28 31 3c 3c 35 29 29 | 20 8c 61 74 74 72 24 2b | (1<<5))| .attr$+|
|00001170| 3d 22 44 22 3a f4 20 64 | 69 72 65 63 74 6f 72 79 |="D":. d|irectory|
|00001180| 0d 06 d6 33 20 20 e7 20 | 28 73 74 72 65 61 6d 20 |...3 . |(stream |
|00001190| 80 20 28 31 3c 3c 36 29 | 29 20 8c 61 74 74 72 24 |. (1<<6)|) .attr$|
|000011a0| 2b 3d 22 52 22 3a f4 20 | 52 65 61 64 20 61 63 63 |+="R":. |Read acc|
|000011b0| 65 73 73 0d 06 e0 34 20 | 20 e7 20 28 73 74 72 65 |ess...4 | . (stre|
|000011c0| 61 6d 20 80 20 28 31 3c | 3c 37 29 29 20 8c 61 74 |am . (1<|<7)) .at|
|000011d0| 74 72 24 2b 3d 22 57 22 | 3a f4 20 57 72 69 74 65 |tr$+="W"|:. Write|
|000011e0| 20 61 63 63 65 73 73 0d | 06 ea 10 20 20 61 74 74 | access.|... att|
|000011f0| 72 24 2b 3d 22 2f 22 0d | 06 f4 2e 20 20 e7 20 28 |r$+="/".|... . (|
|00001200| 73 74 72 65 61 6d 20 80 | 20 28 31 3c 3c 39 29 29 |stream .| (1<<9))|
|00001210| 20 8c 61 74 74 72 24 2b | 3d 22 45 22 3a f4 20 61 | .attr$+|="E":. a|
|00001220| 74 20 45 4f 46 0d 06 fe | 30 20 20 e7 20 28 73 74 |t EOF...|0 . (st|
|00001230| 72 65 61 6d 20 80 20 28 | 31 3c 3c 38 29 29 20 8c |ream . (|1<<8)) .|
|00001240| 61 74 74 72 24 2b 3d 22 | 4d 22 3a f4 20 6d 6f 64 |attr$+="|M":. mod|
|00001250| 69 66 69 65 64 0d 07 08 | 32 20 20 e7 20 28 73 74 |ified...|2 . (st|
|00001260| 72 65 61 6d 20 80 20 28 | 31 3c 3c 31 33 29 29 20 |ream . (|1<<13)) |
|00001270| 8c 61 74 74 72 24 2b 3d | 22 4c 22 3a f4 20 64 61 |.attr$+=|"L":. da|
|00001280| 74 61 20 6c 6f 73 74 0d | 07 12 2d 20 20 63 6c 24 |ta lost.|..- cl$|
|00001290| 28 68 61 6e 64 6c 65 29 | 2b 3d 22 20 22 2b 61 74 |(handle)|+=" "+at|
|000012a0| 74 72 24 2b 22 20 28 22 | 2b c3 68 61 6e 64 6c 65 |tr$+" ("|+.handle|
|000012b0| 2b 22 29 22 0d 07 1c 1d | 20 20 69 6e 64 6c 25 2b |+")"....| indl%+|
|000012c0| 3d a9 28 63 6c 24 28 68 | 61 6e 64 6c 65 29 29 2b |=.(cl$(h|andle))+|
|000012d0| 32 0d 07 26 2d 20 20 6d | 65 6e 75 6c 25 2b 3d 32 |2..&- m|enul%+=2|
|000012e0| 34 3a 65 6e 74 72 69 65 | 73 2b 3d 31 3a 6c 61 73 |4:entrie|s+=1:las|
|000012f0| 74 68 61 6e 64 6c 65 3d | 68 61 6e 64 6c 65 0d 07 |thandle=|handle..|
|00001300| 30 06 20 cd 0d 07 3a 0e | 20 68 61 6e 64 6c 65 2d |0. ...:.| handle-|
|00001310| 3d 31 0d 07 44 2c fd 20 | 68 61 6e 64 6c 65 3c 6c |=1..D,. |handle<l|
|00001320| 61 73 74 68 61 6e 64 6c | 65 2d 65 6e 74 72 69 65 |asthandl|e-entrie|
|00001330| 73 2d 38 20 84 20 68 61 | 6e 64 6c 65 3d 30 0d 07 |s-8 . ha|ndle=0..|
|00001340| 4e 16 f2 72 65 6c 65 61 | 73 65 28 6f 75 72 6d 65 |N..relea|se(ourme|
|00001350| 6e 75 25 29 0d 07 58 19 | f2 72 65 6c 65 61 73 65 |nu%)..X.|.release|
|00001360| 28 6f 75 72 6d 65 6e 75 | 69 6e 64 25 29 0d 07 62 |(ourmenu|ind%)..b|
|00001370| 27 6d 65 6e 75 25 3d a4 | 63 6c 61 69 6d 28 6d 65 |'menu%=.|claim(me|
|00001380| 6e 75 6c 25 29 3a 6f 75 | 72 6d 65 6e 75 25 3d 6d |nul%):ou|rmenu%=m|
|00001390| 65 6e 75 25 0d 07 6c 27 | 69 6e 64 25 3d a4 63 6c |enu%..l'|ind%=.cl|
|000013a0| 61 69 6d 28 69 6e 64 6c | 25 29 3a 6f 75 72 6d 65 |aim(indl|%):ourme|
|000013b0| 6e 75 69 6e 64 25 3d 69 | 6e 64 25 0d 07 76 31 63 |nuind%=i|nd%..v1c|
|000013c0| 6c 6f 73 65 6f 70 74 24 | 3d a4 75 70 70 65 72 28 |loseopt$|=.upper(|
|000013d0| a4 73 79 73 74 65 6d 76 | 61 72 28 22 43 6c 6f 73 |.systemv|ar("Clos|
|000013e0| 65 24 4f 70 74 69 6f 6e | 73 22 29 29 0d 07 80 15 |e$Option|s"))....|
|000013f0| 6d 65 6e 75 24 3d 22 43 | 6c 6f 73 65 22 3a 6e 3d |menu$="C|lose":n=|
|00001400| 30 0d 07 8a 16 e3 49 3d | 31 b8 20 a9 28 63 6c 6f |0.....I=|1. .(clo|
|00001410| 73 65 6f 70 74 24 29 0d | 07 94 19 20 c8 8e 20 c1 |seopt$).|... .. .|
|00001420| 63 6c 6f 73 65 6f 70 74 | 24 2c 49 2c 31 29 20 ca |closeopt|$,I,1) .|
|00001430| 0d 07 9e 37 20 20 c9 20 | 22 52 22 3a 72 75 6e 6d |...7 . |"R":runm|
|00001440| 65 6e 75 3d a4 6d 61 6b | 65 6d 65 6e 75 28 22 52 |enu=.mak|emenu("R|
|00001450| 75 6e 22 2c 22 52 75 6e | 22 2c 22 21 52 75 6e 20 |un","Run|","!Run |
|00001460| 66 69 6c 65 73 22 29 0d | 07 a8 1d 20 20 20 6d 65 |files").|... me|
|00001470| 6e 75 24 2b 3d 22 7c 52 | 75 6e 5d 3e 72 75 6e 6d |nu$+="|R|un]>runm|
|00001480| 65 6e 75 22 0d 07 b2 3a | 20 20 c9 20 22 4f 22 3a |enu"...:| . "O":|
|00001490| 6f 62 65 79 6d 65 6e 75 | 3d a4 6d 61 6b 65 6d 65 |obeymenu|=.makeme|
|000014a0| 6e 75 28 22 4f 62 65 79 | 22 2c 22 4f 62 65 79 22 |nu("Obey|","Obey"|
|000014b0| 2c 22 4f 62 65 79 20 66 | 69 6c 65 73 22 29 0d 07 |,"Obey f|iles")..|
|000014c0| bc 1f 20 20 20 6d 65 6e | 75 24 2b 3d 22 7c 4f 62 |.. men|u$+="|Ob|
|000014d0| 65 79 5d 3e 6f 62 65 79 | 6d 65 6e 75 22 0d 07 c6 |ey]>obey|menu"...|
|000014e0| 3a 20 20 c9 20 22 42 22 | 3a 62 6f 6f 74 6d 65 6e |: . "B"|:bootmen|
|000014f0| 75 3d a4 6d 61 6b 65 6d | 65 6e 75 28 22 42 6f 6f |u=.makem|enu("Boo|
|00001500| 74 22 2c 22 42 6f 6f 74 | 22 2c 22 42 6f 6f 74 20 |t","Boot|","Boot |
|00001510| 66 69 6c 65 73 22 29 0d | 07 d0 1f 20 20 20 6d 65 |files").|... me|
|00001520| 6e 75 24 2b 3d 22 7c 42 | 6f 6f 74 5d 3e 62 6f 6f |nu$+="|B|oot]>boo|
|00001530| 74 6d 65 6e 75 22 0d 07 | da 35 20 20 c9 20 22 46 |tmenu"..|.5 . "F|
|00001540| 22 3a 66 69 6c 65 6d 65 | 6e 75 3d a4 6d 61 6b 65 |":fileme|nu=.make|
|00001550| 6d 65 6e 75 28 22 46 69 | 6c 65 22 2c 22 46 69 6c |menu("Fi|le","Fil|
|00001560| 65 22 2c 22 46 69 6c 65 | 73 22 29 0d 07 e4 1f 20 |e","File|s").... |
|00001570| 20 20 6d 65 6e 75 24 2b | 3d 22 7c 46 69 6c 65 5d | menu$+|="|File]|
|00001580| 3e 66 69 6c 65 6d 65 6e | 75 22 0d 07 ee 3d 20 20 |>filemen|u"...= |
|00001590| c9 20 22 44 22 3a 64 65 | 76 69 63 65 6d 65 6e 75 |. "D":de|vicemenu|
|000015a0| 3d a4 6d 61 6b 65 6d 65 | 6e 75 28 22 44 65 76 69 |=.makeme|nu("Devi|
|000015b0| 63 65 22 2c 22 44 65 76 | 69 63 65 22 2c 22 44 65 |ce","Dev|ice","De|
|000015c0| 76 69 63 65 73 22 29 0d | 07 f8 23 20 20 20 6d 65 |vices").|..# me|
|000015d0| 6e 75 24 2b 3d 22 7c 44 | 65 76 69 63 65 5d 3e 64 |nu$+="|D|evice]>d|
|000015e0| 65 76 69 63 65 6d 65 6e | 75 22 0d 08 02 31 20 20 |evicemen|u"...1 |
|000015f0| c9 20 22 50 22 3a 64 69 | 72 6d 65 6e 75 3d a4 6d |. "P":di|rmenu=.m|
|00001600| 61 6b 65 6d 65 6e 75 28 | 22 44 69 72 22 2c 22 44 |akemenu(|"Dir","D|
|00001610| 69 72 22 2c 22 44 69 72 | 73 22 29 0d 08 0c 1f 20 |ir","Dir|s").... |
|00001620| 20 20 6d 65 6e 75 24 2b | 3d 22 7c 44 69 72 73 2e | menu$+|="|Dirs.|
|00001630| 5d 3e 64 69 72 6d 65 6e | 75 22 0d 08 16 36 20 20 |]>dirmen|u"...6 |
|00001640| c9 20 22 41 22 3a 66 6f | 6e 74 73 6d 65 6e 75 3d |. "A":fo|ntsmenu=|
|00001650| a4 6d 61 6b 65 6d 65 6e | 75 28 22 46 6f 6e 74 22 |.makemen|u("Font"|
|00001660| 2c 22 46 6f 6e 74 22 2c | 22 46 6f 6e 74 73 22 29 |,"Font",|"Fonts")|
|00001670| 0d 08 20 20 20 20 20 6d | 65 6e 75 24 2b 3d 22 7c |.. m|enu$+="||
|00001680| 46 6f 6e 74 5d 3e 66 6f | 6e 74 73 6d 65 6e 75 22 |Font]>fo|ntsmenu"|
|00001690| 0d 08 2a 0b 20 20 c9 20 | 22 49 22 0d 08 34 34 20 |..*. . |"I"..44 |
|000016a0| 20 20 74 24 3d a4 73 79 | 73 74 65 6d 76 61 72 28 | t$=.sy|stemvar(|
|000016b0| 22 46 69 6c 65 24 54 79 | 70 65 5f 22 2b c1 63 6c |"File$Ty|pe_"+.cl|
|000016c0| 6f 73 65 6f 70 74 24 2c | 49 2b 31 2c 33 29 29 0d |oseopt$,|I+1,3)).|
|000016d0| 08 3e 2d 20 20 20 e7 20 | 74 24 3d 22 22 20 8c 74 |.>- . |t$="" .t|
|000016e0| 24 3d 22 49 6d 61 67 65 | 20 22 2b c1 63 6c 6f 73 |$="Image| "+.clos|
|000016f0| 65 6f 70 74 24 2c 49 2b | 31 2c 33 29 0d 08 48 34 |eopt$,I+|1,3)..H4|
|00001700| 20 20 20 69 6d 25 28 6e | 29 3d a4 6d 61 6b 65 6d | im%(n|)=.makem|
|00001710| 65 6e 75 28 74 24 2c 22 | 49 22 2b c1 63 6c 6f 73 |enu(t$,"|I"+.clos|
|00001720| 65 6f 70 74 24 2c 49 2b | 31 2c 33 29 2c 74 24 29 |eopt$,I+|1,3),t$)|
|00001730| 0d 08 52 2e 20 20 20 6d | 65 6e 75 24 2b 3d 22 7c |..R. m|enu$+="||
|00001740| 22 2b 74 24 2b 22 5d 3e | 69 6d 25 28 22 2b c3 6e |"+t$+"]>|im%("+.n|
|00001750| 2b 22 29 22 3a 6e 2b 3d | 31 3a 49 2b 3d 33 0d 08 |+")":n+=|1:I+=3..|
|00001760| 5c 06 20 cb 0d 08 66 05 | ed 0d 08 70 16 e7 20 6d |\. ...f.|...p.. m|
|00001770| 65 6e 75 24 3c 3e 22 43 | 6c 6f 73 65 22 20 8c 0d |enu$<>"C|lose" ..|
|00001780| 08 7a 21 20 63 6c 6f 73 | 65 6d 65 6e 75 3d a4 63 |.z! clos|emenu=.c|
|00001790| 72 65 61 74 65 6d 65 6e | 75 28 6d 65 6e 75 24 29 |reatemen|u(menu$)|
|000017a0| 0d 08 84 05 cd 0d 08 8e | 05 e1 0d 08 98 05 3a 0d |........|......:.|
|000017b0| 08 a2 23 dd a4 6d 61 6b | 65 6d 65 6e 75 28 6d 65 |..#..mak|emenu(me|
|000017c0| 6e 75 24 2c 70 72 65 66 | 69 78 24 2c 6e 61 6d 65 |nu$,pref|ix$,name|
|000017d0| 24 29 0d 08 ac 31 ea 20 | 49 2c 6d 61 78 6c 65 6e |$)...1. |I,maxlen|
|000017e0| 3a 6d 65 6e 75 73 74 61 | 72 74 3d 6d 65 6e 75 25 |:menusta|rt=menu%|
|000017f0| 3a 65 6e 74 72 69 65 73 | 3d 30 3a 6d 61 78 6c 65 |:entries|=0:maxle|
|00001800| 6e 3d 34 0d 08 b6 39 64 | 75 6d 6d 79 3d a4 63 72 |n=4...9d|ummy=.cr|
|00001810| 65 61 74 65 6d 65 6e 75 | 28 6e 61 6d 65 24 2b 22 |eatemenu|(name$+"|
|00001820| 7c 4e 6f 6e 65 5d 53 22 | 29 3a 6d 65 6e 75 25 3d ||None]S"|):menu%=|
|00001830| 6d 65 6e 75 73 74 61 72 | 74 2b 32 38 0d 08 c0 0c |menustar|t+28....|
|00001840| e3 49 3d 31 b8 32 35 35 | 0d 08 ca 0e 20 61 24 3d |.I=1.255|.... a$=|
|00001850| 63 6c 24 28 49 29 0d 08 | d4 0f 20 e7 20 61 24 3c |cl$(I)..|.. . a$<|
|00001860| 3e 22 22 20 8c 0d 08 de | 21 20 20 e7 20 c0 61 24 |>"" ....|! . .a$|
|00001870| 2c a7 61 24 2c 22 2e 22 | 29 2d 31 29 3d 70 72 65 |,.a$,"."|)-1)=pre|
|00001880| 66 69 78 24 20 8c 0d 08 | e8 19 20 20 20 61 24 3d |fix$ ...|.. a$=|
|00001890| c1 61 24 2c a7 61 24 2c | 22 2e 22 29 2b 31 29 0d |.a$,.a$,|".")+1).|
|000018a0| 08 f2 2c 20 20 20 63 6c | 24 28 49 29 3d 6d 65 6e |.., cl|$(I)=men|
|000018b0| 75 24 2b 22 2e 22 2b 61 | 24 3a 70 74 72 3d a4 69 |u$+"."+a|$:ptr=.i|
|000018c0| 6e 64 69 72 65 63 74 28 | 61 24 29 0d 08 fc 35 20 |ndirect(|a$)...5 |
|000018d0| 20 20 f2 6d 65 6e 75 70 | 75 74 77 28 30 29 3a f2 | .menup|utw(0):.|
|000018e0| 6d 65 6e 75 70 75 74 77 | 28 2d 31 29 3a f2 6d 65 |menuputw|(-1):.me|
|000018f0| 6e 75 70 75 74 77 28 26 | 37 30 30 30 31 32 31 29 |nuputw(&|7000121)|
|00001900| 0d 09 06 36 20 20 20 f2 | 6d 65 6e 75 70 75 74 77 |...6 .|menuputw|
|00001910| 28 70 74 72 29 3a f2 6d | 65 6e 75 70 75 74 77 28 |(ptr):.m|enuputw(|
|00001920| 2d 31 29 3a f2 6d 65 6e | 75 70 75 74 77 28 a9 28 |-1):.men|uputw(.(|
|00001930| 61 24 29 2b 31 29 0d 09 | 10 27 20 20 20 e7 20 6d |a$)+1)..|.' . m|
|00001940| 61 78 6c 65 6e 3c a9 28 | 61 24 29 2b 31 20 8c 6d |axlen<.(|a$)+1 .m|
|00001950| 61 78 6c 65 6e 3d a9 28 | 61 24 29 2b 31 0d 09 1a |axlen=.(|a$)+1...|
|00001960| 11 20 20 20 65 6e 74 72 | 69 65 73 2b 3d 31 0d 09 |. entr|ies+=1..|
|00001970| 24 07 20 20 cd 0d 09 2e | 06 20 cd 0d 09 38 05 ed |$. ....|. ...8..|
|00001980| 0d 09 42 11 e7 20 65 6e | 74 72 69 65 73 3e 30 20 |..B.. en|tries>0 |
|00001990| 8c 0d 09 4c 12 20 6d 65 | 6e 75 25 21 2d 32 34 3d |...L. me|nu%!-24=|
|000019a0| 31 32 38 0d 09 56 1b 20 | 6d 65 6e 75 73 74 61 72 |128..V. |menustar|
|000019b0| 74 21 31 36 3d 6d 61 78 | 6c 65 6e 2a 31 36 0d 09 |t!16=max|len*16..|
|000019c0| 60 05 cc 0d 09 6a 0e 20 | 6d 65 6e 75 25 2b 3d 32 |`....j. |menu%+=2|
|000019d0| 38 0d 09 74 05 cd 0d 09 | 7e 0e 3d 6d 65 6e 75 73 |8..t....|~.=menus|
|000019e0| 74 61 72 74 0d 09 88 05 | 3a 0d 09 92 11 dd f2 64 |tart....|:......d|
|000019f0| 6f 63 6c 6f 73 65 28 66 | 24 29 0d 09 9c 07 ea 20 |oclose(f|$)..... |
|00001a00| 49 0d 09 a6 0c e3 49 3d | 31 b8 32 35 35 0d 09 b0 |I.....I=|1.255...|
|00001a10| 1f 20 e7 20 66 24 3d 63 | 6c 24 28 49 29 20 8c d9 |. . f$=c|l$(I) ..|
|00001a20| 23 49 3a 63 6c 24 28 49 | 29 3d 22 22 0d 09 ba 05 |#I:cl$(I|)=""....|
|00001a30| ed 0d 09 c4 05 e1 0d ff | |........| |
+--------+-------------------------+-------------------------+--------+--------+
