DM
FILE INFORMATION
FILENAME(S): DM
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 18:13:09
APPEARS ON: 1 disk(s)
FILE HASH
28ef28a56e5a3f2fb20eda437ebcb80ba9fdd3e8279f6bec5cf241e3ab347acb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY PROGRAMS | DM | PRG | Sailor, Ganheden | 25 | 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 45 08 05 00 43 30 |. C0.1:.6.E...C0|
00000030: B2 32 3A 97 35 33 32 38 30 2C 31 33 3A 97 35 33 |.2:.53280,13:.53|
00000040: 32 38 31 2C 30 00 54 08 06 00 86 20 44 4F 53 25 |281,0.T.... DOS%|
00000050: 28 36 35 29 00 75 08 07 00 46 52 B2 B8 28 30 29 |(65).u...FR..(0)|
00000060: 3A 8B 20 46 52 B3 30 20 A7 20 46 52 B2 46 52 AA |:. FR.0 . FR.FR.|
00000070: 36 35 35 33 36 00 94 08 08 00 53 B2 28 46 52 AB |65536.....S.(FR.|
00000080: 34 30 30 29 AD 32 3A 4D 32 B2 B5 28 53 AD 32 35 |400).2:M2..(S.25|
00000090: 36 29 AA 31 00 A7 08 09 00 86 20 54 45 4D 25 28 |6).1...... TEM%(|
000000A0: 53 29 3A 99 22 05 22 00 B1 08 0A 00 99 22 93 22 |S):."."......"."|
000000B0: 3B 00 D0 08 0F 00 99 A3 38 29 22 20 20 2A 2A 2A |;.......8)" ***|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
000000D0: 00 EF 08 14 00 99 A3 38 29 22 20 20 2A 20 20 44 |.......8)" * D|
000000E0: 49 53 4B 20 4D 41 4E 41 47 45 52 20 20 2A 22 00 |ISK MANAGER *".|
000000F0: 0E 09 19 00 99 A3 38 29 22 20 20 2A 2A 2A 2A 2A |......8)" *****|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 2D |*************".-|
00000110: 09 32 00 99 3A 99 22 12 1E 20 31 20 92 20 44 49 |.2..:.".. 1 . DI|
00000120: 53 4B 20 44 49 52 45 43 54 4F 52 59 22 00 4B 09 |SK DIRECTORY".K.|
00000130: 3C 00 99 22 12 9E 20 32 20 92 20 46 4F 52 4D 41 |<..".. 2 . FORMA|
00000140: 54 20 4E 45 57 20 44 49 53 4B 22 00 69 09 46 00 |T NEW DISK".i.F.|
00000150: 99 22 12 05 20 33 20 92 20 49 4E 49 54 49 41 4C |.".. 3 . INITIAL|
00000160: 49 5A 45 20 44 49 53 4B 22 00 8D 09 50 00 99 22 |IZE DISK"...P.."|
00000170: 12 20 34 20 92 20 43 4F 50 59 20 46 49 4C 45 20 |. 4 . COPY FILE |
00000180: 4F 4E 20 53 41 4D 45 20 44 49 53 4B 22 00 BC 09 |ON SAME DISK"...|
00000190: 55 00 99 22 12 20 35 20 92 20 43 4F 50 59 20 46 |U..". 5 . COPY F|
000001A0: 49 4C 45 20 4F 4E 20 4E 45 57 20 28 46 4F 52 4D |ILE ON NEW (FORM|
000001B0: 41 54 54 45 44 29 20 44 49 53 4B 22 00 E6 09 58 |ATTED) DISK"...X|
000001C0: 00 99 22 12 20 36 20 92 20 43 4F 50 59 20 42 4F |..". 6 . COPY BO|
000001D0: 54 48 20 44 4F 53 20 57 45 44 47 45 20 50 52 4F |TH DOS WEDGE PRO|
000001E0: 47 52 41 4D 53 22 00 FF 09 5A 00 99 22 12 20 37 |GRAMS"...Z..". 7|
000001F0: 20 92 20 52 45 4E 41 4D 45 20 46 49 4C 45 22 00 | . RENAME FILE".|
00000200: 1B 0A 64 00 99 22 12 9E 20 38 20 92 20 45 52 41 |..d..".. 8 . ERA|
00000210: 53 45 20 46 49 4C 45 28 53 29 22 00 38 0A 6E 00 |SE FILE(S)".8.n.|
00000220: 99 22 12 05 20 39 20 92 20 56 41 4C 49 44 41 54 |.".. 9 . VALIDAT|
00000230: 45 20 46 49 4C 45 53 22 00 59 0A 78 00 99 22 12 |E FILES".Y.x..".|
00000240: 20 31 30 20 92 20 57 52 49 54 45 20 44 49 53 4B | 10 . WRITE DISK|
00000250: 20 4D 41 4E 41 47 45 52 22 00 74 0A 82 00 99 22 | MANAGER".t...."|
00000260: 12 20 31 31 20 92 20 45 52 52 4F 52 20 53 54 41 |. 11 . ERROR STA|
00000270: 54 55 53 22 00 98 0A 8C 00 99 22 12 9E 20 31 32 |TUS"......".. 12|
00000280: 20 92 20 45 58 49 54 20 54 4F 20 42 41 53 49 43 | . EXIT TO BASIC|
00000290: 22 3A 99 3A 99 22 05 22 00 B5 0A AA 00 85 22 43 |":.:."."......"C|
000002A0: 48 4F 49 43 45 20 20 20 20 9D 9D 9D 9D 22 3B 43 |HOICE ....";C|
000002B0: 48 4F 49 43 45 00 DF 0A B4 00 8B 20 28 43 48 4F |HOICE...... (CHO|
000002C0: 49 43 45 B3 31 29 B0 28 43 48 4F 49 43 45 B1 31 |ICE.1).(CHOICE.1|
000002D0: 32 29 A7 20 99 22 91 22 3B 3A 89 20 31 37 30 00 |2). .".";:. 170.|
000002E0: 1F 0B C8 00 91 20 43 48 4F 49 43 45 20 8D 20 32 |..... CHOICE . 2|
000002F0: 35 30 2C 33 30 30 2C 33 35 30 2C 34 30 30 2C 38 |50,300,350,400,8|
00000300: 30 30 2C 31 32 30 30 2C 34 35 30 2C 35 30 30 2C |00,1200,450,500,|
00000310: 35 35 30 2C 36 30 30 2C 36 35 30 2C 37 30 30 00 |550,600,650,700.|
00000320: 28 0B D2 00 89 20 31 30 00 46 0B FA 00 8F 2A 2A |(.... 10.F....**|
00000330: 2A 20 44 49 53 50 4C 41 59 20 44 49 52 45 43 54 |* DISPLAY DIRECT|
00000340: 4F 52 59 2A 2A 2A 00 4F 0B FB 00 99 22 93 22 00 |ORY***.O....".".|
00000350: 5F 0B FC 00 9F 20 31 2C 38 2C 30 2C 22 24 22 00 |_.... 1,8,0,"$".|
00000360: 6E 0B FD 00 A1 20 23 31 2C 41 24 2C 42 24 00 7C |n.... #1,A$,B$.||
00000370: 0B FE 00 A1 23 31 2C 41 24 2C 42 24 00 8B 0B 00 |....#1,A$,B$....|
00000380: 01 A1 20 23 31 2C 41 24 2C 42 24 00 A6 0B 02 01 |.. #1,A$,B$.....|
00000390: 43 B2 30 3A 8B 20 41 24 B3 B1 22 22 A7 20 43 B2 |C.0:. A$.."". C.|
000003A0: 20 C6 28 41 24 29 00 C3 0B 04 01 8B 20 42 24 B3 | .(A$)...... B$.|
000003B0: B1 22 22 A7 20 43 B2 43 AA 20 C6 28 42 24 29 AC |."". C.C. .(B$).|
000003C0: 32 35 36 00 D8 0B 06 01 99 20 CA 28 C4 28 43 29 |256...... .(.(C)|
000003D0: 2C 32 29 3B A3 33 29 3B 00 F1 0B 08 01 A1 23 31 |,2);.3);......#1|
000003E0: 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 A7 20 32 38 |,B$:. ST..0 . 28|
000003F0: 32 00 08 0C 0A 01 8B 20 42 24 B3 B1 20 C7 28 33 |2...... B$.. .(3|
00000400: 34 29 20 A7 20 32 36 34 00 2E 0C 0C 01 A1 20 23 |4) . 264...... #|
00000410: 31 2C 42 24 3A 8B 20 42 24 B3 B1 20 C7 28 33 34 |1,B$:. B$.. .(34|
00000420: 29 20 A7 20 99 42 24 3B 3A 89 20 32 36 38 00 4C |) . .B$;:. 268.L|
00000430: 0C 0E 01 A1 20 23 31 2C 42 24 3A 8B 20 42 24 B2 |.... #1,B$:. B$.|
00000440: 20 C7 28 33 32 29 20 A7 20 32 37 30 00 5E 0C 10 | .(32) . 270.^..|
00000450: 01 99 20 A3 31 38 29 3B 3A 43 24 B2 22 22 00 82 |.. .18);:C$.""..|
00000460: 0C 12 01 43 24 B2 43 24 AA 42 24 3A A1 20 23 31 |...C$.C$.B$:. #1|
00000470: 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 32 |,B$:. B$.."" . 2|
00000480: 37 34 00 90 0C 14 01 99 20 C8 28 43 24 2C 33 29 |74...... .(C$,3)|
00000490: 00 A1 0C 18 01 8B 20 53 54 B2 30 20 A7 20 32 35 |...... ST.0 . 25|
000004A0: 34 00 B6 0C 1A 01 99 22 20 42 4C 4F 43 4B 53 20 |4......" BLOCKS |
000004B0: 46 52 45 45 20 22 00 DB 0C 1C 01 A0 20 31 3A 99 |FREE "...... 1:.|
000004C0: 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 |:.:."HIT ANY KEY|
000004D0: 20 54 4F 20 52 45 54 55 52 4E 22 00 F0 0C 22 01 | TO RETURN"...".|
000004E0: A1 20 58 24 3A 8B 58 24 B2 22 22 A7 20 32 39 30 |. X$:.X$."". 290|
000004F0: 00 F6 0C 27 01 8E 00 16 0D 2C 01 8F 20 2A 2A 2A |...'.....,.. ***|
00000500: 20 46 4F 52 4D 41 54 20 28 4E 45 57 29 20 44 49 | FORMAT (NEW) DI|
00000510: 53 4B 20 2A 2A 2A 00 1F 0D 2D 01 99 22 93 22 00 |SK ***...-..".".|
00000520: 48 0D 31 01 99 22 49 4E 53 45 52 54 20 44 49 53 |H.1.."INSERT DIS|
00000530: 4B 20 54 4F 20 42 45 22 3A 99 22 46 4F 52 4D 41 |K TO BE":."FORMA|
00000540: 54 54 45 44 2E 22 3A 99 00 67 0D 36 01 99 22 49 |TTED.":..g.6.."I|
00000550: 4E 50 55 54 20 44 49 53 4B 20 4E 41 4D 45 22 3A |NPUT DISK NAME":|
00000560: 85 20 44 49 53 4B 24 00 8B 0D 40 01 99 3A 99 22 |. DISK$...@..:."|
00000570: 49 4E 50 55 54 20 45 58 54 45 4E 44 45 52 20 4E |INPUT EXTENDER N|
00000580: 41 4D 45 22 3A 85 20 45 58 54 24 00 AB 0D 45 01 |AME":. EXT$...E.|
00000590: 4D 41 43 52 4F 24 B2 22 4E 30 3A 22 AA 44 49 53 |MACRO$."N0:".DIS|
000005A0: 4B 24 AA 22 2C 22 AA 45 58 54 24 00 C0 0D 4A 01 |K$.",".EXT$...J.|
000005B0: 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 |. 15,8,15,MACRO$|
000005C0: 00 D5 0D 54 01 A0 20 31 35 3A 4D 41 43 52 4F 24 |...T.. 15:MACRO$|
000005D0: B2 22 22 3A 8E 00 F3 0D 5E 01 8F 20 2A 2A 2A 20 |."":....^.. *** |
000005E0: 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 20 |INITIALIZE DISK |
000005F0: 2A 2A 2A 00 FC 0D 63 01 99 22 93 22 00 27 0E 68 |***...c..".".'.h|
00000600: 01 99 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 |.."INSERT DISK T|
00000610: 4F 20 42 45 22 3A 99 22 49 4E 49 54 49 41 4C 49 |O BE":."INITIALI|
00000620: 5A 45 44 2E 22 3A 99 00 51 0E 72 01 99 22 48 49 |ZED.":..Q.r.."HI|
00000630: 54 20 3C 52 45 54 55 52 4E 3E 20 54 4F 22 3A 99 |T <RETURN> TO":.|
00000640: 22 49 4E 49 54 49 41 4C 49 5A 45 22 3A 85 20 58 |"INITIALIZE":. X|
00000650: 24 00 63 0E 7C 01 9F 20 31 35 2C 38 2C 31 35 2C |$.c.|.. 15,8,15,|
00000660: 22 49 22 00 6E 0E 86 01 A0 20 31 35 3A 8E 00 93 |"I".n.... 15:...|
00000670: 0E 90 01 8F 20 2A 2A 2A 20 43 4F 50 59 20 46 49 |.... *** COPY FI|
00000680: 4C 45 20 4F 4E 20 53 41 4D 45 20 44 49 53 4B 20 |LE ON SAME DISK |
00000690: 2A 2A 2A 00 A0 0E 95 01 99 22 93 22 3A 99 3A 99 |***......".":.:.|
000006A0: 00 C6 0E 9A 01 99 22 49 4E 50 55 54 20 53 4F 55 |......"INPUT SOU|
000006B0: 52 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 3A 85 |RCE FILE NAME":.|
000006C0: 20 44 49 53 4B 24 00 EA 0E A4 01 99 3A 99 22 49 | DISK$......:."I|
000006D0: 4E 50 55 54 20 4E 45 57 20 46 49 4C 45 20 4E 41 |NPUT NEW FILE NA|
000006E0: 4D 45 22 3A 85 20 4E 57 53 24 00 09 0F A9 01 4D |ME":. NWS$.....M|
000006F0: 41 43 52 4F 24 B2 22 43 3A 22 AA 4E 57 53 24 AA |ACRO$."C:".NWS$.|
00000700: 22 3D 22 AA 44 49 53 4B 24 00 1E 0F AE 01 9F 20 |"=".DISK$...... |
00000710: 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 33 |15,8,15,MACRO$.3|
00000720: 0F B8 01 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 |.... 15:MACRO$."|
00000730: 22 3A 8E 00 4D 0F C2 01 8F 20 2A 2A 2A 20 52 45 |":..M.... *** RE|
00000740: 4E 41 4D 45 20 46 49 4C 45 20 2A 2A 2A 00 58 0F |NAME FILE ***.X.|
00000750: C7 01 99 22 93 22 3A 99 00 7B 0F CC 01 99 22 49 |...".":..{...."I|
00000760: 4E 50 55 54 20 4F 4C 44 20 46 49 4C 45 20 4E 41 |NPUT OLD FILE NA|
00000770: 4D 45 22 3A 85 20 44 49 53 4B 24 00 9F 0F D6 01 |ME":. DISK$.....|
00000780: 99 3A 99 22 49 4E 50 55 54 20 4E 45 57 20 46 49 |.:."INPUT NEW FI|
00000790: 4C 45 20 4E 41 4D 45 22 3A 85 20 4E 57 53 24 00 |LE NAME":. NWS$.|
000007A0: BE 0F DB 01 4D 41 43 52 4F 24 B2 22 52 3A 22 AA |....MACRO$."R:".|
000007B0: 4E 57 53 24 AA 22 3D 22 AA 44 49 53 4B 24 00 D3 |NWS$."=".DISK$..|
000007C0: 0F E0 01 9F 20 31 35 2C 38 2C 31 35 2C 4D 41 43 |.... 15,8,15,MAC|
000007D0: 52 4F 24 00 E8 0F EA 01 A0 20 31 35 3A 4D 41 43 |RO$...... 15:MAC|
000007E0: 52 4F 24 B2 22 22 3A 8E 00 01 10 F4 01 8F 20 2A |RO$."":....... *|
000007F0: 2A 2A 20 45 52 41 53 45 20 46 49 4C 45 20 2A 2A |** ERASE FILE **|
00000800: 2A 00 0E 10 F9 01 99 22 93 22 3A 99 3A 99 00 3A |*......".":.:..:|
00000810: 10 FE 01 99 22 49 4E 50 55 54 20 46 49 4C 45 20 |...."INPUT FILE |
00000820: 4E 41 4D 45 28 53 29 20 54 4F 20 44 45 4C 45 54 |NAME(S) TO DELET|
00000830: 45 22 3A 85 20 44 49 53 4B 24 00 5B 10 08 02 99 |E":. DISK$.[....|
00000840: 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 4B 45 59 |:.:."HIT ANY KEY|
00000850: 20 54 4F 20 44 45 4C 45 54 45 22 00 72 10 0D 02 | TO DELETE".r...|
00000860: A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 35 |. X$:. X$."" . 5|
00000870: 32 35 00 89 10 12 02 4D 41 43 52 4F 24 B2 22 53 |25.....MACRO$."S|
00000880: 30 3A 22 AA 44 49 53 4B 24 00 9E 10 17 02 9F 20 |0:".DISK$...... |
00000890: 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 B3 |15,8,15,MACRO$..|
000008A0: 10 1C 02 A0 20 31 35 3A 4D 41 43 52 4F 24 B2 22 |.... 15:MACRO$."|
000008B0: 22 3A 8E 00 D0 10 26 02 8F 20 2A 2A 2A 20 56 41 |":....&.. *** VA|
000008C0: 4C 49 44 41 54 45 20 46 49 4C 45 53 20 2A 2A 2A |LIDATE FILES ***|
000008D0: 00 DD 10 2B 02 99 22 93 22 3A 99 3A 99 00 14 11 |...+..".":.:....|
000008E0: 30 02 99 22 12 9E 20 57 41 52 4E 49 4E 47 3A 4F |0..".. WARNING:O|
000008F0: 50 45 4E 20 46 49 4C 45 53 20 22 3A 99 22 12 9E |PEN FILES ":."..|
00000900: 20 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 | WILL BE DELETED|
00000910: 20 92 05 22 00 37 11 3A 02 99 3A 99 3A 99 22 48 | ..".7.:..:.:."H|
00000920: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 56 41 |IT ANY KEY TO VA|
00000930: 4C 49 44 41 54 45 22 00 4E 11 3F 02 A1 20 58 24 |LIDATE".N.?.. X$|
00000940: 3A 8B 20 58 24 B2 22 22 20 A7 20 35 37 35 00 5F |:. X$."" . 575._|
00000950: 11 44 02 9F 20 31 2C 38 2C 31 35 2C 22 56 22 00 |.D.. 1,8,15,"V".|
00000960: 69 11 4E 02 A0 20 31 3A 8E 00 8F 11 58 02 8F 20 |i.N.. 1:....X.. |
00000970: 2A 2A 20 57 52 49 54 45 20 44 49 53 4B 4D 41 4E |** WRITE DISKMAN|
00000980: 41 47 45 52 20 50 52 4F 47 52 41 4D 20 2A 2A 00 |AGER PROGRAM **.|
00000990: 9C 11 5D 02 99 22 93 22 3A 99 3A 99 00 C3 11 62 |..]..".":.:....b|
000009A0: 02 99 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 |.."INSERT DISK T|
000009B0: 4F 20 42 45 20 57 52 49 54 54 45 4E 20 54 4F 2E |O BE WRITTEN TO.|
000009C0: 22 3A 99 00 F0 11 6C 02 99 3A 99 3A 99 22 48 49 |":....l..:.:."HI|
000009D0: 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 57 52 49 |T ANY KEY TO WRI|
000009E0: 54 45 20 44 49 53 4B 20 4D 41 4E 41 47 45 52 22 |TE DISK MANAGER"|
000009F0: 00 07 12 6E 02 A1 20 58 24 3A 8B 20 58 24 B2 22 |...n.. X$:. X$."|
00000A00: 22 20 A7 20 36 32 32 00 14 12 71 02 9F 20 31 2C |" . 622...q.. 1,|
00000A10: 38 2C 31 35 00 2D 12 76 02 94 20 22 40 30 3A 44 |8,15.-.v.. "@0:D|
00000A20: 49 53 4B 4D 41 4E 41 47 45 52 22 2C 38 00 35 12 |ISKMANAGER",8.5.|
00000A30: 7B 02 A0 20 31 00 3B 12 80 02 8E 00 5E 12 8A 02 |{.. 1.;.....^...|
00000A40: 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 45 52 |. *** DISPLAY ER|
00000A50: 52 4F 52 20 53 54 41 54 55 53 20 2A 2A 2A 00 6B |ROR STATUS ***.k|
00000A60: 12 8F 02 9F 31 35 2C 38 2C 31 35 00 7F 12 94 02 |....15,8,15.....|
00000A70: 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 |.15,A$,B$,C$,D$.|
00000A80: 8C 12 9E 02 99 22 93 22 3A 99 3A 99 00 BC 12 A8 |.....".":.:.....|
00000A90: 02 99 22 45 52 52 4F 52 20 53 54 41 54 55 53 3A |.."ERROR STATUS:|
00000AA0: 20 20 22 42 24 3A 99 3A 99 22 45 52 52 4F 52 20 | "B$:.:."ERROR |
00000AB0: 4E 55 4D 42 45 52 3A 20 20 22 41 24 00 DD 12 B2 |NUMBER: "A$....|
00000AC0: 02 99 3A 99 3A 99 22 48 49 54 20 41 4E 59 20 4B |..:.:."HIT ANY K|
00000AD0: 45 59 20 54 4F 20 52 45 54 55 52 4E 22 00 F3 12 |EY TO RETURN"...|
00000AE0: B7 02 A1 20 58 24 3A 8B 20 58 24 B2 22 22 A7 20 |... X$:. X$."". |
00000AF0: 36 39 35 00 FE 12 B9 02 A0 20 31 35 3A 8E 00 1C |695...... 15:...|
00000B00: 13 BC 02 8F 20 2A 2A 2A 20 52 45 54 55 52 4E 20 |.... *** RETURN |
00000B10: 54 4F 20 42 41 53 49 43 20 2A 2A 2A 00 29 13 C1 |TO BASIC ***.)..|
00000B20: 02 99 22 93 22 3A 99 3A 99 00 5C 13 C6 02 99 20 |..".":.:..\.... |
00000B30: 22 4E 4F 54 45 3A 44 49 53 4B 4D 41 4E 41 47 45 |"NOTE:DISKMANAGE|
00000B40: 52 20 50 52 4F 47 52 41 4D 20 49 53 20 53 54 49 |R PROGRAM IS STI|
00000B50: 4C 4C 20 52 45 53 49 44 45 4E 54 22 00 62 13 D0 |LL RESIDENT".b..|
00000B60: 02 80 00 86 13 20 03 8F 20 2A 2A 2A 20 43 4F 50 |..... .. *** COP|
00000B70: 59 20 46 49 4C 45 20 4F 4E 20 4E 45 57 20 44 49 |Y FILE ON NEW DI|
00000B80: 53 4B 20 2A 2A 2A 00 90 13 21 03 99 20 22 93 22 |SK ***...!.. "."|
00000B90: 00 99 13 22 03 A0 20 31 35 00 AA 13 23 03 4D 41 |...".. 15...#.MA|
00000BA0: 58 B2 B5 28 53 AD 32 35 36 29 00 D6 13 24 03 99 |X..(S.256)...$..|
00000BB0: 20 22 20 20 4D 41 58 49 4D 55 4D 20 53 49 5A 45 | " MAXIMUM SIZE|
00000BC0: 20 4F 46 20 46 49 4C 45 20 57 48 49 43 48 20 43 | OF FILE WHICH C|
00000BD0: 41 4E 20 42 45 22 00 F7 13 25 03 99 22 43 4F 50 |AN BE"...%.."COP|
00000BE0: 49 45 44 20 49 53 20 22 4D 41 58 22 20 42 4C 4F |IED IS "MAX" BLO|
00000BF0: 43 4B 53 2E 22 3A 99 00 0D 14 26 03 8B 20 4D 41 |CKS.":....&.. MA|
00000C00: 58 B1 B2 4D 32 20 A7 20 89 20 38 30 39 00 3D 14 |X..M2 . . 809.=.|
00000C10: 27 03 99 20 22 20 20 46 4F 52 20 4D 41 58 49 4D |'.. " FOR MAXIM|
00000C20: 55 4D 20 43 4F 50 59 20 53 49 5A 45 20 4F 46 20 |UM COPY SIZE OF |
00000C30: 22 4D 32 22 20 42 4C 4F 43 4B 53 2C 22 00 6B 14 |"M2" BLOCKS,".k.|
00000C40: 28 03 99 20 22 54 55 52 4E 20 43 4F 4D 50 55 54 |(.. "TURN COMPUT|
00000C50: 45 52 20 4F 46 46 2F 4F 4E 20 41 4E 44 20 52 45 |ER OFF/ON AND RE|
00000C60: 4C 4F 41 44 20 50 52 4F 47 2E 22 00 9A 14 29 03 |LOAD PROG."...).|
00000C70: 99 3A 99 22 20 20 52 45 41 44 2F 57 52 49 54 45 |.:." READ/WRITE|
00000C80: 20 52 41 54 45 20 49 53 20 41 50 50 52 4F 58 49 | RATE IS APPROXI|
00000C90: 4D 41 54 45 4C 59 20 20 36 22 00 AF 14 2A 03 99 |MATELY 6"...*..|
00000CA0: 22 42 4C 4F 43 4B 53 2F 4D 49 4E 55 54 45 22 00 |"BLOCKS/MINUTE".|
00000CB0: D9 14 2B 03 99 3A 99 20 22 49 4E 50 55 54 20 4E |..+..:. "INPUT N|
00000CC0: 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 |AME OF FILE TO B|
00000CD0: 45 20 43 4F 50 49 45 44 22 00 E5 14 34 03 85 20 |E COPIED"...4.. |
00000CE0: 46 49 4C 45 24 00 03 15 3E 03 99 3A 99 20 22 20 |FILE$...>..:. " |
00000CF0: 20 20 49 4E 50 55 54 20 46 49 4C 45 20 54 59 50 | INPUT FILE TYP|
00000D00: 45 3A 22 00 1A 15 48 03 99 20 22 20 20 20 20 20 |E:"...H.. " |
00000D10: 50 20 50 52 4F 47 52 41 4D 22 00 34 15 52 03 99 |P PROGRAM".4.R..|
00000D20: 20 22 20 20 20 20 20 53 20 53 45 51 55 45 4E 54 | " S SEQUENT|
00000D30: 49 41 4C 22 00 48 15 5C 03 99 20 22 20 20 20 20 |IAL".H.\.. " |
00000D40: 20 55 20 55 53 45 52 22 00 60 15 66 03 99 20 22 | U USER".`.f.. "|
00000D50: 20 20 20 20 20 52 20 52 45 4C 41 54 49 56 45 22 | R RELATIVE"|
00000D60: 00 6C 15 70 03 85 20 54 59 50 45 24 00 9C 15 7A |.l.p.. TYPE$...z|
00000D70: 03 99 3A 99 20 22 49 4E 53 45 52 54 20 53 4F 55 |..:. "INSERT SOU|
00000D80: 52 43 45 20 44 49 53 4B 20 41 4E 44 20 50 52 45 |RCE DISK AND PRE|
00000D90: 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 B5 15 84 |SS <RETURN>"....|
00000DA0: 03 A1 20 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 |.. W$:. W$."" . |
00000DB0: 89 20 39 30 30 00 D6 15 8E 03 8D 20 31 30 30 30 |. 900...... 1000|
00000DC0: 3A 8F 20 52 45 41 44 20 46 49 4C 45 20 49 4E 54 |:. READ FILE INT|
00000DD0: 4F 20 54 45 4D 50 00 09 16 98 03 99 3A 99 20 22 |O TEMP......:. "|
00000DE0: 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 |INSERT DESTINATI|
00000DF0: 4F 4E 20 44 49 53 4B 20 20 41 4E 44 20 50 52 45 |ON DISK AND PRE|
00000E00: 53 53 20 3C 52 45 54 3E 22 00 22 16 A2 03 A1 20 |SS <RET>".".... |
00000E10: 57 24 3A 8B 20 57 24 B2 22 22 20 A7 20 89 20 39 |W$:. W$."" . . 9|
00000E20: 33 30 00 44 16 AC 03 8D 20 31 30 35 30 3A 8F 20 |30.D.... 1050:. |
00000E30: 57 52 49 54 45 20 46 49 4C 45 20 46 52 4F 4D 20 |WRITE FILE FROM |
00000E40: 54 45 4D 24 00 65 16 B6 03 99 3A 99 20 22 4D 41 |TEM$.e....:. "MA|
00000E50: 4B 45 20 41 4E 4F 54 48 45 52 20 43 4F 50 59 22 |KE ANOTHER COPY"|
00000E60: 3B 3A 85 57 24 00 7F 16 C0 03 8B 20 C8 28 57 24 |;:.W$...... .(W$|
00000E70: 2C 31 29 B2 22 59 22 20 A7 20 89 20 39 32 30 00 |,1)."Y" . . 920.|
00000E80: 8A 16 CA 03 89 20 31 31 30 30 00 A6 16 D4 03 8F |..... 1100......|
00000E90: 20 2D 20 43 48 45 43 4B 20 46 4F 52 20 47 4F 4F | - CHECK FOR GOO|
00000EA0: 44 20 4F 50 45 4E 00 BA 16 D9 03 84 31 35 2C 41 |D OPEN......15,A|
00000EB0: 24 2C 42 24 2C 43 24 2C 44 24 00 CC 16 DE 03 8B |$,B$,C$,D$......|
00000EC0: 20 C5 28 41 24 29 B2 30 20 A7 20 8E 00 E5 16 E3 | .(A$).0 . .....|
00000ED0: 03 99 20 41 24 2C 42 24 2C 43 24 2C 44 24 3A A0 |.. A$,B$,C$,D$:.|
00000EE0: 20 31 35 3A 90 00 01 17 E8 03 8F 20 2D 20 52 45 | 15:....... - RE|
00000EF0: 41 44 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D |AD FILE INTO TEM|
00000F00: 25 00 09 17 EA 03 49 B2 31 00 17 17 EC 03 9F 20 |%.....I.1...... |
00000F10: 31 35 2C 38 2C 31 35 00 3D 17 EE 03 9F 20 35 2C |15,8,15.=.... 5,|
00000F20: 38 2C 35 2C 22 30 3A 22 AA 46 49 4C 45 24 AA 22 |8,5,"0:".FILE$."|
00000F30: 2C 22 AA 54 59 50 45 24 AA 22 2C 52 22 00 47 17 |,".TYPE$.",R".G.|
00000F40: F0 03 8D 20 39 38 30 00 66 17 F1 03 99 20 22 20 |... 980.f.... " |
00000F50: 20 20 20 20 4E 4F 57 20 52 45 41 44 49 4E 47 20 | NOW READING |
00000F60: 2E 20 2E 20 2E 22 00 71 17 F2 03 A1 23 35 2C 41 |. . .".q....#5,A|
00000F70: 24 00 88 17 F4 03 54 45 4D 25 28 49 29 B2 C6 28 |$.....TEM%(I)..(|
00000F80: 41 24 AA C7 28 30 29 29 00 92 17 F6 03 49 B2 49 |A$..(0)).....I.I|
00000F90: AA 31 00 A4 17 F8 03 8B 20 53 54 B2 30 20 A7 20 |.1...... ST.0 . |
00000FA0: 31 30 31 30 00 BA 17 FA 03 99 3A 99 22 46 49 4C |1010......:."FIL|
00000FB0: 45 3D 20 22 3B 46 49 4C 45 24 00 C8 17 FB 03 99 |E= ";FILE$......|
00000FC0: 22 53 54 3D 22 3B 53 54 00 DF 17 FC 03 99 22 42 |"ST=";ST......"B|
00000FD0: 59 54 45 53 3D 22 3B 49 3A A0 35 3A A0 31 35 00 |YTES=";I:.5:.15.|
00000FE0: E5 17 FE 03 8E 00 02 18 1A 04 8F 20 2D 20 57 52 |........... - WR|
00000FF0: 49 54 45 20 46 49 4C 45 20 46 52 4F 4D 20 54 45 |ITE FILE FROM TE|
00001000: 4D 25 00 10 18 1C 04 9F 20 31 35 2C 38 2C 31 35 |M%...... 15,8,15|
00001010: 00 36 18 1E 04 9F 20 35 2C 38 2C 35 2C 22 30 3A |.6.... 5,8,5,"0:|
00001020: 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 |".FILE$.",".TYPE|
00001030: 24 AA 22 2C 57 22 00 40 18 20 04 8D 20 39 38 30 |$.",W".@. .. 980|
00001040: 00 5F 18 21 04 99 20 22 20 20 20 20 20 4E 4F 57 |._.!.. " NOW|
00001050: 20 57 52 49 54 49 4E 47 20 2E 20 2E 20 2E 22 00 | WRITING . . .".|
00001060: 67 18 22 04 4A B2 31 00 7A 18 24 04 98 35 2C C7 |g.".J.1.z.$..5,.|
00001070: 28 54 45 4D 25 28 4A 29 29 3B 00 84 18 26 04 4A |(TEM%(J));...&.J|
00001080: B2 4A AA 31 00 95 18 28 04 8B 20 4A B3 49 20 A7 |.J.1...(.. J.I .|
00001090: 20 31 30 36 30 00 C0 18 2A 04 99 3A 99 20 22 46 | 1060...*..:. "F|
000010A0: 49 4C 45 3D 20 22 3B 46 49 4C 45 24 2C 22 42 59 |ILE= ";FILE$,"BY|
000010B0: 54 45 53 3D 22 3B 4A 3A A0 20 35 3A A0 20 31 35 |TES=";J:. 5:. 15|
000010C0: 00 C6 18 2C 04 8E 00 CC 18 4C 04 8E 00 F0 18 B0 |...,.....L......|
000010D0: 04 8F 20 2A 2A 2A 43 4F 50 59 20 42 4F 54 48 20 |.. ***COPY BOTH |
000010E0: 44 4F 53 20 50 52 4F 47 52 41 4D 53 20 2A 2A 2A |DOS PROGRAMS ***|
000010F0: 00 28 19 B5 04 99 20 22 93 22 3A 99 20 22 49 4E |.(.... ".":. "IN|
00001100: 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 4B |SERT SOURCE DISK|
00001110: 20 57 49 54 48 20 57 45 44 47 45 20 41 4E 44 2F | WITH WEDGE AND/|
00001120: 4F 52 20 44 4F 53 22 3B 00 4F 19 BA 04 99 20 22 |OR DOS";.O.... "|
00001130: 20 50 52 4F 47 52 41 4D 28 53 29 20 41 4E 44 20 | PROGRAM(S) AND |
00001140: 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 00 |PRESS <RETURN>".|
00001150: 69 19 BF 04 A1 20 57 24 3A 8B 20 57 24 B2 22 22 |i.... W$:. W$.""|
00001160: 20 A7 20 89 20 31 32 31 35 00 77 19 C2 04 54 59 | . . 1215.w...TY|
00001170: 50 45 24 B2 22 50 22 00 A0 19 C3 04 8B 20 43 30 |PE$."P"...... C0|
00001180: B2 31 20 A7 20 46 49 4C 45 24 B2 22 56 49 43 2D |.1 . FILE$."VIC-|
00001190: 32 30 20 57 45 44 47 45 22 3A 89 20 31 32 33 35 |20 WEDGE":. 1235|
000011A0: 00 BE 19 C4 04 46 49 4C 45 24 B2 22 43 2D 36 34 |.....FILE$."C-64|
000011B0: 20 57 45 44 47 45 22 3A 8D 20 31 30 30 30 00 03 | WEDGE":. 1000..|
000011C0: 1A C9 04 81 20 43 B2 31 20 A4 20 36 34 3A 44 4F |.... C.1 . 64:DO|
000011D0: 53 25 28 43 29 B2 54 45 4D 25 28 43 29 3A 82 20 |S%(C).TEM%(C):. |
000011E0: 43 3A 8F 20 4D 4F 56 45 20 43 2D 36 34 20 57 45 |C:. MOVE C-64 WE|
000011F0: 44 47 45 20 54 4F 20 53 4D 41 4C 4C 20 42 55 46 |DGE TO SMALL BUF|
00001200: 46 45 52 00 17 1A CE 04 46 49 4C 45 24 B2 22 44 |FER.....FILE$."D|
00001210: 4F 53 20 35 2E 31 22 00 50 1A D3 04 8D 20 31 30 |OS 5.1".P.... 10|
00001220: 30 30 3A 99 3A 99 20 22 49 4E 53 45 52 54 20 44 |00:.:. "INSERT D|
00001230: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 |ESTINATION DISK |
00001240: 41 4E 44 20 50 52 45 53 53 20 3C 52 45 54 3E 22 |AND PRESS <RET>"|
00001250: 00 6A 1A D8 04 A1 20 57 24 3A 8B 20 57 24 B2 22 |.j.... W$:. W$."|
00001260: 22 20 A7 20 89 20 31 32 34 30 00 80 1A DD 04 8D |" . . 1240......|
00001270: 20 31 30 35 30 3A 8B 20 43 30 B2 31 20 A7 20 8E | 1050:. C0.1 . .|
00001280: 00 A3 1A E2 04 81 20 43 B2 31 20 A4 20 36 34 3A |...... C.1 . 64:|
00001290: 54 45 4D 25 28 43 29 B2 44 4F 53 25 28 43 29 3A |TEM%(C).DOS%(C):|
000012A0: 82 20 43 00 D9 1A E7 04 46 49 4C 45 24 B2 22 43 |. C.....FILE$."C|
000012B0: 2D 36 34 20 57 45 44 47 45 22 3A 49 B2 36 34 3A |-64 WEDGE":I.64:|
000012C0: 8D 20 31 30 35 30 3A 8F 20 57 52 49 54 45 20 43 |. 1050:. WRITE C|
000012D0: 2D 36 34 20 57 45 44 47 45 00 DF 1A 0A 05 8E 00 |-64 WEDGE.......|
000012E0: 02 1B 51 27 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 |..Q',8,5,"0:".FI|
000012F0: 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C |LE$.",".TYPE$.",|
00001300: 52 22 00 00 00 |R"... |
..).... 49152,10:. B(49152)..10 . C0.1:.
6.E...C0.2:.53280,13:.53281,0.T.... DOS%
(65).U...FR..(0):. FR.0 . FR.FR.65536...
..S.(FR.400).2:M2..(S.256).1...... TEM%(
S):."."......".";.P.....8)" ***********
*******".......8)" * DISK MANAGER *".
......8)" ******************".-.2..:.".
. 1 . DISK DIRECTORY".K.<..".. 2 . FORMA
T NEW DISK".I.F..".. 3 . INITIALIZE DISK
"...P..". 4 . COPY FILE ON SAME DISK"...
U..". 5 . COPY FILE ON NEW (FORMATTED) D
ISK"...X..". 6 . COPY BOTH DOS WEDGE PRO
GRAMS"...Z..". 7 . RENAME FILE"...D.."..
8 . ERASE FILE(S)".8.N..".. 9 . VALIDAT
E FILES".Y.X..". 10 . WRITE DISK MANAGER
".T....". 11 . ERROR STATUS"......".. 12
. EXIT TO BASIC":.:."."......"CHOICE
....";CHOICE...... (CHOICE.1).(CHOICE.1
2). .".";:. 170...H.. CHOICE . 250,300,3
50,400,800,1200,450,500,550,600,650,700.
(.R.. 10.F....*** DISPLAY DIRECTORY***.O
...."."._.... 1,8,0,"$".N.... #1,A$,B$.|
....#1,A$,B$...... #1,A$,B$.....C.0:. A$
.."". C. F(A$).C.... B$.."". C.C. F(B$).
256.X.... J(D(C),2);.3);......#1,B$:. ST
..0 . 282...... B$.. G(34) . 264...... #
1,B$:. B$.. G(34) . .B$;:. 268.L.... #1,
B$:. B$. G(32) . 270.^.... .18);:C$.""..
...C$.C$.B$:. #1,B$:. B$.."" . 274......
H(C$,3)...... ST.0 . 254......" BLOCKS
FREE "..... 1:.:.:."HIT ANY KEY TO RETU
RN"...".. X$:.X$."". 290...'.....,.. ***
FORMAT (NEW) DISK ***...-..".".H.1.."IN
SERT DISK TO BE":."FORMATTED.":..G.6.."I
NPUT DISK NAME":. DISK$...@..:."INPUT EX
TENDER NAME":. EXT$...E.MACRO$."N0:".DIS
K$.",".EXT$...J.. 15,8,15,MACRO$.U.T. 1
5:MACRO$."":....^.. *** INITIALIZE DISK
***...C..".".'.H.."INSERT DISK TO BE":."
INITIALIZED.":..Q.R.."HIT <RETURN> TO":.
"INITIALIZE":. X$.C.|.. 15,8,15,"I".N...
15:....... *** COPY FILE ON SAME DISK
***. ....".":.:..F...."INPUT SOURCE FILE
NAME":. DISK$......:."INPUT NEW FILE NA
ME":. NWS$.....MACRO$."C:".NWS$."=".DISK
$...... 15,8,15,MACRO$.3... 15:MACRO$."
":..M.B.. *** RENAME FILE ***.X.G..".":.
.{.L.."INPUT OLD FILE NAME":. DISK$...V.
.:."INPUT NEW FILE NAME":. NWS$.....MACR
O$."R:".NWS$."=".DISK$.S.... 15,8,15,MAC
RO$..... 15:MACRO$."":....... *** ERASE
FILE ***......".":.:..:...."INPUT FILE
NAME(S) TO DELETE":. DISK$.[....:.:."HIT
ANY KEY TO DELETE".R.... X$:. X$."" . 5
25.....MACRO$."S0:".DISK$...... 15,8,15,
MACRO$..... 15:MACRO$."":..P.&.. *** VA
LIDATE FILES ***...+..".":.:....0..".. W
ARNING:OPEN FILES ":.".. WILL BE DELETED
..".7.:..:.:."HIT ANY KEY TO VALIDATE".
N.?.. X$:. X$."" . 575._.D.. 1,8,15,"V".
I.N. 1:....X.. ** WRITE DISKMANAGER PRO
GRAM **...]..".":.:..C.B.."INSERT DISK T
O BE WRITTEN TO.":....L..:.:."HIT ANY KE
Y TO WRITE DISK MANAGER"...N.. X$:. X$."
" . 622...Q.. 1,8,15.-.V.. "@0:DISKMANAG
ER",8.5.{. 1.;.....^.... *** DISPLAY ER
ROR STATUS ***.K....15,8,15.....15,A$,B
$,C$,D$......".":.:......."ERROR STATUS:
"B$:.:."ERROR NUMBER: "A$......:.:."H
IT ANY KEY TO RETURN"...... X$:. X$."".
695..... 15:....... *** RETURN TO BASIC
***.).A..".":.:..\.F.. "NOTE:DISKMANAGE
R PROGRAM IS STILL RESIDENT".B.P..... ..
*** COPY FILE ON NEW DISK ***...!.. "."
...". 15...#.MAX..(S.256).V.$.. " MAXI
MUM SIZE OF FILE WHICH CAN BE"...%.."COP
IED IS "MAX" BLOCKS.":....&.. MAX..M2 .
. 809.=.'.. " FOR MAXIMUM COPY SIZE OF
"M2" BLOCKS,".K.(.. "TURN COMPUTER OFF/O
N AND RELOAD PROG."...)..:." READ/WRITE
RATE IS APPROXIMATELY 6"...*.."BLOCKS/
MINUTE".Y.+..:. "INPUT NAME OF FILE TO B
E COPIED"...4.. FILE$...>..:. " INPUT
FILE TYPE:"...H.. " P PROGRAM".4.R..
" S SEQUENTIAL".H.\.. " U USER"
.`.F.. " R RELATIVE".L.P.. TYPE$...Z
..:. "INSERT SOURCE DISK AND PRESS <RETU
RN>"...... W$:. W$."" . . 900.V.... 1000
:. READ FILE INTO TEMP......:. "INSERT D
ESTINATION DISK AND PRESS <RET>"."....
W$:. W$."" . . 930.D.... 1050:. WRITE FI
LE FROM TEM$.E....:. "MAKE ANOTHER COPY"
;:.W$..... H(W$,1)."Y" . . 920...J.. 11
00...T.. - CHECK FOR GOOD OPEN...Y..15,A
$,B$,C$,D$.L.... E(A$).0 . ....... A$,B$
,C$,D$: 15:....... - READ FILE INTO TEM
%.....I.1...... 15,8,15.=.... 5,8,5,"0:"
.FILE$.",".TYPE$.",R".G.... 980.F.... "
NOW READING . . .".Q....#5,A$.....TE
M%(I).F(A$.G(0)).....I.I.1...... ST.0 .
1010......:."FILE= ";FILE$.H...."ST=";ST
......"BYTES=";I: 5: 15............ - WR
ITE FILE FROM TEM%...... 15,8,15.6.... 5
,8,5,"0:".FILE$.",".TYPE$.",W".@. .. 980
._.!.. " NOW WRITING . . .".G.".J.1.
Z.$..5,G(TEM%(J));...&.J.J.1...(.. J.I .
1060...*..:. "FILE= ";FILE$,"BYTES=";J:
5: 15.F.,...L.L........ ***COPY BOTH
DOS PROGRAMS ***.(.... ".":. "INSERT SOU
RCE DISK WITH WEDGE AND/OR DOS";.O.... "
PROGRAM(S) AND PRESS <RETURN>".I.... W$
:. W$."" . . 1215.W.B.TYPE$."P". .C.. C0
.1 . FILE$."VIC-20 WEDGE":. 1235...D.FIL
E$."C-64 WEDGE":. 1000...I.. C.1 . 64:DO
S%(C).TEM%(C):. C:. MOVE C-64 WEDGE TO S
MALL BUFFER...N.FILE$."DOS 5.1".P.S.. 10
00:.:. "INSERT DESTINATION DISK AND PRES
S <RET>".J.X.. W$:. W$."" . . 1240......
1050:. C0.1 . ....... C.1 . 64:TEM%(C).
DOS%(C):. C.Y...FILE$."C-64 WEDGE":I.64:
. 1050:. WRITE C-64 WEDGE.........Q',8,5
,"0:".FILE$.",".TYPE$.",R"...
> CLICK IMAGE PREVIEW FOR FULL MODAL