_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DISK MANAGER

FILE INFORMATION

FILENAME(S): DISK MANAGER

FILE TYPE(S): PRG

FILE SIZE: 4.8K

FIRST SEEN: 2025-10-19 22:35:18

APPEARS ON: 2 disk(s)

FILE HASH

1cf4415d62e550641dcb5a7997c4c899d5d52a122c22adbb2db27d2d1551ad7f

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COPY UTILITY DISK MANAGER PRG Radd Maxx 22 3 DOWNLOAD FILE
COPY UTILITY DISK MANAGER PRG Radd Maxx 22 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2B 08 03 00 97 20  34 39 31 35 32 20 2C 31  |..+.... 49152 ,1|
00000010: 30 3A 8B 20 C2 20 28 34  39 31 35 32 29 B3 B1 31  |0:. . (49152)..1|
00000020: 30 20 A7 20 43 30 B2 31  3A 89 36 00 34 08 05 00  |0 . C0.1:.6.4...|
00000030: 43 30 B2 32 00 43 08 06  00 86 20 44 4F 53 25 28  |C0.2.C.... DOS%(|
00000040: 36 35 29 00 64 08 07 00  46 52 B2 B8 28 30 29 3A  |65).d...FR..(0):|
00000050: 8B 20 46 52 B3 30 20 A7  20 46 52 B2 46 52 AA 36  |. FR.0 . FR.FR.6|
00000060: 35 35 33 36 00 83 08 08  00 53 B2 28 46 52 AB 34  |5536.....S.(FR.4|
00000070: 30 30 29 AD 32 3A 4D 32  B2 B5 28 53 AD 32 35 36  |00).2:M2..(S.256|
00000080: 29 AA 31 00 92 08 09 00  86 20 54 45 4D 50 25 28  |).1...... TEMP%(|
00000090: 53 29 00 9C 08 0A 00 99  22 93 22 3B 00 B8 08 0F  |S)......".";....|
000000A0: 00 99 22 20 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.."  ***********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 22  00 D4 08 14 00 99 22 20  |*******"......" |
000000C0: 20 2A 20 20 44 49 53 4B  20 4D 41 4E 41 47 45 52  | *  DISK MANAGER|
000000D0: 20 20 2A 22 00 F0 08 19  00 99 22 20 20 2A 2A 2A  |  *"......"  ***|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 22  |***************"|
000000F0: 00 0A 09 32 00 99 3A 99  22 31 2E 44 49 53 4B 20  |...2..:."1.DISK |
00000100: 44 49 52 45 43 54 4F 52  59 22 00 23 09 3C 00 99  |DIRECTORY".#.<..|
00000110: 22 32 2E 46 4F 52 4D 41  54 20 4E 45 57 20 44 49  |"2.FORMAT NEW DI|
00000120: 53 4B 22 00 3C 09 46 00  99 22 33 2E 49 4E 49 54  |SK".<.F.."3.INIT|
00000130: 49 41 4C 49 5A 45 20 44  49 53 4B 22 00 5C 09 50  |IALIZE DISK".\.P|
00000140: 00 99 22 34 2E 43 4F 50  59 20 46 49 4C 45 20 4F  |.."4.COPY FILE O|
00000150: 4E 20 53 41 4D 45 20 44  49 53 4B 22 00 87 09 55  |N SAME DISK"...U|
00000160: 00 99 22 35 2E 43 4F 50  59 20 46 49 4C 45 20 4F  |.."5.COPY FILE O|
00000170: 4E 20 4E 45 57 20 28 46  4F 52 4D 41 54 54 45 44  |N NEW (FORMATTED|
00000180: 29 20 44 49 53 4B 22 00  AD 09 58 00 99 22 36 2E  |) DISK"...X.."6.|
00000190: 43 4F 50 59 20 42 4F 54  48 20 44 4F 53 20 57 45  |COPY BOTH DOS WE|
000001A0: 44 47 45 20 50 52 4F 47  52 41 4D 53 22 00 C2 09  |DGE PROGRAMS"...|
000001B0: 5A 00 99 22 37 2E 52 45  4E 41 4D 45 20 46 49 4C  |Z.."7.RENAME FIL|
000001C0: 45 22 00 D9 09 64 00 99  22 38 2E 45 52 41 53 45  |E"...d.."8.ERASE|
000001D0: 20 46 49 4C 45 28 53 29  22 00 F1 09 6E 00 99 22  | FILE(S)"...n.."|
000001E0: 39 2E 56 41 4C 49 44 41  54 45 20 46 49 4C 45 53  |9.VALIDATE FILES|
000001F0: 22 00 0E 0A 78 00 99 22  31 30 2E 57 52 49 54 45  |"...x.."10.WRITE|
00000200: 20 44 49 53 4B 20 4D 41  4E 41 47 45 52 22 00 25  | DISK MANAGER".%|
00000210: 0A 82 00 99 22 31 31 2E  45 52 52 4F 52 20 53 54  |...."11.ERROR ST|
00000220: 41 54 55 53 22 00 40 0A  8C 00 99 22 31 32 2E 45  |ATUS".@...."12.E|
00000230: 58 49 54 20 54 4F 20 42  41 53 49 43 22 3A 99 3A  |XIT TO BASIC":.:|
00000240: 00 60 0A 96 00 83 38 2C  32 30 31 2C 31 33 2C 32  |.`....8,201,13,2|
00000250: 34 30 2C 31 37 2C 32 30  31 2C 33 32 2C 32 34 30  |40,17,201,32,240|
00000260: 00 82 0A A0 00 83 35 2C  32 34 2C 31 30 31 2C 32  |......5,24,101,2|
00000270: 35 35 2C 31 33 33 2C 32  35 35 2C 31 36 35 2C 32  |55,133,255,165,2|
00000280: 35 32 00 9F 0A AA 00 85  22 43 48 4F 49 43 45 20  |52......"CHOICE |
00000290: 20 20 20 9D 9D 9D 9D 22  3B 43 48 4F 49 43 45 00  |   ....";CHOICE.|
000002A0: C8 0A B4 00 8B 20 28 43  48 4F 49 43 45 B3 31 29  |..... (CHOICE.1)|
000002B0: B0 28 43 48 4F 49 43 45  B1 31 32 29 A7 99 22 91  |.(CHOICE.12)..".|
000002C0: 22 3B 3A 89 20 31 37 30  00 E9 0A BE 00 83 32 30  |";:. 170......20|
000002D0: 36 2C 31 36 35 2C 33 2C  31 36 39 2C 30 2C 31 33  |6,165,3,169,0,13|
000002E0: 33 2C 32 31 36 2C 31 36  39 00 29 0B C8 00 91 20  |3,216,169.).... |
000002F0: 43 48 4F 49 43 45 20 8D  20 32 35 30 2C 33 30 30  |CHOICE . 250,300|
00000300: 2C 33 35 30 2C 34 30 30  2C 38 30 30 2C 31 32 30  |,350,400,800,120|
00000310: 30 2C 34 35 30 2C 35 30  30 2C 35 35 30 2C 36 30  |0,450,500,550,60|
00000320: 30 2C 36 35 30 2C 37 30  30 00 32 0B D2 00 89 20  |0,650,700.2.... |
00000330: 31 30 00 52 0B DC 00 83  31 36 39 2C 30 2C 33 32  |10.R....169,0,32|
00000340: 2C 32 30 35 2C 31 38 39  2C 31 36 39 2C 30 2C 31  |,205,189,169,0,1|
00000350: 33 33 00 74 0B E6 00 83  32 35 35 2C 31 36 39 2C  |33.t....255,169,|
00000360: 33 32 2C 33 32 2C 32 31  30 2C 32 35 35 2C 33 32  |32,32,210,255,32|
00000370: 2C 32 31 30 00 97 0B F0  00 83 32 35 35 2C 31 37  |,210......255,17|
00000380: 33 2C 31 36 35 2C 33 2C  31 33 33 2C 32 31 34 2C  |3,165,3,133,214,|
00000390: 37 36 2C 39 38 2C 33 00  B7 0B FA 00 8F 20 2A 2A  |76,98,3...... **|
000003A0: 2A 20 44 49 53 50 4C 41  59 20 44 49 52 45 43 54  |* DISPLAY DIRECT|
000003B0: 4F 52 59 20 2A 2A 2A 00  C0 0B FB 00 99 22 93 22  |ORY ***......"."|
000003C0: 00 D0 0B FC 00 9F 20 31  2C 38 2C 30 2C 22 24 22  |...... 1,8,0,"$"|
000003D0: 00 DF 0B FD 00 A1 20 23  31 2C 41 24 2C 42 24 00  |...... #1,A$,B$.|
000003E0: ED 0B FE 00 A1 23 31 2C  41 24 2C 42 24 00 FC 0B  |.....#1,A$,B$...|
000003F0: 00 01 A1 20 23 31 2C 41  24 2C 42 24 00 17 0C 02  |... #1,A$,B$....|
00000400: 01 43 B2 30 3A 8B 20 41  24 B3 B1 22 22 A7 20 43  |.C.0:. A$.."". C|
00000410: B2 20 C6 28 41 24 29 00  34 0C 04 01 8B 20 42 24  |. .(A$).4.... B$|
00000420: B3 B1 22 22 A7 20 43 B2  43 AA 20 C6 28 42 24 29  |.."". C.C. .(B$)|
00000430: AC 32 35 36 00 49 0C 06  01 99 20 CA 28 C4 28 43  |.256.I.... .(.(C|
00000440: 29 2C 32 29 3B A3 33 29  3B 00 62 0C 08 01 A1 23  |),2);.3);.b....#|
00000450: 31 2C 42 24 3A 8B 20 53  54 B3 B1 30 20 A7 20 32  |1,B$:. ST..0 . 2|
00000460: 38 32 00 79 0C 0A 01 8B  20 42 24 B3 B1 20 C7 28  |82.y.... B$.. .(|
00000470: 33 34 29 20 A7 20 32 36  34 00 9E 0C 0C 01 A1 20  |34) . 264...... |
00000480: 23 31 2C 42 24 3A 8B 20  42 24 B3 B1 20 C7 28 33  |#1,B$:. B$.. .(3|
00000490: 34 29 20 A7 20 99 42 24  3B 3A 89 32 36 38 00 BC  |4) . .B$;:.268..|
000004A0: 0C 0E 01 A1 20 23 31 2C  42 24 3A 8B 20 42 24 B2  |.... #1,B$:. B$.|
000004B0: 20 C7 28 33 32 29 20 A7  20 32 37 30 00 CE 0C 10  | .(32) . 270....|
000004C0: 01 99 20 A3 31 38 29 3B  3A 43 24 B2 22 22 00 F2  |.. .18);:C$.""..|
000004D0: 0C 12 01 43 24 B2 43 24  AA 42 24 3A A1 20 23 31  |...C$.C$.B$:. #1|
000004E0: 2C 42 24 3A 8B 20 42 24  B3 B1 22 22 20 A7 20 32  |,B$:. B$.."" . 2|
000004F0: 37 34 00 00 0D 14 01 99  20 C8 28 43 24 2C 33 29  |74...... .(C$,3)|
00000500: 00 11 0D 18 01 8B 20 53  54 B2 30 20 A7 20 32 35  |...... ST.0 . 25|
00000510: 34 00 26 0D 1A 01 99 22  20 42 4C 4F 43 4B 53 20  |4.&...." BLOCKS |
00000520: 46 52 45 45 20 22 00 4B  0D 1C 01 A0 20 31 3A 99  |FREE ".K.... 1:.|
00000530: 3A 99 3A 99 22 48 49 54  20 41 4E 59 20 4B 45 59  |:.:."HIT ANY KEY|
00000540: 20 54 4F 20 52 45 54 55  52 4E 22 00 5F 0D 22 01  | TO RETURN"._.".|
00000550: A1 20 58 24 3A 8B 58 24  B2 22 22 A7 32 39 30 00  |. X$:.X$."".290.|
00000560: 65 0D 27 01 8E 00 85 0D  2C 01 8F 20 2A 2A 2A 20  |e.'.....,.. *** |
00000570: 46 4F 52 4D 41 54 20 28  4E 45 57 29 20 44 49 53  |FORMAT (NEW) DIS|
00000580: 4B 20 2A 2A 2A 00 8E 0D  2D 01 99 22 93 22 00 B7  |K ***...-.."."..|
00000590: 0D 31 01 99 22 49 4E 53  45 52 54 20 44 49 53 4B  |.1.."INSERT DISK|
000005A0: 20 54 4F 20 42 45 22 3A  99 22 46 4F 52 4D 41 54  | TO BE":."FORMAT|
000005B0: 54 45 44 2E 22 3A 99 00  D6 0D 36 01 99 22 49 4E  |TED.":....6.."IN|
000005C0: 50 55 54 20 44 49 53 4B  20 4E 41 4D 45 22 3A 85  |PUT DISK NAME":.|
000005D0: 20 44 49 53 4B 24 00 FA  0D 40 01 99 3A 99 22 49  | DISK$...@..:."I|
000005E0: 4E 50 55 54 20 45 58 54  45 4E 44 45 52 20 4E 41  |NPUT EXTENDER NA|
000005F0: 4D 45 22 3A 85 20 45 58  54 24 00 1A 0E 45 01 4D  |ME":. EXT$...E.M|
00000600: 41 43 52 4F 24 B2 22 4E  30 3A 22 AA 44 49 53 4B  |ACRO$."N0:".DISK|
00000610: 24 AA 22 2C 22 AA 45 58  54 24 00 2F 0E 4A 01 9F  |$.",".EXT$./.J..|
00000620: 20 31 35 2C 38 2C 31 35  2C 4D 41 43 52 4F 24 00  | 15,8,15,MACRO$.|
00000630: 44 0E 54 01 A0 20 31 35  3A 4D 41 43 52 4F 24 B2  |D.T.. 15:MACRO$.|
00000640: 22 22 3A 8E 00 62 0E 5E  01 8F 20 2A 2A 2A 20 49  |"":..b.^.. *** I|
00000650: 4E 49 54 49 41 4C 49 5A  45 20 44 49 53 4B 20 2A  |NITIALIZE DISK *|
00000660: 2A 2A 00 6B 0E 63 01 99  22 93 22 00 96 0E 68 01  |**.k.c.."."...h.|
00000670: 99 22 49 4E 53 45 52 54  20 44 49 53 4B 20 54 4F  |."INSERT DISK TO|
00000680: 20 42 45 22 3A 99 22 49  4E 49 54 49 41 4C 49 5A  | BE":."INITIALIZ|
00000690: 45 44 2E 22 3A 99 00 C0  0E 72 01 99 22 48 49 54  |ED.":....r.."HIT|
000006A0: 20 3C 52 45 54 55 52 4E  3E 20 54 4F 22 3A 99 22  | <RETURN> TO":."|
000006B0: 49 4E 49 54 49 41 4C 49  5A 45 22 3A 85 20 58 24  |INITIALIZE":. X$|
000006C0: 00 D2 0E 7C 01 9F 20 31  35 2C 38 2C 31 35 2C 22  |...|.. 15,8,15,"|
000006D0: 49 22 00 DD 0E 86 01 A0  20 31 35 3A 8E 00 02 0F  |I"...... 15:....|
000006E0: 90 01 8F 20 2A 2A 2A 20  43 4F 50 59 20 46 49 4C  |... *** COPY FIL|
000006F0: 45 20 4F 4E 20 53 41 4D  45 20 44 49 53 4B 20 2A  |E ON SAME DISK *|
00000700: 2A 2A 00 0F 0F 95 01 99  22 93 22 3A 99 3A 99 00  |**......".":.:..|
00000710: 35 0F 9A 01 99 22 49 4E  50 55 54 20 53 4F 55 52  |5...."INPUT SOUR|
00000720: 43 45 20 46 49 4C 45 20  4E 41 4D 45 22 3A 85 20  |CE FILE NAME":. |
00000730: 44 49 53 4B 24 00 59 0F  A4 01 99 3A 99 22 49 4E  |DISK$.Y....:."IN|
00000740: 50 55 54 20 4E 45 57 20  46 49 4C 45 20 4E 41 4D  |PUT NEW FILE NAM|
00000750: 45 22 3A 85 20 4E 57 53  24 00 78 0F A9 01 4D 41  |E":. NWS$.x...MA|
00000760: 43 52 4F 24 B2 22 43 3A  22 AA 4E 57 53 24 AA 22  |CRO$."C:".NWS$."|
00000770: 3D 22 AA 44 49 53 4B 24  00 8D 0F AE 01 9F 20 31  |=".DISK$...... 1|
00000780: 35 2C 38 2C 31 35 2C 4D  41 43 52 4F 24 00 A2 0F  |5,8,15,MACRO$...|
00000790: B8 01 A0 20 31 35 3A 4D  41 43 52 4F 24 B2 22 22  |... 15:MACRO$.""|
000007A0: 3A 8E 00 BC 0F C2 01 8F  20 2A 2A 2A 20 52 45 4E  |:....... *** REN|
000007B0: 41 4D 45 20 46 49 4C 45  20 2A 2A 2A 00 C7 0F C7  |AME FILE ***....|
000007C0: 01 99 22 93 22 3A 99 00  EA 0F CC 01 99 22 49 4E  |..".":......."IN|
000007D0: 50 55 54 20 4F 4C 44 20  46 49 4C 45 20 4E 41 4D  |PUT OLD FILE NAM|
000007E0: 45 22 3A 85 20 44 49 53  4B 24 00 0D 10 D6 01 99  |E":. DISK$......|
000007F0: 3A 99 22 49 4E 50 55 54  20 4E 45 57 20 46 49 4C  |:."INPUT NEW FIL|
00000800: 45 20 4E 41 4D 45 22 3A  85 4E 57 53 24 00 2C 10  |E NAME":.NWS$.,.|
00000810: DB 01 4D 41 43 52 4F 24  B2 22 52 3A 22 AA 4E 57  |..MACRO$."R:".NW|
00000820: 53 24 AA 22 3D 22 AA 44  49 53 4B 24 00 41 10 E0  |S$."=".DISK$.A..|
00000830: 01 9F 20 31 35 2C 38 2C  31 35 2C 4D 41 43 52 4F  |.. 15,8,15,MACRO|
00000840: 24 00 55 10 EA 01 A0 31  35 3A 4D 41 43 52 4F 24  |$.U....15:MACRO$|
00000850: B2 22 22 3A 8E 00 6E 10  F4 01 8F 20 2A 2A 2A 20  |."":..n.... *** |
00000860: 45 52 41 53 45 20 46 49  4C 45 20 2A 2A 2A 00 7B  |ERASE FILE ***.{|
00000870: 10 F9 01 99 22 93 22 3A  99 3A 99 00 A7 10 FE 01  |....".":.:......|
00000880: 99 22 49 4E 50 55 54 20  46 49 4C 45 20 4E 41 4D  |."INPUT FILE NAM|
00000890: 45 28 53 29 20 54 4F 20  44 45 4C 45 54 45 22 3A  |E(S) TO DELETE":|
000008A0: 85 20 44 49 53 4B 24 00  C8 10 08 02 99 3A 99 3A  |. DISK$......:.:|
000008B0: 99 22 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |."HIT ANY KEY TO|
000008C0: 20 44 45 4C 45 54 45 22  00 DF 10 0D 02 A1 20 58  | DELETE"...... X|
000008D0: 24 3A 8B 20 58 24 B2 22  22 20 A7 20 35 32 35 00  |$:. X$."" . 525.|
000008E0: F6 10 12 02 4D 41 43 52  4F 24 B2 22 53 30 3A 22  |....MACRO$."S0:"|
000008F0: AA 44 49 53 4B 24 00 0B  11 17 02 9F 20 31 35 2C  |.DISK$...... 15,|
00000900: 38 2C 31 35 2C 4D 41 43  52 4F 24 00 20 11 1C 02  |8,15,MACRO$. ...|
00000910: A0 20 31 35 3A 4D 41 43  52 4F 24 B2 22 22 3A 8E  |. 15:MACRO$."":.|
00000920: 00 3D 11 26 02 8F 20 2A  2A 2A 20 56 41 4C 49 44  |.=.&.. *** VALID|
00000930: 41 54 45 20 46 49 4C 45  53 20 2A 2A 2A 00 4A 11  |ATE FILES ***.J.|
00000940: 2B 02 99 22 93 22 3A 99  3A 99 00 78 11 30 02 99  |+..".":.:..x.0..|
00000950: 22 57 41 52 4E 49 4E 47  3A 4F 50 45 4E 20 46 49  |"WARNING:OPEN FI|
00000960: 4C 45 53 20 22 3A 99 22  57 49 4C 4C 20 42 45 20  |LES ":."WILL BE |
00000970: 44 45 4C 45 54 45 44 22  00 9B 11 3A 02 99 3A 99  |DELETED"...:..:.|
00000980: 3A 99 22 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |:."HIT ANY KEY T|
00000990: 4F 20 56 41 4C 49 44 41  54 45 22 00 B2 11 3F 02  |O VALIDATE"...?.|
000009A0: A1 20 58 24 3A 8B 20 58  24 B2 22 22 20 A7 20 35  |. X$:. X$."" . 5|
000009B0: 37 35 00 C3 11 44 02 9F  20 31 2C 38 2C 31 35 2C  |75...D.. 1,8,15,|
000009C0: 22 56 22 00 CD 11 4E 02  A0 20 31 3A 8E 00 F3 11  |"V"...N.. 1:....|
000009D0: 58 02 8F 20 2A 2A 20 57  52 49 54 45 20 44 49 53  |X.. ** WRITE DIS|
000009E0: 4B 4D 41 4E 41 47 45 52  20 50 52 4F 47 52 41 4D  |KMANAGER PROGRAM|
000009F0: 20 2A 2A 00 00 12 5D 02  99 22 93 22 3A 99 3A 99  | **...]..".":.:.|
00000A00: 00 27 12 62 02 99 22 49  4E 53 45 52 54 20 44 49  |.'.b.."INSERT DI|
00000A10: 53 4B 20 54 4F 20 42 45  20 57 52 49 54 54 45 4E  |SK TO BE WRITTEN|
00000A20: 20 54 4F 2E 22 3A 99 00  54 12 6C 02 99 3A 99 3A  | TO.":..T.l..:.:|
00000A30: 99 22 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |."HIT ANY KEY TO|
00000A40: 20 57 52 49 54 45 20 44  49 53 4B 20 4D 41 4E 41  | WRITE DISK MANA|
00000A50: 47 45 52 22 00 6B 12 6E  02 A1 20 58 24 3A 8B 20  |GER".k.n.. X$:. |
00000A60: 58 24 B2 22 22 20 A7 20  36 32 32 00 78 12 71 02  |X$."" . 622.x.q.|
00000A70: 9F 20 31 2C 38 2C 31 35  00 92 12 76 02 94 20 22  |. 1,8,15...v.. "|
00000A80: 40 30 3A 44 49 53 4B 20  4D 41 4E 41 47 45 52 22  |@0:DISK MANAGER"|
00000A90: 2C 38 00 9A 12 7B 02 A0  20 31 00 A0 12 80 02 8E  |,8...{.. 1......|
00000AA0: 00 C3 12 8A 02 8F 20 2A  2A 2A 20 44 49 53 50 4C  |...... *** DISPL|
00000AB0: 41 59 20 45 52 52 4F 52  20 53 54 41 54 55 53 20  |AY ERROR STATUS |
00000AC0: 2A 2A 2A 00 D0 12 8F 02  9F 31 35 2C 38 2C 31 35  |***......15,8,15|
00000AD0: 00 E4 12 94 02 84 31 35  2C 41 24 2C 42 24 2C 43  |......15,A$,B$,C|
00000AE0: 24 2C 44 24 00 F1 12 9E  02 99 22 93 22 3A 99 3A  |$,D$......".":.:|
00000AF0: 99 00 21 13 A8 02 99 22  45 52 52 4F 52 20 53 54  |..!...."ERROR ST|
00000B00: 41 54 55 53 3A 20 20 22  42 24 3A 99 3A 99 22 45  |ATUS:  "B$:.:."E|
00000B10: 52 52 4F 52 20 4E 55 4D  42 45 52 3A 20 20 22 41  |RROR NUMBER:  "A|
00000B20: 24 00 42 13 B2 02 99 3A  99 3A 99 22 48 49 54 20  |$.B....:.:."HIT |
00000B30: 41 4E 59 20 4B 45 59 20  54 4F 20 52 45 54 55 52  |ANY KEY TO RETUR|
00000B40: 4E 22 00 58 13 B7 02 A1  20 58 24 3A 8B 20 58 24  |N".X.... X$:. X$|
00000B50: B2 22 22 A7 20 36 39 35  00 63 13 B9 02 A0 20 31  |."". 695.c.... 1|
00000B60: 35 3A 8E 00 81 13 BC 02  8F 20 2A 2A 2A 20 52 45  |5:....... *** RE|
00000B70: 54 55 52 4E 20 54 4F 20  42 41 53 49 43 20 2A 2A  |TURN TO BASIC **|
00000B80: 2A 00 8E 13 C1 02 99 22  93 22 3A 99 3A 99 00 C2  |*......".":.:...|
00000B90: 13 C6 02 99 20 22 4E 4F  54 45 3A 44 49 53 4B 20  |.... "NOTE:DISK |
00000BA0: 4D 41 4E 41 47 45 52 20  50 52 4F 47 52 41 4D 20  |MANAGER PROGRAM |
00000BB0: 49 53 20 53 54 49 4C 4C  20 52 45 53 49 44 45 4E  |IS STILL RESIDEN|
00000BC0: 54 22 00 C8 13 D0 02 80  00 EC 13 20 03 8F 20 2A  |T"......... .. *|
00000BD0: 2A 2A 20 43 4F 50 59 20  46 49 4C 45 20 4F 4E 20  |** COPY FILE ON |
00000BE0: 4E 45 57 20 44 49 53 4B  20 2A 2A 2A 00 F6 13 21  |NEW DISK ***...!|
00000BF0: 03 99 20 22 93 22 00 FF  13 22 03 A0 20 31 35 00  |.. "."...".. 15.|
00000C00: 10 14 23 03 4D 41 58 B2  B5 28 53 AD 32 35 36 29  |..#.MAX..(S.256)|
00000C10: 00 54 14 24 03 99 20 22  20 20 4D 41 58 49 4D 55  |.T.$.. "  MAXIMU|
00000C20: 4D 20 53 49 5A 45 20 4F  46 20 46 49 4C 45 57 48  |M SIZE OF FILEWH|
00000C30: 49 43 48 20 43 41 4E 20  42 45 20 43 4F 50 49 45  |ICH CAN BE COPIE|
00000C40: 44 20 49 53 20 22 4D 41  58 22 20 42 4C 4F 43 4B  |D IS "MAX" BLOCK|
00000C50: 53 22 3A 99 00 6A 14 26  03 8B 20 4D 41 58 B1 B2  |S":..j.&.. MAX..|
00000C60: 4D 32 20 A7 20 89 20 38  30 39 00 9B 14 27 03 99  |M2 . . 809...'..|
00000C70: 20 22 20 20 46 4F 52 20  4D 41 58 49 4D 55 4D 20  | "  FOR MAXIMUM |
00000C80: 43 4F 50 59 20 53 49 5A  45 20 4F 46 20 22 4D 32  |COPY SIZE OF "M2|
00000C90: 22 20 42 4C 4F 43 4B 53  2C 22 3B 00 C9 14 28 03  |" BLOCKS,";...(.|
00000CA0: 99 20 22 54 55 52 4E 20  43 4F 4D 50 55 54 45 52  |. "TURN COMPUTER|
00000CB0: 20 4F 46 46 2F 4F 4E 20  41 4E 44 20 52 45 4C 4F  | OFF/ON AND RELO|
00000CC0: 41 44 20 50 52 4F 47 2E  22 00 05 15 29 03 99 3A  |AD PROG."...)..:|
00000CD0: 99 22 20 20 52 45 41 44  2F 57 52 49 54 45 20 52  |."  READ/WRITE R|
00000CE0: 41 54 45 20 49 53 20 41  50 50 52 4F 58 49 4D 41  |ATE IS APPROXIMA|
00000CF0: 54 45 4C 59 20 36 20 42  4C 4F 43 4B 53 2F 4D 49  |TELY 6 BLOCKS/MI|
00000D00: 4E 55 54 45 22 00 2F 15  2A 03 99 3A 99 20 22 49  |NUTE"./.*..:. "I|
00000D10: 4E 50 55 54 20 4E 41 4D  45 20 4F 46 20 46 49 4C  |NPUT NAME OF FIL|
00000D20: 45 20 54 4F 20 42 45 20  43 4F 50 49 45 44 22 00  |E TO BE COPIED".|
00000D30: 3B 15 34 03 85 20 46 49  4C 45 24 00 59 15 3E 03  |;.4.. FILE$.Y.>.|
00000D40: 99 3A 99 20 22 20 20 20  49 4E 50 55 54 20 46 49  |.:. "   INPUT FI|
00000D50: 4C 45 20 54 59 50 45 3A  22 00 70 15 48 03 99 20  |LE TYPE:".p.H.. |
00000D60: 22 20 20 20 20 20 50 20  50 52 4F 47 52 41 4D 22  |"     P PROGRAM"|
00000D70: 00 8A 15 52 03 99 20 22  20 20 20 20 20 53 20 53  |...R.. "     S S|
00000D80: 45 51 55 45 4E 54 49 41  4C 22 00 9E 15 5C 03 99  |EQUENTIAL"...\..|
00000D90: 20 22 20 20 20 20 20 55  20 55 53 45 52 22 00 B6  | "     U USER"..|
00000DA0: 15 66 03 99 20 22 20 20  20 20 20 52 20 52 45 4C  |.f.. "     R REL|
00000DB0: 41 54 49 56 45 22 00 C2  15 70 03 85 20 54 59 50  |ATIVE"...p.. TYP|
00000DC0: 45 24 00 F2 15 7A 03 99  3A 99 20 22 49 4E 53 45  |E$...z..:. "INSE|
00000DD0: 52 54 20 53 4F 55 52 43  45 20 44 49 53 4B 20 41  |RT SOURCE DISK A|
00000DE0: 4E 44 20 50 52 45 53 53  20 3C 52 45 54 55 52 4E  |ND PRESS <RETURN|
00000DF0: 3E 22 00 0B 16 84 03 A1  20 57 24 3A 8B 20 57 24  |>"...... W$:. W$|
00000E00: B2 22 22 20 A7 20 89 20  39 30 30 00 2C 16 8E 03  |."" . . 900.,...|
00000E10: 8D 20 31 30 30 30 3A 8F  20 52 45 41 44 20 46 49  |. 1000:. READ FI|
00000E20: 4C 45 20 49 4E 54 4F 20  54 45 4D 50 00 5E 16 98  |LE INTO TEMP.^..|
00000E30: 03 99 3A 99 20 22 49 4E  53 45 52 54 20 44 45 53  |..:. "INSERT DES|
00000E40: 54 49 4E 41 54 49 4F 4E  20 44 49 53 4B 20 41 4E  |TINATION DISK AN|
00000E50: 44 20 50 52 45 53 53 20  3C 52 45 54 3E 22 00 77  |D PRESS <RET>".w|
00000E60: 16 A2 03 A1 20 57 24 3A  8B 20 57 24 B2 22 22 20  |.... W$:. W$."" |
00000E70: A7 20 89 20 39 33 30 00  9A 16 AC 03 8D 20 31 30  |. . 930...... 10|
00000E80: 35 30 3A 8F 20 57 52 49  54 45 20 46 49 4C 45 20  |50:. WRITE FILE |
00000E90: 46 52 4F 4D 20 54 45 4D  50 24 00 BB 16 B6 03 99  |FROM TEMP$......|
00000EA0: 3A 99 20 22 4D 41 4B 45  20 41 4E 4F 54 48 45 52  |:. "MAKE ANOTHER|
00000EB0: 20 43 4F 50 59 22 3B 3A  85 57 24 00 D5 16 C0 03  | COPY";:.W$.....|
00000EC0: 8B 20 C8 28 57 24 2C 31  29 B2 22 59 22 20 A7 20  |. .(W$,1)."Y" . |
00000ED0: 89 20 39 32 30 00 E0 16  CA 03 89 20 31 31 30 30  |. 920...... 1100|
00000EE0: 00 FC 16 D4 03 8F 20 2D  20 43 48 45 43 4B 20 46  |...... - CHECK F|
00000EF0: 4F 52 20 47 4F 4F 44 20  4F 50 45 4E 00 10 17 D9  |OR GOOD OPEN....|
00000F00: 03 84 31 35 2C 41 24 2C  42 24 2C 43 24 2C 44 24  |..15,A$,B$,C$,D$|
00000F10: 00 22 17 DE 03 8B 20 C5  28 41 24 29 B2 30 20 A7  |.".... .(A$).0 .|
00000F20: 20 8E 00 3B 17 E3 03 99  20 41 24 2C 42 24 2C 43  | ..;.... A$,B$,C|
00000F30: 24 2C 44 24 3A A0 20 31  35 3A 90 00 58 17 E8 03  |$,D$:. 15:..X...|
00000F40: 8F 20 2D 20 52 45 41 44  20 46 49 4C 45 20 49 4E  |. - READ FILE IN|
00000F50: 54 4F 20 54 45 4D 50 25  00 60 17 EA 03 49 B2 31  |TO TEMP%.`...I.1|
00000F60: 00 6E 17 EC 03 9F 20 31  35 2C 38 2C 31 35 00 94  |.n.... 15,8,15..|
00000F70: 17 EE 03 9F 20 35 2C 38  2C 35 2C 22 30 3A 22 AA  |.... 5,8,5,"0:".|
00000F80: 46 49 4C 45 24 AA 22 2C  22 AA 54 59 50 45 24 AA  |FILE$.",".TYPE$.|
00000F90: 22 2C 52 22 00 9E 17 F0  03 8D 20 39 38 30 00 BD  |",R"...... 980..|
00000FA0: 17 F1 03 99 20 22 20 20  20 20 20 4E 4F 57 20 52  |.... "     NOW R|
00000FB0: 45 41 44 49 4E 47 20 2E  20 2E 20 2E 22 00 C8 17  |EADING . . ."...|
00000FC0: F2 03 A1 23 35 2C 41 24  00 E0 17 F4 03 54 45 4D  |...#5,A$.....TEM|
00000FD0: 50 25 28 49 29 B2 C6 28  41 24 AA C7 28 30 29 29  |P%(I)..(A$..(0))|
00000FE0: 00 EA 17 F6 03 49 B2 49  AA 31 00 FC 17 F8 03 8B  |.....I.I.1......|
00000FF0: 20 53 54 B2 30 20 A7 20  31 30 31 30 00 31 18 FA  | ST.0 . 1010.1..|
00001000: 03 99 3A 99 20 22 46 49  4C 45 3D 3F 20 22 3B 46  |..:. "FILE=? ";F|
00001010: 49 4C 45 24 2C 22 53 54  3D 22 3B 53 54 2C 22 42  |ILE$,"ST=";ST,"B|
00001020: 59 54 45 53 3D 22 3B 49  3A A0 20 35 3A A0 20 31  |YTES=";I:. 5:. 1|
00001030: 35 00 37 18 FC 03 8E 00  55 18 1A 04 8F 20 2D 20  |5.7.....U.... - |
00001040: 57 52 49 54 45 20 46 49  4C 45 20 46 52 4F 4D 20  |WRITE FILE FROM |
00001050: 54 45 4D 50 25 00 63 18  1C 04 9F 20 31 35 2C 38  |TEMP%.c.... 15,8|
00001060: 2C 31 35 00 89 18 1E 04  9F 20 35 2C 38 2C 35 2C  |,15...... 5,8,5,|
00001070: 22 30 3A 22 AA 46 49 4C  45 24 AA 22 2C 22 AA 54  |"0:".FILE$.",".T|
00001080: 59 50 45 24 AA 22 2C 57  22 00 93 18 20 04 8D 20  |YPE$.",W"... .. |
00001090: 39 38 30 00 B2 18 21 04  99 20 22 20 20 20 20 20  |980...!.. "     |
000010A0: 4E 4F 57 20 57 52 49 54  49 4E 47 20 2E 20 2E 20  |NOW WRITING . . |
000010B0: 2E 22 00 C6 18 24 04 98  35 2C C7 28 54 45 4D 50  |."...$..5,.(TEMP|
000010C0: 25 28 4A 29 29 3B 00 D0  18 26 04 4A B2 4A AA 31  |%(J));...&.J.J.1|
000010D0: 00 E1 18 28 04 8B 20 4A  B3 49 20 A7 20 31 30 36  |...(.. J.I . 106|
000010E0: 30 00 0C 19 2A 04 99 3A  99 20 22 46 49 4C 45 3D  |0...*..:. "FILE=|
000010F0: 20 22 3B 46 49 4C 45 24  2C 22 42 59 54 45 53 3D  | ";FILE$,"BYTES=|
00001100: 22 3B 4A 3A A0 20 35 3A  A0 20 31 35 00 12 19 2C  |";J:. 5:. 15...,|
00001110: 04 8E 00 1A 19 3D 04 4A  B2 31 00 20 19 4C 04 8E  |.....=.J.1. .L..|
00001120: 00 45 19 B0 04 8F 20 2A  2A 2A 20 43 4F 50 59 20  |.E.... *** COPY |
00001130: 42 4F 54 48 20 44 4F 53  20 50 52 4F 47 52 41 4D  |BOTH DOS PROGRAM|
00001140: 53 20 2A 2A 2A 00 7D 19  B5 04 99 20 22 93 22 3A  |S ***.}.... ".":|
00001150: 99 20 22 49 4E 53 45 52  54 20 53 4F 55 52 43 45  |. "INSERT SOURCE|
00001160: 20 44 49 53 4B 20 57 49  54 48 20 57 45 44 47 45  | DISK WITH WEDGE|
00001170: 20 41 4E 44 2F 4F 52 20  44 4F 53 22 3B 00 A4 19  | AND/OR DOS";...|
00001180: BA 04 99 20 22 20 50 52  4F 47 52 41 4D 28 53 29  |... " PROGRAM(S)|
00001190: 20 41 4E 44 20 50 52 45  53 53 20 3C 52 45 54 55  | AND PRESS <RETU|
000011A0: 52 4E 3E 22 00 BE 19 BF  04 A1 20 57 24 3A 8B 20  |RN>"...... W$:. |
000011B0: 57 24 B2 22 22 20 A7 20  89 20 31 32 31 35 00 CC  |W$."" . . 1215..|
000011C0: 19 C2 04 54 59 50 45 24  B2 22 50 22 00 F5 19 C3  |...TYPE$."P"....|
000011D0: 04 8B 20 43 30 B2 31 20  A7 20 46 49 4C 45 24 22  |.. C0.1 . FILE$"|
000011E0: 3D 22 56 49 43 AB 32 30  20 57 45 44 47 45 3A 89  |="VIC.20 WEDGE:.|
000011F0: 20 31 32 33 35 00 13 1A  C4 04 46 49 4C 45 24 B2  | 1235.....FILE$.|
00001200: 22 43 2D 36 34 20 57 45  44 47 45 22 3A 8D 20 31  |"C-64 WEDGE":. 1|
00001210: 30 30 30 00 59 1A C9 04  81 20 43 B2 31 20 A4 20  |000.Y.... C.1 . |
00001220: 36 34 3A 44 4F 53 25 28  43 29 B2 54 45 4D 50 25  |64:DOS%(C).TEMP%|
00001230: 28 43 29 3A 82 20 43 3A  8F 20 4D 4F 56 45 20 43  |(C):. C:. MOVE C|
00001240: 2D 36 34 20 57 45 44 47  45 20 54 4F 20 53 4D 41  |-64 WEDGE TO SMA|
00001250: 4C 4C 20 42 55 46 46 45  52 00 6D 1A CE 04 46 49  |LL BUFFER.m...FI|
00001260: 4C 45 24 B2 22 44 4F 53  20 35 2E 31 22 00 A6 1A  |LE$."DOS 5.1"...|
00001270: D3 04 8D 20 31 30 30 30  3A 99 3A 99 20 22 49 4E  |... 1000:.:. "IN|
00001280: 53 45 52 54 20 44 45 53  54 49 4E 41 54 49 4F 4E  |SERT DESTINATION|
00001290: 20 44 49 53 4B 20 41 4E  44 20 50 52 45 53 53 20  | DISK AND PRESS |
000012A0: 3C 52 45 54 3E 22 00 C0  1A D8 04 A1 20 57 24 3A  |<RET>"...... W$:|
000012B0: 8B 20 57 24 B2 22 22 20  A7 20 89 20 31 32 34 30  |. W$."" . . 1240|
000012C0: 00 D6 1A DD 04 8D 20 31  30 35 30 3A 8B 20 43 30  |...... 1050:. C0|
000012D0: B2 31 20 A7 20 8E 00 FA  1A E2 04 81 20 43 B2 31  |.1 . ....... C.1|
000012E0: 20 A4 20 36 34 3A 54 45  4D 50 25 28 43 29 B2 44  | . 64:TEMP%(C).D|
000012F0: 4F 53 25 28 43 29 3A 82  20 43 00 30 1B E7 04 46  |OS%(C):. C.0...F|
00001300: 49 4C 45 24 B2 22 43 2D  36 34 20 57 45 44 47 45  |ILE$."C-64 WEDGE|
00001310: 22 3A 49 B2 36 34 3A 8D  20 31 30 35 30 3A 8F 20  |":I.64:. 1050:. |
00001320: 57 52 49 54 45 20 43 2D  36 34 20 57 45 44 47 45  |WRITE C-64 WEDGE|
00001330: 00 36 1B 0A 05 8E 00 00  00                       |.6.......       |
..+.... 49152 ,10:. B (49152)..10 . C0.1
:.6.4...C0.2.C.... DOS%(65).D...FR..(0):
. FR.0 . FR.FR.65536.....S.(FR.400).2:M2
..(S.256).1...... TEMP%(S)......".";....
.."  ******************".T...."  *  DISK
 MANAGER  *"......"  ******************"
...2..:."1.DISK DIRECTORY".#.<.."2.FORMA
T NEW DISK".<.F.."3.INITIALIZE DISK".\.P
.."4.COPY FILE ON SAME DISK"...U.."5.COP
Y FILE ON NEW (FORMATTED) DISK"...X.."6.
COPY BOTH DOS WEDGE PROGRAMS".B.Z.."7.RE
NAME FILE".Y.D.."8.ERASE FILE(S)"...N.."
9.VALIDATE FILES"...X.."10.WRITE DISK MA
NAGER".%...."11.ERROR STATUS".@...."12.E
XIT TO BASIC":.:.`....8,201,13,240,17,20
1,32,240... ..5,24,101,255,133,255,165,2
52......"CHOICE    ....";CHOICE.H.... (C
HOICE.1).(CHOICE.12)..".";:. 170......20
6,165,3,169,0,133,216,169.).H.. CHOICE .
 250,300,350,400,800,1200,450,500,550,60
0,650,700.2.R.. 10.R....169,0,32,205,189
,169,0,133.T....255,169,32,32,210,255,32
,210......255,173,165,3,133,214,76,98,3.
..... *** DISPLAY DIRECTORY ***......"."
.P.... 1,8,0,"$"...... #1,A$,B$......#1,
A$,B$...... #1,A$,B$.....C.0:. A$.."". C
. F(A$).4.... B$.."". C.C. F(B$).256.I..
.. J(D(C),2);.3);.B....#1,B$:. ST..0 . 2
82.Y.... B$.. G(34) . 264...... #1,B$:. 
B$.. G(34) . .B$;:.268...... #1,B$:. B$.
 G(32) . 270.N.... .18);:C$."".....C$.C$
.B$:. #1,B$:. B$.."" . 274...... H(C$,3)
...... ST.0 . 254.&...." BLOCKS FREE ".K
...  1:.:.:."HIT ANY KEY TO RETURN"._.".
. X$:.X$."".290.E.'.....,.. *** FORMAT (
NEW) DISK ***...-.."."...1.."INSERT DISK
 TO BE":."FORMATTED.":..V.6.."INPUT DISK
 NAME":. DISK$...@..:."INPUT EXTENDER NA
ME":. EXT$...E.MACRO$."N0:".DISK$.",".EX
T$./.J.. 15,8,15,MACRO$.D.T.  15:MACRO$.
"":..B.^.. *** INITIALIZE DISK ***.K.C..
"."...H.."INSERT DISK TO BE":."INITIALIZ
ED.":....R.."HIT <RETURN> TO":."INITIALI
ZE":. X$.R.|.. 15,8,15,"I".....  15:....
... *** COPY FILE ON SAME DISK ***......
".":.:..5...."INPUT SOURCE FILE NAME":. 
DISK$.Y....:."INPUT NEW FILE NAME":. NWS
$.X...MACRO$."C:".NWS$."=".DISK$...... 1
5,8,15,MACRO$.....  15:MACRO$."":....B..
 *** RENAME FILE ***.G.G..".":....L.."IN
PUT OLD FILE NAME":. DISK$...V..:."INPUT
 NEW FILE NAME":.NWS$.,...MACRO$."R:".NW
S$."=".DISK$.A.... 15,8,15,MACRO$.U... 1
5:MACRO$."":..N.... *** ERASE FILE ***.{
....".":.:......."INPUT FILE NAME(S) TO 
DELETE":. DISK$.H....:.:."HIT ANY KEY TO
 DELETE"...... X$:. X$."" . 525.....MACR
O$."S0:".DISK$...... 15,8,15,MACRO$. ...
  15:MACRO$."":..=.&.. *** VALIDATE FILE
S ***.J.+..".":.:..X.0.."WARNING:OPEN FI
LES ":."WILL BE DELETED"...:..:.:."HIT A
NY KEY TO VALIDATE"...?.. X$:. X$."" . 5
75.C.D.. 1,8,15,"V".M.N.  1:....X.. ** W
RITE DISKMANAGER PROGRAM **...]..".":.:.
.'.B.."INSERT DISK TO BE WRITTEN TO.":..
T.L..:.:."HIT ANY KEY TO WRITE DISK MANA
GER".K.N.. X$:. X$."" . 622.X.Q.. 1,8,15
...V.. "@0:DISK MANAGER",8...{.  1. ....
.C.... *** DISPLAY ERROR STATUS ***.P...
.15,8,15......15,A$,B$,C$,D$......".":.:
..!...."ERROR STATUS:  "B$:.:."ERROR NUM
BER:  "A$.B....:.:."HIT ANY KEY TO RETUR
N".X.... X$:. X$."". 695.C...  15:......
. *** RETURN TO BASIC ***...A..".":.:..B
.F.. "NOTE:DISK MANAGER PROGRAM IS STILL
 RESIDENT".H.P..... .. *** COPY FILE ON 
NEW DISK ***...!.. "."...".  15...#.MAX.
.(S.256).T.$.. "  MAXIMUM SIZE OF FILEWH
ICH CAN BE COPIED IS "MAX" BLOCKS":..J.&
.. MAX..M2 . . 809...'.. "  FOR MAXIMUM 
COPY SIZE OF "M2" BLOCKS,";.I.(.. "TURN 
COMPUTER OFF/ON AND RELOAD PROG."...)..:
."  READ/WRITE RATE IS APPROXIMATELY 6 B
LOCKS/MINUTE"./.*..:. "INPUT NAME OF FIL
E TO BE COPIED".;.4.. FILE$.Y.>..:. "   
INPUT FILE TYPE:".P.H.. "     P PROGRAM"
...R.. "     S SEQUENTIAL"...\.. "     U
 USER"...F.. "     R RELATIVE".B.P.. TYP
E$...Z..:. "INSERT SOURCE DISK AND PRESS
 <RETURN>"...... W$:. W$."" . . 900.,...
. 1000:. READ FILE INTO TEMP.^....:. "IN
SERT DESTINATION DISK AND PRESS <RET>".W
.... W$:. W$."" . . 930...... 1050:. WRI
TE FILE FROM TEMP$......:. "MAKE ANOTHER
 COPY";:.W$.U.... H(W$,1)."Y" . . 920...
J.. 1100...T.. - CHECK FOR GOOD OPEN...Y
..15,A$,B$,C$,D$.".... E(A$).0 . ..;....
 A$,B$,C$,D$:  15:..X.... - READ FILE IN
TO TEMP%.`...I.1.N.... 15,8,15...... 5,8
,5,"0:".FILE$.",".TYPE$.",R"...... 980..
.... "     NOW READING . . .".H....#5,A$
.....TEMP%(I).F(A$.G(0)).....I.I.1......
 ST.0 . 1010.1....:. "FILE=? ";FILE$,"ST
=";ST,"BYTES=";I:  5:  15.7.....U.... - 
WRITE FILE FROM TEMP%.C.... 15,8,15.....
. 5,8,5,"0:".FILE$.",".TYPE$.",W"... .. 
980...!.. "     NOW WRITING . . .".F.$..
5,G(TEMP%(J));.P.&.J.J.1...(.. J.I . 106
0...*..:. "FILE= ";FILE$,"BYTES=";J:  5:
  15...,.....=.J.1. .L...E.... *** COPY 
BOTH DOS PROGRAMS ***.}.... ".":. "INSER
T SOURCE DISK WITH WEDGE AND/OR DOS";...
... " PROGRAM(S) AND PRESS <RETURN>"....
.. W$:. W$."" . . 1215.L.B.TYPE$."P"...C
.. C0.1 . FILE$"="VIC.20 WEDGE:. 1235...
D.FILE$."C-64 WEDGE":. 1000.Y.I.. C.1 . 
64:DOS%(C).TEMP%(C):. C:. MOVE C-64 WEDG
E TO SMALL BUFFER.M.N.FILE$."DOS 5.1"...
S.. 1000:.:. "INSERT DESTINATION DISK AN
D PRESS <RET>"...X.. W$:. W$."" . . 1240
.V.... 1050:. C0.1 . ....... C.1 . 64:TE
MP%(C).DOS%(C):. C.0...FILE$."C-64 WEDGE
":I.64:. 1050:. WRITE C-64 WEDGE.6......
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL