FILE COPY
FILE INFORMATION
FILENAME(S): FILE COPY
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-12-01 02:26:09
APPEARS ON: 1 disk(s)
FILE HASH
d275afcfc64dcd83447dd884d4e5254782257ac0dd1c3275280b510940b334a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JARVIS 157 | FILE COPY | PRG | hedning, shine | 5 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 05 00 8F 20 20 20 2A 2A 2A 2A 2A 2A |..$.... ******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 00 46 08 0A 00 8F 20 20 2A 2A 53 49 |****.F.... **SI|
00000030: 4E 47 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 |NGLE DRIVE FILE |
00000040: 43 4F 50 59 2A 2A 00 68 08 0F 00 8F 20 20 2A 2A |COPY**.h.... **|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 00 8A 08 14 00 8F 20 20 |********...... |
00000070: 2A 2A 2A 2A 2A 2A 42 59 20 52 41 4C 46 20 48 45 |******BY RALF HE|
00000080: 52 5A 49 47 2A 2A 2A 2A 2A 2A 00 AC 08 1E 00 8F |RZIG******......|
00000090: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 08 23 |************...#|
000000B0: 00 99 22 93 22 3A 97 35 33 32 38 30 2C 30 3A 97 |..".":.53280,0:.|
000000C0: 35 33 32 38 31 2C 30 00 DB 08 28 00 97 35 32 2C |53281,0...(..52,|
000000D0: 33 31 3A 97 35 36 2C 33 31 3A 9C 00 E8 08 2D 00 |31:.56,31:....-.|
000000E0: 81 49 B2 30 A4 31 37 33 00 FB 08 32 00 87 44 3A |.I.0.173...2..D:|
000000F0: 97 37 39 33 36 AA 49 2C 44 3A 82 00 0E 09 37 00 |.7936.I,D:....7.|
00000100: 97 37 38 35 2C 30 3A 97 37 38 36 2C 33 31 00 1C |.785,0:.786,31..|
00000110: 09 3C 00 50 4C 24 B2 C7 28 31 39 29 00 38 09 41 |.<.PL$..(19).8.A|
00000120: 00 81 49 B2 31 A4 32 34 3A 50 4C 24 B2 50 4C 24 |..I.1.24:PL$.PL$|
00000130: AA C7 28 31 37 29 3A 82 00 52 09 46 00 81 49 B2 |..(17):..R.F..I.|
00000140: 31 A4 33 39 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 |1.39:CL$.CL$." "|
00000150: 3A 82 00 6E 09 4B 00 43 4C 24 B2 43 4C 24 AA C7 |:..n.K.CL$.CL$..|
00000160: 28 31 33 29 AA 43 4C 24 AA C7 28 31 33 29 00 92 |(13).CL$..(13)..|
00000170: 09 50 00 43 4C 24 B2 C8 28 50 4C 24 2C 32 31 29 |.P.CL$..(PL$,21)|
00000180: AA 43 4C 24 AA C7 28 31 34 35 29 AA C7 28 31 34 |.CL$..(145)..(14|
00000190: 35 29 00 B1 09 55 00 9F 31 35 2C 38 2C 31 35 3A |5)...U..15,8,15:|
000001A0: 8F 20 4F 50 45 4E 20 45 52 52 4F 52 20 43 48 41 |. OPEN ERROR CHA|
000001B0: 4E 00 BB 09 5A 00 89 31 30 30 30 00 C1 09 64 00 |N...Z..1000...d.|
000001C0: 8F 00 DA 09 6E 00 8F 20 52 45 41 44 20 54 48 45 |....n.. READ THE|
000001D0: 20 44 49 52 45 43 54 4F 52 59 00 FC 09 82 00 97 | DIRECTORY......|
000001E0: 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 54 20 52 |785,0:. SELECT R|
000001F0: 45 41 44 20 46 55 4E 43 54 49 4F 4E 00 13 0A 8C |EAD FUNCTION....|
00000200: 00 98 31 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 2C |..15,"I":.2,8,2,|
00000210: 22 24 22 00 33 0A 96 00 4E 42 B2 B7 28 32 29 3A |"$".3...NB..(2):|
00000220: 8F 20 4C 4F 41 44 20 44 49 52 20 49 4E 54 4F 20 |. LOAD DIR INTO |
00000230: 4D 45 4D 00 4D 0A A0 00 A0 32 3A 8D 38 30 30 3A |MEM.M....2:.800:|
00000240: 8F 20 43 48 45 43 4B 20 45 52 52 4F 52 00 53 0A |. CHECK ERROR.S.|
00000250: AA 00 8E 00 59 0A C8 00 8F 00 71 0A D2 00 8F 20 |....Y.....q.... |
00000260: 44 49 53 50 4C 41 59 20 44 49 53 4B 20 4E 41 4D |DISPLAY DISK NAM|
00000270: 45 00 90 0A E6 00 97 37 38 35 2C 36 3A 8F 20 53 |E......785,6:. S|
00000280: 45 4C 45 43 54 20 46 45 54 43 48 20 43 48 41 52 |ELECT FETCH CHAR|
00000290: 00 A5 0A F0 00 99 C8 28 50 4C 24 2C 33 29 3B C7 |.......(PL$,3);.|
000002A0: 28 31 38 29 3B 00 B4 0A FA 00 81 4B B2 31 34 32 |(18);......K.142|
000002B0: A4 31 36 39 00 C4 0A 04 01 99 C7 28 B7 28 4B 29 |.169.......(.(K)|
000002C0: 29 3B 3A 82 00 D0 0A 0E 01 99 C7 28 31 34 36 29 |);:........(146)|
000002D0: 00 D6 0A 18 01 8E 00 DC 0A 2C 01 8F 00 FB 0A 36 |.........,.....6|
000002E0: 01 8F 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F |.. PRINT DIRECTO|
000002F0: 52 59 20 45 4E 54 52 59 20 44 45 00 1A 0B 4A 01 |RY ENTRY DE...J.|
00000300: 97 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 |.785,6:. SELECT |
00000310: 46 45 54 43 48 20 43 48 41 52 00 3D 0B 54 01 49 |FETCH CHAR.=.T.I|
00000320: 58 B2 28 44 45 AB 31 29 AC 33 32 AA 32 35 34 AB |X.(DE.1).32.254.|
00000330: B5 28 28 44 45 AB 31 29 AD 38 29 AC 32 00 4E 0B |.((DE.1).8).2.N.|
00000340: 59 01 8B B7 28 49 58 29 B3 31 32 38 A7 8E 00 6C |Y...(IX).128...l|
00000350: 0B 5E 01 54 59 B2 B7 28 49 58 29 AB 31 32 38 3A |.^.TY..(IX).128:|
00000360: 8B 54 59 B2 30 B0 54 59 B1 33 A7 8E 00 7E 0B 68 |.TY.0.TY.3...~.h|
00000370: 01 81 4B B2 49 58 AA 33 A4 49 58 AA 31 38 00 8C |..K.IX.3.IX.18..|
00000380: 0B 72 01 99 C7 28 B7 28 4B 29 29 3B 00 9D 0B 7C |.r...(.(K));...||
00000390: 01 82 3A 99 A3 31 36 29 3B 22 2C 22 3B 00 B2 0B |..:..16);",";...|
000003A0: 86 01 99 CA 28 22 53 50 55 22 2C 54 59 2C 31 29 |....("SPU",TY,1)|
000003B0: 3A 8E 00 B8 0B 90 01 8F 00 D3 0B 9A 01 8F 20 47 |:............. G|
000003C0: 45 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |ET DESTINATION D|
000003D0: 49 53 4B 00 DD 0B AE 01 99 43 4C 24 3B 00 FD 0B |ISK......CL$;...|
000003E0: B8 01 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 |..."INSERT DESTI|
000003F0: 4E 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 1B 0C |NATION DISK."...|
00000400: C2 01 99 22 50 52 45 53 53 20 22 3B C7 28 31 38 |..."PRESS ";.(18|
00000410: 29 3B 22 52 45 54 55 52 4E 22 3B 00 36 0C CC 01 |);"RETURN";.6...|
00000420: 99 C7 28 31 34 36 29 3B 22 20 57 48 45 4E 20 52 |..(146);" WHEN R|
00000430: 45 41 44 59 2E 22 00 4B 0C D6 01 A1 44 4D 24 3A |EADY.".K....DM$:|
00000440: 8B 44 4D 24 B2 22 22 89 34 37 30 00 5F 0C E0 01 |.DM$."".470._...|
00000450: 8B 44 4D 24 B3 B1 C7 28 31 33 29 89 34 37 30 00 |.DM$...(13).470.|
00000460: 6D 0C EA 01 98 31 35 2C 22 49 22 3A 8E 00 73 0C |m....15,"I":..s.|
00000470: F4 01 8F 00 8C 0C FE 01 8F 20 47 45 54 20 41 20 |......... GET A |
00000480: 46 49 4C 45 20 54 4F 20 43 4F 50 59 00 A1 0C 12 |FILE TO COPY....|
00000490: 02 99 43 4C 24 3B 3A 8B 45 4E B2 36 33 89 35 38 |..CL$;:.EN.63.58|
000004A0: 30 00 C1 0C 1C 02 8B 55 45 B2 31 32 38 A7 99 4E |0......UE.128..N|
000004B0: 4D 24 3B 22 20 54 4F 4F 20 4C 41 52 47 45 2E 22 |M$;" TOO LARGE."|
000004C0: 3B 00 E0 0C 26 02 8B 45 4E B2 36 32 A7 99 4E 4D |;...&..EN.62..NM|
000004D0: 24 3B 22 20 4E 4F 54 20 46 4F 55 4E 44 2E 22 3B |$;" NOT FOUND.";|
000004E0: 00 08 0D 30 02 99 22 45 4E 54 45 52 20 46 49 4C |...0.."ENTER FIL|
000004F0: 45 2C 54 59 50 45 22 3A 4E 4D 24 B2 22 22 3A 45 |E,TYPE":NM$."":E|
00000500: 4E B2 30 3A 55 45 B2 30 00 17 0D 3A 02 85 4E 4D |N.0:UE.0...:..NM|
00000510: 24 2C 54 59 24 3A 8E 00 3A 0D 44 02 99 4E 4D 24 |$,TY$:..:.D..NM$|
00000520: 3B 22 20 45 58 49 53 54 53 2E 20 45 4E 54 45 52 |;" EXISTS. ENTER|
00000530: 20 4E 45 57 20 4E 41 4D 45 22 00 51 0D 4E 02 45 | NEW NAME".Q.N.E|
00000540: 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 4E 4D 24 3A |N.0:NM$."":.NM$:|
00000550: 8E 00 57 0D 58 02 8F 00 6B 0D 62 02 8F 20 52 45 |..W.X...k.b.. RE|
00000560: 41 44 20 54 48 45 20 46 49 4C 45 00 8D 0D 76 02 |AD THE FILE...v.|
00000570: 97 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 54 20 |.785,0:. SELECT |
00000580: 52 45 41 44 20 46 55 4E 43 54 49 4F 4E 00 A9 0D |READ FUNCTION...|
00000590: 80 02 9F 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 |...2,8,2,NM$.","|
000005A0: AA 54 59 24 AA 22 2C 52 22 00 BE 0D 8A 02 8D 39 |.TY$.",R"......9|
000005B0: 30 30 3A 8B 45 4E B3 B1 30 A7 A0 32 3A 8E 00 DA |00:.EN..0..2:...|
000005C0: 0D 94 02 4E 42 B2 B7 28 32 29 3A 8F 20 52 45 41 |...NB..(2):. REA|
000005D0: 44 20 54 48 45 20 46 49 4C 45 00 F6 0D 9E 02 A0 |D THE FILE......|
000005E0: 32 3A 8D 38 30 30 3A 8F 20 43 48 45 43 4B 20 52 |2:.800:. CHECK R|
000005F0: 45 53 55 4C 54 53 00 FC 0D A8 02 8E 00 02 0E BC |ESULTS..........|
00000600: 02 8F 00 17 0E C6 02 8F 20 57 52 49 54 45 20 54 |........ WRITE T|
00000610: 48 45 20 46 49 4C 45 00 3A 0E DA 02 97 37 38 35 |HE FILE.:....785|
00000620: 2C 33 3A 8F 20 53 45 4C 45 43 54 20 57 52 49 54 |,3:. SELECT WRIT|
00000630: 45 20 46 55 4E 43 54 49 4F 4E 00 56 0E E4 02 9F |E FUNCTION.V....|
00000640: 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 |2,8,2,NM$.",".TY|
00000650: 24 AA 22 2C 57 22 00 6B 0E EE 02 8D 39 30 30 3A |$.",W".k....900:|
00000660: 8B 45 4E B3 B1 30 A7 A0 32 3A 8E 00 87 0E F8 02 |.EN..0..2:......|
00000670: 4E 42 B2 B7 28 32 29 3A 8F 20 52 45 41 44 20 54 |NB..(2):. READ T|
00000680: 48 45 20 46 49 4C 45 00 A3 0E 02 03 A0 32 3A 8D |HE FILE......2:.|
00000690: 38 30 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 |800:. CHECK RESU|
000006A0: 4C 54 53 00 A9 0E 0C 03 8E 00 AF 0E 20 03 8F 00 |LTS......... ...|
000006B0: CE 0E 2A 03 8F 20 43 48 45 43 4B 20 55 53 52 28 |..*.. CHECK USR(|
000006C0: 29 20 52 45 54 55 52 4E 20 56 41 4C 55 45 00 E5 |) RETURN VALUE..|
000006D0: 0E 3E 03 4E 42 B2 4E 42 AB 28 4E 42 B3 30 29 AC |.>.NB.NB.(NB.0).|
000006E0: 36 35 35 33 36 00 FA 0E 48 03 8B 4E 42 B3 36 31 |65536...H..NB.61|
000006F0: 34 34 30 A7 55 45 B2 30 3A 8E 00 11 0F 52 03 8B |440.UE.0:....R..|
00000700: 4E 42 B2 36 31 34 34 30 A7 55 45 B2 31 32 38 3A |NB.61440.UE.128:|
00000710: 8E 00 1B 0F 5C 03 99 43 4C 24 3B 00 32 0F 66 03 |....\..CL$;.2.f.|
00000720: 8B C2 28 37 38 35 29 B2 30 A7 99 22 52 45 41 44 |..(785).0.."READ|
00000730: 22 3B 00 4A 0F 70 03 8B C2 28 37 38 35 29 B2 33 |";.J.p...(785).3|
00000740: A7 99 22 57 52 49 54 45 22 3B 00 65 0F 7A 03 99 |.."WRITE";.e.z..|
00000750: 22 20 45 52 52 4F 52 20 23 22 3B 4E 42 AB 36 31 |" ERROR #";NB.61|
00000760: 34 34 30 3A 80 00 6B 0F 84 03 8F 00 84 0F 8E 03 |440:..k.........|
00000770: 8F 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 |. READ ERROR CHA|
00000780: 4E 4E 45 4C 00 99 0F AC 03 84 31 35 2C 45 4E 2C |NNEL......15,EN,|
00000790: 45 4D 24 2C 45 54 2C 45 53 00 B1 0F B6 03 8B 45 |EM$,ET,ES......E|
000007A0: 4E B2 30 B0 45 4E B2 36 32 B0 45 4E B2 36 33 A7 |N.0.EN.62.EN.63.|
000007B0: 8E 00 BE 0F C0 03 A0 31 35 3A 99 43 4C 24 00 D5 |.......15:.CL$..|
000007C0: 0F CA 03 99 22 44 49 53 4B 20 45 52 52 4F 52 20 |...."DISK ERROR |
000007D0: 23 22 3B 45 4E 00 EA 0F D4 03 99 C8 28 50 4C 24 |#";EN.......(PL$|
000007E0: 2C 32 32 29 3B 45 4D 24 3A 80 00 F0 0F E8 03 8F |,22);EM$:.......|
000007F0: 00 03 10 F2 03 8F 20 4D 41 49 4E 20 52 4F 55 54 |...... MAIN ROUT|
00000800: 49 4E 45 00 15 10 06 04 99 C7 28 31 34 37 29 3A |INE.......(147):|
00000810: 8F 20 43 4C 53 00 3B 10 10 04 99 22 1E 20 20 20 |. CLS.;....". |
00000820: 20 20 20 20 53 49 4E 47 4C 45 20 44 52 49 56 45 | SINGLE DRIVE|
00000830: 20 46 49 4C 45 20 43 4F 50 59 22 00 56 10 1A 04 | FILE COPY".V...|
00000840: 99 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 |.:."READING DIRE|
00000850: 43 54 4F 52 59 22 00 74 10 24 04 8D 31 30 30 3A |CTORY".t.$..100:|
00000860: 8F 20 52 45 41 44 20 54 48 45 20 44 49 52 45 43 |. READ THE DIREC|
00000870: 54 4F 52 59 00 8D 10 2E 04 8D 32 30 30 3A 8F 20 |TORY......200:. |
00000880: 44 49 53 50 4C 41 59 20 54 49 54 4C 45 00 A2 10 |DISPLAY TITLE...|
00000890: 38 04 4E 53 B2 B5 28 28 4E 42 AA 31 29 AD 32 35 |8.NS..((NB.1).25|
000008A0: 34 29 00 BC 10 42 04 8B 4E 53 B2 31 89 34 30 30 |4)...B..NS.1.400|
000008B0: 30 3A 8F 20 4E 4F 20 46 49 4C 45 53 00 C5 10 4C |0:. NO FILES...L|
000008C0: 04 44 53 B2 31 00 E3 10 56 04 8B 4E 53 B3 B2 44 |.DS.1...V..NS..D|
000008D0: 53 A7 44 53 B2 31 3A 8F 20 53 54 41 52 54 20 4F |S.DS.1:. START O|
000008E0: 56 45 52 00 F2 10 60 04 99 C8 28 50 4C 24 2C 34 |VER...`...(PL$,4|
000008F0: 29 3B 00 0D 11 6A 04 42 45 B2 28 44 53 AB 31 29 |);...j.BE.(DS.1)|
00000900: AC 38 AA 31 3A 4C 45 B2 42 45 AA 31 35 00 22 11 |.8.1:LE.BE.15.".|
00000910: 74 04 8B 44 53 AA 31 B2 4E 53 A7 4C 45 B2 42 45 |t..DS.1.NS.LE.BE|
00000920: AA 38 00 30 11 7E 04 81 44 45 B2 42 45 A4 4C 45 |.8.0.~..DE.BE.LE|
00000930: 00 4B 11 88 04 8D 33 30 30 3A 82 3A 8F 20 44 49 |.K....300:.:. DI|
00000940: 53 50 4C 41 59 20 46 49 4C 45 53 00 64 11 92 04 |SPLAY FILES.d...|
00000950: 81 49 B2 C2 28 32 31 34 29 A4 32 30 3A 8F 20 43 |.I..(214).20:. C|
00000960: 4C 45 41 52 00 80 11 9C 04 99 22 20 20 20 20 20 |LEAR......" |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000980: 00 86 11 A6 04 82 00 9F 11 B0 04 8D 35 30 30 3A |............500:|
00000990: 8F 20 47 45 54 20 46 49 4C 45 20 4E 41 4D 45 00 |. GET FILE NAME.|
000009A0: B9 11 BA 04 8B 4E 4D 24 B2 22 22 A7 44 53 B2 44 |.....NM$."".DS.D|
000009B0: 53 AA 32 3A 89 31 31 31 30 00 BF 11 D0 07 8F 00 |S.2:.1110.......|
000009C0: D4 11 DA 07 8F 20 43 4F 50 59 20 54 48 45 20 46 |..... COPY THE F|
000009D0: 49 4C 45 3D 00 DE 11 EE 07 99 43 4C 24 3B 00 F2 |ILE=......CL$;..|
000009E0: 11 F8 07 99 22 52 45 41 44 49 4E 47 20 22 3B 4E |...."READING ";N|
000009F0: 4D 24 00 0B 12 02 08 8D 36 30 30 3A 8F 20 52 45 |M$......600:. RE|
00000A00: 41 44 20 54 48 45 20 46 49 4C 45 00 22 12 0C 08 |AD THE FILE."...|
00000A10: 8B 45 4E B2 36 32 B0 55 45 B2 31 32 38 89 31 32 |.EN.62.UE.128.12|
00000A20: 30 30 00 39 12 16 08 42 43 B2 4E 42 3A 8F 20 53 |00.9...BC.NB:. S|
00000A30: 41 56 45 20 43 4F 55 4E 54 00 53 12 20 08 8D 34 |AVE COUNT.S. ..4|
00000A40: 30 30 3A 8F 20 47 45 54 20 44 45 53 54 2E 20 44 |00:. GET DEST. D|
00000A50: 49 53 4B 00 6B 12 2A 08 99 43 4C 24 3B 22 57 52 |ISK.k.*..CL$;"WR|
00000A60: 49 54 49 4E 47 20 22 3B 4E 4D 24 00 85 12 34 08 |ITING ";NM$...4.|
00000A70: 8D 37 30 30 3A 8F 20 57 52 49 54 45 20 54 48 45 |.700:. WRITE THE|
00000A80: 20 46 49 4C 45 00 94 12 3E 08 8B 45 4E B2 30 89 | FILE...>..EN.0.|
00000A90: 33 30 30 30 00 AC 12 48 08 8D 35 30 30 3A 8F 20 |3000...H..500:. |
00000AA0: 47 45 54 20 4E 45 57 20 46 49 4C 45 00 BE 12 52 |GET NEW FILE...R|
00000AB0: 08 8B 4E 4D 24 B3 B1 22 22 89 32 30 39 30 00 D9 |..NM$.."".2090..|
00000AC0: 12 5C 08 99 43 4C 24 3B 22 46 49 4C 45 20 4E 4F |.\..CL$;"FILE NO|
00000AD0: 54 20 43 4F 50 49 45 44 22 00 E3 12 66 08 89 33 |T COPIED"...f..3|
00000AE0: 31 30 30 00 E9 12 B8 0B 8F 00 0A 13 C2 0B 8F 20 |100............ |
00000AF0: 44 49 53 50 4C 41 59 20 43 4F 4D 50 4C 45 54 49 |DISPLAY COMPLETI|
00000B00: 49 4F 4E 20 53 54 41 54 55 53 00 14 13 D6 0B 99 |ION STATUS......|
00000B10: 43 4C 24 3B 00 25 13 E0 0B 8B 4E 42 B3 B1 42 43 |CL$;.%....NB..BC|
00000B20: 89 33 30 36 30 00 62 13 EA 0B 99 22 43 4F 50 59 |.3060.b...."COPY|
00000B30: 20 53 55 43 43 45 53 46 55 4C 4C 2E 20 20 22 3B | SUCCESFULL. ";|
00000B40: 3A 89 33 30 37 30 33 30 36 30 99 22 45 52 52 4F |:.30703060."ERRO|
00000B50: 52 2E 20 4F 4E 4C 59 22 3B 4E 42 3B 22 4F 55 54 |R. ONLY";NB;"OUT|
00000B60: 22 3B 00 7A 13 FE 0B 99 42 43 3B 22 42 59 54 45 |";.z....BC;"BYTE|
00000B70: 53 20 43 4F 50 49 45 44 2E 22 00 8F 13 1C 0C 99 |S COPIED."......|
00000B80: 22 50 52 45 53 53 20 22 3B C7 28 31 38 29 3B 00 |"PRESS ";.(18);.|
00000B90: A5 13 26 0C 99 22 52 45 54 55 52 4E 22 3B C7 28 |..&.."RETURN";.(|
00000BA0: 31 34 36 29 3B 00 C2 13 30 0C 99 22 20 54 4F 20 |146);...0.." TO |
00000BB0: 43 4F 50 59 20 41 4E 4F 54 48 45 52 20 46 49 4C |COPY ANOTHER FIL|
00000BC0: 45 22 00 D8 13 3A 0C A1 44 4D 24 3A 8B 44 4D 24 |E"...:..DM$:.DM$|
00000BD0: B2 22 22 89 33 31 33 30 00 EC 13 44 0C 8B 44 4D |."".3130...D..DM|
00000BE0: 24 B2 C7 28 31 33 29 89 31 30 30 30 00 F2 13 4E |$..(13).1000...N|
00000BF0: 0C 80 00 F8 13 A0 0F 8F 00 16 14 AA 0F 8F 20 4E |.............. N|
00000C00: 4F 20 46 49 4C 45 53 20 45 52 52 4F 52 20 48 41 |O FILES ERROR HA|
00000C10: 4E 44 4C 49 4E 47 00 26 14 BE 0F 99 C8 28 50 4C |NDLING.&.....(PL|
00000C20: 24 2C 32 31 29 3B 00 45 14 C8 0F 99 22 4E 4F 20 |$,21);.E...."NO |
00000C30: 46 49 4C 45 53 20 4F 4E 20 54 48 49 53 20 44 49 |FILES ON THIS DI|
00000C40: 53 4B 2E 22 3B 00 64 14 D2 0F 99 22 50 52 45 53 |SK.";.d...."PRES|
00000C50: 53 20 12 52 45 54 55 52 4E 92 20 54 4F 20 54 52 |S .RETURN. TO TR|
00000C60: 59 20 22 3B 00 7A 14 DC 0F 99 22 41 4E 4F 54 48 |Y ";.z...."ANOTH|
00000C70: 45 52 20 44 49 53 4B 2E 22 3B 00 90 14 E6 0F A1 |ER DISK.";......|
00000C80: 44 4D 24 3A 8B 44 4D 24 B2 22 22 89 33 31 33 30 |DM$:.DM$."".3130|
00000C90: 00 A4 14 F0 0F 8B 44 4D 24 B2 C7 28 31 33 29 89 |......DM$..(13).|
00000CA0: 31 30 30 30 00 AA 14 FA 0F 80 00 C9 14 10 27 83 |1000..........'.|
00000CB0: 20 37 36 2C 31 35 2C 33 31 2C 37 36 2C 38 38 2C | 76,15,31,76,88,|
00000CC0: 33 31 2C 37 36 2C 31 35 34 00 E5 14 1A 27 83 20 |31,76,154....'. |
00000CD0: 33 31 2C 31 30 38 2C 33 2C 30 2C 31 30 38 2C 35 |31,108,3,0,108,5|
00000CE0: 2C 30 2C 33 32 00 07 15 24 27 83 20 39 2C 33 31 |,0,32...$'. 9,31|
00000CF0: 2C 31 35 32 2C 31 37 30 2C 33 32 2C 31 39 38 2C |,152,170,32,198,|
00000D00: 32 35 35 2C 31 36 38 00 29 15 2E 27 83 20 31 37 |255,168.)..'. 17|
00000D10: 36 2C 35 37 2C 31 36 39 2C 30 2C 31 33 33 2C 32 |6,57,169,0,133,2|
00000D20: 35 31 2C 31 36 39 2C 33 32 00 4C 15 38 27 83 20 |51,169,32.L.8'. |
00000D30: 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C 33 32 |133,252,160,0,32|
00000D40: 2C 32 30 37 2C 32 35 35 2C 31 34 35 00 70 15 42 |,207,255,145.p.B|
00000D50: 27 83 20 32 35 31 2C 32 33 30 2C 32 35 31 2C 32 |'. 251,230,251,2|
00000D60: 30 38 2C 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 |08,2,230,252,165|
00000D70: 00 95 15 4C 27 83 20 31 34 34 2C 32 30 38 2C 31 |...L'. 144,208,1|
00000D80: 33 2C 31 36 35 2C 32 35 32 2C 32 30 31 2C 31 36 |3,165,252,201,16|
00000D90: 30 2C 31 34 34 00 B7 15 56 27 83 20 32 33 35 2C |0,144...V'. 235,|
00000DA0: 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 30 2C 30 |32,204,255,160,0|
00000DB0: 2C 32 34 30 2C 31 39 00 DB 15 60 27 83 20 31 36 |,240,19...`'. 16|
00000DC0: 34 2C 31 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 |4,144,32,204,255|
00000DD0: 2C 31 39 32 2C 36 34 2C 32 30 38 00 FE 15 6A 27 |,192,64,208...j'|
00000DE0: 83 20 31 30 2C 31 36 34 2C 32 35 31 2C 31 36 35 |. 10,164,251,165|
00000DF0: 2C 32 35 32 2C 35 36 2C 32 33 33 2C 33 32 00 1E |,252,56,233,32..|
00000E00: 16 74 27 83 20 37 36 2C 31 32 2C 33 31 2C 31 36 |.t'. 76,12,31,16|
00000E10: 39 2C 32 34 30 2C 37 36 2C 31 32 2C 33 31 00 3F |9,240,76,12,31.?|
00000E20: 16 7E 27 83 20 33 32 2C 39 2C 33 31 2C 31 35 32 |.~'. 32,9,31,152|
00000E30: 2C 31 37 30 2C 33 32 2C 32 30 31 2C 32 35 35 00 |,170,32,201,255.|
00000E40: 64 16 88 27 83 20 31 36 38 2C 31 37 36 2C 32 34 |d..'. 168,176,24|
00000E50: 30 2C 31 36 35 2C 32 35 31 2C 31 34 31 2C 31 37 |0,165,251,141,17|
00000E60: 34 2C 33 31 00 87 16 92 27 83 20 31 36 35 2C 32 |4,31....'. 165,2|
00000E70: 35 32 2C 31 34 31 2C 31 37 35 2C 33 31 2C 31 36 |52,141,175,31,16|
00000E80: 39 2C 30 2C 31 33 33 00 AA 16 9C 27 83 20 32 35 |9,0,133....'. 25|
00000E90: 31 2C 31 36 39 2C 33 32 2C 31 33 33 2C 32 35 32 |1,169,32,133,252|
00000EA0: 2C 31 36 30 2C 30 2C 31 37 37 00 CE 16 A6 27 83 |,160,0,177....'.|
00000EB0: 20 32 35 31 2C 33 32 2C 32 31 30 2C 32 35 35 2C | 251,32,210,255,|
00000EC0: 31 36 34 2C 31 34 34 2C 32 30 38 2C 32 30 00 F2 |164,144,208,20..|
00000ED0: 16 B0 27 83 20 32 33 30 2C 32 35 31 2C 32 30 38 |..'. 230,251,208|
00000EE0: 2C 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 2C 32 |,2,230,252,165,2|
00000EF0: 35 32 00 17 17 BA 27 83 20 32 30 35 2C 31 37 35 |52....'. 205,175|
00000F00: 2C 33 31 2C 31 34 34 2C 32 33 34 2C 31 36 35 2C |,31,144,234,165,|
00000F10: 32 35 31 2C 32 30 35 00 3A 17 C4 27 83 20 31 37 |251,205.:..'. 17|
00000F20: 34 2C 33 31 2C 31 34 34 2C 32 32 37 2C 33 34 2C |4,31,144,227,34,|
00000F30: 32 30 34 2C 32 35 35 2C 37 36 00 59 17 CE 27 83 |204,255,76.Y..'.|
00000F40: 20 37 33 2C 33 31 2C 33 32 2C 39 2C 33 31 2C 31 | 73,31,32,9,31,1|
00000F50: 33 32 2C 32 35 31 2C 32 34 00 7C 17 D8 27 83 20 |32,251,24.|..'. |
00000F60: 31 30 35 2C 33 32 2C 31 33 33 2C 32 35 32 2C 31 |105,32,133,252,1|
00000F70: 36 30 2C 30 2C 31 37 37 2C 32 35 31 00 95 17 E2 |60,0,177,251....|
00000F80: 27 83 20 31 36 38 2C 31 36 39 2C 30 2C 37 36 2C |'. 168,169,0,76,|
00000F90: 31 32 2C 33 31 00 00 00 |12,31... |
..$.... **************************.F..
.. **SINGLE DRIVE FILE COPY**.H.... **
************************...... ******BY
RALF HERZIG******...... **************
************.G.#..".":.53280,0:.53281,0.
..(..52,31:.56,31:....-..I.0.173...2..D:
.7936.I,D:....7..785,0:.786,31...<.PL$.G
(19).8.A..I.1.24:PL$.PL$.G(17):..R.F..I.
1.39:CL$.CL$." ":..N.K.CL$.CL$.G(13).CL$
.G(13)...P.CL$.H(PL$,21).CL$.G(145).G(14
5)...U..15,8,15:. OPEN ERROR CHAN...Z..1
000.A.D...Z.N.. READ THE DIRECTORY......
785,0:. SELECT READ FUNCTION......15,"I"
:.2,8,2,"$".3...NB..(2):. LOAD DIR INTO
MEM.M. . 2:.800:. CHECK ERROR.S.....Y.H.
..Q.R.. DISPLAY DISK NAME......785,6:. S
ELECT FETCH CHAR......H(PL$,3);G(18);...
...K.142.169.D....G(.(K));:..P....G(146)
.V.......,.....6.. PRINT DIRECTORY ENTRY
DE...J..785,6:. SELECT FETCH CHAR.=.T.I
X.(DE.1).32.254..((DE.1).8).2.N.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):........S.... G
ET DESTINATION DISK......CL$;......"INSE
RT DESTINATION DISK."...B.."PRESS ";G(18
);"RETURN";.6.L..G(146);" WHEN READY.".K
.V..DM$:.DM$."".470._....DM$..G(13).470.
M....15,"I":..S.......... GET A FILE TO
COPY......CL$;:.EN.63.580.A....UE.128..N
M$;" TOO LARGE.";...&..EN.62..NM$;" NOT
FOUND.";...0.."ENTER FILE,TYPE":NM$."":E
N.0:UE.0...:..NM$,TY$:..:.D..NM$;" EXIST
S. ENTER NEW NAME".Q.N.EN.0:NM$."":.NM$:
..W.X...K.B.. READ THE FILE...V..785,0:.
SELECT READ FUNCTION......2,8,2,NM$.","
.TY$.",R"......900:.EN..0. 2:..Z...NB..(
2):. READ THE FILE..... 2:.800:. CHECK R
ESULTS...............F.. WRITE THE FILE.
:.Z..785,3:. SELECT WRITE FUNCTION.V....
2,8,2,NM$.",".TY$.",W".K....900:.EN..0.
2:......NB..(2):. READ THE FILE..... 2:.
800:. CHECK RESULTS......... ...N.*.. CH
ECK USR() RETURN VALUE...>.NB.NB.(NB.0).
65536...H..NB.61440.UE.0:....R..NB.61440
.UE.128:....\..CL$;.2.F..B(785).0.."READ
";.J.P..B(785).3.."WRITE";.E.Z.." ERROR
#";NB.61440:..K.......... READ ERROR CHA
NNEL......15,EN,EM$,ET,ES......EN.0.EN.6
2.EN.63....... 15:.CL$.U.J.."DISK ERROR
#";EN...T..H(PL$,22);EM$:............. M
AIN ROUTINE......G(147):. CLS.;....".
SINGLE DRIVE FILE COPY".V....:."READ
ING DIRECTORY".T.$..100:. READ THE DIREC
TORY......200:. DISPLAY TITLE...8.NS..((
NB.1).254)...B..NS.1.4000:. NO FILES.E.L
.DS.1...V..NS..DS.DS.1:. START OVER...`.
.H(PL$,4);...J.BE.(DS.1).8.1:LE.BE.15.".
T..DS.1.NS.LE.BE.8.0.~..DE.BE.LE.K....30
0:.:. DISPLAY FILES.D....I.B(214).20:. C
LEAR......" "........
....500:. GET FILE NAME......NM$."".DS.D
S.2:.1110...P...T.Z.. COPY THE FILE=....
..CL$;......"READING ";NM$......600:. RE
AD THE FILE."....EN.62.UE.128.1200.9...B
C.NB:. SAVE COUNT.S. ..400:. GET DEST. D
ISK.K.*..CL$;"WRITING ";NM$...4..700:. W
RITE THE FILE...>..EN.0.3000...H..500:.
GET NEW FILE...R..NM$.."".2090.Y.\..CL$;
"FILE NOT COPIED"...F..3100.........B..
DISPLAY COMPLETIION STATUS...V..CL$;.%..
..NB..BC.3060.B...."COPY SUCCESFULL. ";
:.30703060."ERROR. ONLY";NB;"OUT";.Z....
BC;"BYTES COPIED."......"PRESS ";G(18);.
..&.."RETURN";G(146);.B.0.." TO COPY ANO
THER FILE".X.:..DM$:.DM$."".3130...D..DM
$.G(13).1000...N..... ........ NO FILES
ERROR HANDLING.&....H(PL$,21);.E.H.."NO
FILES ON THIS DISK.";.D.R.."PRESS .RETUR
N. TO TRY ";.Z...."ANOTHER DISK.";......
DM$:.DM$."".3130......DM$.G(13).1000....
...I..'. 76,15,31,76,88,31,76,154....'.
31,108,3,0,108,5,0,32...$'. 9,31,152,170
,32,198,255,168.)..'. 176,57,169,0,133,2
51,169,32.L.8'. 133,252,160,0,32,207,255
,145.P.B'. 251,230,251,208,2,230,252,165
...L'. 144,208,13,165,252,201,160,144...
V'. 235,32,204,255,160,0,240,19...`'. 16
4,144,32,204,255,192,64,208...J'. 10,164
,251,165,252,56,233,32...T'. 76,12,31,16
9,240,76,12,31.?.~'. 32,9,31,152,170,32,
201,255.D..'. 168,176,240,165,251,141,17
4,31....'. 165,252,141,175,31,169,0,133.
...'. 251,169,32,133,252,160,0,177.N..'.
251,32,210,255,164,144,208,20....'. 230
,251,208,2,230,252,165,252....'. 205,175
,31,144,234,165,251,205.:.D'. 174,31,144
,227,34,204,255,76.Y.N'. 73,31,32,9,31,1
32,251,24.|.X'. 105,32,133,252,160,0,177
,251....'. 168,169,0,76,12,31...
> CLICK IMAGE PREVIEW FOR FULL MODAL