DISK/TAPE SAVER
FILE INFORMATION
FILENAME(S): DISK/TAPE SAVER
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 21:25:35
APPEARS ON: 1 disk(s)
FILE HASH
d878ee029dfeec80dabf4e4b742a6951007d175b168fdb9962c9f003e7ed81b0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0044A | DISK/TAPE SAVER | PRG | DuncanTwain | 20 | 11 | 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 42 |RIVE FILE COPY.B|
00000020: 08 1E 00 97 34 35 2C 31 35 32 3A 97 34 37 2C 31 |....45,152:.47,1|
00000030: 35 32 3A 97 34 36 2C 30 32 30 3A 97 34 38 2C 30 |52:.46,020:.48,0|
00000040: 32 30 00 59 08 28 00 97 20 35 32 2C 31 32 38 3A |20.Y.(.. 52,128:|
00000050: 97 20 35 36 2C 33 30 3A 9C 00 6C 08 37 00 97 37 |. 56,30:..l.7..7|
00000060: 38 35 2C 30 3A 97 37 38 36 2C 33 31 00 7A 08 3C |85,0:.786,31.z.<|
00000070: 00 50 4C 24 B2 C7 28 31 39 29 00 97 08 41 00 81 |.PL$..(19)...A..|
00000080: 20 49 B2 31 A4 32 34 3A 50 4C 24 B2 50 4C 24 AA | I.1.24:PL$.PL$.|
00000090: C7 28 31 37 29 3A 82 00 B2 08 46 00 81 20 49 B2 |.(17):....F.. I.|
000000A0: 31 A4 34 30 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 |1.40:CL$.CL$." "|
000000B0: 3A 82 00 D6 08 50 00 43 4C 24 B2 C8 28 50 4C 24 |:....P.CL$..(PL$|
000000C0: 2C 32 31 29 AA 43 4C 24 AA C7 28 31 34 35 29 AA |,21).CL$..(145).|
000000D0: C7 28 31 34 35 29 00 F5 08 55 00 9F 31 35 2C 38 |.(145)...U..15,8|
000000E0: 2C 31 35 3A 8F 20 4F 50 45 4E 20 45 52 52 4F 52 |,15:. OPEN ERROR|
000000F0: 20 43 48 41 4E 00 0C 09 57 00 4D 4E 24 B2 22 20 | CHAN...W.MN$." |
00000100: 20 20 20 20 20 20 20 20 20 20 20 22 00 17 09 5A | "...Z|
00000110: 00 89 20 31 30 31 30 00 30 09 6E 00 8F 20 52 45 |.. 1010.0.n.. RE|
00000120: 41 44 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 |AD THE DIRECTORY|
00000130: 00 53 09 82 00 97 20 37 38 35 2C 30 3A 8F 20 53 |.S.... 785,0:. S|
00000140: 45 4C 45 43 54 20 52 45 41 44 20 46 55 4E 43 54 |ELECT READ FUNCT|
00000150: 49 4F 4E 00 6A 09 8C 00 98 31 35 2C 22 49 22 3A |ION.j....15,"I":|
00000160: 9F 32 2C 38 2C 32 2C 22 24 22 00 8A 09 96 00 4E |.2,8,2,"$".....N|
00000170: 42 B2 B7 28 32 29 3A 8F 20 4C 4F 41 44 20 44 49 |B..(2):. LOAD DI|
00000180: 52 20 49 4E 54 4F 20 4D 45 4D 00 A6 09 A0 00 A0 |R INTO MEM......|
00000190: 20 32 3A 8D 20 38 31 30 3A 8F 20 43 48 45 43 4B | 2:. 810:. CHECK|
000001A0: 20 45 52 52 4F 52 00 AC 09 AA 00 8E 00 C4 09 D2 | ERROR..........|
000001B0: 00 8F 20 44 49 53 50 4C 41 59 20 44 49 53 4B 20 |.. DISPLAY DISK |
000001C0: 4E 41 4D 45 00 E3 09 E6 00 97 37 38 35 2C 36 3A |NAME......785,6:|
000001D0: 8F 20 53 45 4C 45 43 54 20 46 45 54 43 48 20 43 |. SELECT FETCH C|
000001E0: 48 41 52 00 F8 09 F0 00 99 C8 28 50 4C 24 2C 33 |HAR.......(PL$,3|
000001F0: 29 3B C7 28 31 38 29 3B 00 08 0A FA 00 81 20 4B |);.(18);...... K|
00000200: B2 31 34 32 A4 31 36 39 00 18 0A 04 01 99 C7 28 |.142.169.......(|
00000210: B7 28 4B 29 29 3B 3A 82 00 24 0A 0E 01 99 C7 28 |.(K));:..$.....(|
00000220: 31 34 36 29 00 2A 0A 18 01 8E 00 49 0A 36 01 8F |146).*.....I.6..|
00000230: 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 | PRINT DIRECTORY|
00000240: 20 45 4E 54 52 59 20 44 45 00 68 0A 4A 01 97 37 | ENTRY DE.h.J..7|
00000250: 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 46 45 |85,6:. SELECT FE|
00000260: 54 43 48 20 43 48 41 52 00 8B 0A 54 01 49 58 B2 |TCH CHAR...T.IX.|
00000270: 28 44 45 AB 31 29 AC 33 32 AA 32 35 34 AB B5 28 |(DE.1).32.254..(|
00000280: 28 44 45 AB 31 29 AD 38 29 AC 32 00 9F 0A 59 01 |(DE.1).8).2...Y.|
00000290: 8B 20 B7 28 49 58 29 B3 31 32 38 20 A7 20 8E 00 |. .(IX).128 . ..|
000002A0: C2 0A 5E 01 54 59 B2 B7 28 49 58 29 AB 31 32 38 |..^.TY..(IX).128|
000002B0: 3A 8B 20 54 59 B2 30 20 B0 20 54 59 B1 33 20 A7 |:. TY.0 . TY.3 .|
000002C0: 20 8E 00 D5 0A 68 01 81 20 4B B2 49 58 AA 33 A4 | ....h.. K.IX.3.|
000002D0: 49 58 AA 31 38 00 E3 0A 72 01 99 C7 28 B7 28 4B |IX.18...r...(.(K|
000002E0: 29 29 3B 00 F4 0A 7C 01 82 3A 99 A3 31 36 29 3B |));...|..:..16);|
000002F0: 22 2C 22 3B 00 09 0B 86 01 99 CA 28 22 53 50 55 |",";.......("SPU|
00000300: 22 2C 54 59 2C 31 29 3A 8E 00 24 0B 9A 01 8F 20 |",TY,1):..$.... |
00000310: 47 45 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |GET DESTINATION |
00000320: 44 49 53 4B 00 2D 0B AE 01 99 43 4C 24 00 4D 0B |DISK.-....CL$.M.|
00000330: B8 01 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 |..."INSERT DESTI|
00000340: 4E 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 6B 0B |NATION DISK.".k.|
00000350: C2 01 99 22 50 52 45 53 53 20 22 3B C7 28 31 38 |..."PRESS ";.(18|
00000360: 29 3B 22 52 45 54 55 52 4E 22 3B 00 86 0B CC 01 |);"RETURN";.....|
00000370: 99 C7 28 31 34 36 29 3B 22 20 57 48 45 4E 20 52 |..(146);" WHEN R|
00000380: 45 41 44 59 2E 22 00 9E 0B D6 01 A1 20 44 4D 24 |EADY."...... DM$|
00000390: 3A 8B 20 44 4D 24 B2 22 22 20 89 34 37 30 00 B5 |:. DM$."" .470..|
000003A0: 0B E0 01 8B 20 44 4D 24 B3 B1 C7 28 31 33 29 20 |.... DM$...(13) |
000003B0: 89 20 34 37 30 00 DA 0B E5 01 99 22 91 20 20 20 |. 470......". |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 22 00 E8 0B EA 01 98 | "......|
000003E0: 31 35 2C 22 49 22 3A 8E 00 01 0C FE 01 8F 20 47 |15,"I":....... G|
000003F0: 45 54 20 41 20 46 49 4C 45 20 54 4F 20 43 4F 50 |ET A FILE TO COP|
00000400: 59 00 19 0C 12 02 99 43 4C 24 3B 3A 20 8B 20 45 |Y......CL$;: . E|
00000410: 4E B2 36 33 20 89 35 38 30 00 3D 0C 1C 02 8B 20 |N.63 .580.=.... |
00000420: 55 45 B2 31 32 38 20 A7 20 99 20 4E 4D 24 3B 22 |UE.128 . . NM$;"|
00000430: 20 54 4F 4F 20 4C 41 52 47 45 2E 22 3B 00 5E 0C | TOO LARGE.";.^.|
00000440: 26 02 8B 20 45 4E B2 36 32 20 A7 20 99 4E 4D 24 |&.. EN.62 . .NM$|
00000450: 3B 22 4E 4F 54 20 46 4F 55 4E 44 2E 22 3B 00 86 |;"NOT FOUND.";..|
00000460: 0C 30 02 99 22 45 4E 54 45 52 20 46 49 4C 45 2C |.0.."ENTER FILE,|
00000470: 54 59 50 45 22 3A 4E 4D 24 B2 22 22 3A 45 4E B2 |TYPE":NM$."":EN.|
00000480: 30 3A 55 45 B2 30 00 96 0C 3A 02 85 20 4E 4D 24 |0:UE.0...:.. NM$|
00000490: 2C 54 59 24 3A 8E 00 BA 0C 44 02 99 4E 4D 24 3B |,TY$:....D..NM$;|
000004A0: 22 20 45 58 53 49 53 54 53 2E 20 45 4E 54 45 54 |" EXSISTS. ENTET|
000004B0: 20 4E 45 57 20 4E 41 4D 45 22 00 D2 0C 4E 02 45 | NEW NAME"...N.E|
000004C0: 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 20 4E 4D 24 |N.0:NM$."":. NM$|
000004D0: 3A 8E 00 E6 0C 62 02 8F 20 52 45 41 44 20 54 48 |:....b.. READ TH|
000004E0: 45 20 46 49 4C 45 00 08 0D 76 02 97 37 38 35 2C |E FILE...v..785,|
000004F0: 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 20 |0:. SELECT READ |
00000500: 46 55 4E 43 54 49 4F 4E 00 24 0D 80 02 9F 32 2C |FUNCTION.$....2,|
00000510: 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 AA |8,2,NM$.",".TY$.|
00000520: 22 2C 52 22 00 3D 0D 8A 02 8D 20 39 31 30 3A 8B |",R".=.... 910:.|
00000530: 20 45 4E B3 B1 30 20 A7 20 A0 32 3A 8E 00 59 0D | EN..0 . .2:..Y.|
00000540: 94 02 4E 42 B2 B7 28 32 29 3A 8F 20 52 45 41 44 |..NB..(2):. READ|
00000550: 20 54 48 45 20 46 49 4C 45 00 76 0D 9E 02 A0 32 | THE FILE.v....2|
00000560: 3A 8D 20 38 31 30 3A 8F 20 43 48 45 43 4B 20 52 |:. 810:. CHECK R|
00000570: 45 53 55 4C 54 53 00 7C 0D A8 02 8E 00 91 0D C6 |ESULTS.|........|
00000580: 02 8F 20 57 52 49 54 45 20 54 48 45 20 46 49 4C |.. WRITE THE FIL|
00000590: 45 00 B0 0D D0 02 9F 32 2C 30 2C 32 2C 4E 4D 24 |E......2,0,2,NM$|
000005A0: 3A 8F 20 47 45 54 20 41 44 52 45 53 20 4E 4D 24 |:. GET ADRES NM$|
000005B0: 00 DB 0D D4 02 97 37 39 33 34 2C C2 28 31 38 37 |......7934,.(187|
000005C0: 29 3A 97 37 39 33 35 2C C2 28 31 38 38 29 3A 97 |):.7935,.(188):.|
000005D0: 37 39 33 33 2C C2 28 31 38 33 29 00 E2 0D D8 02 |7933,.(183).....|
000005E0: A0 32 00 05 0E DA 02 97 37 38 35 2C 33 3A 8F 20 |.2......785,3:. |
000005F0: 53 45 4C 45 43 54 20 57 52 49 54 45 20 46 55 4E |SELECT WRITE FUN|
00000600: 43 54 49 4F 4E 00 10 0E DF 02 9E 20 38 31 34 34 |CTION...... 8144|
00000610: 00 3B 0E E4 02 97 31 38 37 2C C2 28 37 39 33 34 |.;....187,.(7934|
00000620: 29 3A 97 31 38 38 2C C2 28 37 39 33 35 29 3A 97 |):.188,.(7935):.|
00000630: 31 38 33 2C C2 28 37 39 33 33 29 00 59 0E F8 02 |183,.(7933).Y...|
00000640: 4E 42 B2 B7 28 31 29 3A 8F 20 57 52 49 54 45 20 |NB..(1):. WRITE |
00000650: 54 48 45 20 42 59 54 45 53 00 73 0E 02 03 8D 20 |THE BYTES.s.... |
00000660: 38 31 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 |810:. CHECK RESU|
00000670: 4C 54 53 00 79 0E 0C 03 8E 00 98 0E 2A 03 8F 20 |LTS.y.......*.. |
00000680: 43 48 45 43 4B 20 55 53 52 28 29 20 52 45 54 55 |CHECK USR() RETU|
00000690: 52 4E 20 56 41 4C 55 45 00 AF 0E 3E 03 4E 42 B2 |RN VALUE...>.NB.|
000006A0: 4E 42 AB 28 4E 42 B3 30 29 AC 36 35 35 33 36 00 |NB.(NB.0).65536.|
000006B0: C6 0E 48 03 8B 4E 42 B3 36 31 34 34 30 20 A7 20 |..H..NB.61440 . |
000006C0: 55 45 B2 30 3A 8E 00 E0 0E 52 03 8B 20 4E 42 B2 |UE.0:....R.. NB.|
000006D0: 36 31 34 34 30 20 A7 20 55 45 B2 31 32 38 3A 8E |61440 . UE.128:.|
000006E0: 00 E9 0E 5C 03 99 43 4C 24 00 03 0F 66 03 8B 20 |...\..CL$...f.. |
000006F0: C2 28 37 38 35 29 B2 30 20 A7 20 99 22 52 45 41 |.(785).0 . ."REA|
00000700: 44 22 3B 00 1E 0F 70 03 8B 20 C2 28 37 38 35 29 |D";...p.. .(785)|
00000710: B2 33 20 A7 20 99 22 57 52 49 54 45 22 3B 00 39 |.3 . ."WRITE";.9|
00000720: 0F 7A 03 99 22 20 45 52 52 4F 52 20 23 22 3B 4E |.z.." ERROR #";N|
00000730: 42 AB 36 31 34 34 30 3A 80 00 52 0F 8E 03 8F 20 |B.61440:..R.... |
00000740: 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E |READ ERROR CHANN|
00000750: 45 4C 00 67 0F AC 03 84 31 35 2C 45 4E 2C 45 4D |EL.g....15,EN,EM|
00000760: 24 2C 45 54 2C 45 53 00 86 0F B6 03 8B 20 45 4E |$,ET,ES...... EN|
00000770: B2 30 20 B0 20 45 4E B2 36 32 20 B0 20 45 4E B2 |.0 . EN.62 . EN.|
00000780: 36 33 20 A7 20 8E 00 93 0F C0 03 A0 31 35 3A 99 |63 . .......15:.|
00000790: 43 4C 24 00 AA 0F CA 03 99 22 44 49 53 4B 20 45 |CL$......"DISK E|
000007A0: 52 52 4F 52 20 23 22 3B 45 4E 00 BF 0F D4 03 99 |RROR #";EN......|
000007B0: C8 28 50 4C 24 2C 32 32 29 3B 45 4D 24 3A 80 00 |.(PL$,22);EM$:..|
000007C0: D2 0F F2 03 8F 20 4D 41 49 4E 20 52 4F 55 54 49 |..... MAIN ROUTI|
000007D0: 4E 45 00 EE 0F 06 04 99 C7 28 31 34 37 29 3B 3A |NE.......(147);:|
000007E0: 8F 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 13 |. CLEAR SCREEN..|
000007F0: 10 10 04 99 22 20 20 20 20 20 20 20 43 4F 50 59 |...." COPY|
00000800: 20 44 52 49 56 45 20 54 4F 20 43 41 53 53 45 54 | DRIVE TO CASSET|
00000810: 54 45 22 00 2E 10 1A 04 99 3A 99 22 52 45 41 44 |TE"......:."READ|
00000820: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 4D |ING DIRECTORY".M|
00000830: 10 24 04 8D 20 31 31 30 3A 8F 20 52 45 41 44 20 |.$.. 110:. READ |
00000840: 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 67 10 |THE DIRECTORY.g.|
00000850: 2E 04 8D 20 32 31 30 3A 8F 20 44 49 53 50 4C 41 |... 210:. DISPLA|
00000860: 59 20 54 49 54 4C 45 00 7A 10 38 04 4E 53 B2 B5 |Y TITLE.z.8.NS..|
00000870: 28 4E 42 AA 31 29 AD 32 35 34 00 97 10 42 04 8B |(NB.1).254...B..|
00000880: 20 4E 53 B2 31 20 89 20 34 30 31 30 3A 8F 20 4E | NS.1 . 4010:. N|
00000890: 4F 20 46 49 4C 45 53 00 A0 10 4C 04 44 53 B2 31 |O FILES...L.DS.1|
000008A0: 00 C0 10 56 04 8B 20 4E 53 B3 44 53 20 A7 20 44 |...V.. NS.DS . D|
000008B0: 53 B2 31 3A 8F 20 53 54 41 52 54 20 4F 56 45 52 |S.1:. START OVER|
000008C0: 00 CF 10 60 04 99 C8 28 50 4C 24 2C 34 29 3B 00 |...`...(PL$,4);.|
000008D0: EA 10 6A 04 42 45 B2 28 44 53 AB 31 29 AC 38 AA |..j.BE.(DS.1).8.|
000008E0: 31 3A 4C 45 B2 42 45 AA 31 35 00 02 11 74 04 8B |1:LE.BE.15...t..|
000008F0: 20 44 53 AA 31 B2 4E 53 20 A7 20 4C 45 B2 42 45 | DS.1.NS . LE.BE|
00000900: AA 38 00 13 11 7E 04 81 20 44 45 B2 42 45 20 A4 |.8...~.. DE.BE .|
00000910: 20 4C 45 00 2F 11 88 04 8D 20 33 31 30 3A 82 3A | LE./.... 310:.:|
00000920: 8F 20 44 49 53 50 4C 41 59 20 46 49 4C 45 53 00 |. DISPLAY FILES.|
00000930: 4B 11 92 04 81 20 49 B2 C2 28 32 31 34 29 20 A4 |K.... I..(214) .|
00000940: 20 32 30 3A 8F 20 43 4C 45 41 52 00 6F 11 9C 04 | 20:. CLEAR.o...|
00000950: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000970: 75 11 A6 04 82 00 8F 11 B0 04 8D 20 35 31 30 3A |u.......... 510:|
00000980: 8F 20 47 45 54 20 46 49 4C 45 20 4E 41 4D 45 00 |. GET FILE NAME.|
00000990: AC 11 BA 04 8B 20 4E 4D 24 B2 22 22 20 A7 20 44 |..... NM$."" . D|
000009A0: 53 B2 44 53 AA 32 3A 89 31 31 31 30 00 C0 11 DA |S.DS.2:.1110....|
000009B0: 07 8F 20 43 4F 50 59 20 54 48 45 20 46 49 4C 45 |.. COPY THE FILE|
000009C0: 00 CA 11 EE 07 99 43 4C 24 3B 00 E2 11 F8 07 99 |......CL$;......|
000009D0: 22 52 45 41 44 49 4E 47 20 22 3B 4E 4D 24 3B 4D |"READING ";NM$;M|
000009E0: 4E 24 00 FC 11 02 08 8D 20 36 31 30 3A 8F 20 52 |N$...... 610:. R|
000009F0: 45 41 44 20 54 48 45 20 46 49 4C 45 00 17 12 0C |EAD THE FILE....|
00000A00: 08 8B 20 45 4E B2 36 32 20 B0 20 55 45 B2 31 32 |.. EN.62 . UE.12|
00000A10: 38 20 89 31 32 30 30 00 2E 12 16 08 42 43 B2 4E |8 .1200.....BC.N|
00000A20: 42 3A 8F 20 53 41 56 45 20 43 4F 55 4E 54 00 4A |B:. SAVE COUNT.J|
00000A30: 12 2A 08 99 43 4C 24 3B 22 57 52 49 54 49 4E 47 |.*..CL$;"WRITING|
00000A40: 20 22 3B 4E 4D 24 3B 4D 4E 24 00 65 12 34 08 8D | ";NM$;MN$.e.4..|
00000A50: 20 37 31 30 3A 8F 20 57 52 49 54 45 20 54 48 45 | 710:. WRITE THE|
00000A60: 20 46 49 4C 45 00 70 12 3E 08 89 20 33 30 31 30 | FILE.p.>.. 3010|
00000A70: 00 89 12 48 08 8D 20 35 31 30 3A 8F 20 47 45 54 |...H.. 510:. GET|
00000A80: 20 4E 45 57 20 46 49 4C 45 00 9E 12 52 08 8B 20 | NEW FILE...R.. |
00000A90: 4E 4D 24 B3 B1 22 22 20 89 20 32 30 39 30 00 BD |NM$.."" . 2090..|
00000AA0: 12 5C 08 99 43 4C 24 3B 22 46 49 4C 45 20 4E 4F |.\..CL$;"FILE NO|
00000AB0: 54 20 43 4F 50 49 45 44 22 3B 4D 4E 24 00 C7 12 |T COPIED";MN$...|
00000AC0: 66 08 89 33 31 30 30 00 E7 12 C2 0B 8F 20 44 49 |f..3100...... DI|
00000AD0: 53 50 4C 41 59 20 43 4F 4D 50 4C 45 54 49 4F 4E |SPLAY COMPLETION|
00000AE0: 20 53 54 41 54 55 53 00 F7 12 D6 0B 99 43 4C 24 | STATUS......CL$|
00000AF0: 3B 3A 4E 42 B2 42 43 00 0A 13 E0 0B 8B 20 4E 42 |;:NB.BC...... NB|
00000B00: B3 B1 42 43 20 89 33 30 36 30 00 2B 13 EA 0B 99 |..BC .3060.+....|
00000B10: 22 43 4F 50 59 20 53 55 43 43 45 53 53 46 55 4C |"COPY SUCCESSFUL|
00000B20: 2E 20 20 22 3B 3A 89 33 30 37 30 00 4B 13 F4 0B |. ";:.3070.K...|
00000B30: 99 22 45 52 52 4F 52 2E 20 4F 4E 4C 59 20 22 3B |."ERROR. ONLY ";|
00000B40: 4E 42 3B 22 20 4F 55 54 20 22 3B 00 66 13 FE 0B |NB;" OUT ";.f...|
00000B50: 99 42 43 AB 32 3B 22 20 42 59 54 45 53 20 43 4F |.BC.2;" BYTES CO|
00000B60: 50 49 45 44 2E 22 00 7B 13 1C 0C 99 22 50 52 45 |PIED.".{...."PRE|
00000B70: 53 53 20 22 3B C7 28 31 38 29 3B 00 91 13 26 0C |SS ";.(18);...&.|
00000B80: 99 22 52 45 54 55 52 4E 22 3B C7 28 31 34 36 29 |."RETURN";.(146)|
00000B90: 3B 00 AE 13 30 0C 99 22 20 54 4F 20 43 4F 50 59 |;...0.." TO COPY|
00000BA0: 20 41 4E 4F 54 48 45 52 20 46 49 4C 45 22 00 C8 | ANOTHER FILE"..|
00000BB0: 13 3A 0C A1 20 44 4D 24 3A 8B 20 44 4D 24 B2 22 |.:.. DM$:. DM$."|
00000BC0: 22 20 89 20 33 31 33 30 00 DD 13 44 0C 8B 20 44 |" . 3130...D.. D|
00000BD0: 4D 24 B2 C7 28 31 33 29 20 89 20 32 30 00 E3 13 |M$..(13) . 20...|
00000BE0: 4E 0C 80 00 01 14 AA 0F 8F 20 4E 4F 20 46 49 4C |N........ NO FIL|
00000BF0: 45 53 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E |ES ERROR HANDLIN|
00000C00: 47 00 11 14 BE 0F 99 C8 28 50 4C 24 2C 32 31 29 |G.......(PL$,21)|
00000C10: 3B 00 2F 14 C8 0F 99 22 4E 4F 20 46 49 4C 45 53 |;./...."NO FILES|
00000C20: 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 2E 22 00 | ON THIS DISK.".|
00000C30: 4C 14 D2 0F 99 22 50 52 45 53 53 20 52 45 54 55 |L...."PRESS RETU|
00000C40: 52 4E 20 54 4F 20 54 52 59 20 22 3B 00 62 14 DC |RN TO TRY ";.b..|
00000C50: 0F 99 22 41 4E 4F 54 48 45 52 20 44 49 53 4B 2E |.."ANOTHER DISK.|
00000C60: 22 3B 00 7C 14 E6 0F A1 20 44 4D 24 3A 8B 20 44 |";.|.... DM$:. D|
00000C70: 4D 24 B2 22 22 20 89 20 34 30 37 30 00 92 14 F0 |M$."" . 4070....|
00000C80: 0F 8B 20 44 4D 24 B2 C7 28 31 33 29 20 89 31 30 |.. DM$..(13) .10|
00000C90: 31 30 00 98 14 FA 0F 80 00 00 00 FF FF 00 00 FF |10..............|
00000CA0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000CB0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000CC0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
00000CD0: FF 20 00 FF FF 20 00 FF FF 00 00 FF FF 00 00 FF |. ... ..........|
00000CE0: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF |. ... ... ... ..|
00000CF0: FF 20 00 FF FF 20 00 FF FB 20 30 FF FF 20 00 FB |. ... ... 0.. ..|
00000D00: 3A 00 00 00 04 DB DF 00 00 DB DF 00 00 DF DF 00 |:...............|
00000D10: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF DF 00 |................|
00000D20: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF FF 00 |................|
00000D30: 00 DF DF 00 00 DF FF 00 00 DF FF 00 00 DF FF 00 |................|
00000D40: 00 DB DF 00 00 DF FF 00 02 FF FF 00 00 DF FF 00 |................|
00000D50: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00000D60: 00 DF FF 00 00 FF FF 00 00 FF DF 00 00 FF DF 00 |................|
00000D70: 00 FF FF 00 00 FF FF 00 00 FF CF 00 00 FF FF 80 |................|
00000D80: C1 FF FF 20 04 FF FF 20 00 FF FF 20 00 FF FF 20 |... ... ... ... |
00000D90: 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 |... ... ... ... |
00000DA0: 00 FF FF 20 20 FF FF 20 00 FF FF 20 00 FF FF 20 |... .. ... ... |
00000DB0: 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 |... ... ... ... |
00000DC0: 00 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 |... .. .. .. |
00000DD0: 00 FF FF 20 20 FF FF 20 00 FF FF 20 20 FF FF 20 |... .. ... .. |
00000DE0: 00 FF FF 20 20 FF FF 20 00 FF FF 20 20 FF FF 20 |... .. ... .. |
00000DF0: 20 FF FF 20 20 FF FF 20 20 FF EF 20 20 FF FF 20 | .. .. .. .. |
00000E00: E5 FF FF FF FB 24 20 FF FF 24 20 FF FF 20 20 FF |.....$ ..$ .. .|
00000E10: FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF |. .. .. .. .|
00000E20: FF 20 20 FF FF 20 20 FF FF 20 00 FF FF 20 00 FF |. .. .. ... ..|
00000E30: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 00 00 FF |. ... ... ......|
00000E40: FF 24 20 FF FF 20 00 FF FD 00 00 FF FF 20 00 FF |.$ .. ....... ..|
00000E50: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000E60: FF 20 00 FF FF 00 00 FF FF 00 00 FF FF 00 20 FF |. ............ .|
00000E70: FF 00 00 FF FF 00 00 FF FF 00 30 FF FF 00 00 7F |..........0.....|
00000E80: 3E 00 00 FF FB 00 00 FF FF 00 00 FF FF 00 00 FF |>...............|
00000E90: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000EA0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000EB0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
00000EC0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
00000ED0: FF 20 00 FF FF 20 00 FF FF 00 00 FF FF 00 00 FF |. ... ..........|
00000EE0: FF 20 00 FF FF 20 00 FF FF 20 20 FF FF 20 00 FF |. ... ... .. ..|
00000EF0: FF 20 20 FF FF 20 00 FF FF 00 10 FF FF 20 00 FB |. .. ....... ..|
00000F00: 3A 00 00 00 04 DB DF 00 00 DB DF 00 00 DF DF 00 |:...............|
00000F10: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF DF 00 |................|
00000F20: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF FF 00 |................|
00000F30: 00 DF FF 00 00 DF FF 00 00 DF FF 00 00 DF FF 00 |................|
00000F40: 00 DB DF 00 00 DF FF 00 02 FF FF 00 00 DF FF 00 |................|
00000F50: 00 FF FF 00 00 DF FF 00 00 FF FF 00 00 FF FF 00 |................|
00000F60: 00 DF FF 00 00 FF FF 00 00 FF DF 00 00 FF DF 00 |................|
00000F70: 00 FF FF 00 00 FF FF 00 00 FF CF 00 00 FF FF 80 |................|
00000F80: C1 FF FF 04 04 FF FF 04 00 FF FF 04 00 FF FF 04 |................|
00000F90: 00 FF FF 04 00 FF FF 04 00 FF FF 04 00 FF FF 04 |................|
00000FA0: 00 FF FF 04 00 FF FF 04 00 FF FF 04 00 FF FF 04 |................|
00000FB0: 00 FF FF 04 00 FF FF 04 00 FF FF 04 00 FF FF 04 |................|
00000FC0: 00 FF FF 04 00 DF FF 04 00 FF FF 04 00 DF FF 04 |................|
00000FD0: 00 DF FF 04 00 DF FF 04 00 FF FF 04 00 DF FF 04 |................|
00000FE0: 00 DF FF 04 00 DF FF 04 00 DF FF 04 00 DF FF 04 |................|
00000FF0: 00 DF DF 04 00 DF DF 04 04 FF EF 04 00 DF FF 04 |................|
00001000: C5 FF FF FB FB 20 20 FB FF 20 20 FB FF 20 20 FB |..... .. .. .|
00001010: FF 20 20 FB FF 20 20 FB FF 20 20 FB FF 20 20 FB |. .. .. .. .|
00001020: FF 20 20 FB FF 20 20 FB FF 20 00 FB FF 20 00 FB |. .. .. ... ..|
00001030: FF 20 00 FB FF 20 00 FB FF 20 00 FB FF 00 00 FB |. ... ... ......|
00001040: FF 20 20 FB FF 20 00 FB FF 00 00 FB FF 20 00 FB |. .. ....... ..|
00001050: FF 00 00 FB FF 20 00 FB FF 00 00 FB FF 00 00 FB |..... ..........|
00001060: FF 20 00 FB FF 00 00 FB FF 00 00 FB FF 00 00 FB |. ..............|
00001070: FF 00 00 FB FF 00 00 FB FF 00 10 FB FF 00 00 7F |................|
00001080: 3E 00 00 FF FB 00 00 FF FF 00 00 FF FF 00 00 FF |>...............|
00001090: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000010A0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000010B0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000010C0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
000010D0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
000010E0: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF |. ... ... ... ..|
000010F0: FF 20 00 FF FF 20 20 FF FB 20 10 FF FF 20 00 7B |. ... .. ... .{|
00001100: 3A 00 00 20 24 FB FF 20 20 FF FF 20 20 FF FF 20 |:.. $.. .. .. |
00001110: 20 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 | .. .. .. .. |
00001120: 20 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 | .. .. .. .. |
00001130: 00 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 |... .. .. .. |
00001140: 00 FF FF 20 20 FF FF 20 00 FF FF 20 20 FF FF 20 |... .. ... .. |
00001150: 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 |... ... ... ... |
00001160: 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 |... ... ... ... |
00001170: 00 FF FF 20 00 FF FF 00 00 FF EF 00 00 FF FF 80 |... ............|
00001180: C1 FF FF 00 04 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001190: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000011A0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000011B0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000011C0: 00 FF FF 00 00 DF FF 00 00 FF FF 00 00 DF FF 00 |................|
000011D0: 00 DF FF 00 00 DF FF 00 00 FF FF 00 00 FF FF 00 |................|
000011E0: 00 DF FF 00 00 DF FF 00 00 DF FF 00 00 DF FF 00 |................|
000011F0: 00 DF FF 00 00 DF DF 00 04 DF EF 00 00 DF FF 00 |................|
00001200: C5 FF FF FF FB 24 20 FF FF 20 20 FF FF 20 20 FF |.....$ .. .. .|
00001210: FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF |. .. .. .. .|
00001220: FF 20 20 FF FF 20 20 FF FF 20 00 FF FF 20 00 FF |. .. .. ... ..|
00001230: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF |. ... ... ... ..|
00001240: FF 20 20 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |. .. ....... ..|
00001250: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 00 00 FF |..... ..........|
00001260: FF 20 00 FF FF 00 00 FF FF 00 00 FF FF 00 20 FF |. ............ .|
00001270: FF 00 00 FF FF 00 00 FF FF 00 30 FF FF 00 00 7F |..........0.....|
00001280: 3E 00 00 FF FB 00 00 FF FF 00 00 FF FF 00 00 FF |>...............|
00001290: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000012A0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000012B0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000012C0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
000012D0: FF 20 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |. ... ....... ..|
000012E0: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF |. ... ... ... ..|
000012F0: FF 20 00 FF FF 20 00 FF FB 00 10 FF FF 20 00 FF |. ... ....... ..|
00001300: 3A 00 00 00 04 DB DF 00 00 DB DF 00 00 DF DF 00 |:...............|
00001310: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF DF 00 |................|
00001320: 00 DF DF 00 00 DF DF 00 00 DF FF 00 00 DF FF 00 |................|
00001330: 00 DF FF 00 00 DF FF 00 00 DF FF 00 00 FF FF 00 |................|
00001340: 00 DB DF 00 00 DF FF 00 02 FF FF 00 00 DF FF 00 |................|
00001350: 00 FF FF 00 00 DF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001360: 00 DF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001370: 00 FF FF 00 00 FF FF 00 00 FF EF 00 00 FF FF 80 |................|
00001380: C1 FF FF 00 04 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001390: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000013A0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000013B0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000013C0: 00 FF FF 00 00 DF FF 00 00 FF FF 00 00 DF FF 00 |................|
000013D0: 00 DF FF 00 00 DF FF 00 00 FF FF 00 00 DF FF 00 |................|
000013E0: 00 DF FF 00 00 DF FF 00 00 DF FF 00 00 DF FF 00 |................|
000013F0: 00 DF FF 00 00 DF DF 00 04 DF EF 00 00 DF FF 00 |................|
00001400: C5 FF FF FF FB 24 20 FF FF 24 20 FF FF 20 20 FF |.....$ ..$ .. .|
00001410: FF 20 20 FF FF 20 00 FF FF 20 20 FF FF 20 20 FF |. .. ... .. .|
00001420: FF 20 20 FF FF 20 20 FF FF 20 00 FF FF 20 00 FF |. .. .. ... ..|
00001430: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 00 00 FF |. ... ... ......|
00001440: FF 24 20 FF FF 20 00 FF FD 00 00 FF FF 20 00 FF |.$ .. ....... ..|
00001450: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 00 00 FF |..... ..........|
00001460: FF 20 00 FF FF 00 00 FF FF 00 00 FF FF 00 20 FF |. ............ .|
00001470: FF 00 00 FF FF 00 00 FF FF 00 30 FF FF 00 00 7F |..........0.....|
00001480: 3E 00 00 FF FB 00 00 FF FF 00 00 FF FF 00 00 FF |>...............|
00001490: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000014A0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000014B0: FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF |................|
000014C0: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |..... ....... ..|
000014D0: FF 20 00 FF FF 20 00 FF FF 00 00 FF FF 20 00 FF |. ... ....... ..|
000014E0: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 20 00 FF |. ... ... ... ..|
000014F0: FF 20 00 FF FF 20 00 FF FF 00 10 FF FF 20 00 FF |. ... ....... ..|
00001500: 3A 00 00 00 04 DB DF 00 00 DB DF 00 00 DF DF 00 |:...............|
00001510: 00 DF DB 00 00 DF DF 00 00 DF DF 00 00 DF DF 00 |................|
00001520: 00 DF DF 00 00 DF DF 00 00 DF DF 00 00 DF FF 00 |................|
00001530: 00 DF FF 00 00 DF FF 00 00 DF FF 00 00 FF FF 00 |................|
00001540: 00 DB DF 00 00 DF FF 00 02 FF FF 00 00 FF FF 00 |................|
00001550: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001560: 00 DF FF 00 00 FF FF 00 00 FF DF 00 00 FF FF 00 |................|
00001570: 00 FF FF 00 00 FF FF 00 00 FF EF 00 00 FF FF 80 |................|
00001580: C1 FF FF 00 04 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
00001590: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000015A0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000015B0: 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 |................|
000015C0: 00 FF FF 00 00 DF FF 00 00 FF FF 00 00 DF FF 00 |................|
000015D0: 00 DF FF 00 00 DF FF 00 00 FF FF 00 00 DF FF 00 |................|
000015E0: 00 DF DF 00 00 DF FF 00 00 DF FF 00 00 DF FF 00 |................|
000015F0: 00 DF FF 00 00 DF FF 00 00 FF EF 00 00 DF FF 00 |................|
00001600: C5 FF FF FF FB 24 20 FF FF 24 20 FF FF 20 20 FF |.....$ ..$ .. .|
00001610: FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 20 FF |. .. .. .. .|
00001620: FF 20 20 FF FF 20 20 FF FF 20 20 FF FF 20 00 FF |. .. .. .. ..|
00001630: FF 20 00 FF FF 20 00 FF FF 20 00 FF FF 00 00 FF |. ... ... ......|
00001640: FF 24 20 FF FF 20 00 FF FD 00 00 FF FF 20 00 FF |.$ .. ....... ..|
00001650: FF 00 00 FF FF 20 00 FF FF 00 00 FF FF 00 00 FF |..... ..........|
00001660: FF 20 00 FF FF 00 20 FF FF 00 20 FF FF 00 20 FF |. .... ... ... .|
00001670: FF 00 00 FF FF 00 00 FF FF 00 30 FF FF 00 00 7F |..........0.....|
00001680: 3E 00 00 EA EA EA EA EA EA EA EA EA EA EA EA EA |>...............|
00001690: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016A0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016B0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016C0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016D0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016E0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
000016F0: EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA |................|
00001700: EA 4C 0F 1F 4C 58 1F 4C B9 1F 6C 03 00 6C 05 00 |.L..LX.L..l..l..|
00001710: 20 09 1F 98 AA 20 C6 FF A8 B0 39 A9 00 85 FB A9 | .... ....9.....|
00001720: 20 85 FC A0 00 20 CF FF 91 FB E6 FB D0 02 E6 FC | .... ..........|
00001730: A5 90 D0 0D A5 FC C9 A0 90 EB 20 CC FF A0 00 F0 |.......... .....|
00001740: 13 A4 90 20 CC FF C0 40 D0 0A A4 FB A5 FC 38 E9 |... ...@......8.|
00001750: 20 4C 0C 1F A9 F0 4C 0C 1F A0 01 98 AA 20 BA FF | L....L...... ..|
00001760: A5 B7 A6 BB A4 BC 20 BD FF A5 FB 8D CE 1F A5 FC |...... .........|
00001770: 8D CF 1F 20 D0 F7 20 38 F8 B0 3E 20 8F F6 A2 01 |... .. 8..> ....|
00001780: A5 B9 29 01 D0 02 A2 01 8A 20 6A F7 B0 2B A8 A9 |..)...... j..+..|
00001790: 02 A2 20 85 C1 86 C2 AD CE 1F AE CF 1F 85 AE 86 |.. .............|
000017A0: AF 98 20 67 F8 B0 12 A5 B9 29 02 F0 0B A9 05 20 |.. g.....)..... |
000017B0: 6A F7 20 CC FF 4C 49 1F 18 60 20 09 1F 84 FB 18 |j. ..LI..` .....|
000017C0: 69 20 85 FC A0 00 B1 FB A8 A9 00 4C 0C 1F EA EA |i .........L....|
000017D0: EA AE 00 20 AC 01 20 86 C1 84 C2 38 A6 FC A5 FB |... .. ....8....|
000017E0: E9 02 85 AE B0 01 CA 8A 38 E9 20 85 AF 18 A5 AE |........8. .....|
000017F0: 65 C1 85 AE 90 02 E6 AF A5 AF 65 C2 85 AF 18 60 |e.........e....`|
00001800: 00 FF 31 F6 |..1. |
....... SINGLE DRIVE FILE COPY.B....45,1
52:.47,152:.46,020:.48,020.Y.(.. 52,128:
. 56,30:..L.7..785,0:.786,31.Z.<.PL$.G(1
9)...A.. I.1.24:PL$.PL$.G(17):....F.. I.
1.40:CL$.CL$." ":..V.P.CL$.H(PL$,21).CL$
.G(145).G(145)...U..15,8,15:. OPEN ERROR
CHAN...W.MN$." "...Z.. 1010.
0.N.. READ THE DIRECTORY.S.... 785,0:. S
ELECT READ FUNCTION.J....15,"I":.2,8,2,"
$".....NB..(2):. LOAD DIR INTO MEM... .
2:. 810:. CHECK ERROR.......D.R.. DISPL
AY DISK NAME......785,6:. SELECT FETCH C
HAR......H(PL$,3);G(18);...... K.142.169
......G(.(K));:..$....G(146).*.....I.6..
PRINT DIRECTORY ENTRY DE.H.J..785,6:. S
ELECT FETCH CHAR...T.IX.(DE.1).32.254..(
(DE.1).8).2...Y.. .(IX).128 . ..B.^.TY..
(IX).128:. TY.0 . TY.3 . ..U.H.. K.IX.3.
IX.18...R..G(.(K));...|..:..16);",";....
..J("SPU",TY,1):..$.... GET DESTINATION
DISK.-....CL$.M...."INSERT DESTINATION D
ISK.".K.B.."PRESS ";G(18);"RETURN";...L.
.G(146);" WHEN READY."...V.. DM$:. DM$."
" .470...... DM$..G(13) . 470.Z....".
"......15,"I":.
...... GET A FILE TO COPY......CL$;: . E
N.63 .580.=.... UE.128 . . NM$;" TOO LAR
GE.";.^.&.. EN.62 . .NM$;"NOT FOUND.";..
.0.."ENTER FILE,TYPE":NM$."":EN.0:UE.0..
.:.. NM$,TY$:....D..NM$;" EXSISTS. ENTET
NEW NAME".R.N.EN.0:NM$."":. NM$:....B..
READ THE FILE...V..785,0:. SELECT READ
FUNCTION.$....2,8,2,NM$.",".TY$.",R".=..
.. 910:. EN..0 . 2:..Y...NB..(2):. READ
THE FILE.V... 2:. 810:. CHECK RESULTS.|
.......F.. WRITE THE FILE...P..2,0,2,NM$
:. GET ADRES NM$...T..7934,B(187):.7935,
B(188):.7933,B(183)...X. 2...Z..785,3:.
SELECT WRITE FUNCTION...... 8144.;....18
7,B(7934):.188,B(7935):.183,B(7933).Y...
NB..(1):. WRITE THE BYTES.S.... 810:. CH
ECK RESULTS.Y.......*.. CHECK USR() RETU
RN VALUE...>.NB.NB.(NB.0).65536.F.H..NB.
61440 . UE.0:....R.. NB.61440 . UE.128:.
...\..CL$...F.. B(785).0 . ."READ";...P.
. B(785).3 . ."WRITE";.9.Z.." ERROR #";N
B.61440:..R.... READ ERROR CHANNEL.G....
15,EN,EM$,ET,ES...... EN.0 . EN.62 . EN.
63 . ...... 15:.CL$...J.."DISK ERROR #";
EN...T..H(PL$,22);EM$:..R.... MAIN ROUTI
NE......G(147);:. CLEAR SCREEN......"
COPY DRIVE TO CASSETTE"......:."READ
ING DIRECTORY".M.$.. 110:. READ THE DIRE
CTORY.G.... 210:. DISPLAY TITLE.Z.8.NS..
(NB.1).254...B.. NS.1 . 4010:. NO FILES.
.L.DS.1...V.. NS.DS . DS.1:. START OVER
.O.`..H(PL$,4);...J.BE.(DS.1).8.1:LE.BE.
15...T.. DS.1.NS . LE.BE.8...~.. DE.BE .
LE./.... 310:.:. DISPLAY FILES.K.... I.
B(214) . 20:. CLEAR.O...."
".U.......... 510:. GET FI
LE NAME...... NM$."" . DS.DS.2:.1110...Z
.. COPY THE FILE.J....CL$;......"READING
";NM$;MN$...... 610:. READ THE FILE....
.. EN.62 . UE.128 .1200.....BC.NB:. SAVE
COUNT.J.*..CL$;"WRITING ";NM$;MN$.E.4..
710:. WRITE THE FILE.P.>.. 3010...H.. 5
10:. GET NEW FILE...R.. NM$.."" . 2090..
.\..CL$;"FILE NOT COPIED";MN$.G.F..3100.
..B.. DISPLAY COMPLETION STATUS...V..CL$
;:NB.BC...... NB..BC .3060.+...."COPY SU
CCESSFUL. ";:.3070.K...."ERROR. ONLY ";
NB;" OUT ";.F....BC.2;" BYTES COPIED.".{
...."PRESS ";G(18);...&.."RETURN";G(146)
;...0.." TO COPY ANOTHER FILE".H.:.. DM$
:. DM$."" . 3130...D.. DM$.G(13) . 20...
N........ NO FILES ERROR HANDLING......H
(PL$,21);./.H.."NO FILES ON THIS DISK.".
L.R.."PRESS RETURN TO TRY ";.B...."ANOTH
ER DISK.";.|.... DM$:. DM$."" . 4070....
.. DM$.G(13) .1010......................
............................. ....... ..
. ... ........... ... ... ... ... ... ..
. 0.. ..:...............................
........................................
........................................
..........O.....A.. ... ... ... ... ...
... ... ... .. ... ... ... ... ... ...
... .. .. .. ... .. ... .. ... ..
... .. .. .. .. .. .....$ ..$ .. .
. .. .. .. .. .. .. ... ... ... ..
. .......$ .. ....... ..................
. ............ ...........0....>.......
........................................
..................... ....... ... ... ..
......... ... ... .. ... .. ....... ..
:.......................................
........................................
........................................
..O.....A...............................
........................................
........................................
................E.... .. .. .. .. .
. .. .. .. .. ... ... ... ... ......
. .. ....... ....... ........... ......
.......................>...............
........................................
............. ....... ....... ....... ..
. ... ... ... ... ... .. ... .{:.. $..
.. .. .. .. .. .. .. .. .. ..
... .. .. .. ... .. ... .. ... ...
... ... ... ... ... ... ... ............
A.......................................
........................................
........................................
........E....$ .. .. .. .. .. .. .
. .. .. ... ... ... ... ... ... .. ..
..... ....... ........... ............ .
..........0....>.......................
........................................
..... ....... ... ... ....... ... ... ..
. ... ... ... ....... ..:...............
........................................
........................................
................................A.......
........................................
........................................
........................................
E....$ ..$ .. .. .. ... .. .. .. .
. ... ... ... ... .......$ .. ....... ..
..... ........... ............ .........
..0....>...............................
..................................... ..
..... ... ... ....... ... ... ... ... ..
. ... ....... ..:.......................
........................................
........................................
........................A...............
........................................
........................................
................................E....$ .
.$ .. .. .. .. .. .. .. .. .. ..
. ... ... .......$ .. ....... ....... ..
......... .... ... ... ...........0....
>.......................................
........................................
........................................
.........L..LX.L..L..L.. .... F...9.....
.. . O.....P.....P...I .. L. ..... L..@
P.....8. L....L.. ... ........ .....N...
.O. P. 8..> ......).P.... J..+.... .A.B.
N..O...... G.....)..... J. L.LI..` .....
I .. ......L....... .. .A.B8..........J.
8. .....EA........EB...`..1.
> CLICK IMAGE PREVIEW FOR FULL MODAL