COPY FILE
FILE INFORMATION
FILENAME(S): COPY FILE
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-12-01 00:57:22
APPEARS ON: 1 disk(s)
FILE HASH
e904c5e66b7e25e1fafe2965423775e04bb8a4f2f1553922ada96b59f0e80042
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HEINZ UTILITY | COPY FILE | PRG | hedning, Austria | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 14 00 8F 20 53 49 4E 47 4C 45 20 44 |....... SINGLE D|
00000010: 52 49 56 45 20 46 49 4C 45 20 43 4F 50 59 00 34 |RIVE FILE COPY.4|
00000020: 08 28 00 97 20 35 32 2C 33 31 3A 97 20 35 36 2C |.(.. 52,31:. 56,|
00000030: 33 31 3A 9C 00 44 08 2D 00 81 20 49 B2 30 20 A4 |31:..D.-.. I.0 .|
00000040: 20 31 37 33 00 57 08 32 00 87 44 3A 97 37 39 33 | 173.W.2..D:.793|
00000050: 36 AA 49 2C 44 3A 82 00 6C 08 37 00 97 20 37 38 |6.I,D:..l.7.. 78|
00000060: 35 2C 30 3A 97 20 37 38 36 2C 33 31 00 7A 08 3C |5,0:. 786,31.z.<|
00000070: 00 50 4C 24 B2 C7 28 31 39 29 00 99 08 41 00 81 |.PL$..(19)...A..|
00000080: 20 49 B2 31 20 A4 20 32 34 3A 50 4C 24 B2 50 4C | I.1 . 24:PL$.PL|
00000090: 24 AA C7 28 31 37 29 3A 82 00 B6 08 46 00 81 20 |$..(17):....F.. |
000000A0: 49 B2 31 20 A4 20 33 39 3A 43 4C 24 B2 43 4C 24 |I.1 . 39:CL$.CL$|
000000B0: AA 22 20 22 3A 82 00 D2 08 4B 00 43 4C 24 B2 43 |." ":....K.CL$.C|
000000C0: 4C 24 AA C7 28 31 33 29 AA 43 4C 24 AA C7 28 31 |L$..(13).CL$..(1|
000000D0: 33 29 00 F6 08 50 00 43 4C 24 B2 C8 28 50 4C 24 |3)...P.CL$..(PL$|
000000E0: 2C 32 31 29 AA 43 4C 24 AA C7 28 31 34 35 29 AA |,21).CL$..(145).|
000000F0: C7 28 31 34 35 29 00 18 09 55 00 9F 31 35 2C 38 |.(145)...U..15,8|
00000100: 2C 31 35 3A 8F 20 4F 50 45 4E 20 45 52 52 4F 52 |,15:. OPEN ERROR|
00000110: 20 43 48 41 4E 4E 45 4C 00 23 09 5A 00 89 20 31 | CHANNEL.#.Z.. 1|
00000120: 30 31 30 00 3C 09 6E 00 8F 20 52 45 41 44 20 54 |010.<.n.. READ T|
00000130: 48 45 20 44 49 52 45 43 54 4F 52 59 00 5F 09 82 |HE DIRECTORY._..|
00000140: 00 97 20 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 |.. 785,0:. SELEC|
00000150: 54 20 52 45 41 44 20 46 55 4E 43 54 49 4F 4E 00 |T READ FUNCTION.|
00000160: 77 09 8C 00 98 31 35 2C 22 49 22 3A 9F 20 32 2C |w....15,"I":. 2,|
00000170: 38 2C 32 2C 22 24 22 00 9A 09 96 00 4E 42 B2 B7 |8,2,"$".....NB..|
00000180: 28 32 29 3A 8F 20 4C 4F 41 44 20 44 49 52 20 49 |(2):. LOAD DIR I|
00000190: 4E 54 4F 20 4D 45 4D 4F 52 59 00 B4 09 A0 00 A0 |NTO MEMORY......|
000001A0: 32 3A 8D 38 31 30 3A 8F 20 43 48 45 43 4B 20 45 |2:.810:. CHECK E|
000001B0: 52 52 4F 52 00 BA 09 AA 00 8E 00 D2 09 D2 00 8F |RROR............|
000001C0: 20 44 49 53 50 4C 41 59 20 44 49 53 43 20 4E 41 | DISPLAY DISC NA|
000001D0: 4D 45 00 F1 09 E6 00 97 37 38 35 2C 36 3A 8F 20 |ME......785,6:. |
000001E0: 53 45 4C 45 43 54 20 46 45 54 43 48 20 43 48 41 |SELECT FETCH CHA|
000001F0: 52 00 07 0A F0 00 99 20 C8 28 50 4C 24 2C 33 29 |R...... .(PL$,3)|
00000200: 3B C7 28 31 38 29 3B 00 19 0A FA 00 81 20 4B B2 |;.(18);...... K.|
00000210: 31 34 32 20 A4 20 31 36 39 00 29 0A 04 01 99 C7 |142 . 169.).....|
00000220: 28 B7 28 4B 29 29 3B 3A 82 00 36 0A 0E 01 99 20 |(.(K));:..6.... |
00000230: C7 28 31 34 36 29 00 3C 0A 18 01 8E 00 5B 0A 36 |.(146).<.....[.6|
00000240: 01 8F 20 50 52 49 4E 54 20 44 49 52 45 4B 54 4F |.. PRINT DIREKTO|
00000250: 52 59 20 45 4E 54 52 59 20 44 45 00 7A 0A 4A 01 |RY ENTRY DE.z.J.|
00000260: 97 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 |.785,6:. SELECT |
00000270: 46 45 54 43 48 20 43 48 41 52 00 9D 0A 54 01 49 |FETCH CHAR...T.I|
00000280: 58 B2 28 44 45 AB 31 29 AC 33 32 AA 32 35 34 AB |X.(DE.1).32.254.|
00000290: B5 28 28 44 45 AB 31 29 AD 38 29 AC 32 00 AE 0A |.((DE.1).8).2...|
000002A0: 59 01 8B B7 28 49 58 29 B3 31 32 38 A7 8E 00 CC |Y...(IX).128....|
000002B0: 0A 5E 01 54 59 B2 B7 28 49 58 29 AB 31 32 38 3A |.^.TY..(IX).128:|
000002C0: 8B 54 59 B2 30 B0 54 59 B1 33 A7 8E 00 E1 0A 68 |.TY.0.TY.3.....h|
000002D0: 01 81 20 4B B2 49 58 AA 33 20 A4 20 49 58 AA 31 |.. K.IX.3 . IX.1|
000002E0: 38 00 EF 0A 72 01 99 C7 28 B7 28 4B 29 29 3B 00 |8...r...(.(K));.|
000002F0: 01 0B 7C 01 82 3A 99 20 A3 31 36 29 3B 22 2C 22 |..|..:. .16);","|
00000300: 3B 00 17 0B 86 01 99 20 CA 28 22 53 50 55 22 2C |;...... .("SPU",|
00000310: 54 59 2C 31 29 3A 8E 00 32 0B 9A 01 8F 20 47 45 |TY,1):..2.... GE|
00000320: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI|
00000330: 53 4B 00 3C 0B AE 01 99 43 4C 24 3B 00 5C 0B B8 |SK.<....CL$;.\..|
00000340: 01 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 4E |.."INSERT DESTIN|
00000350: 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 7A 0B C2 |ATION DISK.".z..|
00000360: 01 99 22 50 52 45 53 53 20 22 3B C7 28 31 38 29 |.."PRESS ";.(18)|
00000370: 3B 22 52 45 54 55 52 4E 22 3B 00 96 0B CC 01 99 |;"RETURN";......|
00000380: 20 C7 28 31 34 36 29 3B 22 20 57 48 45 4E 20 52 | .(146);" WHEN R|
00000390: 45 41 44 59 2E 22 00 AF 0B D6 01 A1 20 44 4D 24 |EADY."...... DM$|
000003A0: 3A 8B 20 44 4D 24 B2 22 22 20 89 20 34 37 30 00 |:. DM$."" . 470.|
000003B0: C6 0B E0 01 8B 20 44 4D 24 B3 B1 C7 28 31 33 29 |..... DM$...(13)|
000003C0: 20 89 20 34 37 30 00 D4 0B EA 01 98 31 35 2C 22 | . 470......15,"|
000003D0: 49 22 3A 8E 00 ED 0B FE 01 8F 20 47 45 54 20 41 |I":....... GET A|
000003E0: 20 46 49 4C 45 20 54 4F 20 43 4F 50 59 00 06 0C | FILE TO COPY...|
000003F0: 12 02 99 20 43 4C 24 3B 3A 8B 20 45 4E B2 36 33 |... CL$;:. EN.63|
00000400: 20 89 20 35 38 30 00 26 0C 1C 02 8B 55 45 B2 31 | . 580.&....UE.1|
00000410: 32 38 A7 99 4E 4D 24 3B 22 20 54 4F 4F 20 4C 41 |28..NM$;" TOO LA|
00000420: 52 47 45 2E 22 3B 00 42 0C 26 02 8B 45 4E B2 36 |RGE.";.B.&..EN.6|
00000430: 32 A7 99 22 4E 4D 24 3B 22 A8 46 4F 55 4E 44 2E |2.."NM$;".FOUND.|
00000440: 22 3B 00 6A 0C 30 02 99 22 45 4E 54 45 52 20 46 |";.j.0.."ENTER F|
00000450: 49 4C 45 2C 54 59 50 45 22 3A 4E 4D 24 B2 22 22 |ILE,TYPE":NM$.""|
00000460: 3A 45 4E B2 30 3A 55 45 B2 30 00 7A 0C 3A 02 85 |:EN.0:UE.0.z.:..|
00000470: 20 4E 4D 24 2C 54 59 24 3A 8E 00 9E 0C 44 02 99 | NM$,TY$:....D..|
00000480: 20 4E 4D 24 3B 22 20 45 58 49 53 54 53 2E 20 45 | NM$;" EXISTS. E|
00000490: 4E 54 45 52 20 4E 45 57 20 4E 41 4D 45 22 00 B6 |NTER NEW NAME"..|
000004A0: 0C 4E 02 45 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 |.N.EN.0:NM$."":.|
000004B0: 20 4E 4D 24 3A 8E 00 CA 0C 62 02 8F 20 52 45 41 | NM$:....b.. REA|
000004C0: 44 20 54 48 45 20 46 49 4C 45 00 ED 0C 76 02 97 |D THE FILE...v..|
000004D0: 20 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 54 20 | 785,0:. SELECT |
000004E0: 52 45 41 44 20 46 55 4E 4B 54 49 4F 4E 00 0A 0D |READ FUNKTION...|
000004F0: 80 02 9F 20 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C |... 2,8,2,NM$.",|
00000500: 22 AA 54 59 24 AA 22 2C 52 22 00 24 0D 8A 02 8D |".TY$.",R".$....|
00000510: 20 39 31 30 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 | 910:. EN..0 . .|
00000520: 20 32 3A 8E 00 40 0D 94 02 4E 42 B2 B7 28 32 29 | 2:..@...NB..(2)|
00000530: 3A 8F 20 52 45 41 44 20 54 48 45 20 46 49 4C 45 |:. READ THE FILE|
00000540: 00 5E 0D 9E 02 A0 20 32 3A 8D 20 38 31 30 3A 8F |.^.... 2:. 810:.|
00000550: 20 43 48 45 43 4B 20 52 45 53 55 4C 54 53 00 64 | CHECK RESULTS.d|
00000560: 0D A8 02 8E 00 79 0D C6 02 8F 20 57 52 49 54 45 |.....y.... WRITE|
00000570: 20 54 48 45 20 46 49 4C 45 00 9D 0D DA 02 97 20 | THE FILE...... |
00000580: 37 38 35 2C 33 3A 8F 20 53 45 4C 45 43 54 20 57 |785,3:. SELECT W|
00000590: 52 49 54 45 20 46 55 4E 43 54 49 4F 4E 00 BA 0D |RITE FUNCTION...|
000005A0: E4 02 9F 20 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C |... 2,8,2,NM$.",|
000005B0: 22 AA 54 59 24 AA 22 2C 57 22 00 D4 0D EE 02 8D |".TY$.",W"......|
000005C0: 20 39 31 30 3A 8B 20 45 4E B3 B1 30 20 A7 20 A0 | 910:. EN..0 . .|
000005D0: 20 32 3A 8E 00 F2 0D F8 02 4E 42 B2 B7 28 32 29 | 2:......NB..(2)|
000005E0: 3A 8F 20 57 52 49 54 45 20 54 48 45 20 42 59 54 |:. WRITE THE BYT|
000005F0: 45 53 00 10 0E 02 03 A0 20 32 3A 8D 20 38 31 30 |ES...... 2:. 810|
00000600: 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 4C 54 53 |:. CHECK RESULTS|
00000610: 00 16 0E 0C 03 8E 00 35 0E 2A 03 8F 20 43 48 45 |.......5.*.. CHE|
00000620: 43 4B 20 55 53 52 28 29 20 52 45 54 55 52 4E 20 |CK USR() RETURN |
00000630: 56 41 4C 55 45 00 4C 0E 3E 03 4E 42 B2 4E 42 AB |VALUE.L.>.NB.NB.|
00000640: 28 4E 42 B3 30 29 AC 36 35 35 33 36 00 64 0E 48 |(NB.0).65536.d.H|
00000650: 03 8B 20 4E 42 B3 36 31 34 34 30 20 A7 20 55 45 |.. NB.61440 . UE|
00000660: B2 30 3A 8E 00 7B 0E 52 03 8B 4E 42 B2 36 31 34 |.0:..{.R..NB.614|
00000670: 34 30 A7 55 45 B2 31 32 38 3A 8E 00 85 0E 5C 03 |40.UE.128:....\.|
00000680: 99 20 43 4C 24 00 9F 0E 66 03 8B 20 C2 28 37 38 |. CL$...f.. .(78|
00000690: 35 29 B2 30 20 A7 20 99 22 52 45 41 44 22 3B 00 |5).0 . ."READ";.|
000006A0: BA 0E 70 03 8B 20 C2 28 37 39 35 29 B2 33 20 A7 |..p.. .(795).3 .|
000006B0: 20 99 22 57 52 49 54 45 22 3B 00 D5 0E 7A 03 99 | ."WRITE";...z..|
000006C0: 22 20 45 52 52 4F 52 20 23 22 3B 4E 42 AB 36 31 |" ERROR #";NB.61|
000006D0: 34 34 30 3A 80 00 ED 0E 8E 03 8F 20 52 45 41 44 |440:....... READ|
000006E0: 20 45 52 4F 52 20 43 48 41 4E 4E 45 4C 00 02 0F | EROR CHANNEL...|
000006F0: AC 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,|
00000700: 45 53 00 21 0F B6 03 8B 20 45 4E B2 30 20 B0 20 |ES.!.... EN.0 . |
00000710: 45 4E B2 36 32 20 B0 20 45 4E B2 36 33 20 A7 20 |EN.62 . EN.63 . |
00000720: 8E 00 30 0F C0 03 A0 20 31 35 3A 99 20 43 4C 24 |..0.... 15:. CL$|
00000730: 00 47 0F CA 03 99 22 44 49 53 4B 20 45 52 52 4F |.G...."DISK ERRO|
00000740: 52 20 23 22 3B 45 4E 00 5D 0F D4 03 99 20 C8 28 |R #";EN.].... .(|
00000750: 50 4C 24 2C 32 32 29 3B 45 4D 24 3A 80 00 70 0F |PL$,22);EM$:..p.|
00000760: F2 03 8F 20 4D 41 49 4E 20 52 4F 55 54 49 4E 45 |... MAIN ROUTINE|
00000770: 00 8D 0F 06 04 99 20 C7 28 31 34 37 29 3B 3A 8F |...... .(147);:.|
00000780: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 B2 0F | CLEAR SCREEN...|
00000790: 10 04 99 22 20 20 20 20 20 20 20 53 49 4E 47 4C |..." SINGL|
000007A0: 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 4F 50 |E DRIVE FILE COP|
000007B0: 59 22 00 CD 0F 1A 04 99 3A 99 22 52 45 41 44 49 |Y"......:."READI|
000007C0: 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 EC 0F |NG DIRECTORY"...|
000007D0: 24 04 8D 20 31 31 30 3A 8F 20 52 45 41 44 20 54 |$.. 110:. READ T|
000007E0: 48 45 20 44 49 52 45 43 54 4F 52 59 00 06 10 2E |HE DIRECTORY....|
000007F0: 04 8D 20 32 31 30 3A 8F 20 44 49 53 50 4C 41 59 |.. 210:. DISPLAY|
00000800: 20 54 49 54 4C 45 00 1B 10 38 04 4E 53 B2 B5 28 | TITLE...8.NS..(|
00000810: 28 4E 42 AA 31 29 AD 32 35 34 29 00 38 10 42 04 |(NB.1).254).8.B.|
00000820: 8B 20 4E 53 B2 31 20 89 20 34 30 31 30 3A 8F 20 |. NS.1 . 4010:. |
00000830: 4E 4F 20 46 49 4C 45 53 00 41 10 4C 04 44 53 B2 |NO FILES.A.L.DS.|
00000840: 31 00 62 10 56 04 8B 20 4E 53 B3 B2 44 53 20 A7 |1.b.V.. NS..DS .|
00000850: 20 44 53 B2 31 3A 8F 20 53 54 41 52 54 20 4F 56 | DS.1:. START OV|
00000860: 45 52 00 72 10 60 04 99 20 C8 28 50 4C 24 2C 34 |ER.r.`.. .(PL$,4|
00000870: 29 3B 00 8D 10 6A 04 42 45 B2 28 44 53 AB 31 29 |);...j.BE.(DS.1)|
00000880: AC 38 AA 31 3A 4C 45 B2 42 45 AA 31 35 00 A5 10 |.8.1:LE.BE.15...|
00000890: 74 04 8B 20 44 53 AA 31 B2 4E 53 20 A7 20 4C 45 |t.. DS.1.NS . LE|
000008A0: B2 42 45 AA 38 00 B6 10 7E 04 81 20 44 45 B2 42 |.BE.8...~.. DE.B|
000008B0: 45 20 A4 20 4C 45 00 D2 10 88 04 8D 20 33 31 30 |E . LE...... 310|
000008C0: 3A 82 3A 8F 20 44 49 53 50 4C 41 59 20 46 49 4C |:.:. DISPLAY FIL|
000008D0: 45 53 00 EE 10 92 04 81 20 49 B2 C2 28 32 31 34 |ES...... I..(214|
000008E0: 29 20 A4 20 32 30 3A 8F 20 43 4C 45 41 52 00 0A |) . 20:. CLEAR..|
000008F0: 11 9C 04 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000900: 20 20 20 20 20 20 20 20 20 22 00 10 11 A6 04 82 | "......|
00000910: 00 2A 11 B0 04 8D 20 35 31 30 3A 8F 20 47 45 54 |.*.... 510:. GET|
00000920: 20 46 49 4C 45 20 4E 41 4D 45 00 48 11 BA 04 8B | FILE NAME.H....|
00000930: 20 4E 4D 24 B2 22 22 20 A7 20 44 53 B2 44 53 AA | NM$."" . DS.DS.|
00000940: 32 3A 89 20 31 31 31 30 00 5C 11 DA 07 8F 20 43 |2:. 1110.\.... C|
00000950: 4F 50 59 20 54 48 45 20 46 49 4C 45 00 67 11 EE |OPY THE FILE.g..|
00000960: 07 99 20 43 4C 24 3B 00 7B 11 F8 07 99 22 52 45 |.. CL$;.{...."RE|
00000970: 41 44 49 4E 47 20 22 3B 4D 4E 24 00 95 11 02 08 |ADING ";MN$.....|
00000980: 8D 20 36 31 30 3A 8F 20 52 45 41 44 20 54 48 45 |. 610:. READ THE|
00000990: 20 46 49 4C 45 00 B1 11 0C 08 8B 20 45 4E B2 36 | FILE...... EN.6|
000009A0: 32 20 B0 20 55 45 B2 31 32 38 20 89 20 31 32 30 |2 . UE.128 . 120|
000009B0: 30 00 C8 11 16 08 42 43 B2 4E 42 3A 8F 20 53 41 |0.....BC.NB:. SA|
000009C0: 56 45 20 43 4F 55 4E 54 00 E3 11 20 08 8D 20 34 |VE COUNT... .. 4|
000009D0: 31 30 3A 8F 20 47 45 54 20 44 45 53 54 2E 20 44 |10:. GET DEST. D|
000009E0: 49 53 4B 00 FC 11 2A 08 99 20 43 4C 24 3B 22 57 |ISK...*.. CL$;"W|
000009F0: 52 49 54 49 4E 47 20 22 3B 4E 4D 24 00 17 12 34 |RITING ";NM$...4|
00000A00: 08 8D 20 37 31 30 3A 8F 20 57 52 49 54 45 20 54 |.. 710:. WRITE T|
00000A10: 48 45 20 46 49 4C 45 00 29 12 3E 08 8B 20 45 4E |HE FILE.).>.. EN|
00000A20: B2 30 20 89 20 33 30 31 30 00 42 12 48 08 8D 20 |.0 . 3010.B.H.. |
00000A30: 35 31 30 3A 8F 20 47 45 54 20 4E 45 57 20 46 49 |510:. GET NEW FI|
00000A40: 4C 45 00 57 12 52 08 8B 20 4E 4D 24 B3 B1 22 22 |LE.W.R.. NM$..""|
00000A50: 20 89 20 32 30 39 30 00 73 12 5C 08 99 20 43 4C | . 2090.s.\.. CL|
00000A60: 24 3B 22 46 49 4C 45 20 4E 4F 54 20 43 4F 50 49 |$;"FILE NOT COPI|
00000A70: 45 44 22 00 7E 12 66 08 89 20 33 31 30 30 00 9C |ED".~.f.. 3100..|
00000A80: 12 C2 0B 8F 20 44 49 53 50 4C 41 59 20 43 4F 4D |.... DISPLAY COM|
00000A90: 50 4C 45 54 45 20 53 54 41 54 55 53 00 A6 12 D6 |PLETE STATUS....|
00000AA0: 0B 99 20 43 4C 24 00 BA 12 E0 0B 8B 20 4E 42 B3 |.. CL$...... NB.|
00000AB0: B1 42 43 20 89 20 33 30 36 30 00 DC 12 EA 0B 99 |.BC . 3060......|
00000AC0: 22 43 4F 50 59 20 53 55 43 43 45 53 53 46 55 4C |"COPY SUCCESSFUL|
00000AD0: 2E 20 20 22 3B 3A 89 20 33 30 37 30 00 FC 12 F4 |. ";:. 3070....|
00000AE0: 0B 99 22 45 52 52 4F 52 2E 20 4F 4E 4C 59 20 22 |.."ERROR. ONLY "|
00000AF0: 3B 4E 42 3B 22 20 4F 55 54 20 22 3B 00 15 13 FE |;NB;" OUT ";....|
00000B00: 0B 99 20 42 43 3B 22 42 59 54 45 53 20 43 4F 50 |.. BC;"BYTES COP|
00000B10: 49 45 44 2E 22 00 2A 13 1C 0C 99 22 50 52 45 53 |IED.".*...."PRES|
00000B20: 53 20 22 3B C7 28 31 38 29 3B 00 40 13 26 0C 99 |S ";.(18);.@.&..|
00000B30: 22 52 45 54 55 52 4E 22 3B C7 28 31 34 36 29 3B |"RETURN";.(146);|
00000B40: 00 5D 13 30 0C 99 22 20 54 4F 20 43 4F 50 59 20 |.].0.." TO COPY |
00000B50: 41 4E 4F 54 48 45 52 20 46 49 4C 45 22 00 77 13 |ANOTHER FILE".w.|
00000B60: 3A 0C A1 20 44 4D 24 3A 8B 20 44 4D 24 B2 22 22 |:.. DM$:. DM$.""|
00000B70: 20 89 20 33 31 33 30 00 8E 13 44 0C 8B 20 44 4D | . 3130...D.. DM|
00000B80: 24 B2 C7 28 31 33 29 20 89 20 31 30 31 30 00 94 |$..(13) . 1010..|
00000B90: 13 4E 0C 80 00 B2 13 AA 0F 8F 20 4E 4F 20 46 49 |.N........ NO FI|
00000BA0: 4C 45 53 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 |LES ERROR HANDLI|
00000BB0: 4E 47 00 C2 13 BE 0F 99 20 C8 28 50 4C 24 2C 32 |NG...... .(PL$,2|
00000BC0: 31 29 00 E0 13 C8 0F 99 22 4E 4F 20 46 49 4C 45 |1)......"NO FILE|
00000BD0: 53 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 |S ON THIS DISK."|
00000BE0: 00 FD 13 D2 0F 99 22 50 52 45 53 53 20 52 45 54 |......"PRESS RET|
00000BF0: 55 52 4E 20 54 4F 20 54 52 59 20 22 3B 00 13 14 |URN TO TRY ";...|
00000C00: DC 0F 99 22 41 4E 4F 54 48 45 52 20 44 49 53 4B |..."ANOTHER DISK|
00000C10: 2E 22 3B 00 2D 14 E6 0F A1 20 44 4D 24 3A 8B 20 |.";.-.... DM$:. |
00000C20: 44 4D 24 B2 22 22 20 89 20 34 30 37 30 00 44 14 |DM$."" . 4070.D.|
00000C30: F0 0F 8B 20 44 4D 24 B2 C7 28 31 33 29 20 89 20 |... DM$..(13) . |
00000C40: 31 30 31 30 00 4A 14 FA 0F 80 00 69 14 10 27 83 |1010.J.....i..'.|
00000C50: 20 37 36 2C 31 35 2C 33 31 2C 37 36 2C 38 38 2C | 76,15,31,76,88,|
00000C60: 33 31 2C 37 36 2C 31 35 34 00 85 14 1A 27 83 20 |31,76,154....'. |
00000C70: 33 31 2C 31 30 38 2C 33 2C 30 2C 31 30 38 2C 35 |31,108,3,0,108,5|
00000C80: 2C 30 2C 33 32 00 A7 14 24 27 83 20 39 2C 33 31 |,0,32...$'. 9,31|
00000C90: 2C 31 35 32 2C 31 37 30 2C 33 32 2C 31 39 38 2C |,152,170,32,198,|
00000CA0: 32 35 35 2C 31 36 38 00 C9 14 2E 27 83 20 31 37 |255,168....'. 17|
00000CB0: 36 2C 35 37 2C 31 36 39 2C 30 2C 31 33 33 2C 32 |6,57,169,0,133,2|
00000CC0: 35 31 2C 31 36 39 2C 33 32 00 EC 14 38 27 83 20 |51,169,32...8'. |
00000CD0: 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C 33 32 |133,252,160,0,32|
00000CE0: 2C 32 30 37 2C 32 35 35 2C 31 34 35 00 10 15 42 |,207,255,145...B|
00000CF0: 27 83 20 32 35 31 2C 32 33 30 2C 32 35 31 2C 32 |'. 251,230,251,2|
00000D00: 30 38 2C 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 |08,2,230,252,165|
00000D10: 00 35 15 4C 27 83 20 31 34 34 2C 32 30 38 2C 31 |.5.L'. 144,208,1|
00000D20: 33 2C 31 36 35 2C 32 35 32 2C 32 30 31 2C 31 36 |3,165,252,201,16|
00000D30: 30 2C 31 34 34 00 57 15 56 27 83 20 32 33 35 2C |0,144.W.V'. 235,|
00000D40: 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 30 2C 30 |32,204,255,160,0|
00000D50: 2C 32 34 30 2C 31 39 00 7B 15 60 27 83 20 31 36 |,240,19.{.`'. 16|
00000D60: 34 2C 31 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 |4,144,32,204,255|
00000D70: 2C 31 39 32 2C 36 34 2C 32 30 38 00 9E 15 6A 27 |,192,64,208...j'|
00000D80: 83 20 31 30 2C 31 36 34 2C 32 35 31 2C 31 36 35 |. 10,164,251,165|
00000D90: 2C 32 35 32 2C 35 36 2C 32 33 33 2C 33 32 00 BE |,252,56,233,32..|
00000DA0: 15 74 27 83 20 37 36 2C 31 32 2C 33 31 2C 31 36 |.t'. 76,12,31,16|
00000DB0: 39 2C 32 34 30 2C 37 36 2C 31 32 2C 33 31 00 DF |9,240,76,12,31..|
00000DC0: 15 7E 27 83 20 33 32 2C 39 2C 33 31 2C 31 35 32 |.~'. 32,9,31,152|
00000DD0: 2C 31 37 30 2C 33 32 2C 32 30 31 2C 32 35 35 00 |,170,32,201,255.|
00000DE0: 04 16 88 27 83 20 31 36 38 2C 31 37 36 2C 32 34 |...'. 168,176,24|
00000DF0: 30 2C 31 36 35 2C 32 35 31 2C 31 34 31 2C 31 37 |0,165,251,141,17|
00000E00: 34 2C 33 31 00 27 16 92 27 83 20 31 36 35 2C 32 |4,31.'..'. 165,2|
00000E10: 35 32 2C 31 34 31 2C 31 37 35 2C 33 31 2C 31 36 |52,141,175,31,16|
00000E20: 39 2C 30 2C 31 33 33 00 4A 16 9C 27 83 20 32 35 |9,0,133.J..'. 25|
00000E30: 31 2C 31 36 39 2C 33 32 2C 31 33 33 2C 32 35 32 |1,169,32,133,252|
00000E40: 2C 31 36 30 2C 30 2C 31 37 37 00 6E 16 A6 27 83 |,160,0,177.n..'.|
00000E50: 20 32 35 31 2C 33 32 2C 32 31 30 2C 32 35 35 2C | 251,32,210,255,|
00000E60: 31 36 34 2C 31 34 34 2C 32 30 38 2C 32 30 00 92 |164,144,208,20..|
00000E70: 16 B0 27 83 20 32 33 30 2C 32 35 31 2C 32 30 38 |..'. 230,251,208|
00000E80: 2C 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 2C 32 |,2,230,252,165,2|
00000E90: 35 32 00 B7 16 BA 27 83 20 32 30 35 2C 31 37 35 |52....'. 205,175|
00000EA0: 2C 33 31 2C 31 34 34 2C 32 33 34 2C 31 36 35 2C |,31,144,234,165,|
00000EB0: 32 35 31 2C 32 30 35 00 DA 16 C4 27 83 20 31 37 |251,205....'. 17|
00000EC0: 34 2C 33 31 2C 31 34 34 2C 32 32 37 2C 33 32 2C |4,31,144,227,32,|
00000ED0: 32 30 34 2C 32 35 35 2C 37 36 00 F9 16 CE 27 83 |204,255,76....'.|
00000EE0: 20 37 33 2C 33 31 2C 33 32 2C 39 2C 33 31 2C 31 | 73,31,32,9,31,1|
00000EF0: 33 32 2C 32 35 31 2C 32 34 00 1C 17 D8 27 83 20 |32,251,24....'. |
00000F00: 31 30 35 2C 33 32 2C 31 33 33 2C 32 35 32 2C 31 |105,32,133,252,1|
00000F10: 36 30 2C 30 2C 31 37 37 2C 32 35 31 00 35 17 E2 |60,0,177,251.5..|
00000F20: 27 83 20 31 36 38 2C 31 36 39 2C 30 2C 37 36 2C |'. 168,169,0,76,|
00000F30: 31 32 2C 33 31 00 00 00 6C AB 55 20 |12,31...l.U |
....... SINGLE DRIVE FILE COPY.4.(.. 52,
31:. 56,31:..D.-.. I.0 . 173.W.2..D:.793
6.I,D:..L.7.. 785,0:. 786,31.Z.<.PL$.G(1
9)...A.. I.1 . 24:PL$.PL$.G(17):....F..
I.1 . 39:CL$.CL$." ":..R.K.CL$.CL$.G(13)
.CL$.G(13)...P.CL$.H(PL$,21).CL$.G(145).
G(145)...U..15,8,15:. OPEN ERROR CHANNEL
.#.Z.. 1010.<.N.. READ THE DIRECTORY._..
.. 785,0:. SELECT READ FUNCTION.W....15,
"I":. 2,8,2,"$".....NB..(2):. LOAD DIR I
NTO MEMORY... . 2:.810:. CHECK ERROR....
...R.R.. DISPLAY DISC NAME......785,6:.
SELECT FETCH CHAR...... H(PL$,3);G(18);.
..... K.142 . 169.)....G(.(K));:..6....
G(146).<.....[.6.. PRINT DIREKTORY ENTRY
DE.Z.J..785,6:. SELECT FETCH CHAR...T.I
X.(DE.1).32.254..((DE.1).8).2...Y...(IX)
.128...L.^.TY..(IX).128:.TY.0.TY.3.....H
.. K.IX.3 . IX.18...R..G(.(K));...|..:.
.16);",";...... J("SPU",TY,1):..2.... GE
T DESTINATION DISK.<....CL$;.\...."INSER
T DESTINATION DISK.".Z.B.."PRESS ";G(18)
;"RETURN";...L.. G(146);" WHEN READY."..
.V.. DM$:. DM$."" . 470.F.... DM$..G(13)
. 470.T....15,"I":....... GET A FILE TO
COPY...... CL$;:. EN.63 . 580.&....UE.1
28..NM$;" TOO LARGE.";.B.&..EN.62.."NM$;
".FOUND.";.J.0.."ENTER FILE,TYPE":NM$.""
:EN.0:UE.0.Z.:.. NM$,TY$:....D.. NM$;" E
XISTS. ENTER NEW NAME"...N.EN.0:NM$."":.
NM$:..J.B.. READ THE FILE...V.. 785,0:.
SELECT READ FUNKTION...... 2,8,2,NM$.",
".TY$.",R".$.... 910:. EN..0 . 2:..@..
.NB..(2):. READ THE FILE.^... 2:. 810:.
CHECK RESULTS.D.....Y.F.. WRITE THE FIL
E...Z.. 785,3:. SELECT WRITE FUNCTION...
... 2,8,2,NM$.",".TY$.",W".T.... 910:. E
N..0 . 2:......NB..(2):. WRITE THE BYT
ES..... 2:. 810:. CHECK RESULTS.......5
.*.. CHECK USR() RETURN VALUE.L.>.NB.NB.
(NB.0).65536.D.H.. NB.61440 . UE.0:..{.R
..NB.61440.UE.128:....\.. CL$...F.. B(78
5).0 . ."READ";...P.. B(795).3 . ."WRITE
";.U.Z.." ERROR #";NB.61440:....... READ
EROR CHANNEL......15,EN,EM$,ET,ES.!....
EN.0 . EN.62 . EN.63 . ..0... 15:. CL$
.G.J.."DISK ERROR #";EN.].T.. H(PL$,22);
EM$:..P.... MAIN ROUTINE...... G(147);:.
CLEAR SCREEN......" SINGLE DRIVE
FILE COPY".M....:."READING DIRECTORY"...
$.. 110:. READ THE DIRECTORY...... 210:.
DISPLAY TITLE...8.NS..((NB.1).254).8.B.
. NS.1 . 4010:. NO FILES.A.L.DS.1.B.V..
NS..DS . DS.1:. START OVER.R.`.. H(PL$,4
);...J.BE.(DS.1).8.1:LE.BE.15...T.. DS.1
.NS . LE.BE.8...~.. DE.BE . LE.R.... 310
:.:. DISPLAY FILES...... I.B(214) . 20:.
CLEAR......" "......
.*.... 510:. GET FILE NAME.H.... NM$.""
. DS.DS.2:. 1110.\.Z.. COPY THE FILE.G..
.. CL$;.{...."READING ";MN$...... 610:.
READ THE FILE...... EN.62 . UE.128 . 120
0.H...BC.NB:. SAVE COUNT... .. 410:. GET
DEST. DISK...*.. CL$;"WRITING ";NM$...4
.. 710:. WRITE THE FILE.).>.. EN.0 . 301
0.B.H.. 510:. GET NEW FILE.W.R.. NM$..""
. 2090.S.\.. CL$;"FILE NOT COPIED".~.F.
. 3100...B.. DISPLAY COMPLETE STATUS...V
.. CL$...... NB..BC . 3060......"COPY SU
CCESSFUL. ";:. 3070......"ERROR. ONLY "
;NB;" OUT ";...... BC;"BYTES COPIED.".*.
..."PRESS ";G(18);.@.&.."RETURN";G(146);
.].0.." TO COPY ANOTHER FILE".W.:.. DM$:
. DM$."" . 3130...D.. DM$.G(13) . 1010..
.N........ NO FILES ERROR HANDLING.B....
H(PL$,21)...H.."NO FILES ON THIS DISK."
...R.."PRESS RETURN TO TRY ";......"ANOT
HER DISK.";.-.... DM$:. DM$."" . 4070.D.
... DM$.G(13) . 1010.J.....I..'. 76,15,3
1,76,88,31,76,154....'. 31,108,3,0,108,5
,0,32...$'. 9,31,152,170,32,198,255,168.
I..'. 176,57,169,0,133,251,169,32...8'.
133,252,160,0,32,207,255,145...B'. 251,2
30,251,208,2,230,252,165.5.L'. 144,208,1
3,165,252,201,160,144.W.V'. 235,32,204,2
55,160,0,240,19.{.`'. 164,144,32,204,255
,192,64,208...J'. 10,164,251,165,252,56,
233,32...T'. 76,12,31,169,240,76,12,31..
.~'. 32,9,31,152,170,32,201,255....'. 16
8,176,240,165,251,141,174,31.'..'. 165,2
52,141,175,31,169,0,133.J..'. 251,169,32
,133,252,160,0,177.N..'. 251,32,210,255,
164,144,208,20....'. 230,251,208,2,230,2
52,165,252....'. 205,175,31,144,234,165,
251,205.Z.D'. 174,31,144,227,32,204,255,
76...N'. 73,31,32,9,31,132,251,24...X'.
105,32,133,252,160,0,177,251.5..'. 168,1
69,0,76,12,31...L.U
> CLICK IMAGE PREVIEW FOR FULL MODAL