1541 MENU

FILE INFORMATION

FILENAME(S): 1541 MENU

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:28:24

APPEARS ON: 1 disk(s)

FILE HASH

36c6915c58d6cd5364b0ea5f39c573a30ac4c1092988bc47376246448da5dd3e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
0017B	1541 MENU	PRG	DuncanTwain	29	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0E 08 01 00 97 35  33 32 38 31 2C 31 00 17  |.......53281,1..|
00000010: 08 0A 00 99 22 93 22 00  37 08 14 00 99 22 56 49  |....".".7...."VI|
00000020: 43 2D 31 35 34 31 20 47  45 42 52 55 49 4B 45 52  |C-1541 GEBRUIKER|
00000030: 53 20 4D 45 4E 55 22 00  57 08 1E 00 99 22 2D 2D  |S MENU".W...."--|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000050: 2D 2D 2D 2D 2D 2D 22 00  5D 08 28 00 99 00 78 08  |------".].(...x.|
00000060: 32 00 99 22 20 20 20 20  20 20 20 20 31 20 2D 20  |2.."        1 - |
00000070: 43 41 54 41 4C 4F 47 22  00 9B 08 3C 00 99 22 20  |CATALOG"...<.." |
00000080: 20 20 20 20 20 20 20 32  20 2D 20 46 4F 52 4D 41  |       2 - FORMA|
00000090: 54 20 45 45 4E 20 44 49  53 4B 22 00 BC 08 46 00  |T EEN DISK"...F.|
000000A0: 99 22 20 20 20 20 20 20  20 20 33 20 2D 20 49 4E  |."        3 - IN|
000000B0: 49 54 20 45 45 4E 20 44  49 53 4B 22 00 D9 08 50  |IT EEN DISK"...P|
000000C0: 00 99 22 20 20 20 20 20  20 20 20 34 20 2D 20 43  |.."        4 - C|
000000D0: 4F 50 59 20 46 49 4C 45  22 00 F8 08 5A 00 99 22  |OPY FILE"...Z.."|
000000E0: 20 20 20 20 20 20 20 20  35 20 2D 20 52 45 4E 41  |        5 - RENA|
000000F0: 4D 45 20 46 49 4C 45 22  00 1A 09 64 00 99 22 20  |ME FILE"...d.." |
00000100: 20 20 20 20 20 20 20 36  20 2D 20 56 45 52 57 49  |       6 - VERWI|
00000110: 4A 44 45 52 20 46 49 4C  45 22 00 3C 09 6E 00 99  |JDER FILE".<.n..|
00000120: 22 20 20 20 20 20 20 20  20 37 20 2D 20 56 41 4C  |"        7 - VAL|
00000130: 49 44 41 54 45 20 46 49  4C 45 53 22 00 5F 09 78  |IDATE FILES"._.x|
00000140: 00 99 22 20 20 20 20 20  20 20 20 38 20 2D 20 4D  |.."        8 - M|
00000150: 41 41 4B 20 4E 49 45 55  57 20 4D 45 4E 55 22 00  |AAK NIEUW MENU".|
00000160: 7E 09 82 00 99 22 20 20  20 20 20 20 20 20 39 20  |~...."        9 |
00000170: 2D 20 45 52 52 4F 52 20  4D 4F 44 45 4C 22 00 A2  |- ERROR MODEL"..|
00000180: 09 8C 00 99 22 20 20 20  20 20 20 20 31 30 20 2D  |...."       10 -|
00000190: 20 54 45 52 55 47 20 4E  41 41 52 20 42 41 53 49  | TERUG NAAR BASI|
000001A0: 43 22 00 A8 09 96 00 99  00 CC 09 A0 00 99 22 2D  |C"............"-|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 00 FB 09 AA  |-----------"....|
000001D0: 00 99 22 47 45 45 46 20  55 57 20 4B 45 55 5A 45  |.."GEEF UW KEUZE|
000001E0: 20 28 31 2F 31 30 29 20  3C 52 45 54 55 52 4E 3E  | (1/10) <RETURN>|
000001F0: 22 3B 3A 85 20 43 48 4F  49 43 45 00 32 0A C8 00  |";:. CHOICE.2...|
00000200: 91 20 43 48 4F 49 43 45  20 8D 20 32 35 30 2C 33  |. CHOICE . 250,3|
00000210: 30 30 2C 33 35 30 2C 34  30 30 2C 34 35 30 2C 35  |00,350,400,450,5|
00000220: 30 30 2C 35 35 30 2C 36  30 30 2C 36 35 30 2C 37  |00,550,600,650,7|
00000230: 30 30 00 3B 0A D2 00 89  20 31 30 00 44 0A FA 00  |00.;.... 10.D...|
00000240: 99 22 93 22 00 54 0A FB  00 9F 20 31 2C 38 2C 30  |.".".T.... 1,8,0|
00000250: 2C 22 24 22 00 63 0A FC  00 A1 20 23 31 2C 41 24  |,"$".c.... #1,A$|
00000260: 2C 42 24 00 72 0A FE 00  A1 20 23 31 2C 41 24 2C  |,B$.r.... #1,A$,|
00000270: 42 24 00 81 0A 00 01 A1  20 23 31 2C 41 24 2C 42  |B$...... #1,A$,B|
00000280: 24 00 9C 0A 02 01 43 B2  30 3A 8B 20 41 24 B3 B1  |$.....C.0:. A$..|
00000290: 20 22 22 A7 20 43 B2 C6  28 41 24 29 00 BA 0A 04  | "". C..(A$)....|
000002A0: 01 8B 20 42 24 B3 B1 22  22 20 A7 20 43 20 B2 43  |.. B$.."" . C .C|
000002B0: AA C6 28 42 24 29 AC 32  35 36 00 D8 0A 06 01 99  |..(B$).256......|
000002C0: 22 1C 12 22 CA 28 C4 28  43 29 2C 32 29 3B A3 33  |"..".(.(C),2);.3|
000002D0: 29 3B 22 92 1F 20 22 3B  00 F3 0A 08 01 A1 20 23  |);".. ";...... #|
000002E0: 31 2C 42 24 3A 8B 20 53  54 20 B3 B1 30 20 A7 20  |1,B$:. ST ..0 . |
000002F0: 32 38 32 00 09 0B 0A 01  8B 20 42 24 20 B3 B1 20  |282...... B$ .. |
00000300: C7 28 33 34 29 A7 32 36  34 00 30 0B 0C 01 A1 20  |.(34).264.0.... |
00000310: 23 31 2C 42 24 3A 8B 20  42 24 B3 B1 20 C7 28 33  |#1,B$:. B$.. .(3|
00000320: 34 29 20 A7 20 99 42 24  3B 3A 20 89 20 32 36 38  |4) . .B$;: . 268|
00000330: 00 4B 0B 0E 01 A1 20 23  31 2C 42 24 3A 8B 20 42  |.K.... #1,B$:. B|
00000340: 24 B2 C7 28 33 32 29 A7  32 37 30 00 5C 0B 10 01  |$..(32).270.\...|
00000350: 99 A3 31 38 29 3B 3A 43  24 B2 22 22 00 82 0B 12  |..18);:C$.""....|
00000360: 01 43 24 B2 43 24 AA 42  24 20 20 3A A1 20 23 31  |.C$.C$.B$  :. #1|
00000370: 2C 42 24 3A 8B 20 42 24  B3 B1 22 22 20 A7 20 32  |,B$:. B$.."" . 2|
00000380: 37 34 00 93 0B 14 01 99  22 1E 12 22 C8 28 43 24  |74......"..".(C$|
00000390: 2C 33 29 00 A4 0B 18 01  8B 20 53 54 B2 30 20 A7  |,3)...... ST.0 .|
000003A0: 20 32 35 34 00 C4 0B 1A  01 99 22 56 52 49 4A 45  | 254......"VRIJE|
000003B0: 20 52 55 49 4D 54 45 20  4F 50 20 53 43 48 49 4A  | RUIMTE OP SCHIJ|
000003C0: 46 20 22 22 00 F6 0B 1C  01 A0 20 31 3A 99 3A 99  |F ""...... 1:.:.|
000003D0: 3A 99 22 47 45 45 46 20  3C 52 45 54 55 52 4E 3E  |:."GEEF <RETURN>|
000003E0: 20 56 4F 4F 52 20 4D 45  4E 55 20 22 3B 3A 20 85  | VOOR MENU ";: .|
000003F0: 20 58 24 3A 20 8E 00 03  0C 2C 01 99 22 93 22 3A  | X$: ....,..".":|
00000400: 99 3A 99 00 2F 0C 31 01  99 22 20 50 4C 41 41 54  |.:../.1.." PLAAT|
00000410: 53 20 45 45 4E 20 4E 49  45 55 57 20 44 49 53 4B  |S EEN NIEUW DISK|
00000420: 20 56 4F 4F 52 20 46 4F  52 4D 41 54 22 3A 99 00  | VOOR FORMAT":..|
00000430: 4E 0C 36 01 99 22 47 45  45 46 20 44 49 53 4B 20  |N.6.."GEEF DISK |
00000440: 4E 41 41 4D 22 3B 3A 85  20 44 49 53 4B 24 00 73  |NAAM";:. DISK$.s|
00000450: 0C 40 01 99 3A 99 22 47  45 45 46 20 45 58 54 41  |.@..:."GEEF EXTA|
00000460: 4E 44 45 52 20 4E 41 41  4D 20 22 3B 3A 85 20 45  |NDER NAAM ";:. E|
00000470: 58 54 24 00 92 0C 45 01  4D 41 43 52 4F 24 B2 22  |XT$...E.MACRO$."|
00000480: 4E 3A 22 AA 44 49 53 4B  24 AA 22 2C 22 AA 45 58  |N:".DISK$.",".EX|
00000490: 54 24 00 A7 0C 4A 01 9F  20 31 35 2C 38 2C 31 35  |T$...J.. 15,8,15|
000004A0: 2C 4D 41 43 52 4F 24 00  BE 0C 54 01 A0 20 31 35  |,MACRO$...T.. 15|
000004B0: 3A 4D 41 43 52 4F 24 B2  22 22 20 3A 20 8E 00 CB  |:MACRO$."" : ...|
000004C0: 0C 5E 01 99 22 93 22 3A  99 3A 99 00 EB 0C 68 01  |.^..".":.:....h.|
000004D0: 99 22 50 4C 41 41 54 53  20 44 49 53 4B 20 56 4F  |."PLAATS DISK VO|
000004E0: 4F 52 20 49 4E 49 54 20  22 3A 99 00 1A 0D 72 01  |OR INIT ":....r.|
000004F0: 99 22 47 45 45 46 20 3C  52 45 54 55 52 4E 3E 20  |."GEEF <RETURN> |
00000500: 56 4F 4F 52 20 22 3A 99  22 49 4E 49 54 49 41 4C  |VOOR ":."INITIAL|
00000510: 49 5A 45 22 3B 3A 85 20  58 24 00 2B 0D 7C 01 9F  |IZE";:. X$.+.|..|
00000520: 31 35 2C 38 2C 31 35 2C  22 49 22 00 36 0D 86 01  |15,8,15,"I".6...|
00000530: A0 20 31 35 3A 8E 00 43  0D 90 01 99 22 93 22 3A  |. 15:..C....".":|
00000540: 99 3A 99 00 69 0D 9A 01  99 22 47 45 45 46 20 53  |.:..i...."GEEF S|
00000550: 4F 55 52 43 45 20 46 49  4C 45 4E 41 41 4D 20 22  |OURCE FILENAAM "|
00000560: 3B 3A 85 20 44 49 53 4B  24 00 8E 0D A4 01 99 3A  |;:. DISK$......:|
00000570: 99 22 47 45 45 46 20 4E  49 45 55 57 20 46 49 4C  |."GEEF NIEUW FIL|
00000580: 45 4E 41 41 4D 20 22 3B  3A 85 20 4E 57 24 00 AD  |ENAAM ";:. NW$..|
00000590: 0D A9 01 4D 41 43 52 4F  24 B2 22 43 3A 22 AA 4E  |...MACRO$."C:".N|
000005A0: 57 53 24 AA 22 3D 22 AA  44 49 53 4B 24 00 C2 0D  |WS$."=".DISK$...|
000005B0: AE 01 9F 20 31 35 2C 38  2C 31 35 2C 4D 41 43 52  |... 15,8,15,MACR|
000005C0: 4F 24 00 D8 0D B8 01 A0  20 31 35 3A 20 4D 41 43  |O$...... 15: MAC|
000005D0: 52 4F 24 B2 22 22 3A 8E  00 E5 0D C2 01 99 22 93  |RO$."":.......".|
000005E0: 22 3A 99 3A 99 00 0B 0E  CC 01 99 22 47 45 45 46  |":.:......."GEEF|
000005F0: 20 4F 55 44 45 20 46 49  4C 45 20 4E 41 41 4D 20  | OUDE FILE NAAM |
00000600: 22 3B 3A 20 85 20 44 49  53 4B 24 00 2A 0E D6 01  |";: . DISK$.*...|
00000610: 4D 41 43 52 4F 24 B2 22  52 3A 22 AA 4E 57 53 24  |MACRO$."R:".NWS$|
00000620: AA 22 3D 22 AA 44 49 53  4B 24 00 3F 0E E0 01 9F  |."=".DISK$.?....|
00000630: 20 31 35 2C 38 2C 31 35  2C 4D 41 43 52 4F 24 00  | 15,8,15,MACRO$.|
00000640: 54 0E EA 01 A0 20 31 35  3A 4D 41 43 52 4F 24 B2  |T.... 15:MACRO$.|
00000650: 22 22 3A 8E 00 61 0E F4  01 99 22 93 22 3A 99 3A  |"":..a....".":.:|
00000660: 99 00 96 0E FE 01 99 22  47 45 45 46 20 46 49 4C  |......."GEEF FIL|
00000670: 45 20 4E 41 41 4D 20 56  4F 4F 52 20 56 45 52 57  |E NAAM VOOR VERW|
00000680: 49 4A 44 45 52 45 4E 20  22 3A 99 3A 99 20 3A 85  |IJDEREN ":.:. :.|
00000690: 20 44 49 53 4B 24 00 AD  0E 12 02 4D 41 43 52 4F  | DISK$.....MACRO|
000006A0: 24 20 B2 22 53 3A 22 AA  44 49 53 4B 24 00 C2 0E  |$ ."S:".DISK$...|
000006B0: 17 02 9F 20 31 35 2C 38  2C 31 35 2C 4D 41 43 52  |... 15,8,15,MACR|
000006C0: 4F 24 00 D7 0E 1C 02 A0  20 31 35 3A 4D 41 43 52  |O$...... 15:MACR|
000006D0: 4F 24 B2 22 22 3A 8E 00  E4 0E 26 02 99 22 93 22  |O$."":....&.."."|
000006E0: 3A 99 3A 99 00 0F 0F 30  02 99 22 55 20 57 45 45  |:.:....0.."U WEE|
000006F0: 54 20 46 49 4C 45 27 53  20 57 4F 52 44 45 4E 20  |T FILE'S WORDEN |
00000700: 4E 55 20 56 45 52 57 49  4A 44 45 52 44 20 22 00  |NU VERWIJDERD ".|
00000710: 34 0F 3A 02 99 3A 99 3A  99 22 47 45 45 46 20 3C  |4.:..:.:."GEEF <|
00000720: 52 45 54 55 52 4E 3E 20  56 4F 4F 52 20 22 3B 3A  |RETURN> VOOR ";:|
00000730: 85 20 58 24 00 45 0F 44  02 9F 20 31 2C 38 2C 31  |. X$.E.D.. 1,8,1|
00000740: 35 2C 22 56 22 00 51 0F  4E 02 A0 20 31 20 3A 20  |5,"V".Q.N.. 1 : |
00000750: 8E 00 5E 0F 58 02 99 22  93 22 3A 99 3A 99 00 89  |..^.X..".":.:...|
00000760: 0F 62 02 99 22 50 4C 41  41 54 53 20 44 49 53 4B  |.b.."PLAATS DISK|
00000770: 20 56 4F 4F 52 20 22 20  3A 99 22 57 52 49 54 54  | VOOR " :."WRITT|
00000780: 45 4E 20 54 4F 20 22 3A  99 00 B3 0F 6C 02 99 3A  |EN TO ":....l..:|
00000790: 99 3A 99 22 47 45 45 46  20 3C 52 45 54 55 52 4E  |.:."GEEF <RETURN|
000007A0: 3E 20 56 4F 4F 52 20 4D  45 4E 55 20 22 3B 3A 85  |> VOOR MENU ";:.|
000007B0: 20 58 24 00 C0 0F 71 02  9F 20 31 2C 38 2C 31 35  | X$...q.. 1,8,15|
000007C0: 00 CF 0F 76 02 94 20 22  4D 45 4E 55 22 2C 38 00  |...v.. "MENU",8.|
000007D0: D7 0F 7B 02 A0 20 31 00  DD 0F 80 02 8E 00 EA 0F  |..{.. 1.........|
000007E0: 8A 02 9F 20 31 2C 38 2C  31 35 00 FD 0F 94 02 85  |... 1,8,15......|
000007F0: 20 23 31 2C 20 38 2C 42  24 2C 43 2C 44 00 0A 10  | #1, 8,B$,C,D...|
00000800: 9E 02 99 22 93 22 3A 99  3A 99 00 4B 10 A8 02 99  |...".":.:..K....|
00000810: 22 45 52 52 4F 52 20 53  54 41 54 55 53 20 22 3A  |"ERROR STATUS ":|
00000820: 99 3A 99 22 45 52 52 4F  52 20 23 20 22 3B 41 3A  |.:."ERROR # ";A:|
00000830: 99 42 24 3A 99 22 54 52  41 43 4B 20 22 3B 43 2C  |.B$:."TRACK ";C,|
00000840: 22 53 45 43 54 4F 52 20  22 3B 44 00 6F 10 AD 02  |"SECTOR ";D.o...|
00000850: 99 3A 99 22 30 20 3D 20  47 45 45 4E 20 46 4F 55  |.:."0 = GEEN FOU|
00000860: 54 45 4E 20 4F 50 20 53  43 48 49 4A 46 20 22 00  |TEN OP SCHIJF ".|
00000870: 9F 10 B2 02 99 3A 99 22  47 45 45 46 20 3C 52 45  |.....:."GEEF <RE|
00000880: 54 55 52 4E 3E 20 56 4F  4F 52 20 4D 45 4E 55 20  |TURN> VOOR MENU |
00000890: 22 3B 3A 85 20 58 24 3A  A0 20 31 20 3A 20 8E 00  |";:. X$:. 1 : ..|
000008A0: AC 10 BC 02 99 22 93 22  3A 99 3A 99 00 E1 10 C6  |.....".":.:.....|
000008B0: 02 99 22 4F 50 4D 45 52  4B 49 4E 47 20 3A 20 4D  |.."OPMERKING : M|
000008C0: 45 4E 55 20 50 52 4F 47  52 41 4D 4D 41 20 49 53  |ENU PROGRAMMA IS|
000008D0: 20 22 3A 99 22 49 53 20  41 41 4E 57 45 5A 49 47  | ":."IS AANWEZIG|
000008E0: 22 00 E7 10 D0 02 80 00  00 00 48 A3 4E 30        |".........H.N0  |

.......53281,1......".".7...."VIC-1541 G
EBRUIKERS MENU".W...."------------------
------".].(...X.2.."        1 - CATALOG"
...<.."        2 - FORMAT EEN DISK"...F.
."        3 - INIT EEN DISK".Y.P.."     
   4 - COPY FILE"...Z.."        5 - RENA
ME FILE"...D.."        6 - VERWIJDER FIL
E".<.N.."        7 - VALIDATE FILES"._.X
.."        8 - MAAK NIEUW MENU".~...."  
      9 - ERROR MODEL"......"       10 -
 TERUG NAAR BASIC".......L. .."---------
-------------------"......"GEEF UW KEUZE
 (1/10) <RETURN>";:. CHOICE.2.H.. CHOICE
 . 250,300,350,400,450,500,550,600,650,7
00.;.R.. 10.D....".".T.... 1,8,0,"$".C..
.. #1,A$,B$.R.... #1,A$,B$...... #1,A$,B
$.....C.0:. A$.. "". C.F(A$)...... B$.."
" . C .C.F(B$).256.X....".."J(D(C),2);.3
);".. ";...... #1,B$:. ST ..0 . 282.....
. B$ .. G(34).264.0.... #1,B$:. B$.. G(3
4) . .B$;: . 268.K.... #1,B$:. B$.G(32).
270.\.....18);:C$."".....C$.C$.B$  :. #1
,B$:. B$.."" . 274......".."H(C$,3).....
. ST.0 . 254.D...."VRIJE RUIMTE OP SCHIJ
F "".....  1:.:.:."GEEF <RETURN> VOOR ME
NU ";: . X$: ....,..".":.:../.1.." PLAAT
S EEN NIEUW DISK VOOR FORMAT":..N.6.."GE
EF DISK NAAM";:. DISK$.S.@..:."GEEF EXTA
NDER NAAM ";:. EXT$...E.MACRO$."N:".DISK
$.",".EXT$...J.. 15,8,15,MACRO$...T.  15
:MACRO$."" : ..K.^..".":.:....H.."PLAATS
 DISK VOOR INIT ":....R.."GEEF <RETURN> 
VOOR ":."INITIALIZE";:. X$.+.|..15,8,15,
"I".6...  15:..C....".":.:..I...."GEEF S
OURCE FILENAAM ";:. DISK$......:."GEEF N
IEUW FILENAAM ";:. NW$.....MACRO$."C:".N
WS$."=".DISK$.B.... 15,8,15,MACRO$.X... 
 15: MACRO$."":....B..".":.:....L.."GEEF
 OUDE FILE NAAM ";: . DISK$.*.V.MACRO$."
R:".NWS$."=".DISK$.?.... 15,8,15,MACRO$.
T...  15:MACRO$."":..A....".":.:......."
GEEF FILE NAAM VOOR VERWIJDEREN ":.:. :.
 DISK$.....MACRO$ ."S:".DISK$.B.... 15,8
,15,MACRO$.W...  15:MACRO$."":....&.."."
:.:....0.."U WEET FILE'S WORDEN NU VERWI
JDERD ".4.:..:.:."GEEF <RETURN> VOOR ";:
. X$.E.D.. 1,8,15,"V".Q.N.  1 : ..^.X.."
.":.:....B.."PLAATS DISK VOOR " :."WRITT
EN TO ":....L..:.:."GEEF <RETURN> VOOR M
ENU ";:. X$...Q.. 1,8,15.O.V.. "MENU",8.
W.{.  1............ 1,8,15...... #1, 8,B
$,C,D......".":.:..K...."ERROR STATUS ":
.:."ERROR # ";A:.B$:."TRACK ";C,"SECTOR 
";D.O....:."0 = GEEN FOUTEN OP SCHIJF ".
.....:."GEEF <RETURN> VOOR MENU ";:. X$:
  1 : .......".":.:....F.."OPMERKING : M
ENU PROGRAMMA IS ":."IS AANWEZIG"...P...
..H.N0

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL