DISKMANAGER
FILE INFORMATION
FILENAME(S): DISKMANAGER
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
76b27fb6a1c43ec6f83922cbf696c3e2fe8bbe97aafc90427f1fbda74870e816
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NCR2 | DISKMANAGER | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 03 00 97 20 34 39 31 35 32 2C 31 30 |..).... 49152,10|
00000010: 3A 8B 20 C2 28 34 39 31 35 32 29 B3 B1 31 30 20 |:. .(49152)..10 |
00000020: A7 20 43 30 B2 31 3A 89 36 00 32 08 05 00 43 30 |. C0.1:.6.2...C0|
00000030: B2 32 00 41 08 06 00 86 20 44 4F 53 25 28 36 35 |.2.A.... DOS%(65|
00000040: 29 00 62 08 07 00 46 52 B2 B8 28 30 29 3A 8B 20 |).b...FR..(0):. |
00000050: 46 52 B3 30 20 A7 20 46 52 B2 46 52 AA 36 35 35 |FR.0 . FR.FR.655|
00000060: 33 36 00 81 08 08 00 53 B2 28 46 52 AB 34 30 30 |36.....S.(FR.400|
00000070: 29 AD 32 3A 4D 32 B2 B5 28 53 AD 32 35 36 29 AA |).2:M2..(S.256).|
00000080: 31 00 90 08 09 00 86 20 54 45 4D 50 25 28 53 29 |1...... TEMP%(S)|
00000090: 00 9A 08 0A 00 99 22 93 22 3B 00 B6 08 0F 00 99 |......".";......|
000000A0: 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |" *************|
000000B0: 2A 2A 2A 2A 2A 22 00 D2 08 14 00 99 22 20 20 2A |*****"......" *|
000000C0: 44 49 53 4B 2F 54 41 50 45 20 4D 41 4E 41 47 45 |DISK/TAPE MANAGE|
000000D0: 52 22 00 EE 08 19 00 99 22 20 20 2A 2A 2A 2A 2A |R"......" *****|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 08 |*************"..|
000000F0: 09 32 00 99 3A 99 22 31 2E 44 49 53 4B 20 44 49 |.2..:."1.DISK DI|
00000100: 52 45 43 54 4F 52 59 22 00 21 09 3C 00 99 22 32 |RECTORY".!.<.."2|
00000110: 2E 46 4F 52 4D 41 54 20 4E 45 57 20 44 49 53 4B |.FORMAT NEW DISK|
00000120: 22 00 3A 09 46 00 99 22 33 2E 49 4E 49 54 49 41 |".:.F.."3.INITIA|
00000130: 4C 49 5A 45 20 44 49 53 4B 22 00 5A 09 50 00 99 |LIZE DISK".Z.P..|
00000140: 22 34 2E 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 |"4.COPY FILE ON |
00000150: 53 41 4D 45 20 44 49 53 4B 22 00 85 09 55 00 99 |SAME DISK"...U..|
00000160: 22 35 2E 43 4F 50 59 20 46 49 4C 45 20 4F 4E 20 |"5.COPY FILE ON |
00000170: 4E 45 57 20 28 46 4F 52 4D 41 54 54 45 44 29 20 |NEW (FORMATTED) |
00000180: 44 49 53 4B 22 00 AB 09 58 00 99 22 36 2E 43 4F |DISK"...X.."6.CO|
00000190: 50 59 20 42 4F 54 48 20 44 4F 53 20 57 45 44 47 |PY BOTH DOS WEDG|
000001A0: 45 20 50 52 4F 47 52 41 4D 53 22 00 C0 09 5A 00 |E PROGRAMS"...Z.|
000001B0: 99 22 37 2E 52 45 4E 41 4D 45 20 46 49 4C 45 22 |."7.RENAME FILE"|
000001C0: 00 D7 09 64 00 99 22 38 2E 45 52 41 53 45 20 46 |...d.."8.ERASE F|
000001D0: 49 4C 45 28 53 29 22 00 EF 09 6E 00 99 22 39 2E |ILE(S)"...n.."9.|
000001E0: 56 41 4C 49 44 41 54 45 20 46 49 4C 45 53 22 00 |VALIDATE FILES".|
000001F0: 0C 0A 78 00 99 22 31 30 2E 57 52 49 54 45 20 44 |..x.."10.WRITE D|
00000200: 49 53 4B 20 4D 41 4E 41 47 45 52 22 00 23 0A 82 |ISK MANAGER".#..|
00000210: 00 99 22 31 31 2E 45 52 52 4F 52 20 53 54 41 54 |.."11.ERROR STAT|
00000220: 55 53 22 00 3B 0A 8C 00 99 22 31 32 2E 45 58 49 |US".;...."12.EXI|
00000230: 54 20 54 4F 20 42 41 53 49 43 22 00 53 0A 8D 00 |T TO BASIC".S...|
00000240: 99 22 31 33 2E 44 49 53 4B 20 54 4F 20 54 41 50 |."13.DISK TO TAP|
00000250: 45 20 22 00 6E 0A 8E 00 99 22 31 34 2E 54 41 50 |E ".n...."14.TAP|
00000260: 45 20 54 4F 20 44 49 53 4B 20 22 3A 99 3A 00 8B |E TO DISK ":.:..|
00000270: 0A AA 00 85 22 43 48 4F 49 43 45 20 20 20 20 9D |...."CHOICE .|
00000280: 9D 9D 9D 22 3B 43 48 4F 49 43 45 00 B5 0A B4 00 |...";CHOICE.....|
00000290: 8B 20 28 43 48 4F 49 43 45 B3 31 29 B0 28 43 48 |. (CHOICE.1).(CH|
000002A0: 4F 49 43 45 B1 31 34 29 A7 20 99 22 91 22 3B 3A |OICE.14). .".";:|
000002B0: 89 20 31 37 30 00 FF 0A C8 00 91 20 43 48 4F 49 |. 170...... CHOI|
000002C0: 43 45 20 8D 20 32 35 30 2C 33 30 30 2C 33 35 30 |CE . 250,300,350|
000002D0: 2C 34 30 30 2C 38 30 30 2C 31 32 30 30 2C 34 35 |,400,800,1200,45|
000002E0: 30 2C 35 30 30 2C 35 35 30 2C 36 30 30 2C 36 35 |0,500,550,600,65|
000002F0: 30 2C 37 30 30 2C 32 30 30 30 2C 32 35 30 30 00 |0,700,2000,2500.|
00000300: 08 0B D2 00 89 20 31 30 00 27 0B FA 00 8F 20 2A |..... 10.'.... *|
00000310: 2A 2A 44 49 53 50 4C 41 59 20 44 49 52 45 43 54 |**DISPLAY DIRECT|
00000320: 4F 52 59 20 2A 2A 2A 00 30 0B FB 00 99 22 93 22 |ORY ***.0...."."|
00000330: 00 40 0B FC 00 9F 20 31 2C 38 2C 30 2C 22 24 22 |.@.... 1,8,0,"$"|
00000340: 00 4F 0B FD 00 A1 20 23 31 2C 41 24 2C 42 24 00 |.O.... #1,A$,B$.|
00000350: 5D 0B FE 00 A1 23 31 2C 41 24 2C 42 24 00 6B 0B |]....#1,A$,B$.k.|
00000360: 00 01 A1 23 31 2C 41 24 2C 42 24 00 86 0B 02 01 |...#1,A$,B$.....|
00000370: 43 B2 30 3A 8B 20 41 24 B3 B1 22 22 A7 20 43 B2 |C.0:. A$.."". C.|
00000380: 20 C6 28 41 24 29 00 A3 0B 04 01 8B 20 42 24 B3 | .(A$)...... B$.|
00000390: B1 22 22 A7 20 43 B2 43 AA 20 C6 28 42 24 29 AC |."". C.C. .(B$).|
000003A0: 32 35 36 00 B8 0B 06 01 99 20 CA 28 C4 28 43 29 |256...... .(.(C)|
000003B0: 2C 32 29 3B A3 33 29 3B 00 D1 0B 08 01 A1 23 31 |,2);.3);......#1|
000003C0: 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 A7 20 32 38 |,B$:. ST..0 . 28|
000003D0: 32 00 E8 0B 0A 01 8B 20 42 24 B3 B1 20 C7 28 33 |2...... B$.. .(3|
000003E0: 34 29 20 A7 20 32 36 34 00 0E 0C 0C 01 A1 23 31 |4) . 264......#1|
000003F0: 2C 42 24 3A 8B 20 42 24 B3 B1 20 C7 28 33 34 29 |,B$:. B$.. .(34)|
00000400: 20 A7 20 99 20 42 24 3B 3A 89 20 32 36 38 00 2C | . . B$;:. 268.,|
00000410: 0C 0E 01 A1 20 23 31 2C 42 24 3A 8B 20 42 24 B2 |.... #1,B$:. B$.|
00000420: 20 C7 28 33 32 29 20 A7 20 32 37 30 00 3E 0C 10 | .(32) . 270.>..|
00000430: 01 99 20 A3 31 38 29 3B 3A 43 24 B2 22 22 00 61 |.. .18);:C$."".a|
00000440: 0C 12 01 43 24 B2 43 24 AA 42 24 3A A1 20 23 31 |...C$.C$.B$:. #1|
00000450: 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 A7 20 32 37 |,B$:. B$.."". 27|
00000460: 34 00 6F 0C 14 01 99 20 C8 28 43 24 2C 33 29 00 |4.o.... .(C$,3).|
00000470: 80 0C 18 01 8B 20 53 54 B2 30 20 A7 20 32 35 34 |..... ST.0 . 254|
00000480: 00 95 0C 1A 01 99 22 20 42 4C 4F 43 4B 53 20 46 |......" BLOCKS F|
00000490: 52 45 45 20 22 00 BA 0C 1C 01 A0 20 31 3A 99 3A |REE "...... 1:.:|
000004A0: 99 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 |.:."HIT ANY KEY |
000004B0: 54 4F 20 52 45 54 55 52 4E 22 00 CF 0C 22 01 A1 |TO RETURN"..."..|
000004C0: 20 58 24 3A 8B 58 24 B2 22 22 A7 20 32 39 30 00 | X$:.X$."". 290.|
000004D0: D5 0C 27 01 8E 00 F5 0C 2C 01 8F 20 2A 2A 2A 20 |..'.....,.. *** |
000004E0: 46 4F 52 4D 41 54 20 28 4E 45 57 29 20 44 49 53 |FORMAT (NEW) DIS|
000004F0: 4B 20 2A 2A 2A 00 FE 0C 2D 01 99 22 93 22 00 27 |K ***...-..".".'|
00000500: 0D 31 01 99 22 49 4E 53 45 52 54 20 44 49 53 4B |.1.."INSERT DISK|
00000510: 20 54 4F 20 42 45 22 3A 99 22 46 4F 52 4D 41 54 | TO BE":."FORMAT|
00000520: 54 45 44 2E 22 3A 99 00 46 0D 36 01 99 22 49 4E |TED.":..F.6.."IN|
00000530: 50 55 54 20 44 49 53 4B 20 4E 41 4D 45 22 3A 85 |PUT DISK NAME":.|
00000540: 20 44 49 53 4B 24 00 6A 0D 40 01 99 3A 99 22 49 | DISK$.j.@..:."I|
00000550: 4E 50 55 54 20 45 58 54 45 4E 44 45 52 20 4E 41 |NPUT EXTENDER NA|
00000560: 4D 45 22 3A 85 20 45 58 54 24 00 8A 0D 45 01 4D |ME":. EXT$...E.M|
00000570: 41 43 52 4F 24 B2 22 4E 30 3A 22 AA 44 49 53 4B |ACRO$."N0:".DISK|
00000580: 24 AA 22 2C 22 AA 45 58 54 24 00 9F 0D 4A 01 9F |$.",".EXT$...J..|
00000590: 20 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 | 15,8,15,MACRO$.|
000005A0: B4 0D 54 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 |..T.. 15:MACRO$.|
000005B0: 22 22 3A 8E 00 D2 0D 5E 01 8F 20 2A 2A 2A 20 49 |"":....^.. *** I|
000005C0: 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 20 2A |NITIALIZE DISK *|
000005D0: 2A 2A 00 DB 0D 63 01 99 22 93 22 00 06 0E 68 01 |**...c.."."...h.|
000005E0: 99 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F |."INSERT DISK TO|
000005F0: 20 42 45 22 3A 99 22 49 4E 49 54 49 41 4C 49 5A | BE":."INITIALIZ|
00000600: 45 44 2E 22 3A 99 00 30 0E 72 01 99 22 48 49 54 |ED.":..0.r.."HIT|
00000610: 20 3C 52 45 54 55 52 4E 3E 20 54 4F 22 3A 99 22 | <RETURN> TO":."|
00000620: 49 4E 49 54 49 41 4C 49 5A 45 22 3A 85 20 58 24 |INITIALIZE":. X$|
00000630: 00 41 0E 7C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |.A.|..15,8,15,"I|
00000640: 22 00 4C 0E 86 01 A0 20 31 35 3A 8E 00 71 0E 90 |".L.... 15:..q..|
00000650: 01 8F 20 2A 2A 2A 20 43 4F 50 59 20 46 49 4C 45 |.. *** COPY FILE|
00000660: 20 4F 4E 20 53 41 4D 45 20 44 49 53 4B 20 2A 2A | ON SAME DISK **|
00000670: 2A 00 7E 0E 95 01 99 22 93 22 3A 99 3A 99 00 A4 |*.~....".":.:...|
00000680: 0E 9A 01 99 22 49 4E 50 55 54 20 53 4F 55 52 43 |...."INPUT SOURC|
00000690: 45 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 20 44 |E FILE NAME":. D|
000006A0: 49 53 4B 24 00 C8 0E A4 01 99 3A 99 22 49 4E 50 |ISK$......:."INP|
000006B0: 55 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 |UT NEW FILE NAME|
000006C0: 22 3A 85 20 4E 57 53 24 00 E7 0E A9 01 4D 41 43 |":. NWS$.....MAC|
000006D0: 52 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 AA 22 3D |RO$."C:".NWS$."=|
000006E0: 22 AA 44 49 53 4B 24 00 FC 0E AE 01 9F 20 31 35 |".DISK$...... 15|
000006F0: 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 11 0F B8 |,8,15,MACRO$....|
00000700: 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A |.. 15:MACRO$."":|
00000710: 8E 00 2B 0F C2 01 8F 20 2A 2A 2A 20 52 45 4E 41 |..+.... *** RENA|
00000720: 4D 45 20 46 49 4C 45 20 2A 2A 2A 00 36 0F C7 01 |ME FILE ***.6...|
00000730: 99 22 93 22 3A 99 00 59 0F CC 01 99 22 49 4E 50 |.".":..Y...."INP|
00000740: 55 54 20 4F 4C 44 20 46 49 4C 45 20 4E 41 4D 45 |UT OLD FILE NAME|
00000750: 22 3A 85 20 44 49 53 4B 24 00 7D 0F D6 01 99 3A |":. DISK$.}....:|
00000760: 99 22 49 4E 50 55 54 20 4E 45 57 20 46 49 4C 45 |."INPUT NEW FILE|
00000770: 20 4E 41 4D 45 22 3A 85 20 4E 57 53 24 00 9C 0F | NAME":. NWS$...|
00000780: DB 01 4D 41 43 52 4F 24 B2 22 52 3A 22 AA 4E 57 |..MACRO$."R:".NW|
00000790: 53 24 AA 22 3D 22 AA 44 49 53 4B 24 00 B1 0F E0 |S$."=".DISK$....|
000007A0: 01 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F |.. 15,8,15,MACRO|
000007B0: 24 00 C5 0F EA 01 A0 31 35 3A 4D 41 43 52 4F 24 |$......15:MACRO$|
000007C0: B2 22 22 3A 8E 00 DE 0F F4 01 8F 20 2A 2A 2A 20 |."":....... *** |
000007D0: 45 52 41 53 45 20 46 49 4C 45 20 2A 2A 2A 00 EB |ERASE FILE ***..|
000007E0: 0F F9 01 99 22 93 22 3A 99 3A 99 00 17 10 FE 01 |....".":.:......|
000007F0: 99 22 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D |."INPUT FILE NAM|
00000800: 45 28 53 29 20 54 4F 20 44 45 4C 45 54 45 22 3A |E(S) TO DELETE":|
00000810: 85 20 44 49 53 4B 24 00 38 10 08 02 99 3A 99 3A |. DISK$.8....:.:|
00000820: 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F |."HIT ANY KEY TO|
00000830: 20 44 45 4C 45 54 45 22 00 4F 10 0D 02 A1 20 58 | DELETE".O.... X|
00000840: 24 3A 8B 20 58 24 B2 22 22 20 A7 20 35 32 35 00 |$:. X$."" . 525.|
00000850: 66 10 12 02 4D 41 43 52 4F 24 B2 22 53 30 3A 22 |f...MACRO$."S0:"|
00000860: AA 44 49 53 4B 24 00 7B 10 17 02 9F 20 31 35 2C |.DISK$.{.... 15,|
00000870: 38 2C 31 35 2C 4D 41 43 52 4F 24 00 90 10 1C 02 |8,15,MACRO$.....|
00000880: A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 22 3A 8E |. 15:MACRO$."":.|
00000890: 00 AD 10 26 02 8F 20 2A 2A 2A 20 56 41 4C 49 44 |...&.. *** VALID|
000008A0: 41 54 45 20 46 49 4C 45 53 20 2A 2A 2A 00 BA 10 |ATE FILES ***...|
000008B0: 2B 02 99 22 93 22 3A 99 3A 99 00 E8 10 30 02 99 |+..".":.:....0..|
000008C0: 22 57 41 52 4E 49 4E 47 3A 4F 50 45 4E 20 46 49 |"WARNING:OPEN FI|
000008D0: 4C 45 53 20 22 3A 99 22 57 49 4C 4C 20 42 45 20 |LES ":."WILL BE |
000008E0: 44 45 4C 45 54 45 44 22 00 0B 11 3A 02 99 3A 99 |DELETED"...:..:.|
000008F0: 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |:."HIT ANY KEY T|
00000900: 4F 20 56 41 4C 49 44 41 54 45 22 00 22 11 3F 02 |O VALIDATE".".?.|
00000910: A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 35 |. X$:. X$."" . 5|
00000920: 37 35 00 33 11 44 02 9F 20 31 2C 38 2C 31 35 2C |75.3.D.. 1,8,15,|
00000930: 22 56 22 00 3C 11 4E 02 A0 31 3A 8E 00 62 11 58 |"V".<.N..1:..b.X|
00000940: 02 8F 20 2A 2A 20 57 52 49 54 45 20 44 49 53 4B |.. ** WRITE DISK|
00000950: 4D 41 4E 41 47 45 52 20 50 52 4F 47 52 41 4D 20 |MANAGER PROGRAM |
00000960: 2A 2A 00 6F 11 5D 02 99 22 93 22 3A 99 3A 99 00 |**.o.]..".":.:..|
00000970: 96 11 62 02 99 22 49 4E 53 45 52 54 20 44 49 53 |..b.."INSERT DIS|
00000980: 4B 20 54 4F 20 42 45 20 57 52 49 54 54 45 4E 20 |K TO BE WRITTEN |
00000990: 54 4F 2E 22 3A 99 00 C3 11 6C 02 99 3A 99 3A 99 |TO.":....l..:.:.|
000009A0: 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 |"HIT ANY KEY TO |
000009B0: 57 52 49 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 |WRITE DISK MANAG|
000009C0: 45 52 22 00 DA 11 6E 02 A1 20 58 24 3A 8B 20 58 |ER"...n.. X$:. X|
000009D0: 24 B2 22 22 20 A7 20 36 32 32 00 E7 11 71 02 9F |$."" . 622...q..|
000009E0: 20 31 2C 38 2C 31 35 00 00 12 76 02 94 20 22 40 | 1,8,15...v.. "@|
000009F0: 30 3A 44 49 53 4B 4D 41 4E 41 47 45 52 22 2C 38 |0:DISKMANAGER",8|
00000A00: 00 08 12 7B 02 A0 20 31 00 0E 12 80 02 8E 00 31 |...{.. 1.......1|
00000A10: 12 8A 02 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 |.... *** DISPLAY|
00000A20: 20 45 52 52 4F 52 20 53 54 41 54 55 53 20 2A 2A | ERROR STATUS **|
00000A30: 2A 00 3E 12 8F 02 9F 31 35 2C 38 2C 31 35 00 52 |*.>....15,8,15.R|
00000A40: 12 94 02 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C |....15,A$,B$,C$,|
00000A50: 44 24 00 5F 12 9E 02 99 22 93 22 3A 99 3A 99 00 |D$._....".":.:..|
00000A60: 8F 12 A8 02 99 22 45 52 52 4F 52 20 53 54 41 54 |....."ERROR STAT|
00000A70: 55 53 3A 20 20 22 42 24 3A 99 3A 99 22 45 52 52 |US: "B$:.:."ERR|
00000A80: 4F 52 20 4E 55 4D 42 45 52 3A 20 20 22 41 24 00 |OR NUMBER: "A$.|
00000A90: B0 12 B2 02 99 3A 99 3A 99 22 48 49 54 20 41 4E |.....:.:."HIT AN|
00000AA0: 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 22 |Y KEY TO RETURN"|
00000AB0: 00 C6 12 B7 02 A1 20 58 24 3A 8B 20 58 24 B2 22 |...... X$:. X$."|
00000AC0: 22 A7 20 36 39 35 00 D1 12 B9 02 A0 20 31 35 3A |". 695...... 15:|
00000AD0: 8E 00 EF 12 BC 02 8F 20 2A 2A 2A 20 52 45 54 55 |....... *** RETU|
00000AE0: 52 4E 20 54 4F 20 42 41 53 49 43 20 2A 2A 2A 00 |RN TO BASIC ***.|
00000AF0: FC 12 C1 02 99 22 93 22 3A 99 3A 99 00 2E 13 C6 |.....".":.:.....|
00000B00: 02 F9 E2 4E 4F FF FF FF FF D2 FF DF 4D FF 71 3E |...NO.......M.q>|
00000B10: BF B3 FF FF 3A FF 3F 1F FF 32 B7 FF 36 FF FF FF |....:.?..2..6...|
00000B20: BB 36 13 13 FF FF 33 FF B6 13 33 B7 3B FF 22 FF |.6....3...3.;.".|
00000B30: FF FF FF 20 22 3A FF FF FF AC FF FF FF FF FF FF |... ":..........|
00000B40: BF 1A 3E FF 3F 36 13 13 FF 3F 17 FF 37 33 BD FF |..>.?6...?..73..|
00000B50: 33 36 FF B6 FF FF FF FF 22 F2 FF FF FF E4 FF FF |36......".......|
00000B60: FF 22 F6 FF FF FF E2 FF FF FF A2 FE FF FF FF B7 |."..............|
00000B70: 12 BA FF 6B FF FF E7 FF FF FF FF 02 6D FF FF FF |...k........m...|
00000B80: E4 FF FF FF 37 12 BA 16 17 1B B7 FF FF B6 1E 33 |....7..........3|
00000B90: FF 3F 1F FF 3F 36 13 13 FF 3D B2 16 FF B2 FF FF |.?..?6...=......|
00000BA0: B2 B7 FF FF 33 FF FF BF 1A 36 13 B3 FF 36 FF FF |....3....6...6..|
00000BB0: FF 37 12 BA FF FF FF 33 1F FF B6 FF FF FF 64 02 |.7.....3......d.|
00000BC0: 71 FF FF FF A4 FF 37 12 BA 4A FF 37 FF FF 6F FF |q.....7..J.7..o.|
00000BD0: 24 FF FF FF FF 02 23 AB FF FF E4 FF FF FF 3F 3F |$.....#.......??|
00000BE0: FF FF 37 12 BA 16 17 1B 4D 20 43 4F 50 59 20 53 |..7.....M COPY S|
00000BF0: 49 5A 45 20 4F 46 20 22 4D 32 22 20 42 4C 4F 43 |IZE OF "M2" BLOC|
00000C00: 4B 53 2C 22 3B 00 32 14 28 03 99 22 54 55 52 4E |KS,";.2.(.."TURN|
00000C10: 20 43 4F 4D 50 55 54 45 52 20 4F 46 46 2F 4F 4E | COMPUTER OFF/ON|
00000C20: 20 41 4E 44 20 52 45 4C 4F 41 44 20 50 52 4F 47 | AND RELOAD PROG|
00000C30: 2E 22 00 6E 14 29 03 99 3A 99 22 20 20 52 45 41 |.".n.)..:." REA|
00000C40: 44 2F 57 52 49 54 45 20 52 41 54 45 20 49 53 20 |D/WRITE RATE IS |
00000C50: 41 50 50 52 4F 58 49 4D 41 54 45 4C 59 20 36 20 |APPROXIMATELY 6 |
00000C60: 42 4C 4F 43 4B 53 2F 4D 49 4E 55 54 45 22 00 98 |BLOCKS/MINUTE"..|
00000C70: 14 2A 03 99 3A 99 20 22 49 4E 50 55 54 20 4E 41 |.*..:. "INPUT NA|
00000C80: 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 |ME OF FILE TO BE|
00000C90: 20 43 4F 50 49 45 44 22 00 A4 14 34 03 85 20 46 | COPIED"...4.. F|
00000CA0: 49 4C 45 24 00 C1 14 3E 03 99 3A 99 22 20 20 20 |ILE$...>..:." |
00000CB0: 49 4E 50 55 54 20 46 49 4C 45 20 54 59 50 45 3A |INPUT FILE TYPE:|
00000CC0: 22 00 D7 14 48 03 99 22 20 20 20 20 20 50 20 50 |"...H.." P P|
00000CD0: 52 4F 47 52 41 4D 22 00 F0 14 52 03 99 22 20 20 |ROGRAM"...R.." |
00000CE0: 20 20 20 53 20 53 45 51 55 45 4E 54 49 41 4C 22 | S SEQUENTIAL"|
00000CF0: 00 03 15 5C 03 99 22 20 20 20 20 20 55 20 55 53 |...\.." U US|
00000D00: 45 52 22 00 1B 15 66 03 99 20 22 20 20 20 20 20 |ER"...f.. " |
00000D10: 52 20 52 45 4C 41 54 49 56 45 22 00 27 15 70 03 |R RELATIVE".'.p.|
00000D20: 85 20 54 59 50 45 24 00 57 15 7A 03 99 3A 99 20 |. TYPE$.W.z..:. |
00000D30: 22 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 |"INSERT SOURCE D|
00000D40: 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 |ISK AND PRESS <R|
00000D50: 45 54 55 52 4E 3E 22 00 70 15 84 03 A1 20 57 24 |ETURN>".p.... W$|
00000D60: 3A 8B 20 57 24 B2 22 22 20 A7 20 89 20 39 30 30 |:. W$."" . . 900|
00000D70: 00 91 15 8E 03 8D 20 31 30 30 30 3A 8F 20 52 45 |...... 1000:. RE|
00000D80: 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D |AD FILE INTO TEM|
00000D90: 50 00 C3 15 98 03 99 3A 99 20 22 49 4E 53 45 52 |P......:. "INSER|
00000DA0: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI|
00000DB0: 53 4B 20 41 4E 44 20 50 52 45 53 53 20 3C 52 45 |SK AND PRESS <RE|
00000DC0: 54 3E 22 00 DC 15 A2 03 A1 20 57 24 3A 8B 20 57 |T>"...... W$:. W|
00000DD0: 24 B2 22 22 20 A7 20 89 20 39 33 30 00 FF 15 AC |$."" . . 930....|
00000DE0: 03 8D 20 31 30 35 30 3A 8F 20 57 52 49 54 45 20 |.. 1050:. WRITE |
00000DF0: 46 49 4C 45 20 46 52 4F 4D 20 54 45 4D 50 24 00 |FILE FROM TEMP$.|
00000E00: 20 16 B6 03 99 3A 99 20 22 4D 41 4B 45 20 41 4E | ....:. "MAKE AN|
00000E10: 4F 54 48 45 52 20 43 4F 50 59 22 3B 3A 85 57 24 |OTHER COPY";:.W$|
00000E20: 00 3A 16 C0 03 8B 20 C8 28 57 24 2C 31 29 B2 22 |.:.... .(W$,1)."|
00000E30: 59 22 20 A7 20 89 20 39 32 30 00 45 16 CA 03 89 |Y" . . 920.E....|
00000E40: 20 31 31 30 30 00 61 16 D4 03 8F 20 2D 20 43 48 | 1100.a.... - CH|
00000E50: 45 43 4B 20 46 4F 52 20 47 4F 4F 44 20 4F 50 45 |ECK FOR GOOD OPE|
00000E60: 4E 00 75 16 D9 03 84 31 35 2C 41 24 2C 42 24 2C |N.u....15,A$,B$,|
00000E70: 43 24 2C 44 24 00 87 16 DE 03 8B 20 C5 28 41 24 |C$,D$...... .(A$|
00000E80: 29 B2 30 20 A7 20 8E 00 A0 16 E3 03 99 20 41 24 |).0 . ....... A$|
00000E90: 2C 42 24 2C 43 24 2C 44 24 3A A0 20 31 35 3A 90 |,B$,C$,D$:. 15:.|
00000EA0: 00 BC 16 E8 03 8F 20 2D 20 52 45 41 44 20 46 49 |...... - READ FI|
00000EB0: 4C 45 20 49 4E 54 4F 20 54 45 4D 25 00 C4 16 EA |LE INTO TEM%....|
00000EC0: 03 49 B2 31 00 D2 16 EC 03 9F 20 31 35 2C 38 2C |.I.1...... 15,8,|
00000ED0: 31 35 00 F8 16 EE 03 9F 20 35 2C 38 2C 35 2C 22 |15...... 5,8,5,"|
00000EE0: 30 3A 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 |0:".FILE$.",".TY|
00000EF0: 50 45 24 AA 22 2C 52 22 00 02 17 F0 03 8D 20 39 |PE$.",R"...... 9|
00000F00: 38 30 00 1F 17 F1 03 99 22 20 20 20 20 20 4E 4F |80......" NO|
00000F10: 57 20 52 45 41 44 49 4E 47 2E 20 2E 20 2E 22 00 |W READING. . .".|
00000F20: 2A 17 F2 03 A1 23 35 2C 41 24 00 42 17 F4 03 54 |*....#5,A$.B...T|
00000F30: 45 4D 50 25 28 49 29 B2 C6 28 41 24 AA C7 28 30 |EMP%(I)..(A$..(0|
00000F40: 29 29 00 4C 17 F6 03 49 B2 49 AA 31 00 5E 17 F8 |)).L...I.I.1.^..|
00000F50: 03 8B 20 53 54 B2 30 20 A7 20 31 30 31 30 00 93 |.. ST.0 . 1010..|
00000F60: 17 FA 03 99 3A 99 20 22 46 49 4C 45 3D 3F 20 22 |....:. "FILE=? "|
00000F70: 3B 46 49 4C 45 24 2C 22 53 54 3D 22 3B 53 54 2C |;FILE$,"ST=";ST,|
00000F80: 22 42 59 54 45 53 3D 22 3B 49 3A A0 20 35 3A A0 |"BYTES=";I:. 5:.|
00000F90: 20 31 35 00 99 17 FC 03 8E 00 B7 17 1A 04 8F 20 | 15............ |
00000FA0: 2D 20 57 52 49 54 45 20 46 49 4C 45 20 46 52 4F |- WRITE FILE FRO|
00000FB0: 4D 20 54 45 4D 50 25 00 C5 17 1C 04 9F 20 31 35 |M TEMP%...... 15|
00000FC0: 2C 38 2C 31 35 00 EB 17 1E 04 9F 20 35 2C 38 2C |,8,15...... 5,8,|
00000FD0: 35 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 2C 22 |5,"0:".FILE$.","|
00000FE0: AA 54 59 50 45 24 AA 22 2C 57 22 00 F5 17 20 04 |.TYPE$.",W"... .|
00000FF0: 8D 20 39 38 30 00 14 18 21 04 99 20 22 20 20 20 |. 980...!.. " |
00001000: 20 20 4E 4F 57 20 57 52 49 54 49 4E 47 20 2E 20 | NOW WRITING . |
00001010: 2E 20 2E 22 00 1C 18 22 04 4A B2 31 00 30 18 24 |. ."...".J.1.0.$|
00001020: 04 98 35 2C C7 28 54 45 4D 50 25 28 4A 29 29 3B |..5,.(TEMP%(J));|
00001030: 00 3A 18 26 04 4A B2 4A AA 31 00 4B 18 28 04 8B |.:.&.J.J.1.K.(..|
00001040: 20 4A B3 49 20 A7 20 31 30 36 30 00 76 18 2A 04 | J.I . 1060.v.*.|
00001050: 99 3A 99 20 22 46 49 4C 45 3D 20 22 3B 46 49 4C |.:. "FILE= ";FIL|
00001060: 45 24 2C 22 42 59 54 45 53 3D 22 3B 4A 3A A0 20 |E$,"BYTES=";J:. |
00001070: 35 3A A0 20 31 35 00 7C 18 2C 04 8E 00 82 18 4C |5:. 15.|.,.....L|
00001080: 04 8E 00 A7 18 B0 04 8F 20 2A 2A 2A 20 43 4F 50 |........ *** COP|
00001090: 59 20 42 4F 54 48 20 44 4F 53 20 50 52 4F 47 52 |Y BOTH DOS PROGR|
000010A0: 41 4D 53 20 2A 2A 2A 00 E0 18 B5 04 99 20 22 93 |AMS ***...... ".|
000010B0: 22 3A 99 20 22 49 4E 53 45 52 54 20 53 4F 55 52 |":. "INSERT SOUR|
000010C0: 43 45 20 44 49 53 4B 20 57 49 54 47 45 20 57 45 |CE DISK WITGE WE|
000010D0: 44 47 45 20 41 4E 44 2F 4F 52 20 44 4F 53 22 3B |DGE AND/OR DOS";|
000010E0: 00 0C 19 BA 04 99 20 22 50 52 49 4E 54 20 50 52 |...... "PRINT PR|
000010F0: 4F 47 52 41 4D 28 53 29 20 41 4E 44 20 50 52 45 |OGRAM(S) AND PRE|
00001100: 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 26 19 BF |SS <RETURN>".&..|
00001110: 04 A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 |.. W$:. W$."" . |
00001120: 89 20 31 32 31 35 00 34 19 C2 04 54 59 50 45 24 |. 1215.4...TYPE$|
00001130: B2 22 50 22 00 5D 19 C3 04 8B 20 43 30 B2 31 20 |."P".].... C0.1 |
00001140: A7 20 46 49 4C 45 24 B2 22 56 49 43 2D 32 30 20 |. FILE$."VIC-20 |
00001150: 57 45 44 47 45 22 3A 89 20 31 32 33 35 00 7B 19 |WEDGE":. 1235.{.|
00001160: C4 04 46 49 4C 45 24 B2 22 43 2D 36 34 20 57 45 |..FILE$."C-64 WE|
00001170: 44 47 45 22 3A 8D 20 31 30 30 30 00 C1 19 C9 04 |DGE":. 1000.....|
00001180: 81 20 43 B2 31 20 A4 20 36 34 3A 44 4F 53 25 28 |. C.1 . 64:DOS%(|
00001190: 43 29 B2 54 45 4D 50 25 28 43 29 3A 82 20 43 3A |C).TEMP%(C):. C:|
000011A0: 8F 20 4D 4F 56 45 20 43 2D 36 34 20 57 45 44 47 |. MOVE C-64 WEDG|
000011B0: 45 20 54 4F 20 53 4D 41 4C 4C 20 42 55 46 46 45 |E TO SMALL BUFFE|
000011C0: 52 00 D5 19 CE 04 46 49 4C 45 24 B2 22 44 4F 53 |R.....FILE$."DOS|
000011D0: 20 35 2E 31 22 00 0E 1A D3 04 8D 20 31 30 30 30 | 5.1"...... 1000|
000011E0: 3A 99 3A 99 20 22 49 4E 53 45 52 54 20 44 45 53 |:.:. "INSERT DES|
000011F0: 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 41 4E |TINATION DISK AN|
00001200: 44 20 50 52 45 53 53 20 3C 52 45 54 3E 22 00 28 |D PRESS <RET>".(|
00001210: 1A D8 04 A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 |.... W$:. W$."" |
00001220: A7 20 89 20 31 32 34 30 00 3E 1A DD 04 8D 20 31 |. . 1240.>.... 1|
00001230: 30 35 30 3A 8B 20 43 30 B2 31 20 A7 20 8E 00 62 |050:. C0.1 . ..b|
00001240: 1A E2 04 81 20 43 B2 31 20 A4 20 36 34 3A 54 45 |.... C.1 . 64:TE|
00001250: 4D 50 25 28 43 29 B2 44 4F 53 25 28 43 29 3A 82 |MP%(C).DOS%(C):.|
00001260: 20 43 00 98 1A E7 04 46 49 4C 45 24 B2 22 43 2D | C.....FILE$."C-|
00001270: 36 34 20 57 45 44 47 45 22 3A 49 B2 36 34 3A 8D |64 WEDGE":I.64:.|
00001280: 20 31 30 35 30 3A 8F 20 57 52 49 54 45 20 43 2D | 1050:. WRITE C-|
00001290: 36 34 20 57 45 44 47 45 00 9E 1A 0A 05 8E 00 B9 |64 WEDGE........|
000012A0: 1A D0 07 99 22 93 22 3A 99 22 44 49 53 4B 20 54 |....".":."DISK T|
000012B0: 4F 20 54 41 50 45 22 3A 99 00 D0 1A D3 07 8D 20 |O TAPE":....... |
000012C0: 32 31 30 30 3A 8F 20 46 49 4C 45 20 44 45 46 2E |2100:. FILE DEF.|
000012D0: 00 E6 1A D6 07 9F 20 31 35 2C 38 2C 31 35 3A 49 |...... 15,8,15:I|
000012E0: B2 30 3A 4F B2 30 00 0C 1B D9 07 9F 20 35 2C 38 |.0:O.0...... 5,8|
000012F0: 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 2C |,5,"0:".FILE$.",|
00001300: 22 AA 54 59 50 45 24 AA 22 2C 52 22 00 16 1B DC |".TYPE$.",R"....|
00001310: 07 8D 20 39 38 30 00 28 1B DF 07 9F 20 31 2C 31 |.. 980.(.... 1,1|
00001320: 2C 31 2C 46 49 4C 45 24 00 39 1B E2 07 A1 23 35 |,1,FILE$.9....#5|
00001330: 2C 41 24 3A 49 B2 49 AA 31 00 43 1B E4 07 53 42 |,A$:I.I.1.C...SB|
00001340: B2 53 54 00 58 1B E6 07 8B 20 53 42 20 B3 B1 20 |.ST.X.... SB .. |
00001350: 30 20 A7 20 32 30 33 31 00 69 1B EB 07 98 31 2C |0 . 2031.i....1,|
00001360: 41 24 3B C7 28 31 33 29 3B 00 73 1B EC 07 4F B2 |A$;.(13);.s...O.|
00001370: 4F AA 31 00 7E 1B ED 07 89 20 32 30 31 38 00 AB |O.1.~.... 2018..|
00001380: 1B EF 07 99 3A 99 22 46 49 4C 45 3D 3F 20 22 3B |....:."FILE=? ";|
00001390: 46 49 4C 45 24 2C 22 53 54 3D 22 3B 53 42 2C 22 |FILE$,"ST=";SB,"|
000013A0: 42 59 54 45 53 3D 22 3B 49 3B 4F 00 B3 1B F0 07 |BYTES=";I;O.....|
000013B0: A0 20 35 00 BC 1B F1 07 A0 20 31 35 00 C4 1B F2 |. 5...... 15....|
000013C0: 07 A0 20 31 00 E1 1B F3 07 99 22 53 41 4D 45 20 |.. 1......"SAME |
000013D0: 46 55 4E 43 54 49 4F 4E 3F 20 59 20 4F 52 20 4E |FUNCTION? Y OR N|
000013E0: 22 00 EA 1B F4 07 85 20 58 24 00 00 1C F5 07 8B |"...... X$......|
000013F0: 20 58 24 20 B2 20 22 59 22 20 89 20 32 30 30 30 | X$ . "Y" . 2000|
00001400: 00 06 1C F6 07 8E 00 2E 1C 34 08 99 3A 99 22 49 |.........4..:."I|
00001410: 4E 50 55 54 20 4E 41 4D 45 20 4F 46 20 46 49 4C |NPUT NAME OF FIL|
00001420: 45 20 54 4F 20 42 45 20 44 55 4D 50 3A 22 00 3A |E TO BE DUMP:".:|
00001430: 1C 3E 08 85 20 46 49 4C 45 24 00 57 1C 3F 08 99 |.>.. FILE$.W.?..|
00001440: 3A 99 22 20 20 20 49 4E 50 55 54 20 46 49 4C 45 |:." INPUT FILE|
00001450: 20 54 59 50 45 3A 22 00 78 1C 40 08 99 22 50 3D | TYPE:".x.@.."P=|
00001460: 50 52 4F 47 20 53 3D 53 45 51 20 55 3D 55 53 45 |PROG S=SEQ U=USE|
00001470: 52 20 52 3D 52 45 4C 22 00 84 1C 41 08 85 20 54 |R R=REL"...A.. T|
00001480: 59 50 45 24 00 8A 1C 42 08 8E 00 A3 1C C4 09 99 |YPE$...B........|
00001490: 22 93 22 3A 99 22 54 41 50 45 20 54 4F 20 44 49 |".":."TAPE TO DI|
000014A0: 53 4B 22 00 AE 1C C6 09 8D 20 32 31 30 30 00 C4 |SK"...... 2100..|
000014B0: 1C CA 09 9F 20 31 35 2C 38 2C 31 35 3A 49 B2 30 |.... 15,8,15:I.0|
000014C0: 3A 4F B2 30 00 EA 1C CD 09 9F 20 35 2C 38 2C 35 |:O.0...... 5,8,5|
000014D0: 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 2C 22 AA |,"0:".FILE$.",".|
000014E0: 54 59 50 45 24 AA 22 2C 57 22 00 F4 1C D0 09 8D |TYPE$.",W"......|
000014F0: 20 39 38 30 00 06 1D D3 09 9F 20 31 2C 31 2C 30 | 980...... 1,1,0|
00001500: 2C 46 49 4C 45 24 00 17 1D D6 09 A1 23 31 2C 41 |,FILE$......#1,A|
00001510: 24 3A 49 B2 49 AA 31 00 21 1D D9 09 53 42 B2 53 |$:I.I.1.!...SB.S|
00001520: 54 00 35 1D DC 09 8B 20 53 42 B3 B1 20 30 20 A7 |T.5.... SB.. 0 .|
00001530: 20 32 30 33 31 00 46 1D DF 09 98 35 2C 41 24 3B | 2031.F....5,A$;|
00001540: C7 28 31 33 29 3B 00 50 1D E0 09 4F B2 4F AA 31 |.(13);.P...O.O.1|
00001550: 00 5B 1D E1 09 89 20 32 35 31 38 00 8B 1D E3 09 |.[.... 2518.....|
00001560: 99 3A 99 22 46 49 4C 45 3D 3F 20 22 3B 46 49 4C |.:."FILE=? ";FIL|
00001570: 45 24 2C 22 53 54 3D 22 3B 53 54 3B 53 42 2C 22 |E$,"ST=";ST;SB,"|
00001580: 42 59 54 45 53 3D 22 3B 49 3B 4F 00 93 1D E4 09 |BYTES=";I;O.....|
00001590: A0 20 35 00 9C 1D E5 09 A0 20 31 35 00 A4 1D E6 |. 5...... 15....|
000015A0: 09 A0 20 31 00 C1 1D E7 09 99 22 53 41 4D 45 20 |.. 1......"SAME |
000015B0: 46 55 4E 43 54 49 4F 4E 3F 20 59 20 4F 52 20 4E |FUNCTION? Y OR N|
000015C0: 22 00 CA 1D E8 09 85 20 58 24 00 DF 1D E9 09 8B |"...... X$......|
000015D0: 20 58 24 20 B2 22 59 22 20 89 20 32 35 30 30 00 | X$ ."Y" . 2500.|
000015E0: E5 1D EA 09 8E 00 00 00 |........ |
..).... 49152,10:. B(49152)..10 . C0.1:.
6.2...C0.2.A.... DOS%(65).B...FR..(0):.
FR.0 . FR.FR.65536.....S.(FR.400).2:M2..
(S.256).1...... TEMP%(S)......".";......
" ******************".R...." *DISK/TAP
E MANAGER"......" ******************"..
.2..:."1.DISK DIRECTORY".!.<.."2.FORMAT
NEW DISK".:.F.."3.INITIALIZE DISK".Z.P..
"4.COPY FILE ON SAME DISK"...U.."5.COPY
FILE ON NEW (FORMATTED) DISK"...X.."6.CO
PY BOTH DOS WEDGE PROGRAMS"...Z.."7.RENA
ME FILE".W.D.."8.ERASE FILE(S)"...N.."9.
VALIDATE FILES"...X.."10.WRITE DISK MANA
GER".#...."11.ERROR STATUS".;...."12.EXI
T TO BASIC".S...."13.DISK TO TAPE ".N...
."14.TAPE TO DISK ":.:......"CHOICE .
...";CHOICE...... (CHOICE.1).(CHOICE.14)
. .".";:. 170...H.. CHOICE . 250,300,350
,400,800,1200,450,500,550,600,650,700,20
00,2500...R.. 10.'.... ***DISPLAY DIRECT
ORY ***.0....".".@.... 1,8,0,"$".O.... #
1,A$,B$.]....#1,A$,B$.K....#1,A$,B$.....
C.0:. A$.."". C. F(A$)...... B$.."". C.C
. F(B$).256...... J(D(C),2);.3);.Q....#1
,B$:. ST..0 . 282...... B$.. G(34) . 264
......#1,B$:. B$.. G(34) . . B$;:. 268.,
.... #1,B$:. B$. G(32) . 270.>.... .18);
:C$."".A...C$.C$.B$:. #1,B$:. B$.."". 27
4.O.... H(C$,3)...... ST.0 . 254......"
BLOCKS FREE "..... 1:.:.:."HIT ANY KEY
TO RETURN".O.".. X$:.X$."". 290.U.'.....
,.. *** FORMAT (NEW) DISK ***...-..".".'
.1.."INSERT DISK TO BE":."FORMATTED.":..
F.6.."INPUT DISK NAME":. DISK$.J.@..:."I
NPUT EXTENDER NAME":. EXT$...E.MACRO$."N
0:".DISK$.",".EXT$...J.. 15,8,15,MACRO$.
..T. 15:MACRO$."":..R.^.. *** INITIALIZ
E DISK ***...C.."."...H.."INSERT DISK TO
BE":."INITIALIZED.":..0.R.."HIT <RETURN
> TO":."INITIALIZE":. X$.A.|..15,8,15,"I
".L... 15:..Q.... *** COPY FILE ON SAME
DISK ***.~....".":.:......."INPUT SOURC
E FILE NAME":. DISK$.H....:."INPUT NEW F
ILE NAME":. NWS$.....MACRO$."C:".NWS$."=
".DISK$...... 15,8,15,MACRO$..... 15:MA
CRO$."":..+.B.. *** RENAME FILE ***.6.G.
.".":..Y.L.."INPUT OLD FILE NAME":. DISK
$.}.V..:."INPUT NEW FILE NAME":. NWS$...
..MACRO$."R:".NWS$."=".DISK$...... 15,8,
15,MACRO$.E... 15:MACRO$."":....... ***
ERASE FILE ***......".":.:......."INPUT
FILE NAME(S) TO DELETE":. DISK$.8....:.:
."HIT ANY KEY TO DELETE".O.... X$:. X$."
" . 525.F...MACRO$."S0:".DISK$.{.... 15,
8,15,MACRO$..... 15:MACRO$."":....&.. *
** VALIDATE FILES ***...+..".":.:....0..
"WARNING:OPEN FILES ":."WILL BE DELETED"
...:..:.:."HIT ANY KEY TO VALIDATE".".?.
. X$:. X$."" . 575.3.D.. 1,8,15,"V".<.N.
1:..B.X.. ** WRITE DISKMANAGER PROGRAM
**.O.]..".":.:....B.."INSERT DISK TO BE
WRITTEN TO.":..C.L..:.:."HIT ANY KEY TO
WRITE DISK MANAGER".Z.N.. X$:. X$."" . 6
22...Q.. 1,8,15...V.. "@0:DISKMANAGER",8
...{. 1.......1.... *** DISPLAY ERROR S
TATUS ***.>....15,8,15.R....15,A$,B$,C$,
D$._....".":.:......."ERROR STATUS: "B$
:.:."ERROR NUMBER: "A$......:.:."HIT AN
Y KEY TO RETURN".F.... X$:. X$."". 695.Q
... 15:....... *** RETURN TO BASIC ***.
..A..".":.:....F...NO....R..M.Q>....:.?.
.2..6....6....3...3.;.".... ":..........
..>.?6...?..73..36......"........"......
...........K........M.......7..........3
.?..?6...=..........3....6...6...7.....3
......D.Q.....7..J.7..O.$.....#.......??
..7.....M COPY SIZE OF "M2" BLOCKS,";.2.
(.."TURN COMPUTER OFF/ON AND RELOAD PROG
.".N.)..:." READ/WRITE RATE IS APPROXIM
ATELY 6 BLOCKS/MINUTE"...*..:. "INPUT NA
ME OF FILE TO BE COPIED"...4.. FILE$.A.>
..:." INPUT FILE TYPE:".W.H.." P P
ROGRAM"...R.." S SEQUENTIAL"...\.."
U USER"...F.. " R RELATIVE".'.P.
. TYPE$.W.Z..:. "INSERT SOURCE DISK AND
PRESS <RETURN>".P.... W$:. W$."" . . 900
...... 1000:. READ FILE INTO TEMP.C....:
. "INSERT DESTINATION DISK AND PRESS <RE
T>"...... W$:. W$."" . . 930...... 1050:
. WRITE FILE FROM TEMP$. ....:. "MAKE AN
OTHER COPY";:.W$.:.... H(W$,1)."Y" . . 9
20.E.J.. 1100.A.T.. - CHECK FOR GOOD OPE
N.U.Y..15,A$,B$,C$,D$...... E(A$).0 . ..
.... A$,B$,C$,D$: 15:....... - READ FI
LE INTO TEM%.D...I.1.R.... 15,8,15......
5,8,5,"0:".FILE$.",".TYPE$.",R"...... 9
80......" NOW READING. . .".*....#5,
A$.B...TEMP%(I).F(A$.G(0)).L...I.I.1.^..
.. ST.0 . 1010......:. "FILE=? ";FILE$,"
ST=";ST,"BYTES=";I: 5: 15............
- WRITE FILE FROM TEMP%.E.... 15,8,15...
... 5,8,5,"0:".FILE$.",".TYPE$.",W"... .
. 980...!.. " NOW WRITING . . ."..."
.J.1.0.$..5,G(TEMP%(J));.:.&.J.J.1.K.(..
J.I . 1060.V.*..:. "FILE= ";FILE$,"BYTE
S=";J: 5: 15.|.,.....L........ *** COP
Y BOTH DOS PROGRAMS ***...... ".":. "INS
ERT SOURCE DISK WITGE WEDGE AND/OR DOS";
...... "PRINT PROGRAM(S) AND PRESS <RETU
RN>".&.... W$:. W$."" . . 1215.4.B.TYPE$
."P".].C.. C0.1 . FILE$."VIC-20 WEDGE":.
1235.{.D.FILE$."C-64 WEDGE":. 1000.A.I.
. C.1 . 64:DOS%(C).TEMP%(C):. C:. MOVE C
-64 WEDGE TO SMALL BUFFER.U.N.FILE$."DOS
5.1"...S.. 1000:.:. "INSERT DESTINATION
DISK AND PRESS <RET>".(.X.. W$:. W$.""
. . 1240.>.... 1050:. C0.1 . ..B.... C.1
. 64:TEMP%(C).DOS%(C):. C.....FILE$."C-
64 WEDGE":I.64:. 1050:. WRITE C-64 WEDGE
.........P..".":."DISK TO TAPE":..P.S..
2100:. FILE DEF....V.. 15,8,15:I.0:O.0..
.Y.. 5,8,5,"0:".FILE$.",".TYPE$.",R"....
.. 980.(.... 1,1,1,FILE$.9....#5,A$:I.I.
1.C...SB.ST.X.... SB .. 0 . 2031.I....1,
A$;G(13);.S...O.O.1.~.... 2018......:."F
ILE=? ";FILE$,"ST=";SB,"BYTES=";I;O.....
5..... 15.D... 1......"SAME FUNCTION
? Y OR N"...... X$...... X$ . "Y" . 2000
.........4..:."INPUT NAME OF FILE TO BE
DUMP:".:.>.. FILE$.W.?..:." INPUT FILE
TYPE:".X.@.."P=PROG S=SEQ U=USER R=REL"
...A.. TYPE$...B.....D..".":."TAPE TO DI
SK"...F.. 2100.D.J.. 15,8,15:I.0:O.0...M
.. 5,8,5,"0:".FILE$.",".TYPE$.",W"...P..
980...S.. 1,1,0,FILE$...V..#1,A$:I.I.1.
!.Y.SB.ST.5.... SB.. 0 . 2031.F....5,A$;
G(13);.P...O.O.1.[.... 2518......:."FILE
=? ";FILE$,"ST=";ST;SB,"BYTES=";I;O.....
5..... 15..... 1.A...."SAME FUNCTION
? Y OR N".J.... X$...... X$ ."Y" . 2500.
........
> CLICK IMAGE PREVIEW FOR FULL MODAL