/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basicutls / !BasicUtls / BASICUtils / DFSRead

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 44 66 73 54 6f 41 64 66 |..... > |DfsToAdf|
|00000010| 73 0d 00 14 05 f4 0d 00 | 1e 2e f4 20 57 72 69 74 |s.......|... Writ|
|00000020| 74 65 6e 20 62 79 20 50 | 68 69 6c 69 70 20 4a 20 |ten by P|hilip J |
|00000030| 43 6f 6c 6d 65 72 2c 20 | 4a 61 6e 75 61 72 79 20 |Colmer, |January |
|00000040| 31 39 38 38 0d 00 28 05 | f4 0d 00 32 3b de 20 44 |1988..(.|...2;. D|
|00000050| 61 74 61 25 20 32 30 30 | 2a 31 30 32 34 3a f4 20 |ata% 200|*1024:. |
|00000060| 4d 61 78 69 6d 75 6d 20 | 69 73 20 6f 6e 65 20 73 |Maximum |is one s|
|00000070| 69 64 65 20 6f 66 20 38 | 30 20 74 72 61 63 6b 20 |ide of 8|0 track |
|00000080| 64 69 73 63 0d 00 3c 14 | de 20 44 69 73 63 52 65 |disc..<.|. DiscRe|
|00000090| 63 6f 72 64 25 20 36 34 | 0d 00 46 1d de 20 44 5f |cord% 64|..F.. D_|
|000000a0| 4e 61 6d 65 24 28 33 31 | 29 2c 41 5f 4e 61 6d 65 |Name$(31|),A_Name|
|000000b0| 24 28 33 31 29 0d 00 50 | 0e de 20 44 69 72 24 28 |$(31)..P|.. Dir$(|
|000000c0| 33 31 29 0d 00 5a 0f de | 20 4c 6f 61 64 25 28 33 |31)..Z..| Load%(3|
|000000d0| 31 29 0d 00 64 0f de 20 | 45 78 65 63 25 28 33 31 |1)..d.. |Exec%(31|
|000000e0| 29 0d 00 6e 11 de 20 4c | 65 6e 67 74 68 25 28 33 |)..n.. L|ength%(3|
|000000f0| 31 29 0d 00 78 10 de 20 | 53 74 61 72 74 25 28 33 |1)..x.. |Start%(3|
|00000100| 31 29 0d 00 82 14 de 20 | 61 64 66 73 5f 64 72 69 |1)..... |adfs_dri|
|00000110| 76 65 73 28 35 29 0d 00 | 8c 13 de 20 64 66 73 5f |ves(5)..|... dfs_|
|00000120| 64 72 69 76 65 73 28 37 | 29 0d 00 96 3f f4 20 2a |drives(7|)...?. *|
|00000130| 2a 2a 2a 2a 20 44 4f 20 | 4e 4f 54 20 43 48 41 4e |**** DO |NOT CHAN|
|00000140| 47 45 20 76 24 20 2d 20 | 55 53 45 44 20 42 59 20 |GE v$ - |USED BY |
|00000150| 53 45 56 45 52 41 4c 20 | 50 52 4f 43 45 44 55 52 |SEVERAL |PROCEDUR|
|00000160| 45 53 20 2a 2a 2a 2a 2a | 0d 00 a0 13 76 24 3d 22 |ES *****|....v$="|
|00000170| 30 31 32 33 34 35 36 37 | 38 39 22 0d 00 aa 26 76 |01234567|89"...&v|
|00000180| 24 3d 76 24 2b 22 61 62 | 63 64 65 66 67 68 69 6a |$=v$+"ab|cdefghij|
|00000190| 6b 6c 6d 6e 6f 70 71 72 | 73 74 75 76 77 78 79 7a |klmnopqr|stuvwxyz|
|000001a0| 22 0d 00 b4 26 76 24 3d | 76 24 2b 22 41 42 43 44 |"...&v$=|v$+"ABCD|
|000001b0| 45 46 47 48 49 4a 4b 4c | 4d 4e 4f 50 51 52 53 54 |EFGHIJKL|MNOPQRST|
|000001c0| 55 56 57 58 59 5a 22 0d | 00 be 17 76 24 3d 76 24 |UVWXYZ".|...v$=v$|
|000001d0| 2b 22 21 5f 22 2b bd 31 | 33 2b bd 31 32 37 0d 00 |+"!_"+.1|3+.127..|
|000001e0| c8 0b f4 20 2a 2a 2a 2a | 2a 0d 00 d2 09 eb 20 30 |... ****|*..... 0|
|000001f0| 3a 87 0d 00 dc 14 2a 41 | 4c 50 48 41 42 45 54 20 |:.....*A|LPHABET |
|00000200| 4c 41 54 49 4e 31 0d 00 | e6 2d f2 63 65 6e 74 72 |LATIN1..|.-.centr|
|00000210| 65 28 30 2c 22 44 46 53 | 20 74 6f 20 41 44 46 53 |e(0,"DFS| to ADFS|
|00000220| 20 54 72 61 6e 73 66 65 | 72 20 55 74 69 6c 69 74 | Transfe|r Utilit|
|00000230| 79 22 29 0d 00 f0 2d f2 | 63 65 6e 74 72 65 28 32 |y")...-.|centre(2|
|00000240| 2c bd 28 31 36 39 29 2b | 22 20 31 39 38 37 20 50 |,.(169)+|" 1987 P|
|00000250| 68 69 6c 69 70 20 4a 20 | 43 6f 6c 6d 65 72 22 29 |hilip J |Colmer")|
|00000260| 0d 00 fa 13 2a 41 4c 50 | 48 41 42 45 54 20 42 46 |....*ALP|HABET BF|
|00000270| 4f 4e 54 0d 01 04 24 c8 | 99 20 22 41 44 46 53 5f |ONT...$.|. "ADFS_|
|00000280| 44 72 69 76 65 73 22 20 | b8 20 64 65 73 74 25 2c |Drives" |. dest%,|
|00000290| 6e 66 25 2c 6e 68 25 0d | 01 0e 23 e7 6e 66 25 3c |nf%,nh%.|..#.nf%<|
|000002a0| 31 20 85 20 31 2c 20 22 | 4e 6f 74 20 65 6e 6f 75 |1 . 1, "|Not enou|
|000002b0| 67 68 20 64 72 69 76 65 | 73 22 0d 01 18 42 64 73 |gh drive|s"...Bds|
|000002c0| 69 7a 65 25 3d 38 3a f4 | 20 66 69 78 65 64 20 61 |ize%=8:.| fixed a|
|000002d0| 74 20 38 30 20 74 72 61 | 63 6b 73 20 2d 20 23 20 |t 80 tra|cks - # |
|000002e0| 72 65 61 64 20 64 65 70 | 65 6e 64 65 6e 74 20 6f |read dep|endent o|
|000002f0| 6e 20 64 69 73 63 5f 73 | 69 7a 65 25 0d 01 22 0b |n disc_s|ize%..".|
|00000300| e3 69 25 3d 30 b8 37 0d | 01 2c 1b e7 69 25 3c 36 |.i%=0.7.|.,..i%<6|
|00000310| 20 61 64 66 73 5f 64 72 | 69 76 65 73 28 69 25 29 | adfs_dr|ives(i%)|
|00000320| 3d a3 0d 01 36 14 64 66 | 73 5f 64 72 69 76 65 73 |=...6.df|s_drives|
|00000330| 28 69 25 29 3d a3 0d 01 | 40 05 ed 0d 01 4a 0d e3 |(i%)=...|@....J..|
|00000340| 69 25 3d 31 b8 6e 66 25 | 0d 01 54 1a 64 66 73 5f |i%=1.nf%|..T.dfs_|
|00000350| 64 72 69 76 65 73 28 28 | 69 25 2d 31 29 2a 32 29 |drives((|i%-1)*2)|
|00000360| 3d b9 0d 01 5e 1c 64 66 | 73 5f 64 72 69 76 65 73 |=...^.df|s_drives|
|00000370| 28 28 69 25 2d 31 29 2a | 32 2b 31 29 3d b9 0d 01 |((i%-1)*|2+1)=...|
|00000380| 68 17 61 64 66 73 5f 64 | 72 69 76 65 73 28 69 25 |h.adfs_d|rives(i%|
|00000390| 2d 31 29 3d b9 0d 01 72 | 05 ed 0d 01 7c 2a e7 6e |-1)=...r|....|*.n|
|000003a0| 68 25 3e 30 20 e3 69 25 | 3d 31 b8 6e 68 25 3a 61 |h%>0 .i%|=1.nh%:a|
|000003b0| 64 66 73 5f 64 72 69 76 | 65 73 28 69 25 2b 33 29 |dfs_driv|es(i%+3)|
|000003c0| 3d b9 3a ed 0d 01 86 1e | 73 6f 75 72 63 65 25 3d |=.:.....|source%=|
|000003d0| 32 3a e7 6e 66 25 3c 32 | 20 73 6f 75 72 63 65 25 |2:.nf%<2| source%|
|000003e0| 3d 30 0d 01 90 21 f2 64 | 69 73 70 6c 61 79 5f 73 |=0...!.d|isplay_s|
|000003f0| 6f 75 72 63 65 3a f2 64 | 69 73 70 6c 61 79 5f 64 |ource:.d|isplay_d|
|00000400| 65 73 74 0d 01 9a 1f f2 | 69 6e 76 65 72 73 65 28 |est.....|inverse(|
|00000410| 30 29 3a db 3a 6f 25 3d | 31 3a 2a 50 4f 49 4e 54 |0):.:o%=|1:*POINT|
|00000420| 45 52 0d 01 a4 10 c8 97 | 20 b8 20 36 34 30 2c 38 |ER......| . 640,8|
|00000430| 32 30 0d 01 ae 05 f5 0d | 01 b8 17 c8 97 20 c8 93 |20......|..... ..|
|00000440| 20 31 36 2c 30 2c 31 32 | 33 38 2c 38 32 37 0d 01 | 16,0,12|38,827..|
|00000450| c2 05 f5 0d 01 cc 2d 20 | f2 69 6e 76 65 72 73 65 |......- |.inverse|
|00000460| 28 6f 25 3d 31 29 3a f2 | 63 65 6e 74 72 65 28 32 |(o%=1):.|centre(2|
|00000470| 2c 22 49 6e 74 72 6f 64 | 75 63 74 69 6f 6e 22 29 |,"Introd|uction")|
|00000480| 0d 01 d6 35 20 f2 69 6e | 76 65 72 73 65 28 6f 25 |...5 .in|verse(o%|
|00000490| 3d 32 29 3a f2 63 65 6e | 74 72 65 28 34 2c 22 43 |=2):.cen|tre(4,"C|
|000004a0| 61 74 61 6c 6f 67 75 65 | 20 61 20 44 46 53 20 64 |atalogue| a DFS d|
|000004b0| 69 73 63 22 29 0d 01 e0 | 37 20 f2 69 6e 76 65 72 |isc")...|7 .inver|
|000004c0| 73 65 28 6f 25 3d 33 29 | 3a f2 63 65 6e 74 72 65 |se(o%=3)|:.centre|
|000004d0| 28 36 2c 22 43 61 74 61 | 6c 6f 67 75 65 20 61 6e |(6,"Cata|logue an|
|000004e0| 20 41 44 46 53 20 64 69 | 73 63 22 29 0d 01 ea 13 | ADFS di|sc")....|
|000004f0| 20 f2 69 6e 76 65 72 73 | 65 28 6f 25 3d 34 29 0d | .invers|e(o%=4).|
|00000500| 01 f4 40 20 f2 63 65 6e | 74 72 65 28 38 2c 22 54 |..@ .cen|tre(8,"T|
|00000510| 72 61 6e 73 66 65 72 20 | 66 69 6c 65 73 20 66 72 |ransfer |files fr|
|00000520| 6f 6d 20 61 20 44 46 53 | 20 64 69 73 63 20 74 6f |om a DFS| disc to|
|00000530| 20 61 6e 20 41 44 46 53 | 20 64 69 73 63 22 29 0d | an ADFS| disc").|
|00000540| 01 fe 26 20 f2 69 6e 76 | 65 72 73 65 28 6f 25 3d |..& .inv|erse(o%=|
|00000550| 35 29 3a f2 63 65 6e 74 | 72 65 28 31 30 2c 22 45 |5):.cent|re(10,"E|
|00000560| 78 69 74 22 29 0d 02 08 | 10 20 c8 97 20 78 25 2c |xit")...|. .. x%,|
|00000570| 79 25 2c 7a 25 0d 02 12 | 1c 20 e7 28 79 25 3c 35 |y%,z%...|. .(y%<5|
|00000580| 35 30 29 84 28 79 25 3e | 38 32 37 29 20 6f 25 3d |50).(y%>|827) o%=|
|00000590| 30 0d 02 1c 1c 20 e7 28 | 79 25 3c 38 32 38 29 80 |0.... .(|y%<828).|
|000005a0| 28 79 25 3e 38 30 30 29 | 20 6f 25 3d 31 0d 02 26 |(y%>800)| o%=1..&|
|000005b0| 1c 20 e7 28 79 25 3c 37 | 36 36 29 80 28 79 25 3e |. .(y%<7|66).(y%>|
|000005c0| 37 33 39 29 20 6f 25 3d | 32 0d 02 30 1c 20 e7 28 |739) o%=|2..0. .(|
|000005d0| 79 25 3c 37 30 31 29 80 | 28 79 25 3e 36 37 37 29 |y%<701).|(y%>677)|
|000005e0| 20 6f 25 3d 33 0d 02 3a | 1c 20 e7 28 79 25 3c 36 | o%=3..:|. .(y%<6|
|000005f0| 33 39 29 80 28 79 25 3e | 36 31 32 29 20 6f 25 3d |39).(y%>|612) o%=|
|00000600| 34 0d 02 44 1c 20 e7 28 | 79 25 3c 35 37 35 29 80 |4..D. .(|y%<575).|
|00000610| 28 79 25 3e 35 34 39 29 | 20 6f 25 3d 35 0d 02 4e |(y%>549)| o%=5..N|
|00000620| 0a 20 fd 7a 25 3d 34 0d | 02 58 0d 20 e7 79 25 3c |. .z%=4.|.X. .y%<|
|00000630| 39 34 20 8c 0d 02 62 12 | 20 20 f2 66 69 6e 64 5f |94 ...b.|  .find_|
|00000640| 73 6f 75 72 63 65 0d 02 | 6c 10 20 20 f2 66 69 6e |source..|l.  .fin|
|00000650| 64 5f 64 65 73 74 0d 02 | 76 06 20 cd 0d 02 80 06 |d_dest..|v. .....|
|00000660| 20 f5 0d 02 8a 11 20 20 | c8 97 20 78 25 2c 79 25 | .....  |.. x%,y%|
|00000670| 2c 7a 25 0d 02 94 0a 20 | fd 7a 25 3d 30 0d 02 9e |,z%.... |.z%=0...|
|00000680| 0c 20 c8 8e 20 6f 25 20 | ca 0d 02 a8 11 20 20 c9 |. .. o% |.....  .|
|00000690| 20 31 3a 20 f2 69 6e 74 | 72 6f 0d 02 b2 13 20 20 | 1: .int|ro....  |
|000006a0| c9 20 32 3a 20 f2 63 61 | 74 5f 64 66 73 0d 02 bc |. 2: .ca|t_dfs...|
|000006b0| 14 20 20 c9 20 33 3a 20 | f2 63 61 74 5f 61 64 66 |.  . 3: |.cat_adf|
|000006c0| 73 0d 02 c6 17 20 20 c9 | 20 34 3a 20 f2 64 66 73 |s....  .| 4: .dfs|
|000006d0| 5f 74 6f 5f 61 64 66 73 | 0d 02 d0 07 20 20 7f 0d |_to_adfs|....  ..|
|000006e0| 02 da 06 20 cb 0d 02 e4 | 0a fd 20 6f 25 3d 35 0d |... ....|.. o%=5.|
|000006f0| 02 ee 1a f2 69 6e 76 65 | 72 73 65 28 a3 29 3a 2a |....inve|rse(.):*|
|00000700| 50 4f 49 4e 54 45 52 20 | 30 0d 02 f8 0c ef 32 36 |POINTER |0.....26|
|00000710| 2c 31 32 3a ee 0d 03 02 | 05 e0 0d 03 0c 05 3a 0d |,12:....|......:.|
|00000720| 03 16 0b dd f2 69 6e 74 | 72 6f 0d 03 20 08 ea 20 |.....int|ro.. .. |
|00000730| 76 25 0d 03 2a 10 db 3a | 2a 50 4f 49 4e 54 45 52 |v%..*..:|*POINTER|
|00000740| 20 30 0d 03 34 0b f1 8a | 30 2c 32 29 3b 0d 03 3e | 0..4...|0,2);..>|
|00000750| 45 f2 70 28 22 54 68 69 | 73 20 70 72 6f 67 72 61 |E.p("Thi|s progra|
|00000760| 6d 20 61 74 74 65 6d 70 | 74 73 20 74 6f 20 63 6f |m attemp|ts to co|
|00000770| 70 79 20 74 68 65 20 66 | 69 6c 65 73 20 6f 6e 20 |py the f|iles on |
|00000780| 61 20 34 30 20 6f 72 20 | 38 30 20 74 72 61 63 6b |a 40 or |80 track|
|00000790| 22 29 0d 03 48 2f f2 70 | 28 22 44 46 53 20 66 6f |")..H/.p|("DFS fo|
|000007a0| 72 6d 61 74 74 65 64 20 | 64 69 73 63 20 6f 6e 74 |rmatted |disc ont|
|000007b0| 6f 20 61 6e 20 41 44 46 | 53 20 64 69 73 63 2e 22 |o an ADF|S disc."|
|000007c0| 29 0d 03 52 06 f1 27 0d | 03 5c 4a f2 70 28 22 41 |)..R..'.|.\J.p("A|
|000007d0| 20 64 69 72 65 63 74 6f | 72 79 20 69 73 20 63 72 | directo|ry is cr|
|000007e0| 65 61 74 65 64 20 74 6f | 20 68 6f 6c 64 20 74 68 |eated to| hold th|
|000007f0| 65 73 65 20 70 72 6f 67 | 72 61 6d 73 2e 20 54 68 |ese prog|rams. Th|
|00000800| 65 20 6e 61 6d 65 20 66 | 6f 72 20 74 68 69 73 22 |e name f|or this"|
|00000810| 29 0d 03 66 4b f2 70 28 | 22 64 69 72 65 63 74 6f |)..fK.p(|"directo|
|00000820| 72 79 20 69 73 20 74 61 | 6b 65 6e 20 66 72 6f 6d |ry is ta|ken from|
|00000830| 20 74 68 65 20 74 69 74 | 6c 65 20 6f 6e 20 74 68 | the tit|le on th|
|00000840| 65 20 44 46 53 20 64 69 | 73 63 2e 20 49 66 20 61 |e DFS di|sc. If a|
|00000850| 20 64 69 72 65 63 74 6f | 72 79 22 29 0d 03 70 4b | directo|ry")..pK|
|00000860| f2 70 28 22 61 6c 72 65 | 61 64 79 20 65 78 69 73 |.p("alre|ady exis|
|00000870| 74 73 20 77 69 74 68 20 | 74 68 61 74 20 6e 61 6d |ts with |that nam|
|00000880| 65 2c 20 79 6f 75 20 77 | 69 6c 6c 20 62 65 20 61 |e, you w|ill be a|
|00000890| 73 6b 65 64 20 74 6f 20 | 65 6e 74 65 72 20 61 6e |sked to |enter an|
|000008a0| 6f 74 68 65 72 22 29 0d | 03 7a 3c f2 70 28 22 6e |other").|.z<.p("n|
|000008b0| 61 6d 65 2e 20 53 75 62 | 2d 64 69 72 65 63 74 6f |ame. Sub|-directo|
|000008c0| 72 69 65 73 20 77 69 6c | 6c 20 62 65 20 63 72 65 |ries wil|l be cre|
|000008d0| 61 74 65 64 20 61 73 20 | 72 65 71 75 69 72 65 64 |ated as |required|
|000008e0| 2e 22 29 0d 03 84 06 f1 | 27 0d 03 8e 49 f2 70 28 |.").....|'...I.p(|
|000008f0| 22 49 66 20 61 20 44 46 | 53 20 64 69 72 65 63 74 |"If a DF|S direct|
|00000900| 6f 72 79 20 69 73 20 72 | 65 71 75 69 72 65 64 20 |ory is r|equired |
|00000910| 77 68 69 63 68 20 69 73 | 20 69 6c 6c 65 67 61 6c |which is| illegal|
|00000920| 20 75 6e 64 65 72 20 41 | 44 46 53 2c 20 74 68 65 | under A|DFS, the|
|00000930| 22 29 0d 03 98 39 f2 70 | 28 22 66 69 6c 65 20 77 |")...9.p|("file w|
|00000940| 69 6c 6c 20 62 65 20 73 | 74 6f 72 65 64 20 69 6e |ill be s|tored in|
|00000950| 20 74 68 65 20 74 6f 70 | 20 6c 65 76 65 6c 20 64 | the top| level d|
|00000960| 69 72 65 63 74 6f 72 79 | 2e 22 29 0d 03 a2 06 f1 |irectory|.").....|
|00000970| 27 0d 03 ac 48 f2 70 28 | 22 53 69 6d 69 6c 61 72 |'...H.p(|"Similar|
|00000980| 6c 79 2c 20 63 65 72 74 | 61 69 6e 20 63 68 61 72 |ly, cert|ain char|
|00000990| 61 63 74 65 72 73 20 61 | 6c 6c 6f 77 65 64 20 69 |acters a|llowed i|
|000009a0| 6e 20 44 46 53 20 66 69 | 6c 65 6e 61 6d 65 73 20 |n DFS fi|lenames |
|000009b0| 61 72 65 20 6e 6f 74 22 | 29 0d 03 b6 38 f2 70 28 |are not"|)...8.p(|
|000009c0| 22 61 6c 6c 6f 77 65 64 | 20 69 6e 20 41 44 46 53 |"allowed| in ADFS|
|000009d0| 20 66 69 6c 65 6e 61 6d | 65 73 20 61 6e 64 20 77 | filenam|es and w|
|000009e0| 69 6c 6c 20 62 65 20 69 | 67 6e 6f 72 65 64 2e 22 |ill be i|gnored."|
|000009f0| 29 0d 03 c0 06 f1 27 0d | 03 ca 47 f2 70 28 22 54 |).....'.|..G.p("T|
|00000a00| 68 65 20 44 46 53 20 64 | 69 73 63 20 4d 55 53 54 |he DFS d|isc MUST|
|00000a10| 20 62 65 20 75 73 65 64 | 20 69 6e 20 74 68 65 20 | be used| in the |
|00000a20| 61 70 70 72 6f 70 72 69 | 61 74 65 20 73 69 7a 65 |appropri|ate size|
|00000a30| 20 64 69 73 63 20 64 72 | 69 76 65 2e 22 29 0d 03 | disc dr|ive.")..|
|00000a40| d4 4a f2 70 28 22 49 74 | 20 69 73 20 6e 6f 74 20 |.J.p("It| is not |
|00000a50| 70 6f 73 73 69 62 6c 65 | 20 74 6f 20 64 6f 75 62 |possible| to doub|
|00000a60| 6c 65 2d 73 74 65 70 20 | 61 6e 20 38 30 2d 74 72 |le-step |an 80-tr|
|00000a70| 61 63 6b 20 64 69 73 63 | 20 64 72 69 76 65 20 74 |ack disc| drive t|
|00000a80| 6f 20 72 65 61 64 22 29 | 0d 03 de 1a f2 70 28 22 |o read")|.....p("|
|00000a90| 61 20 34 30 2d 74 72 61 | 63 6b 20 64 69 73 63 2e |a 40-tra|ck disc.|
|00000aa0| 22 29 0d 03 e8 06 f1 27 | 0d 03 f2 41 f2 70 28 22 |").....'|...A.p("|
|00000ab0| 59 4f 55 20 41 52 45 20 | 41 44 56 49 53 45 44 20 |YOU ARE |ADVISED |
|00000ac0| 54 4f 20 57 52 49 54 45 | 2d 50 52 4f 54 45 43 54 |TO WRITE|-PROTECT|
|00000ad0| 20 54 48 45 20 53 4f 55 | 52 43 45 20 44 49 53 43 | THE SOU|RCE DISC|
|00000ae0| 20 42 45 46 4f 52 45 22 | 29 0d 03 fc 15 f2 70 28 | BEFORE"|).....p(|
|00000af0| 22 43 4f 4e 54 49 4e 55 | 49 4e 47 2e 22 29 0d 04 |"CONTINU|ING.")..|
|00000b00| 06 39 f2 63 65 6e 74 72 | 65 28 32 31 2c 22 50 6c |.9.centr|e(21,"Pl|
|00000b10| 65 61 73 65 20 63 6c 69 | 63 6b 20 61 20 6d 6f 75 |ease cli|ck a mou|
|00000b20| 73 65 20 62 75 74 74 6f | 6e 20 74 6f 20 63 6f 6e |se butto|n to con|
|00000b30| 74 69 6e 75 65 22 29 0d | 04 10 0d 76 25 3d a4 63 |tinue").|...v%=.c|
|00000b40| 6c 69 63 6b 0d 04 1a 0e | db 3a 2a 50 4f 49 4e 54 |lick....|.:*POINT|
|00000b50| 45 52 0d 04 24 05 e1 0d | 04 2e 05 3a 0d 04 38 0d |ER..$...|...:..8.|
|00000b60| dd f2 63 61 74 5f 64 66 | 73 0d 04 42 08 ea 20 76 |..cat_df|s..B.. v|
|00000b70| 25 0d 04 4c 10 db 3a 2a | 50 4f 49 4e 54 45 52 20 |%..L..:*|POINTER |
|00000b80| 30 0d 04 56 1f 76 25 3d | a4 70 72 6f 6d 70 74 28 |0..V.v%=|.prompt(|
|00000b90| 22 44 46 53 22 2c 73 6f | 75 72 63 65 25 2c b9 29 |"DFS",so|urce%,.)|
|00000ba0| 0d 04 60 0b e7 76 25 3d | 34 20 8c 0d 04 6a 16 20 |..`..v%=|4 ...j. |
|00000bb0| f2 69 6e 69 74 5f 64 69 | 73 63 5f 72 65 63 6f 72 |.init_di|sc_recor|
|00000bc0| 64 0d 04 74 14 20 f2 72 | 65 61 64 5f 64 69 72 65 |d..t. .r|ead_dire|
|00000bd0| 63 74 6f 72 79 0d 04 7e | 3a 20 f2 63 65 6e 74 72 |ctory..~|: .centr|
|00000be0| 65 28 32 31 2c 22 50 6c | 65 61 73 65 20 63 6c 69 |e(21,"Pl|ease cli|
|00000bf0| 63 6b 20 61 20 6d 6f 75 | 73 65 20 62 75 74 74 6f |ck a mou|se butto|
|00000c00| 6e 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 22 29 0d |n to con|tinue").|
|00000c10| 04 88 0e 20 76 25 3d a4 | 63 6c 69 63 6b 0d 04 92 |... v%=.|click...|
|00000c20| 05 cd 0d 04 9c 0e db 3a | 2a 50 4f 49 4e 54 45 52 |.......:|*POINTER|
|00000c30| 0d 04 a6 05 e1 0d 04 b0 | 05 3a 0d 04 ba 0e dd f2 |........|.:......|
|00000c40| 63 61 74 5f 61 64 66 73 | 0d 04 c4 08 ea 20 76 25 |cat_adfs|..... v%|
|00000c50| 0d 04 ce 10 db 3a 2a 50 | 4f 49 4e 54 45 52 20 30 |.....:*P|OINTER 0|
|00000c60| 0d 04 d8 1e 76 25 3d a4 | 70 72 6f 6d 70 74 28 22 |....v%=.|prompt("|
|00000c70| 41 44 46 53 22 2c 64 65 | 73 74 25 2c a3 29 0d 04 |ADFS",de|st%,.)..|
|00000c80| e2 0b e7 76 25 3d 34 20 | 8c 0d 04 ec 19 20 ff 28 |...v%=4 |..... .(|
|00000c90| 22 4d 4f 55 4e 54 20 22 | 2b c3 28 64 65 73 74 25 |"MOUNT "|+.(dest%|
|00000ca0| 29 29 0d 04 f6 09 20 db | 3a 2a 2e 0d 05 00 3a 20 |)).... .|:*....: |
|00000cb0| f2 63 65 6e 74 72 65 28 | 32 31 2c 22 50 6c 65 61 |.centre(|21,"Plea|
|00000cc0| 73 65 20 63 6c 69 63 6b | 20 61 20 6d 6f 75 73 65 |se click| a mouse|
|00000cd0| 20 62 75 74 74 6f 6e 20 | 74 6f 20 63 6f 6e 74 69 | button |to conti|
|00000ce0| 6e 75 65 22 29 0d 05 0a | 0e 20 76 25 3d a4 63 6c |nue")...|. v%=.cl|
|00000cf0| 69 63 6b 0d 05 14 05 cd | 0d 05 1e 0e db 3a 2a 50 |ick.....|.....:*P|
|00000d00| 4f 49 4e 54 45 52 0d 05 | 28 05 e1 0d 05 32 05 3a |OINTER..|(....2.:|
|00000d10| 0d 05 3c 11 dd f2 64 66 | 73 5f 74 6f 5f 61 64 66 |..<...df|s_to_adf|
|00000d20| 73 0d 05 46 08 ea 20 76 | 25 0d 05 50 10 db 3a 2a |s..F.. v|%..P..:*|
|00000d30| 50 4f 49 4e 54 45 52 20 | 30 0d 05 5a 1f 73 61 6d |POINTER |0..Z.sam|
|00000d40| 65 25 3d 28 28 73 6f 75 | 72 63 65 25 20 81 20 32 |e%=((sou|rce% . 2|
|00000d50| 29 3d 64 65 73 74 25 29 | 0d 05 64 1f 76 25 3d a4 |)=dest%)|..d.v%=.|
|00000d60| 70 72 6f 6d 70 74 28 22 | 44 46 53 22 2c 73 6f 75 |prompt("|DFS",sou|
|00000d70| 72 63 65 25 2c b9 29 0d | 05 6e 0b e7 76 25 3d 34 |rce%,.).|.n..v%=4|
|00000d80| 20 8c 0d 05 78 29 20 e7 | ac 28 73 61 6d 65 25 29 | ...x) .|.(same%)|
|00000d90| 20 76 25 3d a4 70 72 6f | 6d 70 74 28 22 41 44 46 | v%=.pro|mpt("ADF|
|00000da0| 53 22 2c 64 65 73 74 25 | 2c a3 29 0d 05 82 0c 20 |S",dest%|,.).... |
|00000db0| e7 76 25 3d 34 20 8c 0d | 05 8c 17 20 20 f2 69 6e |.v%=4 ..|...  .in|
|00000dc0| 69 74 5f 64 69 73 63 5f | 72 65 63 6f 72 64 0d 05 |it_disc_|record..|
|00000dd0| 96 15 20 20 f2 72 65 61 | 64 5f 64 69 72 65 63 74 |..  .rea|d_direct|
|00000de0| 6f 72 79 0d 05 a0 13 20 | 20 e7 20 66 69 6c 65 73 |ory.... | . files|
|00000df0| 25 3c 3e 30 20 8c 0d 05 | aa 11 20 20 20 f2 72 65 |%<>0 ...|..   .re|
|00000e00| 61 64 5f 64 69 73 63 0d | 05 b4 28 20 20 20 e7 73 |ad_disc.|..(   .s|
|00000e10| 61 6d 65 25 20 76 25 3d | a4 70 72 6f 6d 70 74 28 |ame% v%=|.prompt(|
|00000e20| 22 41 44 46 53 22 2c 64 | 65 73 74 25 2c a3 29 0d |"ADFS",d|est%,.).|
|00000e30| 05 be 0e 20 20 20 e7 76 | 25 3d 34 20 8c 0d 05 c8 |...   .v|%=4 ....|
|00000e40| 09 20 20 20 20 db 0d 05 | d2 19 20 20 20 20 f2 63 |.    ...|..    .c|
|00000e50| 72 65 61 74 65 5f 64 69 | 72 65 63 74 6f 72 79 0d |reate_di|rectory.|
|00000e60| 05 dc 09 20 20 20 20 db | 0d 05 e6 13 20 20 20 20 |...    .|....    |
|00000e70| f2 63 6f 70 79 5f 66 69 | 6c 65 73 0d 05 f0 0e 20 |.copy_fi|les.... |
|00000e80| 20 20 20 2a 44 49 52 20 | 24 0d 05 fa 1f 20 20 20 |   *DIR |$....   |
|00000e90| 20 f1 27 27 27 27 8a 30 | 2c 31 39 29 3b 22 46 69 | .''''.0|,19);"Fi|
|00000ea0| 6e 69 73 68 65 64 2e 22 | 0d 06 04 08 20 20 20 cd |nished."|....   .|
|00000eb0| 0d 06 0e 07 20 20 cd 0d | 06 18 3b 20 20 f2 63 65 |....  ..|..;  .ce|
|00000ec0| 6e 74 72 65 28 32 31 2c | 22 50 6c 65 61 73 65 20 |ntre(21,|"Please |
|00000ed0| 63 6c 69 63 6b 20 61 20 | 6d 6f 75 73 65 20 62 75 |click a |mouse bu|
|00000ee0| 74 74 6f 6e 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 |tton to |continue|
|00000ef0| 22 29 0d 06 22 0f 20 20 | 76 25 3d a4 63 6c 69 63 |")..".  |v%=.clic|
|00000f00| 6b 0d 06 2c 06 20 cd 0d | 06 36 05 cd 0d 06 40 0e |k..,. ..|.6....@.|
|00000f10| db 3a 2a 50 4f 49 4e 54 | 45 52 0d 06 4a 05 e1 0d |.:*POINT|ER..J...|
|00000f20| 06 54 05 3a 0d 06 5e 16 | dd a4 70 72 6f 6d 70 74 |.T.:..^.|..prompt|
|00000f30| 28 6e 24 2c 64 25 2c 6c | 25 29 0d 06 68 08 ea 20 |(n$,d%,l|%)..h.. |
|00000f40| 76 25 0d 06 72 15 e7 28 | 64 25 3e 33 29 20 80 20 |v%..r..(|d%>3) . |
|00000f50| ac 28 6c 25 29 20 8c 0d | 06 7c 09 20 76 25 3d 34 |.(l%) ..|.|. v%=4|
|00000f60| 0d 06 86 05 cc 0d 06 90 | 30 20 6e 24 3d 22 50 6c |........|0 n$="Pl|
|00000f70| 65 61 73 65 20 70 6c 61 | 63 65 20 74 68 65 20 22 |ease pla|ce the "|
|00000f80| 2b 6e 24 2b 22 20 64 69 | 73 63 20 69 6e 20 64 72 |+n$+" di|sc in dr|
|00000f90| 69 76 65 20 22 0d 06 9a | 28 20 e7 6c 25 20 6e 24 |ive "...|( .l% n$|
|00000fa0| 3d 6e 24 2b bd 28 36 35 | 2b 64 25 29 20 8b 20 6e |=n$+.(65|+d%) . n|
|00000fb0| 24 3d 6e 24 2b bd 28 34 | 38 2b 64 25 29 0d 06 a4 |$=n$+.(4|8+d%)...|
|00000fc0| 26 20 6e 24 3d 6e 24 2b | 22 20 61 6e 64 20 63 6c |& n$=n$+|" and cl|
|00000fd0| 69 63 6b 20 61 20 6d 6f | 75 73 65 20 62 75 74 74 |ick a mo|use butt|
|00000fe0| 6f 6e 22 0d 06 ae 13 20 | f2 63 65 6e 74 72 65 28 |on".... |.centre(|
|00000ff0| 32 31 2c 6e 24 29 0d 06 | b8 0e 20 76 25 3d a4 63 |21,n$)..|.. v%=.c|
|00001000| 6c 69 63 6b 0d 06 c2 13 | 20 f1 8a 30 2c 32 32 29 |lick....| ..0,22)|
|00001010| 3b 89 28 37 39 29 3b 0d | 06 cc 05 cd 0d 06 d6 07 |;.(79);.|........|
|00001020| 3d 76 25 0d 06 e0 05 3a | 0d 06 ea 16 dd f2 69 6e |=v%....:|......in|
|00001030| 69 74 5f 64 69 73 63 5f | 72 65 63 6f 72 64 0d 06 |it_disc_|record..|
|00001040| f4 08 ea 20 69 25 0d 06 | fe 2f 44 69 73 63 52 65 |... i%..|./DiscRe|
|00001050| 63 6f 72 64 25 3f 30 20 | 3d 20 38 3a f4 20 4c 6f |cord%?0 |= 8:. Lo|
|00001060| 67 32 20 6f 66 20 74 68 | 65 20 73 65 63 74 6f 72 |g2 of th|e sector|
|00001070| 20 73 69 7a 65 0d 07 08 | 34 44 69 73 63 52 65 63 | size...|4DiscRec|
|00001080| 6f 72 64 25 3f 31 20 3d | 20 31 30 3a f4 20 4e 75 |ord%?1 =| 10:. Nu|
|00001090| 6d 62 65 72 20 6f 66 20 | 73 65 63 74 6f 72 73 20 |mber of |sectors |
|000010a0| 70 65 72 20 74 72 61 63 | 6b 0d 07 12 27 44 69 73 |per trac|k...'Dis|
|000010b0| 63 52 65 63 6f 72 64 25 | 3f 32 20 3d 20 31 3a f4 |cRecord%|?2 = 1:.|
|000010c0| 20 4e 75 6d 62 65 72 20 | 6f 66 20 68 65 61 64 73 | Number |of heads|
|000010d0| 0d 07 1c 26 44 69 73 63 | 52 65 63 6f 72 64 25 3f |...&Disc|Record%?|
|000010e0| 33 20 3d 20 31 3a f4 20 | 53 69 6e 67 6c 65 20 64 |3 = 1:. |Single d|
|000010f0| 65 6e 73 69 74 79 0d 07 | 26 15 e3 20 69 25 20 3d |ensity..|&.. i% =|
|00001100| 20 34 20 b8 20 36 30 20 | 88 20 34 0d 07 30 17 20 | 4 . 60 |. 4..0. |
|00001110| 44 69 73 63 52 65 63 6f | 72 64 25 21 69 25 20 3d |DiscReco|rd%!i% =|
|00001120| 20 30 0d 07 3a 05 ed 0d | 07 44 3e 44 69 73 63 52 | 0..:...|.D>DiscR|
|00001130| 65 63 6f 72 64 25 21 31 | 36 20 3d 20 28 64 73 69 |ecord%!1|6 = (dsi|
|00001140| 7a 65 25 2a 31 30 29 2a | 31 30 2a 32 35 36 2a 32 |ze%*10)*|10*256*2|
|00001150| 3a f4 20 44 69 73 63 20 | 73 69 7a 65 20 69 6e 20 |:. Disc |size in |
|00001160| 62 79 74 65 73 0d 07 4e | 05 e1 0d 07 58 05 3a 0d |bytes..N|....X.:.|
|00001170| 07 62 14 dd f2 72 65 61 | 64 5f 64 69 72 65 63 74 |.b...rea|d_direct|
|00001180| 6f 72 79 0d 07 6c 08 ea | 20 69 25 0d 07 76 05 db |ory..l..| i%..v..|
|00001190| 0d 07 80 18 f2 72 65 61 | 64 5f 74 72 61 63 6b 28 |.....rea|d_track(|
|000011a0| 44 61 74 61 25 2c 30 29 | 0d 07 8a 34 74 69 74 6c |Data%,0)|...4titl|
|000011b0| 65 24 3d a4 73 74 72 69 | 6e 67 28 44 61 74 61 25 |e$=.stri|ng(Data%|
|000011c0| 2c 38 2c b9 29 2b a4 73 | 74 72 69 6e 67 28 44 61 |,8,.)+.s|tring(Da|
|000011d0| 74 61 25 2b 32 35 36 2c | 32 2c b9 29 0d 07 94 1e |ta%+256,|2,.)....|
|000011e0| e7 74 69 74 6c 65 24 3d | 22 22 20 74 69 74 6c 65 |.title$=|"" title|
|000011f0| 24 3d 22 4e 6f 4e 61 6d | 65 22 0d 07 9e 1b f1 22 |$="NoNam|e"....."|
|00001200| 44 69 73 63 20 74 69 74 | 6c 65 3a 20 22 3b 74 69 |Disc tit|le: ";ti|
|00001210| 74 6c 65 24 27 0d 07 a8 | 18 66 69 6c 65 73 25 3d |tle$'...|.files%=|
|00001220| 44 61 74 61 25 3f 32 36 | 31 20 81 20 38 0d 07 b2 |Data%?26|1 . 8...|
|00001230| 18 64 69 73 63 5f 73 69 | 7a 65 25 3d 44 61 74 61 |.disc_si|ze%=Data|
|00001240| 25 3f 32 36 32 0d 07 bc | 21 e7 66 69 6c 65 73 25 |%?262...|!.files%|
|00001250| 3d 30 20 f1 22 4e 6f 20 | 66 69 6c 65 73 20 70 72 |=0 ."No |files pr|
|00001260| 65 73 65 6e 74 22 0d 07 | c6 13 e3 20 69 25 3d 31 |esent"..|... i%=1|
|00001270| 20 b8 20 66 69 6c 65 73 | 25 0d 07 d0 28 20 44 5f | . files|%...( D_|
|00001280| 4e 61 6d 65 24 28 69 25 | 29 3d a4 73 74 72 69 6e |Name$(i%|)=.strin|
|00001290| 67 28 44 61 74 61 25 2b | 69 25 2a 38 2c 37 2c a3 |g(Data%+|i%*8,7,.|
|000012a0| 29 0d 07 da 28 20 41 5f | 4e 61 6d 65 24 28 69 25 |)...( A_|Name$(i%|
|000012b0| 29 3d a4 73 74 72 69 6e | 67 28 44 61 74 61 25 2b |)=.strin|g(Data%+|
|000012c0| 69 25 2a 38 2c 37 2c b9 | 29 0d 07 e4 29 20 e7 41 |i%*8,7,.|)...) .A|
|000012d0| 5f 4e 61 6d 65 24 28 69 | 25 29 3d 22 22 20 41 5f |_Name$(i|%)="" A_|
|000012e0| 4e 61 6d 65 24 28 69 25 | 29 3d 22 4e 6f 4e 61 6d |Name$(i%|)="NoNam|
|000012f0| 65 22 0d 07 ee 18 20 f1 | 44 5f 4e 61 6d 65 24 28 |e".... .|D_Name$(|
|00001300| 69 25 29 3b 89 28 31 33 | 29 3b 0d 07 f8 27 20 44 |i%);.(13|);...' D|
|00001310| 69 72 24 28 69 25 29 3d | a4 73 74 72 69 6e 67 28 |ir$(i%)=|.string(|
|00001320| 44 61 74 61 25 2b 69 25 | 2a 38 2b 37 2c 31 2c b9 |Data%+i%|*8+7,1,.|
|00001330| 29 0d 08 02 1e 20 4c 6f | 61 64 25 28 69 25 29 3d |).... Lo|ad%(i%)=|
|00001340| a4 6c 6f 61 64 28 44 61 | 74 61 25 2c 69 25 29 0d |.load(Da|ta%,i%).|
|00001350| 08 0c 1e 20 45 78 65 63 | 25 28 69 25 29 3d a4 65 |... Exec|%(i%)=.e|
|00001360| 78 65 63 28 44 61 74 61 | 25 2c 69 25 29 0d 08 16 |xec(Data|%,i%)...|
|00001370| 22 20 4c 65 6e 67 74 68 | 25 28 69 25 29 3d a4 6c |" Length|%(i%)=.l|
|00001380| 65 6e 67 74 68 28 44 61 | 74 61 25 2c 69 25 29 0d |ength(Da|ta%,i%).|
|00001390| 08 20 20 20 53 74 61 72 | 74 25 28 69 25 29 3d a4 |.   Star|t%(i%)=.|
|000013a0| 73 74 61 72 74 28 44 61 | 74 61 25 2c 69 25 29 0d |start(Da|ta%,i%).|
|000013b0| 08 2a 06 20 ed 0d 08 34 | 05 f1 0d 08 3e 05 e1 0d |.*. ...4|....>...|
|000013c0| 08 48 05 3a 0d 08 52 0f | dd f2 72 65 61 64 5f 64 |.H.:..R.|..read_d|
|000013d0| 69 73 63 0d 08 5c 0c ea | 20 74 74 25 2c 69 25 0d |isc..\..| tt%,i%.|
|000013e0| 08 66 23 e7 64 69 73 63 | 5f 73 69 7a 65 25 3d 26 |.f#.disc|_size%=&|
|000013f0| 39 30 20 74 74 25 3d 33 | 39 20 8b 20 74 74 25 3d |90 tt%=3|9 . tt%=|
|00001400| 37 39 0d 08 70 18 f1 27 | 22 52 65 61 64 69 6e 67 |79..p..'|"Reading|
|00001410| 20 74 72 61 63 6b 20 23 | 22 3b 0d 08 7a 0f e3 69 | track #|";..z..i|
|00001420| 25 3d 31 20 b8 20 74 74 | 25 0d 08 84 10 20 f1 8a |%=1 . tt|%.... ..|
|00001430| 31 35 2c bc 29 3b 69 25 | 3b 0d 08 8e 22 20 f2 72 |15,.);i%|;..." .r|
|00001440| 65 61 64 5f 74 72 61 63 | 6b 28 44 61 74 61 25 2b |ead_trac|k(Data%+|
|00001450| 69 25 2a 32 35 36 30 2c | 69 25 29 0d 08 98 05 ed |i%*2560,|i%).....|
|00001460| 0d 08 a2 05 e1 0d 08 ac | 05 3a 0d 08 b6 16 dd f2 |........|.:......|
|00001470| 63 72 65 61 74 65 5f 64 | 69 72 65 63 74 6f 72 79 |create_d|irectory|
|00001480| 0d 08 c0 08 ea 20 66 25 | 0d 08 ca 08 2a 42 59 45 |..... f%|....*BYE|
|00001490| 0d 08 d4 18 ff 28 22 4d | 4f 55 4e 54 20 22 2b c3 |.....("M|OUNT "+.|
|000014a0| 28 64 65 73 74 25 29 29 | 0d 08 de 05 f5 0d 08 e8 |(dest%))|........|
|000014b0| 23 20 66 25 3d a4 6f 62 | 6a 65 63 74 5f 65 78 69 |# f%=.ob|ject_exi|
|000014c0| 73 74 73 28 22 24 2e 22 | 2b 74 69 74 6c 65 24 29 |sts("$."|+title$)|
|000014d0| 0d 08 f2 22 20 e7 66 25 | 20 74 69 74 6c 65 24 3d |..." .f%| title$=|
|000014e0| a4 6e 65 77 5f 74 69 74 | 6c 65 28 74 69 74 6c 65 |.new_tit|le(title|
|000014f0| 24 29 0d 08 fc 0b fd 20 | ac 28 66 25 29 0d 09 06 |$)..... |.(f%)...|
|00001500| 17 ff 28 22 43 44 49 52 | 20 24 2e 22 2b 74 69 74 |..("CDIR| $."+tit|
|00001510| 6c 65 24 29 0d 09 10 16 | ff 28 22 44 49 52 20 24 |le$)....|.("DIR $|
|00001520| 2e 22 2b 74 69 74 6c 65 | 24 29 0d 09 1a 05 e1 0d |."+title|$)......|
|00001530| 09 24 05 3a 0d 09 2e 17 | dd a4 6f 62 6a 65 63 74 |.$.:....|..object|
|00001540| 5f 65 78 69 73 74 73 28 | 74 24 29 0d 09 38 08 ea |_exists(|t$)..8..|
|00001550| 20 72 25 0d 09 42 33 e7 | 74 24 3d 22 22 20 3d b9 | r%..B3.|t$="" =.|
|00001560| 3a f4 20 69 6c 6c 65 67 | 61 6c 20 64 69 72 65 63 |:. illeg|al direc|
|00001570| 74 6f 72 69 65 73 20 61 | 72 65 20 6e 6f 74 20 61 |tories a|re not a|
|00001580| 6c 6c 6f 77 65 64 0d 09 | 4c 0c 72 25 3d 8e 28 74 |llowed..|L.r%=.(t|
|00001590| 24 29 0d 09 56 0f e7 72 | 25 3c 3e 30 20 d9 23 72 |$)..V..r|%<>0 .#r|
|000015a0| 25 0d 09 60 0c 3d 28 72 | 25 3c 3e 30 29 0d 09 6a |%..`.=(r|%<>0)..j|
|000015b0| 05 3a 0d 09 74 13 dd a4 | 6e 65 77 5f 74 69 74 6c |.:..t...|new_titl|
|000015c0| 65 28 74 24 29 0d 09 7e | 08 ea 20 73 24 0d 09 88 |e(t$)..~|.. s$...|
|000015d0| 3a f1 8a 30 2c 32 38 29 | 3b 22 41 20 64 69 72 65 |:..0,28)|;"A dire|
|000015e0| 63 74 6f 72 79 20 61 6c | 72 65 61 64 79 20 65 78 |ctory al|ready ex|
|000015f0| 69 73 74 73 20 77 69 74 | 68 20 74 68 65 20 6e 61 |ists wit|h the na|
|00001600| 6d 65 20 22 2b 74 24 0d | 09 92 3e f1 22 50 6c 65 |me "+t$.|..>."Ple|
|00001610| 61 73 65 20 65 6e 74 65 | 72 20 61 20 72 65 70 6c |ase ente|r a repl|
|00001620| 61 63 65 6d 65 6e 74 20 | 6e 61 6d 65 20 28 75 70 |acement |name (up|
|00001630| 20 74 6f 20 31 30 20 63 | 68 61 72 73 20 6f 6e 6c | to 10 c|hars onl|
|00001640| 79 29 3a 20 22 0d 09 9c | 11 73 24 3d a4 67 65 74 |y): "...|.s$=.get|
|00001650| 5f 73 28 31 30 29 0d 09 | a6 13 f1 8a 30 2c 32 38 |_s(10)..|....0,28|
|00001660| 29 3b 89 28 32 34 30 29 | 3b 0d 09 b0 07 3d 73 24 |);.(240)|;....=s$|
|00001670| 0d 09 ba 05 3a 0d 09 c4 | 12 dd a4 6e 65 77 5f 6e |....:...|...new_n|
|00001680| 61 6d 65 28 74 24 29 0d | 09 ce 08 ea 20 73 24 0d |ame(t$).|.... s$.|
|00001690| 09 d8 35 f1 8a 30 2c 32 | 38 29 3b 22 41 20 66 69 |..5..0,2|8);"A fi|
|000016a0| 6c 65 20 61 6c 72 65 61 | 64 79 20 65 78 69 73 74 |le alrea|dy exist|
|000016b0| 73 20 77 69 74 68 20 74 | 68 65 20 6e 61 6d 65 20 |s with t|he name |
|000016c0| 22 2b 74 24 0d 09 e2 3e | f1 22 50 6c 65 61 73 65 |"+t$...>|."Please|
|000016d0| 20 65 6e 74 65 72 20 61 | 20 72 65 70 6c 61 63 65 | enter a| replace|
|000016e0| 6d 65 6e 74 20 6e 61 6d | 65 20 28 75 70 20 74 6f |ment nam|e (up to|
|000016f0| 20 31 32 20 63 68 61 72 | 73 20 6f 6e 6c 79 29 3a | 12 char|s only):|
|00001700| 20 22 0d 09 ec 11 73 24 | 3d a4 67 65 74 5f 73 28 | "....s$|=.get_s(|
|00001710| 31 32 29 0d 09 f6 13 f1 | 8a 30 2c 32 38 29 3b 89 |12).....|.0,28);.|
|00001720| 28 32 34 30 29 3b 0d 0a | 00 07 3d 73 24 0d 0a 0a |(240);..|..=s$...|
|00001730| 05 3a 0d 0a 14 10 dd f2 | 63 6f 70 79 5f 66 69 6c |.:......|copy_fil|
|00001740| 65 73 0d 0a 1e 0e ea 20 | 69 25 2c 6f 24 2c 66 25 |es..... |i%,o$,f%|
|00001750| 0d 0a 28 12 e3 69 25 3d | 31 20 b8 20 66 69 6c 65 |..(..i%=|1 . file|
|00001760| 73 25 0d 0a 32 36 20 e7 | 20 ac 28 a4 6f 62 6a 65 |s%..26 .| .(.obje|
|00001770| 63 74 5f 65 78 69 73 74 | 73 28 44 69 72 24 28 69 |ct_exist|s(Dir$(i|
|00001780| 25 29 29 29 20 ff 28 22 | 43 44 49 52 20 22 2b 44 |%))) .("|CDIR "+D|
|00001790| 69 72 24 28 69 25 29 29 | 0d 0a 3c 06 20 f5 0d 0a |ir$(i%))|..<. ...|
|000017a0| 46 0b 20 20 6f 24 3d 22 | 22 0d 0a 50 26 20 20 e7 |F.  o$="|"..P&  .|
|000017b0| 44 69 72 24 28 69 25 29 | 3c 3e 22 22 20 6f 24 3d |Dir$(i%)|<>"" o$=|
|000017c0| 6f 24 2b 44 69 72 24 28 | 69 25 29 2b 22 2e 22 0d |o$+Dir$(|i%)+".".|
|000017d0| 0a 5a 17 20 20 6f 24 3d | 6f 24 2b 41 5f 4e 61 6d |.Z.  o$=|o$+A_Nam|
|000017e0| 65 24 28 69 25 29 0d 0a | 64 20 20 20 66 25 3d a4 |e$(i%)..|d   f%=.|
|000017f0| 6f 62 6a 65 63 74 5f 65 | 78 69 73 74 73 28 22 24 |object_e|xists("$|
|00001800| 2e 22 2b 6f 24 29 0d 0a | 6e 2c 20 20 e7 66 25 20 |."+o$)..|n,  .f% |
|00001810| 41 5f 4e 61 6d 65 24 28 | 69 25 29 3d a4 6e 65 77 |A_Name$(|i%)=.new|
|00001820| 5f 6e 61 6d 65 28 41 5f | 4e 61 6d 65 24 28 69 25 |_name(A_|Name$(i%|
|00001830| 29 29 0d 0a 78 0c 20 fd | 20 ac 28 66 25 29 0d 0a |))..x. .| .(f%)..|
|00001840| 82 33 20 6f 24 3d 22 53 | 41 56 45 20 22 2b 6f 24 |.3 o$="S|AVE "+o$|
|00001850| 2b 22 20 22 2b c3 7e 28 | 44 61 74 61 25 2b 53 74 |+" "+.~(|Data%+St|
|00001860| 61 72 74 25 28 69 25 29 | 2a 32 35 36 29 2b 22 2b |art%(i%)|*256)+"+|
|00001870| 22 0d 0a 8c 1e 20 6f 24 | 3d 6f 24 2b c3 7e 28 4c |".... o$|=o$+.~(L|
|00001880| 65 6e 67 74 68 25 28 69 | 25 29 29 2b 22 20 22 0d |ength%(i|%))+" ".|
|00001890| 0a 96 1c 20 6f 24 3d 6f | 24 2b c3 7e 28 45 78 65 |... o$=o|$+.~(Exe|
|000018a0| 63 25 28 69 25 29 29 2b | 22 20 22 0d 0a a0 18 20 |c%(i%))+|" ".... |
|000018b0| 6f 24 3d 6f 24 2b c3 7e | 28 4c 6f 61 64 25 28 69 |o$=o$+.~|(Load%(i|
|000018c0| 25 29 29 0d 0a aa 2f 20 | f1 22 43 6f 70 79 69 6e |%)).../ |."Copyin|
|000018d0| 67 20 22 3b 44 5f 4e 61 | 6d 65 24 28 69 25 29 3b |g ";D_Na|me$(i%);|
|000018e0| 22 20 61 73 20 22 3b 41 | 5f 4e 61 6d 65 24 28 69 |" as ";A|_Name$(i|
|000018f0| 25 29 0d 0a b4 0a 20 ff | 28 6f 24 29 0d 0a be 05 |%).... .|(o$)....|
|00001900| ed 0d 0a c8 05 e1 0d 0a | d2 05 3a 0d 0a dc 17 dd |........|..:.....|
|00001910| f2 72 65 61 64 5f 74 72 | 61 63 6b 28 62 25 2c 74 |.read_tr|ack(b%,t|
|00001920| 25 29 0d 0a e6 1c f4 20 | 62 25 20 3d 20 62 75 66 |%)..... |b% = buf|
|00001930| 66 65 72 20 66 6f 72 20 | 73 65 63 74 6f 72 0d 0a |fer for |sector..|
|00001940| f0 10 f4 20 74 25 20 3d | 20 74 72 61 63 6b 0d 0a |... t% =| track..|
|00001950| fa 26 ea 20 72 25 2c 68 | 25 2c 64 25 2c 20 72 65 |.&. r%,h|%,d%, re|
|00001960| 61 73 6f 6e 25 2c 20 64 | 69 73 63 5f 61 64 64 72 |ason%, d|isc_addr|
|00001970| 65 73 73 25 0d 0b 04 32 | 64 25 3d 28 73 6f 75 72 |ess%...2|d%=(sour|
|00001980| 63 65 25 20 81 20 32 29 | 3a f4 20 63 61 6c 63 75 |ce% . 2)|:. calcu|
|00001990| 6c 61 74 65 20 41 44 46 | 53 20 64 72 69 76 65 20 |late ADF|S drive |
|000019a0| 6e 75 6d 62 65 72 0d 0b | 0e 2c 68 25 3d 28 73 6f |number..|.,h%=(so|
|000019b0| 75 72 63 65 25 20 83 20 | 32 29 3a f4 20 63 61 6c |urce% . |2):. cal|
|000019c0| 63 75 6c 61 74 65 20 68 | 65 61 64 20 6e 75 6d 62 |culate h|ead numb|
|000019d0| 65 72 0d 0b 18 3a 74 25 | 3d 28 28 68 25 2a 64 73 |er...:t%|=((h%*ds|
|000019e0| 69 7a 65 25 2a 31 30 2b | 74 25 29 2a 31 30 29 2a |ize%*10+|t%)*10)*|
|000019f0| 32 35 36 3a f4 20 63 61 | 6c 63 75 6c 61 74 65 20 |256:. ca|lculate |
|00001a00| 74 72 61 63 6b 20 6e 75 | 6d 62 65 72 0d 0b 22 20 |track nu|mber.." |
|00001a10| 72 65 61 73 6f 6e 25 3d | 31 2b 28 44 69 73 63 52 |reason%=|1+(DiscR|
|00001a20| 65 63 6f 72 64 25 20 3c | 3c 20 36 29 0d 0b 2c 1f |ecord% <|< 6)..,.|
|00001a30| 64 69 73 63 5f 61 64 64 | 72 65 73 73 25 3d 74 25 |disc_add|ress%=t%|
|00001a40| 2b 28 64 25 20 3c 3c 20 | 32 39 29 0d 0b 36 2d 44 |+(d% << |29)..6-D|
|00001a50| 69 73 63 52 65 63 6f 72 | 64 25 3f 33 34 3d 64 25 |iscRecor|d%?34=d%|
|00001a60| 3a f4 20 75 6e 64 6f 63 | 75 6d 65 6e 74 65 64 20 |:. undoc|umented |
|00001a70| 66 65 61 74 75 72 65 21 | 0d 0b 40 3a c8 99 20 22 |feature!|..@:.. "|
|00001a80| 58 41 44 46 53 5f 44 69 | 73 63 4f 70 22 2c 30 2c |XADFS_Di|scOp",0,|
|00001a90| 72 65 61 73 6f 6e 25 2c | 64 69 73 63 5f 61 64 64 |reason%,|disc_add|
|00001aa0| 72 65 73 73 25 2c 62 25 | 2c 32 35 36 30 20 b8 20 |ress%,b%|,2560 . |
|00001ab0| 72 25 0d 0b 4a 25 e7 20 | 72 25 3c 3e 30 20 85 20 |r%..J%. |r%<>0 . |
|00001ac0| 31 2c 22 55 6e 61 62 6c | 65 20 74 6f 20 72 65 61 |1,"Unabl|e to rea|
|00001ad0| 64 20 64 61 74 61 22 0d | 0b 54 05 e1 0d 0b 5e 05 |d data".|.T....^.|
|00001ae0| 3a 0d 0b 68 16 dd a4 73 | 74 72 69 6e 67 28 62 25 |:..h...s|tring(b%|
|00001af0| 2c 73 25 2c 66 25 29 0d | 0b 72 11 f4 20 62 25 20 |,s%,f%).|.r.. b% |
|00001b00| 3d 20 62 75 66 66 65 72 | 0d 0b 7c 0f f4 20 73 25 |= buffer|..|.. s%|
|00001b10| 20 3d 20 73 69 7a 65 0d | 0b 86 2f f4 20 66 25 20 | = size.|../. f% |
|00001b20| 3d 20 54 52 55 45 20 69 | 66 20 74 72 61 70 70 69 |= TRUE i|f trappi|
|00001b30| 6e 67 20 69 6c 6c 65 67 | 61 6c 73 20 65 6c 73 65 |ng illeg|als else|
|00001b40| 20 46 41 4c 53 45 0d 0b | 90 0b ea 20 73 24 2c 63 | FALSE..|... s$,c|
|00001b50| 25 0d 0b 9a 09 73 24 3d | 22 22 0d 0b a4 05 f5 0d |%....s$=|""......|
|00001b60| 0b ae 13 20 63 25 20 3d | 20 3f 62 25 20 80 20 31 |... c% =| ?b% . 1|
|00001b70| 32 37 0d 0b b8 0a 20 e7 | 66 25 20 8c 0d 0b c2 2a |27.... .|f% ....*|
|00001b80| 20 20 e7 a7 c0 76 24 2c | a9 28 76 24 29 2d 32 29 |  ...v$,|.(v$)-2)|
|00001b90| 2c bd 28 63 25 29 29 3c | 3e 30 20 73 24 3d 73 24 |,.(c%))<|>0 s$=s$|
|00001ba0| 2b bd 28 63 25 29 0d 0b | cc 06 20 cc 0d 0b d6 11 |+.(c%)..|.. .....|
|00001bb0| 20 20 73 24 3d 73 24 2b | bd 28 63 25 29 0d 0b e0 |  s$=s$+|.(c%)...|
|00001bc0| 06 20 cd 0d 0b ea 0a 20 | 62 25 2b 3d 31 0d 0b f4 |. ..... |b%+=1...|
|00001bd0| 0a 20 73 25 2d 3d 31 0d | 0b fe 09 fd 73 25 3d 30 |. s%-=1.|....s%=0|
|00001be0| 0d 0c 08 07 3d 73 24 0d | 0c 12 05 3a 0d 0c 1c 11 |....=s$.|...:....|
|00001bf0| dd a4 6c 6f 61 64 28 62 | 25 2c 6e 25 29 0d 0c 26 |..load(b|%,n%)..&|
|00001c00| 11 f4 20 62 25 20 3d 20 | 62 75 66 66 65 72 0d 0c |.. b% = |buffer..|
|00001c10| 30 16 f4 20 6e 25 20 3d | 20 66 69 6c 65 20 6e 75 |0.. n% =| file nu|
|00001c20| 6d 62 65 72 0d 0c 3a 22 | f4 20 6c 6f 77 20 38 20 |mber..:"|. low 8 |
|00001c30| 62 69 74 73 20 61 72 65 | 20 69 6e 20 6c 6f 63 61 |bits are| in loca|
|00001c40| 74 69 6f 6e 20 38 0d 0c | 44 25 f4 20 6d 69 64 64 |tion 8..|D%. midd|
|00001c50| 6c 65 20 38 20 62 69 74 | 73 20 61 72 65 20 69 6e |le 8 bit|s are in|
|00001c60| 20 6c 6f 63 61 74 69 6f | 6e 20 39 0d 0c 4e 1c f4 | locatio|n 9..N..|
|00001c70| 20 74 6f 70 20 32 20 62 | 69 74 73 20 61 72 65 20 | top 2 b|its are |
|00001c80| 69 67 6e 6f 72 65 64 0d | 0c 58 29 3d 20 3f 28 62 |ignored.|.X)= ?(b|
|00001c90| 25 2b 32 35 36 2b 6e 25 | 2a 38 29 20 2b 20 3f 28 |%+256+n%|*8) + ?(|
|00001ca0| 62 25 2b 32 35 37 2b 6e | 25 2a 38 29 2a 32 35 36 |b%+257+n|%*8)*256|
|00001cb0| 0d 0c 62 05 3a 0d 0c 6c | 11 dd a4 65 78 65 63 28 |..b.:..l|...exec(|
|00001cc0| 62 25 2c 6e 25 29 0d 0c | 76 11 f4 20 62 25 20 3d |b%,n%)..|v.. b% =|
|00001cd0| 20 62 75 66 66 65 72 0d | 0c 80 16 f4 20 6e 25 20 | buffer.|.... n% |
|00001ce0| 3d 20 66 69 6c 65 20 6e | 75 6d 62 65 72 0d 0c 8a |= file n|umber...|
|00001cf0| 23 f4 20 6c 6f 77 20 38 | 20 62 69 74 73 20 61 72 |#. low 8| bits ar|
|00001d00| 65 20 69 6e 20 6c 6f 63 | 61 74 69 6f 6e 20 31 30 |e in loc|ation 10|
|00001d10| 0d 0c 94 26 f4 20 6d 69 | 64 64 6c 65 20 38 20 62 |...&. mi|ddle 8 b|
|00001d20| 69 74 73 20 61 72 65 20 | 69 6e 20 6c 6f 63 61 74 |its are |in locat|
|00001d30| 69 6f 6e 20 31 31 0d 0c | 9e 1c f4 20 74 6f 70 20 |ion 11..|... top |
|00001d40| 32 20 62 69 74 73 20 61 | 72 65 20 69 67 6e 6f 72 |2 bits a|re ignor|
|00001d50| 65 64 0d 0c a8 29 3d 20 | 3f 28 62 25 2b 32 35 38 |ed...)= |?(b%+258|
|00001d60| 2b 6e 25 2a 38 29 20 2b | 20 3f 28 62 25 2b 32 35 |+n%*8) +| ?(b%+25|
|00001d70| 39 2b 6e 25 2a 38 29 2a | 32 35 36 0d 0c b2 05 3a |9+n%*8)*|256....:|
|00001d80| 0d 0c bc 13 dd a4 6c 65 | 6e 67 74 68 28 62 25 2c |......le|ngth(b%,|
|00001d90| 6e 25 29 0d 0c c6 11 f4 | 20 62 25 20 3d 20 62 75 |n%).....| b% = bu|
|00001da0| 66 66 65 72 0d 0c d0 16 | f4 20 6e 25 20 3d 20 66 |ffer....|. n% = f|
|00001db0| 69 6c 65 20 6e 75 6d 62 | 65 72 0d 0c da 23 f4 20 |ile numb|er...#. |
|00001dc0| 6c 6f 77 20 38 20 62 69 | 74 73 20 61 72 65 20 69 |low 8 bi|ts are i|
|00001dd0| 6e 20 6c 6f 63 61 74 69 | 6f 6e 20 31 32 0d 0c e4 |n locati|on 12...|
|00001de0| 26 f4 20 6d 69 64 64 6c | 65 20 38 20 62 69 74 73 |&. middl|e 8 bits|
|00001df0| 20 61 72 65 20 69 6e 20 | 6c 6f 63 61 74 69 6f 6e | are in |location|
|00001e00| 20 31 33 0d 0c ee 1c f4 | 20 74 6f 70 20 32 20 62 | 13.....| top 2 b|
|00001e10| 69 74 73 20 61 72 65 20 | 69 67 6e 6f 72 65 64 0d |its are |ignored.|
|00001e20| 0c f8 29 3d 20 3f 28 62 | 25 2b 32 36 30 2b 6e 25 |..)= ?(b|%+260+n%|
|00001e30| 2a 38 29 20 2b 20 3f 28 | 62 25 2b 32 36 31 2b 6e |*8) + ?(|b%+261+n|
|00001e40| 25 2a 38 29 2a 32 35 36 | 0d 0d 02 05 3a 0d 0d 0c |%*8)*256|....:...|
|00001e50| 12 dd a4 73 74 61 72 74 | 28 62 25 2c 6e 25 29 0d |...start|(b%,n%).|
|00001e60| 0d 16 11 f4 20 62 25 20 | 3d 20 62 75 66 66 65 72 |.... b% |= buffer|
|00001e70| 0d 0d 20 16 f4 20 6e 25 | 20 3d 20 66 69 6c 65 20 |.. .. n%| = file |
|00001e80| 6e 75 6d 62 65 72 0d 0d | 2a 23 f4 20 6c 6f 77 20 |number..|*#. low |
|00001e90| 38 20 62 69 74 73 20 61 | 72 65 20 69 6e 20 6c 6f |8 bits a|re in lo|
|00001ea0| 63 61 74 69 6f 6e 20 31 | 35 0d 0d 34 23 f4 20 74 |cation 1|5..4#. t|
|00001eb0| 6f 70 20 32 20 62 69 74 | 73 20 61 72 65 20 69 6e |op 2 bit|s are in|
|00001ec0| 20 6c 6f 63 61 74 69 6f | 6e 20 31 34 0d 0d 3e 30 | locatio|n 14..>0|
|00001ed0| 3d 20 3f 28 62 25 2b 32 | 36 33 2b 6e 25 2a 38 29 |= ?(b%+2|63+n%*8)|
|00001ee0| 20 2b 20 28 28 3f 28 62 | 25 2b 32 36 32 2b 6e 25 | + ((?(b|%+262+n%|
|00001ef0| 2a 38 29 20 80 20 33 29 | 3c 3c 38 29 0d 0d 48 05 |*8) . 3)|<<8)..H.|
|00001f00| 3a 0d 0d 52 0f dd a4 67 | 65 74 5f 73 28 6c 25 29 |:..R...g|et_s(l%)|
|00001f10| 0d 0d 5c 0e ea 20 61 24 | 2c 66 25 2c 73 24 0d 0d |..\.. a$|,f%,s$..|
|00001f20| 66 09 73 24 3d 22 22 0d | 0d 70 08 66 25 3d a3 0d |f.s$="".|.p.f%=..|
|00001f30| 0d 7a 0c c8 95 20 ac 28 | 66 25 29 0d 0d 84 0e 20 |.z... .(|f%).... |
|00001f40| 61 24 3d a4 67 65 74 5f | 63 0d 0d 8e 0c 20 c8 8e |a$=.get_|c.... ..|
|00001f50| 20 61 24 20 ca 0d 0d 98 | 13 20 20 c9 20 bd 31 33 | a$ ....|.  . .13|
|00001f60| 3a 20 20 20 66 25 3d b9 | 0d 0d a2 19 20 20 c9 20 |:   f%=.|....  . |
|00001f70| bd 31 32 37 3a 20 20 e7 | a9 28 73 24 29 3e 30 20 |.127:  .|.(s$)>0 |
|00001f80| 8c 0d 0d ac 2d 20 20 20 | 20 20 20 20 20 20 20 20 |....-   |        |
|00001f90| 20 20 20 20 20 20 20 73 | 24 3d c0 73 24 2c a9 28 |       s|$=.s$,.(|
|00001fa0| 73 24 29 2d 31 29 3a ef | 38 2c 33 32 2c 38 0d 0d |s$)-1):.|8,32,8..|
|00001fb0| b6 16 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001fc0| 20 20 20 cc 0d 0d c0 18 | 20 20 20 20 20 20 20 20 |   .....|        |
|00001fd0| 20 20 20 20 20 20 20 20 | 20 20 ef 37 0d 0d ca 16 |        |  .7....|
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ff0| 20 cd 0d 0d d4 22 20 20 | 7f 20 e7 20 a9 28 73 24 | ...."  |. . .(s$|
|00002000| 29 3d 6c 25 20 8c 20 ef | 37 20 8b 20 73 24 3d 73 |)=l% . .|7 . s$=s|
|00002010| 24 2b 61 24 0d 0d de 06 | 20 cb 0d 0d e8 05 ce 0d |$+a$....| .......|
|00002020| 0d f2 07 3d 73 24 0d 0d | fc 05 3a 0d 0e 06 0b dd |...=s$..|..:.....|
|00002030| a4 67 65 74 5f 63 0d 0e | 10 0b ea 20 61 24 2c 66 |.get_c..|... a$,f|
|00002040| 25 0d 0e 1a 05 ee 0d 0e | 24 05 f5 0d 0e 2e 09 20 |%.......|$...... |
|00002050| 61 24 3d be 0d 0e 38 0f | 20 66 25 3d a7 76 24 2c |a$=...8.| f%=.v$,|
|00002060| 61 24 29 0d 0e 42 0d 20 | e7 66 25 3d 30 20 ef 37 |a$)..B. |.f%=0 .7|
|00002070| 0d 0e 4c 0b fd 20 66 25 | 3c 3e 30 0d 0e 56 05 87 |..L.. f%|<>0..V..|
|00002080| 0d 0e 60 08 f1 61 24 3b | 0d 0e 6a 07 3d 61 24 0d |..`..a$;|..j.=a$.|
|00002090| 0e 74 05 3a 0d 0e 7e 16 | dd f2 62 6f 78 28 63 25 |.t.:..~.|..box(c%|
|000020a0| 2c 74 25 2c 6e 25 2c 6c | 25 29 0d 0e 88 08 ea 20 |,t%,n%,l|%)..... |
|000020b0| 78 25 0d 0e 92 16 e7 6e | 25 3c 31 30 20 78 25 3d |x%.....n|%<10 x%=|
|000020c0| 31 20 8b 20 78 25 3d 32 | 0d 0e 9c 10 f2 69 6e 76 |1 . x%=2|.....inv|
|000020d0| 65 72 73 65 28 63 25 29 | 0d 0e a6 11 ef 33 31 2c |erse(c%)|.....31,|
|000020e0| 74 25 2c 32 39 2c 31 36 | 33 0d 0e b0 11 f1 c4 78 |t%,29,16|3......x|
|000020f0| 25 2c bd 28 31 36 36 29 | 29 3b 0d 0e ba 15 ef 31 |%,.(166)|);.....1|
|00002100| 36 35 2c 33 31 2c 74 25 | 2c 33 30 2c 31 36 39 0d |65,31,t%|,30,169.|
|00002110| 0e c4 17 e7 6c 25 20 ef | 36 35 2b 6e 25 20 8b 20 |....l% .|65+n% . |
|00002120| ef 34 38 2b 6e 25 0d 0e | ce 15 ef 31 36 39 2c 33 |.48+n%..|...169,3|
|00002130| 31 2c 74 25 2c 33 31 2c | 31 37 30 0d 0e d8 11 f1 |1,t%,31,|170.....|
|00002140| c4 78 25 2c bd 28 31 36 | 36 29 29 3b 0d 0e e2 08 |.x%,.(16|6));....|
|00002150| ef 31 37 32 0d 0e ec 05 | e1 0d 0e f6 05 3a 0d 0f |.172....|.....:..|
|00002160| 00 14 dd f2 64 69 73 70 | 6c 61 79 5f 73 6f 75 72 |....disp|lay_sour|
|00002170| 63 65 0d 0f 0a 08 ea 20 | 64 25 0d 0f 14 13 ef 32 |ce..... |d%.....2|
|00002180| 36 3a f2 69 6e 76 65 72 | 73 65 28 a3 29 0d 0f 1e |6:.inver|se(.)...|
|00002190| 17 f1 8a 31 2c 32 37 29 | 3b 22 44 46 53 20 64 72 |...1,27)|;"DFS dr|
|000021a0| 69 76 65 22 0d 0f 28 0b | e3 64 25 3d 30 b8 37 0d |ive"..(.|.d%=0.7.|
|000021b0| 0f 32 35 e7 64 66 73 5f | 64 72 69 76 65 73 28 64 |.25.dfs_|drives(d|
|000021c0| 25 29 20 8c 20 f2 62 6f | 78 28 28 73 6f 75 72 63 |%) . .bo|x((sourc|
|000021d0| 65 25 3d 64 25 29 2c 31 | 2b 64 25 2a 34 2c 64 25 |e%=d%),1|+d%*4,d%|
|000021e0| 2c 20 b9 29 0d 0f 3c 05 | ed 0d 0f 46 0b f2 77 69 |, .)..<.|...F..wi|
|000021f0| 6e 64 6f 77 0d 0f 50 05 | e1 0d 0f 5a 05 3a 0d 0f |ndow..P.|...Z.:..|
|00002200| 64 11 dd f2 66 69 6e 64 | 5f 73 6f 75 72 63 65 0d |d...find|_source.|
|00002210| 0f 6e 08 ea 20 73 25 0d | 0f 78 0f e7 28 78 25 3c |.n.. s%.|.x..(x%<|
|00002220| 33 38 34 29 20 8c 0d 0f | 82 13 20 73 25 3d 28 78 |384) ...|.. s%=(x|
|00002230| 25 2d 31 36 29 81 20 36 | 30 0d 0f 8c 2f 20 e7 64 |%-16). 6|0.../ .d|
|00002240| 66 73 5f 64 72 69 76 65 | 73 28 73 25 29 20 73 6f |fs_drive|s(s%) so|
|00002250| 75 72 63 65 25 3d 73 25 | 3a f2 64 69 73 70 6c 61 |urce%=s%|:.displa|
|00002260| 79 5f 73 6f 75 72 63 65 | 0d 0f 96 05 cd 0d 0f a0 |y_source|........|
|00002270| 05 e1 0d 0f aa 05 3a 0d | 0f b4 12 dd f2 64 69 73 |......:.|.....dis|
|00002280| 70 6c 61 79 5f 64 65 73 | 74 0d 0f be 08 ea 20 64 |play_des|t..... d|
|00002290| 25 0d 0f c8 13 ef 32 36 | 3a f2 69 6e 76 65 72 73 |%.....26|:.invers|
|000022a0| 65 28 a3 29 0d 0f d2 19 | f1 8a 36 39 2c 32 37 29 |e(.)....|..69,27)|
|000022b0| 3b 22 41 44 46 53 20 64 | 72 69 76 65 22 0d 0f dc |;"ADFS d|rive"...|
|000022c0| 21 e7 61 64 66 73 5f 64 | 72 69 76 65 73 28 64 65 |!.adfs_d|rives(de|
|000022d0| 73 74 25 29 3d a3 20 64 | 65 73 74 25 3d 30 0d 0f |st%)=. d|est%=0..|
|000022e0| e6 0b e3 64 25 3d 30 b8 | 35 0d 0f f0 33 e7 61 64 |...d%=0.|5...3.ad|
|000022f0| 66 73 5f 64 72 69 76 65 | 73 28 64 25 29 20 f2 62 |fs_drive|s(d%) .b|
|00002300| 6f 78 28 28 64 65 73 74 | 25 3d 64 25 29 2c 35 36 |ox((dest|%=d%),56|
|00002310| 2b 64 25 2a 34 2c 64 25 | 2c 20 a3 29 0d 0f fa 05 |+d%*4,d%|, .)....|
|00002320| ed 0d 10 04 0b f2 77 69 | 6e 64 6f 77 0d 10 0e 05 |......wi|ndow....|
|00002330| e1 0d 10 18 05 3a 0d 10 | 22 0f dd f2 66 69 6e 64 |.....:..|"...find|
|00002340| 5f 64 65 73 74 0d 10 2c | 08 ea 20 73 25 0d 10 36 |_dest..,|.. s%..6|
|00002350| 0f e7 28 78 25 3e 38 39 | 35 29 20 8c 0d 10 40 14 |..(x%>89|5) ...@.|
|00002360| 20 73 25 3d 28 78 25 2d | 38 39 36 29 81 20 36 30 | s%=(x%-|896). 60|
|00002370| 0d 10 4a 2c 20 e7 61 64 | 66 73 5f 64 72 69 76 65 |..J, .ad|fs_drive|
|00002380| 73 28 73 25 29 20 64 65 | 73 74 25 3d 73 25 3a f2 |s(s%) de|st%=s%:.|
|00002390| 64 69 73 70 6c 61 79 5f | 64 65 73 74 0d 10 54 05 |display_|dest..T.|
|000023a0| cd 0d 10 5e 05 e1 0d 10 | 68 05 3a 0d 10 72 13 dd |...^....|h.:..r..|
|000023b0| f2 63 65 6e 74 72 65 28 | 6c 25 2c 73 24 29 0d 10 |.centre(|l%,s$)..|
|000023c0| 7c 15 f1 8a 34 30 2d a9 | 73 24 81 32 2c 6c 25 29 ||...40-.|s$.2,l%)|
|000023d0| 3b 73 24 0d 10 86 05 e1 | 0d 10 90 05 3a 0d 10 9a |;s$.....|....:...|
|000023e0| 11 dd f2 69 6e 76 65 72 | 73 65 28 63 25 29 0d 10 |...inver|se(c%)..|
|000023f0| a4 19 e7 63 25 20 fb 30 | 3a fb 31 33 35 20 8b 20 |...c% .0|:.135 . |
|00002400| fb 37 3a fb 31 32 38 0d | 10 ae 05 e1 0d 10 b8 05 |.7:.128.|........|
|00002410| 3a 0d 10 c2 0c dd f2 77 | 69 6e 64 6f 77 0d 10 cc |:......w|indow...|
|00002420| 11 ef 32 38 2c 30 2c 32 | 36 2c 37 39 2c 34 0d 10 |..28,0,2|6,79,4..|
|00002430| d6 05 e1 0d 10 e0 05 3a | 0d 10 ea 0b dd a4 63 6c |.......:|......cl|
|00002440| 69 63 6b 0d 10 f4 11 ea | 20 78 25 2c 79 25 2c 7a |ick.....| x%,y%,z|
|00002450| 25 2c 76 25 0d 10 fe 05 | f5 0d 11 08 10 20 c8 97 |%,v%....|..... ..|
|00002460| 20 78 25 2c 79 25 2c 7a | 25 0d 11 12 0a fd 7a 25 | x%,y%,z|%.....z%|
|00002470| 3c 3e 30 0d 11 1c 05 f5 | 0d 11 26 10 20 c8 97 20 |<>0.....|..&. .. |
|00002480| 78 25 2c 79 25 2c 76 25 | 0d 11 30 09 fd 76 25 3d |x%,y%,v%|..0..v%=|
|00002490| 30 0d 11 3a 07 3d 7a 25 | 0d 11 44 05 3a 0d 11 4e |0..:.=z%|..D.:..N|
|000024a0| 0b dd f2 70 28 73 24 29 | 0d 11 58 08 ea 20 69 25 |...p(s$)|..X.. i%|
|000024b0| 0d 11 62 05 f5 0d 11 6c | 1e 69 25 3d a7 73 24 2c |..b....l|.i%=.s$,|
|000024c0| 22 20 22 29 3a e7 69 25 | 3d 30 20 69 25 3d a9 28 |" "):.i%|=0 i%=.(|
|000024d0| 73 24 29 0d 11 76 0e e7 | 69 25 2b 9c 3e 37 39 20 |s$)..v..|i%+.>79 |
|000024e0| f1 0d 11 80 1a f1 c0 73 | 24 2c 69 25 29 3b 3a 73 |.......s|$,i%);:s|
|000024f0| 24 3d c1 73 24 2c 69 25 | 2b 31 29 0d 11 8a 0a fd |$=.s$,i%|+1).....|
|00002500| 73 24 3d 22 22 0d 11 94 | 07 ef 33 32 0d 11 9e 05 |s$=""...|..32....|
|00002510| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+