SINGLE DISK
FILE INFORMATION
FILENAME(S): SINGLE DISK
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-12-01 19:06:27
APPEARS ON: 1 disk(s)
FILE HASH
318bac24fe4149c1fa0383024f5713a2ff7719da385c5afc99d9869dcc9d0a02
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HIGH TECH | SINGLE DISK | PRG | Icebreaker | 15 | 4 | 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 32 |RIVE FILE COPY.2|
00000020: 08 28 00 97 35 32 2C 33 31 3A 97 35 36 2C 33 31 |.(..52,31:.56,31|
00000030: 3A 9C 00 40 08 2D 00 81 20 49 B2 30 A4 31 37 33 |:..@.-.. I.0.173|
00000040: 00 54 08 32 00 87 20 44 3A 97 37 39 33 36 AA 49 |.T.2.. D:.7936.I|
00000050: 2C 44 3A 82 00 67 08 37 00 97 37 38 35 2C 30 3A |,D:..g.7..785,0:|
00000060: 97 37 38 36 2C 33 31 00 75 08 3C 00 50 4C 24 B2 |.786,31.u.<.PL$.|
00000070: C7 28 31 39 29 00 91 08 41 00 81 49 B2 31 A4 32 |.(19)...A..I.1.2|
00000080: 34 3A 50 4C 24 B2 50 4C 24 AA C7 28 31 37 29 3A |4:PL$.PL$..(17):|
00000090: 82 00 AC 08 46 00 81 20 49 B2 31 A4 33 39 3A 43 |....F.. I.1.39:C|
000000A0: 4C 24 B2 43 4C 24 AA 22 20 22 3A 82 00 C8 08 4B |L$.CL$." ":....K|
000000B0: 00 43 4C 24 B2 43 4C 24 AA C7 28 31 33 29 AA 43 |.CL$.CL$..(13).C|
000000C0: 4C 24 AA C7 28 31 33 29 00 EC 08 50 00 43 4C 24 |L$..(13)...P.CL$|
000000D0: B2 C8 28 50 4C 24 2C 32 31 29 AA 43 4C 24 AA C7 |..(PL$,21).CL$..|
000000E0: 28 31 34 35 29 AA C7 28 31 34 35 29 00 0C 09 55 |(145)..(145)...U|
000000F0: 00 9F 20 31 35 2C 38 2C 31 35 3A 8F 20 4F 50 45 |.. 15,8,15:. OPE|
00000100: 4E 20 45 52 52 4F 52 20 43 48 41 4E 00 16 09 5A |N ERROR CHAN...Z|
00000110: 00 89 31 30 30 30 00 25 09 64 00 8F 20 4C 45 46 |..1000.%.d.. LEF|
00000120: 54 20 4F 55 54 00 3E 09 6E 00 8F 20 52 45 41 44 |T OUT.>.n.. READ|
00000130: 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 61 | THE DIRECTORY.a|
00000140: 09 82 00 97 37 38 35 2C 30 3A 20 8F 20 53 45 4C |....785,0: . SEL|
00000150: 45 43 54 20 52 45 41 44 20 46 55 4E 43 54 49 4F |ECT READ FUNCTIO|
00000160: 4E 00 79 09 8C 00 98 31 35 2C 22 49 22 3A 9F 20 |N.y....15,"I":. |
00000170: 32 2C 38 2C 32 2C 22 24 22 00 99 09 96 00 4E 42 |2,8,2,"$".....NB|
00000180: B2 B7 28 32 29 3A 8F 20 4C 4F 41 44 20 44 49 52 |..(2):. LOAD DIR|
00000190: 20 49 4E 54 4F 20 4D 45 4D 00 B4 09 A0 00 A0 32 | INTO MEM......2|
000001A0: 3A 8D 20 38 30 30 3A 8F 20 43 48 45 43 4B 20 45 |:. 800:. CHECK E|
000001B0: 52 52 4F 52 00 BA 09 AA 00 8E 00 C9 09 C8 00 8F |RROR............|
000001C0: 20 4C 45 46 54 20 4F 55 54 00 E1 09 D2 00 8F 20 | LEFT OUT...... |
000001D0: 44 49 53 50 4C 41 59 20 44 49 53 4B 20 4E 41 4D |DISPLAY DISK NAM|
000001E0: 45 00 00 0A E6 00 97 37 38 35 2C 36 3A 8F 20 53 |E......785,6:. S|
000001F0: 45 4C 45 43 54 20 46 45 54 43 48 20 43 48 41 52 |ELECT FETCH CHAR|
00000200: 00 16 0A F0 00 99 20 C8 28 50 4C 24 2C 33 29 3B |...... .(PL$,3);|
00000210: C7 28 31 38 29 3B 00 28 0A FA 00 81 20 4B B2 31 |.(18);.(.... K.1|
00000220: 34 32 20 A4 20 31 36 39 00 38 0A 04 01 99 C7 28 |42 . 169.8.....(|
00000230: B7 28 4B 29 29 3B 3A 82 00 45 0A 0E 01 99 20 C7 |.(K));:..E.... .|
00000240: 28 31 34 36 29 00 4B 0A 18 01 8E 00 5A 0A 2C 01 |(146).K.....Z.,.|
00000250: 8F 20 4C 45 46 54 20 4F 55 54 00 79 0A 36 01 8F |. LEFT OUT.y.6..|
00000260: 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 | PRINT DIRECTORY|
00000270: 20 45 4E 54 52 59 20 44 45 00 99 0A 4A 01 97 20 | ENTRY DE...J.. |
00000280: 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 46 |785,6:. SELECT F|
00000290: 45 54 43 48 20 43 48 41 52 00 BC 0A 54 01 49 58 |ETCH CHAR...T.IX|
000002A0: B2 28 44 45 AB 31 29 AC 33 32 AA 32 35 34 AB B5 |.(DE.1).32.254..|
000002B0: 28 28 44 45 AB 31 29 AD 38 29 AC 32 00 D0 0A 59 |((DE.1).8).2...Y|
000002C0: 01 8B 20 B7 28 49 58 29 B3 31 32 38 20 A7 20 8E |.. .(IX).128 . .|
000002D0: 00 F3 0A 5E 01 54 59 B2 B7 28 49 58 29 AB 31 32 |...^.TY..(IX).12|
000002E0: 38 3A 8B 20 54 59 B2 30 20 B0 20 54 59 B1 33 20 |8:. TY.0 . TY.3 |
000002F0: A7 20 8E 00 08 0B 68 01 81 20 4B B2 49 58 AA 33 |. ....h.. K.IX.3|
00000300: 20 A4 20 49 58 AA 31 38 00 17 0B 72 01 99 20 C7 | . IX.18...r.. .|
00000310: 28 B7 28 4B 29 29 3B 00 29 0B 7C 01 82 3A 99 20 |(.(K));.).|..:. |
00000320: A3 31 36 29 3B 22 2C 22 3B 00 3F 0B 86 01 99 20 |.16);",";.?.... |
00000330: CA 28 22 53 50 55 22 2C 54 59 2C 31 29 3A 8E 00 |.("SPU",TY,1):..|
00000340: 4E 0B 90 01 8F 20 4C 45 46 54 20 4F 55 54 00 69 |N.... LEFT OUT.i|
00000350: 0B 9A 01 8F 20 47 45 54 20 44 45 53 54 49 4E 41 |.... GET DESTINA|
00000360: 54 49 4F 4E 20 44 49 53 4B 00 74 0B AE 01 99 20 |TION DISK.t.... |
00000370: 43 4C 24 3B 00 95 0B B8 01 99 20 22 49 4E 53 45 |CL$;...... "INSE|
00000380: 52 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |RT DESTINATION D|
00000390: 49 53 4B 2E 22 00 B4 0B C2 01 99 20 22 50 52 45 |ISK."...... "PRE|
000003A0: 53 53 20 22 3B C7 28 31 38 29 3B 22 52 45 54 52 |SS ";.(18);"RETR|
000003B0: 55 4E 22 3B 00 D0 0B CC 01 99 20 C7 28 31 34 36 |UN";...... .(146|
000003C0: 29 3B 22 20 57 48 45 4E 20 52 45 41 44 59 2E 22 |);" WHEN READY."|
000003D0: 00 E6 0B D6 01 A1 44 4D 24 3A 8B 44 4D 24 B2 22 |......DM$:.DM$."|
000003E0: 22 20 89 34 37 30 00 FA 0B E0 01 8B 44 4D 24 B3 |" .470......DM$.|
000003F0: B1 C7 28 31 33 29 89 34 37 30 00 08 0C EA 01 98 |..(13).470......|
00000400: 31 35 2C 22 49 22 3A 8E 00 17 0C F4 01 8F 20 4C |15,"I":....... L|
00000410: 45 46 54 20 4F 55 54 00 30 0C FE 01 8F 20 47 45 |EFT OUT.0.... GE|
00000420: 54 20 41 20 46 49 4C 45 20 54 4F 20 43 4F 50 59 |T A FILE TO COPY|
00000430: 00 48 0C 12 02 99 20 43 4C 24 3B 3A 8B 20 45 4E |.H.... CL$;:. EN|
00000440: B2 36 33 20 89 35 38 30 00 6A 0C 1C 02 8B 55 45 |.63 .580.j....UE|
00000450: B2 31 32 38 A7 20 99 20 4E 4D 24 3B 22 20 54 4F |.128. . NM$;" TO|
00000460: 4F 20 4C 41 52 47 45 2E 22 3B 00 8D 0C 26 02 8B |O LARGE.";...&..|
00000470: 20 45 4E B2 36 32 20 A7 20 99 20 4E 4D 24 3B 22 | EN.62 . . NM$;"|
00000480: 20 4E 4F 54 20 46 4F 55 4E 44 2E 22 3B 00 B6 0C | NOT FOUND.";...|
00000490: 30 02 99 20 22 45 4E 54 45 52 20 46 49 4C 45 2C |0.. "ENTER FILE,|
000004A0: 54 59 50 45 22 3A 4E 4D 24 B2 22 22 3A 45 4E B2 |TYPE":NM$."":EN.|
000004B0: 30 3A 55 45 B2 30 00 C6 0C 3A 02 85 20 4E 4D 24 |0:UE.0...:.. NM$|
000004C0: 2C 54 59 24 3A 8E 00 EA 0C 44 02 99 20 4E 4D 24 |,TY$:....D.. NM$|
000004D0: 3B 22 20 45 58 49 53 54 53 2E 20 45 4E 54 45 52 |;" EXISTS. ENTER|
000004E0: 20 4E 45 57 20 4E 41 4D 45 22 00 02 0D 4E 02 45 | NEW NAME"...N.E|
000004F0: 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 20 4E 4D 24 |N.0:NM$."":. NM$|
00000500: 3A 8E 00 11 0D 58 02 8F 20 4C 45 46 54 20 4F 55 |:....X.. LEFT OU|
00000510: 54 00 25 0D 62 02 8F 20 52 45 41 44 20 54 48 45 |T.%.b.. READ THE|
00000520: 20 46 49 4C 45 00 47 0D 76 02 97 37 38 35 2C 30 | FILE.G.v..785,0|
00000530: 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 20 46 |:. SELECT READ F|
00000540: 55 4E 43 54 49 4F 4E 00 64 0D 80 02 9F 20 32 2C |UNCTION.d.... 2,|
00000550: 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 AA |8,2,NM$.",".TY$.|
00000560: 22 2C 52 22 00 7B 0D 8A 02 8D 20 39 30 30 3A 8B |",R".{.... 900:.|
00000570: 45 4E B3 B1 30 A7 20 A0 32 3A 8E 00 97 0D 94 02 |EN..0. .2:......|
00000580: 4E 42 B2 B7 28 32 29 3A 8F 20 52 45 41 44 20 54 |NB..(2):. READ T|
00000590: 48 45 20 46 49 4C 45 00 B3 0D 9E 02 A0 32 3A 8D |HE FILE......2:.|
000005A0: 38 30 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 |800:. CHECK RESU|
000005B0: 4C 54 53 00 B9 0D A8 02 8E 00 C8 0D BC 02 8F 20 |LTS............ |
000005C0: 4C 45 46 54 20 4F 55 54 00 DD 0D C6 02 8F 20 57 |LEFT OUT...... W|
000005D0: 52 49 54 45 20 54 48 45 20 46 49 4C 45 00 00 0E |RITE THE FILE...|
000005E0: DA 02 97 37 38 35 2C 33 3A 8F 20 53 45 4C 45 43 |...785,3:. SELEC|
000005F0: 54 20 57 52 49 54 45 20 46 55 4E 43 54 49 4F 4E |T WRITE FUNCTION|
00000600: 00 1D 0E E4 02 9F 20 32 2C 38 2C 32 2C 4E 4D 24 |...... 2,8,2,NM$|
00000610: AA 22 2C 22 AA 54 59 24 AA 22 2C 57 22 00 32 0E |.",".TY$.",W".2.|
00000620: EE 02 8D 39 30 30 3A 8B 45 4E B3 B1 30 A7 A0 32 |...900:.EN..0..2|
00000630: 3A 8E 00 50 0E F8 02 4E 42 B2 B7 28 32 29 3A 8F |:..P...NB..(2):.|
00000640: 20 57 52 49 54 45 20 54 48 45 20 42 59 54 45 53 | WRITE THE BYTES|
00000650: 00 6E 0E 02 03 A0 20 32 3A 8D 20 38 30 30 3A 8F |.n.... 2:. 800:.|
00000660: 20 43 48 45 43 4B 20 52 45 53 55 4C 54 53 00 74 | CHECK RESULTS.t|
00000670: 0E 0C 03 8E 00 83 0E 20 03 8F 20 4C 45 46 54 20 |....... .. LEFT |
00000680: 4F 55 54 00 A2 0E 2A 03 8F 20 43 48 45 43 4B 20 |OUT...*.. CHECK |
00000690: 55 53 52 28 29 20 52 45 54 55 52 4E 20 56 41 4C |USR() RETURN VAL|
000006A0: 55 45 00 B9 0E 3E 03 4E 42 B2 4E 42 AB 28 4E 42 |UE...>.NB.NB.(NB|
000006B0: B3 30 29 AC 36 35 35 33 36 00 CF 0E 48 03 8B 20 |.0).65536...H.. |
000006C0: 4E 42 B3 36 31 34 34 30 A7 55 45 B2 30 3A 8E 00 |NB.61440.UE.0:..|
000006D0: E9 0E 52 03 8B 20 4E 42 B2 36 31 34 34 30 20 A7 |..R.. NB.61440 .|
000006E0: 20 55 45 B2 31 32 38 3A 8E 00 F4 0E 5C 03 99 20 | UE.128:....\.. |
000006F0: 43 4C 24 3B 00 0E 0F 66 03 8B 20 C2 28 37 38 35 |CL$;...f.. .(785|
00000700: 29 B2 30 A7 20 99 20 22 52 45 41 44 22 3B 00 29 |).0. . "READ";.)|
00000710: 0F 70 03 8B 20 C2 28 37 38 35 29 B2 33 A7 20 99 |.p.. .(785).3. .|
00000720: 20 22 57 52 49 54 45 22 3B 00 45 0F 7A 03 99 20 | "WRITE";.E.z.. |
00000730: 22 20 45 52 52 4F 52 20 23 22 3B 4E 42 AB 36 31 |" ERROR #";NB.61|
00000740: 34 34 30 3A 80 00 54 0F 84 03 8F 20 4C 45 46 54 |440:..T.... LEFT|
00000750: 20 4F 55 54 00 6D 0F 8E 03 8F 20 52 45 41 44 20 | OUT.m.... READ |
00000760: 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 82 0F |ERROR CHANNEL...|
00000770: AC 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,|
00000780: 45 53 00 A0 0F B6 03 8B 20 45 4E B2 30 B0 20 45 |ES...... EN.0. E|
00000790: 4E B2 36 32 20 B0 20 45 4E B2 36 33 20 A7 20 8E |N.62 . EN.63 . .|
000007A0: 00 B0 0F C0 03 A0 20 31 35 3A 99 20 43 4C 24 3B |...... 15:. CL$;|
000007B0: 00 C8 0F CA 03 99 20 22 44 49 53 4B 20 45 52 52 |...... "DISK ERR|
000007C0: 4F 52 20 23 22 3B 45 4E 00 DE 0F D4 03 99 20 C8 |OR #";EN...... .|
000007D0: 28 50 4C 24 2C 32 32 29 3B 45 4D 24 3A 80 00 ED |(PL$,22);EM$:...|
000007E0: 0F E8 03 8F 20 4C 45 46 54 20 4F 55 54 00 00 10 |.... LEFT OUT...|
000007F0: F2 03 8F 20 4D 41 49 4E 20 52 4F 55 54 49 4E 45 |... MAIN ROUTINE|
00000800: 00 1D 10 06 04 99 20 C7 28 31 34 37 29 3B 3A 8F |...... .(147);:.|
00000810: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 43 10 | CLEAR SCREEN.C.|
00000820: 10 04 99 20 22 20 20 20 20 20 20 20 53 49 4E 47 |... " SING|
00000830: 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 4F |LE DRIVE FILE CO|
00000840: 50 59 22 00 5F 10 1A 04 99 3A 99 20 22 52 45 41 |PY"._....:. "REA|
00000850: 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 |DING DIRECTORY".|
00000860: 7E 10 24 04 8D 20 31 30 30 3A 8F 20 52 45 41 44 |~.$.. 100:. READ|
00000870: 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 99 | THE DIRECTORY..|
00000880: 10 2E 04 8D 20 32 30 30 3A 20 8F 20 44 49 53 50 |.... 200: . DISP|
00000890: 4C 41 59 20 54 49 54 4C 45 00 AE 10 38 04 4E 53 |LAY TITLE...8.NS|
000008A0: B2 B5 28 28 4E 42 AA 31 29 AD 32 35 34 29 00 CA |..((NB.1).254)..|
000008B0: 10 42 04 8B 20 4E 53 B2 31 20 89 35 30 30 30 3A |.B.. NS.1 .5000:|
000008C0: 8F 20 4E 4F 20 46 49 4C 45 53 00 D3 10 4C 04 44 |. NO FILES...L.D|
000008D0: 53 B2 31 00 F4 10 56 04 8B 20 4E 53 B3 B2 44 53 |S.1...V.. NS..DS|
000008E0: 20 A7 20 44 53 B2 31 3A 8F 20 53 54 41 52 54 20 | . DS.1:. START |
000008F0: 4F 56 45 52 00 04 11 60 04 99 20 C8 28 50 4C 24 |OVER...`.. .(PL$|
00000900: 2C 34 29 3B 00 1F 11 6A 04 42 45 B2 28 44 53 AB |,4);...j.BE.(DS.|
00000910: 31 29 AC 38 AA 31 3A 4C 45 B2 42 45 AA 31 35 00 |1).8.1:LE.BE.15.|
00000920: 37 11 74 04 8B 20 44 53 AA 31 B2 4E 53 20 A7 20 |7.t.. DS.1.NS . |
00000930: 4C 45 B2 42 45 AA 38 00 48 11 7E 04 81 20 44 45 |LE.BE.8.H.~.. DE|
00000940: B2 42 45 20 A4 20 4C 45 00 64 11 88 04 8D 20 33 |.BE . LE.d.... 3|
00000950: 30 30 3A 82 3A 8F 20 44 49 53 50 4C 41 59 20 46 |00:.:. DISPLAY F|
00000960: 49 4C 45 53 00 80 11 92 04 81 20 49 B2 C2 28 32 |ILES...... I..(2|
00000970: 31 34 29 20 A4 20 32 30 3A 8F 20 43 4C 45 41 52 |14) . 20:. CLEAR|
00000980: 00 9D 11 9C 04 99 20 22 20 20 20 20 20 20 20 20 |...... " |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A3 11 | "...|
000009A0: A6 04 82 00 BD 11 B0 04 8D 20 35 30 30 3A 8F 20 |......... 500:. |
000009B0: 47 45 54 20 46 49 4C 45 20 4E 41 4D 45 00 DA 11 |GET FILE NAME...|
000009C0: BA 04 8B 20 4E 4D 24 B2 22 22 20 A7 20 44 53 B2 |... NM$."" . DS.|
000009D0: 44 53 AA 32 3A 89 31 31 31 30 00 E9 11 D0 07 8F |DS.2:.1110......|
000009E0: 20 4C 45 46 54 20 4F 55 54 00 FD 11 DA 07 8F 20 | LEFT OUT...... |
000009F0: 43 4F 50 59 20 54 48 45 20 46 49 4C 45 00 08 12 |COPY THE FILE...|
00000A00: EE 07 99 20 43 4C 24 3B 00 1D 12 F8 07 99 20 22 |... CL$;...... "|
00000A10: 52 45 41 44 49 4E 47 20 22 3B 4E 4D 24 00 37 12 |READING ";NM$.7.|
00000A20: 02 08 8D 20 36 30 30 3A 8F 20 52 45 41 44 20 54 |... 600:. READ T|
00000A30: 48 45 20 46 49 4C 45 00 52 12 0C 08 8B 20 45 4E |HE FILE.R.... EN|
00000A40: B2 36 32 20 B0 20 55 45 B2 31 32 38 20 89 31 32 |.62 . UE.128 .12|
00000A50: 30 30 00 69 12 16 08 42 43 B2 4E 42 3A 8F 20 53 |00.i...BC.NB:. S|
00000A60: 41 56 45 20 43 4F 55 4E 54 00 83 12 20 08 8D 20 |AVE COUNT... .. |
00000A70: 34 30 30 3A 8F 20 47 45 54 20 44 45 53 54 20 44 |400:. GET DEST D|
00000A80: 49 53 4B 00 9C 12 2A 08 99 20 43 4C 24 3B 22 57 |ISK...*.. CL$;"W|
00000A90: 52 49 54 49 4E 47 20 22 3B 4E 4D 24 00 B7 12 34 |RITING ";NM$...4|
00000AA0: 08 8D 20 37 30 30 3A 8F 20 57 52 49 54 45 20 54 |.. 700:. WRITE T|
00000AB0: 48 45 20 46 49 4C 45 00 C8 12 3E 08 8B 20 45 4E |HE FILE...>.. EN|
00000AC0: B2 30 20 89 33 30 30 30 00 E1 12 48 08 8D 20 35 |.0 .3000...H.. 5|
00000AD0: 30 30 3A 8F 20 47 45 54 20 4E 45 57 20 46 49 4C |00:. GET NEW FIL|
00000AE0: 45 00 F5 12 52 08 8B 20 4E 4D 24 B3 B1 22 22 20 |E...R.. NM$.."" |
00000AF0: 89 32 30 39 30 00 11 13 5C 08 99 20 43 4C 24 3B |.2090...\.. CL$;|
00000B00: 22 46 49 4C 45 20 4E 4F 54 20 43 4F 50 49 45 44 |"FILE NOT COPIED|
00000B10: 22 00 1B 13 66 08 89 33 31 30 30 00 2A 13 B8 0B |"...f..3100.*...|
00000B20: 8F 20 4C 45 46 54 20 4F 55 54 00 4A 13 C2 0B 8F |. LEFT OUT.J....|
00000B30: 20 44 49 53 50 4C 41 59 20 43 4F 4D 50 4C 45 54 | DISPLAY COMPLET|
00000B40: 49 4F 4E 20 53 54 41 54 55 53 00 55 13 D6 0B 99 |ION STATUS.U....|
00000B50: 20 43 4C 24 3B 00 67 13 E0 0B 8B 20 4E 42 B3 B1 | CL$;.g.... NB..|
00000B60: 42 43 89 33 30 36 30 00 88 13 EA 0B 99 20 22 43 |BC.3060...... "C|
00000B70: 4F 50 59 20 53 55 43 43 45 53 46 55 4C 2E 20 20 |OPY SUCCESFUL. |
00000B80: 22 3B 3A 89 33 30 37 30 00 A9 13 F4 0B 99 20 22 |";:.3070...... "|
00000B90: 45 52 52 4F 52 2E 20 4F 4E 4C 59 20 22 3B 4E 42 |ERROR. ONLY ";NB|
00000BA0: 3B 22 20 4F 55 54 20 22 3B 00 C2 13 FE 0B 99 20 |;" OUT ";...... |
00000BB0: 42 43 3B 22 42 59 54 45 53 20 43 4F 50 49 45 44 |BC;"BYTES COPIED|
00000BC0: 2E 22 00 D8 13 1C 0C 99 20 22 50 52 45 53 53 20 |."...... "PRESS |
00000BD0: 22 3B C7 28 31 38 29 3B 00 EF 13 26 0C 99 20 22 |";.(18);...&.. "|
00000BE0: 52 45 54 55 52 4E 22 3B C7 28 31 34 36 29 3B 00 |RETURN";.(146);.|
00000BF0: 0D 14 30 0C 99 20 22 20 54 4F 20 43 4F 50 59 20 |..0.. " TO COPY |
00000C00: 41 4E 4F 54 48 45 52 20 46 49 4C 45 22 00 26 14 |ANOTHER FILE".&.|
00000C10: 3A 0C A1 20 44 4D 24 3A 8B 44 4D 24 B2 22 22 20 |:.. DM$:.DM$."" |
00000C20: 89 20 33 31 33 30 00 3C 14 44 0C 8B 20 44 4D 24 |. 3130.<.D.. DM$|
00000C30: B2 C7 28 31 33 29 20 89 31 30 30 30 00 42 14 4E |..(13) .1000.B.N|
00000C40: 0C 80 00 51 14 A0 0F 8F 20 4C 45 46 54 20 4F 55 |...Q.... LEFT OU|
00000C50: 54 00 6F 14 AA 0F 8F 20 4E 4F 20 46 49 4C 45 53 |T.o.... NO FILES|
00000C60: 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E 47 00 | ERROR HANDLING.|
00000C70: 80 14 BE 0F 99 20 C8 28 50 4C 24 2C 32 31 29 3B |..... .(PL$,21);|
00000C80: 00 9F 14 C8 0F 99 20 22 4E 4F 20 46 49 4C 45 53 |...... "NO FILES|
00000C90: 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 00 | ON THIS DISK.".|
00000CA0: BD 14 D2 0F 99 20 22 50 52 45 53 53 20 52 45 54 |..... "PRESS RET|
00000CB0: 55 52 4E 20 54 4F 20 54 52 59 20 22 3B 00 D5 14 |URN TO TRY ";...|
00000CC0: DC 0F 99 20 22 41 4E 4F 54 48 45 52 20 20 44 49 |... "ANOTHER DI|
00000CD0: 53 4B 2E 22 3B 00 EC 14 E6 0F A1 20 44 4D 24 3A |SK.";...... DM$:|
00000CE0: 8B 44 4D 24 B2 22 22 89 34 30 37 30 00 02 15 F0 |.DM$."".4070....|
00000CF0: 0F 8B 20 44 4D 24 B2 C7 28 31 33 29 20 89 31 30 |.. DM$..(13) .10|
00000D00: 30 30 00 08 15 FA 0F 80 00 26 15 10 27 83 37 36 |00.......&..'.76|
00000D10: 2C 31 35 2C 33 31 2C 37 36 2C 38 38 2C 33 31 2C |,15,31,76,88,31,|
00000D20: 37 36 2C 31 35 34 00 41 15 1A 27 83 33 31 2C 31 |76,154.A..'.31,1|
00000D30: 30 38 2C 33 2C 30 2C 31 30 38 2C 35 2C 30 2C 33 |08,3,0,108,5,0,3|
00000D40: 32 00 62 15 24 27 83 39 2C 33 31 2C 31 35 32 2C |2.b.$'.9,31,152,|
00000D50: 31 37 30 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 |170,32,198,255,1|
00000D60: 36 38 00 84 15 2E 27 83 20 31 37 36 2C 35 37 2C |68....'. 176,57,|
00000D70: 31 36 39 2C 30 2C 31 33 33 2C 32 35 31 2C 31 36 |169,0,133,251,16|
00000D80: 39 2C 33 32 00 A7 15 38 27 83 20 31 33 33 2C 32 |9,32...8'. 133,2|
00000D90: 35 32 2C 31 36 30 2C 30 2C 33 32 2C 32 30 37 2C |52,160,0,32,207,|
00000DA0: 32 35 35 2C 31 34 35 00 CB 15 42 27 83 20 32 35 |255,145...B'. 25|
00000DB0: 31 2C 32 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C |1,230,251,208,2,|
00000DC0: 32 33 30 2C 32 35 32 2C 31 36 35 00 EF 15 4C 27 |230,252,165...L'|
00000DD0: 83 31 34 34 2C 32 30 38 2C 31 33 2C 31 36 35 2C |.144,208,13,165,|
00000DE0: 32 35 32 2C 32 30 31 2C 31 36 30 2C 31 34 34 00 |252,201,160,144.|
00000DF0: 11 16 56 27 83 20 32 33 35 2C 33 32 2C 32 30 34 |..V'. 235,32,204|
00000E00: 2C 32 35 35 2C 31 36 30 2C 30 2C 32 34 30 2C 31 |,255,160,0,240,1|
00000E10: 39 00 34 16 60 27 83 31 36 34 2C 31 34 34 2C 33 |9.4.`'.164,144,3|
00000E20: 32 2C 32 30 34 2C 32 35 35 2C 31 39 32 2C 36 34 |2,204,255,192,64|
00000E30: 2C 32 30 38 00 57 16 6A 27 83 20 31 30 2C 31 36 |,208.W.j'. 10,16|
00000E40: 34 2C 32 35 31 2C 31 36 35 2C 32 35 32 2C 35 36 |4,251,165,252,56|
00000E50: 2C 32 33 33 2C 33 32 00 77 16 74 27 83 20 37 36 |,233,32.w.t'. 76|
00000E60: 2C 31 32 2C 33 31 2C 31 36 39 2C 32 34 30 2C 37 |,12,31,169,240,7|
00000E70: 36 2C 31 32 2C 33 31 00 98 16 7E 27 83 20 33 32 |6,12,31...~'. 32|
00000E80: 2C 39 2C 33 31 2C 31 35 32 2C 31 37 30 2C 33 32 |,9,31,152,170,32|
00000E90: 2C 32 30 31 2C 32 35 35 00 BD 16 88 27 83 20 31 |,201,255....'. 1|
00000EA0: 36 38 2C 31 37 36 2C 32 34 30 2C 31 36 35 2C 32 |68,176,240,165,2|
00000EB0: 35 31 2C 31 34 31 2C 31 37 34 2C 33 31 00 E0 16 |51,141,174,31...|
00000EC0: 92 27 83 20 31 36 35 2C 32 35 32 2C 31 34 31 2C |.'. 165,252,141,|
00000ED0: 31 37 35 2C 33 31 2C 31 36 39 2C 30 2C 31 33 33 |175,31,169,0,133|
00000EE0: 00 03 17 9C 27 83 20 32 35 31 2C 31 36 39 2C 33 |....'. 251,169,3|
00000EF0: 32 2C 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C |2,133,252,160,0,|
00000F00: 31 37 37 00 27 17 A6 27 83 20 32 35 31 2C 33 32 |177.'..'. 251,32|
00000F10: 2C 32 31 30 2C 32 35 35 2C 31 36 34 2C 31 34 34 |,210,255,164,144|
00000F20: 2C 32 30 38 2C 32 30 00 4B 17 B0 27 83 20 32 33 |,208,20.K..'. 23|
00000F30: 30 2C 32 35 31 2C 32 30 38 2C 32 2C 32 33 30 2C |0,251,208,2,230,|
00000F40: 32 35 32 2C 31 36 35 2C 32 35 32 00 70 17 BA 27 |252,165,252.p..'|
00000F50: 83 20 32 30 35 2C 31 37 35 2C 33 31 2C 31 34 34 |. 205,175,31,144|
00000F60: 2C 32 33 34 2C 31 36 35 2C 32 35 31 2C 32 30 35 |,234,165,251,205|
00000F70: 00 93 17 C4 27 83 20 31 37 34 2C 33 31 2C 31 34 |....'. 174,31,14|
00000F80: 34 2C 32 32 37 2C 33 32 2C 32 30 34 2C 32 35 35 |4,227,32,204,255|
00000F90: 2C 37 36 00 B2 17 CE 27 83 20 37 33 2C 33 31 2C |,76....'. 73,31,|
00000FA0: 33 32 2C 39 2C 33 31 2C 31 33 32 2C 32 35 31 2C |32,9,31,132,251,|
00000FB0: 32 34 00 D5 17 D8 27 83 20 31 30 35 2C 33 32 2C |24....'. 105,32,|
00000FC0: 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C 31 37 |133,252,160,0,17|
00000FD0: 37 2C 32 35 31 00 EE 17 E2 27 83 20 31 36 38 2C |7,251....'. 168,|
00000FE0: 31 36 39 2C 30 2C 37 36 2C 31 32 2C 33 31 00 00 |169,0,76,12,31..|
00000FF0: 00 |. |
....... SINGLE DRIVE FILE COPY.2.(..52,3
1:.56,31:..@.-.. I.0.173.T.2.. D:.7936.I
,D:..G.7..785,0:.786,31.U.<.PL$.G(19)...
A..I.1.24:PL$.PL$.G(17):....F.. I.1.39:C
L$.CL$." ":..H.K.CL$.CL$.G(13).CL$.G(13)
...P.CL$.H(PL$,21).CL$.G(145).G(145)...U
.. 15,8,15:. OPEN ERROR CHAN...Z..1000.%
.D.. LEFT OUT.>.N.. READ THE DIRECTORY.A
....785,0: . SELECT READ FUNCTION.Y....1
5,"I":. 2,8,2,"$".....NB..(2):. LOAD DIR
INTO MEM... . 2:. 800:. CHECK ERROR....
...I.H.. LEFT OUT...R.. DISPLAY DISK NAM
E......785,6:. SELECT FETCH CHAR...... H
(PL$,3);G(18);.(.... K.142 . 169.8....G(
.(K));:..E.... G(146).K.....Z.,.. LEFT O
UT.Y.6.. PRINT DIRECTORY ENTRY DE...J..
785,6:. SELECT FETCH CHAR...T.IX.(DE.1).
32.254..((DE.1).8).2.P.Y.. .(IX).128 . .
...^.TY..(IX).128:. TY.0 . TY.3 . ....H.
. K.IX.3 . IX.18...R.. G(.(K));.).|..:.
.16);",";.?.... J("SPU",TY,1):..N.... LE
FT OUT.I.... GET DESTINATION DISK.T....
CL$;...... "INSERT DESTINATION DISK."...
B.. "PRESS ";G(18);"RETRUN";.P.L.. G(146
);" WHEN READY."...V..DM$:.DM$."" .470..
....DM$..G(13).470......15,"I":....... L
EFT OUT.0.... GET A FILE TO COPY.H.... C
L$;:. EN.63 .580.J....UE.128. . NM$;" TO
O LARGE.";...&.. EN.62 . . NM$;" NOT FOU
ND.";...0.. "ENTER FILE,TYPE":NM$."":EN.
0:UE.0.F.:.. NM$,TY$:....D.. NM$;" EXIST
S. ENTER NEW NAME"...N.EN.0:NM$."":. NM$
:....X.. LEFT OUT.%.B.. READ THE FILE.G.
V..785,0:. SELECT READ FUNCTION.D.... 2,
8,2,NM$.",".TY$.",R".{.... 900:.EN..0.
2:......NB..(2):. READ THE FILE..... 2:.
800:. CHECK RESULTS.......H.... LEFT OUT
...F.. WRITE THE FILE...Z..785,3:. SELEC
T WRITE FUNCTION...... 2,8,2,NM$.",".TY$
.",W".2....900:.EN..0. 2:..P...NB..(2):.
WRITE THE BYTES.N... 2:. 800:. CHECK R
ESULTS.T....... .. LEFT OUT...*.. CHECK
USR() RETURN VALUE...>.NB.NB.(NB.0).6553
6.O.H.. NB.61440.UE.0:....R.. NB.61440 .
UE.128:....\.. CL$;...F.. B(785).0. . "
READ";.).P.. B(785).3. . "WRITE";.E.Z..
" ERROR #";NB.61440:..T.... LEFT OUT.M..
.. READ ERROR CHANNEL......15,EN,EM$,ET,
ES. .... EN.0. EN.62 . EN.63 . ...... 1
5:. CL$;.H.J.. "DISK ERROR #";EN...T.. H
(PL$,22);EM$:....... LEFT OUT...... MAIN
ROUTINE...... G(147);:. CLEAR SCREEN.C.
... " SINGLE DRIVE FILE COPY"._...
.:. "READING DIRECTORY".~.$.. 100:. READ
THE DIRECTORY...... 200: . DISPLAY TITL
E...8.NS..((NB.1).254).J.B.. NS.1 .5000:
. NO FILES.S.L.DS.1...V.. NS..DS . DS.1:
. START OVER...`.. H(PL$,4);...J.BE.(DS.
1).8.1:LE.BE.15.7.T.. DS.1.NS . LE.BE.8.
H.~.. DE.BE . LE.D.... 300:.:. DISPLAY F
ILES...... I.B(214) . 20:. CLEAR...... "
"............ 500:.
GET FILE NAME.Z.... NM$."" . DS.DS.2:.11
10...P.. LEFT OUT...Z.. COPY THE FILE...
... CL$;...... "READING ";NM$.7.... 600:
. READ THE FILE.R.... EN.62 . UE.128 .12
00.I...BC.NB:. SAVE COUNT... .. 400:. GE
T DEST DISK...*.. CL$;"WRITING ";NM$...4
.. 700:. WRITE THE FILE.H.>.. EN.0 .3000
...H.. 500:. GET NEW FILE...R.. NM$..""
.2090...\.. CL$;"FILE NOT COPIED"...F..3
100.*.... LEFT OUT.J.B.. DISPLAY COMPLET
ION STATUS.U.V.. CL$;.G.... NB..BC.3060.
..... "COPY SUCCESFUL. ";:.3070...... "
ERROR. ONLY ";NB;" OUT ";.B.... BC;"BYTE
S COPIED.".X.... "PRESS ";G(18);...&.. "
RETURN";G(146);...0.. " TO COPY ANOTHER
FILE".&.:.. DM$:.DM$."" . 3130.<.D.. DM$
.G(13) .1000.B.N...Q. .. LEFT OUT.O....
NO FILES ERROR HANDLING...... H(PL$,21);
...H.. "NO FILES ON THIS DISK."...R.. "P
RESS RETURN TO TRY ";.U.... "ANOTHER DI
SK.";...... DM$:.DM$."".4070...... DM$.G
(13) .1000.......&..'.76,15,31,76,88,31,
76,154.A..'.31,108,3,0,108,5,0,32.B.$'.9
,31,152,170,32,198,255,168....'. 176,57,
169,0,133,251,169,32...8'. 133,252,160,0
,32,207,255,145.K.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,1
9.4.`'.164,144,32,204,255,192,64,208.W.J
'. 10,164,251,165,252,56,233,32.W.T'. 76
,12,31,169,240,76,12,31...~'. 32,9,31,15
2,170,32,201,255....'. 168,176,240,165,2
51,141,174,31....'. 165,252,141,175,31,1
69,0,133....'. 251,169,32,133,252,160,0,
177.'..'. 251,32,210,255,164,144,208,20.
K..'. 230,251,208,2,230,252,165,252.P..'
. 205,175,31,144,234,165,251,205...D'. 1
74,31,144,227,32,204,255,76...N'. 73,31,
32,9,31,132,251,24.U.X'. 105,32,133,252,
160,0,177,251....'. 168,169,0,76,12,31..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL