home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-10-14 | 9.2 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 4b f4 20 3e 20 | 24 2e 21 48 44 42 61 63 |...K. > |$.!HDBac|
|00000010| 6b 75 70 2e 21 48 64 62 | 5f 76 32 30 30 20 20 20 |kup.!Hdb|_v200 |
|00000020| 4e 65 65 64 73 20 6d 61 | 63 68 69 6e 65 20 61 74 |Needs ma|chine at|
|00000030| 20 6c 65 61 73 74 20 31 | 4d 42 20 74 6f 20 72 75 | least 1|MB to ru|
|00000040| 6e 20 73 65 6e 73 69 62 | 6c 79 2e 0d 00 14 4a f4 |n sensib|ly....J.|
|00000050| 20 20 20 20 20 54 65 72 | 72 79 20 42 72 6f 6d 69 | Ter|ry Bromi|
|00000060| 6c 6f 77 2c 20 20 31 37 | 20 4d 61 79 20 31 39 38 |low, 17| May 198|
|00000070| 38 20 20 76 65 72 73 69 | 6f 6e 20 32 2e 30 30 20 |8 versi|on 2.00 |
|00000080| 28 52 49 53 43 5f 4f 53 | 29 20 32 38 20 41 70 72 |(RISC_OS|) 28 Apr|
|00000090| 20 31 39 38 39 0d 00 1e | 04 0d 00 28 33 6d 61 78 | 1989...|...(3max|
|000000a0| 64 65 70 74 68 3d 32 30 | 20 20 20 20 20 20 20 20 |depth=20| |
|000000b0| 20 20 3a 20 f4 20 6e 65 | 73 74 69 6e 67 20 6f 66 | : . ne|sting of|
|000000c0| 20 64 69 72 65 63 74 6f | 72 69 65 73 0d 00 32 42 | directo|ries..2B|
|000000d0| 66 6c 6f 70 70 79 73 69 | 7a 65 3d 37 35 30 2a 31 |floppysi|ze=750*1|
|000000e0| 30 32 34 20 20 3a 20 f4 | 20 38 30 30 4b 20 64 69 |024 : .| 800K di|
|000000f0| 73 63 73 2e 20 53 6f 6d | 65 20 72 6f 6f 6d 20 66 |scs. Som|e room f|
|00000100| 6f 72 20 64 69 72 65 63 | 74 6f 72 69 65 73 0d 00 |or direc|tories..|
|00000110| 3c 04 0d 00 46 47 de 20 | 66 64 61 74 61 20 33 32 |<...FG. |fdata 32|
|00000120| 2c 73 74 61 6d 70 20 33 | 30 2c 20 64 69 72 24 28 |,stamp 3|0, dir$(|
|00000130| 6d 61 78 64 65 70 74 68 | 29 2c 20 63 64 69 72 24 |maxdepth|), cdir$|
|00000140| 28 6d 61 78 64 65 70 74 | 68 29 2c 20 6f 66 73 28 |(maxdept|h), ofs(|
|00000150| 6d 61 78 64 65 70 74 68 | 29 0d 00 50 1b 6e 61 6d |maxdepth|)..P.nam|
|00000160| 65 3d 66 64 61 74 61 2b | 32 30 3a 64 66 3d 30 3a |e=fdata+|20:df=0:|
|00000170| 73 66 3d 30 0d 00 5a 33 | 62 66 72 73 69 7a 65 3d |sf=0..Z3|bfrsize=|
|00000180| 28 93 2d b8 50 2d 37 30 | 30 30 29 80 20 26 46 46 |(.-.P-70|00). &FF|
|00000190| 46 46 46 43 30 30 3a e7 | 20 62 66 72 73 69 7a 65 |FFFC00:.| bfrsize|
|000001a0| 3c 34 30 39 36 3a fa 0d | 00 64 11 de 20 62 66 72 |<4096:..|.d.. bfr|
|000001b0| 20 62 66 72 73 69 7a 65 | 0d 00 6e 0f 48 44 42 24 | bfrsize|..n.HDB$|
|000001c0| 3d a4 63 68 65 63 6b 0d | 00 78 0f ee 20 85 20 f2 |=.check.|.x.. . .|
|000001d0| 65 6e 64 28 32 29 0d 00 | 82 0b f2 70 61 72 61 6d |end(2)..|...param|
|000001e0| 73 0d 00 8c 17 64 69 72 | 24 28 31 29 3d 73 6f 75 |s....dir|$(1)=sou|
|000001f0| 72 63 65 73 70 65 63 24 | 0d 00 96 1b 64 64 24 3d |rcespec$|....dd$=|
|00000200| 22 3a 22 2b c3 64 65 73 | 74 64 72 69 76 65 2b 22 |":"+.des|tdrive+"|
|00000210| 2e 24 22 0d 00 a0 04 0d | 00 aa 13 f2 69 6e 69 74 |.$".....|....init|
|00000220| 3a 65 72 61 73 65 69 74 | 3d b9 0d 00 b4 13 eb 30 |:eraseit|=......0|
|00000230| 3a fb 30 2c 26 37 30 2c | 26 36 30 2c 30 0d 00 be |:.0,&70,|&60,0...|
|00000240| 24 6e 3d 31 38 2d 28 a9 | 73 6f 75 72 63 65 73 70 |$n=18-(.|sourcesp|
|00000250| 65 63 24 20 81 32 29 3a | e7 20 6e 3c 30 3a 6e 3d |ec$ .2):|. n<0:n=|
|00000260| 30 0d 00 c8 3e f1 8a 6e | 2c 31 29 22 54 68 69 73 |0...>..n|,1)"This|
|00000270| 20 70 72 6f 67 72 61 6d | 20 62 61 63 6b 73 20 75 | program| backs u|
|00000280| 70 20 61 6c 6c 20 66 69 | 6c 65 73 20 66 72 6f 6d |p all fi|les from|
|00000290| 20 22 3b 73 6f 75 72 63 | 65 73 70 65 63 24 3b 0d | ";sourc|espec$;.|
|000002a0| 00 d2 27 f1 8a 36 2c 33 | 29 22 77 69 74 68 20 61 |..'..6,3|)"with a|
|000002b0| 20 74 69 6d 65 73 74 61 | 6d 70 20 65 71 75 61 6c | timesta|mp equal|
|000002c0| 20 74 6f 20 22 3b 0d 00 | dc 3b f1 22 6f 72 20 6c | to ";..|.;."or l|
|000002d0| 61 74 65 72 20 74 68 61 | 6e 20 61 20 67 69 76 65 |ater tha|n a give|
|000002e0| 6e 20 64 61 74 65 2f 74 | 69 6d 65 20 74 6f 20 64 |n date/t|ime to d|
|000002f0| 72 69 76 65 20 22 3b 64 | 65 73 74 64 72 69 76 65 |rive ";d|estdrive|
|00000300| 3b 0d 00 e6 29 f1 8a 32 | 35 2c 36 29 22 43 75 72 |;...)..2|5,6)"Cur|
|00000310| 72 65 6e 74 20 64 61 74 | 65 20 20 20 22 3b c1 74 |rent dat|e ";.t|
|00000320| 69 6d 65 24 2c 35 2c 31 | 31 29 0d 00 f0 29 f1 8a |ime$,5,1|1)...)..|
|00000330| 32 35 2c 38 29 22 43 75 | 72 72 65 6e 74 20 74 69 |25,8)"Cu|rrent ti|
|00000340| 6d 65 20 20 20 22 3b c1 | 74 69 6d 65 24 2c 31 37 |me ";.|time$,17|
|00000350| 2c 35 29 0d 00 fa 39 f1 | 8a 31 38 2c 31 31 29 22 |,5)...9.|.18,11)"|
|00000360| 45 6e 74 65 72 20 64 61 | 74 65 20 61 6e 64 20 6f |Enter da|te and o|
|00000370| 70 74 69 6f 6e 61 6c 6c | 79 20 74 69 6d 65 2c 20 |ptionall|y time, |
|00000380| 66 6f 72 20 73 65 61 72 | 63 68 2e 22 0d 01 04 4e |for sear|ch."...N|
|00000390| f1 8a 37 2c 31 33 29 22 | 50 72 65 73 73 69 6e 67 |..7,13)"|Pressing|
|000003a0| 20 3c 52 45 54 4e 3e 20 | 61 6c 6f 6e 65 20 65 6e | <RETN> |alone en|
|000003b0| 74 65 72 73 20 63 75 72 | 72 65 6e 74 20 76 61 6c |ters cur|rent val|
|000003c0| 75 65 20 69 6e 20 64 61 | 74 65 2c 20 7a 65 72 6f |ue in da|te, zero|
|000003d0| 20 69 6e 20 74 69 6d 65 | 2e 22 0d 01 0e 3c f1 8a | in time|."...<..|
|000003e0| 31 37 2c 31 35 29 22 28 | 45 6e 74 65 72 69 6e 67 |17,15)"(|Entering|
|000003f0| 20 59 65 61 72 20 61 73 | 20 31 39 30 30 20 69 6e | Year as| 1900 in|
|00000400| 63 6c 75 64 65 73 20 75 | 6e 64 61 74 65 64 20 66 |cludes u|ndated f|
|00000410| 69 6c 65 73 29 22 0d 01 | 18 04 0d 01 22 1f f5 3a |iles)"..|...."..:|
|00000420| ef 32 38 2c 30 2c 33 31 | 2c 37 39 2c 31 38 3a db |.28,0,31|,79,18:.|
|00000430| 3a 64 6d 28 32 29 3d 32 | 39 0d 01 2c 33 64 61 79 |:dm(2)=2|9..,3day|
|00000440| 3d a4 69 6e 70 75 74 28 | 30 2c 22 44 61 79 20 6f |=.input(|0,"Day o|
|00000450| 66 20 6d 6f 6e 74 68 3a | 20 22 2c 31 2c 33 31 2c |f month:| ",1,31,|
|00000460| c1 74 69 6d 65 24 2c 35 | 2c 32 29 29 0d 01 36 30 |.time$,5|,2))..60|
|00000470| 6d 6f 6e 74 68 3d a4 69 | 6e 70 75 74 28 32 2c 22 |month=.i|nput(2,"|
|00000480| 4d 6f 6e 74 68 20 28 31 | 2d 31 32 29 3a 20 22 2c |Month (1|-12): ",|
|00000490| 31 2c 31 32 2c c3 6d 6f | 6e 74 68 29 0d 01 40 46 |1,12,.mo|nth)..@F|
|000004a0| e7 20 64 61 79 3e 64 6d | 28 6d 6f 6e 74 68 29 3a |. day>dm|(month):|
|000004b0| ef 37 3a 64 61 79 3d a4 | 69 6e 70 75 74 28 30 2c |.7:day=.|input(0,|
|000004c0| 22 44 61 79 20 6f 66 20 | 6d 6f 6e 74 68 3a 20 22 |"Day of |month: "|
|000004d0| 2c 31 2c 64 6d 28 6d 6f | 6e 74 68 29 2c c3 64 61 |,1,dm(mo|nth),.da|
|000004e0| 79 29 0d 01 4a 3a 79 65 | 61 72 3d a4 69 6e 70 75 |y)..J:ye|ar=.inpu|
|000004f0| 74 28 34 2c 22 20 20 20 | 20 20 20 20 20 59 65 61 |t(4," | Yea|
|00000500| 72 3a 20 22 2c 31 39 30 | 30 2c 32 30 37 30 2c c1 |r: ",190|0,2070,.|
|00000510| 74 69 6d 65 24 2c 31 32 | 2c 34 29 29 0d 01 54 57 |time$,12|,4))..TW|
|00000520| e7 20 79 65 61 72 20 83 | 34 3e 30 3a 64 6d 28 32 |. year .|4>0:dm(2|
|00000530| 29 3d 32 38 3a e7 20 6d | 6f 6e 74 68 3d 32 3a e7 |)=28:. m|onth=2:.|
|00000540| 20 64 61 79 3d 32 39 3a | ef 37 3a 64 61 79 3d a4 | day=29:|.7:day=.|
|00000550| 69 6e 70 75 74 28 30 2c | 22 44 61 79 20 6f 66 20 |input(0,|"Day of |
|00000560| 6d 6f 6e 74 68 3a 20 22 | 2c 31 2c 32 38 2c 22 32 |month: "|,1,28,"2|
|00000570| 39 22 29 0d 01 5e 2d 68 | 6f 75 72 3d a4 69 6e 70 |9")..^-h|our=.inp|
|00000580| 75 74 28 36 2c 22 20 20 | 20 20 20 20 20 20 48 6f |ut(6," | Ho|
|00000590| 75 72 3a 20 22 2c 30 2c | 32 33 2c 22 30 30 22 29 |ur: ",0,|23,"00")|
|000005a0| 0d 01 68 2c 6d 69 6e 3d | a4 69 6e 70 75 74 28 38 |..h,min=|.input(8|
|000005b0| 2c 22 20 20 20 20 20 4d | 69 6e 75 74 65 73 3a 20 |," M|inutes: |
|000005c0| 22 2c 30 2c 35 39 2c 22 | 30 30 22 29 0d 01 72 24 |",0,59,"|00")..r$|
|000005d0| 74 24 3d c3 68 6f 75 72 | 2b 22 3a 22 3a e7 20 68 |t$=.hour|+":":. h|
|000005e0| 6f 75 72 3c 31 30 3a 74 | 24 3d 22 30 22 2b 74 24 |our<10:t|$="0"+t$|
|000005f0| 0d 01 7c 24 e7 20 6d 69 | 6e 3c 31 30 3a 74 24 2b |..|$. mi|n<10:t$+|
|00000600| 3d 22 30 22 2b c3 6d 69 | 6e 3a 8b 20 74 24 2b 3d |="0"+.mi|n:. t$+=|
|00000610| c3 6d 69 6e 0d 01 86 32 | f1 8a 32 30 2c 31 32 29 |.min...2|..20,12)|
|00000620| 22 44 61 74 65 3a 20 22 | 3b 64 61 79 3b 22 20 22 |"Date: "|;day;" "|
|00000630| 3b 6d 74 68 24 28 6d 6f | 6e 74 68 29 3b 22 20 22 |;mth$(mo|nth);" "|
|00000640| 3b 79 65 61 72 3b 0d 01 | 90 22 e7 20 74 24 3c 3e |;year;..|.". t$<>|
|00000650| 22 30 30 3a 30 30 22 3a | f1 22 20 20 20 54 69 6d |"00:00":|." Tim|
|00000660| 65 3a 20 22 3b 74 24 3b | 0d 01 9a 1a f1 22 20 20 |e: ";t$;|....." |
|00000670| 43 6f 72 72 65 63 74 20 | 3f 20 28 59 2f 4e 29 20 |Correct |? (Y/N) |
|00000680| 22 3b 0d 01 a4 2b 76 3d | 30 3a f5 3a ef 76 3a 76 |";...+v=|0:.:.v:v|
|00000690| 3d 37 3a 6e 3d a5 20 80 | 26 44 46 3a fd 20 6e 3d |=7:n=. .|&DF:. n=|
|000006a0| 97 22 59 22 20 84 20 6e | 3d 97 22 4e 22 0d 01 ae |."Y" . n|=."N"...|
|000006b0| 0c fd 20 6e 3d 97 22 59 | 22 0d 01 b8 04 0d 01 c2 |.. n=."Y|".......|
|000006c0| 09 ef 32 36 3a db 0d 01 | cc 33 74 68 72 65 73 68 |..26:...|.3thresh|
|000006d0| 68 6f 6c 64 3d a4 63 6c | 6f 63 6b 28 79 65 61 72 |hold=.cl|ock(year|
|000006e0| 2d 31 39 30 30 2c 6d 6f | 6e 74 68 2c 64 61 79 2c |-1900,mo|nth,day,|
|000006f0| 68 6f 75 72 2c 6d 69 6e | 29 0d 01 d6 0c f2 6c 69 |hour,min|).....li|
|00000700| 73 74 28 31 29 0d 01 e0 | 38 e7 20 6c 66 69 6c 65 |st(1)...|8. lfile|
|00000710| 73 2b 64 69 73 63 73 3d | 30 3a f1 27 8a 33 32 29 |s+discs=|0:.'.32)|
|00000720| 22 4e 6f 74 68 69 6e 67 | 20 74 6f 20 62 61 63 6b |"Nothing| to back|
|00000730| 75 70 2e 22 27 3a f2 65 | 6e 64 28 30 29 0d 01 ea |up."':.e|nd(0)...|
|00000740| 43 e7 20 a4 79 6e 28 22 | 43 6f 70 79 20 74 68 65 |C. .yn("|Copy the|
|00000750| 20 61 62 6f 76 65 20 6c | 69 73 74 20 74 6f 20 74 | above l|ist to t|
|00000760| 68 65 20 70 72 69 6e 74 | 65 72 22 29 3d 97 22 59 |he print|er")=."Y|
|00000770| 22 3a f2 70 72 6f 6e 3a | f2 6c 69 73 74 28 30 29 |":.pron:|.list(0)|
|00000780| 0d 01 f4 27 e7 20 a4 79 | 6e 28 22 53 74 61 72 74 |...'. .y|n("Start|
|00000790| 20 62 61 63 6b 75 70 22 | 29 3c 3e 97 22 59 22 3a | backup"|)<>."Y":|
|000007a0| f2 65 6e 64 28 31 29 0d | 01 fe 3e e7 20 6c 66 69 |.end(1).|..>. lfi|
|000007b0| 6c 65 73 3d 30 3a f1 27 | 8a 32 33 29 22 4e 6f 20 |les=0:.'|.23)"No |
|000007c0| 6c 61 72 67 65 20 66 69 | 6c 65 73 20 6e 65 65 64 |large fi|les need|
|000007d0| 69 6e 67 20 6f 77 6e 20 | 64 69 73 63 73 2e 22 3a |ing own |discs.":|
|000007e0| 8b 20 f2 6c 66 0d 02 08 | 0d e7 20 64 69 73 63 73 |. .lf...|.. discs|
|000007f0| 20 8c 0d 02 12 3d 20 20 | f1 27 27 8a 32 30 29 22 | ....= |.''.20)"|
|00000800| 28 70 72 65 73 73 20 43 | 20 69 6e 73 74 65 61 64 |(press C| instead|
|00000810| 20 74 6f 20 63 6f 6e 66 | 69 72 6d 20 65 61 63 68 | to conf|irm each|
|00000820| 20 6f 6e 65 29 22 3b bd | 31 31 3b bd 31 31 3b 0d | one)";.|11;.11;.|
|00000830| 02 1c 2e 20 20 6e 3d a4 | 79 6e 28 22 43 6f 6e 74 |... n=.|yn("Cont|
|00000840| 69 6e 75 65 20 77 69 74 | 68 20 74 68 65 20 73 6d |inue wit|h the sm|
|00000850| 61 6c 6c 65 72 20 66 69 | 6c 65 73 22 29 0d 02 26 |aller fi|les")..&|
|00000860| 26 20 20 e7 20 6e 3c 3e | 97 22 4e 22 3a 63 6f 6e |& . n<>|."N":con|
|00000870| 66 69 72 6d 3d 28 6e 3d | 97 22 43 22 29 3a f1 3a |firm=(n=|."C"):.:|
|00000880| f2 73 66 0d 02 30 05 cd | 0d 02 3a 0b f2 65 6e 64 |.sf..0..|..:..end|
|00000890| 28 31 29 0d 02 44 04 0d | 02 4e 0d dd 20 a4 79 6e |(1)..D..|.N.. .yn|
|000008a0| 28 71 24 29 0d 02 58 25 | f1 27 8a 28 37 30 2d a9 |(q$)..X%|.'.(70-.|
|000008b0| 71 24 29 2f 32 29 71 24 | 3b 22 20 3f 20 28 59 2f |q$)/2)q$|;" ? (Y/|
|000008c0| 4e 29 20 22 3b 3a 76 3d | 30 0d 02 62 30 f5 3a ef |N) ";:v=|0..b0.:.|
|000008d0| 76 3a 76 3d 37 3a 6e 3d | a5 80 26 44 46 3a fd 20 |v:v=7:n=|..&DF:. |
|000008e0| 6e 3d 97 22 59 22 84 20 | 6e 3d 97 22 4e 22 84 6e |n=."Y". |n=."N".n|
|000008f0| 3d 97 22 43 22 3a f1 bd | 6e 0d 02 6c 06 3d 6e 0d |=."C":..|n..l.=n.|
|00000900| 02 76 04 0d 02 80 23 dd | 20 a4 69 6e 70 75 74 28 |.v....#.| .input(|
|00000910| 6c 69 6e 65 2c 71 24 2c | 6d 69 6e 2c 6d 61 78 2c |line,q$,|min,max,|
|00000920| 64 66 6c 74 24 29 0d 02 | 8a 18 ea 20 76 2c 71 3a |dflt$)..|... v,q:|
|00000930| 71 3d 32 30 2b a9 71 24 | 3a 2a 46 58 32 31 0d 02 |q=20+.q$|:*FX21..|
|00000940| 94 0d f5 3a ef 20 76 3a | 76 3d 37 0d 02 9e 25 20 |...:. v:|v=7...% |
|00000950| f1 8a 32 30 2c 6c 69 6e | 65 29 89 35 30 3b 8a 32 |..20,lin|e).50;.2|
|00000960| 30 2c 6c 69 6e 65 29 71 | 24 3b 64 66 6c 74 24 3b |0,line)q|$;dflt$;|
|00000970| 0d 02 a8 1f 20 c8 99 20 | 36 2c 31 33 38 2c 30 2c |.... .. |6,138,0,|
|00000980| a5 3a f1 8a 71 2c 6c 69 | 6e 65 29 89 31 30 3b 0d |.:..q,li|ne).10;.|
|00000990| 02 b2 14 20 e8 8a 71 2c | 6c 69 6e 65 29 3b 22 22 |... ..q,|line);""|
|000009a0| 20 61 24 0d 02 bc 21 20 | e7 20 61 24 3d 22 22 3a | a$...! |. a$="":|
|000009b0| 61 24 3d 64 66 6c 74 24 | 3a f1 8a 71 2c 6c 69 6e |a$=dflt$|:..q,lin|
|000009c0| 65 29 61 24 0d 02 c6 19 | fd 20 bb 61 24 3e 3d 6d |e)a$....|. .a$>=m|
|000009d0| 69 6e 20 80 20 bb 61 24 | 3c 3d 6d 61 78 0d 02 d0 |in . .a$|<=max...|
|000009e0| 09 3d a8 bb 61 24 0d 02 | da 04 0d 02 e4 19 dd 20 |.=..a$..|....... |
|000009f0| a4 63 6c 6f 63 6b 28 79 | 2c 6d 2c 64 2c 68 2c 6d |.clock(y|,m,d,h,m|
|00000a00| 69 6e 29 0d 02 ee 0a ea | 20 6e 2c 74 79 0d 02 f8 |in).....| n,ty...|
|00000a10| 1b e3 20 6e 3d 30 20 b8 | 20 6d 2d 31 3a 74 79 2b |.. n=0 .| m-1:ty+|
|00000a20| 3d 64 6d 28 6e 29 3a ed | 0d 03 02 3c 3d 28 28 28 |=dm(n):.|...<=(((|
|00000a30| 79 2a 33 36 35 2b 79 20 | 81 34 2b 28 64 6d 28 32 |y*365+y |.4+(dm(2|
|00000a40| 29 3d 32 39 29 2b 74 79 | 2b 64 2d 31 29 2a 32 34 |)=29)+ty|+d-1)*24|
|00000a50| 2b 68 29 2a 36 30 2b 6d | 69 6e 29 2f 32 35 36 2a |+h)*60+m|in)/256*|
|00000a60| 36 30 30 30 0d 03 0c 04 | 0d 03 16 0b dd 20 f2 69 |6000....|..... .i|
|00000a70| 6e 69 74 0d 03 20 15 de | 20 64 6d 28 31 32 29 2c |nit.. ..| dm(12),|
|00000a80| 6d 74 68 24 28 31 32 29 | 0d 03 2a 20 e3 20 78 3d |mth$(12)|..* . x=|
|00000a90| 31 20 b8 20 31 32 3a f3 | 20 6d 74 68 24 28 78 29 |1 . 12:.| mth$(x)|
|00000aa0| 2c 64 6d 28 78 29 3a ed | 0d 03 34 2f dc 20 4a 61 |,dm(x):.|..4/. Ja|
|00000ab0| 6e 2c 33 31 2c 46 65 62 | 2c 32 39 2c 4d 61 72 2c |n,31,Feb|,29,Mar,|
|00000ac0| 33 31 2c 41 70 72 2c 33 | 30 2c 4d 61 79 2c 33 31 |31,Apr,3|0,May,31|
|00000ad0| 2c 4a 75 6e 2c 33 30 0d | 03 3e 2f dc 20 4a 75 6c |,Jun,30.|.>/. Jul|
|00000ae0| 2c 33 31 2c 41 75 67 2c | 33 31 2c 53 65 70 2c 33 |,31,Aug,|31,Sep,3|
|00000af0| 30 2c 4f 63 74 2c 33 31 | 2c 4e 6f 76 2c 33 30 2c |0,Oct,31|,Nov,30,|
|00000b00| 44 65 63 2c 33 31 0d 03 | 48 16 74 69 6d 65 24 3d |Dec,31..|H.time$=|
|00000b10| c0 91 24 2c 32 31 29 3a | 78 3d 31 32 0d 03 52 30 |..$,21):|x=12..R0|
|00000b20| c8 95 20 c1 74 69 6d 65 | 24 2c 38 2c 33 29 3c 3e |.. .time|$,8,3)<>|
|00000b30| 6d 74 68 24 28 78 29 20 | 80 20 78 3e 30 3a 78 2d |mth$(x) |. x>0:x-|
|00000b40| 3d 31 3a ce 3a 6d 6f 6e | 74 68 3d 78 0d 03 5c 05 |=1:.:mon|th=x..\.|
|00000b50| e1 0d 03 66 04 0d 03 70 | 0f dd 20 f2 6c 69 73 74 |...f...p|.. .list|
|00000b60| 28 70 67 29 0d 03 7a 3f | 40 25 3d 26 39 30 34 3a |(pg)..z?|@%=&904:|
|00000b70| e7 20 70 67 3a f1 8a 33 | 33 2c 33 31 29 22 3c 20 |. pg:..3|3,31)"< |
|00000b80| 50 72 65 73 73 20 53 68 | 69 66 74 20 3e 22 3b 3a |Press Sh|ift >";:|
|00000b90| ef 32 38 2c 30 2c 32 39 | 2c 37 39 2c 30 2c 31 32 |.28,0,29|,79,0,12|
|00000ba0| 2c 31 34 0d 03 84 1f f1 | 27 22 42 61 63 6b 75 70 |,14.....|'"Backup|
|00000bb0| 20 6c 69 73 74 20 66 6f | 72 20 22 3b 74 69 6d 65 | list fo|r ";time|
|00000bc0| 24 27 0d 03 8e 2a 74 6f | 74 61 6c 3d 30 3a 64 69 |$'...*to|tal=0:di|
|00000bd0| 73 63 73 3d 30 3a 6c 66 | 69 6c 65 73 3d 30 3a 64 |scs=0:lf|iles=0:d|
|00000be0| 65 70 74 68 3d 31 3a 66 | 69 6e 3d a3 0d 03 98 05 |epth=1:f|in=.....|
|00000bf0| f5 0d 03 a2 16 20 20 e7 | 20 a4 6e 65 78 74 66 69 |..... .| .nextfi|
|00000c00| 6c 65 28 31 29 20 8c 0d | 03 ac 14 20 20 20 f2 70 |le(1) ..|... .p|
|00000c10| 72 69 6e 74 28 a4 74 65 | 73 74 29 0d 03 b6 28 20 |rint(.te|st)...( |
|00000c20| 20 20 e7 20 6c 65 6e 67 | 74 68 3a 74 6f 74 61 6c | . leng|th:total|
|00000c30| 2b 3d 28 6c 65 6e 67 74 | 68 20 84 20 26 33 46 46 |+=(lengt|h . &3FF|
|00000c40| 29 2b 31 0d 03 c0 3a 20 | 20 20 e7 20 74 6f 74 61 |)+1...: | . tota|
|00000c50| 6c 3e 66 6c 6f 70 70 79 | 73 69 7a 65 3a 64 69 73 |l>floppy|size:dis|
|00000c60| 63 73 2b 3d 31 3a 74 6f | 74 61 6c 3d 28 6c 65 6e |cs+=1:to|tal=(len|
|00000c70| 67 74 68 20 84 20 26 33 | 46 46 29 2b 31 0d 03 ca |gth . &3|FF)+1...|
|00000c80| 0e 20 20 20 cc 20 66 69 | 6e 3d b9 0d 03 d4 07 20 |. . fi|n=..... |
|00000c90| 20 cd 0d 03 de 1a fd 20 | 66 69 6e 3a 64 69 73 63 | ...... |fin:disc|
|00000ca0| 73 2d 3d 28 74 6f 74 61 | 6c 3e 30 29 0d 03 e8 3b |s-=(tota|l>0)...;|
|00000cb0| e7 20 64 69 73 63 73 3a | f1 27 8a 32 33 29 22 44 |. discs:|.'.23)"D|
|00000cc0| 69 73 63 73 20 6e 65 65 | 64 65 64 20 66 6f 72 20 |iscs nee|ded for |
|00000cd0| 73 6d 61 6c 6c 65 72 20 | 66 69 6c 65 73 3a 20 22 |smaller |files: "|
|00000ce0| 3b 64 69 73 63 73 3b 0d | 03 f2 30 e7 20 64 69 73 |;discs;.|..0. dis|
|00000cf0| 63 73 3a e7 20 65 72 61 | 73 65 5f 73 66 5f 64 69 |cs:. era|se_sf_di|
|00000d00| 73 63 73 3d a3 3a f1 22 | 20 28 69 66 20 62 6c 61 |scs=.:."| (if bla|
|00000d10| 6e 6b 29 22 20 8b f1 0d | 03 fc 2c 70 67 3d bc 3a |nk)" ...|..,pg=.:|
|00000d20| 40 25 3d 26 39 30 41 3a | ef 32 36 2c 31 35 2c 33 |@%=&90A:|.26,15,3|
|00000d30| 3a f1 8a 30 2c 33 31 29 | 89 37 39 3b 8a 30 2c 70 |:..0,31)|.79;.0,p|
|00000d40| 67 29 3b 0d 04 06 05 e1 | 0d 04 10 04 0d 04 1a 0b |g);.....|........|
|00000d50| dd 20 a4 74 65 73 74 0d | 04 24 15 6c 65 6e 67 74 |. .test.|.$.lengt|
|00000d60| 68 3d 30 3a 61 63 63 65 | 73 73 3d 30 0d 04 2e 16 |h=0:acce|ss=0....|
|00000d70| c8 94 20 66 64 61 74 61 | 21 30 2c 66 64 61 74 61 |.. fdata|!0,fdata|
|00000d80| 21 34 0d 04 38 41 e7 20 | 79 65 61 72 3e 31 39 30 |!4..8A. |year>190|
|00000d90| 30 3a e7 28 66 64 61 74 | 61 21 36 20 80 26 46 46 |0:.(fdat|a!6 .&FF|
|00000da0| 46 30 29 3c 3e 26 46 46 | 46 30 20 84 20 66 64 61 |F0)<>&FF|F0 . fda|
|00000db0| 74 61 21 31 3c 74 68 72 | 65 73 68 68 6f 6c 64 3a |ta!1<thr|eshhold:|
|00000dc0| 3d 2d 31 0d 04 42 1d 61 | 63 63 65 73 73 3d 28 28 |=-1..B.a|ccess=((|
|00000dd0| 66 64 61 74 61 3f 31 32 | 20 80 20 31 29 3d 31 29 |fdata?12| . 1)=1)|
|00000de0| 0d 04 4c 38 e7 28 66 64 | 61 74 61 21 36 20 80 26 |..L8.(fd|ata!6 .&|
|00000df0| 46 46 46 30 29 3d 26 46 | 46 46 30 3a 74 79 70 65 |FFF0)=&F|FF0:type|
|00000e00| 3d 28 66 64 61 74 61 21 | 35 29 80 26 46 46 46 3a |=(fdata!|5).&FFF:|
|00000e10| 8b 20 74 79 70 65 3d 30 | 0d 04 56 23 e7 20 66 64 |. type=0|..V#. fd|
|00000e20| 61 74 61 21 38 3e 6c 69 | 6d 73 69 7a 65 20 84 20 |ata!8>li|msize . |
|00000e30| 74 79 70 65 3d 26 32 38 | 38 20 8c 0d 04 60 2a 20 |type=&28|8 ...`* |
|00000e40| 20 6c 66 69 6c 65 73 2b | 3d 31 3a 6e 3d 28 66 64 | lfiles+|=1:n=(fd|
|00000e50| 61 74 61 21 38 29 81 20 | 66 6c 6f 70 70 79 73 69 |ata!8). |floppysi|
|00000e60| 7a 65 20 2b 31 0d 04 6a | 1a 20 20 cc 20 6c 65 6e |ze +1..j|. . len|
|00000e70| 67 74 68 3d 66 64 61 74 | 61 21 38 3a 6e 3d 30 0d |gth=fdat|a!8:n=0.|
|00000e80| 04 74 05 cd 0d 04 7e 06 | 3d 6e 0d 04 88 04 0d 04 |.t....~.|=n......|
|00000e90| 92 0f dd 20 f2 70 72 69 | 6e 74 28 6e 29 0d 04 9c |... .pri|nt(n)...|
|00000ea0| 0b e7 20 6e 3c 30 3a e1 | 0d 04 a6 3f c8 99 20 22 |.. n<0:.|...?.. "|
|00000eb0| 4f 53 5f 43 6f 6e 76 65 | 72 74 53 74 61 6e 64 61 |OS_Conve|rtStanda|
|00000ec0| 72 64 44 61 74 65 41 6e | 64 54 69 6d 65 22 2c 66 |rdDateAn|dTime",f|
|00000ed0| 64 61 74 61 2c 73 74 61 | 6d 70 2c 33 30 20 b8 2c |data,sta|mp,30 .,|
|00000ee0| 78 3a 3f 78 3d 31 33 0d | 04 b0 26 e7 20 74 79 70 |x:?x=13.|..&. typ|
|00000ef0| 65 3d 30 3a 24 73 74 61 | 6d 70 3d 22 20 20 20 20 |e=0:$sta|mp=" |
|00000f00| 55 20 20 20 6e 73 74 61 | 6d 70 65 64 22 0d 04 ba |U nsta|mped"...|
|00000f10| 37 f1 c6 8e 28 64 69 72 | 24 28 29 29 3b 22 2e 22 |7...(dir|$());"."|
|00000f20| 3b 24 6e 61 6d 65 3b 8a | 34 30 29 3b c0 24 73 74 |;$name;.|40);.$st|
|00000f30| 61 6d 70 2c 35 29 3b c1 | 24 73 74 61 6d 70 2c 39 |amp,5);.|$stamp,9|
|00000f40| 2c 38 29 3b 0d 04 c4 31 | f1 20 c1 24 73 74 61 6d |,8);...1|. .$stam|
|00000f50| 70 2c 31 39 2c 32 29 2c | 28 66 64 61 74 61 21 38 |p,19,2),|(fdata!8|
|00000f60| 2b 31 30 32 33 29 81 31 | 30 32 34 3b 22 4b 22 3b |+1023).1|024;"K";|
|00000f70| 8a 36 34 29 3b 0d 04 ce | 34 e7 20 6e 3d 31 3a f1 |.64);...|4. n=1:.|
|00000f80| 22 4f 77 6e 20 64 69 73 | 63 22 3b 3a 8b e7 20 6e |"Own dis|c";:.. n|
|00000f90| 3e 31 3a f1 22 4f 77 6e | 20 22 3b 6e 3b 22 2d 64 |>1:."Own| ";n;"-d|
|00000fa0| 69 73 63 20 73 65 74 22 | 3b 0d 04 d8 07 f1 3a e1 |isc set"|;.....:.|
|00000fb0| 0d 04 e2 04 0d 04 ec 12 | dd 20 a4 6e 65 78 74 66 |........|. .nextf|
|00000fc0| 69 6c 65 28 64 29 0d 04 | f6 05 f5 0d 05 00 11 20 |ile(d)..|....... |
|00000fd0| 20 e7 20 64 65 70 74 68 | 3e 64 20 8c 0d 05 0a 3e | . depth|>d ....>|
|00000fe0| 20 20 e7 20 a4 6e 65 78 | 74 66 69 6c 65 28 64 2b | . .nex|tfile(d+|
|00000ff0| 31 29 3a 3d b9 20 8b 20 | 64 69 72 24 28 64 2b 31 |1):=. . |dir$(d+1|
|00001000| 29 3d 22 22 3a 63 64 69 | 72 24 28 64 2b 31 29 3d |)="":cdi|r$(d+1)=|
|00001010| 22 22 3a 64 65 70 74 68 | 3d 64 0d 05 14 07 20 20 |"":depth|=d.... |
|00001020| cd 0d 05 1e 0b 63 68 65 | 63 6b 3d 30 0d 05 28 54 |.....che|ck=0..(T|
|00001030| e7 20 6f 66 73 28 64 29 | 3e 3d 30 3a c8 99 20 22 |. ofs(d)|>=0:.. "|
|00001040| 4f 53 5f 47 42 50 42 22 | 2c 31 30 2c c6 8e 28 64 |OS_GBPB"|,10,..(d|
|00001050| 69 72 24 28 29 29 2b bd | 30 2c 66 64 61 74 61 2c |ir$())+.|0,fdata,|
|00001060| 31 2c 6f 66 73 28 64 29 | 2c 33 32 2c 22 2a 22 20 |1,ofs(d)|,32,"*" |
|00001070| b8 2c 2c 2c 63 68 65 63 | 6b 2c 6f 66 73 28 64 29 |.,,,chec|k,ofs(d)|
|00001080| 0d 05 32 19 e7 20 63 68 | 65 63 6b 3d 30 3a 6f 66 |..2.. ch|eck=0:of|
|00001090| 73 28 64 29 3d 30 3a 3d | a3 0d 05 3c 20 6e 3d 6e |s(d)=0:=|...< n=n|
|000010a0| 61 6d 65 2d 31 3a f5 3a | 6e 2b 3d 31 3a fd 20 3f |ame-1:.:|n+=1:. ?|
|000010b0| 6e 3d 30 3a 3f 6e 3d 31 | 33 0d 05 46 11 c8 8e 20 |n=0:?n=1|3..F... |
|000010c0| 66 64 61 74 61 3f 31 36 | 20 ca 0d 05 50 0c 20 20 |fdata?16| ...P. |
|000010d0| c9 20 31 3a 3d b9 0d 05 | 5a 27 20 20 c9 20 32 3a |. 1:=...|Z' . 2:|
|000010e0| 64 65 70 74 68 3d 64 2b | 31 3a 64 69 72 24 28 64 |depth=d+|1:dir$(d|
|000010f0| 2b 31 29 3d 22 2e 22 2b | 24 6e 61 6d 65 0d 05 64 |+1)="."+|$name..d|
|00001100| 09 20 20 7f 20 fa 0d 05 | 6e 05 cb 0d 05 78 07 fd |. . ...|n....x..|
|00001110| 20 a3 0d 05 82 04 0d 05 | 8c 09 dd 20 f2 6c 66 0d | .......|... .lf.|
|00001120| 05 96 14 64 65 70 74 68 | 3d 31 3a 2a 46 58 32 32 |...depth|=1:*FX22|
|00001130| 39 20 31 0d 05 a0 3b f1 | 27 22 42 61 63 6b 69 6e |9 1...;.|'"Backin|
|00001140| 67 20 75 70 20 66 72 6f | 6d 20 22 3b 73 6f 75 72 |g up fro|m ";sour|
|00001150| 63 65 73 70 65 63 24 3b | 22 20 74 6f 20 64 72 69 |cespec$;|" to dri|
|00001160| 76 65 20 22 3b 64 65 73 | 74 64 72 69 76 65 0d 05 |ve ";des|tdrive..|
|00001170| aa 13 c8 95 20 a4 6e 65 | 78 74 66 69 6c 65 28 31 |.... .ne|xtfile(1|
|00001180| 29 0d 05 b4 1d 20 64 3d | a4 74 65 73 74 3a 72 24 |).... d=|.test:r$|
|00001190| 3d 22 42 61 63 6b 69 6e | 67 20 75 70 20 22 0d 05 |="Backin|g up "..|
|000011a0| be 08 20 ea 20 85 0d 05 | c8 32 20 ee 20 85 20 ea |.. . ...|.2 . . .|
|000011b0| 3a f2 63 6c 6f 73 65 3a | f1 27 f6 24 3a 72 24 3d |:.close:|.'.$:r$=|
|000011c0| 22 52 65 73 74 61 72 74 | 69 6e 67 20 22 3a e7 20 |"Restart|ing ":. |
|000011d0| 9f 3d 31 37 3a 64 3d 30 | 0d 05 d2 0d 20 2a 46 58 |.=17:d=0|.... *FX|
|000011e0| 32 32 39 20 31 0d 05 dc | 0c 20 e7 20 64 3e 30 20 |229 1...|. . d>0 |
|000011f0| 8c 0d 05 e6 2c 20 20 f1 | 27 72 24 3b c6 8e 28 64 |...., .|'r$;..(d|
|00001200| 69 72 24 28 29 29 3b 22 | 2e 22 3b 24 6e 61 6d 65 |ir$());"|.";$name|
|00001210| 3b 22 20 28 74 6f 20 6f | 77 6e 20 22 3b 0d 05 f0 |;" (to o|wn ";...|
|00001220| 28 20 20 e7 20 64 3e 31 | 3a f1 3b 64 3b 22 2d 64 |( . d>1|:.;d;"-d|
|00001230| 69 73 63 20 73 65 74 29 | 22 20 8b 20 f1 20 22 64 |isc set)|" . . "d|
|00001240| 69 73 63 29 22 0d 05 fa | 10 20 20 e7 20 61 63 63 |isc)"...|. . acc|
|00001250| 65 73 73 20 8c 0d 06 04 | 42 20 20 20 20 61 63 63 |ess ....|B acc|
|00001260| 65 73 73 3d 30 3a 73 66 | 3d 8e 28 c6 8e 28 64 69 |ess=0:sf|=.(..(di|
|00001270| 72 24 28 29 29 2b 22 2e | 22 2b 24 6e 61 6d 65 29 |r$())+".|"+$name)|
|00001280| 3a e7 20 73 66 3a 6c 65 | 6e 3d a2 23 73 66 3a 61 |:. sf:le|n=.#sf:a|
|00001290| 63 63 65 73 73 3d 31 0d | 06 0e 2e 20 20 20 20 e7 |ccess=1.|... .|
|000012a0| 20 73 66 3d 30 3a 64 3d | 30 3a 85 20 30 2c 22 43 | sf=0:d=|0:. 0,"C|
|000012b0| 61 6e 6e 6f 74 20 6f 70 | 65 6e 20 74 68 69 73 20 |annot op|en this |
|000012c0| 66 69 6c 65 22 0d 06 18 | 48 20 20 20 20 f1 27 22 |file"...|H .'"|
|000012d0| 49 6e 73 65 72 74 20 61 | 20 64 69 73 63 20 61 6e |Insert a| disc an|
|000012e0| 64 20 70 72 65 73 73 20 | 61 20 6b 65 79 2e 20 20 |d press |a key. |
|000012f0| 3c 45 53 43 41 50 45 3e | 20 74 6f 20 73 6b 69 70 |<ESCAPE>| to skip|
|00001300| 20 74 68 69 73 20 66 69 | 6c 65 20 22 3b 0d 06 22 | this fi|le ";.."|
|00001310| 23 20 20 20 20 ff 22 46 | 58 32 32 39 22 3a 70 3d |# ."F|X229":p=|
|00001320| a5 3a f1 3a 70 61 72 74 | 3d 30 3a 73 61 79 3d a3 |.:.:part|=0:say=.|
|00001330| 0d 06 2c 09 20 20 20 20 | f5 0d 06 36 2b 20 20 20 |..,. |...6+ |
|00001340| 20 20 20 70 61 72 74 2b | 3d 31 3a f2 65 72 61 73 | part+|=1:.eras|
|00001350| 65 28 c2 22 30 30 30 30 | 30 22 2b c3 a2 23 73 66 |e(."0000|0"+..#sf|
|00001360| 2c 38 29 29 0d 06 40 26 | 20 20 20 20 20 20 64 24 |,8))..@&| d$|
|00001370| 3d 64 64 24 3a 64 73 69 | 7a 65 3d 28 64 73 69 7a |=dd$:dsi|ze=(dsiz|
|00001380| 65 2d 31 36 30 29 2a 32 | 35 36 0d 06 4a 2d 20 20 |e-160)*2|56..J- |
|00001390| 20 20 20 20 e7 20 64 73 | 69 7a 65 3e 66 6c 6f 70 | . ds|ize>flop|
|000013a0| 70 79 73 69 7a 65 3a 64 | 73 69 7a 65 3d 66 6c 6f |pysize:d|size=flo|
|000013b0| 70 70 79 73 69 7a 65 0d | 06 54 1b 20 20 20 20 20 |ppysize.|.T. |
|000013c0| 20 e7 20 6c 65 6e 3e 64 | 73 69 7a 65 3a 73 61 79 | . len>d|size:say|
|000013d0| 3d b9 0d 06 5e 29 20 20 | 20 20 20 20 70 3d 31 3a |=...^) | p=1:|
|000013e0| c8 95 20 64 65 70 74 68 | 3e 70 3a 70 2b 3d 31 3a |.. depth|>p:p+=1:|
|000013f0| 64 24 2b 3d 64 69 72 24 | 28 70 29 0d 06 68 4a 20 |d$+=dir$|(p)..hJ |
|00001400| 20 20 20 20 20 20 20 20 | 20 e7 20 63 64 69 72 24 | | . cdir$|
|00001410| 28 70 29 3c 3e 64 69 72 | 24 28 70 29 3a 63 64 69 |(p)<>dir|$(p):cdi|
|00001420| 72 24 28 70 29 3d 64 69 | 72 24 28 70 29 3a c8 99 |r$(p)=di|r$(p):..|
|00001430| 20 22 4f 53 5f 46 69 6c | 65 22 2c 38 2c 64 24 2c | "OS_Fil|e",8,d$,|
|00001440| 30 2c 30 2c 30 0d 06 72 | 0f 20 20 20 20 20 20 20 |0,0,0..r|. |
|00001450| 20 20 20 ce 0d 06 7c 40 | 20 20 20 20 20 20 64 66 | ...|@| df|
|00001460| 3d ae 28 64 24 2b 22 2e | 22 2b 24 6e 61 6d 65 29 |=.(d$+".|"+$name)|
|00001470| 3a e7 20 64 66 3d 30 3a | 85 20 30 2c 22 43 61 6e |:. df=0:|. 0,"Can|
|00001480| 6e 6f 74 20 6f 70 65 6e | 20 64 65 73 74 2e 20 66 |not open| dest. f|
|00001490| 69 6c 65 22 0d 06 86 3e | 20 20 20 20 20 20 e7 20 |ile"...>| . |
|000014a0| 6c 65 6e 3e 64 73 69 7a | 65 3a 62 79 74 65 73 3d |len>dsiz|e:bytes=|
|000014b0| 64 73 69 7a 65 3a 6c 65 | 6e 2d 3d 62 79 74 65 73 |dsize:le|n-=bytes|
|000014c0| 3a 8b 20 62 79 74 65 73 | 3d 6c 65 6e 3a 6c 65 6e |:. bytes|=len:len|
|000014d0| 3d 30 0d 06 90 32 20 20 | 20 20 20 20 e7 20 73 61 |=0...2 | . sa|
|000014e0| 79 3a f1 22 50 61 72 74 | 20 22 3b bd 28 70 61 72 |y:."Part| ";.(par|
|000014f0| 74 2b 36 34 29 2c 62 79 | 74 65 73 3b 22 20 62 79 |t+64),by|tes;" by|
|00001500| 74 65 73 22 0d 06 9a 0b | 20 20 20 20 20 20 f5 0d |tes"....| ..|
|00001510| 06 a4 40 20 20 20 20 20 | 20 20 20 e7 20 62 79 74 |..@ | . byt|
|00001520| 65 73 3e 62 66 72 73 69 | 7a 65 3a 62 3d 62 66 72 |es>bfrsi|ze:b=bfr|
|00001530| 73 69 7a 65 3a 62 79 74 | 65 73 2d 3d 62 3a 8b 20 |size:byt|es-=b:. |
|00001540| 62 3d 62 79 74 65 73 3a | 62 79 74 65 73 3d 30 0d |b=bytes:|bytes=0.|
|00001550| 06 ae 3e 20 20 20 20 20 | 20 20 20 c8 99 20 22 4f |..> | .. "O|
|00001560| 53 5f 47 42 50 42 22 2c | 34 2c 73 66 2c 62 66 72 |S_GBPB",|4,sf,bfr|
|00001570| 2c 62 20 b8 2c 2c 2c 78 | 3a e7 20 78 3a 85 20 30 |,b .,,,x|:. x:. 0|
|00001580| 2c 22 52 65 61 64 20 65 | 72 72 6f 72 22 0d 06 b8 |,"Read e|rror"...|
|00001590| 23 20 20 20 20 20 20 20 | 20 c8 99 20 22 4f 53 5f |# | .. "OS_|
|000015a0| 47 42 50 42 22 2c 32 2c | 64 66 2c 62 66 72 2c 62 |GBPB",2,|df,bfr,b|
|000015b0| 0d 06 c2 14 20 20 20 20 | 20 20 fd 20 62 79 74 65 |.... | . byte|
|000015c0| 73 3c 3d 30 0d 06 cc 13 | 20 20 20 20 20 20 d9 23 |s<=0....| .#|
|000015d0| 64 66 3a 64 66 3d 30 0d | 06 d6 40 20 20 20 20 20 |df:df=0.|..@ |
|000015e0| 20 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 2c | .. "OS_|File",1,|
|000015f0| 64 24 2b 22 2e 22 2b 24 | 6e 61 6d 65 2c 66 64 61 |d$+"."+$|name,fda|
|00001600| 74 61 21 34 2c 66 64 61 | 74 61 21 30 2c 30 2c 66 |ta!4,fda|ta!0,0,f|
|00001610| 64 61 74 61 21 31 32 0d | 06 e0 23 20 20 20 20 20 |data!12.|..# |
|00001620| 20 ff 28 22 44 49 53 4d | 4f 55 4e 54 20 22 2b c3 | .("DISM|OUNT "+.|
|00001630| 64 65 73 74 64 72 69 76 | 65 29 0d 06 ea 3d 20 20 |destdriv|e)...= |
|00001640| 20 20 20 20 e7 20 6c 65 | 6e 3e 30 3a f1 27 22 49 | . le|n>0:.'"I|
|00001650| 6e 73 65 72 74 20 6e 65 | 78 74 20 64 69 73 63 20 |nsert ne|xt disc |
|00001660| 61 6e 64 20 70 72 65 73 | 73 20 61 20 6b 65 79 22 |and pres|s a key"|
|00001670| 3b 3a 70 3d a5 3a f1 0d | 06 f4 10 20 20 20 20 fd |;:p=.:..|... .|
|00001680| 20 6c 65 6e 3c 3d 30 0d | 06 fe 13 20 20 20 20 f1 | len<=0.|... .|
|00001690| 22 43 6f 6d 70 6c 65 74 | 65 22 0d 07 08 1a 20 20 |"Complet|e".... |
|000016a0| 20 20 d9 23 73 66 3a 73 | 66 3d 30 3a 2a 46 58 32 | .#sf:s|f=0:*FX2|
|000016b0| 32 39 20 31 0d 07 12 28 | 20 20 cc 20 f1 27 22 43 |29 1...(| . .'"C|
|000016c0| 61 6e 6e 6f 74 20 63 6f | 70 79 2e 20 4e 6f 20 72 |annot co|py. No r|
|000016d0| 65 61 64 20 61 63 63 65 | 73 73 2e 22 0d 07 1c 07 |ead acce|ss."....|
|000016e0| 20 20 cd 0d 07 26 06 20 | cd 0d 07 30 07 f7 20 85 | ...&. |...0.. .|
|000016f0| 0d 07 3a 05 ce 0d 07 44 | 2f f1 27 8a 32 35 29 22 |..:....D|/.'.25)"|
|00001700| 4e 6f 20 6d 6f 72 65 20 | 6f 66 20 74 68 65 20 6c |No more |of the l|
|00001710| 61 72 67 65 72 20 66 69 | 6c 65 73 2e 22 3a 2a 46 |arger fi|les.":*F|
|00001720| 58 32 32 39 0d 07 4e 05 | e1 0d 07 58 04 0d 07 62 |X229..N.|...X...b|
|00001730| 10 dd 20 f2 65 72 61 73 | 65 28 71 24 29 0d 07 6c |.. .eras|e(q$)..l|
|00001740| 41 f4 20 20 20 45 72 61 | 73 69 6e 67 20 38 30 30 |A. Era|sing 800|
|00001750| 20 22 45 22 20 66 6f 72 | 6d 61 74 20 64 69 73 63 | "E" for|mat disc|
|00001760| 73 20 63 6f 6e 76 65 72 | 74 73 20 74 68 65 6d 20 |s conver|ts them |
|00001770| 74 6f 20 22 44 22 20 66 | 6f 72 6d 61 74 2e 0d 07 |to "D" f|ormat...|
|00001780| 76 05 f5 0d 07 80 1d ff | 28 22 44 49 53 4d 4f 55 |v.......|("DISMOU|
|00001790| 4e 54 20 22 2b c3 64 65 | 73 74 64 72 69 76 65 29 |NT "+.de|stdrive)|
|000017a0| 0d 07 8a 39 c8 99 20 22 | 58 41 44 46 53 5f 44 69 |...9.. "|XADFS_Di|
|000017b0| 73 63 4f 70 22 2c 30 2c | 31 2c 64 65 73 74 64 72 |scOp",0,|1,destdr|
|000017c0| 69 76 65 3c 3c 32 39 2c | 62 66 72 2c 33 30 37 32 |ive<<29,|bfr,3072|
|000017d0| 20 b8 3b 78 3a 6f 6b 3d | a3 0d 07 94 11 e7 20 28 | .;x:ok=|...... (|
|000017e0| 78 20 80 20 31 29 3d 30 | 20 8c 0d 07 9e 3a 20 20 |x . 1)=0| ....: |
|000017f0| 64 73 69 7a 65 3d 62 66 | 72 21 26 46 43 20 80 20 |dsize=bf|r!&FC . |
|00001800| 26 46 46 46 46 46 46 3a | 6f 6b 3d 28 64 73 69 7a |&FFFFFF:|ok=(dsiz|
|00001810| 65 3d 26 43 38 30 20 84 | 20 64 73 69 7a 65 3d 26 |e=&C80 .| dsize=&|
|00001820| 41 30 30 29 0d 07 a8 41 | 20 20 e7 28 62 66 72 21 |A00)...A| .(bfr!|
|00001830| 26 31 35 20 80 26 46 46 | 46 46 29 3d 26 43 38 30 |&15 .&FF|FF)=&C80|
|00001840| 3a e7 20 62 66 72 21 26 | 38 30 31 3d 26 36 42 36 |:. bfr!&|801=&6B6|
|00001850| 33 36 39 34 45 3a 64 73 | 69 7a 65 3d 26 43 38 30 |3694E:ds|ize=&C80|
|00001860| 3a 6f 6b 3d b9 0d 07 b2 | 07 20 20 cd 0d 07 bc 3b |:ok=....|. ....;|
|00001870| e7 20 ac 20 6f 6b 3a f1 | 27 22 42 61 64 20 64 69 |. . ok:.|'"Bad di|
|00001880| 73 63 20 73 69 7a 65 2e | 20 52 65 70 6c 61 63 65 |sc size.| Replace|
|00001890| 20 61 6e 64 20 70 72 65 | 73 73 20 61 20 6b 65 79 | and pre|ss a key|
|000018a0| 22 3b 3a e7 a5 3a f1 0d | 07 c6 08 fd 20 6f 6b 0d |";:..:..|.... ok.|
|000018b0| 07 d0 20 e3 20 78 3d 62 | 66 72 20 b8 20 62 66 72 |.. . x=b|fr . bfr|
|000018c0| 2b 33 30 36 38 20 88 34 | 3a 21 78 3d 30 3a ed 0d |+3068 .4|:!x=0:..|
|000018d0| 07 da 44 62 66 72 3f 30 | 3d 26 43 3a 62 66 72 3f |..Dbfr?0|=&C:bfr?|
|000018e0| 26 46 37 3d 26 34 32 3a | 62 66 72 21 26 46 38 3d |&F7=&42:|bfr!&F8=|
|000018f0| 26 32 30 35 46 35 35 34 | 33 3a 62 66 72 21 26 46 |&205F554|3:bfr!&F|
|00001900| 43 3d 26 46 32 30 30 30 | 30 30 30 20 84 20 64 73 |C=&F2000|000 . ds|
|00001910| 69 7a 65 0d 07 e4 43 62 | 66 72 21 26 31 30 30 3d |ize...Cb|fr!&100=|
|00001920| 26 43 37 34 3a 62 66 72 | 21 26 31 46 36 3d 26 32 |&C74:bfr|!&1F6=&2|
|00001930| 30 35 30 34 42 34 31 3a | 62 66 72 3f 26 31 46 41 |0504B41:|bfr?&1FA|
|00001940| 3d 26 32 30 3a 62 66 72 | 21 26 31 46 42 3d b3 28 |=&20:bfr|!&1FB=.(|
|00001950| 26 46 46 46 46 29 0d 07 | ee 32 e7 20 64 73 69 7a |&FFFF)..|.2. dsiz|
|00001960| 65 3d 26 41 30 30 3a 62 | 66 72 3f 30 3d 37 3a 62 |e=&A00:b|fr?0=7:b|
|00001970| 66 72 3f 26 46 46 3d 26 | 36 42 3a 62 66 72 21 26 |fr?&FF=&|6B:bfr!&|
|00001980| 31 30 30 3d 26 39 46 39 | 0d 07 f8 1b e7 20 70 61 |100=&9F9|..... pa|
|00001990| 72 74 3a 62 66 72 3f 26 | 31 46 39 3d 36 34 2b 70 |rt:bfr?&|1F9=64+p|
|000019a0| 61 72 74 0d 08 02 14 62 | 66 72 3f 26 31 46 45 3d |art....b|fr?&1FE=|
|000019b0| 33 3a 70 3d 26 46 46 0d | 08 0c 52 e3 20 78 3d 62 |3:p=&FF.|..R. x=b|
|000019c0| 66 72 2b 26 31 46 45 20 | b8 20 62 66 72 2b 26 31 |fr+&1FE |. bfr+&1|
|000019d0| 30 31 20 88 2d 31 3a 70 | 2b 3d 3f 78 3a 70 2d 3d |01 .-1:p|+=?x:p-=|
|000019e0| 28 70 3e 32 35 35 29 3a | 70 3d 70 20 80 32 35 35 |(p>255):|p=p .255|
|000019f0| 3a ed 3a 70 2b 3d 62 66 | 72 3f 26 31 30 30 3a 62 |:.:p+=bf|r?&100:b|
|00001a00| 66 72 3f 26 31 46 46 3d | 70 0d 08 16 12 e7 20 64 |fr?&1FF=|p..... d|
|00001a10| 73 69 7a 65 3d 26 43 38 | 30 20 8c 0d 08 20 2b 20 |size=&C8|0 ... + |
|00001a20| 20 62 66 72 21 26 34 30 | 31 3d 26 36 46 36 37 37 | bfr!&40|1=&6F677|
|00001a30| 35 34 38 3a 62 66 72 21 | 26 42 44 41 3d 26 32 34 |548:bfr!|&BDA=&24|
|00001a40| 30 30 30 30 30 34 0d 08 | 2a 39 20 20 62 66 72 3f |000004..|*9 bfr?|
|00001a50| 26 42 46 30 3d 26 32 34 | 3a 62 66 72 3f 26 42 46 |&BF0=&24|:bfr?&BF|
|00001a60| 42 3d 26 34 38 3a 62 66 | 72 21 26 42 46 43 3d 26 |B=&48:bf|r!&BFC=&|
|00001a70| 32 43 36 46 36 37 37 35 | 3a 6b 3d 33 30 37 32 0d |2C6F6775|:k=3072.|
|00001a80| 08 34 07 20 20 cc 0d 08 | 3e 38 20 20 62 66 72 21 |.4. ...|>8 bfr!|
|00001a90| 26 32 30 31 3d 26 36 46 | 36 37 37 35 34 38 3a 62 |&201=&6F|677548:b|
|00001aa0| 66 72 21 26 36 44 36 3d | 26 32 34 30 30 30 30 30 |fr!&6D6=|&2400000|
|00001ab0| 32 3a 62 66 72 3f 26 36 | 43 43 3d 26 32 34 0d 08 |2:bfr?&6|CC=&24..|
|00001ac0| 48 2d 20 20 62 66 72 21 | 26 36 46 42 3d 26 34 38 |H- bfr!|&6FB=&48|
|00001ad0| 3a 62 66 72 21 26 36 46 | 43 3d 26 45 46 36 46 36 |:bfr!&6F|C=&EF6F6|
|00001ae0| 37 37 35 3a 6b 3d 37 2a | 32 35 36 0d 08 52 07 20 |775:k=7*|256..R. |
|00001af0| 20 cd 0d 08 5c 5c e7 20 | 65 72 61 73 65 69 74 3a | ...\\. |eraseit:|
|00001b00| c8 99 20 22 41 44 46 53 | 5f 44 69 73 63 4f 70 22 |.. "ADFS|_DiscOp"|
|00001b10| 2c 30 2c 32 2c 64 65 73 | 74 64 72 69 76 65 3c 3c |,0,2,des|tdrive<<|
|00001b20| 32 39 2c 62 66 72 2c 6b | 3a 8b 20 ff 28 22 4e 41 |29,bfr,k|:. .("NA|
|00001b30| 4d 45 44 49 53 43 20 22 | 2b c3 64 65 73 74 64 72 |MEDISC "|+.destdr|
|00001b40| 69 76 65 2b 22 20 42 41 | 43 4b 55 50 22 29 0d 08 |ive+" BA|CKUP")..|
|00001b50| 5d 0d 2a 44 49 53 4d 4f | 55 4e 54 0d 08 66 1a ff |].*DISMO|UNT..f..|
|00001b60| 28 22 4d 4f 55 4e 54 20 | 22 2b c3 64 65 73 74 64 |("MOUNT |"+.destd|
|00001b70| 72 69 76 65 29 0d 08 70 | 1d ff 28 22 54 49 54 4c |rive)..p|..("TITL|
|00001b80| 45 20 46 69 6c 65 6c 65 | 6e 67 74 68 5f 22 2b 71 |E Filele|ngth_"+q|
|00001b90| 24 29 0d 08 7a 1d ff 28 | 22 44 49 53 4d 4f 55 4e |$)..z..(|"DISMOUN|
|00001ba0| 54 20 22 2b c3 64 65 73 | 74 64 72 69 76 65 29 0d |T "+.des|tdrive).|
|00001bb0| 08 84 0e 63 64 69 72 24 | 28 29 3d 22 22 0d 08 8e |...cdir$|()=""...|
|00001bc0| 05 e1 0d 08 98 04 0d 08 | a2 09 dd 20 f2 73 66 0d |........|... .sf.|
|00001bd0| 08 ac 46 e7 20 6c 66 69 | 6c 65 73 3d 30 3a f1 27 |..F. lfi|les=0:.'|
|00001be0| 22 42 61 63 6b 69 6e 67 | 20 75 70 20 66 72 6f 6d |"Backing| up from|
|00001bf0| 20 22 3b 73 6f 75 72 63 | 65 73 70 65 63 24 3b 22 | ";sourc|espec$;"|
|00001c00| 20 74 6f 20 64 72 69 76 | 65 20 22 3b 64 65 73 74 | to driv|e ";dest|
|00001c10| 64 72 69 76 65 0d 08 b6 | 07 ea 20 85 0d 08 c0 65 |drive...|.. ....e|
|00001c20| ee 20 85 20 ea 3a f2 63 | 6c 6f 73 65 3a e7 20 9f |. . .:.c|lose:. .|
|00001c30| 3c 3e 31 37 3a f1 f6 24 | 27 27 22 52 65 73 74 61 |<>17:..$|''"Resta|
|00001c40| 72 74 69 6e 67 20 74 68 | 69 73 20 67 72 6f 75 70 |rting th|is group|
|00001c50| 20 77 69 74 68 20 63 6f | 6e 66 69 72 6d 61 74 69 | with co|nfirmati|
|00001c60| 6f 6e 22 3a 63 6f 6e 66 | 69 72 6d 3d b9 3a 8b 20 |on":conf|irm=.:. |
|00001c70| f7 20 85 3a 85 20 31 37 | 2c 22 45 73 63 61 70 65 |. .:. 17|,"Escape|
|00001c80| 22 0d 08 ca 42 f1 27 8a | 31 35 29 22 49 6e 73 65 |"...B.'.|15)"Inse|
|00001c90| 72 74 20 61 20 64 69 73 | 63 20 66 6f 72 20 73 6d |rt a dis|c for sm|
|00001ca0| 61 6c 6c 65 72 20 66 69 | 6c 65 73 20 61 6e 64 20 |aller fi|les and |
|00001cb0| 70 72 65 73 73 20 61 20 | 6b 65 79 20 22 3b 3a e7 |press a |key ";:.|
|00001cc0| a5 3a f1 0d 08 d4 1a 65 | 72 61 73 65 69 74 3d 65 |.:.....e|raseit=e|
|00001cd0| 72 61 73 65 5f 73 66 5f | 64 69 73 63 73 0d 08 de |rase_sf_|discs...|
|00001ce0| 1c 70 61 72 74 3d 30 3a | f2 65 72 61 73 65 28 22 |.part=0:|.erase("|
|00001cf0| 76 61 72 69 6f 75 73 22 | 29 0d 08 e8 47 64 65 70 |various"|)...Gdep|
|00001d00| 74 68 3d 31 3a e3 20 78 | 3d 32 20 b8 20 6d 61 78 |th=1:. x|=2 . max|
|00001d10| 64 65 70 74 68 3a 6f 66 | 73 28 78 29 3d 30 3a 64 |depth:of|s(x)=0:d|
|00001d20| 69 72 24 28 78 29 3d 22 | 22 3a 63 64 69 72 24 28 |ir$(x)="|":cdir$(|
|00001d30| 78 29 3d 22 22 3a ed 3a | 6f 66 73 28 31 29 3d 30 |x)="":.:|ofs(1)=0|
|00001d40| 0d 08 f2 13 c8 95 20 a4 | 6e 65 78 74 66 69 6c 65 |...... .|nextfile|
|00001d50| 28 31 29 0d 08 fc 0c 20 | 64 3d a4 74 65 73 74 0d |(1).... |d=.test.|
|00001d60| 09 06 0c 20 e7 20 64 3d | 30 20 8c 0d 09 10 29 20 |... . d=|0 ....) |
|00001d70| 20 f1 22 42 61 63 6b 69 | 6e 67 20 75 70 20 22 3b | ."Backi|ng up ";|
|00001d80| c6 8e 28 64 69 72 24 28 | 29 29 3b 22 2e 22 3b 24 |..(dir$(|));".";$|
|00001d90| 6e 61 6d 65 0d 09 1a 3a | 20 20 e7 20 63 6f 6e 66 |name...:| . conf|
|00001da0| 69 72 6d 3a e7 20 a4 79 | 6e 28 22 54 72 61 6e 73 |irm:. .y|n("Trans|
|00001db0| 66 65 72 20 74 68 69 73 | 20 66 69 6c 65 22 29 3c |fer this| file")<|
|00001dc0| 3e 97 22 59 22 3a 61 63 | 63 65 73 73 3d 31 0d 09 |>."Y":ac|cess=1..|
|00001dd0| 24 12 20 20 e7 20 61 63 | 63 65 73 73 3d b9 20 8c |$. . ac|cess=. .|
|00001de0| 0d 09 2e 22 20 20 20 20 | 73 66 3d 8e 28 c6 8e 28 |..." |sf=.(..(|
|00001df0| 64 69 72 24 28 29 29 2b | 22 2e 22 2b 24 6e 61 6d |dir$())+|"."+$nam|
|00001e00| 65 29 0d 09 38 33 20 20 | 20 20 e7 20 73 66 3a 6c |e)..83 | . sf:l|
|00001e10| 65 6e 3d a2 23 73 66 3a | 8b 20 85 20 30 2c 22 43 |en=.#sf:|. . 0,"C|
|00001e20| 61 6e 6e 6f 74 20 6f 70 | 65 6e 20 74 68 69 73 20 |annot op|en this |
|00001e30| 66 69 6c 65 22 0d 09 42 | 0b 20 20 20 20 ea 20 85 |file"..B|. . .|
|00001e40| 0d 09 4c 30 20 20 20 20 | ee 20 85 20 ea 3a f2 6e |..L0 |. . .:.n|
|00001e50| 65 78 74 64 69 73 63 3a | e7 20 9f 3d 31 37 3a f7 |extdisc:|. .=17:.|
|00001e60| 20 85 3a 85 20 31 37 2c | 22 45 73 63 61 70 65 22 | .:. 17,|"Escape"|
|00001e70| 0d 09 56 1d 20 20 20 20 | 64 24 3d 64 64 24 3a 64 |..V. |d$=dd$:d|
|00001e80| 66 3d 30 3a 62 79 74 65 | 73 3d 6c 65 6e 0d 09 60 |f=0:byte|s=len..`|
|00001e90| 27 20 20 20 20 70 3d 31 | 3a c8 95 20 64 65 70 74 |' p=1|:.. dept|
|00001ea0| 68 3e 70 3a 70 2b 3d 31 | 3a 64 24 2b 3d 64 69 72 |h>p:p+=1|:d$+=dir|
|00001eb0| 24 28 70 29 0d 09 6a 48 | 20 20 20 20 20 20 20 20 |$(p)..jH| |
|00001ec0| e7 20 63 64 69 72 24 28 | 70 29 3c 3e 64 69 72 24 |. cdir$(|p)<>dir$|
|00001ed0| 28 70 29 3a 63 64 69 72 | 24 28 70 29 3d 64 69 72 |(p):cdir|$(p)=dir|
|00001ee0| 24 28 70 29 3a c8 99 20 | 22 4f 53 5f 46 69 6c 65 |$(p):.. |"OS_File|
|00001ef0| 22 2c 38 2c 64 24 2c 30 | 2c 30 2c 30 0d 09 74 0d |",8,d$,0|,0,0..t.|
|00001f00| 20 20 20 20 20 20 20 20 | ce 0d 09 7e 2f 20 20 20 | |...~/ |
|00001f10| 20 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 37 2c | .. "OS_|File",7,|
|00001f20| 64 24 2b 22 2e 22 2b 24 | 6e 61 6d 65 2c 30 2c 30 |d$+"."+$|name,0,0|
|00001f30| 2c 30 2c 62 79 74 65 73 | 0d 09 88 3e 20 20 20 20 |,0,bytes|...> |
|00001f40| 64 66 3d ae 28 64 24 2b | 22 2e 22 2b 24 6e 61 6d |df=.(d$+|"."+$nam|
|00001f50| 65 29 3a e7 20 64 66 3d | 30 3a 85 20 30 2c 22 43 |e):. df=|0:. 0,"C|
|00001f60| 61 6e 6e 6f 74 20 6f 70 | 65 6e 20 64 65 73 74 2e |annot op|en dest.|
|00001f70| 20 66 69 6c 65 22 0d 09 | 92 0b 20 20 20 20 20 20 | file"..|.. |
|00001f80| f5 0d 09 9c 40 20 20 20 | 20 20 20 20 20 e7 20 62 |....@ | . b|
|00001f90| 79 74 65 73 3e 62 66 72 | 73 69 7a 65 3a 62 3d 62 |ytes>bfr|size:b=b|
|00001fa0| 66 72 73 69 7a 65 3a 62 | 79 74 65 73 2d 3d 62 3a |frsize:b|ytes-=b:|
|00001fb0| 8b 20 62 3d 62 79 74 65 | 73 3a 62 79 74 65 73 3d |. b=byte|s:bytes=|
|00001fc0| 30 0d 09 a6 3e 20 20 20 | 20 20 20 20 20 c8 99 20 |0...> | .. |
|00001fd0| 22 4f 53 5f 47 42 50 42 | 22 2c 34 2c 73 66 2c 62 |"OS_GBPB|",4,sf,b|
|00001fe0| 66 72 2c 62 20 b8 2c 2c | 2c 78 3a e7 20 78 3a 85 |fr,b .,,|,x:. x:.|
|00001ff0| 20 30 2c 22 52 65 61 64 | 20 65 72 72 6f 72 22 0d | 0,"Read| error".|
|00002000| 09 b0 23 20 20 20 20 20 | 20 20 20 c8 99 20 22 4f |..# | .. "O|
|00002010| 53 5f 47 42 50 42 22 2c | 32 2c 64 66 2c 62 66 72 |S_GBPB",|2,df,bfr|
|00002020| 2c 62 0d 09 ba 13 20 20 | 20 20 20 20 fd 20 62 79 |,b.... | . by|
|00002030| 74 65 73 3d 30 0d 09 c4 | 0b 20 20 20 20 f7 20 85 |tes=0...|. . .|
|00002040| 0d 09 ce 11 20 20 20 20 | d9 23 64 66 3a 64 66 3d |.... |.#df:df=|
|00002050| 30 0d 09 d8 3e 20 20 20 | 20 c8 99 20 22 4f 53 5f |0...> | .. "OS_|
|00002060| 46 69 6c 65 22 2c 31 2c | 64 24 2b 22 2e 22 2b 24 |File",1,|d$+"."+$|
|00002070| 6e 61 6d 65 2c 66 64 61 | 74 61 21 34 2c 66 64 61 |name,fda|ta!4,fda|
|00002080| 74 61 21 30 2c 30 2c 66 | 64 61 74 61 21 31 32 0d |ta!0,0,f|data!12.|
|00002090| 09 e2 11 20 20 20 20 d9 | 23 73 66 3a 73 66 3d 30 |... .|#sf:sf=0|
|000020a0| 0d 09 ec 32 20 20 cc 20 | e7 20 61 63 63 65 73 73 |...2 . |. access|
|000020b0| 3d 30 3a f1 22 43 61 6e | 6e 6f 74 20 63 6f 70 79 |=0:."Can|not copy|
|000020c0| 2e 20 4e 6f 20 72 65 61 | 64 20 61 63 63 65 73 73 |. No rea|d access|
|000020d0| 2e 22 0d 09 f6 07 20 20 | cd 0d 0a 00 06 20 cd 0d |.".... |..... ..|
|000020e0| 0a 0a 05 ce 0d 0a 14 1d | ff 28 22 44 49 53 4d 4f |........|.("DISMO|
|000020f0| 55 4e 54 20 22 2b c3 64 | 65 73 74 64 72 69 76 65 |UNT "+.d|estdrive|
|00002100| 29 0d 0a 1e 07 f7 20 85 | 0d 0a 28 05 e1 0d 0a 32 |)..... .|..(....2|
|00002110| 04 0d 0a 3c 0f dd 20 f2 | 6e 65 78 74 64 69 73 63 |...<.. .|nextdisc|
|00002120| 0d 0a 46 08 f1 27 f6 24 | 0d 0a 50 33 e7 20 64 66 |..F..'.$|..P3. df|
|00002130| 3a d9 23 64 66 3a 64 66 | 3d 30 3a ff 28 22 52 45 |:.#df:df|=0:.("RE|
|00002140| 4d 4f 56 45 20 22 2b 64 | 24 2b 22 2e 22 2b 24 6e |MOVE "+d|$+"."+$n|
|00002150| 61 6d 65 29 3a cf 23 73 | 66 3d 30 0d 0a 5a 0c e7 |ame):.#s|f=0..Z..|
|00002160| 20 9f 3d 31 37 3a e1 0d | 0a 64 35 f1 27 8a 32 35 | .=17:..|.d5.'.25|
|00002170| 29 22 49 6e 73 65 72 74 | 20 61 6e 6f 74 68 65 72 |)"Insert| another|
|00002180| 20 64 69 73 63 20 61 6e | 64 20 70 72 65 73 73 20 | disc an|d press |
|00002190| 61 20 6b 65 79 22 3b 3a | e7 a5 3a f1 0d 0a 6e 15 |a key";:|..:...n.|
|000021a0| f2 65 72 61 73 65 28 22 | 76 61 72 69 6f 75 73 22 |.erase("|various"|
|000021b0| 29 0d 0a 78 05 e1 0d 0a | 82 04 0d 0a 8c 0d dd 20 |)..x....|....... |
|000021c0| f2 70 61 72 61 6d 73 0d | 0a 96 3e 70 66 3d 8e 22 |.params.|..>pf=."|
|000021d0| 3c 48 44 42 24 44 69 72 | 3e 2e 21 50 61 72 61 6d |<HDB$Dir|>.!Param|
|000021e0| 65 74 65 72 22 3a e7 20 | 70 66 3d 30 3a 85 20 30 |eter":. |pf=0:. 0|
|000021f0| 2c 22 4e 6f 20 21 50 61 | 72 61 6d 65 74 65 72 20 |,"No !Pa|rameter |
|00002200| 66 69 6c 65 22 0d 0a a0 | 37 65 72 61 73 65 5f 73 |file"...|7erase_s|
|00002210| 66 5f 64 69 73 63 73 3d | 9a 23 70 66 3a 64 65 73 |f_discs=|.#pf:des|
|00002220| 74 64 72 69 76 65 3d 9a | 23 70 66 3a 73 6f 75 72 |tdrive=.|#pf:sour|
|00002230| 63 65 73 70 65 63 24 3d | be 23 70 66 0d 0a aa 2f |cespec$=|.#pf.../|
|00002240| e8 23 70 66 2c 6c 69 6d | 73 69 7a 65 3a 6c 69 6d |.#pf,lim|size:lim|
|00002250| 73 69 7a 65 3d 6c 69 6d | 73 69 7a 65 2a 31 30 32 |size=lim|size*102|
|00002260| 34 3a d9 23 70 66 3a 70 | 66 3d 30 0d 0a b4 05 e1 |4:.#pf:p|f=0.....|
|00002270| 0d 0a be 04 0d 0a c8 0c | dd 20 f2 63 6c 6f 73 65 |........|. .close|
|00002280| 0d 0a d2 12 e7 20 64 66 | 3a d9 23 64 66 3a 64 66 |..... df|:.#df:df|
|00002290| 3d 30 0d 0a dc 12 e7 20 | 73 66 3a d9 23 73 66 3a |=0..... |sf:.#sf:|
|000022a0| 73 66 3d 30 0d 0a e6 12 | e7 20 70 66 3a d9 23 70 |sf=0....|. pf:.#p|
|000022b0| 66 3a 70 66 3d 30 0d 0a | f0 05 e1 0d 0a fa 04 0d |f:pf=0..|........|
|000022c0| 0b 04 0d dd 20 f2 65 6e | 64 28 66 29 0d 0b 0e 1b |.... .en|d(f)....|
|000022d0| f2 63 6c 6f 73 65 3a 40 | 25 3d 26 39 30 41 3a 2a |.close:@|%=&90A:*|
|000022e0| 46 58 32 32 39 20 31 0d | 0b 18 1d e7 20 66 3d 31 |FX229 1.|.... f=1|
|000022f0| 3a f1 27 8a 32 37 29 22 | 46 69 6e 69 73 68 65 64 |:.'.27)"|Finished|
|00002300| 2e 20 22 3b 0d 0b 22 2a | e7 20 66 3d 32 3a f1 27 |. ";.."*|. f=2:.'|
|00002310| f6 24 3b 3a e7 20 9f 3c | 3e 31 37 3a f1 22 20 20 |.$;:. .<|>17:." |
|00002320| 61 74 20 6c 69 6e 65 20 | 22 3b 9e 20 8b f1 0d 0b |at line |";. ....|
|00002330| 2c 1d f1 22 50 72 65 73 | 73 20 61 20 6b 65 79 20 |,.."Pres|s a key |
|00002340| 22 3b 3a e7 a5 3a ef 32 | 36 3a db 0d 0b 36 0e ee |";:..:.2|6:...6..|
|00002350| 20 85 20 e5 20 8d 44 4a | 4b 0d 0b 40 0d 2a 44 49 | . . .DJ|K..@.*DI|
|00002360| 53 4d 4f 55 4e 54 0d 0b | 4a 09 ee 20 85 20 87 0d |SMOUNT..|J.. . ..|
|00002370| 0b 54 30 c8 99 20 22 4f | 53 5f 42 79 74 65 22 2c |.T0.. "O|S_Byte",|
|00002380| 31 36 31 2c 31 31 20 b8 | 2c 2c 64 3a ff 28 22 44 |161,11 .|,,d:.("D|
|00002390| 52 49 56 45 20 22 2b c3 | 28 64 20 80 37 29 29 0d |RIVE "+.|(d .7)).|
|000023a0| 0b 5e 0a 2a 46 58 32 32 | 39 0d 0b 68 05 e0 0d 0b |.^.*FX22|9..h....|
|000023b0| 72 04 0d 0b 7c 0c dd 20 | a4 63 68 65 63 6b 0d 0b |r...|.. |.check..|
|000023c0| 86 38 c8 99 20 22 58 4f | 53 5f 52 65 61 64 56 61 |.8.. "XO|S_ReadVa|
|000023d0| 72 56 61 6c 22 2c 22 48 | 44 42 24 44 69 72 22 2c |rVal","H|DB$Dir",|
|000023e0| 62 66 72 2c 39 39 2c 30 | 20 b8 2c 2c 52 32 2c 52 |bfr,99,0| .,,R2,R|
|000023f0| 33 3b 66 6c 61 67 0d 0b | 90 54 e7 28 66 6c 61 67 |3;flag..|.T.(flag|
|00002400| 20 80 20 31 29 84 20 52 | 32 3c 31 3a db 3a f1 27 | . 1). R|2<1:.:.'|
|00002410| 27 22 55 73 65 20 74 68 | 69 73 20 70 72 6f 67 72 |'"Use th|is progr|
|00002420| 61 6d 20 6f 6e 6c 79 20 | 76 69 61 20 74 68 65 20 |am only |via the |
|00002430| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 28 21 48 44 |applicat|ion (!HD|
|00002440| 42 61 63 6b 75 70 29 22 | 3a e0 0d 0b 9a 0d 62 66 |Backup)"|:.....bf|
|00002450| 72 21 52 32 3d 31 33 0d | 0b a4 09 3d 24 62 66 72 |r!R2=13.|...=$bfr|
|00002460| 0d 0b ae 04 0d 0b b8 0b | dd 20 f2 70 72 6f 6e 0d |........|. .pron.|
|00002470| 0b c2 0e db 3a 87 3a 70 | 62 3d 96 2d 34 0d 0b cc |....:.:p|b=.-4...|
|00002480| 29 ef 32 2c 31 2c 32 37 | 2c 31 2c 30 2c 31 2c 32 |).2,1,27|,1,0,1,2|
|00002490| 37 2c 31 2c 30 2c 31 2c | 32 37 2c 31 2c 30 2c 33 |7,1,0,1,|27,1,0,3|
|000024a0| 3a c8 96 3a c8 96 0d 0b | d6 33 c8 95 20 70 62 3e |:..:....|.3.. pb>|
|000024b0| 96 2d 34 3a f1 8a 32 38 | 2c 31 35 29 22 50 6c 65 |.-4:..28|,15)"Ple|
|000024c0| 61 73 65 20 73 77 69 74 | 63 68 20 70 72 69 6e 74 |ase swit|ch print|
|000024d0| 65 72 20 6f 6e 22 3b 3a | ce 0d 0b e0 0f f1 8a 32 |er on";:|.......2|
|000024e0| 38 2c 31 35 29 89 33 30 | 0d 0b ea 08 ee 3a ef 32 |8,15).30|.....:.2|
|000024f0| 0d 0b f4 05 e1 0d ff | |....... | |
+--------+-------------------------+-------------------------+--------+--------+
