FILE COPY.C
FILE INFORMATION
FILENAME(S): FILE COPY.C
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
77b7f2feab08b93467a58f8f1fc5845d027b97b0f20614eb7e4641794aeaf21c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | FILE COPY.C | PRG | DuncanTwain | 3 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 14 00 99 20 C7 28 31 34 37 29 00 34 |....... .(147).4|
00000010: 08 1E 00 99 20 22 20 20 20 20 20 20 20 53 49 4E |.... " SIN|
00000020: 47 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 |GLE DRIVE FILE C|
00000030: 4F 50 59 22 00 5A 08 23 00 99 22 9F 20 20 20 20 |OPY".Z.#..". |
00000040: 20 20 20 20 20 11 11 11 4F 4E 45 20 4D 4F 4D 45 | ...ONE MOME|
00000050: 4E 54 20 50 4C 45 41 53 45 22 00 70 08 28 00 97 |NT PLEASE".p.(..|
00000060: 20 35 32 2C 33 31 3A 97 20 35 36 2C 33 31 3A 9C | 52,31:. 56,31:.|
00000070: 00 7E 08 2D 00 81 20 49 B2 30 A4 31 37 33 00 93 |.~.-.. I.0.173..|
00000080: 08 32 00 87 20 44 3A 97 20 37 39 33 36 AA 49 2C |.2.. D:. 7936.I,|
00000090: 44 3A 82 00 A6 08 37 00 97 37 38 35 2C 30 3A 97 |D:....7..785,0:.|
000000A0: 37 38 36 2C 33 31 00 B4 08 3C 00 50 4C 24 B2 C7 |786,31...<.PL$..|
000000B0: 28 31 39 29 00 D0 08 41 00 81 49 B2 31 A4 32 34 |(19)...A..I.1.24|
000000C0: 3A 50 4C 24 B2 50 4C 24 AA C7 28 31 37 29 3A 82 |:PL$.PL$..(17):.|
000000D0: 00 EA 08 46 00 81 49 B2 31 A4 33 39 3A 43 4C 24 |...F..I.1.39:CL$|
000000E0: B2 43 4C 24 AA 22 20 22 3A 82 00 06 09 4B 00 43 |.CL$." ":....K.C|
000000F0: 4C 24 B2 43 4C 24 AA C7 28 31 33 29 AA 43 4C 24 |L$.CL$..(13).CL$|
00000100: AA C7 28 31 33 29 00 27 09 50 00 43 4C 24 B2 C8 |..(13).'.P.CL$..|
00000110: 28 50 4C 24 2C 32 31 29 AA 43 4C 24 AA 43 4C 24 |(PL$,21).CL$.CL$|
00000120: AA 22 91 91 91 91 22 00 59 09 53 00 53 50 24 B2 |."....".Y.S.SP$.|
00000130: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 22 00 89 09 54 00 5A 24 | "...T.Z$|
00000160: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 22 00 A9 09 55 00 9F 20 | "...U.. |
00000190: 31 35 2C 38 2C 31 35 3A 8F 20 4F 50 45 4E 20 45 |15,8,15:. OPEN E|
000001A0: 52 52 4F 52 20 43 48 41 4E 00 B4 09 5A 00 89 20 |RROR CHAN...Z.. |
000001B0: 31 30 30 30 00 BA 09 64 00 3A 00 D3 09 6E 00 8F |1000...d.:...n..|
000001C0: 20 52 45 41 44 20 54 48 45 20 44 49 52 45 43 54 | READ THE DIRECT|
000001D0: 4F 52 59 00 F5 09 82 00 97 37 38 35 2C 30 3A 8F |ORY......785,0:.|
000001E0: 20 53 45 4C 45 43 54 20 52 45 41 44 20 46 55 4E | SELECT READ FUN|
000001F0: 43 54 49 4F 4E 00 0D 0A 8C 00 98 31 35 2C 22 49 |CTION......15,"I|
00000200: 22 3A 9F 20 32 2C 38 2C 32 2C 22 24 22 00 2D 0A |":. 2,8,2,"$".-.|
00000210: 96 00 4E 42 B2 B7 28 32 29 3A 8F 20 4C 4F 41 44 |..NB..(2):. LOAD|
00000220: 20 44 49 52 20 49 4E 54 4F 20 4D 45 4D 00 49 0A | DIR INTO MEM.I.|
00000230: A0 00 A0 20 32 3A 8D 20 38 31 30 3A 8F 20 43 48 |... 2:. 810:. CH|
00000240: 45 43 4B 20 45 52 52 4F 52 00 4F 0A AA 00 8E 00 |ECK ERROR.O.....|
00000250: 55 0A C8 00 3A 00 6D 0A D2 00 8F 20 44 49 53 50 |U...:.m.... DISP|
00000260: 4C 41 59 20 44 49 53 4B 20 4E 41 4D 45 00 8D 0A |LAY DISK NAME...|
00000270: E6 00 97 20 37 38 35 2C 36 3A 8F 20 53 45 4C 45 |... 785,6:. SELE|
00000280: 43 54 20 46 45 54 43 48 20 43 48 41 52 00 9A 0A |CT FETCH CHAR...|
00000290: EB 00 99 20 C7 28 31 34 37 29 00 B0 0A F0 00 99 |... .(147)......|
000002A0: 20 C8 28 50 4C 24 2C 33 29 3B C7 28 31 38 29 3B | .(PL$,3);.(18);|
000002B0: 00 BF 0A FA 00 81 4B B2 31 34 32 A4 31 36 39 00 |......K.142.169.|
000002C0: D0 0A 04 01 99 20 C7 28 B7 28 4B 29 29 3B 3A 82 |..... .(.(K));:.|
000002D0: 00 DD 0A 0E 01 99 20 C7 28 31 34 36 29 00 E3 0A |...... .(146)...|
000002E0: 18 01 8E 00 E9 0A 2C 01 3A 00 08 0B 36 01 8F 20 |......,.:...6.. |
000002F0: 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 20 |PRINT DIRECTORY |
00000300: 45 4E 54 52 59 20 44 45 00 50 0B 4A 01 97 37 38 |ENTRY DE.P.J..78|
00000310: 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 46 45 54 |5,6:. SELECT FET|
00000320: 43 48 20 43 48 41 52 20 20 20 20 20 33 34 30 20 |CH CHAR 340 |
00000330: 49 58 3D 28 44 45 2D 31 29 2A 33 32 2B 32 35 34 |IX=(DE-1)*32+254|
00000340: 2D 49 4E 54 28 28 44 45 2D 31 29 2F 38 29 2A 32 |-INT((DE-1)/8)*2|
00000350: 00 73 0B 54 01 49 58 B2 28 44 45 AB 31 29 AC 33 |.s.T.IX.(DE.1).3|
00000360: 32 AA 32 35 34 AB B5 28 28 44 45 AB 31 29 AD 38 |2.254..((DE.1).8|
00000370: 29 AC 32 00 87 0B 59 01 8B 20 B7 28 49 58 29 B3 |).2...Y.. .(IX).|
00000380: 31 32 38 20 A7 20 8E 00 AA 0B 5E 01 54 59 B2 B7 |128 . ....^.TY..|
00000390: 28 49 58 29 AB 31 32 38 3A 8B 20 54 59 B2 30 20 |(IX).128:. TY.0 |
000003A0: B0 20 54 59 B1 33 20 A7 20 8E 00 BF 0B 68 01 81 |. TY.3 . ....h..|
000003B0: 20 4B B2 49 58 AA 33 20 A4 20 49 58 AA 31 38 00 | K.IX.3 . IX.18.|
000003C0: CE 0B 72 01 99 20 C7 28 B7 28 4B 29 29 3B 00 E0 |..r.. .(.(K));..|
000003D0: 0B 7C 01 82 3A 99 20 A3 31 36 29 3B 22 2C 22 3B |.|..:. .16);",";|
000003E0: 00 F6 0B 86 01 99 20 CA 28 22 53 50 55 22 2C 54 |...... .("SPU",T|
000003F0: 59 2C 31 29 3A 8E 00 FC 0B 90 01 3A 00 17 0C 9A |Y,1):......:....|
00000400: 01 8F 20 47 45 54 20 44 45 53 54 49 4E 41 54 49 |.. GET DESTINATI|
00000410: 4F 4E 20 44 49 53 4B 00 22 0C AE 01 99 20 43 4C |ON DISK.".... CL|
00000420: 24 3B 00 4A 0C B8 01 99 20 22 9F 20 20 20 20 20 |$;.J.... ". |
00000430: 20 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 | INSERT DESTINAT|
00000440: 49 4F 4E 20 44 49 53 4B 9A 22 00 74 0C C2 01 4D |ION DISK.".t...M|
00000450: 53 24 B2 22 20 20 20 20 20 20 50 52 45 53 53 20 |S$." PRESS |
00000460: 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 52 45 |.RETURN. WHEN RE|
00000470: 41 44 59 22 00 7D 0C C7 01 4E 4C B2 31 00 87 0C |ADY".}...NL.1...|
00000480: CC 01 8D 35 30 30 30 00 9B 0C E0 01 8B 44 4D 24 |...5000......DM$|
00000490: B3 B1 C7 28 31 33 29 89 34 36 30 00 A9 0C EA 01 |...(13).460.....|
000004A0: 98 31 35 2C 22 49 22 3A 8E 00 AF 0C F4 01 3A 00 |.15,"I":......:.|
000004B0: C8 0C FE 01 8F 20 47 45 54 20 41 20 46 49 4C 45 |..... GET A FILE|
000004C0: 20 54 4F 20 43 4F 50 59 00 DE 0C 12 02 99 20 43 | TO COPY...... C|
000004D0: 4C 24 3B 3A 8B 45 4E B2 36 33 89 35 38 30 00 F3 |L$;:.EN.63.580..|
000004E0: 0C 30 02 4E 4D 24 B2 22 22 3A 45 4E B2 30 3A 55 |.0.NM$."":EN.0:U|
000004F0: 45 B2 30 00 24 0D 35 02 99 22 9F 45 4E 54 45 52 |E.0.$.5..".ENTER|
00000500: 20 46 49 4C 45 2C 54 59 50 45 2E 20 12 52 45 54 | FILE,TYPE. .RET|
00000510: 55 52 4E 92 20 53 43 52 4F 4C 4C 53 20 44 49 52 |URN. SCROLLS DIR|
00000520: 27 59 9A 22 00 33 0D 3A 02 85 4E 4D 24 2C 54 59 |'Y.".3.:..NM$,TY|
00000530: 24 3A 8E 00 57 0D 44 02 99 43 4C 24 3B 22 9F 54 |$:..W.D..CL$;".T|
00000540: 48 45 52 45 27 53 20 41 4C 52 45 41 44 59 20 41 |HERE'S ALREADY A|
00000550: 20 9A 22 3B 4E 4D 24 00 7D 0D 46 02 99 22 9F 44 | .";NM$.}.F..".D|
00000560: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 |O YOU WISH TO RE|
00000570: 50 4C 41 43 45 3F 28 59 2F 4E 29 9A 22 00 93 0D |PLACE?(Y/N)."...|
00000580: 47 02 A1 20 52 45 24 3A 8B 52 45 24 B2 22 22 89 |G.. RE$:.RE$."".|
00000590: 35 38 33 00 A8 0D 48 02 8B 52 45 24 B2 22 59 22 |583...H..RE$."Y"|
000005A0: A7 20 89 20 36 30 30 30 00 C1 0D 4A 02 99 22 9F |. . 6000...J..".|
000005B0: 45 4E 54 45 52 20 4E 45 57 20 4E 41 4D 45 9A 22 |ENTER NEW NAME."|
000005C0: 3B 00 D7 0D 4E 02 45 4E B2 30 3A 4E 4D 24 B2 22 |;...N.EN.0:NM$."|
000005D0: 22 3A 85 20 4E 4D 24 00 DD 0D 53 02 8E 00 E3 0D |":. NM$...S.....|
000005E0: 58 02 3A 00 F7 0D 62 02 8F 20 52 45 41 44 20 54 |X.:...b.. READ T|
000005F0: 48 45 20 46 49 4C 45 00 19 0E 76 02 97 37 38 35 |HE FILE...v..785|
00000600: 2C 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 |,0:. SELECT READ|
00000610: 20 46 55 4E 43 54 49 4F 4E 00 36 0E 80 02 9F 20 | FUNCTION.6.... |
00000620: 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 |2,8,2,NM$.",".TY|
00000630: 24 AA 22 2C 52 22 00 4D 0E 8A 02 8D 39 30 30 3A |$.",R".M....900:|
00000640: 8B 45 4E B3 B1 30 20 A7 20 A0 32 3A 8E 00 69 0E |.EN..0 . .2:..i.|
00000650: 94 02 4E 42 B2 B7 28 32 29 3A 8F 20 52 45 41 44 |..NB..(2):. READ|
00000660: 20 54 48 45 20 46 49 4C 45 00 87 0E 9E 02 A0 20 | THE FILE...... |
00000670: 32 3A 8D 20 38 30 30 3A 8F 20 43 48 45 43 4B 20 |2:. 800:. CHECK |
00000680: 52 45 53 55 4C 54 53 00 8D 0E A8 02 8E 00 93 0E |RESULTS.........|
00000690: BC 02 3A 00 A8 0E C6 02 8F 20 57 52 49 54 45 20 |..:...... WRITE |
000006A0: 54 48 45 20 46 49 4C 45 00 CB 0E DA 02 97 37 38 |THE FILE......78|
000006B0: 35 2C 33 3A 8F 20 53 45 4C 45 43 54 20 57 52 49 |5,3:. SELECT WRI|
000006C0: 54 45 20 46 55 4E 43 54 49 4F 4E 00 E8 0E E4 02 |TE FUNCTION.....|
000006D0: 9F 20 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA |. 2,8,2,NM$.",".|
000006E0: 54 59 24 AA 22 2C 57 22 00 FF 0E EE 02 8D 39 30 |TY$.",W"......90|
000006F0: 30 3A 8B 45 4E B3 B1 30 20 A7 20 A0 32 3A 8E 00 |0:.EN..0 . .2:..|
00000700: 1D 0F F8 02 4E 42 B2 B7 28 32 29 3A 8F 20 57 52 |....NB..(2):. WR|
00000710: 49 54 45 20 54 48 45 20 42 59 54 45 53 00 3A 0F |ITE THE BYTES.:.|
00000720: 02 03 A0 32 3A 8D 20 38 30 30 3A 8F 20 43 48 45 |...2:. 800:. CHE|
00000730: 43 4B 20 52 45 53 55 4C 54 53 00 57 0F 0B 03 A0 |CK RESULTS.W....|
00000740: 32 3A 8D 20 38 30 30 3A 8F 20 43 48 45 43 4B 20 |2:. 800:. CHECK |
00000750: 52 45 53 55 4C 54 53 00 5D 0F 0C 03 8E 00 63 0F |RESULTS.].....c.|
00000760: 20 03 3A 00 82 0F 2A 03 8F 20 43 48 45 43 4B 20 | .:...*.. CHECK |
00000770: 55 53 52 28 29 20 52 45 54 55 52 4E 20 56 41 4C |USR() RETURN VAL|
00000780: 55 45 00 99 0F 3E 03 4E 42 B2 4E 42 AB 28 4E 42 |UE...>.NB.NB.(NB|
00000790: B3 30 29 AC 36 35 35 33 36 00 B0 0F 48 03 8B 4E |.0).65536...H..N|
000007A0: 42 B3 36 31 34 34 30 20 A7 20 55 45 B2 30 3A 8E |B.61440 . UE.0:.|
000007B0: 00 C8 0F 52 03 8B 4E 42 B2 36 31 34 34 30 20 A7 |...R..NB.61440 .|
000007C0: 55 45 B2 31 32 38 3A 8E 00 D1 0F 5C 03 99 43 4C |UE.128:....\..CL|
000007D0: 24 00 EA 0F 66 03 8B 20 C2 28 37 38 35 29 B2 30 |$...f.. .(785).0|
000007E0: 20 A7 20 99 22 52 45 41 44 22 00 04 10 70 03 8B | . ."READ"...p..|
000007F0: 20 C2 28 37 38 35 29 B2 33 20 A7 20 99 22 57 52 | .(785).3 . ."WR|
00000800: 49 54 45 22 00 1F 10 7A 03 99 22 20 45 52 52 4F |ITE"...z.." ERRO|
00000810: 52 20 23 22 3B 4E 42 AB 36 31 34 34 30 3A 80 00 |R #";NB.61440:..|
00000820: 25 10 84 03 3A 00 3F 10 8E 03 8F 20 52 45 41 46 |%...:.?.... REAF|
00000830: 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 |D ERROR CHANNEL.|
00000840: 54 10 AC 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |T....15,EN,EM$,E|
00000850: 54 2C 45 53 00 6E 10 B6 03 8B 45 4E B2 30 B0 45 |T,ES.n....EN.0.E|
00000860: 4E B2 36 32 B0 45 4E B2 36 33 20 A7 20 8E 00 7D |N.62.EN.63 . ..}|
00000870: 10 C0 03 A0 20 31 35 3A 99 43 4C 24 3B 00 95 10 |.... 15:.CL$;...|
00000880: CA 03 99 20 22 44 49 53 4B 20 45 52 52 4F 52 20 |... "DISK ERROR |
00000890: 23 22 3B 45 4E 00 AB 10 D4 03 99 20 C8 28 50 4C |#";EN...... .(PL|
000008A0: 24 2C 32 32 29 3B 45 4D 24 3A 80 00 B1 10 E8 03 |$,22);EM$:......|
000008B0: 3A 00 C4 10 F2 03 8F 20 4D 41 49 4E 20 52 4F 55 |:...... MAIN ROU|
000008C0: 54 49 4E 45 00 E1 10 06 04 99 20 C7 28 31 34 37 |TINE...... .(147|
000008D0: 29 3B 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 45 |);:. CLEAR SCREE|
000008E0: 4E 00 F0 10 0B 04 99 22 11 11 11 11 11 11 11 22 |N......"......."|
000008F0: 00 16 11 10 04 99 22 9F 20 20 20 20 20 20 20 20 |......". |
00000900: 20 20 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 | INSERT SOURCE |
00000910: 44 49 53 4B 9A 22 00 45 11 12 04 4D 53 24 B2 22 |DISK.".E...MS$."|
00000920: 11 11 11 20 20 20 20 20 20 20 20 50 52 45 53 53 |... PRESS|
00000930: 20 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 52 | .RETURN. WHEN R|
00000940: 45 41 44 59 22 00 4E 11 13 04 4E 4C B2 33 00 58 |EADY".N...NL.3.X|
00000950: 11 14 04 8D 35 30 30 30 00 6F 11 16 04 8B 20 44 |....5000.o.... D|
00000960: 4D 24 B3 B1 C7 28 31 33 29 A7 20 31 30 34 34 00 |M$...(13). 1044.|
00000970: 96 11 1A 04 99 3A 99 A3 31 30 29 3B 22 11 11 9E |.....:..10);"...|
00000980: 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 |READING DIRECTOR|
00000990: 59 22 3B 22 9A 22 00 B5 11 24 04 8D 20 31 31 30 |Y";"."...$.. 110|
000009A0: 3A 8F 20 52 45 41 44 20 54 48 45 20 44 49 52 45 |:. READ THE DIRE|
000009B0: 43 54 4F 52 59 00 CF 11 2E 04 8D 20 32 31 30 3A |CTORY...... 210:|
000009C0: 8F 20 44 49 53 50 4C 41 59 20 54 49 54 4C 45 00 |. DISPLAY TITLE.|
000009D0: E4 11 38 04 4E 53 B2 B5 28 28 4E 42 AA 31 29 AD |..8.NS..((NB.1).|
000009E0: 32 35 34 29 00 FE 11 42 04 8B 4E 53 B2 31 89 35 |254)...B..NS.1.5|
000009F0: 30 30 30 3A 8F 20 4E 4F 20 46 49 4C 45 53 00 07 |000:. NO FILES..|
00000A00: 12 4C 04 44 53 B2 31 00 28 12 56 04 8B 20 4E 53 |.L.DS.1.(.V.. NS|
00000A10: B3 B2 44 53 20 A7 20 44 53 B2 31 3A 8F 20 53 54 |..DS . DS.1:. ST|
00000A20: 41 52 54 20 4F 56 45 52 00 38 12 60 04 99 20 C8 |ART OVER.8.`.. .|
00000A30: 28 50 4C 24 2C 34 29 3B 00 53 12 6A 04 42 45 B2 |(PL$,4);.S.j.BE.|
00000A40: 28 44 53 AB 31 29 AC 38 AA 31 3A 4C 45 B2 42 45 |(DS.1).8.1:LE.BE|
00000A50: AA 31 35 00 6B 12 74 04 8B 20 44 53 AA 31 B2 4E |.15.k.t.. DS.1.N|
00000A60: 53 20 A7 20 4C 45 B2 42 45 AA 38 00 7B 12 7E 04 |S . LE.BE.8.{.~.|
00000A70: 81 20 44 45 B2 42 45 20 A4 4C 45 00 97 12 88 04 |. DE.BE .LE.....|
00000A80: 8D 20 33 30 30 3A 82 3A 8F 20 44 49 53 50 4C 41 |. 300:.:. DISPLA|
00000A90: 59 20 46 49 4C 45 53 00 B0 12 92 04 81 49 B2 C2 |Y FILES......I..|
00000AA0: 28 32 31 34 29 A4 32 30 3A 8F 20 43 4C 45 41 52 |(214).20:. CLEAR|
00000AB0: 00 CC 12 9C 04 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 22 00 D2 12 A6 | "....|
00000AD0: 04 82 00 EC 12 B0 04 8D 20 35 30 30 3A 8F 20 47 |........ 500:. G|
00000AE0: 45 54 20 46 49 4C 45 20 4E 41 4D 45 00 08 13 BA |ET FILE NAME....|
00000AF0: 04 8B 20 4E 4D 24 B2 22 22 20 A7 44 53 B2 44 53 |.. NM$."" .DS.DS|
00000B00: AA 32 3A 89 31 31 31 30 00 0E 13 D0 07 3A 00 22 |.2:.1110.....:."|
00000B10: 13 DA 07 8F 20 43 4F 50 59 20 54 48 45 20 46 49 |.... COPY THE FI|
00000B20: 4C 45 00 2C 13 EE 07 99 43 4C 24 3B 00 4C 13 F8 |LE.,....CL$;.L..|
00000B30: 07 99 22 20 20 20 20 20 20 20 9E 52 45 41 44 49 |.." .READI|
00000B40: 4E 47 20 22 3B 4E 4D 24 3B 22 9A 22 00 66 13 02 |NG ";NM$;".".f..|
00000B50: 08 8D 20 36 30 30 3A 8F 20 52 45 41 44 20 54 48 |.. 600:. READ TH|
00000B60: 45 20 46 49 4C 45 00 7F 13 0C 08 8B 20 45 4E B2 |E FILE...... EN.|
00000B70: 36 32 B0 55 45 B2 31 32 38 20 89 31 32 30 30 00 |62.UE.128 .1200.|
00000B80: 96 13 16 08 42 43 B2 4E 42 3A 8F 20 53 41 56 45 |....BC.NB:. SAVE|
00000B90: 20 43 4F 55 4E 54 00 B1 13 20 08 8D 20 34 30 30 | COUNT... .. 400|
00000BA0: 3A 8F 20 47 45 54 20 44 45 53 54 2E 20 44 49 53 |:. GET DEST. DIS|
00000BB0: 4B 00 D8 13 2A 08 99 20 43 4C 24 3B 22 20 20 20 |K...*.. CL$;" |
00000BC0: 20 20 20 20 20 20 9E 57 52 49 54 49 4E 47 20 22 | .WRITING "|
00000BD0: 3B 4E 4D 24 3B 22 9A 22 00 F3 13 34 08 8D 20 37 |;NM$;"."...4.. 7|
00000BE0: 30 30 3A 8F 20 57 52 49 54 45 20 54 48 45 20 46 |00:. WRITE THE F|
00000BF0: 49 4C 45 00 05 14 3E 08 8B 20 45 4E 4E B2 30 20 |ILE...>.. ENN.0 |
00000C00: 89 33 30 30 30 00 1E 14 48 08 8D 20 35 30 30 3A |.3000...H.. 500:|
00000C10: 8F 20 47 45 54 20 4E 45 57 20 46 49 4C 45 00 32 |. GET NEW FILE.2|
00000C20: 14 52 08 8B 20 4E 4D 24 B3 B1 22 22 20 89 32 30 |.R.. NM$.."" .20|
00000C30: 39 30 00 50 14 5C 08 99 20 43 4C 24 3B 22 9F 46 |90.P.\.. CL$;".F|
00000C40: 49 4C 45 20 4E 4F 54 20 43 4F 50 49 45 44 9A 22 |ILE NOT COPIED."|
00000C50: 00 5A 14 66 08 89 33 31 30 30 00 60 14 B8 0B 3A |.Z.f..3100.`...:|
00000C60: 00 80 14 C2 0B 8F 20 44 49 53 50 4C 41 59 20 43 |...... DISPLAY C|
00000C70: 4F 4D 50 4C 45 54 49 4F 4E 20 53 54 41 54 55 53 |OMPLETION STATUS|
00000C80: 00 8F 14 D6 0B 99 20 43 4C 24 3B 22 9F 22 3B 00 |...... CL$;".";.|
00000C90: A2 14 E0 0B 8B 20 4E 42 B3 B1 42 43 20 89 33 30 |..... NB..BC .30|
00000CA0: 36 30 00 C3 14 EA 0B 99 22 43 4F 50 59 20 53 55 |60......"COPY SU|
00000CB0: 43 43 45 53 53 46 55 4C 2E 20 20 22 3B 3A 89 33 |CCESSFUL. ";:.3|
00000CC0: 30 37 30 00 E4 14 F4 0B 99 20 22 45 52 52 4F 52 |070...... "ERROR|
00000CD0: 2E 20 4F 4E 4C 59 20 22 3B 4E 42 3B 22 20 4F 55 |. ONLY ";NB;" OU|
00000CE0: 54 20 22 3B 00 FD 14 FE 0B 99 20 42 43 3B 22 42 |T ";...... BC;"B|
00000CF0: 59 54 45 53 20 43 4F 50 49 45 44 2E 22 00 12 15 |YTES COPIED."...|
00000D00: 1C 0C 99 22 50 52 45 53 53 20 22 3B C7 28 31 38 |..."PRESS ";.(18|
00000D10: 29 3B 00 29 15 26 0C 99 20 22 52 45 54 55 52 4E |);.).&.. "RETURN|
00000D20: 22 3B C7 28 31 34 36 29 3B 00 46 15 30 0C 99 22 |";.(146);.F.0.."|
00000D30: 20 54 4F 20 43 4F 50 59 20 41 4E 4F 54 48 45 52 | TO COPY ANOTHER|
00000D40: 20 46 49 4C 45 22 00 6A 15 35 0C 99 22 50 52 45 | FILE".j.5.."PRE|
00000D50: 53 53 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 |SS ANY OTHER KEY|
00000D60: 20 54 4F 20 45 58 49 54 9A 22 00 82 15 3A 0C A1 | TO EXIT."...:..|
00000D70: 20 44 4D 24 3A 8B 20 44 4D 24 B2 22 22 89 33 31 | DM$:. DM$."".31|
00000D80: 33 30 00 97 15 44 0C 8B 44 4D 24 B2 C7 28 31 33 |30...D..DM$..(13|
00000D90: 29 20 89 31 30 30 30 00 9D 15 4E 0C 80 00 A3 15 |) .1000...N.....|
00000DA0: A0 0F 3A 00 C1 15 AA 0F 8F 20 4E 4F 20 46 49 4C |..:...... NO FIL|
00000DB0: 45 53 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E |ES ERROR HANDLIN|
00000DC0: 47 00 D2 15 BE 0F 99 20 C8 28 50 4C 24 2C 32 31 |G...... .(PL$,21|
00000DD0: 29 3B 00 F0 15 C8 0F 99 22 4E 4F 20 46 49 4C 45 |);......"NO FILE|
00000DE0: 53 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 |S ON THIS DISK."|
00000DF0: 00 19 16 D2 0F 99 22 50 52 45 53 53 20 52 45 54 |......"PRESS RET|
00000E00: 55 52 4E 20 54 4F 20 54 52 59 20 41 4E 4F 54 48 |URN TO TRY ANOTH|
00000E10: 45 52 20 44 49 53 4B 2E 22 00 32 16 E6 0F A1 20 |ER DISK.".2.... |
00000E20: 44 4D 24 3A 8B 20 44 4D 24 B2 22 22 20 89 34 30 |DM$:. DM$."" .40|
00000E30: 37 30 00 48 16 F0 0F 8B 20 44 4D 24 B2 C7 28 31 |70.H.... DM$..(1|
00000E40: 33 29 20 89 31 30 30 30 00 4E 16 FA 0F 80 00 64 |3) .1000.N.....d|
00000E50: 16 88 13 A1 20 44 4D 24 3A 8B 44 4D 24 B3 B1 22 |.... DM$:.DM$.."|
00000E60: 22 A7 20 8E 00 6E 16 8D 13 99 20 4D 53 24 00 7D |". ..n.... MS$.}|
00000E70: 16 8F 13 8B 4E 4C B2 31 89 35 30 36 30 00 9A 16 |....NL.1.5060...|
00000E80: 92 13 81 20 49 B2 31 A4 33 30 30 3A 82 3A 99 20 |... I.1.300:.:. |
00000E90: 53 50 24 3B 22 91 91 91 91 22 00 A9 16 9C 13 81 |SP$;"...."......|
00000EA0: 49 B2 31 A4 32 30 30 3A 82 00 C0 16 B0 13 A1 20 |I.1.200:....... |
00000EB0: 44 4D 24 3A 8B 44 4D 24 B2 22 22 A7 35 30 30 30 |DM$:.DM$."".5000|
00000EC0: 00 C6 16 BA 13 8E 00 DF 16 C4 13 81 49 B2 31 A4 |............I.1.|
00000ED0: 33 30 30 3A 82 3A 99 20 53 50 24 3B 22 91 22 00 |300:.:. SP$;".".|
00000EE0: E9 16 CE 13 89 35 30 32 30 00 02 17 70 17 8F 20 |.....5020...p.. |
00000EF0: 52 45 50 4C 41 43 45 20 53 55 42 52 4F 55 54 49 |REPLACE SUBROUTI|
00000F00: 4E 45 00 0C 17 75 17 99 43 4C 24 3B 00 23 17 7A |NE...u..CL$;.#.z|
00000F10: 17 98 31 35 2C 22 53 30 3A 22 AA 4E 4D 24 3A 89 |..15,"S0:".NM$:.|
00000F20: 35 39 35 00 33 17 98 17 8F 20 20 20 20 52 45 54 |595.3.... RET|
00000F30: 55 52 4E 00 4E 17 58 1B 99 43 4C 24 3A 81 49 B2 |URN.N.X..CL$:.I.|
00000F40: 31 A4 35 3A 99 5A 24 3A 82 3A 99 43 4C 24 00 54 |1.5:.Z$:.:.CL$.T|
00000F50: 17 62 1B 8E 00 73 17 10 27 83 20 37 36 2C 31 35 |.b...s..'. 76,15|
00000F60: 2C 33 31 2C 37 36 2C 38 38 2C 33 31 2C 37 36 2C |,31,76,88,31,76,|
00000F70: 31 35 34 00 8F 17 1A 27 83 20 33 31 2C 31 30 38 |154....'. 31,108|
00000F80: 2C 33 2C 30 2C 31 30 38 2C 35 2C 30 2C 33 32 00 |,3,0,108,5,0,32.|
00000F90: B1 17 24 27 83 20 39 2C 33 31 2C 31 35 32 2C 31 |..$'. 9,31,152,1|
00000FA0: 37 30 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 |70,32,198,255,16|
00000FB0: 38 00 D3 17 2E 27 83 20 31 37 36 2C 35 37 2C 31 |8....'. 176,57,1|
00000FC0: 36 39 2C 30 2C 31 33 33 2C 32 35 31 2C 31 36 39 |69,0,133,251,169|
00000FD0: 2C 33 32 00 F6 17 38 27 83 20 31 33 33 2C 32 35 |,32...8'. 133,25|
00000FE0: 32 2C 31 36 30 2C 30 2C 33 32 2C 32 30 37 2C 32 |2,160,0,32,207,2|
00000FF0: 35 35 2C 31 34 35 00 1A 18 42 27 83 20 32 35 31 |55,145...B'. 251|
00001000: 2C 32 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C 32 |,230,251,208,2,2|
00001010: 33 30 2C 32 35 32 2C 31 36 35 00 3F 18 4C 27 83 |30,252,165.?.L'.|
00001020: 20 31 34 34 2C 32 30 38 2C 31 33 2C 31 36 35 2C | 144,208,13,165,|
00001030: 32 35 32 2C 32 30 31 2C 31 36 30 2C 31 34 34 00 |252,201,160,144.|
00001040: 61 18 56 27 83 20 32 33 35 2C 33 32 2C 32 30 34 |a.V'. 235,32,204|
00001050: 2C 32 35 35 2C 31 36 30 2C 30 2C 32 34 30 2C 31 |,255,160,0,240,1|
00001060: 39 00 85 18 60 27 83 20 31 36 34 2C 31 34 34 2C |9...`'. 164,144,|
00001070: 33 32 2C 32 30 34 2C 32 35 35 2C 31 39 32 2C 36 |32,204,255,192,6|
00001080: 34 2C 32 30 38 00 A8 18 6A 27 83 20 31 30 2C 31 |4,208...j'. 10,1|
00001090: 36 34 2C 32 35 31 2C 31 36 35 2C 32 35 32 2C 35 |64,251,165,252,5|
000010A0: 36 2C 32 33 33 2C 33 32 00 C8 18 74 27 83 20 37 |6,233,32...t'. 7|
000010B0: 36 2C 31 32 2C 33 31 2C 31 36 39 2C 32 34 30 2C |6,12,31,169,240,|
000010C0: 37 36 2C 31 32 2C 33 31 00 E8 18 7E 27 83 33 32 |76,12,31...~'.32|
000010D0: 2C 39 2C 33 31 2C 31 35 32 2C 31 37 30 2C 33 32 |,9,31,152,170,32|
000010E0: 2C 32 30 31 2C 32 35 35 00 0D 19 88 27 83 20 31 |,201,255....'. 1|
000010F0: 36 38 2C 31 37 36 2C 32 34 30 2C 31 36 35 2C 32 |68,176,240,165,2|
00001100: 35 31 2C 31 34 31 2C 31 37 34 2C 33 31 00 2F 19 |51,141,174,31./.|
00001110: 92 27 83 31 36 35 2C 32 35 32 2C 31 34 31 2C 31 |.'.165,252,141,1|
00001120: 37 35 2C 33 31 2C 31 36 39 2C 30 2C 31 33 33 00 |75,31,169,0,133.|
00001130: 52 19 9C 27 83 20 32 35 31 2C 31 36 39 2C 33 32 |R..'. 251,169,32|
00001140: 2C 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C 31 |,133,252,160,0,1|
00001150: 37 37 00 76 19 A6 27 83 20 32 35 31 2C 33 32 2C |77.v..'. 251,32,|
00001160: 32 31 30 2C 32 35 35 2C 31 36 34 2C 31 34 34 2C |210,255,164,144,|
00001170: 32 30 38 2C 32 30 00 99 19 B0 27 83 32 33 30 2C |208,20....'.230,|
00001180: 32 35 31 2C 32 30 38 2C 32 2C 32 33 30 2C 32 35 |251,208,2,230,25|
00001190: 32 2C 31 36 35 2C 32 35 32 00 BE 19 BA 27 83 20 |2,165,252....'. |
000011A0: 32 30 35 2C 31 37 35 2C 33 31 2C 31 34 34 2C 32 |205,175,31,144,2|
000011B0: 33 34 2C 31 36 35 2C 32 35 31 2C 32 30 35 00 E1 |34,165,251,205..|
000011C0: 19 C4 27 83 20 31 37 34 2C 33 31 2C 31 34 34 2C |..'. 174,31,144,|
000011D0: 32 32 37 2C 33 32 2C 32 30 34 2C 32 35 35 2C 37 |227,32,204,255,7|
000011E0: 36 00 00 1A CE 27 83 20 37 33 2C 33 31 2C 33 32 |6....'. 73,31,32|
000011F0: 2C 39 2C 33 31 2C 31 33 32 2C 32 35 31 2C 32 34 |,9,31,132,251,24|
00001200: 00 23 1A D8 27 83 20 31 30 35 2C 33 32 2C 31 33 |.#..'. 105,32,13|
00001210: 33 2C 32 35 32 2C 31 36 30 2C 30 2C 31 37 37 2C |3,252,160,0,177,|
00001220: 32 35 31 00 3C 1A E2 27 83 20 31 36 38 2C 31 36 |251.<..'. 168,16|
00001230: 39 2C 30 2C 37 36 2C 31 32 2C 33 31 00 4E 1A 84 |9,0,76,12,31.N..|
00001240: 4E 54 4C B2 30 3A 81 49 B2 30 A4 31 37 33 00 62 |NTL.0:.I.0.173.b|
00001250: 1A 8E 4E 54 4C B2 54 4C AA C2 28 37 39 33 36 AA |..NTL.TL..(7936.|
00001260: 49 29 00 77 1A 98 4E 54 B2 B5 28 28 49 AA 31 29 |I).w..NT..((I.1)|
00001270: AD 38 29 AC 38 AB 31 00 8B 1A A2 4E 8B 20 54 B2 |.8).8.1....N. T.|
00001280: 49 A7 99 54 4C 2C 3A 54 4C B2 30 00 96 1A AC 4E |I..TL,:TL.0....N|
00001290: 82 3A 99 20 54 4C 00 00 00 |.:. TL... |
....... G(147).4.... " SINGLE DRIV
E FILE COPY".Z.#..". ...ONE MOME
NT PLEASE".P.(.. 52,31:. 56,31:..~.-.. I
.0.173...2.. D:. 7936.I,D:....7..785,0:.
786,31...<.PL$.G(19).P.A..I.1.24:PL$.PL$
.G(17):....F..I.1.39:CL$.CL$." ":....K.C
L$.CL$.G(13).CL$.G(13).'.P.CL$.H(PL$,21)
.CL$.CL$."....".Y.S.SP$.".
"...T.Z$."
"...U..
15,8,15:. OPEN ERROR CHAN...Z.. 1000...D
.:.S.N.. READ THE DIRECTORY......785,0:.
SELECT READ FUNCTION......15,"I":. 2,8,
2,"$".-...NB..(2):. LOAD DIR INTO MEM.I.
. 2:. 810:. CHECK ERROR.O.....U.H.:.M.
R.. DISPLAY DISK NAME...... 785,6:. SELE
CT FETCH CHAR...... G(147)...... H(PL$,3
);G(18);......K.142.169.P.... G(.(K));:.
...... G(146).........,.:...6.. PRINT DI
RECTORY ENTRY DE.P.J..785,6:. SELECT FET
CH CHAR 340 IX=(DE-1)*32+254-INT((DE
-1)/8)*2.S.T.IX.(DE.1).32.254..((DE.1).8
).2...Y.. .(IX).128 . ....^.TY..(IX).128
:. TY.0 . TY.3 . ....H.. K.IX.3 . IX.18.
N.R.. G(.(K));...|..:. .16);",";...... J
("SPU",TY,1):......:...... GET DESTINATI
ON DISK.".... CL$;.J.... ". INSERT
DESTINATION DISK.".T.B.MS$." PRESS
.RETURN. WHEN READY".}.G.NL.1...L..5000.
.....DM$..G(13).460......15,"I":......:.
H.... GET A FILE TO COPY...... CL$;:.EN.
63.580...0.NM$."":EN.0:UE.0.$.5..".ENTER
FILE,TYPE. .RETURN. SCROLLS DIR'Y.".3.:
..NM$,TY$:..W.D..CL$;".THERE'S ALREADY A
.";NM$.}.F..".DO YOU WISH TO REPLACE?(Y
/N)."...G.. RE$:.RE$."".583...H..RE$."Y"
. . 6000.A.J..".ENTER NEW NAME.";.W.N.EN
.0:NM$."":. NM$...S.....X.:...B.. READ T
HE FILE...V..785,0:. SELECT READ FUNCTIO
N.6.... 2,8,2,NM$.",".TY$.",R".M....900:
.EN..0 . 2:..I...NB..(2):. READ THE FIL
E..... 2:. 800:. CHECK RESULTS.........
..:...F.. WRITE THE FILE.K.Z..785,3:. SE
LECT WRITE FUNCTION...... 2,8,2,NM$.",".
TY$.",W"......900:.EN..0 . 2:......NB..
(2):. WRITE THE BYTES.:... 2:. 800:. CHE
CK RESULTS.W... 2:. 800:. CHECK RESULTS.
].....C. .:...*.. CHECK USR() RETURN VAL
UE...>.NB.NB.(NB.0).65536...H..NB.61440
. UE.0:..H.R..NB.61440 .UE.128:..Q.\..CL
$...F.. B(785).0 . ."READ"...P.. B(785).
3 . ."WRITE"...Z.." ERROR #";NB.61440:..
%...:.?.... REAFD ERROR CHANNEL.T....15,
EN,EM$,ET,ES.N....EN.0.EN.62.EN.63 . ..}
... 15:.CL$;...J.. "DISK ERROR #";EN...
T.. H(PL$,22);EM$:......:.D.... MAIN ROU
TINE...... G(147);:. CLEAR SCREEN......"
......."......". INSERT SOURCE
DISK.".E...MS$."... PRESS .RETURN
. WHEN READY".N...NL.3.X....5000.O.... D
M$..G(13). 1044......:..10);"...READING
DIRECTORY";"."...$.. 110:. READ THE DIRE
CTORY.O.... 210:. DISPLAY TITLE...8.NS..
((NB.1).254)...B..NS.1.5000:. NO FILES..
.L.DS.1.(.V.. NS..DS . DS.1:. START OVER
.8.`.. H(PL$,4);.S.J.BE.(DS.1).8.1:LE.BE
.15.K.T.. DS.1.NS . LE.BE.8.{.~.. DE.BE
.LE...... 300:.:. DISPLAY FILES......I.B
(214).20:. CLEAR.L...."
".R.......... 500:. GET FILE NAME....
.. NM$."" .DS.DS.2:.1110...P.:.".Z.. COP
Y THE FILE.,....CL$;.L...." .READI
NG ";NM$;".".F.... 600:. READ THE FILE.
.... EN.62.UE.128 .1200.....BC.NB:. SAVE
COUNT... .. 400:. GET DEST. DISK.X.*..
CL$;" .WRITING ";NM$;"."...4.. 7
00:. WRITE THE FILE...>.. ENN.0 .3000...
H.. 500:. GET NEW FILE.2.R.. NM$.."" .20
90.P.\.. CL$;".FILE NOT COPIED.".Z.F..31
00.`...:...B.. DISPLAY COMPLETION STATUS
...V.. CL$;".";...... NB..BC .3060.C....
"COPY SUCCESSFUL. ";:.3070...... "ERROR
. ONLY ";NB;" OUT ";...... BC;"BYTES COP
IED."......"PRESS ";G(18);.).&.. "RETURN
";G(146);.F.0.." TO COPY ANOTHER FILE".J
.5.."PRESS ANY OTHER KEY TO EXIT."...:..
DM$:. DM$."".3130...D..DM$.G(13) .1000.
..N..... .:.A.... NO FILES ERROR HANDLIN
G.R.... H(PL$,21);...H.."NO FILES ON THI
S DISK."...R.."PRESS RETURN TO TRY ANOTH
ER DISK.".2.... DM$:. DM$."" .4070.H....
DM$.G(13) .1000.N.....D.... DM$:.DM$.."
". ..N.... MS$.}....NL.1.5060...... I.1.
300:.:. SP$;"...."......I.1.200:.......
DM$:.DM$."".5000.F.......D..I.1.300:.:.
SP$;"."...N..5020...P.. REPLACE SUBROUTI
NE...U..CL$;.#.Z..15,"S0:".NM$:.595.3...
. RETURN.N.X..CL$:.I.1.5:.Z$:.:.CL$.T
.B...S..'. 76,15,31,76,88,31,76,154....'
. 31,108,3,0,108,5,0,32...$'. 9,31,152,1
70,32,198,255,168.S..'. 176,57,169,0,133
,251,169,32...8'. 133,252,160,0,32,207,2
55,145...B'. 251,230,251,208,2,230,252,1
65.?.L'. 144,208,13,165,252,201,160,144.
A.V'. 235,32,204,255,160,0,240,19...`'.
164,144,32,204,255,192,64,208...J'. 10,1
64,251,165,252,56,233,32.H.T'. 76,12,31,
169,240,76,12,31...~'.32,9,31,152,170,32
,201,255....'. 168,176,240,165,251,141,1
74,31./..'.165,252,141,175,31,169,0,133.
R..'. 251,169,32,133,252,160,0,177.V..'.
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,32,204,255,76...N'. 73,31,32,9,31,13
2,251,24.#.X'. 105,32,133,252,160,0,177,
251.<..'. 168,169,0,76,12,31.N..NTL.0:.I
.0.173.B..NTL.TL.B(7936.I).W..NT..((I.1)
.8).8.1....N. T.I..TL,:TL.0....N.:. TL..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL