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

DISK MENU

FILE INFORMATION

FILENAME(S): DISK MENU

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 21:05:39

APPEARS ON: 1 disk(s)

FILE HASH

d6009917bf8549cd7d8d1df7742d10a679add8ce9a196bc8a9e4c4482dc059a1

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITIE DISK MENU PRG DuncanTwain 29 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1D 08 64 00 97 35  33 32 38 31 2C 31 3A 97  |....d..53281,1:.|
00000010: 20 35 33 32 38 30 2C 31  3A 99 22 1F 22 00 26 08  | 53280,1:.".".&.|
00000020: 6E 00 99 22 93 22 00 57  08 78 00 99 22 B7 B7 B7  |n..".".W.x.."...|
00000030: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 B7  |................|
00000040: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 B7  |................|
00000050: B7 B7 B7 B7 B7 22 3B 00  5D 08 82 00 99 00 78 08  |.....";.].....x.|
00000060: 8C 00 99 22 20 20 20 4C  20 2D 20 4C 49 53 54 20  |..."   L - LIST |
00000070: 43 41 54 41 4C 4F 47 22  00 9A 08 96 00 99 22 20  |CATALOG"......" |
00000080: 20 20 46 20 2D 20 46 4F  52 4D 41 54 54 45 45 52  |  F - FORMATTEER|
00000090: 20 44 49 53 4B 45 54 54  45 22 00 BA 08 A0 00 99  | DISKETTE"......|
000000A0: 22 20 20 20 49 20 2D 20  49 4E 49 54 49 45 45 52  |"   I - INITIEER|
000000B0: 20 44 49 53 4B 45 54 54  45 22 00 D2 08 AA 00 99  | DISKETTE"......|
000000C0: 22 20 20 20 43 20 2D 20  43 4F 50 59 20 46 49 4C  |"   C - COPY FIL|
000000D0: 45 22 00 EC 08 B4 00 99  22 20 20 20 52 20 2D 20  |E"......"   R - |
000000E0: 52 45 4E 41 4D 45 20 46  49 4C 45 22 00 06 09 BE  |RENAME FILE"....|
000000F0: 00 99 22 20 20 20 44 20  2D 20 44 45 4C 45 54 45  |.."   D - DELETE|
00000100: 20 46 49 4C 45 22 00 2E  09 C8 00 99 22 20 20 20  | FILE"......"   |
00000110: 56 20 2D 20 56 41 4C 49  44 41 54 45 20 46 49 4C  |V - VALIDATE FIL|
00000120: 45 53 20 28 43 4F 4D 50  52 45 53 53 29 22 00 48  |ES (COMPRESS)".H|
00000130: 09 D2 00 99 22 20 20 20  45 20 2D 20 45 52 52 4F  |...."   E - ERRO|
00000140: 52 20 4D 4F 44 45 4C 22  00 5B 09 DC 00 99 22 20  |R MODEL".[...." |
00000150: 20 20 58 20 2D 20 45 58  49 54 22 00 6B 09 E6 00  |  X - EXIT".k...|
00000160: 81 58 B2 31 A4 31 31 3A  99 3A 82 00 9C 09 F0 00  |.X.1.11:.:......|
00000170: 99 22 AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |."..............|
00000180: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
00000190: AF AF AF AF AF AF AF AF  AF AF 22 3B 00 BC 09 FA  |..........";....|
000001A0: 00 99 20 22 43 42 4D 2D  36 34 2F 56 43 2D 31 35  |.. "CBM-64/VC-15|
000001B0: 34 31 20 53 59 53 54 45  45 4D 22 3B 00 CB 09 04  |41 SYSTEEM";....|
000001C0: 01 43 48 4F 49 43 45 24  B2 22 22 00 E7 09 0E 01  |.CHOICE$."".....|
000001D0: 85 22 13 4F 50 54 49 4F  4E 20 3D 3D 3D 3E 22 3B  |.".OPTION ===>";|
000001E0: 43 48 4F 49 43 45 24 00  01 0A 18 01 8B 20 43 48  |CHOICE$...... CH|
000001F0: 4F 49 43 45 24 B2 22 44  22 20 A7 20 8D 20 38 33  |OICE$."D" . . 83|
00000200: 30 00 1B 0A 22 01 8B 20  43 48 4F 49 43 45 24 B2  |0...".. CHOICE$.|
00000210: 22 56 22 20 A7 20 8D 20  38 38 30 00 35 0A 2C 01  |"V" . . 880.5.,.|
00000220: 8B 20 43 48 4F 49 43 45  24 B2 22 52 22 20 A7 20  |. CHOICE$."R" . |
00000230: 8D 20 37 37 30 00 4F 0A  36 01 8B 20 43 48 4F 49  |. 770.O.6.. CHOI|
00000240: 43 45 24 B2 22 4C 22 20  A7 20 8D 20 33 38 30 00  |CE$."L" . . 380.|
00000250: 69 0A 40 01 8B 20 43 48  4F 49 43 45 24 B2 22 49  |i.@.. CHOICE$."I|
00000260: 22 20 A7 20 8D 20 36 36  30 00 83 0A 4A 01 8B 20  |" . . 660...J.. |
00000270: 43 48 4F 49 43 45 24 B2  22 43 22 20 A7 20 8D 20  |CHOICE$."C" . . |
00000280: 37 31 30 00 9E 0A 54 01  8B 20 43 48 4F 49 43 45  |710...T.. CHOICE|
00000290: 24 B2 22 58 22 20 A7 20  8D 20 31 30 38 30 00 B9  |$."X" . . 1080..|
000002A0: 0A 5E 01 8B 20 43 48 4F  49 43 45 24 B2 22 45 22  |.^.. CHOICE$."E"|
000002B0: 20 A7 20 8D 20 31 30 30  30 00 D3 0A 68 01 8B 20  | . . 1000...h.. |
000002C0: 43 48 4F 49 43 45 24 B2  22 46 22 20 A7 20 8D 20  |CHOICE$."F" . . |
000002D0: 35 39 30 00 DD 0A 72 01  89 20 31 30 30 00 08 0B  |590...r.. 100...|
000002E0: 7C 01 5A 5A B2 30 3A 99  22 93 1E C3 C3 C3 C3 B2  ||.ZZ.0:.".......|
000002F0: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000300: C3 C3 B2 C3 C3 C3 C3 22  00 18 0B 86 01 9F 20 31  |......."...... 1|
00000310: 2C 38 2C 30 2C 22 24 22  00 27 0B 90 01 A1 20 23  |,8,0,"$".'.... #|
00000320: 31 2C 41 24 2C 42 24 00  36 0B 9A 01 A1 20 23 31  |1,A$,B$.6.... #1|
00000330: 2C 41 24 2C 42 24 00 45  0B A4 01 A1 20 23 31 2C  |,A$,B$.E.... #1,|
00000340: 41 24 2C 42 24 00 60 0B  AE 01 43 B2 30 3A 8B 20  |A$,B$.`...C.0:. |
00000350: 41 24 B3 B1 20 22 22 A7  20 43 B2 C6 28 41 24 29  |A$.. "". C..(A$)|
00000360: 00 7E 0B B8 01 8B 20 42  24 B3 B1 22 22 20 A7 20  |.~.... B$.."" . |
00000370: 43 20 B2 43 AA C6 28 42  24 29 AC 32 35 36 00 86  |C .C..(B$).256..|
00000380: 0B C2 01 5A B2 30 00 A1  0B CC 01 A1 20 23 31 2C  |...Z.0...... #1,|
00000390: 42 24 3A 8B 20 53 54 20  B3 B1 30 20 A7 20 35 36  |B$:. ST ..0 . 56|
000003A0: 30 00 CB 0B D6 01 8B 5A  B2 30 A7 5A B2 31 3A 99  |0......Z.0.Z.1:.|
000003B0: 22 1C 12 22 CA 28 C4 28  43 29 2C 32 29 3B A3 33  |"..".(.(C),2);.3|
000003C0: 29 3B 22 92 1E 20 C2 1F  20 22 3B 00 E1 0B E0 01  |);".. .. ";.....|
000003D0: 8B 20 42 24 20 B3 B1 20  C7 28 33 34 29 A7 34 36  |. B$ .. .(34).46|
000003E0: 30 00 08 0C EA 01 A1 20  23 31 2C 42 24 3A 8B 20  |0...... #1,B$:. |
000003F0: 42 24 B3 B1 20 C7 28 33  34 29 20 A7 20 99 42 24  |B$.. .(34) . .B$|
00000400: 3B 3A 20 89 20 34 39 30  00 2A 0C F4 01 A1 20 23  |;: . 490.*.... #|
00000410: 31 2C 42 24 3A 8B 20 42  24 B2 C7 28 33 32 29 A7  |1,B$:. B$..(32).|
00000420: 99 22 20 22 3B 3A 89 35  30 30 00 41 0C FE 01 99  |." ";:.500.A....|
00000430: A3 31 38 29 3B 22 1E C2  20 22 3B 3A 43 24 B2 22  |.18);".. ";:C$."|
00000440: 22 00 63 0C 08 02 43 24  B2 43 24 AA 42 24 3A A1  |".c...C$.C$.B$:.|
00000450: 20 23 31 2C 42 24 3A 8B  42 24 B3 B1 22 22 A7 20  | #1,B$:.B$.."". |
00000460: 35 32 30 00 74 0C 12 02  99 22 1E 12 22 C8 28 43  |520.t...."..".(C|
00000470: 24 2C 33 29 00 A3 0C 1C  02 8B 5A 5A B2 30 A7 99  |$,3)......ZZ.0..|
00000480: 22 C3 C3 C3 C3 DB C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |"...............|
00000490: C3 C3 C3 C3 C3 C3 C3 C3  DB C3 C3 C3 C3 22 3A 5A  |.............":Z|
000004A0: 5A B2 31 00 B4 0C 26 02  8B 20 53 54 B2 30 20 A7  |Z.1...&.. ST.0 .|
000004B0: 20 34 31 30 00 E7 0C 30  02 99 22 9D 9D 9D 9D 9D  | 410...0..".....|
000004C0: 9D 1E C3 C3 C3 C3 B1 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
000004D0: C3 C3 C3 C3 C3 C3 C3 C3  C3 B1 C3 C3 C3 C3 20 20  |..............  |
000004E0: 22 AA C7 28 31 33 29 00  1F 0D 3A 02 99 22 1E 90  |"..(13)...:.."..|
000004F0: 22 3B CA 28 C4 28 43 29  2C 32 29 3B 22 1E 20 42  |";.(.(C),2);". B|
00000500: 4C 4F 43 4B 53 20 56 52  49 4A 45 20 52 55 49 4D  |LOCKS VRIJE RUIM|
00000510: 54 45 20 4F 50 20 44 49  53 4B 45 54 54 45 22 00  |TE OP DISKETTE".|
00000520: 4C 0D 44 02 A0 20 31 3A  99 3A 99 3A 99 22 20 2A  |L.D.. 1:.:.:." *|
00000530: 2A 2A 22 3B 3A 97 31 39  38 2C 30 3A 92 20 31 39  |**";:.198,0:. 19|
00000540: 38 2C 31 3A 97 31 39 38  2C 30 3A 8E 00 59 0D 4E  |8,1:.198,0:..Y.N|
00000550: 02 99 22 93 22 3A 99 3A  99 00 88 0D 58 02 99 22  |..".":.:....X.."|
00000560: 20 50 4C 41 41 54 53 20  44 45 20 54 45 20 46 4F  | PLAATS DE TE FO|
00000570: 52 4D 2E 20 44 49 53 4B  45 54 54 45 20 49 4E 20  |RM. DISKETTE IN |
00000580: 44 52 49 56 45 22 3A 99  00 AC 0D 62 02 99 22 47  |DRIVE":....b.."G|
00000590: 45 45 46 20 4E 41 41 4D  20 44 49 53 4B 45 54 54  |EEF NAAM DISKETT|
000005A0: 45 20 22 3B 3A 85 20 44  49 53 4B 24 00 D1 0D 6C  |E ";:. DISK$...l|
000005B0: 02 99 3A 99 22 47 45 45  46 20 45 58 54 45 4E 44  |..:."GEEF EXTEND|
000005C0: 45 52 20 4E 41 41 4D 20  22 3B 3A 85 20 45 58 54  |ER NAAM ";:. EXT|
000005D0: 24 00 F0 0D 76 02 4D 41  43 52 4F 24 B2 22 4E 3A  |$...v.MACRO$."N:|
000005E0: 22 AA 44 49 53 4B 24 AA  22 2C 22 AA 45 58 54 24  |".DISK$.",".EXT$|
000005F0: 00 05 0E 80 02 9F 20 31  35 2C 38 2C 31 35 2C 4D  |...... 15,8,15,M|
00000600: 41 43 52 4F 24 00 1C 0E  8A 02 A0 20 31 35 3A 4D  |ACRO$...... 15:M|
00000610: 41 43 52 4F 24 B2 22 22  20 3A 20 8E 00 29 0E 94  |ACRO$."" : ..)..|
00000620: 02 99 22 93 22 3A 99 3A  99 00 57 0E 9E 02 99 22  |..".":.:..W...."|
00000630: 50 4C 41 41 54 53 20 44  45 20 54 45 20 49 4E 49  |PLAATS DE TE INI|
00000640: 54 2E 20 44 49 53 4B 45  54 54 45 20 49 4E 20 44  |T. DISKETTE IN D|
00000650: 52 49 56 45 22 3A 99 00  78 0E A8 02 99 22 20 2A  |RIVE":..x...." *|
00000660: 2A 2A 22 3A 97 31 39 38  2C 30 3A 92 31 39 38 2C  |**":.198,0:.198,|
00000670: 31 3A 97 31 39 38 2C 30  00 89 0E B2 02 9F 31 35  |1:.198,0......15|
00000680: 2C 38 2C 31 35 2C 22 49  22 00 94 0E BC 02 A0 20  |,8,15,"I"...... |
00000690: 31 35 3A 8E 00 A1 0E C6  02 99 22 93 22 3A 99 3A  |15:.......".":.:|
000006A0: 99 00 C7 0E D0 02 99 22  47 45 45 46 20 53 4F 55  |......."GEEF SOU|
000006B0: 52 43 45 20 46 49 4C 45  4E 41 41 4D 20 22 3B 3A  |RCE FILENAAM ";:|
000006C0: 85 20 44 49 53 4B 24 00  ED 0E DA 02 99 3A 99 22  |. DISK$......:."|
000006D0: 47 45 45 46 20 4E 49 45  55 57 45 20 46 49 4C 45  |GEEF NIEUWE FILE|
000006E0: 4E 41 41 4D 20 22 3B 3A  85 20 4E 57 24 00 0C 0F  |NAAM ";:. NW$...|
000006F0: E4 02 4D 41 43 52 4F 24  B2 22 43 3A 22 AA 4E 57  |..MACRO$."C:".NW|
00000700: 53 24 AA 22 3D 22 AA 44  49 53 4B 24 00 21 0F EE  |S$."=".DISK$.!..|
00000710: 02 9F 20 31 35 2C 38 2C  31 35 2C 4D 41 43 52 4F  |.. 15,8,15,MACRO|
00000720: 24 00 37 0F F8 02 A0 20  31 35 3A 20 4D 41 43 52  |$.7.... 15: MACR|
00000730: 4F 24 B2 22 22 3A 8E 00  44 0F 02 03 99 22 93 22  |O$."":..D...."."|
00000740: 3A 99 3A 99 00 74 0F 0C  03 99 22 47 45 45 46 20  |:.:..t...."GEEF |
00000750: 46 49 4C 45 4E 41 41 4D  20 54 45 20 52 45 4E 41  |FILENAAM TE RENA|
00000760: 4D 45 4E 20 46 49 4C 45  20 22 3B 3A 20 85 20 44  |MEN FILE ";: . D|
00000770: 49 53 4B 24 00 A3 0F 16  03 99 22 47 45 45 46 20  |ISK$......"GEEF |
00000780: 4E 49 45 55 57 45 20 46  49 4C 45 4E 41 41 4D 20  |NIEUWE FILENAAM |
00000790: 20 20 20 20 20 20 20 20  20 22 3B 3A 20 85 20 4E  |         ";: . N|
000007A0: 57 53 24 00 C9 0F 20 03  4D 41 43 52 4F 24 B2 22  |WS$... .MACRO$."|
000007B0: 52 3A 22 AA 4E 57 53 24  AA 22 3D 30 22 AA C7 28  |R:".NWS$."=0"..(|
000007C0: 35 38 29 AA 44 49 53 4B  24 00 DE 0F 2A 03 9F 20  |58).DISK$...*.. |
000007D0: 31 35 2C 38 2C 31 35 2C  4D 41 43 52 4F 24 00 F3  |15,8,15,MACRO$..|
000007E0: 0F 34 03 A0 20 31 35 3A  4D 41 43 52 4F 24 B2 22  |.4.. 15:MACRO$."|
000007F0: 22 3A 8E 00 00 10 3E 03  99 22 93 22 3A 99 3A 99  |":....>..".":.:.|
00000800: 00 32 10 48 03 99 22 47  45 45 46 20 44 45 20 54  |.2.H.."GEEF DE T|
00000810: 45 20 44 45 4C 45 54 45  4E 20 46 49 4C 45 2D 4E  |E DELETEN FILE-N|
00000820: 41 41 4D 20 22 3A 99 3A  99 20 3A 85 20 44 49 53  |AAM ":.:. :. DIS|
00000830: 4B 24 00 49 10 52 03 4D  41 43 52 4F 24 20 B2 22  |K$.I.R.MACRO$ ."|
00000840: 53 3A 22 AA 44 49 53 4B  24 00 5E 10 5C 03 9F 20  |S:".DISK$.^.\.. |
00000850: 31 35 2C 38 2C 31 35 2C  4D 41 43 52 4F 24 00 73  |15,8,15,MACRO$.s|
00000860: 10 66 03 A0 20 31 35 3A  4D 41 43 52 4F 24 B2 22  |.f.. 15:MACRO$."|
00000870: 22 3A 8E 00 80 10 70 03  99 22 93 22 3A 99 3A 99  |":....p..".":.:.|
00000880: 00 94 10 7A 03 99 22 1C  41 54 54 45 4E 54 49 45  |...z..".ATTENTIE|
00000890: 1F 22 3A 99 00 BE 10 84  03 99 22 52 41 4E 44 4F  |.":......."RANDO|
000008A0: 4D 20 41 43 43 45 53 53  20 46 49 4C 45 53 20 57  |M ACCESS FILES W|
000008B0: 4F 52 44 45 4E 20 44 45  4C 45 54 45 44 22 00 DD  |ORDEN DELETED"..|
000008C0: 10 8E 03 99 3A 99 22 44  4F 4F 52 47 41 41 4E 20  |....:."DOORGAAN |
000008D0: 28 4A 2F 4E 29 20 3D 3D  3D 3E 20 22 3B 00 02 11  |(J/N) ===> ";...|
000008E0: 98 03 A1 4B 24 3A 8B 4B  24 B2 22 4A 22 A7 20 99  |...K$:.K$."J". .|
000008F0: 22 4A 22 3A 99 3A 99 3A  99 22 4F 4B 22 3A 89 39  |"J":.:.:."OK":.9|
00000900: 35 30 00 18 11 A2 03 8B  4B 24 B2 22 4E 22 A7 99  |50......K$."N"..|
00000910: 22 4E 22 3A 89 39 37 30  00 21 11 AC 03 89 39 32  |"N":.970.!....92|
00000920: 30 00 35 11 B6 03 9F 20  31 2C 38 2C 31 35 2C 22  |0.5.... 1,8,15,"|
00000930: 56 22 3A A0 31 00 53 11  C0 03 99 3A 99 20 22 43  |V":.1.S....:. "C|
00000940: 4F 4D 50 52 45 53 53 20  53 55 43 43 45 53 46 55  |OMPRESS SUCCESFU|
00000950: 4C 4C 22 00 6A 11 CA 03  81 58 B2 31 A4 33 3A 99  |LL".j....X.1.3:.|
00000960: 3A 82 3A 99 22 20 2A 2A  2A 22 00 83 11 D4 03 97  |:.:." ***"......|
00000970: 31 39 38 2C 30 3A 92 31  39 38 2C 31 3A 97 31 39  |198,0:.198,1:.19|
00000980: 38 2C 30 00 89 11 DE 03  8E 00 97 11 E8 03 9F 20  |8,0............ |
00000990: 31 35 2C 38 2C 31 35 00  AB 11 F2 03 84 31 35 2C  |15,8,15......15,|
000009A0: 41 24 2C 42 24 2C 43 24  2C 44 24 00 B8 11 FC 03  |A$,B$,C$,D$.....|
000009B0: 99 22 93 22 3A 99 3A 99  00 CF 11 06 04 99 22 1C  |.".":.:.......".|
000009C0: 45 52 52 4F 52 20 53 54  41 54 55 53 1F 20 22 00  |ERROR STATUS. ".|
000009D0: F3 11 10 04 99 3A 99 22  45 52 52 4F 52 20 23 20  |.....:."ERROR # |
000009E0: 22 3B 41 24 3A 99 22 45  52 52 4F 52 20 20 20 22  |";A$:."ERROR   "|
000009F0: 3B 42 24 00 15 12 1A 04  99 22 54 52 41 43 4B 20  |;B$......"TRACK |
00000A00: 20 20 22 3B 43 24 3A 99  22 53 45 43 54 4F 52 20  |  ";C$:."SECTOR |
00000A10: 20 22 3B 44 24 00 1D 12  24 04 A0 20 31 00 43 12  | ";D$...$.. 1.C.|
00000A20: 2E 04 99 3A 99 22 20 2A  2A 2A 22 3B 3A 97 31 39  |...:." ***";:.19|
00000A30: 38 2C 30 3A 92 31 39 38  2C 31 3A 97 31 39 38 2C  |8,0:.198,1:.198,|
00000A40: 30 3A 8E 00 4C 12 38 04  99 22 93 22 00 52 12 42  |0:..L.8..".".R.B|
00000A50: 04 80 00 00 00 A6                                 |......          |
....D..53281,1:. 53280,1:.".".&.N..".".W
.X.."...................................
.....";.].....X...."   L - LIST CATALOG"
......"   F - FORMATTEER DISKETTE"... ..
"   I - INITIEER DISKETTE".R...."   C - 
COPY FILE"......"   R - RENAME FILE"....
.."   D - DELETE FILE"...H.."   V - VALI
DATE FILES (COMPRESS)".H.R.."   E - ERRO
R MODEL".[...."   X - EXIT".K....X.1.11:
.:......."..............................
..........";...... "CBM-64/VC-1541 SYSTE
EM";.K...CHOICE$.""......".OPTION ===>";
CHOICE$...... CHOICE$."D" . . 830...".. 
CHOICE$."V" . . 880.5.,.. CHOICE$."R" . 
. 770.O.6.. CHOICE$."L" . . 380.I.@.. CH
OICE$."I" . . 660...J.. CHOICE$."C" . . 
710...T.. CHOICE$."X" . . 1080...^.. CHO
ICE$."E" . . 1000.S.H.. CHOICE$."F" . . 
590...R.. 100...|.ZZ.0:."..CCCC.CCCCCCCC
CCCCCCCCCC.CCCC"...... 1,8,0,"$".'.... #
1,A$,B$.6.... #1,A$,B$.E.... #1,A$,B$.`.
..C.0:. A$.. "". C.F(A$).~.... B$.."" . 
C .C.F(B$).256...B.Z.0...L.. #1,B$:. ST 
..0 . 560.K.V..Z.0.Z.1:.".."J(D(C),2);.3
);".. B. ";...... B$ .. G(34).460...... 
#1,B$:. B$.. G(34) . .B$;: . 490.*.... #
1,B$:. B$.G(32).." ";:.500.A.....18);".B
 ";:C$."".C...C$.C$.B$:. #1,B$:.B$.."". 
520.T....".."H(C$,3)......ZZ.0.."CCCC.CC
CCCCCCCCCCCCCCCC.CCCC":ZZ.1...&.. ST.0 .
 410...0..".......CCCC.CCCCCCCCCCCCCCCCC
C.CCCC  ".G(13)...:.."..";J(D(C),2);". B
LOCKS VRIJE RUIMTE OP DISKETTE".L.D.  1:
.:.:." ***";:.198,0:. 198,1:.198,0:..Y.N
..".":.:....X.." PLAATS DE TE FORM. DISK
ETTE IN DRIVE":....B.."GEEF NAAM DISKETT
E ";:. DISK$.Q.L..:."GEEF EXTENDER NAAM 
";:. EXT$...V.MACRO$."N:".DISK$.",".EXT$
...... 15,8,15,MACRO$.....  15:MACRO$.""
 : ..)....".":.:..W...."PLAATS DE TE INI
T. DISKETTE IN DRIVE":..X...." ***":.198
,0:.198,1:.198,0......15,8,15,"I".....  
15:....F..".":.:..G.P.."GEEF SOURCE FILE
NAAM ";:. DISK$...Z..:."GEEF NIEUWE FILE
NAAM ";:. NW$.....MACRO$."C:".NWS$."=".D
ISK$.!.... 15,8,15,MACRO$.7...  15: MACR
O$."":..D....".":.:..T...."GEEF FILENAAM
 TE RENAMEN FILE ";: . DISK$......"GEEF 
NIEUWE FILENAAM          ";: . NWS$.I. .
MACRO$."R:".NWS$."=0".G(58).DISK$...*.. 
15,8,15,MACRO$...4.  15:MACRO$."":....>.
.".":.:..2.H.."GEEF DE TE DELETEN FILE-N
AAM ":.:. :. DISK$.I.R.MACRO$ ."S:".DISK
$.^.\.. 15,8,15,MACRO$.S.F.  15:MACRO$."
":....P..".":.:....Z..".ATTENTIE.":.....
.."RANDOM ACCESS FILES WORDEN DELETED"..
....:."DOORGAAN (J/N) ===> ";......K$:.K
$."J". ."J":.:.:."OK":.950......K$."N"..
"N":.970.!....920.5.... 1,8,15,"V": 1.S.
...:. "COMPRESS SUCCESFULL".J.J..X.1.3:.
:.:." ***"...T..198,0:.198,1:.198,0.....
....... 15,8,15......15,A$,B$,C$,D$.....
.".":.:..O....".ERROR STATUS. "......:."
ERROR # ";A$:."ERROR   ";B$......"TRACK 
  ";C$:."SECTOR  ";D$...$.  1.C....:." *
**";:.198,0:.198,1:.198,0:..L.8..".".R.B
......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL