/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c / cruncher / !Cruncher / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 30 f4 20 3e | 20 56 65 72 73 69 6f 6e |e...0. >| Version|
|00000020| 20 31 2e 32 32 20 2d 2d | 2d 20 28 43 29 20 41 43 | 1.22 --|- (C) AC|
|00000030| 45 2f 41 72 63 20 41 6e | 67 65 6c 73 20 31 39 39 |E/Arc An|gels 199|
|00000040| 31 0d 00 1e 04 0d 00 28 | 12 63 72 75 6e 63 68 65 |1......(|.crunche|
|00000050| 64 25 3d 26 30 30 30 0d | 00 32 1b c8 9b 22 3c 4f |d%=&000.|.2..."<O|
|00000060| 62 65 79 24 44 69 72 3e | 2e 57 69 6d 70 5f 4c 69 |bey$Dir>|.Wimp_Li|
|00000070| 62 22 0d 00 3c 1c ee 20 | 85 20 f2 70 72 65 5f 65 |b"..<.. |. .pre_e|
|00000080| 72 72 6f 72 28 9f 2c f6 | 24 2c 9e 29 3a e0 0d 00 |rror(.,.|$,.):...|
|00000090| 46 04 0d 00 50 18 70 72 | 6f 67 6e 61 6d 65 24 3d |F...P.pr|ogname$=|
|000000a0| 22 43 72 75 6e 63 68 65 | 72 22 0d 00 5a 1e f2 69 |"Crunche|r"..Z..i|
|000000b0| 6e 69 74 5f 6c 69 62 72 | 61 72 79 28 36 30 30 2c |nit_libr|ary(600,|
|000000c0| 32 30 30 2c 32 30 30 29 | 0d 00 64 11 f2 69 6e 69 |200,200)|..d..ini|
|000000d0| 74 5f 70 72 6f 67 72 61 | 6d 0d 00 6e 1b ee 20 85 |t_progra|m..n.. .|
|000000e0| 20 f2 65 78 69 74 5f 65 | 72 72 6f 72 28 9f 2c f6 | .exit_e|rror(.,.|
|000000f0| 24 2c 9e 29 0d 00 78 17 | f2 69 6e 73 74 61 6c 6c |$,.)..x.|.install|
|00000100| 28 22 69 63 6f 6e 62 61 | 72 22 29 0d 00 82 1e ee |("iconba|r").....|
|00000110| 20 85 20 f2 64 69 73 70 | 6c 61 79 5f 65 72 72 6f | . .disp|lay_erro|
|00000120| 72 28 9f 2c f6 24 2c 9e | 29 0d 00 8c 04 0d 00 96 |r(.,.$,.|).......|
|00000130| 05 f5 0d 00 a0 0e f2 70 | 6f 6c 6c 28 31 2c 30 29 |.......p|oll(1,0)|
|00000140| 0d 00 aa 07 fd 20 30 0d | 00 b4 04 0d 00 be 12 dd |..... 0.|........|
|00000150| f2 69 6e 69 74 5f 70 72 | 6f 67 72 61 6d 0d 00 c8 |.init_pr|ogram...|
|00000160| 24 74 65 6d 70 6c 61 74 | 65 24 3d 22 3c 4f 62 65 |$templat|e$="<Obe|
|00000170| 79 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |y$Dir>.T|emplates|
|00000180| 22 0d 00 d2 0d 6d 79 5f | 72 65 66 25 3d 30 0d 00 |"....my_|ref%=0..|
|00000190| dc 05 e1 0d 00 e6 04 0d | 00 f0 0d dd f2 6d 65 73 |........|.....mes|
|000001a0| 73 61 67 65 0d 00 fa 2b | f4 20 49 46 20 62 6c 6f |sage...+|. IF blo|
|000001b0| 63 6b 25 21 34 3d 74 61 | 73 6b 5f 68 61 6e 64 6c |ck%!4=ta|sk_handl|
|000001c0| 65 25 20 54 48 45 4e 20 | 45 4e 44 50 52 4f 43 0d |e% THEN |ENDPROC.|
|000001d0| 01 04 12 c8 8e 20 62 6c | 6f 63 6b 25 21 31 36 20 |..... bl|ock%!16 |
|000001e0| ca 0d 01 0e 13 20 20 c9 | 20 30 20 3a 20 f2 66 69 |.....  .| 0 : .fi|
|000001f0| 6e 69 73 68 0d 01 18 29 | 20 20 c9 20 33 20 3a 20 |nish...)|  . 3 : |
|00000200| e7 20 62 6c 6f 63 6b 25 | 21 31 32 3d 30 20 8c 20 |. block%|!12=0 . |
|00000210| f2 64 61 74 61 5f 6c 6f | 61 64 28 b9 29 0d 01 22 |.data_lo|ad(.).."|
|00000220| 46 20 20 c9 20 35 20 3a | 20 e7 20 62 6c 6f 63 6b |F  . 5 :| . block|
|00000230| 25 21 34 3d 74 61 73 6b | 5f 68 61 6e 64 6c 65 25 |%!4=task|_handle%|
|00000240| 20 8c 20 6d 79 5f 72 65 | 66 25 3d 62 6c 6f 63 6b | . my_re|f%=block|
|00000250| 25 21 38 20 8b 20 f2 64 | 61 74 61 5f 6c 6f 61 64 |%!8 . .d|ata_load|
|00000260| 28 a3 29 0d 01 2c 05 cb | 0d 01 36 05 e1 0d 01 40 |(.)..,..|..6....@|
|00000270| 04 0d 01 4a 16 dd f2 6d | 65 73 73 61 67 65 5f 72 |...J...m|essage_r|
|00000280| 65 63 6f 72 64 65 64 0d | 01 54 0c f2 6d 65 73 73 |ecorded.|.T..mess|
|00000290| 61 67 65 0d 01 5e 05 e1 | 0d 01 68 04 0d 01 72 19 |age..^..|..h...r.|
|000002a0| dd f2 6d 65 73 73 61 67 | 65 5f 61 63 6b 6e 6f 77 |..messag|e_acknow|
|000002b0| 6c 65 64 67 65 0d 01 7c | 12 c8 8e 20 62 6c 6f 63 |ledge..||... bloc|
|000002c0| 6b 25 21 31 36 20 ca 0d | 01 86 46 c9 20 35 20 3a |k%!16 ..|..F. 5 :|
|000002d0| 20 e7 20 62 6c 6f 63 6b | 25 21 38 3d 6d 79 5f 72 | . block|%!8=my_r|
|000002e0| 65 66 25 20 8c 20 c8 99 | 20 22 57 69 6d 70 5f 53 |ef% . ..| "Wimp_S|
|000002f0| 74 61 72 74 54 61 73 6b | 22 2c 22 25 52 75 6e 20 |tartTask|","%Run |
|00000300| 3c 57 69 6d 70 24 53 63 | 72 61 70 3e 22 0d 01 90 |<Wimp$Sc|rap>"...|
|00000310| 05 cb 0d 01 9a 05 e1 0d | 01 a4 04 0d 01 ae 4e 2a |........|......N*|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 01 b8 13 2a 2a 2a |********|*....***|
|00000370| 20 69 63 6f 6e 62 61 72 | 20 2a 2a 2a 0d 01 c2 04 | iconbar| ***....|
|00000380| 0d 01 cc 1a dd a4 69 63 | 6f 6e 62 61 72 5f 69 6e |......ic|onbar_in|
|00000390| 69 74 5f 70 72 6f 67 72 | 61 6d 0d 01 d6 21 77 5f |it_progr|am...!w_|
|000003a0| 69 6e 66 6f 25 3d a4 67 | 65 74 5f 77 69 6e 64 6f |info%=.g|et_windo|
|000003b0| 77 28 22 69 6e 66 6f 22 | 2c b9 29 0d 01 e0 29 f2 |w("info"|,.)...).|
|000003c0| 73 65 74 5f 69 63 6f 6e | 74 65 78 74 28 77 5f 69 |set_icon|text(w_i|
|000003d0| 6e 66 6f 25 2c 31 2c 22 | 43 72 75 6e 63 68 65 72 |nfo%,1,"|Cruncher|
|000003e0| 22 2c a3 29 0d 01 ea 3c | f2 73 65 74 5f 69 63 6f |",.)...<|.set_ico|
|000003f0| 6e 74 65 78 74 28 77 5f | 69 6e 66 6f 25 2c 32 2c |ntext(w_|info%,2,|
|00000400| 22 44 65 2f 63 72 75 6e | 63 68 65 73 20 66 69 6c |"De/crun|ches fil|
|00000410| 65 73 20 75 73 69 6e 67 | 20 4c 5a 57 22 2c a3 29 |es using| LZW",.)|
|00000420| 0d 01 f4 36 f2 73 65 74 | 5f 69 63 6f 6e 74 65 78 |...6.set|_icontex|
|00000430| 74 28 77 5f 69 6e 66 6f | 25 2c 33 2c 22 a9 20 41 |t(w_info|%,3,". A|
|00000440| 43 45 2f 41 72 63 20 41 | 6e 67 65 6c 73 20 31 39 |CE/Arc A|ngels 19|
|00000450| 39 31 22 2c a3 29 0d 01 | fe 33 f2 73 65 74 5f 69 |91",.)..|.3.set_i|
|00000460| 63 6f 6e 74 65 78 74 28 | 77 5f 69 6e 66 6f 25 2c |context(|w_info%,|
|00000470| 34 2c 22 31 2e 32 32 20 | 28 32 35 2d 4d 61 79 2d |4,"1.22 |(25-May-|
|00000480| 31 39 39 31 29 22 2c a3 | 29 0d 02 08 0d 63 72 75 |1991)",.|)....cru|
|00000490| 6e 63 68 25 3d 32 0d 02 | 12 1a 6d 5f 61 63 74 69 |nch%=2..|..m_acti|
|000004a0| 6f 6e 25 3d a4 63 72 65 | 61 74 65 5f 6d 65 6e 75 |on%=.cre|ate_menu|
|000004b0| 0d 02 1c 28 dc 20 22 23 | 41 63 74 69 6f 6e 2c 43 |...(. "#|Action,C|
|000004c0| 72 75 6e 63 68 2c 44 65 | 63 72 75 6e 63 68 2c 21 |runch,De|crunch,!|
|000004d0| 52 65 76 65 72 73 65 22 | 0d 02 26 11 6c 5f 69 63 |Reverse"|..&.l_ic|
|000004e0| 6f 6e 62 61 72 25 3d 2d | 33 0d 02 30 1b 6d 5f 69 |onbar%=-|3..0.m_i|
|000004f0| 63 6f 6e 62 61 72 25 3d | a4 63 72 65 61 74 65 5f |conbar%=|.create_|
|00000500| 6d 65 6e 75 0d 02 3a 35 | dc 20 22 23 43 72 75 6e |menu..:5|. "#Crun|
|00000510| 63 68 65 72 2c 49 6e 66 | 6f 3e 77 5f 69 6e 66 6f |cher,Inf|o>w_info|
|00000520| 25 2c 41 63 74 69 6f 6e | 23 3e 6d 5f 61 63 74 69 |%,Action|#>m_acti|
|00000530| 6f 6e 25 2c 51 75 69 74 | 22 0d 02 44 2e 69 5f 69 |on%,Quit|"..D.i_i|
|00000540| 63 6f 6e 62 61 72 25 3d | a4 69 63 6f 6e 62 61 72 |conbar%=|.iconbar|
|00000550| 5f 69 6e 73 74 61 6c 6c | 28 22 21 22 2b 70 72 6f |_install|("!"+pro|
|00000560| 67 6e 61 6d 65 24 29 0d | 02 4e 1d f2 61 64 64 5f |gname$).|.N..add_|
|00000570| 77 69 6e 64 6f 77 28 2d | 32 2c 22 69 63 6f 6e 62 |window(-|2,"iconb|
|00000580| 61 72 22 29 0d 02 58 06 | 3d 30 0d 02 62 04 0d 02 |ar")..X.|=0..b...|
|00000590| 6c 19 dd a4 69 63 6f 6e | 62 61 72 5f 6d 6f 75 73 |l...icon|bar_mous|
|000005a0| 65 5f 63 6c 69 63 6b 0d | 02 76 11 c8 8e 20 62 6c |e_click.|.v... bl|
|000005b0| 6f 63 6b 25 21 38 20 ca | 0d 02 80 42 c9 20 32 20 |ock%!8 .|...B. 2 |
|000005c0| 3a 20 f2 6f 70 65 6e 5f | 6d 65 6e 75 28 6d 5f 69 |: .open_|menu(m_i|
|000005d0| 63 6f 6e 62 61 72 25 29 | 3a f2 61 64 64 5f 77 69 |conbar%)|:.add_wi|
|000005e0| 6e 64 6f 77 28 6d 5f 69 | 63 6f 6e 62 61 72 25 2c |ndow(m_i|conbar%,|
|000005f0| 22 69 63 6f 6e 62 61 72 | 22 29 0d 02 8a 05 cb 0d |"iconbar|")......|
|00000600| 02 94 06 3d 30 0d 02 9e | 04 0d 02 a8 1c dd a4 69 |...=0...|.......i|
|00000610| 63 6f 6e 62 61 72 5f 6d | 65 6e 75 5f 73 65 6c 65 |conbar_m|enu_sele|
|00000620| 63 74 69 6f 6e 0d 02 b2 | 11 ea 20 6c 6f 6f 70 25 |ction...|.. loop%|
|00000630| 2c 6d 65 6e 75 24 0d 02 | bc 35 c8 99 20 22 57 69 |,menu$..|.5.. "Wi|
|00000640| 6d 70 5f 44 65 63 6f 64 | 65 4d 65 6e 75 22 2c 2c |mp_Decod|eMenu",,|
|00000650| 6d 5f 69 63 6f 6e 62 61 | 72 25 2c 62 6c 6f 63 6b |m_iconba|r%,block|
|00000660| 25 2c 62 6c 6f 63 6b 25 | 2b 31 32 0d 02 c6 16 6d |%,block%|+12....m|
|00000670| 65 6e 75 24 3d 24 28 62 | 6c 6f 63 6b 25 2b 31 32 |enu$=$(b|lock%+12|
|00000680| 29 0d 02 d0 0e c8 8e 20 | 6d 65 6e 75 24 20 ca 0d |)...... |menu$ ..|
|00000690| 02 da 18 c9 20 22 51 75 | 69 74 22 20 20 20 3a 20 |.... "Qu|it"   : |
|000006a0| f2 66 69 6e 69 73 68 0d | 02 e4 1f c9 20 22 41 63 |.finish.|.... "Ac|
|000006b0| 74 69 6f 6e 2e 43 72 75 | 6e 63 68 22 3a 63 72 75 |tion.Cru|nch":cru|
|000006c0| 6e 63 68 25 3d 30 0d 02 | ee 21 c9 20 22 41 63 74 |nch%=0..|.!. "Act|
|000006d0| 69 6f 6e 2e 44 65 63 72 | 75 6e 63 68 22 3a 63 72 |ion.Decr|unch":cr|
|000006e0| 75 6e 63 68 25 3d 31 0d | 02 f8 20 c9 20 22 41 63 |unch%=1.|.. . "Ac|
|000006f0| 74 69 6f 6e 2e 52 65 76 | 65 72 73 65 22 3a 63 72 |tion.Rev|erse":cr|
|00000700| 75 6e 63 68 25 3d 32 0d | 03 02 05 cb 0d 03 0c 11 |unch%=2.|........|
|00000710| e3 20 6c 6f 6f 70 25 3d | 30 20 b8 20 32 0d 03 16 |. loop%=|0 . 2...|
|00000720| 21 f2 75 6e 73 65 74 5f | 74 69 6b 28 6d 5f 61 63 |!.unset_|tik(m_ac|
|00000730| 74 69 6f 6e 25 2c 6c 6f | 6f 70 25 2b 31 29 0d 03 |tion%,lo|op%+1)..|
|00000740| 20 05 ed 0d 03 2a 21 f2 | 73 65 74 5f 74 69 6b 28 | ....*!.|set_tik(|
|00000750| 6d 5f 61 63 74 69 6f 6e | 25 2c 63 72 75 6e 63 68 |m_action|%,crunch|
|00000760| 25 2b 31 29 0d 03 34 06 | 3d 30 0d 03 3e 04 0d 03 |%+1)..4.|=0..>...|
|00000770| 48 4e 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |HN******|********|
|00000780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 03 52 15 |********|****..R.|
|000007c0| 2a 2a 2a 20 64 61 74 61 | 5f 6c 6f 61 64 20 2a 2a |*** data|_load **|
|000007d0| 2a 0d 03 5c 04 0d 03 66 | 18 dd f2 64 61 74 61 5f |*..\...f|...data_|
|000007e0| 6c 6f 61 64 28 64 72 61 | 67 65 64 25 29 0d 03 70 |load(dra|ged%)..p|
|000007f0| 24 ea 20 66 69 6c 65 6e | 61 6d 65 24 2c 64 5f 63 |$. filen|ame$,d_c|
|00000800| 6c 69 63 6b 65 64 25 2c | 66 69 6c 65 74 79 70 65 |licked%,|filetype|
|00000810| 25 0d 03 7a 18 64 5f 63 | 6c 69 63 6b 65 64 25 3d |%..z.d_c|licked%=|
|00000820| ac 20 64 72 61 67 65 64 | 25 0d 03 84 17 66 69 6c |. draged|%....fil|
|00000830| 65 74 79 70 65 25 3d 62 | 6c 6f 63 6b 25 21 34 30 |etype%=b|lock%!40|
|00000840| 0d 03 8e 33 e7 20 64 5f | 63 6c 69 63 6b 65 64 25 |...3. d_|clicked%|
|00000850| 20 80 20 66 69 6c 65 74 | 79 70 65 25 3d 63 72 75 | . filet|ype%=cru|
|00000860| 6e 63 68 65 64 25 20 8c | 20 f2 65 78 65 63 75 74 |nched% .| .execut|
|00000870| 65 3a e1 0d 03 98 14 e7 | 20 64 5f 63 6c 69 63 6b |e:......| d_click|
|00000880| 65 64 25 20 8c 20 e1 0d | 03 a2 19 e7 20 62 6c 6f |ed% . ..|.... blo|
|00000890| 63 6b 25 21 34 30 3e 26 | 32 30 30 30 20 8c 20 e1 |ck%!40>&|2000 . .|
|000008a0| 0d 03 ac 0d f2 6c 6f 61 | 64 5f 61 63 6b 0d 03 b6 |.....loa|d_ack...|
|000008b0| 1f 66 69 6c 65 6e 61 6d | 65 24 3d a4 72 65 61 64 |.filenam|e$=.read|
|000008c0| 7a 28 62 6c 6f 63 6b 25 | 2b 34 34 29 0d 03 c0 2d |z(block%|+44)...-|
|000008d0| e7 20 66 69 6c 65 74 79 | 70 65 25 3e 26 46 46 46 |. filety|pe%>&FFF|
|000008e0| 20 3a 20 f2 6d 75 6c 74 | 69 70 6c 65 28 66 69 6c | : .mult|iple(fil|
|000008f0| 65 6e 61 6d 65 24 29 3a | e1 0d 03 ca 21 f2 64 6f |ename$):|....!.do|
|00000900| 5f 66 69 6c 65 28 66 69 | 6c 65 6e 61 6d 65 24 2c |_file(fi|lename$,|
|00000910| 66 69 6c 65 74 79 70 65 | 25 29 0d 03 d4 05 e1 0d |filetype|%)......|
|00000920| 03 de 04 0d 03 e8 22 dd | f2 64 6f 5f 66 69 6c 65 |......".|.do_file|
|00000930| 28 66 69 6c 65 6e 61 6d | 65 24 2c 66 69 6c 65 74 |(filenam|e$,filet|
|00000940| 79 70 65 25 29 0d 03 f2 | 0b ea 20 74 79 70 65 25 |ype%)...|.. type%|
|00000950| 0d 03 fc 11 e7 20 63 72 | 75 6e 63 68 25 3d 32 20 |..... cr|unch%=2 |
|00000960| 8c 0d 04 06 2f 20 20 e7 | 20 66 69 6c 65 74 79 70 |..../  .| filetyp|
|00000970| 65 25 3d 63 72 75 6e 63 | 68 65 64 25 20 8c 20 74 |e%=crunc|hed% . t|
|00000980| 79 70 65 25 3d 31 20 8b | 20 74 79 70 65 25 3d 30 |ype%=1 .| type%=0|
|00000990| 0d 04 10 05 cc 0d 04 1a | 13 20 20 74 79 70 65 25 |........|.  type%|
|000009a0| 3d 63 72 75 6e 63 68 25 | 0d 04 24 05 cd 0d 04 2e |=crunch%|..$.....|
|000009b0| 53 e7 20 74 79 70 65 25 | 3d 30 20 8c 20 f2 63 6f |S. type%|=0 . .co|
|000009c0| 6d 70 72 65 73 73 28 66 | 69 6c 65 6e 61 6d 65 24 |mpress(f|ilename$|
|000009d0| 2c 66 69 6c 65 74 79 70 | 65 25 29 20 8b 20 f2 64 |,filetyp|e%) . .d|
|000009e0| 65 63 6f 6d 70 72 65 73 | 73 28 66 69 6c 65 6e 61 |ecompres|s(filena|
|000009f0| 6d 65 24 2c 66 69 6c 65 | 74 79 70 65 25 2c a3 29 |me$,file|type%,.)|
|00000a00| 0d 04 38 05 e1 0d 04 42 | 04 0d 04 4c 12 5c 66 69 |..8....B|...L.\fi|
|00000a10| 6c 65 74 79 70 65 3d 26 | 30 30 30 0d 04 56 17 5c |letype=&|000..V.\|
|00000a20| 72 65 6a 65 63 74 20 69 | 66 20 6c 65 6e 67 74 68 |reject i|f length|
|00000a30| 3d 30 0d 04 60 0d dd f2 | 65 78 65 63 75 74 65 0d |=0..`...|execute.|
|00000a40| 04 6a 0b ea 20 65 78 65 | 63 25 0d 04 74 0d f2 6c |.j.. exe|c%..t..l|
|00000a50| 6f 61 64 5f 61 63 6b 0d | 04 7e 1f 66 69 6c 65 6e |oad_ack.|.~.filen|
|00000a60| 61 6d 65 24 3d a4 72 65 | 61 64 7a 28 62 6c 6f 63 |ame$=.re|adz(bloc|
|00000a70| 6b 25 2b 34 34 29 0d 04 | 88 46 e7 20 a4 6c 65 6e |k%+44)..|.F. .len|
|00000a80| 67 74 68 28 66 69 6c 65 | 6e 61 6d 65 24 29 3d 30 |gth(file|name$)=0|
|00000a90| 20 8c 20 85 20 31 2c 22 | 43 61 6e 6e 6f 74 20 65 | . . 1,"|Cannot e|
|00000aa0| 78 65 63 75 74 65 20 66 | 69 6c 65 20 27 22 2b 66 |xecute f|ile '"+f|
|00000ab0| 69 6c 65 6e 61 6d 65 24 | 2b 22 27 22 0d 04 92 28 |ilename$|+"'"...(|
|00000ac0| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 37 2c |.. "OS_F|ile",17,|
|00000ad0| 66 69 6c 65 6e 61 6d 65 | 24 20 b8 20 2c 2c 2c 65 |filename|$ . ,,,e|
|00000ae0| 78 65 63 25 0d 04 9c 26 | f2 64 65 63 6f 6d 70 72 |xec%...&|.decompr|
|00000af0| 65 73 73 28 66 69 6c 65 | 6e 61 6d 65 24 2c 63 72 |ess(file|name$,cr|
|00000b00| 75 6e 63 68 65 64 25 2c | b9 29 0d 04 a6 3e 21 62 |unched%,|.)...>!b|
|00000b10| 6c 6f 63 6b 25 3d 36 30 | 3a 62 6c 6f 63 6b 25 21 |lock%=60|:block%!|
|00000b20| 31 32 3d 30 3a 62 6c 6f | 63 6b 25 21 31 36 3d 35 |12=0:blo|ck%!16=5|
|00000b30| 3a 62 6c 6f 63 6b 25 21 | 32 30 3d 30 3a 62 6c 6f |:block%!|20=0:blo|
|00000b40| 63 6b 25 21 32 34 3d 30 | 0d 04 b0 3e 62 6c 6f 63 |ck%!24=0|...>bloc|
|00000b50| 6b 25 21 32 38 3d 30 3a | 62 6c 6f 63 6b 25 21 33 |k%!28=0:|block%!3|
|00000b60| 32 3d 30 3a 62 6c 6f 63 | 6b 25 21 33 36 3d 30 3a |2=0:bloc|k%!36=0:|
|00000b70| 62 6c 6f 63 6b 25 21 34 | 30 3d 65 78 65 63 25 20 |block%!4|0=exec% |
|00000b80| 80 20 26 46 46 46 0d 04 | ba 24 24 28 62 6c 6f 63 |. &FFF..|.$$(bloc|
|00000b90| 6b 25 2b 34 34 29 3d 22 | 3c 57 69 6d 70 24 53 63 |k%+44)="|<Wimp$Sc|
|00000ba0| 72 61 70 3e 22 2b bd 28 | 30 29 0d 04 c4 25 c8 99 |rap>"+.(|0)...%..|
|00000bb0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00000bc0| 67 65 22 2c 31 38 2c 62 | 6c 6f 63 6b 25 2c 30 0d |ge",18,b|lock%,0.|
|00000bd0| 04 ce 05 e1 0d 04 d8 04 | 0d 04 e2 2a 5c 72 65 6a |........|...*\rej|
|00000be0| 65 63 74 20 69 66 20 66 | 69 6c 65 74 79 70 65 3e |ect if f|iletype>|
|00000bf0| 26 66 66 66 20 6f 72 20 | 66 69 6c 65 74 79 70 65 |&fff or |filetype|
|00000c00| 3d 30 0d 04 ec 2b 5c 72 | 65 6a 65 63 74 20 69 66 |=0...+\r|eject if|
|00000c10| 20 21 2a 2e 21 42 6f 6f | 74 2f 21 2a 2e 21 52 75 | !*.!Boo|t/!*.!Ru|
|00000c20| 6e 2f 21 2a 2e 21 53 70 | 72 69 74 65 73 0d 04 f6 |n/!*.!Sp|rites...|
|00000c30| 17 5c 72 65 6a 65 63 74 | 20 69 66 20 6c 65 6e 67 |.\reject| if leng|
|00000c40| 74 68 3d 30 0d 05 00 23 | dd f2 63 6f 6d 70 72 65 |th=0...#|..compre|
|00000c50| 73 73 28 66 69 6c 65 6e | 61 6d 65 24 2c 66 69 6c |ss(filen|ame$,fil|
|00000c60| 65 74 79 70 65 25 29 0d | 05 0a 4a ea 20 6c 65 6e |etype%).|..J. len|
|00000c70| 67 74 68 25 2c 61 64 64 | 72 65 73 73 25 2c 73 6c |gth%,add|ress%,sl|
|00000c80| 6f 74 5f 73 69 7a 65 25 | 2c 66 72 65 65 5f 6d 65 |ot_size%|,free_me|
|00000c90| 6d 25 2c 6b 69 6e 64 25 | 2c 6c 6f 61 64 25 2c 65 |m%,kind%|,load%,e|
|00000ca0| 78 65 63 25 2c 6c 65 6e | 5f 6e 25 2c 61 74 74 72 |xec%,len|_n%,attr|
|00000cb0| 25 0d 05 14 0c ea 20 66 | 61 6c 73 65 25 0d 05 1e |%..... f|alse%...|
|00000cc0| 07 ea 20 85 0d 05 28 2e | e7 20 66 69 6c 65 74 79 |.. ...(.|. filety|
|00000cd0| 70 65 25 3e 26 66 66 66 | 20 84 20 66 69 6c 65 74 |pe%>&fff| . filet|
|00000ce0| 79 70 65 25 3d 63 72 75 | 6e 63 68 65 64 25 20 8c |ype%=cru|nched% .|
|00000cf0| 20 e1 0d 05 32 1b e7 20 | a4 63 68 65 63 6b 28 66 | ...2.. |.check(f|
|00000d00| 69 6c 65 6e 61 6d 65 24 | 29 20 8c 20 e1 0d 05 3c |ilename$|) . ...<|
|00000d10| 1e 6c 65 6e 67 74 68 25 | 3d a4 6c 65 6e 67 74 68 |.length%|=.length|
|00000d20| 28 66 69 6c 65 6e 61 6d | 65 24 29 0d 05 46 13 e7 |(filenam|e$)..F..|
|00000d30| 20 6c 65 6e 67 74 68 25 | 3d 30 20 8c 20 e1 0d 05 | length%|=0 . ...|
|00000d40| 50 15 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |P... "Ho|urglass_|
|00000d50| 4f 6e 22 0d 05 5a 29 c8 | 99 20 22 4f 53 5f 43 68 |On"..Z).|. "OS_Ch|
|00000d60| 61 6e 67 65 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 22 |angeEnvi|ronment"|
|00000d70| 20 b8 20 2c 61 64 64 72 | 65 73 73 25 0d 05 64 34 | . ,addr|ess%..d4|
|00000d80| c8 99 20 22 57 69 6d 70 | 5f 53 6c 6f 74 53 69 7a |.. "Wimp|_SlotSiz|
|00000d90| 65 22 2c 2d 31 2c 2d 31 | 20 b8 20 73 6c 6f 74 5f |e",-1,-1| . slot_|
|00000da0| 73 69 7a 65 25 2c 2c 66 | 72 65 65 5f 6d 65 6d 25 |size%,,f|ree_mem%|
|00000db0| 0d 05 6e 0b 6b 69 6e 64 | 25 3d 32 0d 05 78 23 e7 |..n.kind|%=2..x#.|
|00000dc0| 20 66 72 65 65 5f 6d 65 | 6d 25 3c 6c 65 6e 67 74 | free_me|m%<lengt|
|00000dd0| 68 25 2a 32 20 8c 20 6b | 69 6e 64 25 3d 31 0d 05 |h%*2 . k|ind%=1..|
|00000de0| 82 21 e7 20 66 72 65 65 | 5f 6d 65 6d 25 3c 6c 65 |.!. free|_mem%<le|
|00000df0| 6e 67 74 68 25 20 8c 20 | 6b 69 6e 64 25 3d 30 0d |ngth% . |kind%=0.|
|00000e00| 05 8c 32 c8 99 20 22 57 | 69 6d 70 5f 53 6c 6f 74 |..2.. "W|imp_Slot|
|00000e10| 53 69 7a 65 22 2c 73 6c | 6f 74 5f 73 69 7a 65 25 |Size",sl|ot_size%|
|00000e20| 2b 6b 69 6e 64 25 2a 6c | 65 6e 67 74 68 25 2c 2d |+kind%*l|ength%,-|
|00000e30| 31 0d 05 96 1b ee 20 85 | 20 ea 20 f7 20 85 3a f2 |1..... .| . . .:.|
|00000e40| 63 6f 6d 70 5f 65 72 72 | 6f 72 3a e1 0d 05 a0 34 |comp_err|or:....4|
|00000e50| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 37 2c |.. "OS_F|ile",17,|
|00000e60| 66 69 6c 65 6e 61 6d 65 | 24 20 b8 20 2c 2c 6c 6f |filename|$ . ,,lo|
|00000e70| 61 64 25 2c 65 78 65 63 | 25 2c 2c 61 74 74 72 25 |ad%,exec|%,,attr%|
|00000e80| 0d 05 aa 2e 6c 6f 61 64 | 25 3d 28 6c 6f 61 64 25 |....load|%=(load%|
|00000e90| 20 80 20 26 46 46 46 30 | 30 30 46 46 29 20 84 20 | . &FFF0|00FF) . |
|00000ea0| 28 63 72 75 6e 63 68 65 | 64 25 3c 3c 38 29 0d 05 |(crunche|d%<<8)..|
|00000eb0| b4 29 65 78 65 63 25 3d | 28 65 78 65 63 25 20 80 |.)exec%=|(exec% .|
|00000ec0| 20 26 46 46 46 46 46 30 | 30 30 29 20 84 20 66 69 | &FFFFF0|00) . fi|
|00000ed0| 6c 65 74 79 70 65 25 0d | 05 be 29 c8 99 20 22 4f |letype%.|..).. "O|
|00000ee0| 53 5f 46 69 6c 65 22 2c | 34 2c 66 69 6c 65 6e 61 |S_File",|4,filena|
|00000ef0| 6d 65 24 2c 2c 2c 2c 25 | 30 30 31 31 30 30 31 31 |me$,,,,%|00110011|
|00000f00| 0d 05 c8 0e c8 8e 20 6b | 69 6e 64 25 20 ca 0d 05 |...... k|ind% ...|
|00000f10| d2 36 c9 20 30 3a c8 99 | 20 22 4c 5a 57 5f 43 6f |.6. 0:..| "LZW_Co|
|00000f20| 6d 70 72 65 73 73 22 2c | 25 30 30 2c 66 69 6c 65 |mpress",|%00,file|
|00000f30| 6e 61 6d 65 24 2c 22 3c | 57 69 6d 70 24 53 63 72 |name$,"<|Wimp$Scr|
|00000f40| 61 70 3e 22 0d 05 dc 2e | 20 20 20 20 20 20 20 e7 |ap>"....|       .|
|00000f50| 20 a4 6c 65 6e 67 74 68 | 28 22 3c 57 69 6d 70 24 | .length|("<Wimp$|
|00000f60| 53 63 72 61 70 3e 22 29 | 3c 6c 65 6e 67 74 68 25 |Scrap>")|<length%|
|00000f70| 20 8c 0d 05 e6 4b 20 20 | 20 20 20 20 20 20 20 c8 | ....K  |       .|
|00000f80| 99 20 22 4f 53 5f 46 53 | 43 6f 6e 74 72 6f 6c 22 |. "OS_FS|Control"|
|00000f90| 2c 32 36 2c 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |,26,"<Wi|mp$Scrap|
|00000fa0| 3e 22 2c 66 69 6c 65 6e | 61 6d 65 24 2c 25 31 30 |>",filen|ame$,%10|
|00000fb0| 30 30 30 30 30 31 30 30 | 30 30 30 31 30 0d 05 f0 |00000100|00010...|
|00000fc0| 0c 20 20 20 20 20 20 20 | cc 0d 05 fa 21 20 20 20 |.       |....!   |
|00000fd0| 20 20 20 20 20 20 2a 52 | 65 6d 6f 76 65 20 3c 57 |      *R|emove <W|
|00000fe0| 69 6d 70 24 53 63 72 61 | 70 3e 0d 06 04 15 20 20 |imp$Scra|p>....  |
|00000ff0| 20 20 20 20 20 20 20 66 | 61 6c 73 65 25 3d b9 0d |       f|alse%=..|
|00001000| 06 0e 0c 20 20 20 20 20 | 20 20 cd 0d 06 18 49 c9 |...     |  ....I.|
|00001010| 20 31 3a c8 99 20 22 4c | 5a 57 5f 43 6f 6d 70 72 | 1:.. "L|ZW_Compr|
|00001020| 65 73 73 22 2c 25 31 30 | 2c 66 69 6c 65 6e 61 6d |ess",%10|,filenam|
|00001030| 65 24 2c 61 64 64 72 65 | 73 73 25 2c 2c 6c 65 6e |e$,addre|ss%,,len|
|00001040| 67 74 68 25 2d 31 20 b8 | 20 2c 2c 2c 2c 2c 6c 65 |gth%-1 .| ,,,,,le|
|00001050| 6e 5f 6e 25 0d 06 22 48 | 20 20 20 20 20 20 20 c8 |n_n%.."H|       .|
|00001060| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 31 30 2c 66 |. "OS_Fi|le",10,f|
|00001070| 69 6c 65 6e 61 6d 65 24 | 2c 63 72 75 6e 63 68 65 |ilename$|,crunche|
|00001080| 64 25 2c 2c 61 64 64 72 | 65 73 73 25 2c 61 64 64 |d%,,addr|ess%,add|
|00001090| 72 65 73 73 25 2b 6c 65 | 6e 5f 6e 25 0d 06 2c 2c |ress%+le|n_n%..,,|
|000010a0| c9 20 32 3a c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |. 2:.. "|OS_File"|
|000010b0| 2c 31 36 2c 66 69 6c 65 | 6e 61 6d 65 24 2c 61 64 |,16,file|name$,ad|
|000010c0| 64 72 65 73 73 25 2c 30 | 0d 06 36 5a 20 20 20 20 |dress%,0|..6Z    |
|000010d0| 20 20 20 c8 99 20 22 4c | 5a 57 5f 43 6f 6d 70 72 |   .. "L|ZW_Compr|
|000010e0| 65 73 73 22 2c 25 31 31 | 2c 61 64 64 72 65 73 73 |ess",%11|,address|
|000010f0| 25 2c 61 64 64 72 65 73 | 73 25 2b 6c 65 6e 67 74 |%,addres|s%+lengt|
|00001100| 68 25 2c 6c 65 6e 67 74 | 68 25 2c 6c 65 6e 67 74 |h%,lengt|h%,lengt|
|00001110| 68 25 2d 31 20 b8 20 2c | 2c 2c 2c 2c 6c 65 6e 5f |h%-1 . ,|,,,,len_|
|00001120| 6e 25 0d 06 40 58 20 20 | 20 20 20 20 20 c8 99 20 |n%..@X  |     .. |
|00001130| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 30 2c 66 69 6c |"OS_File|",10,fil|
|00001140| 65 6e 61 6d 65 24 2c 63 | 72 75 6e 63 68 65 64 25 |ename$,c|runched%|
|00001150| 2c 2c 61 64 64 72 65 73 | 73 25 2b 6c 65 6e 67 74 |,,addres|s%+lengt|
|00001160| 68 25 2c 61 64 64 72 65 | 73 73 25 2b 6c 65 6e 67 |h%,addre|ss%+leng|
|00001170| 74 68 25 2b 6c 65 6e 5f | 6e 25 0d 06 4a 05 cb 0d |th%+len_|n%..J...|
|00001180| 06 54 3c e7 20 ac 20 66 | 61 6c 73 65 25 20 8c 20 |.T<. . f|alse% . |
|00001190| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 2c 66 |.. "OS_F|ile",1,f|
|000011a0| 69 6c 65 6e 61 6d 65 24 | 2c 6c 6f 61 64 25 2c 65 |ilename$|,load%,e|
|000011b0| 78 65 63 25 2c 2c 61 74 | 74 72 25 0d 06 5e 16 c8 |xec%,,at|tr%..^..|
|000011c0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|000011d0| 22 0d 06 68 24 c8 99 20 | 22 57 69 6d 70 5f 53 6c |"..h$.. |"Wimp_Sl|
|000011e0| 6f 74 53 69 7a 65 22 2c | 73 6c 6f 74 5f 73 69 7a |otSize",|slot_siz|
|000011f0| 65 25 2c 2d 31 0d 06 72 | 05 e1 0d 06 7c 04 0d 06 |e%,-1..r|....|...|
|00001200| 86 1a 5c 72 65 6a 65 63 | 74 20 69 66 20 66 69 6c |..\rejec|t if fil|
|00001210| 65 74 79 70 65 3c 3e 30 | 0d 06 90 31 dd f2 64 65 |etype<>0|...1..de|
|00001220| 63 6f 6d 70 72 65 73 73 | 28 66 69 6c 65 6e 61 6d |compress|(filenam|
|00001230| 65 24 2c 66 69 6c 65 74 | 79 70 65 25 2c 77 69 6d |e$,filet|ype%,wim|
|00001240| 70 5f 73 63 72 61 70 25 | 29 0d 06 9a 43 ea 20 6c |p_scrap%|)...C. l|
|00001250| 65 6e 67 74 68 25 2c 61 | 64 64 72 65 73 73 25 2c |ength%,a|ddress%,|
|00001260| 73 6c 6f 74 5f 73 69 7a | 65 25 2c 66 72 65 65 5f |slot_siz|e%,free_|
|00001270| 6d 65 6d 25 2c 6b 69 6e | 64 25 2c 6c 6f 61 64 25 |mem%,kin|d%,load%|
|00001280| 2c 65 78 65 63 25 2c 61 | 74 74 72 25 0d 06 a4 07 |,exec%,a|ttr%....|
|00001290| ea 20 85 0d 06 ae 1e e7 | 20 66 69 6c 65 74 79 70 |. ......| filetyp|
|000012a0| 65 25 3c 3e 63 72 75 6e | 63 68 65 64 25 20 8c 20 |e%<>crun|ched% . |
|000012b0| e1 0d 06 b8 1e 6c 65 6e | 67 74 68 25 3d a4 6c 65 |.....len|gth%=.le|
|000012c0| 6e 67 74 68 28 66 69 6c | 65 6e 61 6d 65 24 29 0d |ngth(fil|ename$).|
|000012d0| 06 c2 13 e7 20 6c 65 6e | 67 74 68 25 3d 30 20 8c |.... len|gth%=0 .|
|000012e0| 20 e1 0d 06 cc 15 c8 99 | 20 22 48 6f 75 72 67 6c | .......| "Hourgl|
|000012f0| 61 73 73 5f 4f 6e 22 0d | 06 d6 29 c8 99 20 22 4f |ass_On".|..).. "O|
|00001300| 53 5f 43 68 61 6e 67 65 | 45 6e 76 69 72 6f 6e 6d |S_Change|Environm|
|00001310| 65 6e 74 22 20 b8 20 2c | 61 64 64 72 65 73 73 25 |ent" . ,|address%|
|00001320| 0d 06 e0 34 c8 99 20 22 | 57 69 6d 70 5f 53 6c 6f |...4.. "|Wimp_Slo|
|00001330| 74 53 69 7a 65 22 2c 2d | 31 2c 2d 31 20 b8 20 73 |tSize",-|1,-1 . s|
|00001340| 6c 6f 74 5f 73 69 7a 65 | 25 2c 2c 66 72 65 65 5f |lot_size|%,,free_|
|00001350| 6d 65 6d 25 0d 06 ea 0b | 6b 69 6e 64 25 3d 31 0d |mem%....|kind%=1.|
|00001360| 06 f4 21 e7 20 66 72 65 | 65 5f 6d 65 6d 25 3c 6c |..!. fre|e_mem%<l|
|00001370| 65 6e 67 74 68 25 20 8c | 20 6b 69 6e 64 25 3d 30 |ength% .| kind%=0|
|00001380| 0d 06 fe 32 c8 99 20 22 | 57 69 6d 70 5f 53 6c 6f |...2.. "|Wimp_Slo|
|00001390| 74 53 69 7a 65 22 2c 73 | 6c 6f 74 5f 73 69 7a 65 |tSize",s|lot_size|
|000013a0| 25 2b 6b 69 6e 64 25 2a | 6c 65 6e 67 74 68 25 2c |%+kind%*|length%,|
|000013b0| 2d 31 0d 07 08 1b ee 20 | 85 20 ea 20 f7 20 85 3a |-1..... |. . . .:|
|000013c0| f2 63 6f 6d 70 5f 65 72 | 72 6f 72 3a e1 0d 07 12 |.comp_er|ror:....|
|000013d0| 34 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 37 |4.. "OS_|File",17|
|000013e0| 2c 66 69 6c 65 6e 61 6d | 65 24 20 b8 20 2c 2c 6c |,filenam|e$ . ,,l|
|000013f0| 6f 61 64 25 2c 65 78 65 | 63 25 2c 2c 61 74 74 72 |oad%,exe|c%,,attr|
|00001400| 25 0d 07 1c 1a 66 69 6c | 65 74 79 70 65 25 3d 65 |%....fil|etype%=e|
|00001410| 78 65 63 25 20 80 20 26 | 46 46 46 0d 07 26 2e 6c |xec% . &|FFF..&.l|
|00001420| 6f 61 64 25 3d 28 6c 6f | 61 64 25 20 80 20 26 46 |oad%=(lo|ad% . &F|
|00001430| 46 46 30 30 30 46 46 29 | 20 84 20 28 66 69 6c 65 |FF000FF)| . (file|
|00001440| 74 79 70 65 25 3c 3c 38 | 29 0d 07 30 13 e7 20 77 |type%<<8|)..0.. w|
|00001450| 69 6d 70 5f 73 63 72 61 | 70 25 20 8c 0d 07 3a 30 |imp_scra|p% ...:0|
|00001460| 20 20 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 34 |  .. "OS|_File",4|
|00001470| 2c 22 3c 57 69 6d 70 24 | 53 63 72 61 70 3e 22 2c |,"<Wimp$|Scrap>",|
|00001480| 2c 2c 2c 25 30 30 31 31 | 30 30 31 31 0d 07 44 05 |,,,%0011|0011..D.|
|00001490| cc 0d 07 4e 2b 20 20 c8 | 99 20 22 4f 53 5f 46 69 |...N+  .|. "OS_Fi|
|000014a0| 6c 65 22 2c 34 2c 66 69 | 6c 65 6e 61 6d 65 24 2c |le",4,fi|lename$,|
|000014b0| 2c 2c 2c 25 30 30 31 31 | 30 30 31 31 0d 07 58 44 |,,,%0011|0011..XD|
|000014c0| 20 20 c8 99 20 22 4f 53 | 5f 46 53 43 6f 6e 74 72 |  .. "OS|_FSContr|
|000014d0| 6f 6c 22 2c 32 36 2c 66 | 69 6c 65 6e 61 6d 65 24 |ol",26,f|ilename$|
|000014e0| 2c 22 3c 57 69 6d 70 24 | 53 63 72 61 70 3e 22 2c |,"<Wimp$|Scrap>",|
|000014f0| 25 30 30 30 30 30 30 30 | 30 30 30 30 30 30 31 30 |%0000000|00000010|
|00001500| 0d 07 62 05 cd 0d 07 6c | 0e c8 8e 20 6b 69 6e 64 |..b....l|... kind|
|00001510| 25 20 ca 0d 07 76 07 c9 | 20 30 0d 07 80 36 20 20 |% ...v..| 0...6  |
|00001520| c8 99 20 22 4c 5a 57 5f | 44 65 63 6f 6d 70 72 65 |.. "LZW_|Decompre|
|00001530| 73 73 22 2c 25 30 30 2c | 66 69 6c 65 6e 61 6d 65 |ss",%00,|filename|
|00001540| 24 2c 22 3c 57 69 6d 70 | 24 53 63 72 61 70 3e 22 |$,"<Wimp|$Scrap>"|
|00001550| 0d 07 8a 17 20 20 e7 20 | ac 20 77 69 6d 70 5f 73 |....  . |. wimp_s|
|00001560| 63 72 61 70 25 20 8c 0d | 07 94 46 20 20 20 20 c8 |crap% ..|..F    .|
|00001570| 99 20 22 4f 53 5f 46 53 | 43 6f 6e 74 72 6f 6c 22 |. "OS_FS|Control"|
|00001580| 2c 32 36 2c 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |,26,"<Wi|mp$Scrap|
|00001590| 3e 22 2c 66 69 6c 65 6e | 61 6d 65 24 2c 25 31 30 |>",filen|ame$,%10|
|000015a0| 30 30 30 30 30 31 30 30 | 30 30 30 31 30 0d 07 9e |00000100|00010...|
|000015b0| 07 20 20 cd 0d 07 a8 07 | c9 20 31 0d 07 b2 2a 20 |.  .....|. 1...* |
|000015c0| 20 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 36 | .. "OS_|File",16|
|000015d0| 2c 66 69 6c 65 6e 61 6d | 65 24 2c 61 64 64 72 65 |,filenam|e$,addre|
|000015e0| 73 73 25 2c 30 0d 07 bc | 15 20 20 e7 20 77 69 6d |ss%,0...|.  . wim|
|000015f0| 70 5f 73 63 72 61 70 25 | 20 8c 0d 07 c6 3f 20 20 |p_scrap%| ....?  |
|00001600| 20 20 c8 99 20 22 4c 5a | 57 5f 44 65 63 6f 6d 70 |  .. "LZ|W_Decomp|
|00001610| 72 65 73 73 22 2c 25 30 | 31 2c 61 64 64 72 65 73 |ress",%0|1,addres|
|00001620| 73 25 2c 22 3c 57 69 6d | 70 24 53 63 72 61 70 3e |s%,"<Wim|p$Scrap>|
|00001630| 22 2c 6c 65 6e 67 74 68 | 25 0d 07 d0 07 20 20 cc |",length|%....  .|
|00001640| 0d 07 da 3a 20 20 20 20 | c8 99 20 22 4c 5a 57 5f |...:    |.. "LZW_|
|00001650| 44 65 63 6f 6d 70 72 65 | 73 73 22 2c 25 30 31 2c |Decompre|ss",%01,|
|00001660| 61 64 64 72 65 73 73 25 | 2c 66 69 6c 65 6e 61 6d |address%|,filenam|
|00001670| 65 24 2c 6c 65 6e 67 74 | 68 25 0d 07 e4 07 20 20 |e$,lengt|h%....  |
|00001680| cd 0d 07 ee 05 cb 0d 07 | f8 13 e7 20 77 69 6d 70 |........|... wimp|
|00001690| 5f 73 63 72 61 70 25 20 | 8c 0d 08 02 36 20 20 c8 |_scrap% |....6  .|
|000016a0| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 31 2c 22 3c |. "OS_Fi|le",1,"<|
|000016b0| 57 69 6d 70 24 53 63 72 | 61 70 3e 22 2c 6c 6f 61 |Wimp$Scr|ap>",loa|
|000016c0| 64 25 2c 65 78 65 63 25 | 2c 2c 61 74 74 72 25 0d |d%,exec%|,,attr%.|
|000016d0| 08 0c 05 cc 0d 08 16 31 | 20 20 c8 99 20 22 4f 53 |.......1|  .. "OS|
|000016e0| 5f 46 69 6c 65 22 2c 31 | 2c 66 69 6c 65 6e 61 6d |_File",1|,filenam|
|000016f0| 65 24 2c 6c 6f 61 64 25 | 2c 65 78 65 63 25 2c 2c |e$,load%|,exec%,,|
|00001700| 61 74 74 72 25 0d 08 20 | 05 cd 0d 08 2a 16 c8 99 |attr%.. |....*...|
|00001710| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00001720| 0d 08 34 24 c8 99 20 22 | 57 69 6d 70 5f 53 6c 6f |..4$.. "|Wimp_Slo|
|00001730| 74 53 69 7a 65 22 2c 73 | 6c 6f 74 5f 73 69 7a 65 |tSize",s|lot_size|
|00001740| 25 2c 2d 31 0d 08 3e 05 | e1 0d 08 48 04 0d 08 52 |%,-1..>.|...H...R|
|00001750| 10 dd f2 63 6f 6d 70 5f | 65 72 72 6f 72 0d 08 5c |...comp_|error..\|
|00001760| 24 c8 99 20 22 57 69 6d | 70 5f 53 6c 6f 74 53 69 |$.. "Wim|p_SlotSi|
|00001770| 7a 65 22 2c 73 6c 6f 74 | 5f 73 69 7a 65 25 2c 2d |ze",slot|_size%,-|
|00001780| 31 0d 08 66 10 e7 20 9f | 3d 26 43 44 30 30 32 20 |1..f.. .|=&CD002 |
|00001790| 8c 0d 08 70 3e 20 20 f2 | 64 69 73 70 6c 61 79 5f |...p>  .|display_|
|000017a0| 65 72 72 6f 72 28 31 2c | 22 43 61 6e 6e 6f 74 20 |error(1,|"Cannot |
|000017b0| 63 72 75 6e 63 68 20 66 | 69 6c 65 20 27 22 2b 66 |crunch f|ile '"+f|
|000017c0| 69 6c 65 6e 61 6d 65 24 | 2b 22 27 22 2c 30 29 0d |ilename$|+"'",0).|
|000017d0| 08 7a 05 cc 0d 08 84 1c | 20 20 f2 64 69 73 70 6c |.z......|  .displ|
|000017e0| 61 79 5f 65 72 72 6f 72 | 28 9f 2c f6 24 2c 9e 29 |ay_error|(.,.$,.)|
|000017f0| 0d 08 8e 05 cd 0d 08 98 | 05 e1 0d 08 a2 04 0d 08 |........|........|
|00001800| ac 15 dd f2 6d 75 6c 74 | 69 70 6c 65 28 70 61 74 |....mult|iple(pat|
|00001810| 68 24 29 0d 08 b6 23 ea | 20 72 65 61 64 25 2c 6f |h$)...#.| read%,o|
|00001820| 62 6a 65 63 74 25 2c 66 | 69 6c 65 74 79 70 65 25 |bject%,f|iletype%|
|00001830| 2c 6e 61 6d 65 24 0d 08 | c0 15 c8 99 20 22 48 6f |,name$..|.... "Ho|
|00001840| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 08 ca 12 f2 |urglass_|On".....|
|00001850| 73 65 61 72 63 68 28 70 | 61 74 68 24 29 0d 08 d4 |search(p|ath$)...|
|00001860| 16 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |... "Hou|rglass_O|
|00001870| 66 66 22 0d 08 de 05 e1 | 0d 08 e8 04 0d 08 f2 13 |ff".....|........|
|00001880| dd f2 73 65 61 72 63 68 | 28 70 61 74 68 24 29 0d |..search|(path$).|
|00001890| 08 fc 0d ea 20 6f 66 66 | 73 65 74 25 0d 09 06 0d |.... off|set%....|
|000018a0| 6f 66 66 73 65 74 25 3d | 30 0d 09 10 05 f5 0d 09 |offset%=|0.......|
|000018b0| 1a 3c c8 99 20 22 4f 53 | 5f 47 42 50 42 22 2c 39 |.<.. "OS|_GBPB",9|
|000018c0| 2c 70 61 74 68 24 2c 62 | 6c 6f 63 6b 25 2c 31 2c |,path$,b|lock%,1,|
|000018d0| 6f 66 66 73 65 74 25 2c | 31 32 2c 22 2a 22 20 b8 |offset%,|12,"*" .|
|000018e0| 20 2c 2c 2c 2c 72 65 61 | 64 25 0d 09 24 0e 6f 66 | ,,,,rea|d%..$.of|
|000018f0| 66 73 65 74 25 2b 3d 31 | 0d 09 2e 11 e7 20 72 65 |fset%+=1|..... re|
|00001900| 61 64 25 3c 3e 2d 31 20 | 8c 0d 09 38 1a 20 20 6e |ad%<>-1 |...8.  n|
|00001910| 61 6d 65 24 3d a4 72 65 | 61 64 7a 28 62 6c 6f 63 |ame$=.re|adz(bloc|
|00001920| 6b 25 29 0d 09 42 3a 20 | 20 c8 99 20 22 4f 53 5f |k%)..B: | .. "OS_|
|00001930| 46 69 6c 65 22 2c 31 37 | 2c 70 61 74 68 24 2b 22 |File",17|,path$+"|
|00001940| 2e 22 2b 6e 61 6d 65 24 | 20 b8 20 6f 62 6a 65 63 |."+name$| . objec|
|00001950| 74 25 2c 2c 66 69 6c 65 | 74 79 70 65 25 0d 09 4c |t%,,file|type%..L|
|00001960| 13 20 20 e7 20 6f 62 6a | 65 63 74 25 3d 32 20 8c |.  . obj|ect%=2 .|
|00001970| 0d 09 56 20 20 20 20 20 | f2 73 65 61 72 63 68 28 |..V     |.search(|
|00001980| 70 61 74 68 24 2b 22 2e | 22 2b 6e 61 6d 65 24 29 |path$+".|"+name$)|
|00001990| 0d 09 60 07 20 20 cc 0d | 09 6a 64 20 20 20 20 e7 |..`.  ..|.jd    .|
|000019a0| 20 28 66 69 6c 65 74 79 | 70 65 25 20 80 20 26 46 | (filety|pe% . &F|
|000019b0| 46 46 30 30 30 30 30 29 | 3d 26 46 46 46 30 30 30 |FF00000)|=&FFF000|
|000019c0| 30 30 20 8c 20 66 69 6c | 65 74 79 70 65 25 3d 28 |00 . fil|etype%=(|
|000019d0| 66 69 6c 65 74 79 70 65 | 25 20 80 20 26 30 30 30 |filetype|% . &000|
|000019e0| 46 46 46 30 30 29 3e 3e | 38 20 8b 20 66 69 6c 65 |FFF00)>>|8 . file|
|000019f0| 74 79 70 65 25 3d 26 32 | 30 30 30 0d 09 74 2b 20 |type%=&2|000..t+ |
|00001a00| 20 20 20 f2 64 6f 5f 66 | 69 6c 65 28 70 61 74 68 |   .do_f|ile(path|
|00001a10| 24 2b 22 2e 22 2b 6e 61 | 6d 65 24 2c 66 69 6c 65 |$+"."+na|me$,file|
|00001a20| 74 79 70 65 25 29 0d 09 | 7e 07 20 20 cd 0d 09 88 |type%)..|~.  ....|
|00001a30| 05 cd 0d 09 92 0e fd 20 | 72 65 61 64 25 3d 2d 31 |....... |read%=-1|
|00001a40| 0d 09 9c 0b 72 65 61 64 | 25 3d 30 0d 09 a6 05 e1 |....read|%=0.....|
|00001a50| 0d 09 b0 04 0d 09 ba 16 | dd a4 63 68 65 63 6b 28 |........|..check(|
|00001a60| 66 69 6c 65 6e 61 6d 65 | 24 29 0d 09 c4 11 ea 20 |filename|$)..... |
|00001a70| 70 61 74 68 24 2c 6e 61 | 6d 65 24 0d 09 ce 22 6e |path$,na|me$..."n|
|00001a80| 61 6d 65 24 3d a4 66 69 | 6c 65 5f 74 6f 5f 6c 65 |ame$=.fi|le_to_le|
|00001a90| 61 66 28 66 69 6c 65 6e | 61 6d 65 24 29 0d 09 d8 |af(filen|ame$)...|
|00001aa0| 3c 70 61 74 68 24 3d a4 | 66 69 6c 65 5f 74 6f 5f |<path$=.|file_to_|
|00001ab0| 6c 65 61 66 28 c0 66 69 | 6c 65 6e 61 6d 65 24 2c |leaf(.fi|lename$,|
|00001ac0| a9 28 66 69 6c 65 6e 61 | 6d 65 24 29 2d a9 28 6e |.(filena|me$)-.(n|
|00001ad0| 61 6d 65 24 29 2d 31 29 | 29 0d 09 e2 1f e7 20 c0 |ame$)-1)|)..... .|
|00001ae0| 70 61 74 68 24 2c 31 29 | 3c 3e 22 21 22 20 20 20 |path$,1)|<>"!"   |
|00001af0| 20 20 20 20 8c 20 3d a3 | 0d 09 ec 23 e7 20 a4 75 |    . =.|...#. .u|
|00001b00| 70 70 65 72 28 6e 61 6d | 65 24 29 3d 22 21 52 55 |pper(nam|e$)="!RU|
|00001b10| 4e 22 20 20 20 20 20 8c | 20 3d b9 0d 09 f6 23 e7 |N"     .| =....#.|
|00001b20| 20 a4 75 70 70 65 72 28 | 6e 61 6d 65 24 29 3d 22 | .upper(|name$)="|
|00001b30| 21 42 4f 4f 54 22 20 20 | 20 20 8c 20 3d b9 0d 0a |!BOOT"  |  . =...|
|00001b40| 00 23 e7 20 a4 75 70 70 | 65 72 28 6e 61 6d 65 24 |.#. .upp|er(name$|
|00001b50| 29 3d 22 21 53 50 52 49 | 54 45 53 22 20 8c 20 3d |)="!SPRI|TES" . =|
|00001b60| b9 0d 0a 0a 06 3d a3 0d | 0a 14 04 0d 0a 1e 12 dd |.....=..|........|
|00001b70| a4 75 70 70 65 72 28 6e | 61 6d 65 24 29 0d 0a 28 |.upper(n|ame$)..(|
|00001b80| 18 e3 20 6c 6f 6f 70 25 | 3d 31 20 b8 20 a9 28 6e |.. loop%|=1 . .(n|
|00001b90| 61 6d 65 24 29 0d 0a 32 | 5c e7 20 c1 6e 61 6d 65 |ame$)..2|\. .name|
|00001ba0| 24 2c 6c 6f 6f 70 25 2c | 31 29 3e 3d 22 61 22 20 |$,loop%,|1)>="a" |
|00001bb0| 80 20 c1 6e 61 6d 65 24 | 2c 6c 6f 6f 70 25 2c 31 |. .name$|,loop%,1|
|00001bc0| 29 3c 3d 22 7a 22 20 8c | 20 c1 6e 61 6d 65 24 2c |)<="z" .| .name$,|
|00001bd0| 6c 6f 6f 70 25 2c 31 29 | 3d bd 28 97 28 c1 6e 61 |loop%,1)|=.(.(.na|
|00001be0| 6d 65 24 2c 6c 6f 6f 70 | 25 2c 31 29 29 2d 33 32 |me$,loop|%,1))-32|
|00001bf0| 29 0d 0a 3c 05 ed 0d 0a | 46 0a 3d 6e 61 6d 65 24 |)..<....|F.=name$|
|00001c00| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+