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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 26 f4 20 3e 41 | 44 46 53 3a 3a 34 2e 24 |...&. >A|DFS::4.$|
|00000010| 2e 44 45 56 2a 2e 21 44 | 4f 53 46 53 2e 44 4f 53 |.DEV*.!D|OSFS.DOS|
|00000020| 42 41 43 4b 55 50 0d 00 | 14 22 f4 20 42 61 63 6b |BACKUP..|.". Back|
|00000030| 75 70 20 55 74 69 6c 69 | 74 79 20 66 6f 72 20 44 |up Utili|ty for D|
|00000040| 4f 53 20 64 69 73 63 73 | 0d 00 1e 05 f4 0d 00 28 |OS discs|.......(|
|00000050| 04 0d 00 32 13 76 65 72 | 73 69 6f 6e 24 3d 22 30 |...2.ver|sion$="0|
|00000060| 2e 32 31 22 0d 00 3c 04 | 0d 00 46 46 f1 22 44 4f |.21"..<.|..FF."DO|
|00000070| 53 20 42 61 63 6b 75 70 | 20 55 74 69 6c 69 74 79 |S Backup| Utility|
|00000080| 20 2d 20 56 65 72 73 69 | 6f 6e 20 22 3b 76 65 72 | - Versi|on ";ver|
|00000090| 73 69 6f 6e 24 3b 22 20 | 28 63 29 20 4d 61 72 6b |sion$;" |(c) Mark|
|000000a0| 20 4c 61 6d 62 65 72 74 | 20 31 39 38 39 22 0d 00 | Lambert| 1989"..|
|000000b0| 50 04 0d 00 5a 0d de 20 | 74 61 69 6c 28 35 29 0d |P...Z.. |tail(5).|
|000000c0| 00 64 04 0d 00 6e 16 c8 | 99 20 22 4f 53 5f 47 65 |.d...n..|. "OS_Ge|
|000000d0| 74 45 6e 76 22 20 b8 20 | 41 0d 00 78 04 0d 00 82 |tEnv" . |A..x....|
|000000e0| 0d 74 61 69 6c 28 30 29 | 3d 41 0d 00 8c 0e 73 70 |.tail(0)|=A....sp|
|000000f0| 61 63 65 73 20 3d 20 30 | 0d 00 96 05 f5 0d 00 a0 |aces = 0|........|
|00000100| 08 41 2b 3d 31 0d 00 aa | 0d e7 20 3f 41 3d 33 32 |.A+=1...|.. ?A=32|
|00000110| 20 8c 0d 00 b4 0d 73 70 | 61 63 65 73 2b 3d 31 0d | .....sp|aces+=1.|
|00000120| 00 be 0e c8 95 20 28 3f | 41 3d 33 32 29 0d 00 c8 |..... (?|A=32)...|
|00000130| 08 41 2b 3d 31 0d 00 d2 | 05 ce 0d 00 dc 12 74 61 |.A+=1...|......ta|
|00000140| 69 6c 28 73 70 61 63 65 | 73 29 3d 41 0d 00 e6 05 |il(space|s)=A....|
|00000150| cd 0d 00 f0 15 fd 20 73 | 70 61 63 65 73 3d 35 20 |...... s|paces=5 |
|00000160| 84 20 3f 41 3d 30 0d 00 | fa 04 0d 01 04 0f 74 6f |. ?A=0..|......to|
|00000170| 64 72 69 76 65 25 3d 2d | 31 0d 01 0e 11 66 72 6f |drive%=-|1....fro|
|00000180| 6d 64 72 69 76 65 25 3d | 2d 31 0d 01 18 04 0d 01 |mdrive%=|-1......|
|00000190| 22 2e e7 20 73 70 61 63 | 65 73 3e 32 20 8c 20 66 |".. spac|es>2 . f|
|000001a0| 72 6f 6d 64 72 69 76 65 | 25 3d a4 67 65 74 64 72 |romdrive|%=.getdr|
|000001b0| 69 76 65 28 74 61 69 6c | 28 33 29 29 0d 01 2c 2c |ive(tail|(3))..,,|
|000001c0| e7 20 73 70 61 63 65 73 | 3e 33 20 8c 20 74 6f 64 |. spaces|>3 . tod|
|000001d0| 72 69 76 65 25 3d a4 67 | 65 74 64 72 69 76 65 28 |rive%=.g|etdrive(|
|000001e0| 74 61 69 6c 28 34 29 29 | 0d 01 36 04 0d 01 40 10 |tail(4))|..6...@.|
|000001f0| ee 20 85 20 f2 65 72 72 | 6f 72 3a e0 0d 01 4a 04 |. . .err|or:...J.|
|00000200| 0d 01 54 2e 2a 52 4d 45 | 4e 53 55 52 45 20 44 4f |..T.*RME|NSURE DO|
|00000210| 53 46 53 20 30 20 3c 4f | 62 65 79 24 44 69 72 3e |SFS 0 <O|bey$Dir>|
|00000220| 2e 4d 4f 44 55 4c 45 53 | 2e 44 4f 53 46 53 0d 01 |.MODULES|.DOSFS..|
|00000230| 5e 04 0d 01 68 0f 52 65 | 61 64 53 65 63 20 3d 20 |^...h.Re|adSec = |
|00000240| 31 0d 01 72 10 57 72 69 | 74 65 53 65 63 20 3d 20 |1..r.Wri|teSec = |
|00000250| 32 0d 01 7c 0f 73 65 63 | 73 69 7a 65 3d 35 31 32 |2..|.sec|size=512|
|00000260| 0d 01 86 0a 73 65 63 73 | 3d 39 0d 01 90 11 f4 20 |....secs|=9..... |
|00000270| 42 50 42 20 45 6e 74 72 | 69 65 73 0d 01 9a 0f 46 |BPB Entr|ies....F|
|00000280| 61 74 53 69 7a 65 20 3d | 20 30 0d 01 a4 11 4e 75 |atSize =| 0....Nu|
|00000290| 6d 42 6c 6f 63 6b 73 20 | 3d 20 34 0d 01 ae 0f 4e |mBlocks |= 4....N|
|000002a0| 75 6d 46 61 74 73 20 3d | 20 38 0d 01 b8 12 43 6c |umFats =| 8....Cl|
|000002b0| 75 73 74 53 69 7a 65 20 | 3d 20 31 32 0d 01 c2 13 |ustSize |= 12....|
|000002c0| 42 6f 6f 74 42 6c 6f 63 | 6b 73 20 3d 20 31 36 0d |BootBloc|ks = 16.|
|000002d0| 01 cc 14 52 6f 6f 74 45 | 6e 74 72 69 65 73 20 3d |...RootE|ntries =|
|000002e0| 20 32 30 0d 01 d6 11 44 | 69 72 53 74 61 72 74 20 | 20....D|irStart |
|000002f0| 3d 20 32 34 0d 01 e0 11 | 44 61 74 61 41 72 65 61 |= 24....|DataArea|
|00000300| 20 3d 20 32 38 0d 01 ea | 12 4e 75 6d 43 6c 75 73 | = 28...|.NumClus|
|00000310| 74 73 20 3d 20 33 32 0d | 01 f4 04 0d 01 fe 13 64 |ts = 32.|.......d|
|00000320| 69 73 63 20 3d 20 92 20 | 2b 20 31 30 32 34 0d 02 |isc = . |+ 1024..|
|00000330| 08 2a 73 70 61 63 65 20 | 3d 20 28 28 93 2d 64 69 |.*space |= ((.-di|
|00000340| 73 63 29 20 81 20 73 65 | 63 73 69 7a 65 29 20 2a |sc) . se|csize) *|
|00000350| 20 73 65 63 73 69 7a 65 | 0d 02 12 04 0d 02 1c 32 | secsize|.......2|
|00000360| e7 20 73 70 61 63 65 3c | 28 33 30 2a 73 65 63 73 |. space<|(30*secs|
|00000370| 69 7a 65 29 20 8c 20 85 | 20 31 2c 22 4e 6f 74 20 |ize) . .| 1,"Not |
|00000380| 65 6e 6f 75 67 68 20 6d | 65 6d 6f 72 79 22 0d 02 |enough m|emory"..|
|00000390| 26 04 0d 02 30 3b e7 20 | 66 72 6f 6d 64 72 69 76 |&...0;. |fromdriv|
|000003a0| 65 25 3c 30 20 8c 20 e8 | 20 22 42 61 63 6b 75 70 |e%<0 . .| "Backup|
|000003b0| 20 66 72 6f 6d 20 77 68 | 69 63 68 20 64 72 69 76 | from wh|ich driv|
|000003c0| 65 22 2c 66 72 6f 6d 64 | 72 69 76 65 25 0d 02 3a |e",fromd|rive%..:|
|000003d0| 35 e7 20 74 6f 64 72 69 | 76 65 25 3c 30 20 8c 20 |5. todri|ve%<0 . |
|000003e0| e8 20 22 42 61 63 6b 75 | 70 20 74 6f 20 77 68 69 |. "Backu|p to whi|
|000003f0| 63 68 20 64 72 69 76 65 | 22 2c 74 6f 64 72 69 76 |ch drive|",todriv|
|00000400| 65 25 0d 02 44 04 0d 02 | 4e 27 f2 64 69 73 63 69 |e%..D...|N'.disci|
|00000410| 6e 73 65 72 74 28 22 44 | 45 53 54 49 4e 41 54 49 |nsert("D|ESTINATI|
|00000420| 4f 4e 22 2c 74 6f 64 72 | 69 76 65 25 29 0d 02 58 |ON",todr|ive%)..X|
|00000430| 23 c8 99 20 22 44 4f 53 | 46 53 5f 4d 6f 75 6e 74 |#.. "DOS|FS_Mount|
|00000440| 22 2c 74 6f 64 72 69 76 | 65 25 20 b8 20 42 50 42 |",todriv|e% . BPB|
|00000450| 0d 02 62 1c 74 6f 62 6c | 6f 63 6b 73 20 3d 20 42 |..b.tobl|ocks = B|
|00000460| 50 42 21 4e 75 6d 42 6c | 6f 63 6b 73 0d 02 6c 04 |PB!NumBl|ocks..l.|
|00000470| 0d 02 76 24 f2 64 69 73 | 63 69 6e 73 65 72 74 28 |..v$.dis|cinsert(|
|00000480| 22 53 4f 55 52 43 45 22 | 2c 66 72 6f 6d 64 72 69 |"SOURCE"|,fromdri|
|00000490| 76 65 25 29 0d 02 80 25 | c8 99 20 22 44 4f 53 46 |ve%)...%|.. "DOSF|
|000004a0| 53 5f 4d 6f 75 6e 74 22 | 2c 66 72 6f 6d 64 72 69 |S_Mount"|,fromdri|
|000004b0| 76 65 25 20 b8 20 42 50 | 42 0d 02 8a 1e 66 72 6f |ve% . BP|B....fro|
|000004c0| 6d 62 6c 6f 63 6b 73 20 | 3d 20 42 50 42 21 4e 75 |mblocks |= BPB!Nu|
|000004d0| 6d 42 6c 6f 63 6b 73 0d | 02 94 04 0d 02 9e 3c e7 |mBlocks.|......<.|
|000004e0| 20 66 72 6f 6d 62 6c 6f | 63 6b 73 3e 74 6f 62 6c | fromblo|cks>tobl|
|000004f0| 6f 63 6b 73 20 8c 20 85 | 20 32 2c 22 44 65 73 74 |ocks . .| 2,"Dest|
|00000500| 69 6e 61 74 69 6f 6e 20 | 6e 6f 74 20 62 69 67 20 |ination |not big |
|00000510| 65 6e 6f 75 67 68 22 0d | 02 a8 04 0d 02 b2 30 c8 |enough".|......0.|
|00000520| 95 20 28 28 66 72 6f 6d | 62 6c 6f 63 6b 73 20 83 |. ((from|blocks .|
|00000530| 20 73 65 63 73 29 20 84 | 20 28 74 6f 62 6c 6f 63 | secs) .| (tobloc|
|00000540| 6b 73 20 83 20 73 65 63 | 73 29 29 0d 02 bc 0f 73 |ks . sec|s))....s|
|00000550| 65 63 73 3d 73 65 63 73 | 2f 33 0d 02 c6 05 ce 0d |ecs=secs|/3......|
|00000560| 02 d0 04 0d 02 da 21 f1 | 27 22 55 73 69 6e 67 20 |......!.|'"Using |
|00000570| 22 3b 73 65 63 73 3b 22 | 20 62 6c 6f 63 6b 20 63 |";secs;"| block c|
|00000580| 6f 70 79 22 0d 02 e4 04 | 0d 02 ee 30 73 77 61 70 |opy"....|...0swap|
|00000590| 73 3d 28 28 28 66 72 6f | 6d 62 6c 6f 63 6b 73 2a |s=(((fro|mblocks*|
|000005a0| 73 65 63 73 69 7a 65 29 | 20 81 20 73 70 61 63 65 |secsize)| . space|
|000005b0| 29 20 2a 20 32 29 2b 31 | 0d 02 f8 45 e7 20 66 72 |) * 2)+1|...E. fr|
|000005c0| 6f 6d 64 72 69 76 65 25 | 3d 74 6f 64 72 69 76 65 |omdrive%|=todrive|
|000005d0| 25 20 8c 20 f1 20 27 22 | 54 68 69 73 20 77 69 6c |% . . '"|This wil|
|000005e0| 6c 20 6e 65 65 64 20 22 | 3b 73 77 61 70 73 3b 22 |l need "|;swaps;"|
|000005f0| 20 64 69 73 63 20 73 77 | 61 70 73 22 27 0d 03 02 | disc sw|aps"'...|
|00000600| 04 0d 03 0c 16 62 6c 6f | 63 6b 20 3d 20 66 72 6f |.....blo|ck = fro|
|00000610| 6d 62 6c 6f 63 6b 73 0d | 03 16 04 0d 03 20 0d 67 |mblocks.|..... .g|
|00000620| 6f 74 64 69 73 63 3d b9 | 0d 03 2a 04 0d 03 34 05 |otdisc=.|..*...4.|
|00000630| f5 0d 03 3e 04 0d 03 48 | 1f 6e 75 6d 62 6c 6f 63 |...>...H|.numbloc|
|00000640| 6b 73 20 3d 20 28 73 70 | 61 63 65 2f 73 65 63 73 |ks = (sp|ace/secs|
|00000650| 69 7a 65 29 0d 03 52 2a | e7 20 62 6c 6f 63 6b 3c |ize)..R*|. block<|
|00000660| 3d 6e 75 6d 62 6c 6f 63 | 6b 73 20 8c 20 6e 75 6d |=numbloc|ks . num|
|00000670| 62 6c 6f 63 6b 73 3d 62 | 6c 6f 63 6b 2b 31 0d 03 |blocks=b|lock+1..|
|00000680| 5c 29 6e 75 6d 62 6c 6f | 63 6b 73 20 3d 20 28 6e |\)numblo|cks = (n|
|00000690| 75 6d 62 6c 6f 63 6b 73 | 20 81 20 73 65 63 73 29 |umblocks| . secs)|
|000006a0| 20 2a 20 73 65 63 73 0d | 03 66 04 0d 03 70 4c e7 | * secs.|.f...pL.|
|000006b0| 20 28 28 66 72 6f 6d 64 | 72 69 76 65 25 3d 74 6f | ((fromd|rive%=to|
|000006c0| 64 72 69 76 65 25 29 20 | 80 20 ac 20 67 6f 74 64 |drive%) |. . gotd|
|000006d0| 69 73 63 29 20 8c 20 f2 | 64 69 73 63 69 6e 73 65 |isc) . .|discinse|
|000006e0| 72 74 28 22 53 4f 55 52 | 43 45 22 2c 66 72 6f 6d |rt("SOUR|CE",from|
|000006f0| 64 72 69 76 65 25 29 0d | 03 7a 0d 67 6f 74 64 69 |drive%).|.z.gotdi|
|00000700| 73 63 3d a3 0d 03 84 1f | c8 99 20 22 44 4f 53 46 |sc=.....|.. "DOSF|
|00000710| 53 5f 4d 6f 75 6e 74 22 | 2c 66 72 6f 6d 64 72 69 |S_Mount"|,fromdri|
|00000720| 76 65 25 0d 03 8e 04 0d | 03 98 14 62 6c 6f 63 6b |ve%.....|...block|
|00000730| 2d 3d 6e 75 6d 62 6c 6f | 63 6b 73 0d 03 a2 04 0d |-=numblo|cks.....|
|00000740| 03 ac 2a e3 20 62 3d 62 | 6c 6f 63 6b 20 b8 20 28 |..*. b=b|lock . (|
|00000750| 62 6c 6f 63 6b 2b 6e 75 | 6d 62 6c 6f 63 6b 73 2d |block+nu|mblocks-|
|00000760| 31 29 20 88 20 73 65 63 | 73 0d 03 b6 46 c8 99 20 |1) . sec|s...F.. |
|00000770| 22 44 4f 53 46 53 5f 44 | 69 73 63 4f 70 22 2c 2c |"DOSFS_D|iscOp",,|
|00000780| 52 65 61 64 53 65 63 2c | 62 2c 64 69 73 63 2b 28 |ReadSec,|b,disc+(|
|00000790| 73 65 63 73 69 7a 65 2a | 28 62 2d 62 6c 6f 63 6b |secsize*|(b-block|
|000007a0| 29 29 2c 73 65 63 73 2a | 73 65 63 73 69 7a 65 0d |)),secs*|secsize.|
|000007b0| 03 c0 05 ed 0d 03 ca 04 | 0d 03 d4 41 e7 20 28 66 |........|...A. (f|
|000007c0| 72 6f 6d 64 72 69 76 65 | 25 3d 74 6f 64 72 69 76 |romdrive|%=todriv|
|000007d0| 65 25 29 20 8c 20 f2 64 | 69 73 63 69 6e 73 65 72 |e%) . .d|iscinser|
|000007e0| 74 28 22 44 45 53 54 49 | 4e 41 54 49 4f 4e 22 2c |t("DESTI|NATION",|
|000007f0| 74 6f 64 72 69 76 65 25 | 29 0d 03 de 1d c8 99 20 |todrive%|)...... |
|00000800| 22 44 4f 53 46 53 5f 4d | 6f 75 6e 74 22 2c 74 6f |"DOSFS_M|ount",to|
|00000810| 64 72 69 76 65 25 0d 03 | e8 04 0d 03 f2 2a e3 20 |drive%..|.....*. |
|00000820| 62 3d 62 6c 6f 63 6b 20 | b8 20 28 62 6c 6f 63 6b |b=block |. (block|
|00000830| 2b 6e 75 6d 62 6c 6f 63 | 6b 73 2d 31 29 20 88 20 |+numbloc|ks-1) . |
|00000840| 73 65 63 73 0d 03 fc 47 | c8 99 20 22 44 4f 53 46 |secs...G|.. "DOSF|
|00000850| 53 5f 44 69 73 63 4f 70 | 22 2c 2c 57 72 69 74 65 |S_DiscOp|",,Write|
|00000860| 53 65 63 2c 62 2c 64 69 | 73 63 2b 28 73 65 63 73 |Sec,b,di|sc+(secs|
|00000870| 69 7a 65 2a 28 62 2d 62 | 6c 6f 63 6b 29 29 2c 73 |ize*(b-b|lock)),s|
|00000880| 65 63 73 2a 73 65 63 73 | 69 7a 65 0d 04 06 05 ed |ecs*secs|ize.....|
|00000890| 0d 04 10 04 0d 04 1a 0d | fd 20 62 6c 6f 63 6b 3d |........|. block=|
|000008a0| 30 0d 04 24 04 0d 04 2e | 05 e0 0d 04 38 04 0d 04 |0..$....|....8...|
|000008b0| 42 1a dd 20 f2 64 69 73 | 63 69 6e 73 65 72 74 28 |B.. .dis|cinsert(|
|000008c0| 64 65 73 63 24 2c 64 29 | 0d 04 4c 0e e7 20 64 3e |desc$,d)|..L.. d>|
|000008d0| 3d 34 20 8c 20 e1 0d 04 | 56 26 f1 20 22 49 6e 73 |=4 . ...|V&. "Ins|
|000008e0| 65 72 74 20 22 3b 64 65 | 73 63 24 3b 22 20 69 6e |ert ";de|sc$;" in|
|000008f0| 74 6f 20 64 72 69 76 65 | 20 22 3b 64 0d 04 60 0a |to drive| ";d..`.|
|00000900| 2a 46 58 20 31 35 0d 04 | 6a 1f f1 20 22 50 72 65 |*FX 15..|j.. "Pre|
|00000910| 73 73 20 53 70 61 63 65 | 20 74 6f 20 63 6f 6e 74 |ss Space| to cont|
|00000920| 69 6e 75 65 22 0d 04 74 | 0c f5 20 fd 20 a5 3d 33 |inue"..t|.. . .=3|
|00000930| 32 0d 04 7e 05 e1 0d 04 | 88 04 0d 04 92 0c dd 20 |2..~....|....... |
|00000940| f2 65 72 72 6f 72 0d 04 | 9c 09 f1 20 27 f6 24 0d |.error..|... '.$.|
|00000950| 04 a6 05 e1 0d 04 b0 04 | 0d 04 ba 14 dd 20 a4 67 |........|..... .g|
|00000960| 65 74 64 72 69 76 65 28 | 61 72 67 29 0d 04 c4 1a |etdrive(|arg)....|
|00000970| e7 20 3f 61 72 67 3d 97 | 28 22 3a 22 29 20 8c 20 |. ?arg=.|(":") . |
|00000980| 61 72 67 2b 3d 31 0d 04 | ce 15 64 72 76 3d 28 3f |arg+=1..|..drv=(?|
|00000990| 61 72 67 29 2d 97 28 22 | 30 22 29 0d 04 d8 1c e7 |arg)-.("|0").....|
|000009a0| 20 64 72 76 3c 30 20 84 | 20 64 72 76 3e 35 20 8c | drv<0 .| drv>5 .|
|000009b0| 20 64 72 76 3d 2d 31 0d | 04 e2 08 3d 64 72 76 0d | drv=-1.|...=drv.|
|000009c0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+