DISKMANAGER

00000000: 01 08 25 08 03 00 97 34  39 31 35 32 2C 31 30 3A  |..%....49152,10:|
00000010: 8B C2 28 34 39 31 35 32  29 B3 B1 31 30 A7 43 30  |..(49152)..10.C0|
00000020: B2 31 3A 89 36 00 2E 08  05 00 43 30 B2 32 00 3D  |.1:.6.....C0.2.=|
00000030: 08 06 00 86 20 44 4F 53  25 28 36 35 29 00 5B 08  |.... DOS%(65).[.|
00000040: 07 00 46 52 B2 B8 28 30  29 3A 8B 46 52 B3 30 A7  |..FR..(0):.FR.0.|
00000050: 46 52 B2 46 52 AA 36 35  35 33 36 00 7A 08 08 00  |FR.FR.65536.z...|
00000060: 53 B2 28 46 52 AB 34 30  30 29 AD 32 3A 4D 32 B2  |S.(FR.400).2:M2.|
00000070: B5 28 53 AD 32 35 36 29  AA 31 00 89 08 09 00 86  |.(S.256).1......|
00000080: 20 54 45 4D 50 25 28 53  29 00 93 08 0A 00 99 22  | TEMP%(S)......"|
00000090: 93 22 3B 00 AF 08 0F 00  99 22 20 20 2A 2A 2A 2A  |.";......"  ****|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 22 00  |**************".|
000000B0: CB 08 14 00 99 22 20 20  2A 20 20 44 49 53 4B 20  |....."  *  DISK |
000000C0: 4D 41 4E 41 47 45 52 20  20 2A 22 00 E7 08 19 00  |MANAGER  *".....|
000000D0: 99 22 20 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |."  ************|
000000E0: 2A 2A 2A 2A 2A 2A 22 00  01 09 32 00 99 3A 99 22  |******"...2..:."|
000000F0: 31 2E 44 49 53 4B 20 44  49 52 45 43 54 4F 52 59  |1.DISK DIRECTORY|
00000100: 22 00 1A 09 3C 00 99 22  32 2E 46 4F 52 4D 41 54  |"...<.."2.FORMAT|
00000110: 20 4E 45 57 20 44 49 53  4B 22 00 33 09 46 00 99  | NEW DISK".3.F..|
00000120: 22 33 2E 49 4E 49 54 49  41 4C 49 5A 45 20 44 49  |"3.INITIALIZE DI|
00000130: 53 4B 22 00 53 09 50 00  99 22 34 2E 43 4F 50 59  |SK".S.P.."4.COPY|
00000140: 20 46 49 4C 45 20 4F 4E  20 53 41 4D 45 20 44 49  | FILE ON SAME DI|
00000150: 53 4B 22 00 7E 09 55 00  99 22 35 2E 43 4F 50 59  |SK".~.U.."5.COPY|
00000160: 20 46 49 4C 45 20 4F 4E  20 4E 45 57 20 28 46 4F  | FILE ON NEW (FO|
00000170: 52 4D 41 54 54 45 44 29  20 44 49 53 4B 22 00 A4  |RMATTED) DISK"..|
00000180: 09 58 00 99 22 36 2E 43  4F 50 59 20 42 4F 54 48  |.X.."6.COPY BOTH|
00000190: 20 44 4F 53 20 57 45 44  47 45 20 50 52 4F 47 52  | DOS WEDGE PROGR|
000001A0: 41 4D 53 22 00 B9 09 5A  00 99 22 37 2E 52 45 4E  |AMS"...Z.."7.REN|
000001B0: 41 4D 45 20 46 49 4C 45  22 00 D0 09 64 00 99 22  |AME FILE"...d.."|
000001C0: 38 2E 45 52 41 53 45 20  46 49 4C 45 28 53 29 22  |8.ERASE FILE(S)"|
000001D0: 00 E8 09 6E 00 99 22 39  2E 56 41 4C 49 44 41 54  |...n.."9.VALIDAT|
000001E0: 45 20 46 49 4C 45 53 22  00 05 0A 78 00 99 22 31  |E FILES"...x.."1|
000001F0: 30 2E 57 52 49 54 45 20  44 49 53 4B 20 4D 41 4E  |0.WRITE DISK MAN|
00000200: 41 47 45 52 22 00 1C 0A  82 00 99 22 31 31 2E 45  |AGER"......"11.E|
00000210: 52 52 4F 52 20 53 54 41  54 55 53 22 00 36 0A 8C  |RROR STATUS".6..|
00000220: 00 99 22 31 32 2E 45 58  49 54 20 54 4F 20 42 41  |.."12.EXIT TO BA|
00000230: 53 49 43 22 3A 99 00 53  0A AA 00 85 22 43 48 4F  |SIC":..S...."CHO|
00000240: 49 43 45 20 20 20 20 9D  9D 9D 9D 22 3B 43 48 4F  |ICE    ....";CHO|
00000250: 49 43 45 00 7C 0A B4 00  8B 20 28 43 48 4F 49 43  |ICE.|.... (CHOIC|
00000260: 45 B3 31 29 B0 28 43 48  4F 49 43 45 B1 31 32 29  |E.1).(CHOICE.12)|
00000270: A7 20 99 22 91 22 3B 3A  89 31 37 30 00 BC 0A C8  |. .".";:.170....|
00000280: 00 91 20 43 48 4F 49 43  45 20 8D 20 32 35 30 2C  |.. CHOICE . 250,|
00000290: 33 30 30 2C 33 35 30 2C  34 30 30 2C 38 30 30 2C  |300,350,400,800,|
000002A0: 31 32 30 30 2C 34 35 30  2C 35 30 30 2C 35 35 30  |1200,450,500,550|
000002B0: 2C 36 30 30 2C 36 35 30  2C 37 30 30 00 C4 0A D2  |,600,650,700....|
000002C0: 00 89 31 30 00 E4 0A FA  00 8F 20 2A 2A 2A 20 44  |..10...... *** D|
000002D0: 49 53 50 4C 41 59 20 44  49 52 45 43 54 4F 52 59  |ISPLAY DIRECTORY|
000002E0: 20 2A 2A 2A 00 ED 0A FB  00 99 22 93 22 00 FD 0A  | ***......"."...|
000002F0: FC 00 9F 20 31 2C 38 2C  30 2C 22 24 22 00 0C 0B  |... 1,8,0,"$"...|
00000300: FD 00 A1 20 23 31 2C 41  24 2C 42 24 00 1B 0B FE  |... #1,A$,B$....|
00000310: 00 A1 20 23 31 2C 41 24  2C 42 24 00 2A 0B 00 01  |.. #1,A$,B$.*...|
00000320: A1 20 23 31 2C 41 24 2C  42 24 00 43 0B 02 01 43  |. #1,A$,B$.C...C|
00000330: B2 30 3A 8B 20 41 24 B3  B1 22 22 A7 43 B2 C6 28  |.0:. A$.."".C..(|
00000340: 41 24 29 00 5D 0B 04 01  8B 42 24 B3 B1 22 22 A7  |A$).]....B$.."".|
00000350: 43 B2 43 AA C6 28 42 24  29 AC 32 35 36 00 72 0B  |C.C..(B$).256.r.|
00000360: 06 01 99 20 CA 28 C4 28  43 29 2C 32 29 3B A3 33  |... .(.(C),2);.3|
00000370: 29 3B 00 88 0B 08 01 A1  23 31 2C 42 24 3A 8B 53  |);......#1,B$:.S|
00000380: 54 B3 B1 30 A7 32 38 32  00 9B 0B 0A 01 8B 42 24  |T..0.282......B$|
00000390: B3 B1 C7 28 33 34 29 A7  32 36 34 00 BB 0B 0C 01  |...(34).264.....|
000003A0: A1 23 31 2C 42 24 3A 8B  42 24 B3 B1 C7 28 33 34  |.#1,B$:.B$...(34|
000003B0: 29 A7 99 42 24 3B 3A 89  32 36 38 00 D4 0B 0E 01  |)..B$;:.268.....|
000003C0: A1 23 31 2C 42 24 3A 8B  42 24 B2 C7 28 33 32 29  |.#1,B$:.B$..(32)|
000003D0: A7 32 37 30 00 E5 0B 10  01 99 A3 31 38 29 3B 3A  |.270.......18);:|
000003E0: 43 24 B2 22 22 00 05 0C  12 01 43 24 B2 43 24 AA  |C$."".....C$.C$.|
000003F0: 42 24 3A A1 23 31 2C 42  24 3A 8B 42 24 B3 B1 22  |B$:.#1,B$:.B$.."|
00000400: 22 A7 32 37 34 00 12 0C  14 01 99 C8 28 43 24 2C  |".274.......(C$,|
00000410: 33 29 00 20 0C 18 01 8B  53 54 B2 30 A7 32 35 34  |3). ....ST.0.254|
00000420: 00 35 0C 1A 01 99 22 20  42 4C 4F 43 4B 53 20 46  |.5...." BLOCKS F|
00000430: 52 45 45 20 22 00 5A 0C  1C 01 A0 20 31 3A 99 3A  |REE ".Z.... 1:.:|
00000440: 99 3A 99 22 48 49 54 20  41 4E 59 20 4B 45 59 20  |.:."HIT ANY KEY |
00000450: 54 4F 20 52 45 54 55 52  4E 22 00 6D 0C 22 01 A1  |TO RETURN".m."..|
00000460: 58 24 3A 8B 58 24 B2 22  22 A7 32 39 30 00 73 0C  |X$:.X$."".290.s.|
00000470: 27 01 8E 00 93 0C 2C 01  8F 20 2A 2A 2A 20 46 4F  |'.....,.. *** FO|
00000480: 52 4D 41 54 20 28 4E 45  57 29 20 44 49 53 4B 20  |RMAT (NEW) DISK |
00000490: 2A 2A 2A 00 9C 0C 2D 01  99 22 93 22 00 C5 0C 31  |***...-.."."...1|
000004A0: 01 99 22 49 4E 53 45 52  54 20 44 49 53 4B 20 54  |.."INSERT DISK T|
000004B0: 4F 20 42 45 22 3A 99 22  46 4F 52 4D 41 54 54 45  |O BE":."FORMATTE|
000004C0: 44 2E 22 3A 99 00 E4 0C  36 01 99 22 49 4E 50 55  |D.":....6.."INPU|
000004D0: 54 20 44 49 53 4B 20 4E  41 4D 45 22 3A 85 20 44  |T DISK NAME":. D|
000004E0: 49 53 4B 24 00 08 0D 40  01 99 3A 99 22 49 4E 50  |ISK$...@..:."INP|
000004F0: 55 54 20 45 58 54 45 4E  44 45 52 20 4E 41 4D 45  |UT EXTENDER NAME|
00000500: 22 3A 85 20 45 58 54 24  00 28 0D 45 01 4D 41 43  |":. EXT$.(.E.MAC|
00000510: 52 4F 24 B2 22 4E 30 3A  22 AA 44 49 53 4B 24 AA  |RO$."N0:".DISK$.|
00000520: 22 2C 22 AA 45 58 54 24  00 3C 0D 4A 01 9F 31 35  |",".EXT$.<.J..15|
00000530: 2C 38 2C 31 35 2C 4D 41  43 52 4F 24 00 50 0D 54  |,8,15,MACRO$.P.T|
00000540: 01 A0 31 35 3A 4D 41 43  52 4F 24 B2 22 22 3A 8E  |..15:MACRO$."":.|
00000550: 00 6E 0D 5E 01 8F 20 2A  2A 2A 20 49 4E 49 54 49  |.n.^.. *** INITI|
00000560: 41 4C 49 5A 45 20 44 49  53 4B 20 2A 2A 2A 00 77  |ALIZE DISK ***.w|
00000570: 0D 63 01 99 22 93 22 00  A2 0D 68 01 99 22 49 4E  |.c.."."...h.."IN|
00000580: 53 45 52 54 20 44 49 53  4B 20 54 4F 20 42 45 22  |SERT DISK TO BE"|
00000590: 3A 99 22 49 4E 49 54 49  41 4C 49 5A 45 44 2E 22  |:."INITIALIZED."|
000005A0: 3A 99 00 CB 0D 72 01 99  22 48 49 54 20 3C 52 45  |:....r.."HIT <RE|
000005B0: 54 55 52 4E 3E 20 54 4F  22 3A 99 22 49 4E 49 54  |TURN> TO":."INIT|
000005C0: 49 41 4C 49 5A 45 22 3A  85 58 24 00 DC 0D 7C 01  |IALIZE":.X$...|.|
000005D0: 9F 31 35 2C 38 2C 31 35  2C 22 49 22 00 E6 0D 86  |.15,8,15,"I"....|
000005E0: 01 A0 31 35 3A 8E 00 0B  0E 90 01 8F 20 2A 2A 2A  |..15:....... ***|
000005F0: 20 43 4F 50 59 20 46 49  4C 45 20 4F 4E 20 53 41  | COPY FILE ON SA|
00000600: 4D 45 20 44 49 53 4B 20  2A 2A 2A 00 18 0E 95 01  |ME DISK ***.....|
00000610: 99 22 93 22 3A 99 3A 99  00 3E 0E 9A 01 99 22 49  |.".":.:..>...."I|
00000620: 4E 50 55 54 20 53 4F 55  52 43 45 20 46 49 4C 45  |NPUT SOURCE FILE|
00000630: 20 4E 41 4D 45 22 3A 85  20 44 49 53 4B 24 00 62  | NAME":. DISK$.b|
00000640: 0E A4 01 99 3A 99 22 49  4E 50 55 54 20 4E 45 57  |....:."INPUT NEW|
00000650: 20 46 49 4C 45 20 4E 41  4D 45 22 3A 85 20 4E 57  | FILE NAME":. NW|
00000660: 53 24 00 81 0E A9 01 4D  41 43 52 4F 24 B2 22 43  |S$.....MACRO$."C|
00000670: 3A 22 AA 4E 57 53 24 AA  22 3D 22 AA 44 49 53 4B  |:".NWS$."=".DISK|
00000680: 24 00 95 0E AE 01 9F 31  35 2C 38 2C 31 35 2C 4D  |$......15,8,15,M|
00000690: 41 43 52 4F 24 00 A9 0E  B8 01 A0 31 35 3A 4D 41  |ACRO$......15:MA|
000006A0: 43 52 4F 24 B2 22 22 3A  8E 00 C3 0E C2 01 8F 20  |CRO$."":....... |
000006B0: 2A 2A 2A 20 52 45 4E 41  4D 45 20 46 49 4C 45 20  |*** RENAME FILE |
000006C0: 2A 2A 2A 00 CE 0E C7 01  99 22 93 22 3A 99 00 F1  |***......".":...|
000006D0: 0E CC 01 99 22 49 4E 50  55 54 20 4F 4C 44 20 46  |...."INPUT OLD F|
000006E0: 49 4C 45 20 4E 41 4D 45  22 3A 85 20 44 49 53 4B  |ILE NAME":. DISK|
000006F0: 24 00 15 0F D6 01 99 3A  99 22 49 4E 50 55 54 20  |$......:."INPUT |
00000700: 4E 45 57 20 46 49 4C 45  20 4E 41 4D 45 22 3A 85  |NEW FILE NAME":.|
00000710: 20 4E 57 53 24 00 34 0F  DB 01 4D 41 43 52 4F 24  | NWS$.4...MACRO$|
00000720: B2 22 52 3A 22 AA 4E 57  53 24 AA 22 3D 22 AA 44  |."R:".NWS$."=".D|
00000730: 49 53 4B 24 00 48 0F E0  01 9F 31 35 2C 38 2C 31  |ISK$.H....15,8,1|
00000740: 35 2C 4D 41 43 52 4F 24  00 5C 0F EA 01 A0 31 35  |5,MACRO$.\....15|
00000750: 3A 4D 41 43 52 4F 24 B2  22 22 3A 8E 00 75 0F F4  |:MACRO$."":..u..|
00000760: 01 8F 20 2A 2A 2A 20 45  52 41 53 45 20 46 49 4C  |.. *** ERASE FIL|
00000770: 45 20 2A 2A 2A 00 82 0F  F9 01 99 22 93 22 3A 99  |E ***......".":.|
00000780: 3A 99 00 AE 0F FE 01 99  22 49 4E 50 55 54 20 46  |:......."INPUT F|
00000790: 49 4C 45 20 4E 41 4D 45  28 53 29 20 54 4F 20 44  |ILE NAME(S) TO D|
000007A0: 45 4C 45 54 45 22 3A 85  20 44 49 53 4B 24 00 CF  |ELETE":. DISK$..|
000007B0: 0F 08 02 99 3A 99 3A 99  22 48 49 54 20 41 4E 59  |....:.:."HIT ANY|
000007C0: 20 4B 45 59 20 54 4F 20  44 45 4C 45 54 45 22 00  | KEY TO DELETE".|
000007D0: E2 0F 0D 02 A1 58 24 3A  8B 58 24 B2 22 22 A7 35  |.....X$:.X$."".5|
000007E0: 32 35 00 F9 0F 12 02 4D  41 43 52 4F 24 B2 22 53  |25.....MACRO$."S|
000007F0: 30 3A 22 AA 44 49 53 4B  24 00 0D 10 17 02 9F 31  |0:".DISK$......1|
00000800: 35 2C 38 2C 31 35 2C 4D  41 43 52 4F 24 00 21 10  |5,8,15,MACRO$.!.|
00000810: 1C 02 A0 31 35 3A 4D 41  43 52 4F 24 B2 22 22 3A  |...15:MACRO$."":|
00000820: 8E 00 3E 10 26 02 8F 20  2A 2A 2A 20 56 41 4C 49  |..>.&.. *** VALI|
00000830: 44 41 54 45 20 46 49 4C  45 53 20 2A 2A 2A 00 4B  |DATE FILES ***.K|
00000840: 10 2B 02 99 22 93 22 3A  99 3A 99 00 79 10 30 02  |.+..".":.:..y.0.|
00000850: 99 22 57 41 52 4E 49 4E  47 3A 4F 50 45 4E 20 46  |."WARNING:OPEN F|
00000860: 49 4C 45 53 20 22 3A 99  22 57 49 4C 4C 20 42 45  |ILES ":."WILL BE|
00000870: 20 44 45 4C 45 54 45 44  22 00 9C 10 3A 02 99 3A  | DELETED"...:..:|
00000880: 99 3A 99 22 48 49 54 20  41 4E 59 20 4B 45 59 20  |.:."HIT ANY KEY |
00000890: 54 4F 20 56 41 4C 49 44  41 54 45 22 00 AF 10 3F  |TO VALIDATE"...?|
000008A0: 02 A1 58 24 3A 8B 58 24  B2 22 22 A7 35 37 35 00  |..X$:.X$."".575.|
000008B0: BF 10 44 02 9F 31 2C 38  2C 31 35 2C 22 56 22 00  |..D..1,8,15,"V".|
000008C0: C8 10 4E 02 A0 31 3A 8E  00 EE 10 58 02 8F 20 2A  |..N..1:....X.. *|
000008D0: 2A 20 57 52 49 54 45 20  44 49 53 4B 4D 41 4E 41  |* WRITE DISKMANA|
000008E0: 47 45 52 20 50 52 4F 47  52 41 4D 20 2A 2A 00 FB  |GER PROGRAM **..|
000008F0: 10 5D 02 99 22 93 22 3A  99 3A 99 00 22 11 62 02  |.]..".":.:..".b.|
00000900: 99 22 49 4E 53 45 52 54  20 44 49 53 4B 20 54 4F  |."INSERT DISK TO|
00000910: 20 42 45 20 57 52 49 54  54 45 4E 20 54 4F 2E 22  | BE WRITTEN TO."|
00000920: 3A 99 00 4F 11 6C 02 99  3A 99 3A 99 22 48 49 54  |:..O.l..:.:."HIT|
00000930: 20 41 4E 59 20 4B 45 59  20 54 4F 20 57 52 49 54  | ANY KEY TO WRIT|
00000940: 45 20 44 49 53 4B 20 4D  41 4E 41 47 45 52 22 00  |E DISK MANAGER".|
00000950: 62 11 6E 02 A1 58 24 3A  8B 58 24 B2 22 22 A7 36  |b.n..X$:.X$."".6|
00000960: 32 32 00 6E 11 71 02 9F  31 2C 38 2C 31 35 00 86  |22.n.q..1,8,15..|
00000970: 11 76 02 94 22 40 30 3A  44 49 53 4B 4D 41 4E 41  |.v.."@0:DISKMANA|
00000980: 47 45 52 22 2C 38 00 8D  11 7B 02 A0 31 00 93 11  |GER",8...{..1...|
00000990: 80 02 8E 00 B6 11 8A 02  8F 20 2A 2A 2A 20 44 49  |......... *** DI|
000009A0: 53 50 4C 41 59 20 45 52  52 4F 52 20 53 54 41 54  |SPLAY ERROR STAT|
000009B0: 55 53 20 2A 2A 2A 00 C3  11 8F 02 9F 31 35 2C 38  |US ***......15,8|
000009C0: 2C 31 35 00 D7 11 94 02  84 31 35 2C 41 24 2C 42  |,15......15,A$,B|
000009D0: 24 2C 43 24 2C 44 24 00  E4 11 9E 02 99 22 93 22  |$,C$,D$......"."|
000009E0: 3A 99 3A 99 00 14 12 A8  02 99 22 45 52 52 4F 52  |:.:......."ERROR|
000009F0: 20 53 54 41 54 55 53 3A  20 20 22 42 24 3A 99 3A  | STATUS:  "B$:.:|
00000A00: 99 22 45 52 52 4F 52 20  4E 55 4D 42 45 52 3A 20  |."ERROR NUMBER: |
00000A10: 20 22 41 24 00 35 12 B2  02 99 3A 99 3A 99 22 48  | "A$.5....:.:."H|
00000A20: 49 54 20 41 4E 59 20 4B  45 59 20 54 4F 20 52 45  |IT ANY KEY TO RE|
00000A30: 54 55 52 4E 22 00 48 12  B7 02 A1 58 24 3A 8B 58  |TURN".H....X$:.X|
00000A40: 24 B2 22 22 A7 36 39 35  00 52 12 B9 02 A0 31 35  |$."".695.R....15|
00000A50: 3A 8E 00 70 12 BC 02 8F  20 2A 2A 2A 20 52 45 54  |:..p.... *** RET|
00000A60: 55 52 4E 20 54 4F 20 42  41 53 49 43 20 2A 2A 2A  |URN TO BASIC ***|
00000A70: 00 7D 12 C1 02 99 22 93  22 3A 99 3A 99 00 BD 12  |.}....".":.:....|
00000A80: C6 02 99 22 20 20 20 4E  4F 54 45 3A 44 49 53 4B  |..."   NOTE:DISK|
00000A90: 4D 41 4E 41 47 45 52 20  50 52 4F 47 52 41 4D 20  |MANAGER PROGRAM |
00000AA0: 49 53 20 53 54 49 4C 4C  20 20 20 20 20 20 20 20  |IS STILL        |
00000AB0: 20 20 20 20 52 45 53 49  44 45 4E 54 22 00 C3 12  |    RESIDENT"...|
00000AC0: D0 02 80 00 E7 12 20 03  8F 20 2A 2A 2A 20 43 4F  |...... .. *** CO|
00000AD0: 50 59 20 46 49 4C 45 20  4F 4E 20 4E 45 57 20 44  |PY FILE ON NEW D|
00000AE0: 49 53 4B 20 2A 2A 2A 00  F0 12 21 03 99 22 93 22  |ISK ***...!.."."|
00000AF0: 00 F8 12 22 03 A0 31 35  00 09 13 23 03 4D 41 58  |..."..15...#.MAX|
00000B00: B2 B5 28 53 AD 32 35 36  29 00 51 13 24 03 99 22  |..(S.256).Q.$.."|
00000B10: 20 20 4D 41 58 49 4D 55  4D 20 53 49 5A 45 20 4F  |  MAXIMUM SIZE O|
00000B20: 46 20 46 49 4C 45 20 57  48 49 43 48 20 43 41 4E  |F FILE WHICH CAN|
00000B30: 20 42 45 20 43 4F 2D 20  20 20 50 49 45 44 20 49  | BE CO-   PIED I|
00000B40: 53 20 22 4D 41 58 22 20  42 4C 4F 43 4B 53 22 3A  |S "MAX" BLOCKS":|
00000B50: 99 00 65 13 26 03 8B 20  4D 41 58 B1 B2 4D 32 A7  |..e.&.. MAX..M2.|
00000B60: 20 89 38 30 39 00 95 13  27 03 99 22 20 20 46 4F  | .809...'.."  FO|
00000B70: 52 20 4D 41 58 49 4D 55  4D 20 43 4F 50 59 20 53  |R MAXIMUM COPY S|
00000B80: 49 5A 45 20 4F 46 20 22  4D 32 22 20 42 4C 4F 43  |IZE OF "M2" BLOC|
00000B90: 4B 53 2C 22 3B 00 C6 13  28 03 99 22 20 20 20 20  |KS,";...(.."    |
00000BA0: 54 55 52 4E 20 43 4F 4D  50 55 54 45 52 20 4F 46  |TURN COMPUTER OF|
00000BB0: 46 2F 4F 4E 20 41 4E 44  20 52 45 4C 4F 41 44 20  |F/ON AND RELOAD |
00000BC0: 50 52 4F 47 2E 22 00 07  14 29 03 99 3A 99 22 20  |PROG."...)..:." |
00000BD0: 20 52 45 41 44 2F 57 52  49 54 45 20 52 41 54 45  | READ/WRITE RATE|
00000BE0: 20 49 53 20 41 50 50 52  4F 58 49 4D 41 54 45 4C  | IS APPROXIMATEL|
00000BF0: 59 20 36 20 20 20 20 20  20 42 4C 4F 43 4B 53 2F  |Y 6      BLOCKS/|
00000C00: 4D 49 4E 55 54 45 22 00  32 14 2A 03 99 3A 99 22  |MINUTE".2.*..:."|
00000C10: 20 20 49 4E 50 55 54 20  4E 41 4D 45 20 4F 46 20  |  INPUT NAME OF |
00000C20: 46 49 4C 45 20 54 4F 20  42 45 20 43 4F 50 49 45  |FILE TO BE COPIE|
00000C30: 44 22 00 3E 14 34 03 85  20 46 49 4C 45 24 00 5C  |D".>.4.. FILE$.\|
00000C40: 14 3E 03 99 3A 99 20 22  20 20 20 49 4E 50 55 54  |.>..:. "   INPUT|
00000C50: 20 46 49 4C 45 20 54 59  50 45 3A 22 00 73 14 48  | FILE TYPE:".s.H|
00000C60: 03 99 20 22 20 20 20 20  20 50 20 50 52 4F 47 52  |.. "     P PROGR|
00000C70: 41 4D 22 00 8D 14 52 03  99 20 22 20 20 20 20 20  |AM"...R.. "     |
00000C80: 53 20 53 45 51 55 45 4E  54 49 41 4C 22 00 A1 14  |S SEQUENTIAL"...|
00000C90: 5C 03 99 20 22 20 20 20  20 20 55 20 55 53 45 52  |\.. "     U USER|
00000CA0: 22 00 B9 14 66 03 99 20  22 20 20 20 20 20 52 20  |"...f.. "     R |
00000CB0: 52 45 4C 41 54 49 56 45  22 00 C5 14 70 03 85 20  |RELATIVE"...p.. |
00000CC0: 54 59 50 45 24 00 F5 14  7A 03 99 3A 99 20 22 49  |TYPE$...z..:. "I|
00000CD0: 4E 53 45 52 54 20 53 4F  55 52 43 45 20 44 49 53  |NSERT SOURCE DIS|
00000CE0: 4B 20 41 4E 44 20 50 52  45 53 53 20 3C 52 45 54  |K AND PRESS <RET|
00000CF0: 55 52 4E 3E 22 00 09 15  84 03 A1 57 24 3A 8B 57  |URN>"......W$:.W|
00000D00: 24 B2 22 22 A7 89 39 30  30 00 29 15 8E 03 8D 31  |$.""..900.)....1|
00000D10: 30 30 30 3A 8F 20 52 45  41 44 20 46 49 4C 45 20  |000:. READ FILE |
00000D20: 49 4E 54 4F 20 54 45 4D  50 00 5B 15 98 03 99 3A  |INTO TEMP.[....:|
00000D30: 99 20 22 49 4E 53 45 52  54 20 44 45 53 54 49 4E  |. "INSERT DESTIN|
00000D40: 41 54 49 4F 4E 20 44 49  53 4B 20 41 4E 44 20 50  |ATION DISK AND P|
00000D50: 52 45 53 53 20 3C 52 45  54 3E 22 00 6F 15 A2 03  |RESS <RET>".o...|
00000D60: A1 57 24 3A 8B 57 24 B2  22 22 A7 89 39 33 30 00  |.W$:.W$.""..930.|
00000D70: 91 15 AC 03 8D 31 30 35  30 3A 8F 20 57 52 49 54  |.....1050:. WRIT|
00000D80: 45 20 46 49 4C 45 20 46  52 4F 4D 20 54 45 4D 50  |E FILE FROM TEMP|
00000D90: 24 00 B2 15 B6 03 99 3A  99 20 22 4D 41 4B 45 20  |$......:. "MAKE |
00000DA0: 41 4E 4F 54 48 45 52 20  43 4F 50 59 22 3B 3A 85  |ANOTHER COPY";:.|
00000DB0: 57 24 00 C9 15 C0 03 8B  20 C8 28 57 24 2C 31 29  |W$...... .(W$,1)|
00000DC0: B2 22 59 22 A7 89 39 32  30 00 D3 15 CA 03 89 31  |."Y"..920......1|
00000DD0: 31 30 30 00 EF 15 D4 03  8F 20 2D 20 43 48 45 43  |100...... - CHEC|
00000DE0: 4B 20 46 4F 52 20 47 4F  4F 44 20 4F 50 45 4E 00  |K FOR GOOD OPEN.|
00000DF0: 03 16 D9 03 84 31 35 2C  41 24 2C 42 24 2C 43 24  |.....15,A$,B$,C$|
00000E00: 2C 44 24 00 13 16 DE 03  8B C5 28 41 24 29 B2 30  |,D$.......(A$).0|
00000E10: A7 20 8E 00 2A 16 E3 03  99 41 24 2C 42 24 2C 43  |. ..*....A$,B$,C|
00000E20: 24 2C 44 24 3A A0 31 35  3A 90 00 47 16 E8 03 8F  |$,D$:.15:..G....|
00000E30: 20 2D 20 52 45 41 44 20  46 49 4C 45 20 49 4E 54  | - READ FILE INT|
00000E40: 4F 20 54 45 4D 50 25 00  4F 16 EA 03 49 B2 31 00  |O TEMP%.O...I.1.|
00000E50: 5C 16 EC 03 9F 31 35 2C  38 2C 31 35 00 81 16 EE  |\....15,8,15....|
00000E60: 03 9F 35 2C 38 2C 35 2C  22 30 3A 22 AA 46 49 4C  |..5,8,5,"0:".FIL|
00000E70: 45 24 AA 22 2C 22 AA 54  59 50 45 24 AA 22 2C 52  |E$.",".TYPE$.",R|
00000E80: 22 00 8A 16 F0 03 8D 39  38 30 00 A9 16 F1 03 99  |"......980......|
00000E90: 20 22 20 20 20 20 20 4E  4F 57 20 52 45 41 44 49  | "     NOW READI|
00000EA0: 4E 47 20 2E 20 2E 20 2E  22 00 B4 16 F2 03 A1 23  |NG . . ."......#|
00000EB0: 35 2C 41 24 00 CC 16 F4  03 54 45 4D 50 25 28 49  |5,A$.....TEMP%(I|
00000EC0: 29 B2 C6 28 41 24 AA C7  28 30 29 29 00 D6 16 F6  |)..(A$..(0))....|
00000ED0: 03 49 B2 49 AA 31 00 E5  16 F8 03 8B 53 54 B2 30  |.I.I.1......ST.0|
00000EE0: A7 31 30 31 30 00 1C 17  FA 03 99 3A 99 20 22 46  |.1010......:. "F|
00000EF0: 49 4C 45 3D 3F 20 22 3B  46 49 4C 45 24 2C 22 53  |ILE=? ";FILE$,"S|
00000F00: 54 3D 22 3B 53 54 2C 20  20 22 42 59 54 45 53 3D  |T=";ST,  "BYTES=|
00000F10: 22 3B 49 3A A0 20 35 3A  A0 20 31 35 00 22 17 FC  |";I:. 5:. 15."..|
00000F20: 03 8E 00 3E 17 1A 04 8F  2D 57 52 49 54 45 20 46  |...>....-WRITE F|
00000F30: 49 4C 45 20 46 52 4F 4D  20 54 45 4D 50 25 00 4B  |ILE FROM TEMP%.K|
00000F40: 17 1C 04 9F 31 35 2C 38  2C 31 35 00 70 17 1E 04  |....15,8,15.p...|
00000F50: 9F 35 2C 38 2C 35 2C 22  30 3A 22 AA 46 49 4C 45  |.5,8,5,"0:".FILE|
00000F60: 24 AA 22 2C 22 AA 54 59  50 45 24 AA 22 2C 57 22  |$.",".TYPE$.",W"|
00000F70: 00 79 17 20 04 8D 39 38  30 00 98 17 21 04 99 22  |.y. ..980...!.."|
00000F80: 20 20 20 20 20 4E 4F 57  20 57 52 49 54 49 4E 47  |     NOW WRITING|
00000F90: 20 20 2E 20 2E 20 2E 22  00 A0 17 22 04 4A B2 31  |  . . ."...".J.1|
00000FA0: 00 B4 17 24 04 98 35 2C  C7 28 54 45 4D 50 25 28  |...$..5,.(TEMP%(|
00000FB0: 4A 29 29 3B 00 BE 17 26  04 4A B2 4A AA 31 00 CC  |J));...&.J.J.1..|
00000FC0: 17 28 04 8B 4A B3 49 A7  31 30 36 30 00 F4 17 2A  |.(..J.I.1060...*|
00000FD0: 04 99 3A 99 22 46 49 4C  45 3D 20 22 3B 46 49 4C  |..:."FILE= ";FIL|
00000FE0: 45 24 2C 22 42 59 54 45  53 3D 22 3B 4A 3A A0 35  |E$,"BYTES=";J:.5|
00000FF0: 3A A0 31 35 00 FA 17 2C  04 8E 00 00 18 4C 04 8E  |:.15...,.....L..|
00001000: 00 25 18 B0 04 8F 20 2A  2A 2A 20 43 4F 50 59 20  |.%.... *** COPY |
00001010: 42 4F 54 48 20 44 4F 53  20 50 52 4F 47 52 41 4D  |BOTH DOS PROGRAM|
00001020: 53 20 2A 2A 2A 00 5B 18  B5 04 99 22 93 22 3A 99  |S ***.[....".":.|
00001030: 22 49 4E 53 45 52 54 20  53 4F 55 52 43 45 20 44  |"INSERT SOURCE D|
00001040: 49 53 4B 20 57 49 54 48  20 57 45 44 47 45 20 41  |ISK WITH WEDGE A|
00001050: 4E 44 2F 4F 52 20 44 4F  53 22 3B 00 80 18 BA 04  |ND/OR DOS";.....|
00001060: 99 22 50 52 4F 47 52 41  4D 28 53 29 20 41 4E 44  |."PROGRAM(S) AND|
00001070: 20 50 52 45 53 53 20 3C  52 45 54 55 52 4E 3E 22  | PRESS <RETURN>"|
00001080: 00 95 18 BF 04 A1 57 24  3A 8B 57 24 B2 22 22 A7  |......W$:.W$."".|
00001090: 89 31 32 31 35 00 A3 18  C2 04 54 59 50 45 24 B2  |.1215.....TYPE$.|
000010A0: 22 50 22 00 C8 18 C3 04  8B 43 30 B2 31 A7 46 49  |"P"......C0.1.FI|
000010B0: 4C 45 24 B2 22 56 49 43  2D 32 30 20 57 45 44 47  |LE$."VIC-20 WEDG|
000010C0: 45 22 3A 89 31 32 33 35  00 E5 18 C4 04 46 49 4C  |E":.1235.....FIL|
000010D0: 45 24 B2 22 43 2D 36 34  20 57 45 44 47 45 22 3A  |E$."C-64 WEDGE":|
000010E0: 8D 31 30 30 30 00 28 19  C9 04 81 43 B2 31 A4 36  |.1000.(....C.1.6|
000010F0: 34 3A 44 4F 53 25 28 43  29 B2 54 45 4D 50 25 28  |4:DOS%(C).TEMP%(|
00001100: 43 29 3A 82 20 43 3A 8F  20 4D 4F 56 45 20 43 2D  |C):. C:. MOVE C-|
00001110: 36 34 20 57 45 44 47 45  20 54 4F 20 53 4D 41 4C  |64 WEDGE TO SMAL|
00001120: 4C 20 42 55 46 46 45 52  00 3C 19 CE 04 46 49 4C  |L BUFFER.<...FIL|
00001130: 45 24 B2 22 44 4F 53 20  35 2E 31 22 00 74 19 D3  |E$."DOS 5.1".t..|
00001140: 04 8D 31 30 30 30 3A 99  3A 99 20 22 49 4E 53 45  |..1000:.:. "INSE|
00001150: 52 54 20 44 45 53 54 49  4E 41 54 49 4F 4E 20 44  |RT DESTINATION D|
00001160: 49 53 4B 20 41 4E 44 20  50 52 45 53 53 20 3C 52  |ISK AND PRESS <R|
00001170: 45 54 3E 22 00 89 19 D8  04 A1 57 24 3A 8B 57 24  |ET>"......W$:.W$|
00001180: B2 22 22 A7 89 31 32 34  30 00 9B 19 DD 04 8D 31  |.""..1240......1|
00001190: 30 35 30 3A 8B 43 30 B2  31 A7 8E 00 BC 19 E2 04  |050:.C0.1.......|
000011A0: 81 43 B2 31 A4 36 34 3A  54 45 4D 50 25 28 43 29  |.C.1.64:TEMP%(C)|
000011B0: B2 44 4F 53 25 28 43 29  3A 82 20 43 00 F1 19 E7  |.DOS%(C):. C....|
000011C0: 04 46 49 4C 45 24 B2 22  43 2D 36 34 20 57 45 44  |.FILE$."C-64 WED|
000011D0: 47 45 22 3A 49 B2 36 34  3A 8D 31 30 35 30 3A 8F  |GE":I.64:.1050:.|
000011E0: 20 57 52 49 54 45 20 43  2D 36 34 20 57 45 44 47  | WRITE C-64 WEDG|
000011F0: 45 00 F7 19 0A 05 8E 00  00 B6                    |E.........      |

..%....49152,10:.B(49152)..10.C0.1:.6...
..C0.2.=.... DOS%(65).[...FR..(0):.FR.0.
FR.FR.65536.Z...S.(FR.400).2:M2..(S.256)
.1...... TEMP%(S)......".";......"  ****
**************".K...."  *  DISK MANAGER 
 *"......"  ******************"...2..:."
1.DISK DIRECTORY"...<.."2.FORMAT NEW DIS
K".3.F.."3.INITIALIZE DISK".S.P.."4.COPY
 FILE ON SAME DISK".~.U.."5.COPY FILE ON
 NEW (FORMATTED) DISK"...X.."6.COPY BOTH
 DOS WEDGE PROGRAMS"...Z.."7.RENAME FILE
".P.D.."8.ERASE FILE(S)"...N.."9.VALIDAT
E FILES"...X.."10.WRITE DISK MANAGER"...
..."11.ERROR STATUS".6...."12.EXIT TO BA
SIC":..S...."CHOICE    ....";CHOICE.|...
. (CHOICE.1).(CHOICE.12). .".";:.170...H
.. CHOICE . 250,300,350,400,800,1200,450
,500,550,600,650,700.D.R..10...... *** D
ISPLAY DIRECTORY ***......"."...... 1,8,
0,"$"...... #1,A$,B$...... #1,A$,B$.*...
. #1,A$,B$.C...C.0:. A$.."".C.F(A$).]...
.B$.."".C.C.F(B$).256.R.... J(D(C),2);.3
);......#1,B$:.ST..0.282......B$..G(34).
264......#1,B$:.B$..G(34)..B$;:.268.T...
.#1,B$:.B$.G(32).270.......18);:C$.""...
..C$.C$.B$:.#1,B$:.B$.."".274......H(C$,
3). ....ST.0.254.5...." BLOCKS FREE ".Z.
..  1:.:.:."HIT ANY KEY TO RETURN".M."..
X$:.X$."".290.S.'.....,.. *** FORMAT (NE
W) DISK ***...-..".".E.1.."INSERT DISK T
O BE":."FORMATTED.":....6.."INPUT DISK N
AME":. DISK$...@..:."INPUT EXTENDER NAME
":. EXT$.(.E.MACRO$."N0:".DISK$.",".EXT$
.<.J..15,8,15,MACRO$.P.T. 15:MACRO$."":.
.N.^.. *** INITIALIZE DISK ***.W.C..".".
..H.."INSERT DISK TO BE":."INITIALIZED."
:..K.R.."HIT <RETURN> TO":."INITIALIZE":
.X$...|..15,8,15,"I"..... 15:....... ***
 COPY FILE ON SAME DISK ***......".":.:.
.>...."INPUT SOURCE FILE NAME":. DISK$.B
....:."INPUT NEW FILE NAME":. NWS$.....M
ACRO$."C:".NWS$."=".DISK$......15,8,15,M
ACRO$..... 15:MACRO$."":..C.B.. *** RENA
ME FILE ***.N.G..".":....L.."INPUT OLD F
ILE NAME":. DISK$...V..:."INPUT NEW FILE
 NAME":. NWS$.4...MACRO$."R:".NWS$."=".D
ISK$.H....15,8,15,MACRO$.\... 15:MACRO$.
"":..U.... *** ERASE FILE ***......".":.
:......."INPUT FILE NAME(S) TO DELETE":.
 DISK$.O....:.:."HIT ANY KEY TO DELETE".
.....X$:.X$."".525.....MACRO$."S0:".DISK
$......15,8,15,MACRO$.!... 15:MACRO$."":
..>.&.. *** VALIDATE FILES ***.K.+..".":
.:..Y.0.."WARNING:OPEN FILES ":."WILL BE
 DELETED"...:..:.:."HIT ANY KEY TO VALID
ATE"...?..X$:.X$."".575...D..1,8,15,"V".
H.N. 1:....X.. ** WRITE DISKMANAGER PROG
RAM **...]..".":.:..".B.."INSERT DISK TO
 BE WRITTEN TO.":..O.L..:.:."HIT ANY KEY
 TO WRITE DISK MANAGER".B.N..X$:.X$."".6
22.N.Q..1,8,15...V.."@0:DISKMANAGER",8..
.{. 1............ *** DISPLAY ERROR STAT
US ***.C....15,8,15.W....15,A$,B$,C$,D$.
.....".":.:......."ERROR STATUS:  "B$:.:
."ERROR NUMBER:  "A$.5....:.:."HIT ANY K
EY TO RETURN".H....X$:.X$."".695.R... 15
:..P.... *** RETURN TO BASIC ***.}.A..".
":.:....F.."   NOTE:DISKMANAGER PROGRAM 
IS STILL            RESIDENT".C.P..... .
. *** COPY FILE ON NEW DISK ***...!.."."
...". 15...#.MAX..(S.256).Q.$.."  MAXIMU
M SIZE OF FILE WHICH CAN BE CO-   PIED I
S "MAX" BLOCKS":..E.&.. MAX..M2. .809...
'.."  FOR MAXIMUM COPY SIZE OF "M2" BLOC
KS,";.F.(.."    TURN COMPUTER OFF/ON AND
 RELOAD PROG."...)..:."  READ/WRITE RATE
 IS APPROXIMATELY 6      BLOCKS/MINUTE".
2.*..:."  INPUT NAME OF FILE TO BE COPIE
D".>.4.. FILE$.\.>..:. "   INPUT FILE TY
PE:".S.H.. "     P PROGRAM"...R.. "     
S SEQUENTIAL"...\.. "     U USER"...F.. 
"     R RELATIVE".E.P.. TYPE$...Z..:. "I
NSERT SOURCE DISK AND PRESS <RETURN>"...
...W$:.W$.""..900.)....1000:. READ FILE 
INTO TEMP.[....:. "INSERT DESTINATION DI
SK AND PRESS <RET>".O....W$:.W$.""..930.
.....1050:. WRITE FILE FROM TEMP$......:
. "MAKE ANOTHER COPY";:.W$.I.... H(W$,1)
."Y"..920.S.J..1100...T.. - CHECK FOR GO
OD OPEN...Y..15,A$,B$,C$,D$......E(A$).0
. ..*....A$,B$,C$,D$: 15:..G.... - READ 
FILE INTO TEMP%.O...I.1.\....15,8,15....
..5,8,5,"0:".FILE$.",".TYPE$.",R"......9
80...... "     NOW READING . . ."......#
5,A$.L...TEMP%(I).F(A$.G(0)).V...I.I.1..
....ST.0.1010......:. "FILE=? ";FILE$,"S
T=";ST,  "BYTES=";I:  5:  15.".....>....
-WRITE FILE FROM TEMP%.K....15,8,15.P...
.5,8,5,"0:".FILE$.",".TYPE$.",W".Y. ..98
0...!.."     NOW WRITING  . . .". .".J.1
...$..5,G(TEMP%(J));...&.J.J.1.L.(..J.I.
1060...*..:."FILE= ";FILE$,"BYTES=";J: 5
: 15...,.....L...%.... *** COPY BOTH DOS
 PROGRAMS ***.[....".":."INSERT SOURCE D
ISK WITH WEDGE AND/OR DOS";......"PROGRA
M(S) AND PRESS <RETURN>"......W$:.W$."".
.1215...B.TYPE$."P".H.C..C0.1.FILE$."VIC
-20 WEDGE":.1235...D.FILE$."C-64 WEDGE":
.1000.(.I..C.1.64:DOS%(C).TEMP%(C):. C:.
 MOVE C-64 WEDGE TO SMALL BUFFER.<.N.FIL
E$."DOS 5.1".T.S..1000:.:. "INSERT DESTI
NATION DISK AND PRESS <RET>"...X..W$:.W$
.""..1240......1050:.C0.1........C.1.64:
TEMP%(C).DOS%(C):. C.....FILE$."C-64 WED
GE":I.64:.1050:. WRITE C-64 WEDGE.......
..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL