DISKMENU.C
FILE INFORMATION
FILENAME(S): DISKMENU.C
FILE TYPE(S): USR
FILE SIZE: 725b
FIRST SEEN: 2025-12-01 01:08:53
APPEARS ON: 1 disk(s)
FILE HASH
0f4647177cef2562bea404243dfa291aa4c4f65edbb14e7dcd48518796a4b14f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUPER C V 2 0 | DISKMENU.C | USR | hedning, loot | 7 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 85 81 9F 2F 2A 20 D3 54 41 4E 44 41 52 44 20 31 |.../* .TANDARD 1|
00000010: 35 34 31 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 |541 DISK COMMAND|
00000020: 53 20 2A 2F 0D 1C 0D 1C 0D 1C 0D 1C 0D 1C 0D 1C |S */............|
00000030: 0D 1C 53 54 41 54 49 43 20 43 48 41 52 20 44 4D |..STATIC CHAR DM|
00000040: 45 4E 55 20 5B 36 5D 20 5B 5D DB 0D 1C 20 20 20 |ENU [6] []... |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 DB 22 C9 4E 49 54 49 41 4C 49 5A | .".NITIALIZ|
00000070: 45 20 44 49 53 4B 22 DD 2C 0D 1C 20 20 20 20 20 |E DISK".,.. |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 DB 22 D6 41 4C 49 44 41 54 45 20 44 49 | .".ALIDATE DI|
000000A0: 53 4B 20 20 22 DD 2C 0D 1C 20 20 20 20 20 20 20 |SK ".,.. |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 DB 22 C6 4F 52 4D 41 54 20 44 49 53 4B 20 20 | .".ORMAT DISK |
000000D0: 20 20 22 DD 2C 0D 1C 20 20 20 20 20 20 20 20 20 | ".,.. |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DB | .|
000000F0: 22 C3 4F 50 59 20 46 49 4C 45 20 20 20 20 20 20 |".OPY FILE |
00000100: 22 DD 2C 0D 1C 20 20 20 20 20 20 20 20 20 20 20 |".,.. |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 DB 22 D2 | .".|
00000120: 45 4E 41 4D 45 20 46 49 4C 45 20 20 20 20 22 DD |ENAME FILE ".|
00000130: 2C 0D 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 |,.. |
00000140: 20 20 20 20 20 20 20 20 20 20 20 DB 22 D3 43 52 | .".CR|
00000150: 41 54 43 48 20 46 49 4C 45 20 20 20 22 DD 0D 1C |ATCH FILE "...|
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 DD 3B 0D 1C 0D 1C 0D 96 | .;......|
00000180: 44 49 53 4B 4D 45 4E 55 28 52 4F 57 2C 43 4F 4C |DISKMENU(ROW,COL|
00000190: 29 0D 1C 0D 1C 49 4E 54 20 52 4F 57 2C 43 4F 4C |)....INT ROW,COL|
000001A0: 3B 0D 1C 0D 1C DB 0D 1C 0D 1C 43 48 41 52 20 4B |;.........CHAR K|
000001B0: 45 59 3B 0D 1C 0D 1C 20 20 20 20 4F 50 45 4E 57 |EY;.... OPENW|
000001C0: 49 4E 28 52 4F 57 2C 43 4F 4C 2C 52 4F 57 2B 31 |IN(ROW,COL,ROW+1|
000001D0: 30 2C 43 4F 4C 2B 31 37 29 3B 0D 1C 0D 1C 20 20 |0,COL+17);.... |
000001E0: 20 20 43 55 52 53 4F 52 28 52 4F 57 2B 31 2C 43 | CURSOR(ROW+1,C|
000001F0: 4F 4C 2B 31 29 3B 0D 1C 20 20 20 20 50 55 54 53 |OL+1);.. PUTS|
00000200: 28 22 20 20 20 C4 49 53 4B 20 CD 45 4E 55 22 2C |(" .ISK .ENU",|
00000210: D3 D4 C4 C9 CF 29 3B 0D 1C 0D 1C 0D 1C 20 20 20 |.....);...... |
00000220: 20 46 4F 52 20 28 4C 4F 4F 50 3D 30 3B 4C 4F 4F | FOR (LOOP=0;LOO|
00000230: 50 3C 36 3B 4C 4F 4F 50 2B 2B 29 0D 1C 20 20 20 |P<6;LOOP++).. |
00000240: 20 20 20 DB 0D 1C 20 20 20 20 20 20 20 20 43 55 | ... CU|
00000250: 52 53 4F 52 28 52 4F 57 2B 33 2B 4C 4F 4F 50 2C |RSOR(ROW+3+LOOP,|
00000260: 43 4F 4C 2B 31 29 3B 0D 1C 20 20 20 20 20 20 20 |COL+1);.. |
00000270: 20 50 55 54 53 28 44 4D 45 4E 55 5B 4C 4F 4F 50 | PUTS(DMENU[LOOP|
00000280: 5D 2C D3 D4 C4 C9 CF 29 3B 0D 1C 20 20 20 20 20 |],.....);.. |
00000290: 20 DD 0D 1C 0D 1C 0D 1C 0D 1C 0D 1C 0D 1C 0D 1C | ...............|
000002A0: 0D 1C 20 20 20 20 4B 45 59 20 3D 20 49 4E 4B 45 |.. KEY = INKE|
000002B0: 59 28 D3 D4 C4 C9 CF 29 3B 0D 1C 0D 1C 20 20 20 |Y(.....);.... |
000002C0: 20 43 4C 4F 53 45 57 49 4E 28 29 3B 0D 1C 0D 1C | CLOSEWIN();....|
000002D0: DD 0D 1C 0D 00 |..... |
.../* STANDARD 1541 DISK COMMANDS */....
..........STATIC CHAR DMENU [6] []...
."INITIALIZE DISK".
,.. ."VALIDATE DI
SK ".,.. ."FORMA
T DISK ".,.. .
"COPY FILE ".,..
."RENAME FILE ".,..
."SCRATCH FILE "...
.;......DISKMENU(ROW,COL
)....INT ROW,COL;.........CHAR KEY;....
OPENWIN(ROW,COL,ROW+10,COL+17);....
CURSOR(ROW+1,COL+1);.. PUTS(" DIS
K MENU",STDIO);...... FOR (LOOP=0;LOO
P<6;LOOP++).. ... CURSOR(ROW
+3+LOOP,COL+1);.. PUTS(DMENU[LOOP
],STDIO);.. ................. KE
Y = INKEY(STDIO);.... CLOSEWIN();....
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL