16.DISK-MANAGER

00000000: 01 08 07 08 01 00 8F 00  2F 08 03 00 97 20 34 39  |......../.... 49|
00000010: 31 35 32 2C 31 30 3A 8B  20 C2 28 34 39 31 35 32  |152,10:. .(49152|
00000020: 29 B3 B1 31 30 20 A7 20  43 30 B2 31 3A 89 36 00  |)..10 . C0.1:.6.|
00000030: 38 08 05 00 43 30 B2 32  00 47 08 06 00 86 20 44  |8...C0.2.G.... D|
00000040: 4F 53 25 28 36 35 29 00  68 08 07 00 46 52 B2 B8  |OS%(65).h...FR..|
00000050: 28 30 29 3A 8B 20 46 52  B3 30 20 A7 20 46 52 B2  |(0):. FR.0 . FR.|
00000060: 46 52 AA 36 35 35 33 36  00 87 08 08 00 53 B2 28  |FR.65536.....S.(|
00000070: 46 52 AB 34 30 30 29 AD  32 3A 4D 32 B2 B5 28 53  |FR.400).2:M2..(S|
00000080: AD 32 35 36 29 AA 31 00  96 08 09 00 86 20 54 45  |.256).1...... TE|
00000090: 4D 50 25 28 53 29 00 A0  08 0A 00 99 22 93 22 3B  |MP%(S)......".";|
000000A0: 00 BC 08 0F 00 99 22 20  20 2A 2A 2A 2A 2A 2A 2A  |......"  *******|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 22 00 D8 08 14  |***********"....|
000000C0: 00 99 22 20 20 2A 20 20  44 49 53 4B 20 4D 41 4E  |.."  *  DISK MAN|
000000D0: 41 47 45 52 20 20 2A 22  00 F4 08 19 00 99 22 20  |AGER  *"......" |
000000E0: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
000000F0: 2A 2A 2A 22 00 0E 09 32  00 99 3A 99 22 31 2E 44  |***"...2..:."1.D|
00000100: 49 53 4B 20 44 49 52 45  43 54 4F 52 59 22 00 27  |ISK DIRECTORY".'|
00000110: 09 3C 00 99 22 32 2E 46  4F 52 4D 41 54 20 4E 45  |.<.."2.FORMAT NE|
00000120: 57 20 44 49 53 4B 22 00  40 09 46 00 99 22 33 2E  |W DISK".@.F.."3.|
00000130: 49 4E 49 54 49 41 4C 49  5A 45 20 44 49 53 4B 22  |INITIALIZE DISK"|
00000140: 00 60 09 50 00 99 22 34  2E 43 4F 50 59 20 46 49  |.`.P.."4.COPY FI|
00000150: 4C 45 20 4F 4E 20 53 41  4D 45 20 44 49 53 4B 22  |LE ON SAME DISK"|
00000160: 00 8B 09 55 00 99 22 35  2E 43 4F 50 59 20 46 49  |...U.."5.COPY FI|
00000170: 4C 45 20 4F 4E 20 4E 45  57 20 28 46 4F 52 4D 41  |LE ON NEW (FORMA|
00000180: 54 54 45 44 29 20 44 49  53 4B 22 00 B1 09 58 00  |TTED) DISK"...X.|
00000190: 99 22 36 2E 43 4F 50 59  20 42 4F 54 48 20 44 4F  |."6.COPY BOTH DO|
000001A0: 53 20 57 45 44 47 45 20  50 52 4F 47 52 41 4D 53  |S WEDGE PROGRAMS|
000001B0: 22 00 C6 09 5A 00 99 22  37 2E 52 45 4E 41 4D 45  |"...Z.."7.RENAME|
000001C0: 20 46 49 4C 45 22 00 DD  09 64 00 99 22 38 2E 45  | FILE"...d.."8.E|
000001D0: 52 41 53 45 20 46 49 4C  45 28 53 29 22 00 F5 09  |RASE FILE(S)"...|
000001E0: 6E 00 99 22 39 2E 56 41  4C 49 44 41 54 45 20 46  |n.."9.VALIDATE F|
000001F0: 49 4C 45 53 22 00 12 0A  78 00 99 22 31 30 2E 57  |ILES"...x.."10.W|
00000200: 52 49 54 45 20 44 49 53  4B 20 4D 41 4E 41 47 45  |RITE DISK MANAGE|
00000210: 52 22 00 29 0A 82 00 99  22 31 31 2E 45 52 52 4F  |R".)...."11.ERRO|
00000220: 52 20 53 54 41 54 55 53  22 00 44 0A 8C 00 99 22  |R STATUS".D...."|
00000230: 31 32 2E 45 58 49 54 20  54 4F 20 42 41 53 49 43  |12.EXIT TO BASIC|
00000240: 22 3A 99 3A 00 61 0A AA  00 85 22 43 48 4F 49 43  |":.:.a...."CHOIC|
00000250: 45 20 20 20 20 9D 9D 9D  9D 22 3B 43 48 4F 49 43  |E    ....";CHOIC|
00000260: 45 00 8A 0A B4 00 8B 20  28 43 48 4F 49 43 45 B3  |E...... (CHOICE.|
00000270: 31 29 B0 28 43 48 4F 49  43 45 B1 31 32 29 A7 20  |1).(CHOICE.12). |
00000280: 99 22 91 22 3B 3A 89 31  37 30 00 CA 0A C8 00 91  |.".";:.170......|
00000290: 20 43 48 4F 49 43 45 20  8D 20 32 35 30 2C 33 30  | CHOICE . 250,30|
000002A0: 30 2C 33 35 30 2C 34 30  30 2C 38 30 30 2C 31 32  |0,350,400,800,12|
000002B0: 30 30 2C 34 35 30 2C 35  30 30 2C 35 35 30 2C 36  |00,450,500,550,6|
000002C0: 30 30 2C 36 35 30 2C 37  30 30 00 D3 0A D2 00 89  |00,650,700......|
000002D0: 20 31 30 00 F3 0A FA 00  8F 20 2A 2A 2A 20 44 49  | 10...... *** DI|
000002E0: 53 50 4C 41 59 20 44 49  52 45 43 54 4F 52 59 20  |SPLAY DIRECTORY |
000002F0: 2A 2A 2A 00 FC 0A FB 00  99 22 93 22 00 0C 0B FC  |***......"."....|
00000300: 00 9F 20 31 2C 38 2C 30  2C 22 24 22 00 1B 0B FD  |.. 1,8,0,"$"....|
00000310: 00 A1 20 23 31 2C 41 24  2C 42 24 00 29 0B FE 00  |.. #1,A$,B$.)...|
00000320: A1 23 31 2C 41 24 2C 42  24 00 38 0B 00 01 A1 20  |.#1,A$,B$.8.... |
00000330: 23 31 2C 41 24 2C 42 24  00 53 0B 02 01 43 B2 30  |#1,A$,B$.S...C.0|
00000340: 3A 8B 20 41 24 B3 B1 22  22 A7 20 43 B2 20 C6 28  |:. A$.."". C. .(|
00000350: 41 24 29 00 70 0B 04 01  8B 20 42 24 B3 B1 22 22  |A$).p.... B$..""|
00000360: A7 20 43 B2 43 AA 20 C6  28 42 24 29 AC 32 35 36  |. C.C. .(B$).256|
00000370: 00 85 0B 06 01 99 20 CA  28 C4 28 43 29 2C 32 29  |...... .(.(C),2)|
00000380: 3B A3 33 29 3B 00 9E 0B  08 01 A1 23 31 2C 42 24  |;.3);......#1,B$|
00000390: 3A 8B 20 53 54 B3 B1 30  20 A7 20 32 38 32 00 B5  |:. ST..0 . 282..|
000003A0: 0B 0A 01 8B 20 42 24 B3  B1 20 C7 28 33 34 29 20  |.... B$.. .(34) |
000003B0: A7 20 32 36 34 00 DC 0B  0C 01 A1 20 23 31 2C 42  |. 264...... #1,B|
000003C0: 24 3A 8B 20 42 24 B3 B1  20 C7 28 33 34 29 20 A7  |$:. B$.. .(34) .|
000003D0: 20 99 20 42 24 3B 3A 89  20 32 36 38 00 FA 0B 0E  | . B$;:. 268....|
000003E0: 01 A1 20 23 31 2C 42 24  3A 8B 20 42 24 B2 20 C7  |.. #1,B$:. B$. .|
000003F0: 28 33 32 29 20 A7 20 32  37 30 00 0C 0C 10 01 99  |(32) . 270......|
00000400: 20 A3 31 38 29 3A 3A 43  24 B2 22 22 00 30 0C 12  | .18)::C$."".0..|
00000410: 01 43 24 B2 43 24 AA 42  24 3A A1 20 23 31 2C 42  |.C$.C$.B$:. #1,B|
00000420: 24 3A 8B 20 42 24 B3 B1  22 22 20 A7 20 32 37 34  |$:. B$.."" . 274|
00000430: 00 3E 0C 14 01 99 20 C8  28 43 24 2C 33 29 00 4F  |.>.... .(C$,3).O|
00000440: 0C 18 01 8B 20 53 54 B2  30 20 A7 20 32 35 34 00  |.... ST.0 . 254.|
00000450: 64 0C 1A 01 99 22 20 42  4C 4F 43 4B 53 20 46 52  |d...." BLOCKS FR|
00000460: 45 45 20 22 00 89 0C 1C  01 A0 20 31 3A 99 3A 99  |EE "...... 1:.:.|
00000470: 3A 99 22 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |:."HIT ANY KEY T|
00000480: 4F 20 52 45 54 55 52 4E  22 00 9E 0C 22 01 A1 20  |O RETURN"...".. |
00000490: 58 24 3A 8B 58 24 B2 22  22 A7 20 32 39 30 00 A4  |X$:.X$."". 290..|
000004A0: 0C 27 01 8E 00 C4 0C 2C  01 8F 20 2A 2A 2A 20 46  |.'.....,.. *** F|
000004B0: 4F 52 4D 41 54 20 28 4E  45 57 29 20 44 49 53 4B  |ORMAT (NEW) DISK|
000004C0: 20 2A 2A 2A 00 CD 0C 2D  01 99 22 93 22 00 F6 0C  | ***...-.."."...|
000004D0: 31 01 99 22 49 4E 53 45  52 54 20 44 49 53 4B 20  |1.."INSERT DISK |
000004E0: 54 4F 20 42 45 22 3A 99  22 46 4F 52 4D 41 54 54  |TO BE":."FORMATT|
000004F0: 45 44 2E 22 3A 99 00 15  0D 36 01 99 22 49 4E 50  |ED.":....6.."INP|
00000500: 55 54 20 44 49 53 4B 20  4E 41 4D 45 22 3A 85 20  |UT DISK NAME":. |
00000510: 44 49 53 4B 24 00 39 0D  40 01 99 3A 99 22 49 4E  |DISK$.9.@..:."IN|
00000520: 50 55 54 20 45 58 54 45  4E 44 45 52 20 4E 41 4D  |PUT EXTENDER NAM|
00000530: 45 22 3A 85 20 45 58 54  24 00 59 0D 45 01 4D 41  |E":. EXT$.Y.E.MA|
00000540: 43 52 4F 24 B2 22 4E 30  3A 22 AA 44 49 53 4B 24  |CRO$."N0:".DISK$|
00000550: AA 22 2C 22 AA 45 58 54  24 00 6E 0D 4A 01 9F 20  |.",".EXT$.n.J.. |
00000560: 31 35 2C 38 2C 31 35 2C  4D 41 43 52 4F 24 00 83  |15,8,15,MACRO$..|
00000570: 0D 54 01 A0 20 31 35 3A  4D 41 43 52 4F 24 B2 22  |.T.. 15:MACRO$."|
00000580: 22 3A 8E 00 A1 0D 5E 01  8F 20 2A 2A 2A 20 49 4E  |":....^.. *** IN|
00000590: 49 54 49 41 4C 49 5A 45  20 44 49 53 4B 20 2A 2A  |ITIALIZE DISK **|
000005A0: 2A 00 AA 0D 63 01 99 22  93 22 00 D5 0D 68 01 99  |*...c.."."...h..|
000005B0: 22 49 4E 53 45 52 54 20  44 49 53 4B 20 54 4F 20  |"INSERT DISK TO |
000005C0: 42 45 22 3A 99 22 49 4E  49 54 49 41 4C 49 5A 45  |BE":."INITIALIZE|
000005D0: 44 2E 22 3A 99 00 FF 0D  72 01 99 22 48 49 54 20  |D.":....r.."HIT |
000005E0: 3C 52 45 54 55 52 4E 3E  20 54 4F 22 3A 99 22 49  |<RETURN> TO":."I|
000005F0: 4E 49 54 49 41 4C 49 5A  45 22 3A 85 20 58 24 00  |NITIALIZE":. X$.|
00000600: 11 0E 7C 01 9F 20 31 35  2C 38 2C 31 35 2C 22 49  |..|.. 15,8,15,"I|
00000610: 22 00 1C 0E 86 01 A0 20  31 35 3A 8E 00 41 0E 90  |"...... 15:..A..|
00000620: 01 8F 20 2A 2A 2A 20 43  4F 50 59 20 46 49 4C 45  |.. *** COPY FILE|
00000630: 20 4F 4E 20 53 41 4D 45  20 44 49 53 4B 20 2A 2A  | ON SAME DISK **|
00000640: 2A 00 4E 0E 95 01 99 22  93 22 3A 99 3A 99 00 74  |*.N....".":.:..t|
00000650: 0E 9A 01 99 22 49 4E 50  55 54 20 53 4F 55 52 43  |...."INPUT SOURC|
00000660: 45 20 46 49 4C 45 20 4E  41 4D 45 22 3A 85 20 44  |E FILE NAME":. D|
00000670: 49 53 4B 24 00 98 0E A4  01 99 3A 99 22 49 4E 50  |ISK$......:."INP|
00000680: 55 54 20 4E 45 57 20 46  49 4C 45 20 4E 41 4D 45  |UT NEW FILE NAME|
00000690: 22 3A 85 20 4E 57 53 24  00 B7 0E A9 01 4D 41 43  |":. NWS$.....MAC|
000006A0: 52 4F 24 B2 22 43 3A 22  AA 4E 57 53 24 AA 22 3D  |RO$."C:".NWS$."=|
000006B0: 22 AA 44 49 53 4B 24 00  CC 0E AE 01 9F 20 31 35  |".DISK$...... 15|
000006C0: 2C 38 2C 31 35 2C 4D 41  43 52 4F 24 00 E1 0E B8  |,8,15,MACRO$....|
000006D0: 01 A0 20 31 35 3A 4D 41  43 52 4F 24 B2 22 22 3A  |.. 15:MACRO$."":|
000006E0: 8E 00 FB 0E C2 01 8F 20  2A 2A 2A 20 52 45 4E 41  |....... *** RENA|
000006F0: 4D 45 20 46 49 4C 45 20  2A 2A 2A 00 06 0F C7 01  |ME FILE ***.....|
00000700: 99 22 93 22 3A 99 00 29  0F CC 01 99 22 49 4E 50  |.".":..)...."INP|
00000710: 55 54 20 4F 4C 44 20 46  49 4C 45 20 4E 41 4D 45  |UT OLD FILE NAME|
00000720: 22 3A 85 20 44 49 53 4B  24 00 4D 0F D6 01 99 3A  |":. DISK$.M....:|
00000730: 99 22 49 4E 50 55 54 20  4E 45 57 20 46 49 4C 45  |."INPUT NEW FILE|
00000740: 20 4E 41 4D 45 22 3A 85  20 4E 57 53 24 00 6C 0F  | NAME":. NWS$.l.|
00000750: DB 01 4D 41 43 52 4F 24  B2 22 52 3A 22 AA 4E 57  |..MACRO$."R:".NW|
00000760: 53 24 AA 22 3D 22 AA 44  49 53 4B 24 00 81 0F E0  |S$."=".DISK$....|
00000770: 01 9F 20 31 35 2C 38 2C  31 35 2C 4D 41 43 52 4F  |.. 15,8,15,MACRO|
00000780: 24 00 96 0F EA 01 A0 20  31 35 3A 4D 41 43 52 4F  |$...... 15:MACRO|
00000790: 24 B2 22 22 3A 8E 00 AF  0F F4 01 8F 20 2A 2A 2A  |$."":....... ***|
000007A0: 20 45 52 41 53 45 20 46  49 4C 45 20 2A 2A 2A 00  | ERASE FILE ***.|
000007B0: BC 0F F9 01 99 22 93 22  3A 99 3A 99 00 E8 0F FE  |.....".":.:.....|
000007C0: 01 99 22 49 4E 50 55 54  20 46 49 4C 45 20 4E 41  |.."INPUT FILE NA|
000007D0: 4D 45 28 53 29 20 54 4F  20 44 45 4C 45 54 45 22  |ME(S) TO DELETE"|
000007E0: 3A 85 20 44 49 53 4B 24  00 09 10 08 02 99 3A 99  |:. DISK$......:.|
000007F0: 3A 99 22 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |:."HIT ANY KEY T|
00000800: 4F 20 44 45 4C 45 54 45  22 00 20 10 0D 02 A1 20  |O DELETE". .... |
00000810: 58 24 3A 8B 20 58 24 B2  22 22 20 A7 20 35 32 35  |X$:. X$."" . 525|
00000820: 00 37 10 12 02 4D 41 43  52 4F 24 B2 22 53 30 3A  |.7...MACRO$."S0:|
00000830: 22 AA 44 49 53 4B 24 00  4C 10 17 02 9F 20 31 35  |".DISK$.L.... 15|
00000840: 2C 38 2C 31 35 2C 4D 41  43 52 4F 24 00 61 10 1C  |,8,15,MACRO$.a..|
00000850: 02 A0 20 31 35 3A 4D 41  43 52 4F 24 B2 22 22 3A  |.. 15:MACRO$."":|
00000860: 8E 00 7E 10 26 02 8F 20  2A 2A 2A 20 56 41 4C 49  |..~.&.. *** VALI|
00000870: 44 41 54 45 20 46 49 4C  45 53 20 2A 2A 2A 00 8B  |DATE FILES ***..|
00000880: 10 2B 02 99 22 93 22 3A  99 3A 99 00 B9 10 30 02  |.+..".":.:....0.|
00000890: 99 22 57 41 52 4E 49 4E  47 3A 4F 50 45 4E 20 46  |."WARNING:OPEN F|
000008A0: 49 4C 45 53 20 22 3A 99  22 57 49 4C 4C 20 42 45  |ILES ":."WILL BE|
000008B0: 20 44 45 4C 45 54 45 44  22 00 DC 10 3A 02 99 3A  | DELETED"...:..:|
000008C0: 99 3A 99 22 48 49 54 20  41 4E 59 20 4B 45 59 20  |.:."HIT ANY KEY |
000008D0: 54 4F 20 56 41 4C 49 44  41 54 45 22 00 F3 10 3F  |TO VALIDATE"...?|
000008E0: 02 A1 20 58 24 3A 8B 20  58 24 B2 22 22 20 A7 20  |.. X$:. X$."" . |
000008F0: 35 37 35 00 04 11 44 02  9F 20 31 2C 38 2C 31 35  |575...D.. 1,8,15|
00000900: 2C 22 56 22 00 0E 11 4E  02 A0 20 31 3A 8E 00 34  |,"V"...N.. 1:..4|
00000910: 11 58 02 8F 20 2A 2A 20  57 52 49 54 45 20 44 49  |.X.. ** WRITE DI|
00000920: 53 4B 4D 41 4E 41 47 45  52 20 50 52 4F 47 52 41  |SKMANAGER PROGRA|
00000930: 4D 20 2A 2A 00 41 11 5D  02 99 22 93 22 3A 99 3A  |M **.A.]..".":.:|
00000940: 99 00 68 11 62 02 99 22  49 4E 53 45 52 54 20 44  |..h.b.."INSERT D|
00000950: 49 53 4B 20 54 4F 20 42  45 20 57 52 49 54 54 45  |ISK TO BE WRITTE|
00000960: 4E 20 54 4F 2E 22 3A 99  00 95 11 6C 02 99 3A 99  |N TO.":....l..:.|
00000970: 3A 99 22 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |:."HIT ANY KEY T|
00000980: 4F 20 57 52 49 54 45 20  44 49 53 4B 20 4D 41 4E  |O WRITE DISK MAN|
00000990: 41 47 45 52 22 00 AC 11  6E 02 A1 20 58 24 3A 8B  |AGER"...n.. X$:.|
000009A0: 20 58 24 B2 22 22 20 A7  20 36 32 32 00 B9 11 71  | X$."" . 622...q|
000009B0: 02 9F 20 31 2C 38 2C 31  35 00 D2 11 76 02 94 20  |.. 1,8,15...v.. |
000009C0: 22 40 30 3A 44 49 53 4B  4D 41 4E 41 47 45 52 22  |"@0:DISKMANAGER"|
000009D0: 2C 38 00 DA 11 7B 02 A0  20 31 00 E0 11 80 02 8E  |,8...{.. 1......|
000009E0: 00 03 12 8A 02 8F 20 2A  2A 2A 20 44 49 53 50 4C  |...... *** DISPL|
000009F0: 41 59 20 45 52 52 4F 52  20 53 54 41 54 55 53 20  |AY ERROR STATUS |
00000A00: 2A 2A 2A 00 10 12 8F 02  9F 31 35 2C 38 2C 31 35  |***......15,8,15|
00000A10: 00 24 12 94 02 84 31 35  2C 41 24 2C 42 24 2C 43  |.$....15,A$,B$,C|
00000A20: 24 2C 44 24 00 31 12 9E  02 99 22 93 22 3A 99 3A  |$,D$.1....".":.:|
00000A30: 99 00 61 12 A8 02 99 22  45 52 52 4F 52 20 53 54  |..a...."ERROR ST|
00000A40: 41 54 55 53 3A 20 20 22  42 24 3A 99 3A 99 22 45  |ATUS:  "B$:.:."E|
00000A50: 52 52 4F 52 20 4E 55 4D  42 45 52 3A 20 20 22 41  |RROR NUMBER:  "A|
00000A60: 24 00 82 12 B2 02 99 3A  99 3A 99 22 48 49 54 20  |$......:.:."HIT |
00000A70: 41 4E 59 20 4B 45 59 20  54 4F 20 52 45 54 55 52  |ANY KEY TO RETUR|
00000A80: 4E 22 00 98 12 B7 02 A1  20 58 24 3A 8B 20 58 24  |N"...... X$:. X$|
00000A90: B2 22 22 A7 20 36 39 35  00 A3 12 B9 02 A0 20 31  |."". 695...... 1|
00000AA0: 35 3A 8E 00 C1 12 BC 02  8F 20 2A 2A 2A 20 52 45  |5:....... *** RE|
00000AB0: 54 55 52 4E 20 54 4F 20  42 41 53 49 43 20 2A 2A  |TURN TO BASIC **|
00000AC0: 2A 00 CE 12 C1 02 99 22  93 22 3A 99 3A 99 00 01  |*......".":.:...|
00000AD0: 13 C6 02 99 20 22 4E 4F  54 45 3A 44 49 53 4B 4D  |.... "NOTE:DISKM|
00000AE0: 41 4E 41 47 45 52 20 50  52 4F 47 52 41 4D 20 49  |ANAGER PROGRAM I|
00000AF0: 53 20 53 54 49 4C 4C 20  52 45 53 49 44 45 4E 54  |S STILL RESIDENT|
00000B00: 22 00 07 13 D0 02 80 00  2B 13 20 03 8F 20 2A 2A  |".......+. .. **|
00000B10: 2A 20 43 4F 50 59 20 46  49 4C 45 20 4F 4E 20 4E  |* COPY FILE ON N|
00000B20: 45 57 20 44 49 53 4B 20  2A 2A 2A 00 35 13 21 03  |EW DISK ***.5.!.|
00000B30: 99 20 22 93 22 00 3E 13  22 03 A0 20 31 35 00 4F  |. ".".>.".. 15.O|
00000B40: 13 23 03 4D 41 58 B2 B5  28 53 AD 32 35 36 29 00  |.#.MAX..(S.256).|
00000B50: 94 13 24 03 99 20 22 20  20 4D 41 58 49 4D 55 4D  |..$.. "  MAXIMUM|
00000B60: 20 53 49 5A 45 20 4F 46  20 46 49 4C 45 20 57 48  | SIZE OF FILE WH|
00000B70: 49 43 48 20 43 41 4E 20  42 45 20 43 4F 50 49 45  |ICH CAN BE COPIE|
00000B80: 44 20 49 53 20 22 4D 41  58 22 20 42 4C 4F 43 4B  |D IS "MAX" BLOCK|
00000B90: 53 22 3A 99 00 AA 13 26  03 8B 20 4D 41 58 B1 B2  |S":....&.. MAX..|
00000BA0: 4D 32 20 A7 20 89 20 38  30 39 00 DB 13 27 03 99  |M2 . . 809...'..|
00000BB0: 20 22 20 20 46 4F 52 20  4D 41 58 49 4D 55 4D 20  | "  FOR MAXIMUM |
00000BC0: 43 4F 50 59 20 53 49 5A  45 20 4F 46 20 22 4D 32  |COPY SIZE OF "M2|
00000BD0: 22 20 42 4C 4F 43 4B 53  2C 22 3B 00 09 14 28 03  |" BLOCKS,";...(.|
00000BE0: 99 20 22 54 55 52 4E 20  43 4F 4D 50 55 54 45 52  |. "TURN COMPUTER|
00000BF0: 20 4F 46 46 2F 4F 4E 20  41 4E 44 20 52 45 4C 4F  | OFF/ON AND RELO|
00000C00: 41 44 20 50 52 4F 47 2E  22 00 45 14 29 03 99 3A  |AD PROG.".E.)..:|
00000C10: 99 22 20 20 52 45 41 44  2F 57 52 49 54 45 20 52  |."  READ/WRITE R|
00000C20: 41 54 45 20 49 53 20 41  50 50 52 4F 58 49 4D 41  |ATE IS APPROXIMA|
00000C30: 54 45 4C 59 20 36 20 42  4C 4F 43 4B 53 2F 4D 49  |TELY 6 BLOCKS/MI|
00000C40: 4E 55 54 45 22 00 6F 14  2A 03 99 3A 99 20 22 49  |NUTE".o.*..:. "I|
00000C50: 4E 50 55 54 20 4E 41 4D  45 20 4F 46 20 46 49 4C  |NPUT NAME OF FIL|
00000C60: 45 20 54 4F 20 42 45 20  43 4F 50 49 45 44 22 00  |E TO BE COPIED".|
00000C70: 7B 14 34 03 85 20 46 49  4C 45 24 00 99 14 3E 03  |{.4.. FILE$...>.|
00000C80: 99 3A 99 20 22 20 20 20  49 4E 50 55 54 20 46 49  |.:. "   INPUT FI|
00000C90: 4C 45 20 54 59 50 45 3A  22 00 B0 14 48 03 99 20  |LE TYPE:"...H.. |
00000CA0: 22 20 20 20 20 20 50 20  50 52 4F 47 52 41 4D 22  |"     P PROGRAM"|
00000CB0: 00 CA 14 52 03 99 20 22  20 20 20 20 20 53 20 53  |...R.. "     S S|
00000CC0: 45 51 55 45 4E 54 49 41  4C 22 00 DE 14 5C 03 99  |EQUENTIAL"...\..|
00000CD0: 20 22 20 20 20 20 20 55  20 55 53 45 52 22 00 F6  | "     U USER"..|
00000CE0: 14 66 03 99 20 22 20 20  20 20 20 52 20 52 45 4C  |.f.. "     R REL|
00000CF0: 41 54 49 56 45 22 00 02  15 70 03 85 20 54 59 50  |ATIVE"...p.. TYP|
00000D00: 45 24 00 32 15 7A 03 99  3A 99 20 22 49 4E 53 45  |E$.2.z..:. "INSE|
00000D10: 52 54 20 53 4F 55 52 43  45 20 44 49 53 4B 20 41  |RT SOURCE DISK A|
00000D20: 4E 44 20 50 52 45 53 53  20 3C 52 45 54 55 52 4E  |ND PRESS <RETURN|
00000D30: 3E 22 00 4B 15 84 03 A1  20 57 24 3A 8B 20 57 24  |>".K.... W$:. W$|
00000D40: B2 22 22 20 A7 20 89 20  39 30 30 00 6C 15 8E 03  |."" . . 900.l...|
00000D50: 8D 20 31 30 30 30 3A 8F  20 52 45 41 44 20 46 49  |. 1000:. READ FI|
00000D60: 4C 45 20 49 4E 54 4F 20  54 45 4D 50 00 9F 15 98  |LE INTO TEMP....|
00000D70: 03 99 3A 99 20 22 49 4E  53 45 52 54 20 44 45 53  |..:. "INSERT DES|
00000D80: 54 49 4E 41 54 49 4F 4E  20 44 49 53 4B 20 20 41  |TINATION DISK  A|
00000D90: 4E 44 20 50 52 45 53 53  20 3C 52 45 54 3E 22 00  |ND PRESS <RET>".|
00000DA0: B8 15 A2 03 A1 20 57 24  3A 8B 20 57 24 B2 22 22  |..... W$:. W$.""|
00000DB0: 20 A7 20 89 20 39 33 30  00 DB 15 AC 03 8D 20 31  | . . 930...... 1|
00000DC0: 30 35 30 3A 8F 20 57 52  49 54 45 20 46 49 4C 45  |050:. WRITE FILE|
00000DD0: 20 46 52 4F 4D 20 54 45  4D 50 24 00 FC 15 B6 03  | FROM TEMP$.....|
00000DE0: 99 3A 99 20 22 4D 41 4B  45 20 41 4E 4F 54 48 45  |.:. "MAKE ANOTHE|
00000DF0: 52 20 43 4F 50 59 22 3B  3A 85 57 24 00 16 16 C0  |R COPY";:.W$....|
00000E00: 03 8B 20 C8 28 57 24 2C  31 29 B2 22 59 22 20 A7  |.. .(W$,1)."Y" .|
00000E10: 20 89 20 39 32 30 00 21  16 CA 03 89 20 31 31 30  | . 920.!.... 110|
00000E20: 30 00 3D 16 D4 03 8F 20  2D 20 43 48 45 43 4B 20  |0.=.... - CHECK |
00000E30: 46 4F 52 20 47 4F 4F 44  20 4F 50 45 4E 00 51 16  |FOR GOOD OPEN.Q.|
00000E40: D9 03 84 31 35 2C 41 24  2C 42 24 2C 43 24 2C 44  |...15,A$,B$,C$,D|
00000E50: 24 00 63 16 DE 03 8B 20  C5 28 41 24 29 B2 30 20  |$.c.... .(A$).0 |
00000E60: A7 20 8E 00 7C 16 E3 03  99 20 41 24 2C 42 24 2C  |. ..|.... A$,B$,|
00000E70: 43 24 2C 44 24 3A A0 20  31 35 3A 90 00 99 16 E8  |C$,D$:. 15:.....|
00000E80: 03 8F 20 2D 20 52 45 41  44 20 46 49 4C 45 20 49  |.. - READ FILE I|
00000E90: 4E 54 4F 20 54 45 4D 50  25 00 A1 16 EA 03 49 B2  |NTO TEMP%.....I.|
00000EA0: 31 00 AF 16 EC 03 9F 20  31 35 2C 38 2C 31 35 00  |1...... 15,8,15.|
00000EB0: D5 16 EE 03 9F 20 35 2C  38 2C 35 2C 22 30 3A 22  |..... 5,8,5,"0:"|
00000EC0: AA 46 49 4C 45 24 AA 22  2C 22 AA 54 59 50 45 24  |.FILE$.",".TYPE$|
00000ED0: AA 22 2C 52 22 00 DF 16  F0 03 8D 20 39 38 30 00  |.",R"...... 980.|
00000EE0: FE 16 F1 03 99 20 22 20  20 20 20 20 4E 4F 57 20  |..... "     NOW |
00000EF0: 52 45 41 44 49 4E 47 20  2E 20 2E 20 2E 22 00 09  |READING . . ."..|
00000F00: 17 F2 03 A1 23 35 2C 41  24 00 21 17 F4 03 54 45  |....#5,A$.!...TE|
00000F10: 4D 50 25 28 49 29 B2 C6  28 41 24 AA C7 28 30 29  |MP%(I)..(A$..(0)|
00000F20: 29 00 2B 17 F6 03 49 B2  49 AA 31 00 3D 17 F8 03  |).+...I.I.1.=...|
00000F30: 8B 20 53 54 B2 30 20 A7  20 31 30 31 30 00 72 17  |. ST.0 . 1010.r.|
00000F40: FA 03 99 3A 99 20 22 46  49 4C 45 3D 3F 20 22 3B  |...:. "FILE=? ";|
00000F50: 46 49 4C 45 24 2C 22 53  54 3D 22 3B 53 54 2C 22  |FILE$,"ST=";ST,"|
00000F60: 42 59 54 45 53 3D 22 3B  49 3A A0 20 35 3A A0 20  |BYTES=";I:. 5:. |
00000F70: 31 35 00 78 17 FC 03 8E  00 96 17 1A 04 8F 20 2D  |15.x.......... -|
00000F80: 20 57 52 49 54 45 20 46  49 4C 45 20 46 52 4F 4D  | WRITE FILE FROM|
00000F90: 20 54 45 4D 50 25 00 A4  17 1C 04 9F 20 31 35 2C  | TEMP%...... 15,|
00000FA0: 38 2C 31 35 00 CA 17 1E  04 9F 20 35 2C 38 2C 35  |8,15...... 5,8,5|
00000FB0: 2C 22 30 3A 22 AA 46 49  4C 45 24 AA 22 2C 22 AA  |,"0:".FILE$.",".|
00000FC0: 54 59 50 45 24 AA 22 2C  57 22 00 D4 17 20 04 8D  |TYPE$.",W"... ..|
00000FD0: 20 39 38 30 00 F3 17 21  04 99 20 22 20 20 20 20  | 980...!.. "    |
00000FE0: 20 4E 4F 57 20 57 52 49  54 49 4E 47 20 2E 20 2E  | NOW WRITING . .|
00000FF0: 20 2E 22 00 FB 17 22 04  4A B2 31 00 0F 18 24 04  | ."...".J.1...$.|
00001000: 98 35 2C C7 28 54 45 4D  50 25 28 4A 29 29 3B 00  |.5,.(TEMP%(J));.|
00001010: 19 18 26 04 4A B2 4A AA  31 00 2A 18 28 04 8B 20  |..&.J.J.1.*.(.. |
00001020: 4A B3 49 20 A7 20 31 30  36 30 00 55 18 2A 04 99  |J.I . 1060.U.*..|
00001030: 3A 99 20 22 46 49 4C 45  3D 20 22 3B 46 49 4C 45  |:. "FILE= ";FILE|
00001040: 24 2C 22 42 59 54 45 53  3D 22 3B 4A 3A A0 20 35  |$,"BYTES=";J:. 5|
00001050: 3A A0 20 31 35 00 5B 18  2C 04 8E 00 61 18 4C 04  |:. 15.[.,...a.L.|
00001060: 8E 00 85 18 B0 04 8F 20  2A 2A 2A 43 4F 50 59 20  |....... ***COPY |
00001070: 42 4F 54 48 20 44 4F 53  20 50 52 4F 47 52 41 4D  |BOTH DOS PROGRAM|
00001080: 53 20 2A 2A 2A 00 BD 18  B5 04 99 20 22 93 22 3A  |S ***...... ".":|
00001090: 99 20 22 49 4E 53 45 52  54 20 53 4F 55 52 43 45  |. "INSERT SOURCE|
000010A0: 20 44 49 53 4B 20 57 49  54 48 20 57 45 44 47 45  | DISK WITH WEDGE|
000010B0: 20 41 4E 44 2F 4F 52 20  44 4F 53 22 3B 00 E4 18  | AND/OR DOS";...|
000010C0: BA 04 99 20 22 20 50 52  4F 47 52 41 4D 28 53 29  |... " PROGRAM(S)|
000010D0: 20 41 4E 44 20 50 52 45  53 53 20 3C 52 45 54 55  | AND PRESS <RETU|
000010E0: 52 4E 3E 22 00 FE 18 BF  04 A1 20 57 24 3A 8B 20  |RN>"...... W$:. |
000010F0: 57 24 B2 22 22 20 A7 20  89 20 31 32 31 35 00 0C  |W$."" . . 1215..|
00001100: 19 C2 04 54 59 50 45 24  B2 22 50 22 00 35 19 C3  |...TYPE$."P".5..|
00001110: 04 8B 20 43 30 B2 31 20  A7 20 46 49 4C 45 24 B2  |.. C0.1 . FILE$.|
00001120: 22 56 49 43 2D 32 30 20  57 45 44 47 45 22 3A 89  |"VIC-20 WEDGE":.|
00001130: 20 31 32 33 35 00 53 19  C4 04 46 49 4C 45 24 B2  | 1235.S...FILE$.|
00001140: 22 43 2D 36 34 20 57 45  44 47 45 22 3A 8D 20 31  |"C-64 WEDGE":. 1|
00001150: 30 30 30 00 9A 19 C9 04  81 20 43 B2 31 20 A4 20  |000...... C.1 . |
00001160: 36 34 3A 44 4F 53 25 28  43 29 B2 54 45 4D 50 25  |64:DOS%(C).TEMP%|
00001170: 28 43 29 3A 82 20 20 43  3A 8F 20 4D 4F 56 45 20  |(C):.  C:. MOVE |
00001180: 43 2D 36 34 20 57 45 44  47 45 20 54 4F 20 53 4D  |C-64 WEDGE TO SM|
00001190: 41 4C 4C 20 42 55 46 46  45 52 00 AE 19 CE 04 46  |ALL BUFFER.....F|
000011A0: 49 4C 45 24 B2 22 44 4F  53 20 35 2E 31 22 00 E7  |ILE$."DOS 5.1"..|
000011B0: 19 D3 04 8D 20 31 30 30  30 3A 99 3A 99 20 22 49  |.... 1000:.:. "I|
000011C0: 4E 53 45 52 54 20 44 45  53 54 49 4E 41 54 49 4F  |NSERT DESTINATIO|
000011D0: 4E 20 44 49 53 4B 20 41  4E 44 20 50 52 45 53 53  |N DISK AND PRESS|
000011E0: 20 3C 52 45 54 3E 22 00  01 1A D8 04 A1 20 57 24  | <RET>"...... W$|
000011F0: 3A 8B 20 57 24 B2 22 22  20 A7 20 89 20 31 32 34  |:. W$."" . . 124|
00001200: 30 00 17 1A DD 04 8D 20  31 30 35 30 3A 8B 20 43  |0...... 1050:. C|
00001210: 30 B2 31 20 A7 20 8E 00  3C 1A E2 04 81 20 43 B2  |0.1 . ..<.... C.|
00001220: 31 20 A4 20 36 34 3A 54  45 4D 50 25 28 43 29 B2  |1 . 64:TEMP%(C).|
00001230: 44 4F 53 25 28 43 29 3A  82 20 20 43 00 72 1A E7  |DOS%(C):.  C.r..|
00001240: 04 46 49 4C 45 24 B2 22  43 2D 36 34 20 57 45 44  |.FILE$."C-64 WED|
00001250: 47 45 22 3A 49 B2 36 34  3A 8D 20 31 30 35 30 3A  |GE":I.64:. 1050:|
00001260: 8F 20 57 52 49 54 45 20  43 2D 36 34 20 57 45 44  |. WRITE C-64 WED|
00001270: 47 45 00 78 1A 0A 05 8E  00 00 00                 |GE.x.......     |

......../.... 49152,10:. B(49152)..10 . 
C0.1:.6.8...C0.2.G.... DOS%(65).H...FR..
(0):. FR.0 . FR.FR.65536.....S.(FR.400).
2:M2..(S.256).1...... TEMP%(S). ....".";
......"  ******************".X...."  *  
DISK MANAGER  *"......"  ***************
***"...2..:."1.DISK DIRECTORY".'.<.."2.F
ORMAT NEW DISK".@.F.."3.INITIALIZE DISK"
.`.P.."4.COPY FILE ON SAME DISK"...U.."5
.COPY FILE ON NEW (FORMATTED) DISK"...X.
."6.COPY BOTH DOS WEDGE PROGRAMS".F.Z.."
7.RENAME FILE"...D.."8.ERASE FILE(S)"...
N.."9.VALIDATE FILES"...X.."10.WRITE DIS
K MANAGER".)...."11.ERROR STATUS".D...."
12.EXIT TO BASIC":.:.A...."CHOICE    ...
.";CHOICE...... (CHOICE.1).(CHOICE.12). 
.".";:.170.J.H.. CHOICE . 250,300,350,40
0,800,1200,450,500,550,600,650,700.S.R..
 10...... *** DISPLAY DIRECTORY ***.....
."."...... 1,8,0,"$"...... #1,A$,B$.)...
.#1,A$,B$.8.... #1,A$,B$.S...C.0:. A$.."
". C. F(A$).P.... B$.."". C.C. F(B$).256
...... J(D(C),2);.3);......#1,B$:. ST..0
 . 282...... B$.. G(34) . 264...... #1,B
$:. B$.. G(34) . . B$;:. 268...... #1,B$
:. B$. G(32) . 270...... .18)::C$."".0..
.C$.C$.B$:. #1,B$:. B$.."" . 274.>.... H
(C$,3).O.... ST.0 . 254.D...." BLOCKS FR
EE ".....  1:.:.:."HIT ANY KEY TO RETURN
"...".. X$:.X$."". 290...'...D.,.. *** F
ORMAT (NEW) DISK ***.M.-.."."...1.."INSE
RT DISK TO BE":."FORMATTED.":....6.."INP
UT DISK NAME":. DISK$.9.@..:."INPUT EXTE
NDER NAME":. EXT$.Y.E.MACRO$."N0:".DISK$
.",".EXT$.N.J.. 15,8,15,MACRO$...T.  15:
MACRO$."":....^.. *** INITIALIZE DISK **
*...C..".".U.H.."INSERT DISK TO BE":."IN
ITIALIZED.":....R.."HIT <RETURN> TO":."I
NITIALIZE":. X$...|.. 15,8,15,"I".....  
15:..A.... *** COPY FILE ON SAME DISK **
*.N....".":.:..T...."INPUT SOURCE FILE N
AME":. DISK$......:."INPUT NEW FILE NAME
":. NWS$.....MACRO$."C:".NWS$."=".DISK$.
L.... 15,8,15,MACRO$.....  15:MACRO$."":
....B.. *** RENAME FILE ***...G..".":..)
.L.."INPUT OLD FILE NAME":. DISK$.M.V..:
."INPUT NEW FILE NAME":. NWS$.L...MACRO$
."R:".NWS$."=".DISK$...... 15,8,15,MACRO
$.....  15:MACRO$."":....... *** ERASE F
ILE ***......".":.:......."INPUT FILE NA
ME(S) TO DELETE":. DISK$......:.:."HIT A
NY KEY TO DELETE". .... X$:. X$."" . 525
.7...MACRO$."S0:".DISK$.L.... 15,8,15,MA
CRO$.A...  15:MACRO$."":..~.&.. *** VALI
DATE FILES ***...+..".":.:....0.."WARNIN
G:OPEN FILES ":."WILL BE DELETED"...:..:
.:."HIT ANY KEY TO VALIDATE"...?.. X$:. 
X$."" . 575...D.. 1,8,15,"V"...N.  1:..4
.X.. ** WRITE DISKMANAGER PROGRAM **.A.]
..".":.:..H.B.."INSERT DISK TO BE WRITTE
N TO.":....L..:.:."HIT ANY KEY TO WRITE 
DISK MANAGER"...N.. X$:. X$."" . 622...Q
.. 1,8,15.R.V.. "@0:DISKMANAGER",8.Z.{. 
 1............ *** DISPLAY ERROR STATUS 
***......15,8,15.$....15,A$,B$,C$,D$.1..
..".":.:..A...."ERROR STATUS:  "B$:.:."E
RROR NUMBER:  "A$......:.:."HIT ANY KEY 
TO RETURN"...... X$:. X$."". 695.....  1
5:..A.... *** RETURN TO BASIC ***.N.A.."
.":.:....F.. "NOTE:DISKMANAGER PROGRAM I
S STILL RESIDENT"...P...+. .. *** COPY F
ILE ON NEW DISK ***.5.!.. ".".>.".  15.O
.#.MAX..(S.256)...$.. "  MAXIMUM SIZE OF
 FILE WHICH CAN BE COPIED IS "MAX" BLOCK
S":....&.. MAX..M2 . . 809...'.. "  FOR 
MAXIMUM COPY SIZE OF "M2" BLOCKS,";...(.
. "TURN COMPUTER OFF/ON AND RELOAD PROG.
".E.)..:."  READ/WRITE RATE IS APPROXIMA
TELY 6 BLOCKS/MINUTE".O.*..:. "INPUT NAM
E OF FILE TO BE COPIED".{.4.. FILE$...>.
.:. "   INPUT FILE TYPE:"...H.. "     P 
PROGRAM".J.R.. "     S SEQUENTIAL"...\..
 "     U USER"...F.. "     R RELATIVE"..
.P.. TYPE$.2.Z..:. "INSERT SOURCE DISK A
ND PRESS <RETURN>".K.... W$:. W$."" . . 
900.L.... 1000:. READ FILE INTO TEMP....
..:. "INSERT DESTINATION DISK  AND PRESS
 <RET>"...... W$:. W$."" . . 930...... 1
050:. WRITE FILE FROM TEMP$......:. "MAK
E ANOTHER COPY";:.W$...... H(W$,1)."Y" .
 . 920.!.J.. 1100.=.T.. - CHECK FOR GOOD
 OPEN.Q.Y..15,A$,B$,C$,D$.C.... E(A$).0 
. ..|.... A$,B$,C$,D$:  15:....... - REA
D FILE INTO TEMP%.....I.1...... 15,8,15.
U.... 5,8,5,"0:".FILE$.",".TYPE$.",R"...
... 980...... "     NOW READING . . ."..
....#5,A$.!...TEMP%(I).F(A$.G(0)).+...I.
I.1.=.... ST.0 . 1010.R....:. "FILE=? ";
FILE$,"ST=";ST,"BYTES=";I:  5:  15.X....
...... - WRITE FILE FROM TEMP%...... 15,
8,15.J.... 5,8,5,"0:".FILE$.",".TYPE$.",
W".T. .. 980...!.. "     NOW WRITING . .
 ."...".J.1...$..5,G(TEMP%(J));...&.J.J.
1.*.(.. J.I . 1060.U.*..:. "FILE= ";FILE
$,"BYTES=";J:  5:  15.[.,...A.L........ 
***COPY BOTH DOS PROGRAMS ***...... ".":
. "INSERT SOURCE DISK WITH WEDGE AND/OR 
DOS";...... " PROGRAM(S) AND PRESS <RETU
RN>"...... W$:. W$."" . . 1215...B.TYPE$
."P".5.C.. C0.1 . FILE$."VIC-20 WEDGE":.
 1235.S.D.FILE$."C-64 WEDGE":. 1000...I.
. C.1 . 64:DOS%(C).TEMP%(C):.  C:. MOVE 
C-64 WEDGE TO SMALL BUFFER...N.FILE$."DO
S 5.1"...S.. 1000:.:. "INSERT DESTINATIO
N DISK AND PRESS <RET>"...X.. W$:. W$.""
 . . 1240...... 1050:. C0.1 . ..<.... C.
1 . 64:TEMP%(C).DOS%(C):.  C.R...FILE$."
C-64 WEDGE":I.64:. 1050:. WRITE C-64 WED
GE.X.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL