00000000  20 20 20 20 20 20 20 20  20 20 20 20 2a 2a 20 44  |            ** D|
00000010  49 52 43 4f 50 59 20 2a  2a 0d 0d 44 49 52 43 4f  |IRCOPY **..DIRCO|
00000020  50 59 20 69 73 20 61 20  42 41 53 49 43 20 70 72  |PY is a BASIC pr|
00000030  6f 67 72 61 6d 20 75 73  65 64 20 74 6f 20 63 6f  |ogram used to co|
00000040  70 79 0d 74 68 65 20 20  65 6e 74 69 72 65 20 20  |py.the  entire  |
00000050  63 6f 6e 74 65 6e 74 73  20 20 6f 66 20 20 61 20  |contents  of  a |
00000060  20 73 70 65 63 69 66 69  65 64 0d 73 6f 75 72 63  | specified.sourc|
00000070  65 20 20 20 20 64 69 72  65 63 74 6f 72 79 20 20  |e    directory  |
00000080  20 28 69 6e 63 6c 75 64  69 6e 67 20 20 20 73 75  | (including   su|
00000090  62 2d 0d 64 69 72 65 63  74 6f 72 69 65 73 29 20  |b-.directories) |
000000a0  74 6f 20 61 20 73 70 65  63 69 66 69 65 64 20 64  |to a specified d|
000000b0  65 73 74 69 6e 61 74 69  6f 6e 0d 64 69 72 65 63  |estination.direc|
000000c0  74 6f 72 79 2e 0d 0d 0d  54 68 65 20 73 6f 75 72  |tory....The sour|
000000d0  63 65 20 61 6e 64 20 20  64 65 73 74 69 6e 61 74  |ce and  destinat|
000000e0  69 6f 6e 20 64 72 69 76  65 73 20 77 69 6c 6c 0d  |ion drives will.|
000000f0  62 65 20 61 73 6b 65 64  20 66 6f 72 2e 20 49 66  |be asked for. If|
00000100  20 79 6f 75 20 6f 6e 6c  79 20 68 61 76 65 20 6f  | you only have o|
00000110  6e 65 20 64 69 73 63 0d  64 72 69 76 65 2c 20 74  |ne disc.drive, t|
00000120  68 65 20 20 72 65 70 6c  79 20 77 69 6c 6c 20 62  |he  reply will b|
00000130  65 20 20 74 68 65 20 73  61 6d 65 20 28 30 29 0d  |e  the same (0).|
00000140  61 6e 64 20 20 79 6f 75  20 77 69 6c 6c 20 74 68  |and  you will th|
00000150  65 6e 20 62 65 20 61 73  6b 65 64 20 69 66 20 79  |en be asked if y|
00000160  6f 75 20 77 69 73 68 0d  74 6f 20 62 65 20 70 72  |ou wish.to be pr|
00000170  6f 6d 70 74 65 64 20 74  6f 20 20 63 68 61 6e 67  |ompted to  chang|
00000180  65 20 64 69 73 63 73 2e  20 41 6e 73 77 65 72 0d  |e discs. Answer.|
00000190  27 59 27 20 69 66 20 61  20 20 63 6f 70 79 20 6f  |'Y' if a  copy o|
000001a0  66 20 74 68 65 20 20 73  6f 75 72 63 65 20 64 69  |f the  source di|
000001b0  72 65 63 74 6f 72 79 0d  69 73 20 74 6f 20 62 65  |rectory.is to be|
000001c0  20 6d 61 64 65 20 6f 6e  20 61 20 64 69 73 63 20  | made on a disc |
000001d0  20 6f 74 68 65 72 20 74  68 61 6e 20 74 68 65 0d  | other than the.|
000001e0  73 6f 75 72 63 65 20 64  69 73 63 2e 0d 0d 46 69  |source disc...Fi|
000001f0  6c 65 73 20 69 6e 20 41  44 46 53 20 63 61 6e 20  |les in ADFS can |
00000200  62 65 20 20 70 72 6f 74  65 63 74 65 64 20 61 67  |be  protected ag|
00000210  61 69 6e 73 74 0d 62 65  69 6e 67 20 6f 76 65 72  |ainst.being over|
00000220  77 72 69 74 74 65 6e 20  62 79 20 73 65 74 74 69  |written by setti|
00000230  6e 67 20 74 68 65 20 61  63 63 65 73 73 0d 61 74  |ng the access.at|
00000240  74 72 69 62 75 74 65 20  27 4c 27 20 28 6c 6f 63  |tribute 'L' (loc|
00000250  6b 65 64 29 2e 20 54 68  69 73 20 20 61 74 74 72  |ked). This  attr|
00000260  69 62 75 74 65 0d 63 61  6e 20 62 65 20 69 67 6e  |ibute.can be ign|
00000270  6f 72 65 64 20 6f 6e 20  20 64 65 73 74 69 6e 61  |ored on  destina|
00000280  74 69 6f 6e 20 66 69 6c  65 73 20 69 66 0d 79 6f  |tion files if.yo|
00000290  75 20 61 6e 73 77 65 72  20 27 59 27 20 74 6f 20  |u answer 'Y' to |
000002a0  74 68 65 20 27 4f 76 65  72 77 72 69 74 65 20 6c  |the 'Overwrite l|
000002b0  6f 63 6b 65 64 0d 66 69  6c 65 73 20 28 59 2f 4e  |ocked.files (Y/N|
000002c0  29 20 3f 27 20 70 72 6f  6d 70 74 2e 0d 0d 46 6f  |) ?' prompt...Fo|
000002d0  72 20 61 20 73 6f 75 72  63 65 20 66 69 6c 65 20  |r a source file |
000002e0  74 6f 20 62 65 20 63 6f  70 69 65 64 2c 20 74 68  |to be copied, th|
000002f0  65 20 27 52 27 0d 61 74  74 72 69 62 75 74 65 20  |e 'R'.attribute |
00000300  6d 75 73 74 20 62 65 20  73 65 74 2e 20 49 66 20  |must be set. If |
00000310  69 74 20 69 73 20 6e 6f  74 20 73 65 74 0d 74 68  |it is not set.th|
00000320  65 6e 20 61 20 20 6d 65  73 73 61 67 65 20 27 43  |en a  message 'C|
00000330  61 6e 27 74 20 72 65 61  64 20 66 69 6c 65 27 20  |an't read file' |
00000340  20 77 69 6c 6c 0d 62 65  20 70 72 69 6e 74 65 64  | will.be printed|
00000350  20 61 6e 64 20 74 68 65  20 66 69 6c 65 20 69 67  | and the file ig|
00000360  6e 6f 72 65 64 2e 0d 0d  53 69 6e 63 65 20 20 44  |nored...Since  D|
00000370  49 52 43 4f 50 59 20 69  73 20 61 20 20 42 41 53  |IRCOPY is a  BAS|
00000380  49 43 20 20 70 72 6f 67  72 61 6d 2c 20 69 74 0d  |IC  program, it.|
00000390  77 69 6c 6c 20 64 65 73  74 72 6f 79 20 61 6e 79  |will destroy any|
000003a0  20 70 72 6f 67 72 61 6d  20 20 70 72 65 76 69 6f  | program  previo|
000003b0  75 73 6c 79 20 69 6e 0d  6d 65 6d 6f 72 79 2e 0d  |usly in.memory..|
000003c0