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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 44 69 72 63 6f 70 79 0d |..... > |Dircopy.|
|00000010| 00 0b 1e f4 20 28 63 29 | 20 41 63 6f 72 6e 20 43 |.... (c)| Acorn C|
|00000020| 6f 6d 70 75 74 65 72 73 | 20 31 39 38 37 0d 00 0c |omputers| 1987...|
|00000030| 11 f4 20 56 65 72 73 69 | 6f 6e 20 31 2e 30 0d 00 |.. Versi|on 1.0..|
|00000040| 13 05 20 0d 00 14 0f 48 | 41 25 3d 30 3a 48 42 25 |.. ....H|A%=0:HB%|
|00000050| 3d 30 0d 00 1e 16 ee 20 | 85 20 f2 65 72 72 6f 72 |=0..... |. .error|
|00000060| 73 3a e5 20 8d 44 6e 40 | 0d 00 32 09 2a 41 44 46 |s:. .Dn@|..2.*ADF|
|00000070| 53 0d 00 3c 05 3a 0d 00 | 46 5d de 20 68 61 74 65 |S..<.:..|F]. hate|
|00000080| 24 28 31 30 29 2c 73 74 | 6f 72 65 24 28 31 30 29 |$(10),st|ore$(10)|
|00000090| 2c 73 70 6f 73 73 25 28 | 31 30 29 2c 73 6c 6e 74 |,sposs%(|10),slnt|
|000000a0| 68 25 28 31 30 29 2c 73 | 65 78 65 63 25 28 31 30 |h%(10),s|exec%(10|
|000000b0| 29 2c 73 6c 6f 61 64 25 | 28 31 30 29 2c 73 61 74 |),sload%|(10),sat|
|000000c0| 74 73 25 28 31 30 29 2c | 66 69 6c 65 73 25 20 26 |ts%(10),|files% &|
|000000d0| 31 30 30 0d 00 50 66 de | 20 6e 61 6d 65 25 20 26 |100..Pf.| name% &|
|000000e0| 31 30 30 2c 64 65 73 74 | 25 20 26 31 30 30 2c 70 |100,dest|% &100,p|
|000000f0| 61 74 68 25 20 26 31 30 | 30 2c 6e 65 77 64 65 73 |ath% &10|0,newdes|
|00000100| 74 25 20 26 31 30 30 2c | 6e 65 77 70 61 74 68 25 |t% &100,|newpath%|
|00000110| 20 26 31 30 30 2c 63 6c | 69 6e 65 25 20 26 31 30 | &100,cl|ine% &10|
|00000120| 30 2c 73 74 72 69 6e 67 | 25 20 26 31 30 30 2c 64 |0,string|% &100,d|
|00000130| 65 73 74 69 64 25 20 31 | 32 0d 00 5a 32 de 20 7a |estid% 1|2..Z2. z|
|00000140| 25 20 2d 31 3a 62 75 66 | 66 73 69 7a 25 3d 93 2d |% -1:buf|fsiz%=.-|
|00000150| 7a 25 2d 26 31 30 30 30 | 3a de 20 62 75 66 66 65 |z%-&1000|:. buffe|
|00000160| 72 25 20 62 75 66 66 73 | 69 7a 25 0d 00 64 22 f1 |r% buffs|iz%..d".|
|00000170| 27 27 22 44 69 72 63 6f | 70 79 20 56 33 2e 30 30 |''"Dirco|py V3.00|
|00000180| 20 2d 20 51 20 74 6f 20 | 51 75 69 74 22 0d 00 6e | - Q to |Quit"..n|
|00000190| 47 72 70 25 3d 30 3a 73 | 74 6c 65 66 74 25 3d 62 |Grp%=0:s|tleft%=b|
|000001a0| 75 66 66 73 69 7a 25 3a | 62 75 66 66 70 6f 73 25 |uffsiz%:|buffpos%|
|000001b0| 3d 62 75 66 66 65 72 25 | 3a 73 6f 75 64 72 69 76 |=buffer%|:soudriv|
|000001c0| 65 25 3d 32 3a 73 6c 65 | 76 25 3d 2d 31 3a 64 69 |e%=2:sle|v%=-1:di|
|000001d0| 72 25 3d 30 0d 00 78 70 | f5 3a e8 27 27 22 53 6f |r%=0..xp|.:.''"So|
|000001e0| 75 72 63 65 20 44 72 69 | 76 65 20 22 2c 73 64 72 |urce Dri|ve ",sdr|
|000001f0| 69 76 65 24 3a 74 25 3d | a4 53 54 41 52 53 28 73 |ive$:t%=|.STARS(s|
|00000200| 64 72 69 76 65 24 29 3a | fd 20 74 25 3a e7 20 73 |drive$):|. t%:. s|
|00000210| 64 72 69 76 65 24 3d 22 | 51 22 20 84 20 73 64 72 |drive$="|Q" . sdr|
|00000220| 69 76 65 24 3d 22 71 22 | 20 8c 20 8d 44 54 41 20 |ive$="q"| . .DTA |
|00000230| 8b 20 73 64 72 69 76 65 | 25 3d bb 28 73 64 72 69 |. sdrive|%=.(sdri|
|00000240| 76 65 24 29 0d 00 82 74 | f5 3a e8 27 22 44 65 73 |ve$)...t|.:.'"Des|
|00000250| 74 69 6e 61 74 69 6f 6e | 20 64 72 69 76 65 20 22 |tination| drive "|
|00000260| 2c 64 64 72 69 76 65 24 | 3a 74 25 3d a4 53 54 41 |,ddrive$|:t%=.STA|
|00000270| 52 53 28 64 64 72 69 76 | 65 24 29 3a fd 20 74 25 |RS(ddriv|e$):. t%|
|00000280| 3a e7 20 64 64 72 69 76 | 65 24 3d 22 51 22 20 84 |:. ddriv|e$="Q" .|
|00000290| 20 64 64 72 69 76 65 24 | 3d 22 71 22 20 8c 20 8d | ddrive$|="q" . .|
|000002a0| 44 54 41 20 8b 20 64 64 | 72 69 76 65 25 3d bb 28 |DTA . dd|rive%=.(|
|000002b0| 64 64 72 69 76 65 24 29 | 0d 00 8c 6b 70 72 6f 6d |ddrive$)|...kprom|
|000002c0| 70 74 73 25 3d a3 3a e7 | 20 73 64 72 69 76 65 25 |pts%=.:.| sdrive%|
|000002d0| 3c 3e 64 64 72 69 76 65 | 25 20 8b 20 e7 20 73 64 |<>ddrive|% . . sd|
|000002e0| 72 69 76 65 25 3e 3d 34 | 20 8b 20 f1 27 22 44 6f |rive%>=4| . .'"Do|
|000002f0| 20 79 6f 75 20 77 61 6e | 74 20 64 69 73 63 20 63 | you wan|t disc c|
|00000300| 68 61 6e 67 65 20 70 72 | 6f 6d 70 74 73 20 28 59 |hange pr|ompts (Y|
|00000310| 2f 4e 29 20 22 3b 3a 70 | 72 6f 6d 70 74 73 25 3d |/N) ";:p|rompts%=|
|00000320| a4 59 4e 0d 00 96 4f e7 | 20 70 72 6f 6d 70 74 73 |.YN...O.| prompts|
|00000330| 25 20 8b 20 e7 20 73 64 | 72 69 76 65 25 3e 3d 34 |% . . sd|rive%>=4|
|00000340| 20 8b 20 f1 27 22 50 75 | 74 20 73 6f 75 72 63 65 | . .'"Pu|t source|
|00000350| 20 64 69 73 63 20 69 6e | 74 6f 20 64 72 69 76 65 | disc in|to drive|
|00000360| 20 22 2b 73 64 72 69 76 | 65 24 3a f2 52 45 54 55 | "+sdriv|e$:.RETU|
|00000370| 52 4e 0d 00 a0 68 e7 20 | 73 64 72 69 76 65 25 3d |RN...h. |sdrive%=|
|00000380| 64 64 72 69 76 65 25 20 | 80 20 ac 20 70 72 6f 6d |ddrive% |. . prom|
|00000390| 70 74 73 25 20 8b 20 e7 | 20 64 64 72 69 76 65 25 |pts% . .| ddrive%|
|000003a0| 3e 3d 34 20 8b 20 f1 27 | 22 50 75 74 20 64 65 73 |>=4 . .'|"Put des|
|000003b0| 74 69 6e 61 74 69 6f 6e | 20 64 69 73 63 20 69 6e |tination| disc in|
|000003c0| 74 6f 20 64 72 69 76 65 | 20 22 2b 64 64 72 69 76 |to drive| "+ddriv|
|000003d0| 65 24 3a f2 52 45 54 55 | 52 4e 0d 00 aa 45 f1 27 |e$:.RETU|RN...E.'|
|000003e0| 22 53 6f 75 72 63 65 20 | 72 6f 6f 74 20 3f 20 24 |"Source |root ? $|
|000003f0| 22 3b 3a e8 20 22 22 20 | 24 70 61 74 68 25 3a e7 |";:. "" |$path%:.|
|00000400| 20 3f 70 61 74 68 25 3d | 97 22 2a 22 20 8c 20 ff | ?path%=|."*" . .|
|00000410| 28 24 70 61 74 68 25 29 | 3a e5 20 8d 74 6a 40 0d |($path%)|:. .tj@.|
|00000420| 00 b4 22 24 70 61 74 68 | 25 3d 22 3a 22 2b 73 64 |.."$path|%=":"+sd|
|00000430| 72 69 76 65 24 2b 22 2e | 24 22 2b 24 70 61 74 68 |rive$+".|$"+$path|
|00000440| 25 0d 00 be 4a f1 27 22 | 44 65 73 74 69 6e 61 74 |%...J.'"|Destinat|
|00000450| 69 6f 6e 20 72 6f 6f 74 | 20 3f 20 24 22 3b 3a e8 |ion root| ? $";:.|
|00000460| 20 22 22 20 24 64 65 73 | 74 25 3a e7 20 3f 64 65 | "" $des|t%:. ?de|
|00000470| 73 74 25 3d 97 22 2a 22 | 20 8c 20 ff 28 24 64 65 |st%=."*"| . .($de|
|00000480| 73 74 25 29 3a e5 20 8d | 74 7e 40 0d 00 c8 22 24 |st%):. .|t~@..."$|
|00000490| 64 65 73 74 25 3d 22 3a | 22 2b 64 64 72 69 76 65 |dest%=":|"+ddrive|
|000004a0| 24 2b 22 2e 24 22 2b 24 | 64 65 73 74 25 0d 00 d2 |$+".$"+$|dest%...|
|000004b0| 51 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 35 2c |Q.. "OS_|File",5,|
|000004c0| 64 65 73 74 25 20 b8 20 | 52 30 25 3a e7 20 52 30 |dest% . |R0%:. R0|
|000004d0| 25 3d 32 20 8b 20 f1 27 | 22 4e 6f 20 73 75 63 68 |%=2 . .'|"No such|
|000004e0| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 64 69 72 | destina|tion dir|
|000004f0| 65 63 74 6f 72 79 22 3a | e5 20 8d 74 7e 40 0d 00 |ectory":|. .t~@..|
|00000500| dc 1c e7 20 70 72 6f 6d | 70 74 73 25 20 8b 20 f2 |... prom|pts% . .|
|00000510| 64 65 73 74 5f 64 72 69 | 76 65 0d 00 e6 11 f2 73 |dest_dri|ve.....s|
|00000520| 6f 75 72 63 65 5f 64 72 | 69 76 65 0d 00 f0 08 ef |ource_dr|ive.....|
|00000530| 20 31 35 0d 00 fa 0c 2a | 4f 50 54 20 31 2c 30 0d | 15....*|OPT 1,0.|
|00000540| 01 04 08 2a 43 41 54 0d | 01 0e 26 e8 20 22 42 65 |...*CAT.|..&. "Be|
|00000550| 67 69 6e 20 61 74 20 77 | 68 69 63 68 20 65 6e 74 |gin at w|hich ent|
|00000560| 72 79 20 22 2c 6f 66 66 | 6e 61 6d 65 24 0d 01 18 |ry ",off|name$...|
|00000570| 05 f1 0d 01 22 1e 6f 66 | 66 6e 61 6d 65 24 3d a4 |....".of|fname$=.|
|00000580| 75 5f 63 61 73 65 28 6f | 66 66 6e 61 6d 65 24 29 |u_case(o|ffname$)|
|00000590| 0d 01 2c 09 f2 48 41 54 | 45 0d 01 36 09 f2 63 6f |..,..HAT|E..6..co|
|000005a0| 70 79 0d 01 40 18 f1 27 | 22 43 6f 70 79 20 63 6f |py..@..'|"Copy co|
|000005b0| 6d 70 6c 65 74 65 2e 20 | 22 27 0d 01 4a 31 e7 20 |mplete. |"'..J1. |
|000005c0| 72 70 25 20 f1 20 3b 72 | 70 25 3b 22 20 72 65 61 |rp% . ;r|p%;" rea|
|000005d0| 64 20 70 72 6f 74 65 63 | 74 65 64 20 66 69 6c 65 |d protec|ted file|
|000005e0| 73 20 69 67 6e 6f 72 65 | 64 22 27 0d 01 54 05 e0 |s ignore|d"'..T..|
|000005f0| 0d 01 5e 05 3a 0d 01 68 | 0a dd f2 63 6f 70 79 0d |..^.:..h|...copy.|
|00000600| 01 72 1c ea 20 66 66 73 | 65 74 25 2c 66 74 79 70 |.r.. ffs|et%,ftyp|
|00000610| 65 25 3a 66 66 73 65 74 | 25 3d 30 0d 01 7c 11 f2 |e%:ffset|%=0..|..|
|00000620| 73 6f 75 72 63 65 5f 64 | 72 69 76 65 0d 01 86 36 |source_d|rive...6|
|00000630| c8 99 20 22 4f 53 5f 47 | 42 50 42 22 2c 38 2c 30 |.. "OS_G|BPB",8,0|
|00000640| 2c 66 69 6c 65 73 25 2c | 31 2c 66 66 73 65 74 25 |,files%,|1,ffset%|
|00000650| 20 b8 20 52 30 25 2c 52 | 31 25 2c 52 32 25 2c 52 | . R0%,R|1%,R2%,R|
|00000660| 33 25 0d 01 90 1b e7 20 | 52 33 25 20 8c 20 f2 66 |3%..... |R3% . .f|
|00000670| 69 64 73 28 b9 29 3a e5 | 20 8d 64 6a 41 0d 01 9a |ids(.):.| .djA...|
|00000680| 19 66 69 6c 65 73 25 3f | 28 3f 66 69 6c 65 73 25 |.files%?|(?files%|
|00000690| 2b 31 29 3d 31 33 0d 01 | a4 16 24 6e 61 6d 65 25 |+1)=13..|..$name%|
|000006a0| 3d 24 28 66 69 6c 65 73 | 25 2b 31 29 0d 01 ae 25 |=$(files|%+1)...%|
|000006b0| e7 20 a4 75 5f 63 61 73 | 65 28 24 6e 61 6d 65 25 |. .u_cas|e($name%|
|000006c0| 29 3c 6f 66 66 6e 61 6d | 65 24 20 e5 20 8d 64 60 |)<offnam|e$ . .d`|
|000006d0| 41 0d 01 b8 42 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |A...B.. |"OS_File|
|000006e0| 22 2c 35 2c 66 69 6c 65 | 73 25 2b 31 20 b8 20 66 |",5,file|s%+1 . f|
|000006f0| 74 79 70 65 25 2c 52 31 | 25 2c 6c 6f 61 64 25 2c |type%,R1|%,load%,|
|00000700| 65 78 65 63 25 2c 6c 65 | 6e 67 74 68 25 2c 61 74 |exec%,le|ngth%,at|
|00000710| 74 73 25 0d 01 c2 60 e7 | 20 28 61 74 74 73 25 80 |ts%...`.| (atts%.|
|00000720| 31 29 3d 30 20 80 20 66 | 74 79 70 65 25 3d 31 20 |1)=0 . f|type%=1 |
|00000730| f1 22 49 67 6e 6f 72 69 | 6e 67 20 72 65 61 64 20 |."Ignori|ng read |
|00000740| 70 72 6f 74 65 63 74 65 | 64 20 66 69 6c 65 20 22 |protecte|d file "|
|00000750| 2b 24 70 61 74 68 25 2b | 22 2e 22 2b 24 6e 61 6d |+$path%+|"."+$nam|
|00000760| 65 25 3a 72 70 25 3d 72 | 70 25 2b 31 3a e5 20 8d |e%:rp%=r|p%+1:. .|
|00000770| 64 60 41 0d 01 cc 20 e7 | 20 66 74 79 70 65 25 3d |d`A... .| ftype%=|
|00000780| 31 20 8c 20 f2 66 69 64 | 73 28 a3 29 3a e5 20 8d |1 . .fid|s(.):. .|
|00000790| 64 60 41 0d 01 d6 39 e7 | 20 66 74 79 70 65 25 3d |d`A...9.| ftype%=|
|000007a0| 32 20 f2 66 69 64 73 28 | b9 29 3a e7 20 a4 52 45 |2 .fids(|.):. .RE|
|000007b0| 43 55 52 53 45 44 4f 57 | 4e 3a f2 63 6f 70 79 3a |CURSEDOW|N:.copy:|
|000007c0| f2 52 45 43 55 52 53 45 | 42 41 43 4b 0d 01 e0 1a |.RECURSE|BACK....|
|000007d0| 66 66 73 65 74 25 3d 66 | 66 73 65 74 25 2b 31 3a |ffset%=f|fset%+1:|
|000007e0| e5 20 8d 44 7c 41 0d 01 | ea 05 e1 0d 01 f4 05 3a |. .D|A..|.......:|
|000007f0| 0d 01 fe 11 dd a4 52 45 | 43 55 52 53 45 44 4f 57 |......RE|CURSEDOW|
|00000800| 4e 0d 02 08 0f 6f 66 66 | 6e 61 6d 65 24 3d 22 22 |N....off|name$=""|
|00000810| 0d 02 12 1f 24 6e 65 77 | 70 61 74 68 25 3d 24 70 |....$new|path%=$p|
|00000820| 61 74 68 25 2b 22 2e 22 | 2b 24 6e 61 6d 65 25 0d |ath%+"."|+$name%.|
|00000830| 02 1c 1f 24 6e 65 77 64 | 65 73 74 25 3d 24 64 65 |...$newd|est%=$de|
|00000840| 73 74 25 2b 22 2e 22 2b | 24 6e 61 6d 65 25 0d 02 |st%+"."+|$name%..|
|00000850| 26 0c 6d 61 74 63 68 25 | 3d a3 0d 02 30 15 e7 20 |&.match%|=...0.. |
|00000860| 68 61 74 65 73 25 3d 30 | 20 e5 20 8d 44 58 42 0d |hates%=0| . .DXB.|
|00000870| 02 3a 18 e3 63 68 65 63 | 6b 25 3d 30 20 b8 20 68 |.:..chec|k%=0 . h|
|00000880| 61 74 65 73 25 2d 31 0d | 02 44 68 e7 20 a4 75 5f |ates%-1.|.Dh. .u_|
|00000890| 63 61 73 65 28 c2 24 6e | 65 77 70 61 74 68 25 2c |case(.$n|ewpath%,|
|000008a0| a9 28 68 61 74 65 24 28 | 63 68 65 63 6b 25 29 29 |.(hate$(|check%))|
|000008b0| 29 29 3d 68 61 74 65 24 | 28 63 68 65 63 6b 25 29 |))=hate$|(check%)|
|000008c0| 20 8c 20 f1 22 4e 6f 74 | 20 63 6f 70 79 69 6e 67 | . ."Not| copying|
|000008d0| 20 64 69 72 65 63 74 6f | 72 79 20 22 2b 24 6e 65 | directo|ry "+$ne|
|000008e0| 77 70 61 74 68 25 3a 6d | 61 74 63 68 25 3d b9 0d |wpath%:m|atch%=..|
|000008f0| 02 4e 05 ed 0d 02 58 10 | e7 20 6d 61 74 63 68 25 |.N....X.|. match%|
|00000900| 20 8c 3d a3 0d 02 62 0f | f2 64 65 73 74 5f 64 72 | .=...b.|.dest_dr|
|00000910| 69 76 65 0d 02 6c 21 c8 | 99 20 22 4f 53 5f 46 69 |ive..l!.|. "OS_Fi|
|00000920| 6c 65 22 2c 35 2c 6e 65 | 77 64 65 73 74 25 20 b8 |le",5,ne|wdest% .|
|00000930| 20 52 30 25 0d 02 76 51 | e7 20 52 30 25 3d 30 20 | R0%..vQ|. R0%=0 |
|00000940| 8c 20 f1 27 27 c4 33 39 | 2c 22 2a 22 29 27 22 43 |. .''.39|,"*")'"C|
|00000950| 72 65 61 74 69 6e 67 20 | 22 2b 24 6e 65 77 64 65 |reating |"+$newde|
|00000960| 73 74 25 27 c4 33 39 2c | 22 2a 22 29 27 3a ff 28 |st%'.39,|"*")':.(|
|00000970| 22 43 64 69 72 20 22 2b | 24 6e 61 6d 65 25 29 3a |"Cdir "+|$name%):|
|00000980| e5 8d 74 4a 42 0d 02 80 | 76 e7 20 52 30 25 3d 32 |..tJB...|v. R0%=2|
|00000990| 20 8b 20 f1 27 22 43 61 | 6e 27 74 20 63 72 65 61 | . .'"Ca|n't crea|
|000009a0| 74 65 20 64 69 72 65 63 | 74 6f 72 79 20 22 2b 24 |te direc|tory "+$|
|000009b0| 6e 65 77 64 65 73 74 25 | 2b 22 20 2c 20 66 69 6c |newdest%|+" , fil|
|000009c0| 65 20 6f 66 20 74 68 69 | 73 20 6e 61 6d 65 20 65 |e of thi|s name e|
|000009d0| 78 69 73 74 73 22 3a e7 | a4 6c 6f 63 6b 65 64 28 |xists":.|.locked(|
|000009e0| 24 6e 61 6d 65 25 2c b9 | 29 20 8c 3d a3 20 8b 20 |$name%,.|) .=. . |
|000009f0| 72 25 3d 30 3a e5 20 8d | 44 76 42 0d 02 8a 2c 24 |r%=0:. .|DvB...,$|
|00000a00| 70 61 74 68 25 3d 24 6e | 65 77 70 61 74 68 25 3a |path%=$n|ewpath%:|
|00000a10| 24 64 65 73 74 25 3d 24 | 6e 65 77 64 65 73 74 25 |$dest%=$|newdest%|
|00000a20| 3a 64 69 72 25 3d a3 0d | 02 94 06 3d b9 0d 02 9e |:dir%=..|...=....|
|00000a30| 05 3a 0d 02 a8 11 dd f2 | 52 45 43 55 52 53 45 42 |.:......|RECURSEB|
|00000a40| 41 43 4b 0d 02 b2 11 f2 | 73 6f 75 72 63 65 5f 64 |ACK.....|source_d|
|00000a50| 72 69 76 65 0d 02 bc 13 | f2 53 48 4f 52 54 45 4e |rive....|.SHORTEN|
|00000a60| 28 70 61 74 68 25 29 0d | 02 c6 0e ff 28 22 64 69 |(path%).|....("di|
|00000a70| 72 20 5e 22 29 0d 02 d0 | 13 f2 53 48 4f 52 54 45 |r ^")...|..SHORTE|
|00000a80| 4e 28 64 65 73 74 25 29 | 0d 02 da 11 24 6e 61 6d |N(dest%)|....$nam|
|00000a90| 65 25 3d 24 72 65 73 74 | 25 0d 02 e4 05 e1 0d 02 |e%=$rest|%.......|
|00000aa0| ee 05 3a 0d 02 f8 12 dd | f2 73 6f 75 72 63 65 5f |..:.....|.source_|
|00000ab0| 64 72 69 76 65 0d 03 02 | 19 e7 20 73 6f 75 64 72 |drive...|.. soudr|
|00000ac0| 69 76 65 25 3d 31 20 20 | e5 20 8d 54 6a 43 0d 03 |ive%=1  |. .TjC..|
|00000ad0| 0c 17 e7 20 70 72 6f 6d | 70 74 73 25 3d a3 20 e5 |... prom|pts%=. .|
|00000ae0| 20 8d 54 60 43 0d 03 16 | 3a f1 27 22 50 6c 65 61 | .T`C...|:.'"Plea|
|00000af0| 73 65 20 70 75 74 20 73 | 6f 75 72 63 65 20 64 69 |se put s|ource di|
|00000b00| 73 63 20 69 6e 74 6f 20 | 64 72 69 76 65 20 22 2b |sc into |drive "+|
|00000b10| 73 64 72 69 76 65 24 3a | f2 52 45 54 55 52 4e 0d |sdrive$:|.RETURN.|
|00000b20| 03 20 16 64 69 72 25 3d | a3 3a 73 6f 75 64 72 69 |. .dir%=|.:soudri|
|00000b30| 76 65 25 3d 31 0d 03 2a | 24 e7 20 64 69 72 25 20 |ve%=1..*|$. dir% |
|00000b40| 8b 20 ff 28 22 44 49 52 | 20 22 2b 24 70 61 74 68 |. .("DIR| "+$path|
|00000b50| 25 29 3a 64 69 72 25 3d | b9 0d 03 34 05 e1 0d 03 |%):dir%=|...4....|
|00000b60| 3e 05 3a 0d 03 48 10 dd | f2 64 65 73 74 5f 64 72 |>.:..H..|.dest_dr|
|00000b70| 69 76 65 0d 03 52 19 e7 | 20 73 6f 75 64 72 69 76 |ive..R..| soudriv|
|00000b80| 65 25 3d 30 20 20 e5 20 | 8d 44 7a 43 0d 03 5c 17 |e%=0  . |.DzC..\.|
|00000b90| e7 20 70 72 6f 6d 70 74 | 73 25 3d a3 20 e5 20 8d |. prompt|s%=. . .|
|00000ba0| 44 70 43 0d 03 66 3f f1 | 27 22 50 6c 65 61 73 65 |DpC..f?.|'"Please|
|00000bb0| 20 70 75 74 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | put des|tination|
|00000bc0| 20 64 69 73 63 20 69 6e | 74 6f 20 64 72 69 76 65 | disc in|to drive|
|00000bd0| 20 22 2b 64 64 72 69 76 | 65 24 3a f2 52 45 54 55 | "+ddriv|e$:.RETU|
|00000be0| 52 4e 0d 03 70 16 64 69 | 72 25 3d a3 3a 73 6f 75 |RN..p.di|r%=.:sou|
|00000bf0| 64 72 69 76 65 25 3d 30 | 0d 03 7a 24 e7 20 64 69 |drive%=0|..z$. di|
|00000c00| 72 25 20 8b 20 ff 28 22 | 44 49 52 20 22 2b 24 64 |r% . .("|DIR "+$d|
|00000c10| 65 73 74 25 29 3a 64 69 | 72 25 3d b9 0d 03 84 05 |est%):di|r%=.....|
|00000c20| e1 0d 03 8e 05 3a 0d 03 | 98 0c dd f2 52 45 54 55 |.....:..|....RETU|
|00000c30| 52 4e 0d 03 a2 0b 2a 66 | 78 31 35 2c 31 0d 03 ac |RN....*f|x15,1...|
|00000c40| 27 f1 22 50 72 65 73 73 | 20 52 45 54 55 52 4e 20 |'."Press| RETURN |
|00000c50| 77 68 65 6e 20 72 65 61 | 64 79 22 3b 3a f5 3a fd |when rea|dy";:.:.|
|00000c60| a5 3d 31 33 0d 03 b6 07 | f1 3a e1 0d 03 c0 05 3a |.=13....|.:.....:|
|00000c70| 0d 03 ca 11 dd a4 53 54 | 41 52 53 28 73 75 6e 24 |......ST|ARS(sun$|
|00000c80| 29 0d 03 d4 0b 73 74 61 | 72 25 3d a3 0d 03 de 1c |)....sta|r%=.....|
|00000c90| e7 20 c0 73 75 6e 24 2c | 31 29 3d 22 2a 22 20 8c |. .sun$,|1)="*" .|
|00000ca0| 20 ff 28 73 75 6e 24 29 | 0d 03 e8 2b e7 20 a9 28 | .(sun$)|...+. .(|
|00000cb0| 73 75 6e 24 29 3d 31 20 | e7 20 a7 22 51 71 30 31 |sun$)=1 |. ."Qq01|
|00000cc0| 34 35 22 2c 73 75 6e 24 | 29 20 8c 20 73 74 61 72 |45",sun$|) . star|
|00000cd0| 25 3d b9 0d 03 f2 0a 3d | 73 74 61 72 25 0d 03 fc |%=.....=|star%...|
|00000ce0| 05 3a 0d 04 06 13 dd f2 | 53 48 4f 52 54 45 4e 28 |.:......|SHORTEN(|
|00000cf0| 73 74 72 25 29 0d 04 10 | 0f 49 25 3d a9 28 24 73 |str%)...|.I%=.($s|
|00000d00| 74 72 25 29 0d 04 1a 0c | f5 49 25 3d 49 25 2d 31 |tr%)....|.I%=I%-1|
|00000d10| 0d 04 24 11 fd 73 74 72 | 25 3f 49 25 3d 97 22 2e |..$..str|%?I%=.".|
|00000d20| 22 0d 04 2e 0e 73 74 72 | 25 3f 49 25 3d 26 44 0d |"....str|%?I%=&D.|
|00000d30| 04 38 13 72 65 73 74 25 | 3d 73 74 72 25 2b 49 25 |.8.rest%|=str%+I%|
|00000d40| 2b 31 0d 04 42 05 e1 0d | 04 4c 05 3a 0d 04 56 0a |+1..B...|.L.:..V.|
|00000d50| dd f2 48 41 54 45 0d 04 | 60 37 f1 27 22 50 6c 65 |..HATE..|`7.'"Ple|
|00000d60| 61 73 65 20 69 6e 70 75 | 74 20 73 75 62 2d 64 69 |ase inpu|t sub-di|
|00000d70| 72 65 63 74 6f 72 69 65 | 73 22 27 22 6e 6f 74 20 |rectorie|s"'"not |
|00000d80| 74 6f 20 62 65 20 63 6f | 70 69 65 64 22 0d 04 6a |to be co|pied"..j|
|00000d90| 0c 68 61 74 65 73 25 3d | 30 0d 04 74 3c e8 20 68 |.hates%=|0..t<. h|
|00000da0| 61 74 65 24 28 68 61 74 | 65 73 25 29 3a 68 61 74 |ate$(hat|es%):hat|
|00000db0| 65 24 28 68 61 74 65 73 | 25 29 3d 22 2e 22 2b a4 |e$(hates|%)="."+.|
|00000dc0| 75 5f 63 61 73 65 28 68 | 61 74 65 24 28 68 61 74 |u_case(h|ate$(hat|
|00000dd0| 65 73 25 29 29 0d 04 7e | 32 e7 20 28 68 61 74 65 |es%))..~|2. (hate|
|00000de0| 24 28 68 61 74 65 73 25 | 29 3d 22 2e 22 20 84 20 |$(hates%|)="." . |
|00000df0| 68 61 74 65 24 28 68 61 | 74 65 73 25 29 3d 22 2e |hate$(ha|tes%)=".|
|00000e00| 2e 22 29 20 8c 20 e1 0d | 04 88 25 68 61 74 65 73 |.") . ..|..%hates|
|00000e10| 25 3d 68 61 74 65 73 25 | 2b 31 3a e7 68 61 74 65 |%=hates%|+1:.hate|
|00000e20| 73 25 3c 31 30 20 e5 20 | 8d 44 74 44 0d 04 92 05 |s%<10 . |.DtD....|
|00000e30| e1 0d 04 9c 05 3a 0d 04 | a6 15 dd a4 75 5f 63 61 |.....:..|....u_ca|
|00000e40| 73 65 28 24 63 6c 69 6e | 65 25 29 0d 04 b0 19 e3 |se($clin|e%).....|
|00000e50| 43 43 25 3d 30 20 b8 20 | a9 28 24 63 6c 69 6e 65 |CC%=0 . |.($cline|
|00000e60| 25 29 2d 31 0d 04 ba 1a | 63 68 61 72 25 3d 63 6c |%)-1....|char%=cl|
|00000e70| 69 6e 65 25 3f 43 43 25 | 20 80 20 26 44 46 0d 04 |ine%?CC%| . &DF..|
|00000e80| c4 2f e7 63 68 61 72 25 | 3e 3d 97 22 41 22 20 e7 |./.char%|>=."A" .|
|00000e90| 20 63 68 61 72 25 3c 3d | 97 22 5a 22 20 63 6c 69 | char%<=|."Z" cli|
|00000ea0| 6e 65 25 3f 43 43 25 3d | 63 68 61 72 25 0d 04 ce |ne%?CC%=|char%...|
|00000eb0| 05 ed 0d 04 d8 0c 3d 24 | 63 6c 69 6e 65 25 0d 04 |......=$|cline%..|
|00000ec0| e2 05 3a 0d 04 ec 13 dd | f2 66 69 64 73 28 75 70 |..:.....|.fids(up|
|00000ed0| 64 6f 77 6e 25 29 0d 04 | f6 1e e7 20 75 70 64 6f |down%)..|... updo|
|00000ee0| 77 6e 25 20 8c 20 f2 65 | 6d 70 74 79 5f 73 74 6f |wn% . .e|mpty_sto|
|00000ef0| 72 65 3a e1 0d 05 00 23 | e7 20 73 6c 65 76 25 3d |re:....#|. slev%=|
|00000f00| 39 20 8c 20 f2 65 6d 70 | 74 79 5f 73 74 6f 72 65 |9 . .emp|ty_store|
|00000f10| 3a e5 20 8d 64 76 44 0d | 05 0a 40 e7 20 6c 65 6e |:. .dvD.|..@. len|
|00000f20| 67 74 68 25 3e 73 74 6c | 65 66 74 25 20 8c 20 f2 |gth%>stl|eft% . .|
|00000f30| 65 6d 70 74 79 5f 73 74 | 6f 72 65 3a e7 20 6c 65 |empty_st|ore:. le|
|00000f40| 6e 67 74 68 25 3e 73 74 | 6c 65 66 74 25 20 f2 42 |ngth%>st|left% .B|
|00000f50| 49 47 4f 4e 45 3a e1 0d | 05 14 10 f2 69 6e 73 65 |IGONE:..|....inse|
|00000f60| 72 74 5f 66 69 6c 65 0d | 05 1e 05 e1 0d 05 28 05 |rt_file.|......(.|
|00000f70| 3a 0d 05 32 0c dd f2 42 | 49 47 4f 4e 45 0d 05 3c |:..2...B|IGONE..<|
|00000f80| 0f f2 64 65 73 74 5f 64 | 72 69 76 65 0d 05 46 19 |..dest_d|rive..F.|
|00000f90| e7 20 a4 6c 6f 63 6b 65 | 64 28 24 6e 61 6d 65 25 |. .locke|d($name%|
|00000fa0| 2c a3 29 20 e1 0d 05 50 | 4d f1 22 43 6f 70 79 69 |,.) ...P|M."Copyi|
|00000fb0| 6e 67 20 22 2b 24 70 61 | 74 68 25 2b 22 2e 22 2b |ng "+$pa|th%+"."+|
|00000fc0| 24 6e 61 6d 65 25 2b 22 | 20 61 73 20 22 2b 24 64 |$name%+"| as "+$d|
|00000fd0| 65 73 74 25 2b 22 2e 22 | 2b 24 6e 61 6d 65 25 3a |est%+"."|+$name%:|
|00000fe0| 63 68 75 6e 6b 73 25 3d | 30 3a 6f 74 79 70 65 25 |chunks%=|0:otype%|
|00000ff0| 3d 30 0d 05 5a 05 f5 0d | 05 64 73 e7 20 6c 65 6e |=0..Z...|.ds. len|
|00001000| 67 74 68 25 3c 62 75 66 | 66 73 69 7a 25 20 8c 20 |gth%<buf|fsiz% . |
|00001010| f2 48 45 42 47 42 28 24 | 6e 61 6d 65 25 2c 33 2c |.HEBGB($|name%,3,|
|00001020| 6c 65 6e 67 74 68 25 2c | 28 63 68 75 6e 6b 73 25 |length%,|(chunks%|
|00001030| 2a 62 75 66 66 73 69 7a | 25 29 29 20 8b 20 f2 48 |*buffsiz|%)) . .H|
|00001040| 45 42 47 42 28 24 6e 61 | 6d 65 25 2c 33 2c 62 75 |EBGB($na|me%,3,bu|
|00001050| 66 66 73 69 7a 25 2c 28 | 63 68 75 6e 6b 73 25 2a |ffsiz%,(|chunks%*|
|00001060| 62 75 66 66 73 69 7a 25 | 29 29 0d 05 6e 73 e7 20 |buffsiz%|))..ns. |
|00001070| 6c 65 6e 67 74 68 25 3c | 62 75 66 66 73 69 7a 25 |length%<|buffsiz%|
|00001080| 20 8c 20 f2 48 45 42 47 | 42 28 24 6e 61 6d 65 25 | . .HEBG|B($name%|
|00001090| 2c 31 2c 6c 65 6e 67 74 | 68 25 2c 28 63 68 75 6e |,1,lengt|h%,(chun|
|000010a0| 6b 73 25 2a 62 75 66 66 | 73 69 7a 25 29 29 20 8b |ks%*buff|siz%)) .|
|000010b0| 20 f2 48 45 42 47 42 28 | 24 6e 61 6d 65 25 2c 31 | .HEBGB(|$name%,1|
|000010c0| 2c 62 75 66 66 73 69 7a | 25 2c 28 63 68 75 6e 6b |,buffsiz|%,(chunk|
|000010d0| 73 25 2a 62 75 66 66 73 | 69 7a 25 29 29 0d 05 78 |s%*buffs|iz%))..x|
|000010e0| 37 63 68 75 6e 6b 73 25 | 3d 63 68 75 6e 6b 73 25 |7chunks%|=chunks%|
|000010f0| 2b 31 3a 6c 65 6e 67 74 | 68 25 3d 6c 65 6e 67 74 |+1:lengt|h%=lengt|
|00001100| 68 25 2d 62 75 66 66 73 | 69 7a 25 3a 6f 74 79 70 |h%-buffs|iz%:otyp|
|00001110| 65 25 3d 31 0d 05 82 0e | fd 6c 65 6e 67 74 68 25 |e%=1....|.length%|
|00001120| 3c 30 0d 05 8c 42 e7 20 | 70 72 6f 6d 70 74 73 25 |<0...B. |prompts%|
|00001130| 20 8b 20 f2 73 6f 75 72 | 63 65 5f 64 72 69 76 65 | . .sour|ce_drive|
|00001140| 3a d9 23 48 42 25 3a 48 | 42 25 3d 30 3a f2 64 65 |:.#HB%:H|B%=0:.de|
|00001150| 73 74 5f 64 72 69 76 65 | 3a d9 23 48 41 25 3a 48 |st_drive|:.#HA%:H|
|00001160| 41 25 3d 30 0d 05 96 1d | 24 66 69 6c 65 73 25 3d |A%=0....|$files%=|
|00001170| 24 64 65 73 74 25 2b 22 | 2e 22 2b 24 6e 61 6d 65 |$dest%+"|."+$name|
|00001180| 25 0d 05 a0 33 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |%...3.. |"OS_File|
|00001190| 22 2c 31 2c 66 69 6c 65 | 73 25 2c 6c 6f 61 64 25 |",1,file|s%,load%|
|000011a0| 2c 65 78 65 63 25 2c 6c | 65 6e 67 74 68 25 2c 61 |,exec%,l|ength%,a|
|000011b0| 74 74 73 25 0d 05 aa 05 | e1 0d 05 b4 05 3a 0d 05 |tts%....|.....:..|
|000011c0| be 27 dd f2 48 45 42 47 | 42 28 54 48 49 4e 47 24 |.'..HEBG|B(THING$|
|000011d0| 2c 54 59 50 45 25 2c 4c | 4f 4e 47 25 2c 53 45 54 |,TYPE%,L|ONG%,SET|
|000011e0| 4f 46 46 25 29 0d 05 c8 | 2b e7 20 54 59 50 45 25 |OFF%)...|+. TYPE%|
|000011f0| 3e 32 20 8c 20 f2 73 6f | 75 72 63 65 5f 64 72 69 |>2 . .so|urce_dri|
|00001200| 76 65 20 8b 20 f2 64 65 | 73 74 5f 64 72 69 76 65 |ve . .de|st_drive|
|00001210| 0d 05 d2 53 e7 20 6f 74 | 79 70 65 25 20 8b 20 e7 |...S. ot|ype% . .|
|00001220| 20 54 59 50 45 25 3e 32 | 20 48 42 25 3d 8e 28 54 | TYPE%>2| HB%=.(T|
|00001230| 48 49 4e 47 24 29 20 8b | 20 ff 28 22 43 52 45 41 |HING$) .| .("CREA|
|00001240| 54 45 20 22 2b 54 48 49 | 4e 47 24 2b c3 7e 6c 65 |TE "+THI|NG$+.~le|
|00001250| 6e 67 74 68 25 29 3a 48 | 41 25 3d ae 20 54 48 49 |ngth%):H|A%=. THI|
|00001260| 4e 47 24 0d 05 dc 4e e7 | 20 6f 74 79 70 65 25 3d |NG$...N.| otype%=|
|00001270| 30 20 8b 20 e7 20 70 72 | 6f 6d 70 74 73 25 3d a3 |0 . . pr|ompts%=.|
|00001280| 20 8b 20 e7 20 54 59 50 | 45 25 3e 32 20 8c 20 48 | . . TYP|E%>2 . H|
|00001290| 42 25 3d a4 6f 70 65 6e | 69 6e 28 54 48 49 4e 47 |B%=.open|in(THING|
|000012a0| 24 29 20 8b 20 48 41 25 | 3d ad 20 54 48 49 4e 47 |$) . HA%|=. THING|
|000012b0| 24 0d 05 e6 29 e7 20 54 | 59 50 45 25 3e 32 20 8c |$...). T|YPE%>2 .|
|000012c0| 20 68 61 6e 64 6c 65 25 | 3d 48 42 25 20 8b 20 68 | handle%|=HB% . h|
|000012d0| 61 6e 64 6c 65 25 3d 48 | 41 25 0d 05 f0 33 c8 99 |andle%=H|A%...3..|
|000012e0| 20 22 4f 53 5f 47 42 50 | 42 22 2c 54 59 50 45 2c | "OS_GBP|B",TYPE,|
|000012f0| 68 61 6e 64 6c 65 25 2c | 62 75 66 66 65 72 25 2c |handle%,|buffer%,|
|00001300| 4c 4f 4e 47 25 2c 53 45 | 54 4f 46 46 25 0d 05 fa |LONG%,SE|TOFF%...|
|00001310| 38 e7 20 70 72 6f 6d 70 | 74 73 25 3d a3 20 8b 20 |8. promp|ts%=. . |
|00001320| e7 20 54 59 50 45 25 3e | 32 20 8c 20 d9 23 48 42 |. TYPE%>|2 . .#HB|
|00001330| 25 3a 48 42 25 3d 30 20 | 8b 20 d9 23 48 41 25 3a |%:HB%=0 |. .#HA%:|
|00001340| 48 41 25 3d 30 0d 06 04 | 05 e1 0d 06 0e 05 3a 0d |HA%=0...|......:.|
|00001350| 06 18 11 dd f2 69 6e 73 | 65 72 74 5f 66 69 6c 65 |.....ins|ert_file|
|00001360| 0d 06 22 11 f2 73 6f 75 | 72 63 65 5f 64 72 69 76 |.."..sou|rce_driv|
|00001370| 65 0d 06 2c 8f 73 6c 65 | 76 25 3d 73 6c 65 76 25 |e..,.sle|v%=slev%|
|00001380| 2b 31 3a 73 74 6f 72 65 | 24 28 73 6c 65 76 25 29 |+1:store|$(slev%)|
|00001390| 3d 24 6e 61 6d 65 25 3a | 73 6c 6f 61 64 25 28 73 |=$name%:|sload%(s|
|000013a0| 6c 65 76 25 29 3d 6c 6f | 61 64 25 3a 73 65 78 65 |lev%)=lo|ad%:sexe|
|000013b0| 63 25 28 73 6c 65 76 25 | 29 3d 65 78 65 63 25 3a |c%(slev%|)=exec%:|
|000013c0| 73 6c 6e 74 68 25 28 73 | 6c 65 76 25 29 3d 6c 65 |slnth%(s|lev%)=le|
|000013d0| 6e 67 74 68 25 3a 73 61 | 74 74 73 25 28 73 6c 65 |ngth%:sa|tts%(sle|
|000013e0| 76 25 29 3d 61 74 74 73 | 25 3a 73 70 6f 73 73 25 |v%)=atts|%:sposs%|
|000013f0| 28 73 6c 65 76 25 29 3d | 62 75 66 66 70 6f 73 25 |(slev%)=|buffpos%|
|00001400| 0d 06 36 21 f1 22 52 65 | 61 64 69 6e 67 20 22 2b |..6!."Re|ading "+|
|00001410| 24 70 61 74 68 25 2b 22 | 2e 22 2b 24 6e 61 6d 65 |$path%+"|."+$name|
|00001420| 25 0d 06 40 26 ff 28 22 | 4c 4f 41 44 20 22 2b 24 |%..@&.("|LOAD "+$|
|00001430| 6e 61 6d 65 25 2b 22 20 | 22 2b c3 7e 28 62 75 66 |name%+" |"+.~(buf|
|00001440| 66 70 6f 73 25 29 29 0d | 06 4a 35 62 75 66 66 70 |fpos%)).|.J5buffp|
|00001450| 6f 73 25 3d 62 75 66 66 | 70 6f 73 25 2b 6c 65 6e |os%=buff|pos%+len|
|00001460| 67 74 68 25 3a 73 74 6c | 65 66 74 25 3d 73 74 6c |gth%:stl|eft%=stl|
|00001470| 65 66 74 25 2d 6c 65 6e | 67 74 68 25 0d 06 54 05 |eft%-len|gth%..T.|
|00001480| e1 0d 06 5e 05 3a 0d 06 | 68 11 dd f2 65 6d 70 74 |...^.:..|h...empt|
|00001490| 79 5f 73 74 6f 72 65 0d | 06 72 12 e7 20 73 6c 65 |y_store.|.r.. sle|
|000014a0| 76 25 3d 2d 31 20 8c 20 | e1 0d 06 7c 0f f2 64 65 |v%=-1 . |...|..de|
|000014b0| 73 74 5f 64 72 69 76 65 | 0d 06 86 0f e3 49 25 3d |st_drive|.....I%=|
|000014c0| 30 b8 73 6c 65 76 25 0d | 06 90 21 e7 20 a4 6c 6f |0.slev%.|..!. .lo|
|000014d0| 63 6b 65 64 28 73 74 6f | 72 65 24 28 49 25 29 2c |cked(sto|re$(I%),|
|000014e0| a3 29 20 e5 8d 64 4c 46 | 0d 06 9a 25 f1 22 57 72 |.) ..dLF|...%."Wr|
|000014f0| 69 74 69 6e 67 20 22 2b | 24 64 65 73 74 25 2b 22 |iting "+|$dest%+"|
|00001500| 2e 22 2b 73 74 6f 72 65 | 24 28 49 25 29 0d 06 a4 |."+store|$(I%)...|
|00001510| 65 ff 28 22 53 41 56 45 | 20 22 2b 73 74 6f 72 65 |e.("SAVE| "+store|
|00001520| 24 28 49 25 29 2b 22 20 | 22 2b c3 7e 28 73 70 6f |$(I%)+" |"+.~(spo|
|00001530| 73 73 25 28 49 25 29 29 | 2b 22 2b 22 2b c3 7e 28 |ss%(I%))|+"+"+.~(|
|00001540| 73 6c 6e 74 68 25 28 49 | 25 29 29 2b 22 20 22 2b |slnth%(I|%))+" "+|
|00001550| c3 7e 28 73 65 78 65 63 | 25 28 49 25 29 29 2b 22 |.~(sexec|%(I%))+"|
|00001560| 20 22 2b c3 7e 28 73 6c | 6f 61 64 25 28 49 25 29 | "+.~(sl|oad%(I%)|
|00001570| 29 29 0d 06 ae 20 e7 20 | 73 61 74 74 73 25 28 49 |))... . |satts%(I|
|00001580| 25 29 20 80 20 26 42 3d | 33 20 8c 20 e5 20 8d 64 |%) . &B=|3 . . .d|
|00001590| 4c 46 0d 06 b8 16 24 66 | 69 6c 65 73 25 3d 73 74 |LF....$f|iles%=st|
|000015a0| 6f 72 65 24 28 49 25 29 | 0d 06 c2 2a c8 99 20 22 |ore$(I%)|...*.. "|
|000015b0| 4f 53 5f 46 69 6c 65 22 | 2c 34 2c 66 69 6c 65 73 |OS_File"|,4,files|
|000015c0| 25 2c 30 2c 30 2c 30 2c | 73 61 74 74 73 25 28 49 |%,0,0,0,|satts%(I|
|000015d0| 25 29 0d 06 cc 07 ed 49 | 25 0d 06 d6 2e 62 75 66 |%).....I|%....buf|
|000015e0| 66 70 6f 73 25 3d 62 75 | 66 66 65 72 25 3a 73 74 |fpos%=bu|ffer%:st|
|000015f0| 6c 65 66 74 25 3d 62 75 | 66 66 73 69 7a 25 3a 73 |left%=bu|ffsiz%:s|
|00001600| 6c 65 76 25 3d 2d 31 0d | 06 e0 05 e1 0d 06 ea 05 |lev%=-1.|........|
|00001610| 3a 0d 06 f4 1d dd 20 a4 | 6c 6f 63 6b 65 64 28 24 |:..... .|locked($|
|00001620| 73 74 72 69 6e 67 25 2c | 69 73 64 69 72 29 0d 06 |string%,|isdir)..|
|00001630| fe 12 e7 20 69 73 64 69 | 72 20 e5 20 8d 54 7a 47 |... isdi|r . .TzG|
|00001640| 0d 07 08 33 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...3.. "|OS_File"|
|00001650| 2c 35 2c 73 74 72 69 6e | 67 25 20 b8 20 41 25 2c |,5,strin|g% . A%,|
|00001660| 52 31 25 2c 52 32 25 2c | 52 33 25 2c 52 34 25 2c |R1%,R2%,|R3%,R4%,|
|00001670| 52 35 25 0d 07 12 11 61 | 74 74 25 3d 28 52 35 25 |R5%....a|tt%=(R5%|
|00001680| 80 26 41 29 0d 07 1c 23 | e7 20 28 41 25 3d 30 29 |.&A)...#|. (A%=0)|
|00001690| 20 84 20 28 41 25 3d 31 | 20 80 20 61 74 74 25 3d | . (A%=1| . att%=|
|000016a0| 32 29 20 8c 20 3d a3 0d | 07 26 74 e7 20 41 25 3d |2) . =..|.&t. A%=|
|000016b0| 32 20 f1 3b 22 43 61 6e | 27 74 20 77 72 69 74 65 |2 .;"Can|'t write|
|000016c0| 20 66 69 6c 65 20 22 3b | 24 73 74 72 69 6e 67 25 | file ";|$string%|
|000016d0| 3b 22 20 2c 20 64 69 72 | 65 63 74 6f 72 79 20 6f |;" , dir|ectory o|
|000016e0| 66 20 74 68 69 73 20 6e | 61 6d 65 20 65 78 69 73 |f this n|ame exis|
|000016f0| 74 73 22 27 22 50 52 45 | 53 53 20 53 50 41 43 45 |ts"'"PRE|SS SPACE|
|00001700| 20 42 41 52 20 54 4f 20 | 43 4f 4e 54 49 4e 55 45 | BAR TO |CONTINUE|
|00001710| 22 3a f5 fd a6 2d 39 39 | 3a 3d b9 0d 07 30 30 f1 |":...-99|:=...00.|
|00001720| 20 22 44 65 73 74 69 6e | 61 74 69 6f 6e 20 22 3b | "Destin|ation ";|
|00001730| 24 73 74 72 69 6e 67 25 | 3b 22 20 77 72 69 74 65 |$string%|;" write|
|00001740| 20 70 72 6f 74 65 63 74 | 65 64 22 0d 07 3a 1a f1 | protect|ed"..:..|
|00001750| 20 22 4f 56 45 52 57 52 | 49 54 45 20 28 59 2f 4e | "OVERWR|ITE (Y/N|
|00001760| 29 20 3f 22 3b 0d 07 44 | 0d e7 20 a4 59 4e 20 8b |) ?";..D|.. .YN .|
|00001770| 3d b9 0d 07 4e 20 f1 20 | 22 41 52 45 20 59 4f 55 |=...N . |"ARE YOU|
|00001780| 20 43 45 52 54 41 49 4e | 20 28 59 2f 4e 29 20 3f | CERTAIN| (Y/N) ?|
|00001790| 22 3b 0d 07 58 0d e7 20 | a4 59 4e 20 8b 3d b9 0d |";..X.. |.YN .=..|
|000017a0| 07 62 19 ff 28 22 41 43 | 43 45 53 53 20 22 2b 24 |.b..("AC|CESS "+$|
|000017b0| 73 74 72 69 6e 67 25 29 | 0d 07 6c 19 ff 28 22 44 |string%)|..l..("D|
|000017c0| 45 4c 45 54 45 20 22 2b | 24 73 74 72 69 6e 67 25 |ELETE "+|$string%|
|000017d0| 29 0d 07 76 06 3d a3 0d | 07 80 05 3a 0d 07 8a 08 |)..v.=..|...:....|
|000017e0| dd a4 59 4e 0d 07 94 0b | 2a 46 58 31 35 2c 31 0d |..YN....|*FX15,1.|
|000017f0| 07 9e 2a f5 20 52 24 3d | be 3a 72 65 70 6c 79 3d |..*. R$=|.:reply=|
|00001800| a7 22 2a 4e 6e 59 79 22 | 2c 52 24 29 3a fd 72 65 |."*NnYy"|,R$):.re|
|00001810| 70 6c 79 3e 31 3a f1 52 | 24 0d 07 a8 0c 3d 72 65 |ply>1:.R|$....=re|
|00001820| 70 6c 79 3e 33 0d 07 b2 | 05 3a 0d 07 bc 0c dd f2 |ply>3...|.:......|
|00001830| 65 72 72 6f 72 73 0d 07 | c6 0f f6 3a f1 3b 22 20 |errors..|...:.;" |
|00001840| 40 20 22 3b 9e 0d 07 d0 | 1d e7 20 48 41 25 20 68 |@ ";....|.. HA% h|
|00001850| 61 25 3d 48 41 25 3a 48 | 41 25 3d 30 3a d9 23 68 |a%=HA%:H|A%=0:.#h|
|00001860| 61 25 0d 07 da 1d e7 20 | 48 42 25 20 68 62 25 3d |a%..... |HB% hb%=|
|00001870| 48 42 25 3a 48 42 25 3d | 30 3a d9 23 68 62 25 0d |HB%:HB%=|0:.#hb%.|
|00001880| 07 e4 19 e7 20 9f 3d 31 | 37 20 84 20 9f 3d 26 43 |.... .=1|7 . .=&C|
|00001890| 36 20 e5 20 8d 44 54 41 | 0d 07 ee 05 e1 0d ff    |6 . .DTA|....... |
+--------+-------------------------+-------------------------+--------+--------+