home *** CD-ROM | disk | FTP | other *** search
Unknown | 1995-05-22 | 14.9 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 2a f4 20 44 65 | 73 6b 74 6f 70 20 2d 20 |...*. De|sktop - |
|00000010| 54 68 65 20 66 72 6f 6e | 74 20 65 6e 64 20 74 6f |The fron|t end to|
|00000020| 20 21 48 61 72 64 41 70 | 70 73 0d 00 14 30 f4 20 | !HardAp|ps...0. |
|00000030| 57 72 69 74 74 65 6e 20 | 31 36 74 68 20 41 70 72 |Written |16th Apr|
|00000040| 69 6c 20 31 39 39 35 28 | 69 73 68 29 20 62 79 20 |il 1995(|ish) by |
|00000050| 4f 77 61 69 6e 20 43 6f | 6c 65 0d 00 1e 31 f4 20 |Owain Co|le...1. |
|00000060| 41 6e 64 20 43 68 72 69 | 73 20 57 79 6d 61 72 6b |And Chri|s Wymark|
|00000070| 20 28 48 69 73 20 61 72 | 65 20 74 68 65 20 6d 65 | (His ar|e the me|
|00000080| 73 73 79 20 62 69 74 73 | 21 29 2e 0d 00 28 20 76 |ssy bits|!)...( v|
|00000090| 65 72 73 69 6f 6e 24 3d | 22 76 31 2e 30 30 20 28 |ersion$=|"v1.00 (|
|000000a0| 32 32 20 4d 61 79 20 39 | 35 29 22 0d 00 32 04 0d |22 May 9|5)"..2..|
|000000b0| 00 3c 09 f2 69 6e 69 74 | 0d 00 46 0b 71 75 69 74 |.<..init|..F.quit|
|000000c0| 25 3d a3 0d 00 50 0e c8 | 95 20 71 75 69 74 25 3d |%=...P..|. quit%=|
|000000d0| a3 0d 00 5a 09 f2 70 6f | 6c 6c 0d 00 64 05 ce 0d |...Z..po|ll..d...|
|000000e0| 00 6e 17 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |.n... "W|imp_Clos|
|000000f0| 65 44 6f 77 6e 22 0d 00 | 78 05 e0 0d 00 82 05 3a |eDown"..|x......:|
|00000100| 0d 00 8c 0a dd f2 69 6e | 69 74 0d 00 96 12 69 6e |......in|it....in|
|00000110| 64 6c 69 6d 69 74 25 3d | 31 35 30 30 0d 00 a0 75 |dlimit%=|1500...u|
|00000120| de 20 62 6c 6f 63 6b 25 | 20 31 30 30 30 2c 74 65 |. block%| 1000,te|
|00000130| 6d 70 69 6e 64 25 20 69 | 6e 64 6c 69 6d 69 74 25 |mpind% i|ndlimit%|
|00000140| 2c 6d 65 6e 75 25 20 32 | 30 30 2c 66 6c 6f 79 64 |,menu% 2|00,floyd|
|00000150| 25 20 31 30 2c 61 72 64 | 73 6f 66 74 25 20 31 30 |% 10,ard|soft% 10|
|00000160| 2c 61 72 72 6f 77 64 6f | 77 6e 25 20 31 30 2c 6c |,arrowdo|wn% 10,l|
|00000170| 6f 67 6f 25 20 31 30 2c | 73 6d 6c 6f 67 6f 25 20 |ogo% 10,|smlogo% |
|00000180| 31 30 2c 68 65 6c 70 6d | 65 6e 75 25 20 32 30 30 |10,helpm|enu% 200|
|00000190| 30 0d 00 aa 04 0d 00 b4 | 24 74 68 61 6e 64 6c 65 |0.......|$thandle|
|000001a0| 25 3d a4 69 6e 69 74 74 | 61 73 6b 28 22 48 61 72 |%=.initt|ask("Har|
|000001b0| 64 41 70 70 73 22 2c 32 | 29 0d 00 c8 21 58 3d 8e |dApps",2|)...!X=.|
|000001c0| 28 22 3c 48 61 72 64 41 | 70 70 73 24 44 69 72 3e |("<HardA|pps$Dir>|
|000001d0| 2e 53 70 72 69 74 65 73 | 22 29 0d 00 d2 04 0d 00 |.Sprites|")......|
|000001e0| dc 32 e7 20 58 3d 30 20 | 8c 20 85 20 30 2c 22 49 |.2. X=0 |. . 0,"I|
|000001f0| 20 63 61 6e 6e 6f 74 20 | 66 69 6e 64 20 74 68 65 | cannot |find the|
|00000200| 20 27 73 70 72 69 74 65 | 73 27 20 66 69 6c 65 22 | 'sprite|s' file"|
|00000210| 0d 00 e6 10 73 70 6c 65 | 6e 25 3d a2 23 58 2b 34 |....sple|n%=.#X+4|
|00000220| 0d 00 f0 08 d9 20 23 58 | 0d 00 fa 15 de 20 73 70 |..... #X|..... sp|
|00000230| 72 69 74 65 73 25 20 73 | 70 6c 65 6e 25 0d 01 04 |rites% s|plen%...|
|00000240| 15 73 70 72 69 74 65 73 | 25 21 30 3d 73 70 6c 65 |.sprites|%!0=sple|
|00000250| 6e 25 0d 01 0e 11 73 70 | 72 69 74 65 73 25 21 38 |n%....sp|rites%!8|
|00000260| 3d 31 36 0d 01 18 33 c8 | 99 20 26 32 45 2c 31 30 |=16...3.|. &2E,10|
|00000270| 2b 32 35 36 2c 73 70 72 | 69 74 65 73 25 2c 22 3c |+256,spr|ites%,"<|
|00000280| 48 61 72 64 41 70 70 73 | 24 44 69 72 3e 2e 53 70 |HardApps|$Dir>.Sp|
|00000290| 72 69 74 65 73 22 0d 01 | 22 04 0d 01 2c 4b f2 6f |rites"..|"...,K.o|
|000002a0| 70 65 6e 74 65 6d 70 6c | 61 74 65 73 28 22 3c 48 |pentempl|ates("<H|
|000002b0| 61 72 64 41 70 70 73 24 | 44 69 72 3e 2e 54 65 6d |ardApps$|Dir>.Tem|
|000002c0| 70 6c 61 74 65 73 22 2c | 74 65 6d 70 69 6e 64 25 |plates",|tempind%|
|000002d0| 2c 69 6e 64 6c 69 6d 69 | 74 25 2c 62 6c 6f 63 6b |,indlimi|t%,block|
|000002e0| 25 2c 2d 31 29 0d 01 36 | 1f 69 6e 66 6f 25 3d a4 |%,-1)..6|.info%=.|
|000002f0| 72 65 61 64 74 65 6d 70 | 6c 61 74 65 28 22 69 6e |readtemp|late("in|
|00000300| 66 6f 22 29 0d 01 40 1f | 6d 61 69 6e 25 3d a4 72 |fo")..@.|main%=.r|
|00000310| 65 61 64 74 65 6d 70 6c | 61 74 65 28 22 6d 61 69 |eadtempl|ate("mai|
|00000320| 6e 22 29 0d 01 4a 25 69 | 6e 73 74 61 6c 6c 25 3d |n")..J%i|nstall%=|
|00000330| a4 72 65 61 64 74 65 6d | 70 6c 61 74 65 28 22 69 |.readtem|plate("i|
|00000340| 6e 73 74 61 6c 6c 22 29 | 0d 01 54 1b c8 99 20 22 |nstall")|..T... "|
|00000350| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00000360| 74 65 22 0d 01 5e 04 0d | 01 68 13 24 66 6c 6f 79 |te"..^..|.h.$floy|
|00000370| 64 25 3d 22 66 6c 6f 79 | 64 22 0d 01 72 18 24 61 |d%="floy|d"..r.$a|
|00000380| 72 64 73 6f 66 74 25 3d | 22 61 61 72 64 73 6f 66 |rdsoft%=|"aardsof|
|00000390| 74 22 0d 01 7c 1b 24 61 | 72 72 6f 77 64 6f 77 6e |t"..|.$a|rrowdown|
|000003a0| 25 3d 22 61 72 72 6f 77 | 64 6f 77 6e 22 0d 01 86 |%="arrow|down"...|
|000003b0| 11 24 6c 6f 67 6f 25 3d | 22 6c 6f 67 6f 22 0d 01 |.$logo%=|"logo"..|
|000003c0| 90 15 24 73 6d 6c 6f 67 | 6f 25 3d 22 73 6d 6c 6f |..$smlog|o%="smlo|
|000003d0| 67 6f 22 0d 01 9a 4b 61 | 25 3d a4 63 72 65 61 74 |go"...Ka|%=.creat|
|000003e0| 65 5f 69 63 6f 6e 28 69 | 6e 66 6f 25 2c 39 35 38 |e_icon(i|nfo%,958|
|000003f0| 2c 2d 32 39 32 2c 32 33 | 38 2c 32 35 32 2c 26 31 |,-292,23|8,252,&1|
|00000400| 37 30 30 30 31 31 41 2c | 22 22 2c 66 6c 6f 79 64 |700011A,|"",floyd|
|00000410| 25 2c 73 70 72 69 74 65 | 73 25 2c 31 30 29 0d 01 |%,sprite|s%,10)..|
|00000420| a4 4d 61 25 3d a4 63 72 | 65 61 74 65 5f 69 63 6f |.Ma%=.cr|eate_ico|
|00000430| 6e 28 69 6e 66 6f 25 2c | 37 33 38 2c 2d 32 39 32 |n(info%,|738,-292|
|00000440| 2c 32 31 30 2c 32 35 32 | 2c 26 31 37 30 30 30 31 |,210,252|,&170001|
|00000450| 31 41 2c 22 22 2c 61 72 | 64 73 6f 66 74 25 2c 73 |1A,"",ar|dsoft%,s|
|00000460| 70 72 69 74 65 73 25 2c | 31 30 29 0d 01 ae 51 61 |prites%,|10)...Qa|
|00000470| 25 3d a4 63 72 65 61 74 | 65 5f 69 63 6f 6e 28 69 |%=.creat|e_icon(i|
|00000480| 6e 73 74 61 6c 6c 25 2c | 35 30 2c 2d 34 34 38 2c |nstall%,|50,-448,|
|00000490| 31 39 36 2c 31 35 38 2c | 26 31 37 30 30 30 31 31 |196,158,|&1700011|
|000004a0| 41 2c 22 22 2c 61 72 72 | 6f 77 64 6f 77 6e 25 2c |A,"",arr|owdown%,|
|000004b0| 73 70 72 69 74 65 73 25 | 2c 31 30 29 0d 01 b8 4c |sprites%|,10)...L|
|000004c0| 61 25 3d a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 |a%=.crea|te_icon(|
|000004d0| 69 6e 73 74 61 6c 6c 25 | 2c 37 38 2c 2d 32 32 38 |install%|,78,-228|
|000004e0| 2c 36 34 30 2c 32 30 34 | 2c 26 31 37 30 30 30 31 |,640,204|,&170001|
|000004f0| 31 41 2c 22 22 2c 6c 6f | 67 6f 25 2c 73 70 72 69 |1A,"",lo|go%,spri|
|00000500| 74 65 73 25 2c 31 30 29 | 0d 01 c2 4c 61 25 3d a4 |tes%,10)|...La%=.|
|00000510| 63 72 65 61 74 65 5f 69 | 63 6f 6e 28 6d 61 69 6e |create_i|con(main|
|00000520| 25 2c 34 38 34 2c 2d 32 | 34 38 2c 32 36 36 2c 31 |%,484,-2|48,266,1|
|00000530| 30 30 2c 26 31 37 30 30 | 30 31 31 41 2c 22 22 2c |00,&1700|011A,"",|
|00000540| 73 6d 6c 6f 67 6f 25 2c | 73 70 72 69 74 65 73 25 |smlogo%,|sprites%|
|00000550| 2c 31 30 29 0d 01 cc 04 | 0d 01 d6 24 6f 6b 25 3d |,10)....|...$ok%=|
|00000560| a4 72 65 61 64 5f 69 6e | 64 69 72 65 63 74 5f 69 |.read_in|direct_i|
|00000570| 63 6f 6e 28 69 6e 66 6f | 25 2c 32 29 0d 01 e0 11 |con(info|%,2)....|
|00000580| 24 6f 6b 25 3d 76 65 72 | 73 69 6f 6e 24 0d 01 ea |$ok%=ver|sion$...|
|00000590| 04 0d 01 f4 10 f2 6c 6f | 61 64 6f 70 74 69 6f 6e |......lo|adoption|
|000005a0| 73 0d 01 fe 04 0d 02 08 | 17 70 61 74 68 24 3d a4 |s.......|.path$=.|
|000005b0| 72 65 61 64 70 61 74 68 | 66 69 6c 65 0d 02 12 53 |readpath|file...S|
|000005c0| e7 20 70 61 74 68 24 3d | 22 22 20 8c 20 f2 6f 70 |. path$=|"" . .op|
|000005d0| 65 6e 77 69 6e 64 6f 77 | 28 69 6e 73 74 61 6c 6c |enwindow|(install|
|000005e0| 25 2c 62 6c 6f 63 6b 25 | 29 20 8b 20 f2 6f 70 65 |%,block%|) . .ope|
|000005f0| 6e 77 69 6e 64 6f 77 28 | 6d 61 69 6e 25 2c 62 6c |nwindow(|main%,bl|
|00000600| 6f 63 6b 25 29 3a f2 73 | 65 74 70 61 74 68 73 0d |ock%):.s|etpaths.|
|00000610| 02 1c 15 f2 73 65 74 75 | 70 6d 65 6e 75 28 6d 65 |....setu|pmenu(me|
|00000620| 6e 75 25 29 0d 02 26 3a | f2 73 65 74 75 70 66 69 |nu%)..&:|.setupfi|
|00000630| 6c 65 6d 65 6e 75 28 68 | 65 6c 70 6d 65 6e 75 25 |lemenu(h|elpmenu%|
|00000640| 2c 22 3c 48 61 72 64 41 | 70 70 73 24 44 69 72 3e |,"<HardA|pps$Dir>|
|00000650| 2e 48 65 6c 70 22 2c 22 | 48 65 6c 70 22 29 0d 02 |.Help","|Help")..|
|00000660| 30 05 e1 0d 02 3a 05 3a | 0d 02 44 43 dc 20 22 48 |0....:.:|..DC. "H|
|00000670| 61 72 64 41 70 70 73 22 | 2c 33 2c 30 2c 69 6e 66 |ardApps"|,3,0,inf|
|00000680| 6f 25 2c 22 49 6e 66 6f | 22 2c 26 32 2c 68 65 6c |o%,"Info|",&2,hel|
|00000690| 70 6d 65 6e 75 25 2c 22 | 48 65 6c 70 22 2c 26 38 |pmenu%,"|Help",&8|
|000006a0| 30 2c 2d 31 2c 22 51 75 | 69 74 22 0d 02 4e 05 3a |0,-1,"Qu|it"..N.:|
|000006b0| 0d 02 58 0a dd f2 70 6f | 6c 6c 0d 02 62 25 c8 99 |..X...po|ll..b%..|
|000006c0| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 31 2c 62 | "Wimp_P|oll",1,b|
|000006d0| 6c 6f 63 6b 25 20 b8 20 | 72 65 61 73 6f 6e 25 0d |lock% . |reason%.|
|000006e0| 02 6c 10 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.l... re|ason% ..|
|000006f0| 02 76 2a 20 20 20 20 c9 | 20 32 20 3a 20 c8 99 20 |.v* .| 2 : .. |
|00000700| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000710| 22 2c 2c 62 6c 6f 63 6b | 25 0d 02 80 2b 20 20 20 |",,block|%...+ |
|00000720| 20 c9 20 33 20 3a 20 c8 | 99 20 22 57 69 6d 70 5f | . 3 : .|. "Wimp_|
|00000730| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |CloseWin|dow",,bl|
|00000740| 6f 63 6b 25 0d 02 8a 2c | 20 20 20 20 20 20 20 20 |ock%...,| |
|00000750| 20 20 20 20 20 e7 20 62 | 6c 6f 63 6b 25 21 30 3c | . b|lock%!0<|
|00000760| 3e 69 6e 66 6f 25 20 8c | 20 71 75 69 74 25 3d b9 |>info% .| quit%=.|
|00000770| 0d 02 94 32 20 20 20 20 | c9 20 36 20 3a 20 f2 63 |...2 |. 6 : .c|
|00000780| 6c 69 63 6b 28 62 6c 6f | 63 6b 25 21 31 32 2c 62 |lick(blo|ck%!12,b|
|00000790| 6c 6f 63 6b 25 21 31 36 | 2c 62 6c 6f 63 6b 25 21 |lock%!16|,block%!|
|000007a0| 38 29 0d 02 9e 25 20 20 | 20 20 c9 20 39 20 3a f2 |8)...% | . 9 :.|
|000007b0| 6d 65 6e 75 28 62 6c 6f | 63 6b 25 21 30 2c 62 6c |menu(blo|ck%!0,bl|
|000007c0| 6f 63 6b 25 21 34 29 0d | 02 a8 1f 20 20 20 20 c9 |ock%!4).|... .|
|000007d0| 20 31 38 2c 31 37 20 3a | c8 8e 20 62 6c 6f 63 6b | 18,17 :|.. block|
|000007e0| 25 21 31 36 20 ca 0d 02 | b2 1f 20 20 20 20 20 20 |%!16 ...|.. |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 c9 20 30 3a 71 75 | | . 0:qu|
|00000800| 69 74 25 3d b9 0d 02 bc | 1d 20 20 20 20 20 20 20 |it%=....|. |
|00000810| 20 20 20 20 20 20 20 20 | 20 c9 20 33 3a f2 6c 6f | | . 3:.lo|
|00000820| 61 64 0d 02 c6 20 20 20 | 20 20 20 20 20 20 20 20 |ad... | |
|00000830| 20 20 20 20 20 20 c9 20 | 26 35 30 32 3a f2 68 65 | . |&502:.he|
|00000840| 6c 70 0d 02 d0 11 20 20 | 20 20 20 20 20 20 20 20 |lp.... | |
|00000850| 20 20 cb 0d 02 da 05 cb | 0d 02 e4 05 e1 0d 02 ee | ......|........|
|00000860| 05 3a 0d 02 f8 1c dd f2 | 63 6c 69 63 6b 28 77 69 |.:......|click(wi|
|00000870| 6e 25 2c 69 63 6f 6e 25 | 2c 62 75 74 25 29 0d 03 |n%,icon%|,but%)..|
|00000880| 02 37 e7 20 62 75 74 25 | 3d 32 20 8c 20 f2 73 68 |.7. but%|=2 . .sh|
|00000890| 6f 77 6d 65 6e 75 28 6d | 65 6e 75 25 2c 28 21 62 |owmenu(m|enu%,(!b|
|000008a0| 6c 6f 63 6b 25 29 2d 36 | 34 2c 62 6c 6f 63 6b 25 |lock%)-6|4,block%|
|000008b0| 21 34 29 3a e1 0d 03 0c | 0d c8 8e 20 77 69 6e 25 |!4):....|... win%|
|000008c0| 20 ca 0d 03 16 18 c9 20 | 6d 61 69 6e 25 20 3a 20 | ...... |main% : |
|000008d0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 03 20 22 20 20 |.. icon%| ... " |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 c9 20 35 20 3a | | . 5 :|
|000008f0| f2 73 61 76 65 6f 70 74 | 69 6f 6e 73 0d 03 2a 2c |.saveopt|ions..*,|
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 c9 20 32 | | . 2|
|00000910| 20 3a 2a 53 45 54 20 48 | 61 72 64 41 70 70 73 24 | :*SET H|ardApps$|
|00000920| 53 63 61 6e 20 59 65 73 | 0d 03 34 25 20 20 20 20 |Scan Yes|..4% |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000940| 20 f2 73 61 76 65 6f 70 | 74 69 6f 6e 73 0d 03 3e | .saveop|tions..>|
|00000950| 49 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |I | |
|00000960| 20 20 20 20 20 20 c8 99 | 20 22 58 4f 53 5f 43 4c | ..| "XOS_CL|
|00000970| 49 22 2c 22 46 69 6c 65 | 72 5f 52 75 6e 20 3c 48 |I","File|r_Run <H|
|00000980| 61 72 64 41 70 70 73 24 | 64 69 72 3e 2e 63 6f 6d |ardApps$|dir>.com|
|00000990| 6d 61 6e 64 73 22 0d 03 | 48 20 20 20 20 20 20 20 |mands"..|H |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 71 | | q|
|000009b0| 75 69 74 25 3d b9 0d 03 | 52 39 20 20 20 20 20 20 |uit%=...|R9 |
|000009c0| 20 20 20 20 20 20 20 c9 | 20 37 20 3a c8 99 20 22 | .| 7 :.. "|
|000009d0| 58 4f 53 5f 43 4c 49 22 | 2c 22 46 69 6c 65 72 5f |XOS_CLI"|,"Filer_|
|000009e0| 4f 70 65 6e 44 69 72 20 | 22 2b 70 61 74 68 24 0d |OpenDir |"+path$.|
|000009f0| 03 5c 12 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.\. | |
|00000a00| cb 0d 03 66 1a c9 20 69 | 6e 73 74 61 6c 6c 25 20 |...f.. i|nstall% |
|00000a10| 3a c8 8e 20 69 63 6f 6e | 25 20 ca 0d 03 70 45 20 |:.. icon|% ...pE |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 c9 20 35 3a | | . 5:|
|00000a30| 20 c8 99 20 22 58 4f 53 | 5f 43 4c 49 22 2c 22 46 | .. "XOS|_CLI","F|
|00000a40| 69 6c 65 72 5f 52 75 6e | 20 52 65 73 6f 75 72 63 |iler_Run| Resourc|
|00000a50| 65 73 3a 24 2e 41 70 70 | 73 2e 21 48 65 6c 70 22 |es:$.App|s.!Help"|
|00000a60| 0d 03 7a 1d 20 20 20 20 | 20 20 20 20 20 20 20 20 |..z. | |
|00000a70| 20 c9 20 38 3a 20 71 75 | 69 74 25 3d b9 0d 03 84 | . 8: qu|it%=....|
|00000a80| 1f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 |. | . |
|00000a90| 31 30 3a 20 f2 69 6e 73 | 74 61 6c 6c 0d 03 8e 12 |10: .ins|tall....|
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 cb 0d 03 | | ...|
|00000ab0| 98 05 cb 0d 03 a2 05 e1 | 0d 03 ac 05 3a 0d 03 b6 |........|....:...|
|00000ac0| 17 dd f2 6d 65 6e 75 28 | 73 65 6c 31 25 2c 73 65 |...menu(|sel1%,se|
|00000ad0| 6c 32 25 29 0d 03 c0 24 | c8 99 20 22 57 69 6d 70 |l2%)...$|.. "Wimp|
|00000ae0| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|00000af0| 2c 2c 62 6c 6f 63 6b 25 | 0d 03 ca 11 62 75 74 25 |,,block%|....but%|
|00000b00| 3d 62 6c 6f 63 6b 25 21 | 38 0d 03 d4 0e c8 8e 20 |=block%!|8...... |
|00000b10| 73 65 6c 31 25 20 ca 0d | 03 de 3e 20 20 c9 20 31 |sel1% ..|..> . 1|
|00000b20| 3a f2 6c 68 65 6c 70 28 | a4 73 74 72 69 6e 67 28 |:.lhelp(|.string(|
|00000b30| 68 65 6c 70 6d 65 6e 75 | 25 2b 32 38 2b 31 32 2b |helpmenu|%+28+12+|
|00000b40| 28 73 65 6c 32 25 2a 32 | 34 29 29 29 20 20 20 20 |(sel2%*2|4))) |
|00000b50| 20 20 20 20 20 0d 03 e8 | 11 20 20 c9 20 32 3a 71 | ...|. . 2:q|
|00000b60| 75 69 74 25 3d b9 0d 03 | f2 05 cb 0d 03 fc 23 e7 |uit%=...|......#.|
|00000b70| 20 62 75 74 25 3d 31 20 | 8c 20 f2 73 68 6f 77 6d | but%=1 |. .showm|
|00000b80| 65 6e 75 28 6d 65 6e 75 | 25 2c 30 2c 30 29 0d 04 |enu(menu|%,0,0)..|
|00000b90| 06 05 e1 0d 04 10 05 3a | 0d 04 1a 11 dd f2 73 61 |.......:|......sa|
|00000ba0| 76 65 6f 70 74 69 6f 6e | 73 0d 04 24 21 58 3d ae |veoption|s..$!X=.|
|00000bb0| 28 22 3c 48 61 72 64 41 | 70 70 73 24 44 69 72 3e |("<HardA|pps$Dir>|
|00000bc0| 2e 4f 70 74 69 6f 6e 73 | 22 29 0d 04 2e 12 62 6c |.Options|")....bl|
|00000bd0| 6f 63 6b 25 21 30 3d 6d | 61 69 6e 25 0d 04 38 0e |ock%!0=m|ain%..8.|
|00000be0| 62 6c 6f 63 6b 25 21 34 | 3d 31 0d 04 42 22 c8 99 |block%!4|=1..B"..|
|00000bf0| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00000c00| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 04 4c 11 |ate",,bl|ock%..L.|
|00000c10| f1 23 58 2c 62 6c 6f 63 | 6b 25 21 32 34 0d 04 56 |.#X,bloc|k%!24..V|
|00000c20| 07 d9 23 58 0d 04 60 05 | e1 0d 04 6a 05 3a 0d 04 |..#X..`.|...j.:..|
|00000c30| 74 11 dd f2 6c 6f 61 64 | 6f 70 74 69 6f 6e 73 0d |t...load|options.|
|00000c40| 04 7e 21 58 3d 8e 28 22 | 3c 48 61 72 64 41 70 70 |.~!X=.("|<HardApp|
|00000c50| 73 24 44 69 72 3e 2e 4f | 70 74 69 6f 6e 73 22 29 |s$Dir>.O|ptions")|
|00000c60| 0d 04 88 0d e7 20 58 3d | 30 20 8c 20 e1 0d 04 92 |..... X=|0 . ....|
|00000c70| 12 62 6c 6f 63 6b 25 21 | 30 3d 6d 61 69 6e 25 0d |.block%!|0=main%.|
|00000c80| 04 9c 0e 62 6c 6f 63 6b | 25 21 34 3d 31 0d 04 a6 |...block|%!4=1...|
|00000c90| 11 e8 20 23 58 2c 62 6c | 6f 63 6b 25 21 38 0d 04 |.. #X,bl|ock%!8..|
|00000ca0| b0 17 62 6c 6f 63 6b 25 | 21 31 32 3d 26 46 46 46 |..block%|!12=&FFF|
|00000cb0| 46 46 46 46 46 0d 04 ba | 22 c8 99 20 22 57 69 6d |FFFFF...|".. "Wim|
|00000cc0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00000cd0| 2c 62 6c 6f 63 6b 25 0d | 04 c4 07 d9 23 58 0d 04 |,block%.|....#X..|
|00000ce0| ce 05 e1 0d 04 d8 04 0d | 04 e2 05 3a 0d 04 ec 6b |........|...:...k|
|00000cf0| f4 20 20 20 50 52 4f 43 | 6f 70 65 6e 74 65 6d 70 |. PROC|opentemp|
|00000d00| 6c 61 74 65 73 28 66 69 | 6c 65 6e 61 6d 65 24 2c |lates(fi|lename$,|
|00000d10| 49 6d 61 69 6e 74 65 6d | 70 69 6e 64 25 2c 49 74 |Imaintem|pind%,It|
|00000d20| 65 6d 70 6c 69 6d 69 74 | 25 2c 49 77 69 6e 64 6f |emplimit|%,Iwindo|
|00000d30| 77 73 74 6f 72 65 25 2c | 66 6f 6e 74 73 25 29 20 |wstore%,|fonts%) |
|00000d40| 20 2d 20 4f 70 65 6e 73 | 20 54 65 6d 70 6c 61 74 | - Opens| Templat|
|00000d50| 65 20 66 69 6c 65 2b 0d | 04 f6 4e dd f2 6f 70 65 |e file+.|..N..ope|
|00000d60| 6e 74 65 6d 70 6c 61 74 | 65 73 28 66 69 6c 65 6e |ntemplat|es(filen|
|00000d70| 61 6d 65 24 2c 49 6d 61 | 69 6e 74 65 6d 70 69 6e |ame$,Ima|intempin|
|00000d80| 64 25 2c 49 74 65 6d 70 | 6c 69 6d 69 74 25 2c 49 |d%,Itemp|limit%,I|
|00000d90| 77 69 6e 64 6f 77 73 74 | 6f 72 65 25 2c 49 66 6f |windowst|ore%,Ifo|
|00000da0| 6e 74 73 25 29 0d 05 00 | 0b ea 20 6c 6f 6f 70 25 |nts%)...|.. loop%|
|00000db0| 0d 05 0a 66 6d 61 69 6e | 74 65 6d 70 69 6e 64 25 |...fmain|tempind%|
|00000dc0| 3d 49 6d 61 69 6e 74 65 | 6d 70 69 6e 64 25 3a 74 |=Imainte|mpind%:t|
|00000dd0| 65 6d 70 6c 69 6d 69 74 | 25 3d 49 74 65 6d 70 6c |emplimit|%=Itempl|
|00000de0| 69 6d 69 74 25 3a 77 69 | 6e 64 6f 77 73 74 6f 72 |imit%:wi|ndowstor|
|00000df0| 65 25 3d 49 77 69 6e 64 | 6f 77 73 74 6f 72 65 25 |e%=Iwind|owstore%|
|00000e00| 3a 66 6f 6e 74 73 70 6f | 69 6e 74 65 72 25 3d 49 |:fontspo|inter%=I|
|00000e10| 66 6f 6e 74 73 25 0d 05 | 14 25 c8 99 20 22 57 69 |fonts%..|.%.. "Wi|
|00000e20| 6d 70 5f 4f 70 65 6e 54 | 65 6d 70 6c 61 74 65 22 |mp_OpenT|emplate"|
|00000e30| 2c 2c 66 69 6c 65 6e 61 | 6d 65 24 0d 05 1e 21 70 |,,filena|me$...!p|
|00000e40| 6f 69 6e 74 65 72 25 3d | 6d 61 69 6e 74 65 6d 70 |ointer%=|maintemp|
|00000e50| 69 6e 64 25 3a 6e 65 78 | 74 25 3d 30 0d 05 28 49 |ind%:nex|t%=0..(I|
|00000e60| e7 20 66 6f 6e 74 73 70 | 6f 69 6e 74 65 72 25 3c |. fontsp|ointer%<|
|00000e70| 3e 2d 31 20 8c 20 e3 20 | 6c 6f 6f 70 25 3d 30 20 |>-1 . . |loop%=0 |
|00000e80| b8 20 26 31 30 30 20 53 | 54 50 45 20 34 3a 66 6f |. &100 S|TPE 4:fo|
|00000e90| 6e 74 73 70 6f 69 6e 74 | 65 72 25 21 6c 6f 6f 70 |ntspoint|er%!loop|
|00000ea0| 25 3d 30 3a ed 0d 05 32 | 05 e1 0d 05 3c 04 0d 05 |%=0:...2|....<...|
|00000eb0| 46 55 f4 20 20 20 46 4e | 72 65 61 64 74 65 6d 70 |FU. FN|readtemp|
|00000ec0| 6c 61 74 65 28 77 69 6e | 6e 61 6d 65 24 29 20 20 |late(win|name$) |
|00000ed0| 20 2d 20 52 65 61 64 73 | 20 61 20 77 69 6e 64 6f | - Reads| a windo|
|00000ee0| 77 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 66 66 |w defini|tion off|
|00000ef0| 20 74 68 65 20 74 65 6d | 70 6c 61 74 65 20 66 69 | the tem|plate fi|
|00000f00| 6c 65 2e 0d 05 50 1c dd | a4 72 65 61 64 74 65 6d |le...P..|.readtem|
|00000f10| 70 6c 61 74 65 28 77 69 | 6e 6e 61 6d 65 24 29 0d |plate(wi|nname$).|
|00000f20| 05 5a 0b ea 20 6e 61 6d | 65 25 0d 05 64 0e de 20 |.Z.. nam|e%..d.. |
|00000f30| 6e 61 6d 65 25 20 31 31 | 0d 05 6e 13 24 6e 61 6d |name% 11|..n.$nam|
|00000f40| 65 25 3d 77 69 6e 6e 61 | 6d 65 24 0d 05 78 79 c8 |e%=winna|me$..xy.|
|00000f50| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|00000f60| 6c 61 74 65 22 2c 2c 77 | 69 6e 64 6f 77 73 74 6f |late",,w|indowsto|
|00000f70| 72 65 25 2c 70 6f 69 6e | 74 65 72 25 2c 6d 61 69 |re%,poin|ter%,mai|
|00000f80| 6e 74 65 6d 70 69 6e 64 | 25 2b 74 65 6d 70 6c 69 |ntempind|%+templi|
|00000f90| 6d 69 74 25 2c 66 6f 6e | 74 73 70 6f 69 6e 74 65 |mit%,fon|tspointe|
|00000fa0| 72 25 2c 6e 61 6d 65 25 | 2c 6e 65 78 74 25 20 b8 |r%,name%|,next% .|
|00000fb0| 20 2c 2c 70 6f 69 6e 74 | 65 72 25 2c 2c 2c 2c 6e | ,,point|er%,,,,n|
|00000fc0| 65 78 74 25 0d 05 82 5a | e7 20 6e 65 78 74 25 3d |ext%...Z|. next%=|
|00000fd0| 30 20 8c 20 f2 65 72 72 | 6f 72 28 22 57 69 6e 64 |0 . .err|or("Wind|
|00000fe0| 6f 77 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6e 6f |ow defin|ition no|
|00000ff0| 74 20 66 6f 75 6e 64 20 | 69 6e 20 54 65 6d 70 6c |t found |in Templ|
|00001000| 61 74 65 20 28 49 64 65 | 6e 74 69 66 69 65 72 3d |ate (Ide|ntifier=|
|00001010| 22 2b 24 6e 61 6d 65 25 | 2b 22 29 2e 22 29 0d 05 |"+$name%|+").")..|
|00001020| 8c 38 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.8.. "Wi|mp_Creat|
|00001030| 65 57 69 6e 64 6f 77 22 | 2c 2c 77 69 6e 64 6f 77 |eWindow"|,,window|
|00001040| 73 74 6f 72 65 25 20 b8 | 20 77 69 6e 64 6f 77 68 |store% .| windowh|
|00001050| 61 6e 64 6c 65 25 0d 05 | 96 12 3d 77 69 6e 64 6f |andle%..|..=windo|
|00001060| 77 68 61 6e 64 6c 65 25 | 0d 05 a0 05 3a 0d 05 aa |whandle%|....:...|
|00001070| 2f f4 20 50 52 4f 43 6f | 70 65 6e 77 69 6e 64 6f |/. PROCo|penwindo|
|00001080| 77 20 20 20 2d 20 4f 70 | 65 6e 73 20 77 69 6e 64 |w - Op|ens wind|
|00001090| 6f 77 20 61 74 20 66 72 | 6f 6e 74 2e 0d 05 b4 2c |ow at fr|ont....,|
|000010a0| dd f2 6f 70 65 6e 77 69 | 6e 64 6f 77 28 77 69 6e |..openwi|ndow(win|
|000010b0| 64 6f 77 68 61 6e 64 6c | 65 25 2c 77 69 6e 64 6f |dowhandl|e%,windo|
|000010c0| 77 73 74 6f 72 65 25 29 | 0d 05 be 1f 21 77 69 6e |wstore%)|....!win|
|000010d0| 64 6f 77 73 74 6f 72 65 | 25 3d 77 69 6e 64 6f 77 |dowstore|%=window|
|000010e0| 68 61 6e 64 6c 65 25 0d | 05 c8 2a c8 99 20 22 57 |handle%.|..*.. "W|
|000010f0| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00001100| 74 65 22 2c 2c 77 69 6e | 64 6f 77 73 74 6f 72 65 |te",,win|dowstore|
|00001110| 25 0d 05 d2 19 21 28 77 | 69 6e 64 6f 77 73 74 6f |%....!(w|indowsto|
|00001120| 72 65 25 2b 32 38 29 3d | 2d 31 0d 05 dc 26 c8 99 |re%+28)=|-1...&..|
|00001130| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001140| 77 22 2c 2c 77 69 6e 64 | 6f 77 73 74 6f 72 65 25 |w",,wind|owstore%|
|00001150| 0d 05 e6 05 e1 0d 05 f0 | 04 0d 05 fa 2d f4 20 46 |........|....-. F|
|00001160| 4e 69 6e 69 74 74 61 73 | 6b 20 20 20 20 20 20 2d |Ninittas|k -|
|00001170| 20 49 6e 69 74 69 61 6c | 69 73 65 73 20 74 68 65 | Initial|ises the|
|00001180| 20 74 61 73 6b 2e 0d 06 | 04 1e dd a4 69 6e 69 74 | task...|....init|
|00001190| 74 61 73 6b 28 49 61 70 | 70 24 2c 49 52 49 53 43 |task(Iap|p$,IRISC|
|000011a0| 4f 53 25 29 0d 06 0e 48 | c8 99 20 22 57 69 6d 70 |OS%)...H|.. "Wimp|
|000011b0| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 49 52 49 |_Initial|ise",IRI|
|000011c0| 53 43 4f 53 25 2a 31 30 | 30 2c 26 34 42 35 33 34 |SCOS%*10|0,&4B534|
|000011d0| 31 35 34 2c 49 61 70 70 | 24 20 b8 20 52 49 53 43 |154,Iapp|$ . RISC|
|000011e0| 4f 53 25 2c 54 68 61 6e | 64 6c 65 25 0d 06 18 0e |OS%,Than|dle%....|
|000011f0| 61 70 70 24 3d 49 61 70 | 70 24 0d 06 22 23 ee 20 |app$=Iap|p$.."#. |
|00001200| 85 20 3a 20 f2 65 72 72 | 6f 72 28 f6 24 2b 22 20 |. : .err|or(.$+" |
|00001210| 61 74 20 6c 69 6e 65 20 | 22 2b c3 9e 29 0d 06 2c |at line |"+..)..,|
|00001220| 0d 3d 54 68 61 6e 64 6c | 65 25 0d 06 36 05 3a 0d |.=Thandl|e%..6.:.|
|00001230| 06 40 4b f4 20 46 4e 72 | 65 61 64 5f 69 6e 64 69 |.@K. FNr|ead_indi|
|00001240| 72 65 63 74 5f 69 63 6f | 6e 28 77 69 6e 64 6f 68 |rect_ico|n(windoh|
|00001250| 25 2c 69 63 6f 6e 68 25 | 29 20 2d 20 67 69 76 65 |%,iconh%|) - give|
|00001260| 73 20 61 64 64 72 65 73 | 73 6f 66 20 69 6e 64 69 |s addres|sof indi|
|00001270| 72 65 63 74 20 74 65 78 | 74 2e 0d 06 4a 28 dd a4 |rect tex|t...J(..|
|00001280| 72 65 61 64 5f 69 6e 64 | 69 72 65 63 74 5f 69 63 |read_ind|irect_ic|
|00001290| 6f 6e 28 77 69 6e 64 6f | 68 25 2c 69 63 6f 6e 68 |on(windo|h%,iconh|
|000012a0| 25 29 0d 06 54 0c ea 20 | 62 6c 6f 63 6b 25 0d 06 |%)..T.. |block%..|
|000012b0| 5e 10 de 20 62 6c 6f 63 | 6b 25 20 32 35 36 0d 06 |^.. bloc|k% 256..|
|000012c0| 68 13 21 62 6c 6f 63 6b | 25 3d 77 69 6e 64 6f 68 |h.!block|%=windoh|
|000012d0| 25 0d 06 72 13 62 6c 6f | 63 6b 25 21 34 3d 69 63 |%..r.blo|ck%!4=ic|
|000012e0| 6f 6e 68 25 0d 06 7c 22 | c8 99 20 22 57 69 6d 70 |onh%..|"|.. "Wimp|
|000012f0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001300| 62 6c 6f 63 6b 25 0d 06 | 86 0e 3d 62 6c 6f 63 6b |block%..|..=block|
|00001310| 25 21 32 38 0d 06 90 05 | 3a 0d 06 9a 05 3a 0d 06 |%!28....|:....:..|
|00001320| a4 6c f4 20 44 45 46 46 | 4e 72 65 61 64 69 63 6f |.l. DEFF|Nreadico|
|00001330| 6e 66 6c 61 67 28 69 63 | 6f 6e 25 2c 77 68 61 6e |nflag(ic|on%,whan|
|00001340| 64 6c 65 25 2c 62 6c 6f | 63 6b 25 29 20 3a 20 53 |dle%,blo|ck%) : S|
|00001350| 65 65 73 20 77 65 74 68 | 65 72 20 69 63 6f 6e 20 |ees weth|er icon |
|00001360| 69 73 20 73 65 6c 65 63 | 74 65 64 20 6f 72 20 6e |is selec|ted or n|
|00001370| 6f 74 20 28 52 65 74 75 | 72 6e 73 20 74 72 75 65 |ot (Retu|rns true|
|00001380| 20 6f 72 20 66 61 6c 73 | 65 29 0d 06 ae 28 dd a4 | or fals|e)...(..|
|00001390| 72 65 61 64 69 63 6f 6e | 66 6c 61 67 28 69 63 6f |readicon|flag(ico|
|000013a0| 6e 25 2c 68 61 6e 64 6c | 65 25 2c 62 6c 6f 63 6b |n%,handl|e%,block|
|000013b0| 25 29 0d 06 b8 22 21 62 | 6c 6f 63 6b 25 3d 68 61 |%)..."!b|lock%=ha|
|000013c0| 6e 64 6c 65 25 3a 62 6c | 6f 63 6b 25 21 34 3d 69 |ndle%:bl|ock%!4=i|
|000013d0| 63 6f 6e 25 0d 06 c2 22 | c8 99 20 22 57 69 6d 70 |con%..."|.. "Wimp|
|000013e0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|000013f0| 62 6c 6f 63 6b 25 0d 06 | cc 14 66 6c 61 67 73 25 |block%..|..flags%|
|00001400| 3d 62 6c 6f 63 6b 25 21 | 32 34 0d 06 d6 11 62 69 |=block%!|24....bi|
|00001410| 74 72 25 3d 26 32 30 30 | 30 30 30 0d 06 e0 1b 3d |tr%=&200|000....=|
|00001420| 28 66 6c 61 67 73 25 20 | 80 20 62 69 74 72 25 29 |(flags% |. bitr%)|
|00001430| 2f 62 69 74 72 25 0d 06 | ea 05 3a 0d 06 f4 4b f4 |/bitr%..|..:...K.|
|00001440| 20 44 45 46 46 4e 73 74 | 72 69 6e 67 28 70 6f 69 | DEFFNst|ring(poi|
|00001450| 6e 74 65 72 25 29 20 3a | 20 47 65 74 73 20 42 41 |nter%) :| Gets BA|
|00001460| 53 49 43 20 73 74 72 69 | 6e 67 20 66 72 6f 6d 20 |SIC stri|ng from |
|00001470| 61 20 30 20 74 65 72 6d | 69 6e 61 74 65 64 20 73 |a 0 term|inated s|
|00001480| 74 72 69 6e 67 2e 0d 06 | fe 12 dd a4 73 74 72 69 |tring...|....stri|
|00001490| 6e 67 28 70 74 72 25 29 | 0d 07 08 08 ea 20 61 24 |ng(ptr%)|..... a$|
|000014a0| 0d 07 12 1d c8 95 20 28 | 3f 70 74 72 25 3c 3e 30 |...... (|?ptr%<>0|
|000014b0| 20 80 20 3f 70 74 72 25 | 3c 3e 31 33 29 0d 07 1c | . ?ptr%|<>13)...|
|000014c0| 1a 61 24 3d 61 24 2b bd | 28 3f 70 74 72 25 29 3a |.a$=a$+.|(?ptr%):|
|000014d0| 70 74 72 25 2b 3d 31 0d | 07 26 05 ce 0d 07 30 07 |ptr%+=1.|.&....0.|
|000014e0| 3d 61 24 0d 07 3a 05 3a | 0d 07 44 71 f4 20 50 52 |=a$..:.:|..Dq. PR|
|000014f0| 4f 43 73 65 74 75 70 6d | 65 6e 75 28 6d 65 6e 75 |OCsetupm|enu(menu|
|00001500| 25 29 20 20 20 20 2d 20 | 49 6e 69 74 69 61 6c 69 |%) - |Initiali|
|00001510| 73 65 73 20 61 20 4d 65 | 6e 75 20 44 69 6d 20 28 |ses a Me|nu Dim (|
|00001520| 69 6e 20 6d 65 6e 75 25 | 29 20 4d 75 73 74 20 68 |in menu%|) Must h|
|00001530| 61 76 65 20 44 61 74 61 | 20 52 45 53 54 4f 52 45 |ave Data| RESTORE|
|00001540| 44 20 74 6f 20 62 65 66 | 6f 72 65 20 63 61 6c 6c |D to bef|ore call|
|00001550| 69 6e 67 20 70 72 6f 63 | 2e 0d 07 4e 16 dd f2 73 |ing proc|...N...s|
|00001560| 65 74 75 70 6d 65 6e 75 | 28 6d 65 6e 75 25 29 0d |etupmenu|(menu%).|
|00001570| 07 58 23 ea 20 74 69 74 | 6c 65 24 2c 6e 75 6d 25 |.X#. tit|le$,num%|
|00001580| 2c 77 69 64 74 68 25 2c | 70 74 72 25 2c 69 74 65 |,width%,|ptr%,ite|
|00001590| 6d 24 0d 07 62 1f f3 20 | 74 69 74 6c 65 24 2c 6e |m$..b.. |title$,n|
|000015a0| 75 6d 25 3a 24 6d 65 6e | 75 25 3d 74 69 74 6c 65 |um%:$men|u%=title|
|000015b0| 24 0d 07 6c 1b 77 69 64 | 74 68 25 3d 28 a9 28 74 |$..l.wid|th%=(.(t|
|000015c0| 69 74 6c 65 24 29 2d 31 | 29 2a 31 36 0d 07 76 2d |itle$)-1|)*16..v-|
|000015d0| 6d 65 6e 75 25 21 31 32 | 3d 26 30 30 30 37 30 32 |menu%!12|=&000702|
|000015e0| 30 37 3a 6d 65 6e 75 25 | 21 32 30 3d 34 34 3a 6d |07:menu%|!20=44:m|
|000015f0| 65 6e 75 25 21 32 34 3d | 30 0d 07 80 1f 70 74 72 |enu%!24=|0....ptr|
|00001600| 25 3d 6d 65 6e 75 25 2b | 32 38 3a e3 20 69 25 3d |%=menu%+|28:. i%=|
|00001610| 31 20 b8 20 6e 75 6d 25 | 0d 07 8a 1b f3 20 6d 66 |1 . num%|..... mf|
|00001620| 6c 61 67 73 25 2c 73 75 | 62 70 74 72 25 2c 69 74 |lags%,su|bptr%,it|
|00001630| 65 6d 24 0d 07 94 20 21 | 70 74 72 25 3d 6d 66 6c |em$... !|ptr%=mfl|
|00001640| 61 67 73 25 3a 70 74 72 | 25 21 34 3d 73 75 62 70 |ags%:ptr|%!4=subp|
|00001650| 74 72 25 0d 07 9e 24 70 | 74 72 25 21 38 3d 26 37 |tr%...$p|tr%!8=&7|
|00001660| 30 30 30 30 32 31 3a 24 | 28 70 74 72 25 2b 31 32 |000021:$|(ptr%+12|
|00001670| 29 3d 69 74 65 6d 24 0d | 07 a8 16 61 25 3d 28 a9 |)=item$.|...a%=(.|
|00001680| 28 69 74 65 6d 24 29 2b | 31 29 2a 31 36 0d 07 b2 |(item$)+|1)*16...|
|00001690| 19 e7 20 61 25 3e 77 69 | 64 74 68 25 20 77 69 64 |.. a%>wi|dth% wid|
|000016a0| 74 68 25 3d 61 25 0d 07 | bc 0e 70 74 72 25 2b 3d |th%=a%..|..ptr%+=|
|000016b0| 32 34 3a ed 0d 07 c6 13 | 6d 65 6e 75 25 21 31 36 |24:.....|menu%!16|
|000016c0| 3d 77 69 64 74 68 25 0d | 07 d0 04 0d 07 da 05 e1 |=width%.|........|
|000016d0| 0d 07 e4 04 0d 07 ee 40 | f4 20 50 52 4f 43 73 68 |.......@|. PROCsh|
|000016e0| 6f 77 6d 65 6e 75 20 20 | 20 20 20 2d 20 4f 70 65 |owmenu | - Ope|
|000016f0| 6e 73 20 73 70 65 63 69 | 66 69 65 64 20 6d 65 6e |ns speci|fied men|
|00001700| 75 20 61 74 20 70 6c 61 | 63 65 20 72 65 71 75 69 |u at pla|ce requi|
|00001710| 72 65 64 2e 0d 07 f8 1d | dd f2 73 68 6f 77 6d 65 |red.....|..showme|
|00001720| 6e 75 28 6d 65 6e 75 25 | 2c 6d 78 25 2c 6d 79 25 |nu(menu%|,mx%,my%|
|00001730| 29 0d 08 02 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |)...'.. |"Wimp_Cr|
|00001740| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00001750| 2c 6d 78 25 2c 6d 79 25 | 0d 08 0c 05 e1 0d 08 16 |,mx%,my%|........|
|00001760| 04 0d 08 20 70 f4 20 46 | 4e 72 65 70 6f 72 74 28 |... p. F|Nreport(|
|00001770| 65 72 72 24 2c 66 6c 61 | 67 25 29 20 20 20 2d 20 |err$,fla|g%) - |
|00001780| 4f 70 65 6e 73 20 6e 6f | 6e 20 6d 75 6c 74 69 74 |Opens no|n multit|
|00001790| 61 73 6b 69 6e 67 20 65 | 72 72 6f 72 20 62 6f 78 |asking e|rror box|
|000017a0| 20 77 69 74 68 20 73 70 | 65 63 69 66 69 65 64 20 | with sp|ecified |
|000017b0| 62 75 74 74 6f 6e 73 2e | 20 52 65 74 75 72 6e 73 |buttons.| Returns|
|000017c0| 20 74 68 65 20 65 72 72 | 6f 72 20 63 6c 69 63 6b | the err|or click|
|000017d0| 2e 0d 08 2a 18 dd a4 72 | 65 70 6f 72 74 28 65 72 |...*...r|eport(er|
|000017e0| 72 24 2c 66 6c 61 67 25 | 29 0d 08 34 0c ea 20 62 |r$,flag%|)..4.. b|
|000017f0| 6c 6f 63 6b 25 0d 08 3e | 10 de 20 62 6c 6f 63 6b |lock%..>|.. block|
|00001800| 25 20 32 35 35 0d 08 48 | 0f 21 62 6c 6f 63 6b 25 |% 255..H|.!block%|
|00001810| 3d 32 35 35 0d 08 52 0e | 6e 61 6d 65 24 3d 61 70 |=255..R.|name$=ap|
|00001820| 70 24 0d 08 5c 2e e7 20 | 66 6c 61 67 25 20 80 20 |p$..\.. |flag% . |
|00001830| 31 36 20 8c 20 6e 61 6d | 65 24 3d 22 4d 65 73 73 |16 . nam|e$="Mess|
|00001840| 61 67 65 20 66 72 6f 6d | 20 22 2b 6e 61 6d 65 24 |age from| "+name$|
|00001850| 0d 08 66 17 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |..f.$(bl|ock%+4)=|
|00001860| 65 72 72 24 2b bd 30 0d | 08 70 39 c8 99 20 22 57 |err$+.0.|.p9.. "W|
|00001870| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00001880| 2c 62 6c 6f 63 6b 25 2c | 66 6c 61 67 25 2c 6e 61 |,block%,|flag%,na|
|00001890| 6d 65 24 20 b8 20 2c 65 | 72 72 63 6c 69 63 6b 25 |me$ . ,e|rrclick%|
|000018a0| 0d 08 7a 0e 3d 65 72 72 | 63 6c 69 63 6b 25 0d 08 |..z.=err|click%..|
|000018b0| 84 04 0d 08 8e 36 f4 20 | 50 52 4f 43 65 72 72 6f |.....6. |PROCerro|
|000018c0| 72 20 20 20 2d 20 54 6f | 20 62 65 20 63 61 6c 6c |r - To| be call|
|000018d0| 65 64 20 77 68 65 6e 20 | 61 6e 20 65 72 72 6f 72 |ed when |an error|
|000018e0| 20 6f 63 63 75 72 65 73 | 0d 08 98 0f dd f2 65 72 | occures|......er|
|000018f0| 72 6f 72 28 61 24 29 0d | 08 a2 18 65 6e 64 25 3d |ror(a$).|...end%=|
|00001900| a4 72 65 70 6f 72 74 28 | 61 24 2c 25 31 30 29 0d |.report(|a$,%10).|
|00001910| 08 ac 17 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00001920| 65 44 6f 77 6e 22 0d 08 | b6 05 e0 0d 08 c0 05 e1 |eDown"..|........|
|00001930| 0d 08 ca 05 3a 0d 08 d4 | 12 dd a4 72 65 61 64 70 |....:...|...readp|
|00001940| 61 74 68 66 69 6c 65 0d | 08 de 0a ea 20 58 2c 67 |athfile.|.... X,g|
|00001950| 24 0d 08 e8 1e 58 3d 8e | 28 22 3c 48 61 72 64 41 |$....X=.|("<HardA|
|00001960| 70 70 73 24 44 69 72 3e | 2e 50 61 74 68 22 29 0d |pps$Dir>|.Path").|
|00001970| 08 f2 0f e7 20 58 3d 30 | 20 8c 20 3d 22 22 0d 08 |.... X=0| . =""..|
|00001980| fc 0a 67 24 3d be 23 58 | 0d 09 06 08 d9 20 23 58 |..g$=.#X|..... #X|
|00001990| 0d 09 10 07 3d 67 24 0d | 09 1a 05 3a 0d 09 24 1f |....=g$.|...:..$.|
|000019a0| f4 20 46 4e 63 72 65 61 | 74 65 5f 69 63 6f 6e 20 |. FNcrea|te_icon |
|000019b0| 20 20 20 20 2d 20 47 75 | 65 73 73 0d 09 2e 46 dd | - Gu|ess...F.|
|000019c0| a4 63 72 65 61 74 65 5f | 69 63 6f 6e 28 77 68 61 |.create_|icon(wha|
|000019d0| 6e 25 2c 69 78 25 2c 69 | 79 25 2c 69 77 25 2c 69 |n%,ix%,i|y%,iw%,i|
|000019e0| 68 25 2c 66 6c 61 67 25 | 2c 74 65 78 74 24 2c 70 |h%,flag%|,text$,p|
|000019f0| 72 74 31 25 2c 70 72 74 | 32 25 2c 70 74 72 33 25 |rt1%,prt|2%,ptr3%|
|00001a00| 29 0d 09 38 0c ea 20 62 | 6c 6f 63 6b 25 0d 09 42 |)..8.. b|lock%..B|
|00001a10| 0f de 20 62 6c 6f 63 6b | 25 20 34 30 0d 09 4c 11 |.. block|% 40..L.|
|00001a20| 21 62 6c 6f 63 6b 25 3d | 77 68 61 6e 25 0d 09 56 |!block%=|whan%..V|
|00001a30| 10 62 6c 6f 63 6b 25 21 | 34 3d 69 78 25 0d 09 60 |.block%!|4=ix%..`|
|00001a40| 10 62 6c 6f 63 6b 25 21 | 38 3d 69 79 25 0d 09 6a |.block%!|8=iy%..j|
|00001a50| 15 62 6c 6f 63 6b 25 21 | 31 32 3d 69 78 25 2b 69 |.block%!|12=ix%+i|
|00001a60| 77 25 0d 09 74 15 62 6c | 6f 63 6b 25 21 31 36 3d |w%..t.bl|ock%!16=|
|00001a70| 69 79 25 2b 69 68 25 0d | 09 7e 13 62 6c 6f 63 6b |iy%+ih%.|.~.block|
|00001a80| 25 21 32 30 3d 66 6c 61 | 67 25 0d 09 88 23 e7 20 |%!20=fla|g%...#. |
|00001a90| 70 72 74 31 25 3d 30 20 | 80 20 70 72 74 32 25 3d |prt1%=0 |. prt2%=|
|00001aa0| 30 20 80 20 70 74 72 33 | 25 3d 30 20 8c 0d 09 92 |0 . ptr3|%=0 ....|
|00001ab0| 16 24 28 62 6c 6f 63 6b | 25 2b 32 34 29 3d 74 65 |.$(block|%+24)=te|
|00001ac0| 78 74 24 0d 09 9c 05 cc | 0d 09 a6 13 62 6c 6f 63 |xt$.....|....bloc|
|00001ad0| 6b 25 21 32 34 3d 70 72 | 74 31 25 0d 09 b0 13 62 |k%!24=pr|t1%....b|
|00001ae0| 6c 6f 63 6b 25 21 32 38 | 3d 70 72 74 32 25 0d 09 |lock%!28|=prt2%..|
|00001af0| ba 13 62 6c 6f 63 6b 25 | 21 33 32 3d 70 74 72 33 |..block%|!32=ptr3|
|00001b00| 25 0d 09 c4 05 cd 0d 09 | ce 2b c8 99 20 22 57 69 |%.......|.+.. "Wi|
|00001b10| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|00001b20| 62 6c 6f 63 6b 25 20 b8 | 20 69 68 61 6e 64 6c 65 |block% .| ihandle|
|00001b30| 25 0d 09 d8 0d 3d 69 68 | 61 6e 64 6c 65 25 0d 09 |%....=ih|andle%..|
|00001b40| e2 05 3a 0d 09 ec 0e dd | f2 73 65 74 70 61 74 68 |..:.....|.setpath|
|00001b50| 73 0d 09 f6 27 6f 6b 25 | 3d a4 72 65 61 64 5f 69 |s...'ok%|=.read_i|
|00001b60| 6e 64 69 72 65 63 74 5f | 69 63 6f 6e 28 69 6e 73 |ndirect_|icon(ins|
|00001b70| 74 61 6c 6c 25 2c 34 29 | 0d 0a 00 0e 24 6f 6b 25 |tall%,4)|....$ok%|
|00001b80| 3d 70 61 74 68 24 0d 0a | 0a 1c f2 72 65 64 72 61 |=path$..|...redra|
|00001b90| 77 5f 69 63 6f 6e 28 69 | 6e 73 74 61 6c 6c 25 2c |w_icon(i|nstall%,|
|00001ba0| 34 29 0d 0a 14 05 e1 0d | 0a 1e 05 3a 0d 0a 28 1d |4)......|...:..(.|
|00001bb0| dd f2 72 65 64 72 61 77 | 5f 69 63 6f 6e 28 77 69 |..redraw|_icon(wi|
|00001bc0| 6e 25 2c 69 63 6f 6e 25 | 29 0d 0a 32 8b 21 62 6c |n%,icon%|)..2.!bl|
|00001bd0| 6f 63 6b 25 3d 77 69 6e | 25 3a 62 6c 6f 63 6b 25 |ock%=win|%:block%|
|00001be0| 21 34 3d 69 63 6f 6e 25 | 3a c8 99 22 57 69 6d 70 |!4=icon%|:.."Wimp|
|00001bf0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001c00| 62 6c 6f 63 6b 25 3a 21 | 62 6c 6f 63 6b 25 3d 77 |block%:!|block%=w|
|00001c10| 69 6e 25 3a c8 99 22 57 | 69 6d 70 5f 46 6f 72 63 |in%:.."W|imp_Forc|
|00001c20| 65 52 65 64 72 61 77 22 | 2c 77 69 6e 25 2c 62 6c |eRedraw"|,win%,bl|
|00001c30| 6f 63 6b 25 21 38 2c 62 | 6c 6f 63 6b 25 21 31 32 |ock%!8,b|lock%!12|
|00001c40| 2c 62 6c 6f 63 6b 25 21 | 31 36 2c 62 6c 6f 63 6b |,block%!|16,block|
|00001c50| 25 21 32 30 0d 0a 3c 05 | e1 0d 0a 46 05 3a 0d 0a |%!20..<.|...F.:..|
|00001c60| 50 0a dd f2 6c 6f 61 64 | 0d 0a 5a a5 e7 20 62 6c |P...load|..Z.. bl|
|00001c70| 6f 63 6b 25 21 32 30 3c | 3e 69 6e 73 74 61 6c 6c |ock%!20<|>install|
|00001c80| 25 20 8c 20 6f 6b 25 3d | a4 72 65 70 6f 72 74 28 |% . ok%=|.report(|
|00001c90| 22 54 6f 20 69 6e 73 74 | 61 6c 6c 20 61 6e 20 61 |"To inst|all an a|
|00001ca0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 69 6e 20 74 68 |pplicati|on in th|
|00001cb0| 65 20 52 65 73 6f 75 72 | 63 65 46 53 2c 20 70 6c |e Resour|ceFS, pl|
|00001cc0| 65 61 73 65 20 63 6f 70 | 79 20 69 74 20 69 6e 74 |ease cop|y it int|
|00001cd0| 6f 20 74 68 65 20 52 4f | 4d 41 70 70 73 20 56 69 |o the RO|MApps Vi|
|00001ce0| 65 77 65 72 20 74 68 65 | 6e 20 72 65 73 63 61 6e |ewer the|n rescan|
|00001cf0| 20 74 68 65 20 52 4f 4d | 41 70 70 73 20 64 69 72 | the ROM|Apps dir|
|00001d00| 65 63 74 6f 72 79 2e 22 | 2c 32 29 3a e1 0d 0a 64 |ectory."|,2):...d|
|00001d10| 6b e7 20 62 6c 6f 63 6b | 25 21 34 30 3c 26 31 30 |k. block|%!40<&10|
|00001d20| 30 30 20 8c 20 6f 6b 25 | 3d a4 72 65 70 6f 72 74 |00 . ok%|=.report|
|00001d30| 28 22 21 48 61 72 64 41 | 70 70 73 20 63 61 6e 20 |("!HardA|pps can |
|00001d40| 6f 6e 6c 79 20 62 65 20 | 69 6e 73 74 61 6c 6c 65 |only be |installe|
|00001d50| 64 20 69 6e 20 61 20 64 | 69 72 65 63 74 6f 72 79 |d in a d|irectory|
|00001d60| 20 28 6f 72 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | (or app|lication|
|00001d70| 29 2e 22 2c 32 29 3a e1 | 0d 0a 6e 19 72 24 3d a4 |).",2):.|..n.r$=.|
|00001d80| 73 74 72 69 6e 67 28 62 | 6c 6f 63 6b 25 2b 34 34 |string(b|lock%+44|
|00001d90| 29 0d 0a 78 3a 64 72 69 | 76 65 25 3d a4 66 69 6e |)..x:dri|ve%=.fin|
|00001da0| 64 5f 64 72 69 76 65 5f | 6e 75 6d 62 65 72 28 72 |d_drive_|number(r|
|00001db0| 24 29 3a 71 24 3d a4 66 | 69 6e 64 5f 66 69 6c 65 |$):q$=.f|ind_file|
|00001dc0| 5f 73 79 73 74 65 6d 28 | 72 24 29 0d 0a 82 54 e7 |_system(|r$)...T.|
|00001dd0| 20 64 72 69 76 65 25 3d | 2d 31 20 8c 20 6f 6b 25 | drive%=|-1 . ok%|
|00001de0| 3d a4 72 65 70 6f 72 74 | 28 22 43 61 6e 6e 6f 74 |=.report|("Cannot|
|00001df0| 20 66 69 6e 64 20 74 68 | 69 73 20 64 69 73 63 20 | find th|is disc |
|00001e00| 6e 61 6d 65 20 6f 6e 20 | 61 76 61 69 6c 61 62 6c |name on |availabl|
|00001e10| 65 20 64 72 69 76 65 73 | 2e 22 2c 32 29 3a e1 0d |e drives|.",2):..|
|00001e20| 0a 8c 4f 70 61 74 68 24 | 3d 71 24 2b 22 3a 3a 22 |..Opath$|=q$+"::"|
|00001e30| 2b c3 28 64 72 69 76 65 | 25 29 2b 22 2e 22 2b c2 |+.(drive|%)+"."+.|
|00001e40| 72 24 2c 28 a9 28 72 24 | 29 2d a9 28 71 24 29 2d |r$,(.(r$|)-.(q$)-|
|00001e50| a4 6c 65 6e 67 74 68 5f | 6f 66 5f 64 72 69 76 65 |.length_|of_drive|
|00001e60| 5f 6e 61 6d 65 28 72 24 | 2c 71 24 29 29 29 0d 0a |_name(r$|,q$)))..|
|00001e70| 96 29 e7 20 62 6c 6f 63 | 6b 25 21 34 30 3d 26 32 |.). bloc|k%!40=&2|
|00001e80| 30 30 30 20 8c 20 70 61 | 74 68 24 2b 3d 22 2e 52 |000 . pa|th$+=".R|
|00001e90| 4f 4d 41 70 70 73 22 0d | 0a a0 0d f2 73 65 74 70 |OMApps".|....setp|
|00001ea0| 61 74 68 73 0d 0a aa 05 | e1 0d 0a b4 05 3a 0d 0a |aths....|.....:..|
|00001eb0| be 21 dd a4 6c 65 6e 67 | 74 68 5f 6f 66 5f 64 72 |.!..leng|th_of_dr|
|00001ec0| 69 76 65 5f 6e 61 6d 65 | 28 73 24 2c 71 24 29 0d |ive_name|(s$,q$).|
|00001ed0| 0a c8 31 ea 20 73 74 72 | 24 2c 74 25 2c 6c 25 3a |..1. str|$,t%,l%:|
|00001ee0| 6c 25 3d a9 28 71 24 29 | 3a f5 3a 72 25 3d 97 28 |l%=.(q$)|:.:r%=.(|
|00001ef0| c1 73 24 2c 6c 25 2c 31 | 29 29 3a 6c 25 2b 3d 31 |.s$,l%,1|)):l%+=1|
|00001f00| 0d 0a d2 22 e7 20 72 25 | 3d 97 22 2e 22 20 8c 20 |...". r%|=."." . |
|00001f10| 74 25 3d b9 20 8b 20 73 | 74 72 24 2b 3d bd 28 72 |t%=. . s|tr$+=.(r|
|00001f20| 25 29 0d 0a dc 08 fd 20 | 74 25 0d 0a e6 0c 3d a9 |%)..... |t%....=.|
|00001f30| 28 73 74 72 24 29 0d 0a | f0 05 3a 0d 0a fa 1a dd |(str$)..|..:.....|
|00001f40| a4 66 69 6e 64 5f 66 69 | 6c 65 5f 73 79 73 74 65 |.find_fi|le_syste|
|00001f50| 6d 28 73 24 29 0d 0b 04 | 28 ea 20 73 74 72 24 2c |m(s$)...|(. str$,|
|00001f60| 74 25 2c 6c 25 3a f5 3a | 6c 25 2b 3d 31 3a 72 25 |t%,l%:.:|l%+=1:r%|
|00001f70| 3d 97 28 c1 73 24 2c 6c | 25 2c 31 29 29 0d 0b 0e |=.(.s$,l|%,1))...|
|00001f80| 22 e7 20 72 25 3d 97 22 | 3a 22 20 8c 20 74 25 3d |". r%=."|:" . t%=|
|00001f90| b9 20 8b 20 73 74 72 24 | 2b 3d bd 28 72 25 29 0d |. . str$|+=.(r%).|
|00001fa0| 0b 18 08 fd 20 74 25 0d | 0b 22 09 3d 73 74 72 24 |.... t%.|.".=str$|
|00001fb0| 0d 0b 2c 05 3a 0d 0b 36 | 1a dd a4 73 79 73 76 61 |..,.:..6|...sysva|
|00001fc0| 72 69 61 62 6c 65 28 73 | 79 73 76 61 72 24 29 0d |riable(s|ysvar$).|
|00001fd0| 0b 40 0c ea 20 62 6c 6f | 63 6b 25 0d 0b 4a 10 de |.@.. blo|ck%..J..|
|00001fe0| 20 62 6c 6f 63 6b 25 20 | 32 35 35 0d 0b 54 3e c8 | block% |255..T>.|
|00001ff0| 99 20 22 58 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |. "XOS_R|eadVarVa|
|00002000| 6c 22 2c 73 79 73 76 61 | 72 24 2c 62 6c 6f 63 6b |l",sysva|r$,block|
|00002010| 25 2c 32 35 35 2c 30 2c | 33 20 b8 20 2c 2c 6c 65 |%,255,0,|3 . ,,le|
|00002020| 6e 25 3b 66 6c 61 67 73 | 25 0d 0b 5e 16 e7 20 66 |n%;flags|%..^.. f|
|00002030| 6c 61 67 73 25 20 80 20 | 31 20 8c 20 3d 22 22 0d |lags% . |1 . ="".|
|00002040| 0b 68 12 62 6c 6f 63 6b | 25 3f 6c 65 6e 25 3d 31 |.h.block|%?len%=1|
|00002050| 33 0d 0b 72 0c 3d 24 62 | 6c 6f 63 6b 25 0d 0b 7c |3..r.=$b|lock%..||
|00002060| 05 3a 0d 0b 86 1f dd a4 | 66 69 6e 64 5f 64 72 69 |.:......|find_dri|
|00002070| 76 65 5f 6e 75 6d 62 65 | 72 28 62 6f 64 67 65 24 |ve_numbe|r(bodge$|
|00002080| 29 0d 0b 9a 3e 66 69 6c | 65 73 79 73 74 65 6d 24 |)...>fil|esystem$|
|00002090| 3d a4 73 79 73 76 61 72 | 69 61 62 6c 65 28 22 46 |=.sysvar|iable("F|
|000020a0| 69 6c 65 53 77 69 74 63 | 68 24 43 75 72 72 65 6e |ileSwitc|h$Curren|
|000020b0| 74 46 69 6c 69 6e 67 53 | 79 73 74 65 6d 22 29 0d |tFilingS|ystem").|
|000020c0| 0b a4 37 63 73 64 24 3d | a4 73 79 73 76 61 72 69 |..7csd$=|.sysvari|
|000020d0| 61 62 6c 65 28 22 46 69 | 6c 65 53 77 69 74 63 68 |able("Fi|leSwitch|
|000020e0| 24 22 2b 66 69 6c 65 73 | 79 73 74 65 6d 24 2b 22 |$"+files|ystem$+"|
|000020f0| 24 43 53 44 22 29 0d 0b | ae 21 72 65 61 6c 63 73 |$CSD")..|.!realcs|
|00002100| 64 24 3d 66 69 6c 65 73 | 79 73 74 65 6d 24 2b 22 |d$=files|ystem$+"|
|00002110| 3a 22 2b 63 73 64 24 0d | 0b b8 1e c8 99 22 58 4f |:"+csd$.|....."XO|
|00002120| 53 5f 46 53 43 6f 6e 74 | 72 6f 6c 22 2c 30 2c 62 |S_FSCont|rol",0,b|
|00002130| 6f 64 67 65 24 0d 0b cc | 24 64 69 73 63 6e 61 6d |odge$...|$discnam|
|00002140| 65 24 3d a4 72 65 74 75 | 72 6e 64 69 73 63 5f 6e |e$=.retu|rndisc_n|
|00002150| 61 6d 65 28 63 73 64 24 | 29 0d 0b d6 2d 64 72 69 |ame(csd$|)...-dri|
|00002160| 76 65 25 3d a4 72 65 61 | 64 5f 64 72 69 76 65 28 |ve%=.rea|d_drive(|
|00002170| 66 69 6c 65 73 79 73 74 | 65 6d 24 2c 64 69 73 63 |filesyst|em$,disc|
|00002180| 6e 61 6d 65 24 29 0d 0b | e0 20 c8 99 22 58 4f 53 |name$)..|. .."XOS|
|00002190| 5f 46 53 43 6f 6e 74 72 | 6f 6c 22 2c 30 2c 72 65 |_FSContr|ol",0,re|
|000021a0| 61 6c 63 73 64 24 0d 0b | ea 0b 3d 64 72 69 76 65 |alcsd$..|..=drive|
|000021b0| 25 0d 0b f4 05 3a 0d 0b | fe 1a dd a4 72 65 61 64 |%....:..|....read|
|000021c0| 5f 64 72 69 76 65 28 66 | 24 2c 6e 61 6d 65 24 29 |_drive(f|$,name$)|
|000021d0| 0d 0c 08 4f ea 6c 6f 6f | 70 25 2c 6e 75 6d 62 65 |...O.loo|p%,numbe|
|000021e0| 72 25 2c 62 75 66 66 65 | 72 25 2c 6c 65 6e 25 3a |r%,buffe|r%,len%:|
|000021f0| 6e 75 6d 62 65 72 25 3d | b9 3a de 20 62 75 66 66 |number%=|.:. buff|
|00002200| 65 72 25 20 32 34 3a 6c | 65 6e 25 3d a9 28 6e 61 |er% 24:l|en%=.(na|
|00002210| 6d 65 24 29 3a e3 6c 6f | 6f 70 25 3d 30 b8 37 0d |me$):.lo|op%=0.7.|
|00002220| 0c 12 4c c8 99 22 58 4f | 53 5f 46 53 43 6f 6e 74 |..L.."XO|S_FSCont|
|00002230| 72 6f 6c 22 2c 30 2c 28 | 66 24 2b 22 3a 3a 22 2b |rol",0,(|f$+"::"+|
|00002240| c3 28 6c 6f 6f 70 25 29 | 2b 22 2e 24 22 29 20 b8 |.(loop%)|+".$") .|
|00002250| 20 3b 65 72 72 25 3a 76 | 61 72 25 3d 28 ac 28 65 | ;err%:v|ar%=(.(e|
|00002260| 72 72 25 20 80 20 31 29 | 2b 31 29 0d 0c 1c 0e e7 |rr% . 1)|+1).....|
|00002270| 20 76 61 72 25 3d 30 20 | 8c 0d 0c 26 1a c8 99 22 | var%=0 |...&..."|
|00002280| 4f 53 5f 47 42 50 42 22 | 2c 35 2c 2c 62 75 66 66 |OS_GBPB"|,5,,buff|
|00002290| 65 72 25 0d 0c 30 1e 62 | 75 66 66 65 72 25 3f 28 |er%..0.b|uffer%?(|
|000022a0| 28 62 75 66 66 65 72 25 | 3f 30 29 2b 33 29 3d 31 |(buffer%|?0)+3)=1|
|000022b0| 33 0d 0c 3a 23 74 24 3d | 28 c1 24 62 75 66 66 65 |3..:#t$=|(.$buffe|
|000022c0| 72 25 2c 32 2c 28 62 75 | 66 66 65 72 25 3f 30 29 |r%,2,(bu|ffer%?0)|
|000022d0| 2b 32 29 29 0d 0c 44 2c | e7 20 c0 74 24 2c 6c 65 |+2))..D,|. .t$,le|
|000022e0| 6e 25 29 3d c0 6e 61 6d | 65 24 2c 6c 65 6e 25 29 |n%)=.nam|e$,len%)|
|000022f0| 20 8c 20 6e 75 6d 62 65 | 72 25 3d 6c 6f 6f 70 25 | . numbe|r%=loop%|
|00002300| 0d 0c 4e 07 cd 3a ed 0d | 0c 58 0c 3d 6e 75 6d 62 |..N..:..|.X.=numb|
|00002310| 65 72 25 0d 0c 62 05 3a | 0d 0c 6c 19 dd a4 72 65 |er%..b.:|..l...re|
|00002320| 74 75 72 6e 64 69 73 63 | 5f 6e 61 6d 65 28 72 24 |turndisc|_name(r$|
|00002330| 29 0d 0c 76 53 ea 73 74 | 72 24 2c 6c 6f 6f 70 25 |)..vS.st|r$,loop%|
|00002340| 3a e3 6c 6f 6f 70 25 3d | 32 b8 a9 28 72 24 29 3a |:.loop%=|2..(r$):|
|00002350| 74 25 3d 97 28 c1 72 24 | 2c 6c 6f 6f 70 25 2c 31 |t%=.(.r$|,loop%,1|
|00002360| 29 29 3a e7 20 74 25 3d | 97 28 22 2e 22 29 20 8c |)):. t%=|.(".") .|
|00002370| 20 3d 73 74 72 24 20 8b | 20 73 74 72 24 2b 3d bd | =str$ .| str$+=.|
|00002380| 28 74 25 29 0d 0c 80 05 | ed 0d 0c 8a 07 3d 22 22 |(t%)....|.....=""|
|00002390| 0d 0c 94 05 3a 0d 0c 9e | 0d dd f2 69 6e 73 74 61 |....:...|...insta|
|000023a0| 6c 6c 0d 0c a8 32 6f 6b | 25 3d a4 72 65 61 64 5f |ll...2ok|%=.read_|
|000023b0| 69 6e 64 69 72 65 63 74 | 5f 69 63 6f 6e 28 69 6e |indirect|_icon(in|
|000023c0| 73 74 61 6c 6c 25 2c 34 | 29 3a 70 61 74 68 24 3d |stall%,4|):path$=|
|000023d0| 24 6f 6b 25 0d 0c b2 0d | f2 73 65 74 70 61 74 68 |$ok%....|.setpath|
|000023e0| 73 0d 0c bc 25 c8 99 22 | 58 4f 53 5f 46 69 6c 65 |s...%.."|XOS_File|
|000023f0| 22 2c 38 2c 70 61 74 68 | 24 2c 30 20 b8 20 65 72 |",8,path|$,0 . er|
|00002400| 25 3b 65 72 72 25 0d 0c | c6 a9 e7 20 65 72 72 25 |%;err%..|... err%|
|00002410| 20 80 20 31 20 8c 20 6f | 6b 25 3d a4 72 65 70 6f | . 1 . o|k%=.repo|
|00002420| 72 74 28 22 45 72 72 6f | 72 20 3a 20 22 7d a4 73 |rt("Erro|r : "}.s|
|00002430| 74 72 69 6e 67 28 65 72 | 25 2b 34 29 2b 22 2e 20 |tring(er|%+4)+". |
|00002440| 54 68 65 72 65 20 69 73 | 20 61 20 70 72 6f 62 6c |There is| a probl|
|00002450| 65 6d 20 77 69 74 68 20 | 75 73 69 6e 67 20 74 68 |em with |using th|
|00002460| 65 20 64 69 72 65 63 74 | 6f 72 79 20 79 6f 75 20 |e direct|ory you |
|00002470| 68 61 76 65 20 73 70 65 | 63 69 66 69 65 64 2e 20 |have spe|cified. |
|00002480| 50 6c 65 61 73 65 20 63 | 68 6f 6f 73 65 20 61 6e |Please c|hoose an|
|00002490| 6f 74 68 65 72 20 73 75 | 69 74 61 62 6c 65 20 64 |other su|itable d|
|000024a0| 69 72 65 63 74 6f 72 79 | 2e 22 2c 32 29 3a e1 0d |irectory|.",2):..|
|000024b0| 0c d0 14 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |....."Ho|urglass_|
|000024c0| 4f 6e 22 0d 0c da 7e c8 | 99 22 58 4f 53 5f 46 69 |On"...~.|."XOS_Fi|
|000024d0| 6c 65 22 2c 38 2c 28 70 | 61 74 68 24 2b 22 2e 21 |le",8,(p|ath$+".!|
|000024e0| 48 61 72 64 41 70 70 73 | 22 29 2c 30 3a c8 99 22 |HardApps|"),0:.."|
|000024f0| 58 4f 53 5f 43 4c 49 22 | 2c 22 43 6f 70 79 20 3c |XOS_CLI"|,"Copy <|
|00002500| 48 61 72 64 41 70 70 73 | 24 44 69 72 3e 2e 5e 2e |HardApps|$Dir>.^.|
|00002510| 21 48 61 72 64 41 70 70 | 73 20 22 2b 70 61 74 68 |!HardApp|s "+path|
|00002520| 24 2b 22 2e 21 48 61 72 | 64 41 70 70 73 20 7e 56 |$+".!Har|dApps ~V|
|00002530| 7e 43 20 52 46 22 20 b8 | 20 65 72 25 3b 65 72 72 |~C RF" .| er%;err|
|00002540| 25 0d 0c e4 90 e7 20 65 | 72 72 25 20 80 20 31 20 |%..... e|rr% . 1 |
|00002550| 8c 20 6f 6b 25 3d a4 72 | 65 70 6f 72 74 28 22 45 |. ok%=.r|eport("E|
|00002560| 72 72 6f 72 20 3a 20 22 | 2b a4 73 74 72 69 6e 67 |rror : "|+.string|
|00002570| 28 65 72 25 2b 34 29 2b | 22 2e 20 49 20 68 61 76 |(er%+4)+|". I hav|
|00002580| 65 20 6e 6f 74 20 62 65 | 65 6e 20 61 62 6c 65 20 |e not be|en able |
|00002590| 74 6f 20 63 6f 70 79 20 | 61 6c 6c 20 6f 66 20 6d |to copy |all of m|
|000025a0| 79 20 66 69 6c 65 73 20 | 74 6f 20 22 2b 70 61 74 |y files |to "+pat|
|000025b0| 68 24 2b 22 2e 20 20 49 | 6e 73 74 61 6c 6c 74 69 |h$+". I|nstallti|
|000025c0| 6f 6e 20 61 62 6f 72 74 | 65 64 2e 22 2c 32 29 3a |on abort|ed.",2):|
|000025d0| e1 0d 0c ee 24 66 69 6c | 65 25 3d ae 28 70 61 74 |....$fil|e%=.(pat|
|000025e0| 68 24 2b 22 2e 21 48 61 | 72 64 41 70 70 73 2e 50 |h$+".!Ha|rdApps.P|
|000025f0| 61 74 68 22 29 0d 0c f8 | 1d d5 23 66 69 6c 65 25 |ath")...|..#file%|
|00002600| 2c 70 61 74 68 24 2b bd | 31 30 3a d9 23 66 69 6c |,path$+.|10:.#fil|
|00002610| 65 25 0d 0d 02 36 c8 99 | 22 4f 53 5f 43 4c 49 22 |e%...6..|"OS_CLI"|
|00002620| 2c 22 53 65 74 54 79 70 | 65 20 22 2b 70 61 74 68 |,"SetTyp|e "+path|
|00002630| 24 2b 22 2e 21 48 61 72 | 64 41 70 70 73 2e 50 61 |$+".!Har|dApps.Pa|
|00002640| 74 68 20 54 65 78 74 22 | 0d 0d 0c 28 c8 99 20 22 |th Text"|...(.. "|
|00002650| 4f 53 5f 43 4c 49 22 2c | 70 61 74 68 24 2b 22 2e |OS_CLI",|path$+".|
|00002660| 21 48 61 72 64 41 70 70 | 73 2e 21 42 6f 6f 74 22 |!HardApp|s.!Boot"|
|00002670| 0d 0d 16 15 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |......"H|ourglass|
|00002680| 5f 4f 66 66 22 0d 0d 20 | 31 c8 99 20 22 57 69 6d |_Off".. |1.. "Wim|
|00002690| 70 5f 53 74 61 72 74 54 | 61 73 6b 22 2c 22 3c 48 |p_StartT|ask","<H|
|000026a0| 61 72 64 41 70 70 73 24 | 44 69 72 3e 2e 43 6f 6d |ardApps$|Dir>.Com|
|000026b0| 6d 61 6e 64 73 22 0d 0d | 2a 31 c8 99 20 22 58 4f |mands"..|*1.. "XO|
|000026c0| 53 5f 43 4c 49 22 2c 22 | 46 69 6c 65 72 5f 4f 70 |S_CLI","|Filer_Op|
|000026d0| 65 6e 44 69 72 20 52 65 | 73 6f 75 72 63 65 73 3a |enDir Re|sources:|
|000026e0| 24 2e 41 70 70 73 22 0d | 0d 34 6f 6f 6b 25 3d a4 |$.Apps".|.4ook%=.|
|000026f0| 72 65 70 6f 72 74 28 22 | 44 6f 20 79 6f 75 20 77 |report("|Do you w|
|00002700| 69 73 68 20 6d 65 20 74 | 6f 20 6d 6f 64 69 66 79 |ish me t|o modify|
|00002710| 20 79 6f 75 72 20 21 42 | 6f 6f 74 20 73 65 71 75 | your !B|oot sequ|
|00002720| 65 6e 63 65 3f 20 4f 6b | 20 74 6f 20 70 72 6f 63 |ence? Ok| to proc|
|00002730| 65 65 64 2c 20 43 61 6e | 63 65 6c 20 74 6f 20 6c |eed, Can|cel to l|
|00002740| 65 61 76 65 20 21 42 6f | 6f 74 20 61 6c 6f 6e 65 |eave !Bo|ot alone|
|00002750| 2e 22 2c 31 39 29 0d 0d | 3e 67 e7 20 6f 6b 25 3d |.",19)..|>g. ok%=|
|00002760| 32 20 8c 20 21 62 6c 6f | 63 6b 25 3d 69 6e 73 74 |2 . !blo|ck%=inst|
|00002770| 61 6c 6c 25 3a c8 99 20 | 22 57 69 6d 70 5f 43 6c |all%:.. |"Wimp_Cl|
|00002780| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |oseWindo|w",,bloc|
|00002790| 6b 25 3a f2 6f 70 65 6e | 77 69 6e 64 6f 77 28 6d |k%:.open|window(m|
|000027a0| 61 69 6e 25 2c 62 6c 6f | 63 6b 25 29 3a f2 6c 68 |ain%,blo|ck%):.lh|
|000027b0| 65 6c 70 28 22 42 6f 6f | 74 22 29 3a e1 0d 0d 48 |elp("Boo|t"):...H|
|000027c0| 10 f2 6d 6f 64 69 66 79 | 5f 62 6f 6f 74 0d 0d 52 |..modify|_boot..R|
|000027d0| 4c 21 62 6c 6f 63 6b 25 | 3d 69 6e 73 74 61 6c 6c |L!block%|=install|
|000027e0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |%:.. "Wi|mp_Close|
|000027f0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 3a |Window",|,block%:|
|00002800| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 6d 61 69 6e |.openwin|dow(main|
|00002810| 25 2c 62 6c 6f 63 6b 25 | 29 0d 0d 5c 05 e1 0d 0d |%,block%|)..\....|
|00002820| 66 05 3a 0d 0d 70 11 dd | f2 6d 6f 64 69 66 79 5f |f.:..p..|.modify_|
|00002830| 62 6f 6f 74 0d 0d 7a 07 | ea 20 85 0d 0d 84 8a ee |boot..z.|. ......|
|00002840| 20 85 20 ea 20 3a c8 99 | 20 22 58 4f 53 5f 43 4c | . . :..| "XOS_CL|
|00002850| 49 22 2c 22 43 4c 4f 53 | 45 22 3a f2 6c 68 65 6c |I","CLOS|E":.lhel|
|00002860| 70 28 22 42 6f 6f 74 22 | 29 3a 6f 6b 25 3d a4 72 |p("Boot"|):ok%=.r|
|00002870| 65 70 6f 72 74 28 22 54 | 68 65 72 65 20 68 61 73 |eport("T|here has|
|00002880| 20 62 65 65 6e 20 61 20 | 70 72 6f 62 6c 65 6d 20 | been a |problem |
|00002890| 77 69 74 68 20 61 6c 74 | 65 72 69 6e 67 20 79 6f |with alt|ering yo|
|000028a0| 75 72 20 62 6f 6f 74 2e | 20 50 6c 65 61 73 65 20 |ur boot.| Please |
|000028b0| 64 6f 20 69 74 20 6d 61 | 6e 75 61 6c 6c 79 2e 22 |do it ma|nually."|
|000028c0| 2c 32 29 3a e1 0d 0d 8e | 42 c8 99 22 4f 53 5f 42 |,2):....|B.."OS_B|
|000028d0| 79 74 65 22 2c 31 36 31 | 2c 35 20 b8 20 2c 2c 73 |yte",161|,5 . ,,s|
|000028e0| 79 73 25 3a c8 99 22 4f | 53 5f 46 53 43 6f 6e 74 |ys%:.."O|S_FSCont|
|000028f0| 72 6f 6c 22 2c 33 33 2c | 73 79 73 25 2c 62 6c 6f |rol",33,|sys%,blo|
|00002900| 63 6b 25 2c 26 66 66 0d | 0d 98 43 62 6f 6f 74 24 |ck%,&ff.|..Cboot$|
|00002910| 3d a4 73 74 72 69 6e 67 | 28 62 6c 6f 63 6b 25 29 |=.string|(block%)|
|00002920| 3a 62 6f 6f 74 70 61 74 | 68 24 3d 62 6f 6f 74 24 |:bootpat|h$=boot$|
|00002930| 2b 22 3a 3a 22 2b c3 28 | 64 72 69 76 65 25 29 2b |+"::"+.(|drive%)+|
|00002940| 22 2e 24 2e 21 42 6f 6f | 74 22 0d 0d a2 26 c8 99 |".$.!Boo|t"...&..|
|00002950| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 37 2c 62 6f 6f |"OS_File|",17,boo|
|00002960| 74 70 61 74 68 24 20 b8 | 20 65 78 69 73 74 73 25 |tpath$ .| exists%|
|00002970| 0d 0d ac 53 e7 20 65 78 | 69 73 74 73 25 3d 30 20 |...S. ex|ists%=0 |
|00002980| 8c 20 6f 6b 25 3d a4 72 | 65 70 6f 72 74 28 22 49 |. ok%=.r|eport("I|
|00002990| 20 63 61 6e 20 6e 6f 74 | 20 66 69 6e 64 20 79 6f | can not| find yo|
|000029a0| 75 72 20 21 42 6f 6f 74 | 20 66 69 6c 65 21 22 2c |ur !Boot| file!",|
|000029b0| 32 29 3a f2 6c 68 65 6c | 70 28 22 42 6f 6f 74 22 |2):.lhel|p("Boot"|
|000029c0| 29 3a e1 0d 0d b6 7b e7 | 20 65 78 69 73 74 73 25 |):....{.| exists%|
|000029d0| 3e 31 20 8c 20 6f 6b 25 | 3d a4 72 65 70 6f 72 74 |>1 . ok%|=.report|
|000029e0| 28 22 49 20 63 61 6e 6e | 6f 74 20 64 65 61 6c 20 |("I cann|ot deal |
|000029f0| 77 69 74 68 20 21 42 6f | 6f 74 20 61 70 70 6c 69 |with !Bo|ot appli|
|00002a00| 63 61 74 69 6f 6e 73 2e | 20 50 6c 65 61 73 65 20 |cations.| Please |
|00002a10| 61 6c 74 65 72 20 79 6f | 75 72 20 62 6f 6f 74 20 |alter yo|ur boot |
|00002a20| 6d 61 6e 75 61 6c 6c 79 | 2e 22 2c 32 29 3a f2 6c |manually|.",2):.l|
|00002a30| 68 65 6c 70 28 22 42 6f | 6f 74 22 29 3a e1 0d 0d |help("Bo|ot"):...|
|00002a40| c0 47 c8 99 22 4f 53 5f | 43 4c 49 22 2c 22 43 6f |.G.."OS_|CLI","Co|
|00002a50| 70 79 20 22 2b 62 6f 6f | 74 70 61 74 68 24 2b 22 |py "+boo|tpath$+"|
|00002a60| 20 22 2b 70 61 74 68 24 | 2b 22 2e 21 48 61 72 64 | "+path$|+".!Hard|
|00002a70| 41 70 70 73 2e 21 42 6f | 6f 74 42 61 63 6b 20 46 |Apps.!Bo|otBack F|
|00002a80| 7e 56 7e 43 22 0d 0d ca | 2f 66 69 6c 65 25 3d 8e |~V~C"...|/file%=.|
|00002a90| 28 62 6f 6f 74 70 61 74 | 68 24 29 3a 66 69 6c 65 |(bootpat|h$):file|
|00002aa0| 32 25 3d ae 28 62 6f 6f | 74 70 61 74 68 24 2b 22 |2%=.(boo|tpath$+"|
|00002ab0| 68 32 22 29 0d 0d d4 2b | d5 23 66 69 6c 65 32 25 |h2")...+|.#file2%|
|00002ac0| 2c 22 7c 20 21 48 61 72 | 64 41 70 70 73 20 69 6e |,"| !Har|dApps in|
|00002ad0| 73 74 61 6c 6c 65 64 20 | 3a 20 22 20 2b 91 24 0d |stalled |: " +.$.|
|00002ae0| 0d de 0b 64 6f 6e 65 25 | 3d a3 0d 0d e8 05 f5 0d |...done%|=.......|
|00002af0| 0d f2 0e 74 24 3d be 23 | 66 69 6c 65 25 0d 0d fc |...t$=.#|file%...|
|00002b00| bf e7 20 a7 74 24 2c 22 | 7c 20 21 48 61 72 64 41 |.. .t$,"|| !HardA|
|00002b10| 70 70 73 22 29 3d 30 20 | 8c 20 d5 23 66 69 6c 65 |pps")=0 |. .#file|
|00002b20| 32 25 2c 74 24 20 8b 20 | 64 6f 6e 65 25 3d b9 3a |2%,t$ . |done%=.:|
|00002b30| 6f 6b 25 3d a4 72 65 70 | 6f 72 74 28 22 57 61 72 |ok%=.rep|ort("War|
|00002b40| 6e 69 6e 67 20 3a 20 48 | 61 72 64 41 70 70 73 20 |ning : H|ardApps |
|00002b50| 68 61 73 20 61 6c 72 65 | 61 64 79 20 62 65 65 6e |has alre|ady been|
|00002b60| 20 69 6e 73 74 61 6c 6c | 65 64 2e 20 49 6e 73 74 | install|ed. Inst|
|00002b70| 61 6c 61 74 69 6f 6e 20 | 6d 61 79 20 6e 6f 74 20 |alation |may not |
|00002b80| 62 65 20 73 75 63 65 73 | 73 66 75 6c 2e 20 50 6c |be suces|sful. Pl|
|00002b90| 65 61 73 65 20 75 6e 69 | 6e 73 74 61 6c 6c 20 62 |ease uni|nstall b|
|00002ba0| 65 66 6f 72 65 20 69 6e | 73 74 61 6c 6c 69 6e 67 |efore in|stalling|
|00002bb0| 20 61 67 61 69 6e 2e 22 | 2c 31 36 29 0d 0e 06 23 | again."|,16)...#|
|00002bc0| e7 20 28 74 24 3d 22 22 | 20 84 20 c5 23 66 69 6c |. (t$=""| . .#fil|
|00002bd0| 65 25 29 20 80 20 64 6f | 6e 65 25 3d a3 20 8c 0d |e%) . do|ne%=. ..|
|00002be0| 0e 10 26 d5 23 66 69 6c | 65 32 25 2c 22 53 65 74 |..&.#fil|e2%,"Set|
|00002bf0| 20 54 65 6d 70 24 44 69 | 72 20 3c 4f 62 65 79 24 | Temp$Di|r <Obey$|
|00002c00| 44 69 72 3e 22 0d 0e 1a | 30 d5 23 66 69 6c 65 32 |Dir>"...|0.#file2|
|00002c10| 25 2c 22 52 75 6e 20 22 | 2b 70 61 74 68 24 2b 22 |%,"Run "|+path$+"|
|00002c20| 2e 21 48 61 72 64 41 70 | 70 73 2e 21 43 6f 6d 6d |.!HardAp|ps.!Comm|
|00002c30| 61 6e 64 73 22 0d 0e 24 | 2a d5 23 66 69 6c 65 32 |ands"..$|*.#file2|
|00002c40| 25 2c 22 53 65 74 20 4f | 62 65 79 24 44 69 72 20 |%,"Set O|bey$Dir |
|00002c50| 3c 54 65 6d 70 24 44 69 | 72 3e 22 2b bd 31 30 0d |<Temp$Di|r>"+.10.|
|00002c60| 0e 2e 0b 64 6f 6e 65 25 | 3d b9 0d 0e 38 05 cd 0d |...done%|=...8...|
|00002c70| 0e 42 0d fd 20 c5 23 66 | 69 6c 65 25 0d 0e 4c 14 |.B.. .#f|ile%..L.|
|00002c80| d9 23 66 69 6c 65 25 3a | d9 23 66 69 6c 65 32 25 |.#file%:|.#file2%|
|00002c90| 0d 0e 56 3a c8 99 22 4f | 53 5f 43 4c 49 22 2c 22 |..V:.."O|S_CLI","|
|00002ca0| 43 6f 70 79 20 22 2b 62 | 6f 6f 74 70 61 74 68 24 |Copy "+b|ootpath$|
|00002cb0| 2b 22 68 32 20 22 2b 62 | 6f 6f 74 70 61 74 68 24 |+"h2 "+b|ootpath$|
|00002cc0| 2b 22 20 7e 56 7e 43 20 | 46 22 0d 0e 60 27 c8 99 |+" ~V~C |F"..`'..|
|00002cd0| 22 4f 53 5f 43 4c 49 22 | 2c 22 44 65 6c 65 74 65 |"OS_CLI"|,"Delete|
|00002ce0| 20 22 2b 62 6f 6f 74 70 | 61 74 68 24 2b 22 68 32 | "+bootp|ath$+"h2|
|00002cf0| 22 0d 0e 6a 2b c8 99 22 | 4f 53 5f 43 4c 49 22 2c |"..j+.."|OS_CLI",|
|00002d00| 22 53 65 74 54 79 70 65 | 20 22 2b 62 6f 6f 74 70 |"SetType| "+bootp|
|00002d10| 61 74 68 24 2b 22 20 4f | 62 65 79 22 0d 0e 74 05 |ath$+" O|bey"..t.|
|00002d20| e1 0d 0e 7e 05 3a 0d 0e | 88 12 dd f2 6c 68 65 6c |...~.:..|....lhel|
|00002d30| 70 28 66 69 6c 65 24 29 | 0d 0e 92 36 c8 99 20 22 |p(file$)|...6.. "|
|00002d40| 4f 53 5f 43 4c 49 22 2c | 22 46 69 6c 65 72 5f 52 |OS_CLI",|"Filer_R|
|00002d50| 75 6e 20 3c 48 61 72 64 | 41 70 70 73 24 44 69 72 |un <Hard|Apps$Dir|
|00002d60| 3e 2e 48 65 6c 70 2e 22 | 2b 66 69 6c 65 24 0d 0e |>.Help."|+file$..|
|00002d70| 9c 05 e1 0d 0e a6 05 3a | 0d 0e b0 0a dd f2 68 65 |.......:|......he|
|00002d80| 6c 70 0d 0e ba bc 68 65 | 6c 70 24 3d 22 21 48 61 |lp....he|lp$="!Ha|
|00002d90| 72 64 41 70 70 73 2c 20 | 61 6e 20 61 70 70 6c 69 |rdApps, |an appli|
|00002da0| 63 61 74 69 6f 6e 20 74 | 6f 20 61 6c 6c 6f 77 20 |cation t|o allow |
|00002db0| 65 61 73 79 20 61 64 64 | 69 74 69 6f 6e 20 6f 66 |easy add|ition of|
|00002dc0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 73 20 74 6f | applica|tions to|
|00002dd0| 20 74 68 65 20 52 65 73 | 6f 75 72 63 65 46 53 2e | the Res|ourceFS.|
|00002de0| 20 48 65 6c 70 20 63 61 | 6e 20 62 65 20 6f 62 74 | Help ca|n be obt|
|00002df0| 61 69 6e 65 64 20 6f 6e | 20 63 65 72 74 61 69 6e |ained on| certain|
|00002e00| 20 73 75 62 6a 65 63 74 | 73 20 62 79 20 63 6c 69 | subject|s by cli|
|00002e10| 63 6b 69 6e 67 20 6d 69 | 64 64 6c 65 20 62 75 74 |cking mi|ddle but|
|00002e20| 74 6f 6e 20 61 6e 64 20 | 67 6f 69 6e 67 20 61 63 |ton and |going ac|
|00002e30| 72 6f 73 73 20 6f 6e 20 | 48 65 6c 70 2e 22 0d 0e |ross on |Help."..|
|00002e40| c4 29 64 65 73 74 69 6e | 61 74 69 6f 6e 25 3d 62 |.)destin|ation%=b|
|00002e50| 6c 6f 63 6b 25 21 34 3a | 6d 65 73 73 32 25 3d 62 |lock%!4:|mess2%=b|
|00002e60| 6c 6f 63 6b 25 21 38 0d | 0e ce 12 c8 8e 20 62 6c |lock%!8.|..... bl|
|00002e70| 6f 63 6b 25 21 33 32 20 | ca 0d 0e d8 1c c9 20 6d |ock%!32 |...... m|
|00002e80| 61 69 6e 25 20 3a 20 c8 | 8e 20 62 6c 6f 63 6b 25 |ain% : .|. block%|
|00002e90| 21 33 36 20 ca 0d 0e e2 | f8 20 20 20 20 20 20 20 |!36 ....|. |
|00002ea0| 20 20 20 20 20 20 c9 20 | 31 20 3a 68 65 6c 70 24 | . |1 :help$|
|00002eb0| 3d 22 57 68 65 6e 20 73 | 65 6c 65 63 74 65 64 2c |="When s|elected,|
|00002ec0| 20 61 20 6d 6f 64 75 6c | 65 20 69 73 20 73 61 76 | a modul|e is sav|
|00002ed0| 65 64 20 65 61 63 68 20 | 74 69 6d 65 20 74 68 65 |ed each |time the|
|00002ee0| 20 52 4f 4d 41 70 70 73 | 20 64 69 72 20 69 73 20 | ROMApps| dir is |
|00002ef0| 73 63 61 6e 6e 65 64 2e | 20 54 68 69 73 20 69 73 |scanned.| This is|
|00002f00| 20 74 68 65 6e 20 6c 6f | 61 64 65 64 20 75 70 20 | then lo|aded up |
|00002f10| 64 75 72 69 6e 67 20 74 | 68 65 20 62 6f 6f 74 20 |during t|he boot |
|00002f20| 73 65 71 75 65 6e 63 65 | 2e 20 57 68 65 6e 20 64 |sequence|. When d|
|00002f30| 65 6c 73 65 6c 65 63 74 | 65 64 2c 20 74 68 65 20 |elselect|ed, the |
|00002f40| 52 4f 4d 41 70 70 73 20 | 64 69 72 20 69 73 20 73 |ROMApps |dir is s|
|00002f50| 63 61 6e 6e 65 64 20 6f | 6e 20 73 74 61 72 74 20 |canned o|n start |
|00002f60| 75 70 20 61 6e 64 20 61 | 20 6e 65 77 20 6d 6f 64 |up and a| new mod|
|00002f70| 75 6c 65 20 63 72 65 61 | 74 65 64 20 28 6d 61 79 |ule crea|ted (may|
|00002f80| 20 62 65 20 73 6c 6f 77 | 65 72 29 2e 22 0d 0e ec | be slow|er)."...|
|00002f90| 51 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 |Q | . |
|00002fa0| 35 20 3a 68 65 6c 70 24 | 3d 22 54 68 69 73 20 73 |5 :help$|="This s|
|00002fb0| 61 76 65 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |aves the| current|
|00002fc0| 20 6f 70 74 69 6f 6e 73 | 20 74 6f 20 74 68 65 20 | options| to the |
|00002fd0| 6f 70 74 69 6f 6e 73 20 | 66 69 6c 65 2e 22 0d 0e |options |file."..|
|00002fe0| f6 c4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c9 |.. | .|
|00002ff0| 20 37 20 3a 68 65 6c 70 | 24 3d 22 54 68 69 73 20 | 7 :help|$="This |
|00003000| 6f 70 65 6e 73 20 75 70 | 20 74 68 65 20 52 4f 4d |opens up| the ROM|
|00003010| 41 70 70 73 20 76 69 65 | 77 65 72 20 77 68 69 63 |Apps vie|wer whic|
|00003020| 68 20 77 69 6c 6c 20 61 | 6c 6c 6f 77 20 79 6f 75 |h will a|llow you|
|00003030| 20 74 6f 20 61 64 64 20 | 61 70 70 6c 69 63 61 74 | to add |applicat|
|00003040| 69 6f 6e 73 20 74 6f 20 | 74 68 65 20 52 65 73 6f |ions to |the Reso|
|00003050| 75 72 63 65 46 53 20 62 | 79 20 43 6f 70 79 69 6e |urceFS b|y Copyin|
|00003060| 67 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 20 69 |g applic|ations i|
|00003070| 6e 74 6f 20 69 74 20 61 | 6e 64 20 74 68 65 6e 20 |nto it a|nd then |
|00003080| 72 65 73 63 61 6e 6e 69 | 6e 67 20 74 68 65 20 52 |rescanni|ng the R|
|00003090| 4f 4d 41 70 70 73 20 64 | 69 72 65 63 74 6f 72 79 |OMApps d|irectory|
|000030a0| 2e 22 0d 0f 00 fc 20 20 | 20 20 20 20 20 20 20 20 |.".... | |
|000030b0| 20 20 20 c9 20 32 20 3a | 68 65 6c 70 24 3d 22 54 | . 2 :|help$="T|
|000030c0| 68 69 73 20 73 61 76 65 | 73 20 74 68 65 20 63 75 |his save|s the cu|
|000030d0| 72 72 65 6e 74 20 6f 70 | 74 69 6f 6e 73 2c 20 74 |rrent op|tions, t|
|000030e0| 68 65 6e 20 72 65 73 63 | 61 6e 73 20 74 68 65 20 |hen resc|ans the |
|000030f0| 52 4f 4d 41 70 70 73 20 | 64 69 72 65 63 74 6f 72 |ROMApps |director|
|00003100| 79 2c 20 63 72 65 61 74 | 69 6e 67 20 61 20 6d 6f |y, creat|ing a mo|
|00003110| 64 75 6c 65 20 28 77 68 | 69 63 68 20 6d 61 79 20 |dule (wh|ich may |
|00003120| 6f 72 20 6d 61 20 6e 6f | 74 20 62 65 20 73 61 76 |or ma no|t be sav|
|00003130| 65 64 20 74 6f 20 64 69 | 73 63 20 64 65 70 65 6e |ed to di|sc depen|
|00003140| 64 69 6e 67 20 6f 6e 20 | 74 68 65 20 6f 70 74 69 |ding on |the opti|
|00003150| 6f 6e 73 20 73 65 74 29 | 20 77 68 69 63 68 20 69 |ons set)| which i|
|00003160| 6e 73 74 61 6c 6c 73 20 | 61 70 70 6c 69 63 61 74 |nstalls |applicat|
|00003170| 69 6f 6e 73 20 66 72 6f | 6d 20 74 68 65 20 52 4f |ions fro|m the RO|
|00003180| 4d 41 70 70 73 20 64 69 | 72 2c 20 69 6e 74 6f 20 |MApps di|r, into |
|00003190| 74 68 65 20 41 70 70 73 | 20 64 69 72 2e 22 0d 0f |the Apps| dir."..|
|000031a0| 0a 12 20 20 20 20 20 20 | 20 20 20 20 20 20 20 cb |.. | .|
|000031b0| 0d 0f 14 cd c9 20 69 6e | 73 74 61 6c 6c 25 3a 20 |..... in|stall%: |
|000031c0| 68 65 6c 70 24 3d 22 48 | 61 72 64 41 70 70 73 20 |help$="H|ardApps |
|000031d0| 61 6c 6c 6f 77 73 20 74 | 68 65 20 65 61 73 79 20 |allows t|he easy |
|000031e0| 61 64 64 69 74 69 6f 6e | 20 6f 66 20 61 70 70 6c |addition| of appl|
|000031f0| 69 63 61 74 69 6f 6e 73 | 20 74 6f 20 74 68 65 20 |ications| to the |
|00003200| 52 65 73 6f 75 72 65 63 | 46 53 2e 20 54 6f 20 67 |Resourec|FS. To g|
|00003210| 65 74 20 6d 6f 72 65 20 | 68 65 6c 70 20 6f 6e 20 |et more |help on |
|00003220| 74 68 65 20 49 6e 73 74 | 61 6c 61 74 69 6f 6e 20 |the Inst|alation |
|00003230| 6f 66 20 21 48 61 72 64 | 41 70 70 73 2c 20 63 6c |of !Hard|Apps, cl|
|00003240| 69 63 6b 20 6d 69 64 64 | 6c 65 20 62 75 74 74 6f |ick midd|le butto|
|00003250| 6e 2c 20 67 6f 20 61 63 | 72 6f 73 73 20 6f 6e 20 |n, go ac|ross on |
|00003260| 48 65 6c 70 2c 20 74 68 | 65 6e 20 63 6c 69 63 6b |Help, th|en click|
|00003270| 20 6f 6e 20 69 6e 73 74 | 61 6c 6c 2e 22 0d 0f 1e | on inst|all."...|
|00003280| 1f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c8 8e |. | ..|
|00003290| 20 62 6c 6f 63 6b 25 21 | 33 36 20 ca 0d 0f 28 32 | block%!|36 ...(2|
|000032a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 c9 20 35 | | . 5|
|000032b0| 20 3a 68 65 6c 70 24 3d | 22 54 68 69 73 20 6c 6f | :help$=|"This lo|
|000032c0| 61 64 73 20 75 70 20 21 | 48 65 6c 70 2e 22 0d 0f |ads up !|Help."..|
|000032d0| 32 a1 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c9 |2. | .|
|000032e0| 20 34 20 3a 68 65 6c 70 | 24 3d 22 54 68 69 73 20 | 4 :help|$="This |
|000032f0| 69 73 20 74 68 65 20 64 | 69 72 65 63 74 6f 72 79 |is the d|irectory|
|00003300| 20 69 6e 74 6f 20 77 68 | 69 63 68 20 52 4f 4d 41 | into wh|ich ROMA|
|00003310| 70 70 73 20 77 69 6c 6c | 20 62 65 20 69 6e 73 74 |pps will| be inst|
|00003320| 61 6c 6c 65 64 2e 20 49 | 74 20 73 68 6f 75 6c 64 |alled. I|t should|
|00003330| 20 62 65 20 65 6d 70 74 | 79 20 28 70 72 65 66 65 | be empt|y (prefe|
|00003340| 72 61 62 6c 79 29 20 6f | 74 68 65 72 77 69 73 65 |rably) o|therwise|
|00003350| 20 74 68 65 20 69 6e 73 | 74 61 6c 61 74 69 6f 6e | the ins|talation|
|00003360| 20 6d 61 79 20 67 6f 20 | 77 72 6f 6e 67 2e 22 0d | may go |wrong.".|
|00003370| 0f 3c 73 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.<s | |
|00003380| c9 20 38 20 3a 68 65 6c | 70 24 3d 22 54 68 69 73 |. 8 :hel|p$="This|
|00003390| 20 63 6c 6f 73 65 73 20 | 74 68 69 73 20 77 69 6e | closes |this win|
|000033a0| 64 6f 77 20 61 6e 64 20 | 73 68 75 74 73 20 64 6f |dow and |shuts do|
|000033b0| 77 6e 20 74 68 65 20 74 | 61 73 6b 2e 20 28 4e 6f |wn the t|ask. (No|
|000033c0| 74 20 73 65 6c 65 63 74 | 61 62 6c 65 20 64 75 72 |t select|able dur|
|000033d0| 69 6e 67 20 69 6e 73 74 | 61 6c 61 74 69 6f 6e 2e |ing inst|alation.|
|000033e0| 29 22 0d 0f 46 bc 20 20 | 20 20 20 20 20 20 20 20 |)"..F. | |
|000033f0| 20 20 20 c9 20 31 30 3a | 68 65 6c 70 24 3d 22 54 | . 10:|help$="T|
|00003400| 68 69 73 20 73 74 61 72 | 74 73 20 74 68 65 20 69 |his star|ts the i|
|00003410| 6e 73 74 61 6c 61 74 69 | 6f 6e 20 70 72 6f 63 65 |nstalati|on proce|
|00003420| 73 73 20 77 68 69 63 68 | 20 69 73 20 65 78 70 6c |ss which| is expl|
|00003430| 61 69 6e 65 64 20 69 6e | 20 64 65 74 61 69 6c 20 |ained in| detail |
|00003440| 69 6e 20 74 68 65 20 27 | 49 6e 73 74 61 6c 6c 27 |in the '|Install'|
|00003450| 20 68 65 6c 70 20 66 69 | 6c 65 2e 20 43 6c 69 63 | help fi|le. Clic|
|00003460| 6b 20 6d 69 64 64 6c 65 | 20 62 75 74 74 6f 6e 20 |k middle| button |
|00003470| 61 6e 64 20 67 6f 20 61 | 63 72 6f 73 73 20 6f 6e |and go a|cross on|
|00003480| 20 48 65 6c 70 2e 20 54 | 68 65 6e 20 63 6c 69 63 | Help. T|hen clic|
|00003490| 6b 20 6f 6e 20 49 6e 73 | 74 61 6c 6c 2e 22 0d 0f |k on Ins|tall."..|
|000034a0| 50 12 20 20 20 20 20 20 | 20 20 20 20 20 20 20 cb |P. | .|
|000034b0| 0d 0f 5a 53 c9 20 69 6e | 66 6f 25 20 3a 68 65 6c |..ZS. in|fo% :hel|
|000034c0| 70 24 3d 22 54 68 69 73 | 20 74 65 6c 6c 73 20 79 |p$="This| tells y|
|000034d0| 6f 75 20 73 6f 6d 65 74 | 68 69 6e 67 20 61 62 6f |ou somet|hing abo|
|000034e0| 75 74 20 74 68 65 20 70 | 65 6f 70 6c 65 20 77 68 |ut the p|eople wh|
|000034f0| 6f 20 77 6f 72 74 65 20 | 48 61 72 64 20 41 70 70 |o worte |Hard App|
|00003500| 73 2e 22 0d 0f 64 1e 20 | 20 20 20 20 20 20 20 20 |s."..d. | |
|00003510| 20 20 20 c8 8e 20 62 6c | 6f 63 6b 25 21 33 36 20 | .. bl|ock%!36 |
|00003520| ca 0d 0f 6e 9f 20 20 20 | 20 20 20 20 20 20 20 20 |...n. | |
|00003530| 20 c9 20 37 2c 35 20 3a | 20 68 65 6c 70 24 3d 22 | . 7,5 :| help$="|
|00003540| 48 61 72 64 20 41 70 70 | 73 2e 20 54 68 65 20 6e |Hard App|s. The n|
|00003550| 61 6d 65 20 6f 66 20 74 | 68 65 20 41 70 70 6c 69 |ame of t|he Appli|
|00003560| 63 61 74 69 6f 6e 2e 20 | 49 74 20 61 6c 6c 6f 77 |cation. |It allow|
|00003570| 73 20 70 72 65 20 52 69 | 73 63 50 43 20 28 52 49 |s pre Ri|scPC (RI|
|00003580| 53 43 4f 53 33 29 20 6d | 61 63 68 69 6e 65 73 20 |SCOS3) m|achines |
|00003590| 74 6f 20 61 64 64 20 61 | 70 70 6c 69 63 61 74 69 |to add a|pplicati|
|000035a0| 6f 6e 73 20 74 6f 20 74 | 68 65 69 72 20 52 65 73 |ons to t|heir Res|
|000035b0| 6f 75 72 63 65 46 53 20 | 65 61 73 69 6c 79 2e 22 |ourceFS |easily."|
|000035c0| 0d 0f 78 3d 20 20 20 20 | 20 20 20 20 20 20 20 20 |..x= | |
|000035d0| c9 20 38 2c 34 2c 31 20 | 3a 68 65 6c 70 24 3d 22 |. 8,4,1 |:help$="|
|000035e0| 54 68 69 73 20 69 73 20 | 77 68 61 74 20 48 61 72 |This is |what Har|
|000035f0| 64 20 41 70 70 73 20 64 | 6f 65 73 21 22 0d 0f 82 |d Apps d|oes!"...|
|00003600| c9 20 20 20 20 20 20 20 | 20 20 20 20 20 c9 20 39 |. | . 9|
|00003610| 2c 33 20 3a 68 65 6c 70 | 24 3d 22 43 68 72 69 73 |,3 :help|$="Chris|
|00003620| 20 69 73 20 61 20 76 65 | 72 79 20 6d 65 73 73 79 | is a ve|ry messy|
|00003630| 20 70 72 6f 67 72 61 6d | 6d 65 72 20 61 6e 64 20 | program|mer and |
|00003640| 69 73 20 61 20 67 6f 6f | 64 20 66 72 69 65 6e 64 |is a goo|d friend|
|00003650| 20 6f 66 20 4f 77 61 69 | 6e 20 63 6f 6c 65 2c 20 | of Owai|n cole, |
|00003660| 77 68 6f 20 69 73 20 6e | 6f 74 20 61 20 6d 65 73 |who is n|ot a mes|
|00003670| 73 79 20 70 72 6f 67 72 | 61 6d 6d 65 72 2e 20 54 |sy progr|ammer. T|
|00003680| 68 69 73 20 77 61 73 20 | 77 72 69 74 74 65 6e 20 |his was |written |
|00003690| 62 79 20 62 6f 74 68 20 | 6f 66 20 75 73 20 6f 6e |by both |of us on|
|000036a0| 20 6d 79 20 41 33 30 31 | 30 20 63 6f 73 20 43 68 | my A301|0 cos Ch|
|000036b0| 72 69 73 20 68 61 73 20 | 67 6f 74 20 61 20 52 49 |ris has |got a RI|
|000036c0| 53 43 50 43 2e 22 0d 0f | 8c 70 20 20 20 20 20 20 |SCPC."..|.p |
|000036d0| 20 20 20 20 20 20 c9 20 | 31 30 2c 32 20 3a 68 65 | . |10,2 :he|
|000036e0| 6c 70 24 3d 22 54 68 69 | 73 20 69 73 20 74 68 65 |lp$="Thi|s is the|
|000036f0| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 20 | version| number |
|00003700| 61 6e 64 20 74 68 65 20 | 64 61 74 65 20 69 74 20 |and the |date it |
|00003710| 77 61 73 20 77 72 69 74 | 74 65 6e 20 6f 6e 2e 20 |was writ|ten on. |
|00003720| 43 75 72 72 65 6e 74 6c | 79 20 3a 20 22 2b 76 65 |Currentl|y : "+ve|
|00003730| 72 73 69 6f 6e 24 0d 0f | 96 a4 20 20 20 20 20 20 |rsion$..|.. |
|00003740| 20 20 20 20 20 20 c9 20 | 36 2c 31 33 20 3a 68 65 | . |6,13 :he|
|00003750| 6c 70 24 3d 22 41 61 72 | 64 27 76 61 72 6b 20 73 |lp$="Aar|d'vark s|
|00003760| 6f 66 74 77 61 72 65 20 | 69 73 20 74 68 65 20 6c |oftware |is the l|
|00003770| 61 62 65 6c 20 74 68 61 | 74 20 43 68 72 69 73 20 |abel tha|t Chris |
|00003780| 77 72 69 74 65 73 20 75 | 6e 64 65 72 2e 20 50 72 |writes u|nder. Pr|
|00003790| 6f 67 72 61 6d 73 20 69 | 6e 63 6c 75 64 65 20 3a |ograms i|nclude :|
|000037a0| 20 21 53 6e 6f 77 79 20 | 74 68 65 20 73 6e 6f 77 | !Snowy |the snow|
|000037b0| 6d 61 6e 2c 20 21 4e 6f | 64 65 6c 65 74 65 2c 20 |man, !No|delete, |
|000037c0| 21 48 65 64 67 65 68 6f | 67 73 20 61 6e 64 20 6d |!Hedgeho|gs and m|
|000037d0| 61 6e 79 20 6d 6f 72 65 | 2e 22 0d 0f a0 9f 20 20 |any more|.".... |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 c9 20 30 2c 31 32 | | . 0,12|
|000037f0| 20 3a 68 65 6c 70 24 3d | 22 46 6c 6f 79 64 20 45 | :help$=|"Floyd E|
|00003800| 6e 74 65 72 70 72 69 73 | 65 73 20 53 6f 66 77 61 |nterpris|es Sofwa|
|00003810| 72 65 20 69 73 20 74 68 | 65 20 6c 61 62 65 6c 20 |re is th|e label |
|00003820| 74 68 61 74 20 49 20 28 | 4f 77 61 69 6e 20 43 6f |that I (|Owain Co|
|00003830| 6c 65 29 20 77 72 69 74 | 65 20 75 6e 64 65 72 2e |le) writ|e under.|
|00003840| 20 50 72 6f 67 72 61 6d | 73 20 69 6e 63 6c 75 64 | Program|s includ|
|00003850| 65 20 3a 20 21 52 65 73 | 6f 75 72 63 65 2b 2c 20 |e : !Res|ource+, |
|00003860| 21 54 61 64 70 6f 6c 65 | 73 2c 20 21 53 63 72 65 |!Tadpole|s, !Scre|
|00003870| 65 6e 73 20 65 74 63 2e | 22 0d 0f aa 1e 20 20 20 |ens etc.|".... |
|00003880| 20 20 20 20 20 20 20 20 | 20 cb 20 20 20 20 20 20 | | . |
|00003890| 20 20 20 20 20 20 20 0d | 0f b4 05 cb 0d 0f be 23 | .|.......#|
|000038a0| 21 62 6c 6f 63 6b 25 3d | 28 28 32 30 2b a9 68 65 |!block%=|((20+.he|
|000038b0| 6c 70 24 2b 31 29 2b 33 | 29 20 80 20 ac 20 33 0d |lp$+1)+3|) . . 3.|
|000038c0| 0f c8 14 62 6c 6f 63 6b | 25 21 31 32 3d 6d 65 73 |...block|%!12=mes|
|000038d0| 73 32 25 0d 0f d2 12 62 | 6c 6f 63 6b 25 21 31 36 |s2%....b|lock%!16|
|000038e0| 3d 26 35 30 33 0d 0f dc | 16 24 28 62 6c 6f 63 6b |=&503...|.$(block|
|000038f0| 25 2b 32 30 29 3d 68 65 | 6c 70 24 0d 0f e6 1a 62 |%+20)=he|lp$....b|
|00003900| 6c 6f 63 6b 25 3f 28 32 | 30 2b a9 28 68 65 6c 70 |lock%?(2|0+.(help|
|00003910| 24 29 29 3d 30 0d 0f f0 | 30 c8 99 20 22 57 69 6d |$))=0...|0.. "Wim|
|00003920| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00003930| 37 2c 62 6c 6f 63 6b 25 | 2c 64 65 73 74 69 6e 61 |7,block%|,destina|
|00003940| 74 69 6f 6e 25 0d 0f fa | 05 e1 0d 10 04 05 3a 0d |tion%...|......:.|
|00003950| 10 0e 27 dd f2 73 65 74 | 75 70 66 69 6c 65 6d 65 |..'..set|upfileme|
|00003960| 6e 75 28 6d 65 6e 75 25 | 2c 70 61 74 68 24 2c 74 |nu(menu%|,path$,t|
|00003970| 69 74 6c 65 24 29 0d 10 | 18 35 ea 20 61 72 65 61 |itle$)..|.5. area|
|00003980| 25 2c 6e 75 6d 6f 66 66 | 69 6c 65 73 25 2c 77 69 |%,numoff|iles%,wi|
|00003990| 64 74 68 25 2c 6f 66 66 | 73 65 74 25 2c 77 69 64 |dth%,off|set%,wid|
|000039a0| 74 68 25 2c 70 74 72 25 | 2c 61 25 0d 10 22 0f de |th%,ptr%|,a%.."..|
|000039b0| 20 61 72 65 61 25 20 31 | 30 30 0d 10 2c 11 6e 75 | area% 1|00..,.nu|
|000039c0| 6d 6f 66 66 69 6c 65 73 | 25 3d 30 0d 10 36 0d 6f |moffiles|%=0..6.o|
|000039d0| 66 66 73 65 74 25 3d 30 | 0d 10 40 11 24 6d 65 6e |ffset%=0|..@.$men|
|000039e0| 75 25 3d 74 69 74 6c 65 | 24 0d 10 4a 1b 77 69 64 |u%=title|$..J.wid|
|000039f0| 74 68 25 3d 28 a9 28 74 | 69 74 6c 65 24 29 2d 31 |th%=(.(t|itle$)-1|
|00003a00| 29 2a 31 36 0d 10 54 2d | 6d 65 6e 75 25 21 31 32 |)*16..T-|menu%!12|
|00003a10| 3d 26 30 30 30 37 30 32 | 30 37 3a 6d 65 6e 75 25 |=&000702|07:menu%|
|00003a20| 21 32 30 3d 34 34 3a 6d | 65 6e 75 25 21 32 34 3d |!20=44:m|enu%!24=|
|00003a30| 30 0d 10 5e 11 70 74 72 | 25 3d 6d 65 6e 75 25 2b |0..^.ptr|%=menu%+|
|00003a40| 32 38 0d 10 68 05 f5 0d | 10 72 3f c8 99 20 22 4f |28..h...|.r?.. "O|
|00003a50| 53 5f 47 42 50 42 22 2c | 31 30 2c 70 61 74 68 24 |S_GBPB",|10,path$|
|00003a60| 2c 61 72 65 61 25 2c 31 | 2c 6f 66 66 73 65 74 25 |,area%,1|,offset%|
|00003a70| 2c 31 30 30 2c 22 2a 22 | 20 b8 20 2c 2c 2c 2c 6f |,100,"*"| . ,,,,o|
|00003a80| 66 66 73 65 74 25 0d 10 | 7c 13 e7 20 6f 66 66 73 |ffset%..||.. offs|
|00003a90| 65 74 25 3c 3e 2d 31 20 | 8c 0d 10 86 10 20 20 20 |et%<>-1 |..... |
|00003aa0| 20 70 74 72 25 21 30 3d | 30 0d 10 90 11 20 20 20 | ptr%!0=|0.... |
|00003ab0| 20 70 74 72 25 21 34 3d | 2d 31 0d 10 9a 17 20 20 | ptr%!4=|-1.... |
|00003ac0| 20 20 70 74 72 25 21 38 | 3d 26 37 30 30 30 30 32 | ptr%!8|=&700002|
|00003ad0| 31 0d 10 a4 24 20 20 20 | 20 24 28 70 74 72 25 2b |1...$ | $(ptr%+|
|00003ae0| 31 32 29 3d a4 73 74 72 | 69 6e 67 28 61 72 65 61 |12)=.str|ing(area|
|00003af0| 25 2b 32 30 29 0d 10 ae | 10 20 20 20 20 70 74 72 |%+20)...|. ptr|
|00003b00| 25 2b 3d 32 34 0d 10 b8 | 26 20 20 20 20 61 25 3d |%+=24...|& a%=|
|00003b10| 28 a9 28 a4 73 74 72 69 | 6e 67 28 61 72 65 61 25 |(.(.stri|ng(area%|
|00003b20| 2b 32 30 29 29 2b 31 29 | 2a 31 36 0d 10 c2 1d 20 |+20))+1)|*16.... |
|00003b30| 20 20 20 e7 20 61 25 3e | 77 69 64 74 68 25 20 77 | . a%>|width% w|
|00003b40| 69 64 74 68 25 3d 61 25 | 0d 10 cc 05 cd 0d 10 d6 |idth%=a%|........|
|00003b50| 10 fd 20 6f 66 66 73 65 | 74 25 3d 2d 31 0d 10 e0 |.. offse|t%=-1...|
|00003b60| 0c 70 74 72 25 2d 3d 32 | 34 0d 10 ea 0e 70 74 72 |.ptr%-=2|4....ptr|
|00003b70| 25 21 30 3d 26 38 30 0d | 10 f4 13 6d 65 6e 75 25 |%!0=&80.|...menu%|
|00003b80| 21 31 36 3d 77 69 64 74 | 68 25 0d 10 fe 05 e1 0d |!16=widt|h%......|
|00003b90| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+