/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / a024_1 / !Dir_!Runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 69 6d 61 67 65 |..... >!|Runimage|
|00000010| 0d 00 14 07 f4 20 2a 0d | 00 1e 1d f4 20 2a 20 44 |..... *.|.... * D|
|00000020| 69 72 65 63 74 6f 72 79 | 20 73 65 74 74 65 72 20 |irectory| setter |
|00000030| 76 30 2e 33 0d 00 28 07 | f4 20 2a 0d 00 32 40 f4 |v0.3..(.|. *..2@.|
|00000040| 20 2a 20 55 73 65 64 20 | 74 6f 20 73 65 74 20 74 | * Used |to set t|
|00000050| 68 65 20 63 75 72 72 65 | 6e 74 20 46 69 6c 69 6e |he curre|nt Filin|
|00000060| 67 20 53 79 73 74 65 6d | 20 64 69 72 65 63 74 6f |g System| directo|
|00000070| 72 79 20 66 72 6f 6d 20 | 74 68 65 0d 00 3c 0c f4 |ry from |the..<..|
|00000080| 20 2a 20 57 49 4d 50 0d | 00 46 07 f4 20 2a 0d 00 | * WIMP.|.F.. *..|
|00000090| 50 1d f4 20 2a 20 28 43 | 29 20 44 61 6e 69 65 6c |P.. * (C|) Daniel|
|000000a0| 20 50 65 61 64 20 31 39 | 39 31 2e 0d 00 5a 05 3a | Pead 19|91...Z.:|
|000000b0| 0d 00 64 0e ee 20 85 20 | e5 20 8d 44 44 47 0d 00 |..d.. . |. .DDG..|
|000000c0| 6e 2c de 20 77 63 62 6c | 6b 25 20 31 30 30 20 20 |n,. wcbl|k% 100  |
|000000d0| 3a 20 f4 20 42 75 66 66 | 65 72 20 66 6f 72 20 57 |: . Buff|er for W|
|000000e0| 49 4d 50 20 65 76 65 6e | 74 73 0d 00 78 2c de 20 |IMP even|ts..x,. |
|000000f0| 6d 64 62 6c 6b 25 20 31 | 30 32 34 20 3a 20 f4 20 |mdblk% 1|024 : . |
|00000100| 4d 65 6e 75 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |Menu def|inition |
|00000110| 62 75 66 66 65 72 0d 00 | 82 2d de 20 70 6f 69 6e |buffer..|.-. poin|
|00000120| 74 65 72 25 20 32 30 20 | 3a 20 f4 20 42 75 66 66 |ter% 20 |: . Buff|
|00000130| 65 72 20 66 6f 72 20 70 | 6f 69 6e 74 65 72 20 69 |er for p|ointer i|
|00000140| 6e 66 6f 0d 00 8c 0f de | 20 66 6e 61 6d 65 25 20 |nfo.....| fname% |
|00000150| 31 33 0d 00 96 14 de 20 | 74 65 6d 70 6c 61 74 65 |13..... |template|
|00000160| 25 20 31 30 32 34 0d 00 | a0 18 de 20 74 73 6b 25 |% 1024..|... tsk%|
|00000170| 34 3a 24 74 73 6b 25 3d | 22 54 41 53 4b 22 0d 00 |4:$tsk%=|"TASK"..|
|00000180| aa 3d c8 99 20 22 57 69 | 6d 70 5f 49 6e 69 74 69 |.=.. "Wi|mp_Initi|
|00000190| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 74 73 6b 25 |alise",2|00,!tsk%|
|000001a0| 2c 22 44 69 72 20 53 65 | 74 74 65 72 22 20 b8 20 |,"Dir Se|tter" . |
|000001b0| 76 65 72 73 25 2c 74 61 | 73 6b 25 0d 00 b4 16 f2 |vers%,ta|sk%.....|
|000001c0| 69 63 6f 6e 5f 6d 65 6e | 75 28 6d 64 62 6c 6b 25 |icon_men|u(mdblk%|
|000001d0| 29 0d 00 be 0d f2 62 61 | 72 5f 69 63 6f 6e 0d 00 |).....ba|r_icon..|
|000001e0| c8 15 66 69 6c 65 24 3d | 22 22 3a 66 74 79 70 65 |..file$=|"":ftype|
|000001f0| 25 3d 30 0d 00 d2 05 3a | 0d 00 dc 21 f4 20 2a 20 |%=0....:|...!. * |
|00000200| 55 73 65 20 61 75 74 6f | 20 6d 6f 64 65 20 62 79 |Use auto| mode by|
|00000210| 20 64 65 66 61 75 6c 74 | 3f 0d 00 e6 1c 48 25 20 | default|?....H% |
|00000220| 3d 20 8e 28 22 3c 44 69 | 72 24 44 69 72 3e 2e 41 |= .("<Di|r$Dir>.A|
|00000230| 75 74 6f 22 29 0d 00 f0 | 0d e7 20 48 25 3c 3e 30 |uto")...|.. H%<>0|
|00000240| 20 8c 0d 00 fa 13 20 20 | 20 21 6d 65 6e 61 75 74 | .....  | !menaut|
|00000250| 6f 20 3d 20 31 0d 01 04 | 0d 20 20 20 d9 20 23 20 |o = 1...|.   . # |
|00000260| 48 25 0d 01 0e 05 cd 0d | 01 18 05 3a 0d 01 22 10 |H%......|...:..".|
|00000270| e0 20 3d 20 e0 20 2b 20 | 32 30 30 30 0d 01 2c 09 |. = . + |2000..,.|
|00000280| f2 70 6f 6c 6c 0d 01 36 | 17 c8 99 20 22 57 69 6d |.poll..6|... "Wim|
|00000290| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 0d 01 40 05 |p_CloseD|own"..@.|
|000002a0| e0 0d 01 4a 05 3a 0d 01 | 54 3a f4 20 2a 20 52 65 |...J.:..|T:. * Re|
|000002b0| 61 64 73 20 61 20 4e 55 | 4c 4c 20 74 65 72 6d 69 |ads a NU|LL termi|
|000002c0| 6e 61 74 65 64 20 73 74 | 72 69 6e 67 20 69 6e 74 |nated st|ring int|
|000002d0| 6f 20 61 20 42 41 53 49 | 43 20 73 74 72 69 6e 67 |o a BASI|C string|
|000002e0| 0d 01 5e 21 dd 20 a4 73 | 74 72 28 53 25 29 3d c0 |..^!. .s|tr(S%)=.|
|000002f0| 24 53 25 2c a7 24 53 25 | 2c bd 28 30 29 29 2d 31 |$S%,.$S%|,.(0))-1|
|00000300| 29 0d 01 68 05 3a 0d 01 | 72 3b f4 20 2a 20 45 78 |)..h.:..|r;. * Ex|
|00000310| 74 72 61 63 74 73 20 74 | 68 65 20 64 69 72 65 63 |tracts t|he direc|
|00000320| 74 6f 72 79 20 6e 61 6d | 65 20 66 72 6f 6d 20 74 |tory nam|e from t|
|00000330| 68 65 20 70 61 74 68 20 | 6f 66 20 61 20 66 69 6c |he path |of a fil|
|00000340| 65 0d 01 7c 05 3a 0d 01 | 86 1e dd 20 a4 64 69 72 |e..|.:..|... .dir|
|00000350| 6e 61 6d 65 28 66 69 6c | 65 24 29 3a 20 ea 20 49 |name(fil|e$): . I|
|00000360| 25 2c 4a 25 0d 01 90 0d | 49 25 3d 30 3a 4a 25 3d |%,J%....|I%=0:J%=|
|00000370| 30 0d 01 9a 05 f5 0d 01 | a4 1f 20 20 4a 25 3d 49 |0.......|..  J%=I|
|00000380| 25 3a 49 25 3d a7 66 69 | 6c 65 24 2c 22 2e 22 2c |%:I%=.fi|le$,".",|
|00000390| 4a 25 2b 31 29 0d 01 ae | 0a fd 20 49 25 3d 30 0d |J%+1)...|.. I%=0.|
|000003a0| 01 b8 0c e7 20 4a 25 3d | 30 20 8c 0d 01 c2 0d 20 |.... J%=|0 ..... |
|000003b0| 20 3d 20 66 69 6c 65 24 | 0d 01 cc 05 cc 0d 01 d6 | = file$|........|
|000003c0| 17 20 20 3d 20 c0 20 66 | 69 6c 65 24 2c 20 4a 25 |.  = . f|ile$, J%|
|000003d0| 2d 31 20 29 0d 01 e0 05 | 3a 0d 01 ea 1e f4 20 2a |-1 )....|:..... *|
|000003e0| 20 4d 61 69 6e 20 57 49 | 4d 50 20 70 6f 6c 6c 69 | Main WI|MP polli|
|000003f0| 6e 67 20 6c 6f 6f 70 0d | 01 f4 05 3a 0d 01 fe 0b |ng loop.|...:....|
|00000400| dd 20 f2 70 6f 6c 6c 0d | 02 08 19 ea 20 68 61 6e |. .poll.|.... han|
|00000410| 64 6c 65 25 2c 6d 65 6e | 78 25 2c 6d 65 6e 79 25 |dle%,men|x%,meny%|
|00000420| 0d 02 12 11 65 78 69 74 | 3d a3 3a 6d 65 6e 75 3d |....exit|=.:menu=|
|00000430| 30 0d 02 1c 05 f5 0d 02 | 26 27 20 20 c8 99 20 22 |0.......|&'  .. "|
|00000440| 57 69 6d 70 5f 50 6f 6c | 6c 22 2c 30 2c 77 63 62 |Wimp_Pol|l",0,wcb|
|00000450| 6c 6b 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 02 30 |lk% . re|ason%..0|
|00000460| 12 20 20 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.  .. re|ason% ..|
|00000470| 02 3a 0a 20 20 c9 20 31 | 3a 0d 02 44 28 20 20 20 |.:.  . 1|:..D(   |
|00000480| 20 f4 20 68 61 6e 64 6c | 65 25 3d 21 77 63 62 6c | . handl|e%=!wcbl|
|00000490| 6b 25 3a 72 70 74 72 25 | 3d 77 63 62 6c 6b 25 2b |k%:rptr%|=wcblk%+|
|000004a0| 34 0d 02 4e 32 20 20 20 | 20 f4 20 53 59 53 20 22 |4..N2   | . SYS "|
|000004b0| 57 69 6d 70 5f 52 65 64 | 72 61 77 57 69 6e 64 6f |Wimp_Red|rawWindo|
|000004c0| 77 22 2c 2c 77 63 62 6c | 6b 25 20 54 4f 20 66 6c |w",,wcbl|k% TO fl|
|000004d0| 61 67 25 0d 02 58 15 20 | 20 20 20 f4 20 57 48 49 |ag%..X. |   . WHI|
|000004e0| 4c 45 20 66 6c 61 67 25 | 0d 02 62 33 20 20 20 20 |LE flag%|..b3    |
|000004f0| f4 20 20 53 59 53 20 22 | 57 69 6d 70 5f 47 65 74 |.  SYS "|Wimp_Get|
|00000500| 52 65 63 74 61 6e 67 6c | 65 22 2c 2c 77 63 62 6c |Rectangl|e",,wcbl|
|00000510| 6b 25 20 54 4f 20 66 6c | 61 67 25 0d 02 6c 12 20 |k% TO fl|ag%..l. |
|00000520| 20 20 20 f4 20 45 4e 44 | 57 48 49 4c 45 0d 02 76 |   . END|WHILE..v|
|00000530| 17 20 20 20 20 f4 20 72 | 65 64 72 61 77 34 25 3d |.    . r|edraw4%=|
|00000540| 54 52 55 45 0d 02 80 27 | 20 20 c9 20 32 3a 20 c8 |TRUE...'|  . 2: .|
|00000550| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000560| 6f 77 22 2c 2c 77 63 62 | 6c 6b 25 0d 02 8a 28 20 |ow",,wcb|lk%...( |
|00000570| 20 c9 20 33 3a 20 c8 99 | 20 22 57 69 6d 70 5f 43 | . 3: ..| "Wimp_C|
|00000580| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 77 63 62 |loseWind|ow",,wcb|
|00000590| 6c 6b 25 0d 02 94 0a 20 | 20 c9 20 36 3a 0d 02 9e |lk%.... | . 6:...|
|000005a0| 1a 20 20 20 20 f4 20 2a | 20 4d 65 6e 75 20 70 6f |.    . *| Menu po|
|000005b0| 70 70 65 64 20 75 70 0d | 02 a8 18 20 20 20 20 e7 |pped up.|...    .|
|000005c0| 20 77 63 62 6c 6b 25 21 | 38 20 80 20 32 20 8c 0d | wcblk%!|8 . 2 ..|
|000005d0| 02 b2 27 20 20 20 20 20 | 20 6d 65 6e 78 25 3d 21 |..'     | menx%=!|
|000005e0| 77 63 62 6c 6b 25 3a 20 | 6d 65 6e 79 25 3d 77 63 |wcblk%: |meny%=wc|
|000005f0| 62 6c 6b 25 21 34 0d 02 | bc 32 20 20 20 20 20 20 |blk%!4..|.2      |
|00000600| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00000610| 65 6e 75 22 2c 2c 6d 64 | 62 6c 6b 25 2c 6d 65 6e |enu",,md|blk%,men|
|00000620| 78 25 2c 6d 65 6e 79 25 | 0d 02 c6 09 20 20 20 20 |x%,meny%|....    |
|00000630| cd 0d 02 d0 0a 20 20 c9 | 20 39 3a 0d 02 da 1a 20 |.....  .| 9:.... |
|00000640| 20 20 20 f4 20 2a 20 4d | 65 6e 75 20 53 65 6c 65 |   . * M|enu Sele|
|00000650| 63 74 69 6f 6e 0d 02 e4 | 14 20 20 20 20 c8 8e 20 |ction...|.    .. |
|00000660| 21 77 63 62 6c 6b 25 20 | ca 0d 02 ee 0e 20 20 20 |!wcblk% |.....   |
|00000670| 20 20 20 c9 20 31 3a 0d | 02 f8 23 20 20 20 20 20 |   . 1:.|..#     |
|00000680| 20 20 20 21 6d 65 6e 61 | 75 74 6f 20 3d 20 21 6d |   !mena|uto = !m|
|00000690| 65 6e 61 75 74 6f 20 82 | 20 31 0d 03 02 0e 20 20 |enauto .| 1....  |
|000006a0| 20 20 20 20 c9 20 32 3a | 0d 03 0c 12 20 20 20 20 |    . 2:|....    |
|000006b0| 20 20 20 20 65 78 69 74 | 3d b9 0d 03 16 0b 20 20 |    exit|=.....  |
|000006c0| 20 20 20 20 cb 0d 03 20 | 2d 20 20 20 20 20 20 f4 |    ... |-      .|
|000006d0| 20 2a 20 49 66 20 41 44 | 4a 55 53 54 20 63 6c 69 | * If AD|JUST cli|
|000006e0| 63 6b 65 64 2c 20 72 65 | 2d 6f 70 65 6e 20 6d 65 |cked, re|-open me|
|000006f0| 6e 75 0d 03 2a 2c 20 20 | 20 20 20 20 c8 99 20 22 |nu..*,  |    .. "|
|00000700| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|00000710| 6e 66 6f 22 2c 2c 70 6f | 69 6e 74 65 72 25 0d 03 |nfo",,po|inter%..|
|00000720| 34 4b 20 20 20 20 20 20 | e7 20 28 28 70 6f 69 6e |4K      |. ((poin|
|00000730| 74 65 72 25 21 38 29 20 | 80 20 31 29 3e 30 20 8c |ter%!8) |. 1)>0 .|
|00000740| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00000750| 4d 65 6e 75 22 2c 2c 6d | 64 62 6c 6b 25 2c 6d 65 |Menu",,m|dblk%,me|
|00000760| 6e 78 25 2c 6d 65 6e 79 | 25 0d 03 3e 0e 20 20 c9 |nx%,meny|%..>.  .|
|00000770| 20 31 37 2c 31 38 3a 0d | 03 48 32 20 20 20 20 f4 | 17,18:.|.H2    .|
|00000780| 20 2a 20 49 6e 63 6f 6d | 69 6e 67 20 6d 65 73 73 | * Incom|ing mess|
|00000790| 61 67 65 2c 20 63 6f 6d | 6d 61 6e 64 65 72 20 4a |age, com|mander J|
|000007a0| 61 6d 65 73 6f 6e 2e 2e | 2e 0d 03 52 45 20 20 20 |ameson..|...RE   |
|000007b0| 20 f4 20 2a 20 4c 6f 6f | 6b 20 66 6f 72 20 66 69 | . * Loo|k for fi|
|000007c0| 6c 65 73 20 64 72 61 67 | 67 65 64 20 74 6f 20 6f |les drag|ged to o|
|000007d0| 75 72 20 69 63 6f 6e 20 | 61 6e 64 2c 20 69 66 20 |ur icon |and, if |
|000007e0| 61 75 74 6f 20 73 77 69 | 74 63 68 20 69 73 0d 03 |auto swi|tch is..|
|000007f0| 5c 29 20 20 20 20 f4 20 | 2a 20 6f 6e 2c 20 66 6f |\)    . |* on, fo|
|00000800| 72 20 64 6f 75 62 6c 65 | 2d 63 6c 69 63 6b 65 64 |r double|-clicked|
|00000810| 20 66 69 6c 65 73 2e 0d | 03 66 05 3a 0d 03 70 39 | files..|.f.:..p9|
|00000820| 20 20 20 20 e7 20 77 63 | 62 6c 6b 25 21 31 36 3d |    . wc|blk%!16=|
|00000830| 33 20 84 20 28 77 63 62 | 6c 6b 25 21 31 36 3d 35 |3 . (wcb|lk%!16=5|
|00000840| 20 80 20 28 21 6d 65 6e | 61 75 74 6f 20 80 20 31 | . (!men|auto . 1|
|00000850| 29 20 29 20 8c 0d 03 7a | 24 20 20 20 20 20 20 f4 |) ) ...z|$      .|
|00000860| 20 2a 20 47 65 74 20 66 | 69 6c 65 20 6e 61 6d 65 | * Get f|ile name|
|00000870| 20 61 6e 64 20 74 79 70 | 65 0d 03 84 1f 20 20 20 | and typ|e....   |
|00000880| 20 20 20 66 69 6c 65 24 | 3d a4 73 74 72 28 77 63 |   file$|=.str(wc|
|00000890| 62 6c 6b 25 2b 34 34 29 | 0d 03 8e 1a 20 20 20 20 |blk%+44)|....    |
|000008a0| 20 20 66 74 79 70 65 25 | 3d 77 63 62 6c 6b 25 21 |  ftype%|=wcblk%!|
|000008b0| 34 30 0d 03 98 3c 20 20 | 20 20 20 20 f4 20 2a 20 |40...<  |    . * |
|000008c0| 49 66 20 69 74 20 77 61 | 73 20 61 20 64 69 72 65 |If it wa|s a dire|
|000008d0| 63 74 6f 72 79 20 28 6f | 72 20 61 70 70 6c 69 63 |ctory (o|r applic|
|000008e0| 61 74 69 6f 6e 29 20 73 | 65 74 20 44 49 52 0d 03 |ation) s|et DIR..|
|000008f0| a2 29 20 20 20 20 20 20 | e7 20 66 74 79 70 65 25 |.)      |. ftype%|
|00000900| 3d 26 31 30 30 30 20 84 | 20 66 74 79 70 65 25 3d |=&1000 .| ftype%=|
|00000910| 26 32 30 30 30 20 8c 0d | 03 ac 1a 20 20 20 20 20 |&2000 ..|...     |
|00000920| 20 20 20 ff 20 22 44 49 | 52 20 22 2b 66 69 6c 65 |   . "DI|R "+file|
|00000930| 24 0d 03 b6 0b 20 20 20 | 20 20 20 cc 0d 03 c0 41 |$....   |   ....A|
|00000940| 20 20 20 20 20 20 20 20 | f4 20 2a 20 49 74 27 73 |        |. * It's|
|00000950| 20 61 20 66 69 6c 65 20 | 2d 20 65 78 74 72 61 63 | a file |- extrac|
|00000960| 74 20 74 68 65 20 64 69 | 72 65 63 74 6f 72 79 20 |t the di|rectory |
|00000970| 6e 61 6d 65 20 26 20 73 | 65 74 20 69 74 0d 03 ca |name & s|et it...|
|00000980| 36 20 20 20 20 20 20 20 | 20 e7 20 28 77 63 62 6c |6       | . (wcbl|
|00000990| 6b 25 21 31 36 3d 33 29 | 20 ff 20 22 44 49 52 20 |k%!16=3)| . "DIR |
|000009a0| 22 20 2b 20 a4 64 69 72 | 6e 61 6d 65 28 66 69 6c |" + .dir|name(fil|
|000009b0| 65 24 29 0d 03 d4 0b 20 | 20 20 20 20 20 cd 0d 03 |e$).... |     ...|
|000009c0| d5 09 20 20 20 20 cc 0d | 03 d6 22 20 20 20 20 20 |..    ..|.."     |
|000009d0| 20 e7 20 77 63 62 6c 6b | 25 21 31 36 3d 30 20 8c | . wcblk|%!16=0 .|
|000009e0| 20 65 78 69 74 20 3d 20 | b9 0d 03 de 09 20 20 20 | exit = |.....   |
|000009f0| 20 cd 0d 03 e8 07 20 20 | 3a 0d 03 f2 07 20 20 7f | .....  |:....  .|
|00000a00| 0d 03 fc 07 20 20 3a 0d | 04 06 07 20 20 cb 0d 04 |....  :.|...  ...|
|00000a10| 10 07 20 20 3a 0d 04 1a | 0a fd 20 65 78 69 74 0d |..  :...|.. exit.|
|00000a20| 04 24 05 e1 0d 04 2e 05 | 3a 0d 04 38 2e f4 20 2a |.$......|:..8.. *|
|00000a30| 20 55 73 65 20 74 68 65 | 20 61 73 73 65 6d 62 6c | Use the| assembl|
|00000a40| 65 72 20 74 6f 20 62 75 | 69 6c 64 20 6d 65 6e 75 |er to bu|ild menu|
|00000a50| 20 62 6c 6f 63 6b 73 0d | 04 42 05 3a 0d 04 4c 3a | blocks.|.B.:..L:|
|00000a60| dd 20 a4 6d 5f 68 65 61 | 64 65 72 28 70 61 73 73 |. .m_hea|der(pass|
|00000a70| 25 2c 74 69 74 6c 65 24 | 2c 74 66 25 2c 74 62 25 |%,title$|,tf%,tb%|
|00000a80| 2c 77 66 25 2c 77 62 25 | 2c 6d 77 25 2c 6d 68 25 |,wf%,wb%|,mw%,mh%|
|00000a90| 2c 67 61 70 25 29 0d 04 | 56 0e 5b 4f 50 54 20 70 |,gap%)..|V.[OPT p|
|00000aa0| 61 73 73 25 0d 04 60 28 | 45 51 55 53 20 74 69 74 |ass%..`(|EQUS tit|
|00000ab0| 6c 65 24 3a 45 51 55 53 | 20 c4 31 32 2d a9 28 74 |le$:EQUS| .12-.(t|
|00000ac0| 69 74 6c 65 24 29 2c bd | 28 30 29 29 0d 04 6a 27 |itle$),.|(0))..j'|
|00000ad0| 45 51 55 42 20 74 66 25 | 3a 45 51 55 42 20 74 62 |EQUB tf%|:EQUB tb|
|00000ae0| 25 3a 45 51 55 42 20 77 | 66 25 3a 45 51 55 42 20 |%:EQUB w|f%:EQUB |
|00000af0| 77 62 25 0d 04 74 1f 45 | 51 55 44 20 6d 77 25 3a |wb%..t.E|QUD mw%:|
|00000b00| 45 51 55 44 20 6d 68 25 | 3a 45 51 55 44 20 67 61 |EQUD mh%|:EQUD ga|
|00000b10| 70 25 0d 04 7e 05 5d 0d | 04 88 0a 3d 70 61 73 73 |p%..~.].|...=pass|
|00000b20| 25 0d 04 92 05 3a 0d 04 | 9c 2d dd 20 a4 6d 5f 69 |%....:..|.-. .m_i|
|00000b30| 74 65 6d 28 70 61 73 73 | 25 2c 6e 61 6d 65 24 2c |tem(pass|%,name$,|
|00000b40| 66 67 2c 62 67 2c 6d 66 | 6c 61 67 73 25 2c 73 75 |fg,bg,mf|lags%,su|
|00000b50| 62 25 29 0d 04 a6 0e 5b | 4f 50 54 20 70 61 73 73 |b%)....[|OPT pass|
|00000b60| 25 0d 04 b0 31 45 51 55 | 44 20 6d 66 6c 61 67 73 |%...1EQU|D mflags|
|00000b70| 25 3a 45 51 55 44 20 73 | 75 62 25 3a 45 51 55 44 |%:EQUD s|ub%:EQUD|
|00000b80| 20 31 2b 66 67 2a 32 5e | 32 34 2b 62 67 2a 32 5e | 1+fg*2^|24+bg*2^|
|00000b90| 32 38 0d 04 ba 26 45 51 | 55 53 20 6e 61 6d 65 24 |28...&EQ|US name$|
|00000ba0| 3a 45 51 55 53 20 c4 31 | 32 2d a9 28 6e 61 6d 65 |:EQUS .1|2-.(name|
|00000bb0| 24 29 2c bd 28 30 29 29 | 0d 04 c4 05 5d 0d 04 ce |$),.(0))|....]...|
|00000bc0| 0a 3d 70 61 73 73 25 0d | 04 d8 05 3a 0d 04 e2 28 |.=pass%.|...:...(|
|00000bd0| dd 20 a4 6d 5f 77 72 69 | 74 65 28 70 61 73 73 25 |. .m_wri|te(pass%|
|00000be0| 2c 74 65 78 74 25 2c 6d | 66 6c 61 67 73 25 2c 73 |,text%,m|flags%,s|
|00000bf0| 75 62 25 29 0d 04 ec 0e | 5b 4f 50 54 20 70 61 73 |ub%)....|[OPT pas|
|00000c00| 73 25 0d 04 f6 2c 45 51 | 55 44 20 6d 66 6c 61 67 |s%...,EQ|UD mflag|
|00000c10| 73 25 3a 45 51 55 44 20 | 73 75 62 25 3a 45 51 55 |s%:EQUD |sub%:EQU|
|00000c20| 44 20 31 2b 32 5e 32 38 | 2a 37 2b 32 5e 38 0d 05 |D 1+2^28|*7+2^8..|
|00000c30| 00 1e 45 51 55 44 20 74 | 65 78 74 25 3a 45 51 55 |..EQUD t|ext%:EQU|
|00000c40| 44 20 2d 31 3a 45 51 55 | 44 20 31 32 0d 05 0a 05 |D -1:EQU|D 12....|
|00000c50| 5d 0d 05 14 10 24 74 65 | 78 74 25 3d 22 22 2b bd |]....$te|xt%=""+.|
|00000c60| 30 0d 05 1e 0a 3d 70 61 | 73 73 25 0d 05 28 05 3a |0....=pa|ss%..(.:|
|00000c70| 0d 05 32 1e f4 20 2a 20 | 42 75 69 6c 64 20 74 68 |..2.. * |Build th|
|00000c80| 65 20 69 63 6f 6e 62 61 | 72 20 6d 65 6e 75 0d 05 |e iconba|r menu..|
|00000c90| 3c 05 3a 0d 05 46 18 dd | 20 f2 69 63 6f 6e 5f 6d |<.:..F..| .icon_m|
|00000ca0| 65 6e 75 28 6d 64 62 6c | 6b 25 29 0d 05 50 0b ea |enu(mdbl|k%)..P..|
|00000cb0| 20 70 61 73 73 25 0d 05 | 5a 1d f4 20 2a 20 43 72 | pass%..|Z.. * Cr|
|00000cc0| 65 61 74 65 20 22 41 62 | 6f 75 74 22 20 77 69 6e |eate "Ab|out" win|
|00000cd0| 64 6f 77 0d 05 64 31 c8 | 99 20 22 57 69 6d 70 5f |dow..d1.|. "Wimp_|
|00000ce0| 4f 70 65 6e 54 65 6d 70 | 6c 61 74 65 22 2c 2c 22 |OpenTemp|late",,"|
|00000cf0| 3c 44 69 72 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |<Dir$Dir|>.Templa|
|00000d00| 74 65 73 22 0d 05 6e 4f | c8 99 20 22 57 69 6d 70 |tes"..nO|.. "Wimp|
|00000d10| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000d20| 74 65 6d 70 6c 61 74 65 | 25 2c 74 65 6d 70 6c 61 |template|%,templa|
|00000d30| 74 65 25 2b 35 31 32 2c | 74 65 6d 70 6c 61 74 65 |te%+512,|template|
|00000d40| 25 2b 31 30 32 33 2c 2d | 31 2c 22 61 62 6f 75 74 |%+1023,-|1,"about|
|00000d50| 22 2c 30 0d 05 78 2e c8 | 99 20 22 57 69 6d 70 5f |",0..x..|. "Wimp_|
|00000d60| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 74 |CreateWi|ndow",,t|
|00000d70| 65 6d 70 6c 61 74 65 25 | 20 b8 20 61 62 6f 75 74 |emplate%| . about|
|00000d80| 25 0d 05 82 1b c8 99 20 | 22 57 69 6d 70 5f 43 6c |%...... |"Wimp_Cl|
|00000d90| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 05 8c 05 |oseTempl|ate"....|
|00000da0| 3a 0d 05 96 15 f4 20 2a | 20 47 65 6e 65 72 61 74 |:..... *| Generat|
|00000db0| 65 20 6d 65 6e 75 0d 05 | a0 15 e3 20 70 61 73 73 |e menu..|... pass|
|00000dc0| 25 3d 30 20 b8 20 32 20 | 88 20 32 0d 05 aa 0d 50 |%=0 . 2 |. 2....P|
|00000dd0| 25 3d 6d 64 62 6c 6b 25 | 0d 05 b4 0e 5b 4f 50 54 |%=mdblk%|....[OPT|
|00000de0| 20 70 61 73 73 25 0d 05 | be 36 4f 50 54 20 a4 6d | pass%..|.6OPT .m|
|00000df0| 5f 68 65 61 64 65 72 28 | 70 61 73 73 25 2c 22 44 |_header(|pass%,"D|
|00000e00| 69 72 20 53 65 74 74 65 | 72 22 2c 37 2c 32 2c 37 |ir Sette|r",7,2,7|
|00000e10| 2c 30 2c 31 39 32 2c 33 | 32 2c 38 29 0d 05 c8 2a |,0,192,3|2,8)...*|
|00000e20| 4f 50 54 20 a4 6d 5f 69 | 74 65 6d 28 70 61 73 73 |OPT .m_i|tem(pass|
|00000e30| 25 2c 22 49 6e 66 6f 22 | 2c 37 2c 30 2c 30 2c 61 |%,"Info"|,7,0,0,a|
|00000e40| 62 6f 75 74 25 29 0d 05 | d2 2f 2e 6d 65 6e 61 75 |bout%)..|./.menau|
|00000e50| 74 6f 20 4f 50 54 20 a4 | 6d 5f 69 74 65 6d 28 70 |to OPT .|m_item(p|
|00000e60| 61 73 73 25 2c 22 41 75 | 74 6f 22 2c 37 2c 30 2c |ass%,"Au|to",7,0,|
|00000e70| 30 2c 2d 31 29 0d 05 dc | 28 4f 50 54 20 a4 6d 5f |0,-1)...|(OPT .m_|
|00000e80| 69 74 65 6d 28 70 61 73 | 73 25 2c 22 51 75 69 74 |item(pas|s%,"Quit|
|00000e90| 22 2c 37 2c 30 2c 26 38 | 30 2c 2d 31 29 0d 05 e6 |",7,0,&8|0,-1)...|
|00000ea0| 09 2e 73 75 62 32 0d 05 | f0 34 4f 50 54 20 a4 6d |..sub2..|.4OPT .m|
|00000eb0| 5f 68 65 61 64 65 72 28 | 70 61 73 73 25 2c 22 41 |_header(|pass%,"A|
|00000ec0| 70 70 20 6e 61 6d 65 22 | 2c 30 2c 33 2c 30 2c 37 |pp name"|,0,3,0,7|
|00000ed0| 2c 31 39 32 2c 33 32 2c | 38 29 0d 05 fa 25 4f 50 |,192,32,|8)...%OP|
|00000ee0| 54 20 a4 6d 5f 77 72 69 | 74 65 28 70 61 73 73 25 |T .m_wri|te(pass%|
|00000ef0| 2c 66 6e 61 6d 65 25 2c | 26 38 34 2c 2d 31 29 0d |,fname%,|&84,-1).|
|00000f00| 06 04 05 5d 0d 06 0e 0b | ed 20 70 61 73 73 25 0d |...]....|. pass%.|
|00000f10| 06 18 05 e1 0d 06 22 05 | 3a 0d 06 2c 0f dd 20 f2 |......".|:..,.. .|
|00000f20| 62 61 72 5f 69 63 6f 6e | 0d 06 36 1f ea 20 73 6d |bar_icon|..6.. sm|
|00000f30| 25 2c 73 78 25 2c 73 79 | 25 2c 70 78 25 2c 70 79 |%,sx%,sy|%,px%,py|
|00000f40| 25 2c 70 61 73 73 25 0d | 06 40 0f de 20 69 63 62 |%,pass%.|.@.. icb|
|00000f50| 6c 6b 25 20 34 38 0d 06 | 4a 28 de 20 73 70 72 6e |lk% 48..|J(. sprn|
|00000f60| 61 6d 65 25 20 34 38 3a | 24 73 70 72 6e 61 6d 65 |ame% 48:|$sprname|
|00000f70| 25 3d 22 53 21 44 69 72 | 22 2b bd 28 30 29 0d 06 |%="S!Dir|"+.(0)..|
|00000f80| 54 23 de 20 69 63 74 78 | 74 25 20 34 38 3a 24 69 |T#. ictx|t% 48:$i|
|00000f90| 63 74 78 74 25 3d 22 2a | 44 69 72 22 2b bd 28 30 |ctxt%="*|Dir"+.(0|
|00000fa0| 29 0d 06 5e 38 c8 99 20 | 22 57 69 6d 70 5f 53 70 |)..^8.. |"Wimp_Sp|
|00000fb0| 72 69 74 65 4f 70 22 2c | 34 30 2c 2c 22 64 69 72 |riteOp",|40,,"dir|
|00000fc0| 65 63 74 6f 72 79 22 20 | b8 20 2c 2c 2c 73 78 25 |ectory" |. ,,,sx%|
|00000fd0| 2c 73 79 25 2c 2c 73 6d | 25 0d 06 68 37 c8 99 20 |,sy%,,sm|%..h7.. |
|00000fe0| 22 4f 53 5f 52 65 61 64 | 4d 6f 64 65 56 61 72 69 |"OS_Read|ModeVari|
|00000ff0| 61 62 6c 65 22 2c 73 6d | 25 2c 34 20 b8 20 2c 2c |able",sm|%,4 . ,,|
|00001000| 70 78 25 3a 73 78 25 3d | 73 78 25 3c 3c 70 78 25 |px%:sx%=|sx%<<px%|
|00001010| 0d 06 72 37 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d |..r7.. "|OS_ReadM|
|00001020| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 73 6d 25 |odeVaria|ble",sm%|
|00001030| 2c 35 20 b8 20 2c 2c 70 | 79 25 3a 73 79 25 3d 73 |,5 . ,,p|y%:sy%=s|
|00001040| 79 25 3c 3c 70 79 25 0d | 06 7c 15 50 25 3d 69 63 |y%<<py%.|.|.P%=ic|
|00001050| 62 6c 6b 25 3a 70 61 73 | 73 25 3d 30 0d 06 86 0e |blk%:pas|s%=0....|
|00001060| 5b 4f 50 54 20 70 61 73 | 73 25 0d 06 90 0b 45 51 |[OPT pas|s%....EQ|
|00001070| 55 44 20 2d 31 0d 06 9a | 28 45 51 55 44 20 30 3a |UD -1...|(EQUD 0:|
|00001080| 45 51 55 44 20 2d 31 36 | 3a 45 51 55 44 20 73 78 |EQUD -16|:EQUD sx|
|00001090| 25 3a 45 51 55 44 20 73 | 79 25 2b 31 36 0d 06 a4 |%:EQUD s|y%+16...|
|000010a0| 12 45 51 55 44 20 26 31 | 37 30 30 33 31 30 42 0d |.EQUD &1|700310B.|
|000010b0| 06 ae 0f 45 51 55 44 20 | 69 63 74 78 74 25 0d 06 |...EQUD |ictxt%..|
|000010c0| b8 11 45 51 55 44 20 73 | 70 72 6e 61 6d 65 25 0d |..EQUD s|prname%.|
|000010d0| 06 c2 0b 45 51 55 44 20 | 34 38 0d 06 cc 05 5d 0d |...EQUD |48....].|
|000010e0| 06 d6 2c c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..,.. "W|imp_Crea|
|000010f0| 74 65 49 63 6f 6e 22 2c | 2c 69 63 62 6c 6b 25 20 |teIcon",|,icblk% |
|00001100| b8 20 69 63 68 61 6e 64 | 6c 65 25 0d 06 e0 05 e1 |. ichand|le%.....|
|00001110| 0d 07 3a 05 3a 0d 07 3b | 3c f4 20 2a 20 45 72 72 |..:.:..;|<. * Err|
|00001120| 6f 72 20 68 61 6e 64 6c | 65 72 20 2d 20 6e 6f 20 |or handl|er - no |
|00001130| 6e 65 65 64 20 66 6f 72 | 20 61 6e 79 20 73 6d 61 |need for| any sma|
|00001140| 72 74 20 65 72 72 6f 72 | 20 72 65 63 6f 76 65 72 |rt error| recover|
|00001150| 79 0d 07 44 0e de 20 65 | 72 72 25 20 32 35 36 0d |y..D.. e|rr% 256.|
|00001160| 07 45 22 21 65 72 72 25 | 3d 9f 3a 24 28 65 72 72 |.E"!err%|=.:$(err|
|00001170| 25 2b 34 29 3d f6 24 2b | 22 20 61 74 20 22 2b c3 |%+4)=.$+|" at "+.|
|00001180| 9e 0d 07 4e 27 c8 99 20 | 22 57 69 6d 70 5f 52 65 |...N'.. |"Wimp_Re|
|00001190| 70 6f 72 74 45 72 72 6f | 72 22 2c 65 72 72 25 2c |portErro|r",err%,|
|000011a0| 31 2c 22 2a 44 49 52 22 | 0d 07 58 05 e0 0d 07 62 |1,"*DIR"|..X....b|
|000011b0| 04 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+