TIP: Click on subject to list as thread! ANSI
echo: cbm
to: All
from: KP KP
date: 2023-06-06 16:55:00
subject: Messing around, creating

I need some scrutinizing  on my crappy coding expertise. Haven't made a program in years.. Could be junk or have no idea what I am doing. Gibberish? Lol.


10 PRINT "***** C64 DISK EDITOR *****"
20 PRINT
30 INPUT "Enter the name of the disk file: "; FILENAME$
40 PRINT
50 OPEN 1, 8, 15, FILENAME$
60 PRINT "1. Display sector"
70 PRINT "2. Edit sector"
80 PRINT "3. Save changes"
90 PRINT "4. Quit"
100 PRINT
110 INPUT "Enter your choice: "; CHOICE
120 PRINT

130 IF CHOICE = 1 THEN
140   INPUT "Enter the sector number to display: "; SECTOR
150   PRINT
160   SYS 64738
170   PRINT
180   GOTO 50
190 ELSEIF CHOICE = 2 THEN
200   INPUT "Enter the sector number to edit: "; SECTOR
210   PRINT
220   PRINT "WARNING: You are about to modify the sector contents."
230   PRINT "Make sure you know what you're doing!"
240   PRINT
250   INPUT "Press any key to continue, or Q to cancel: "; KEY$
260   IF KEY$ = "Q" OR KEY$ = "q" THEN GOTO 50
270   PRINT
280   SYS 64738
290   PRINT
300   GOTO 50
310 ELSEIF CHOICE = 3 THEN
320   PRINT "Saving changes..."
330   PRINT
340   CLOSE 1
350   OPEN 1, 8, 2, FILENAME$
360   CLOSE 1
370   PRINT "Changes saved successfully!"
380   PRINT
390   GOTO 50
400 ELSEIF CHOICE = 4 THEN
410   CLOSE 1
420   END
430 ELSE
440   PRINT "Invalid choice. Please try again."
450   PRINT
460   GOTO 50
470 END IF

480 GOTO 50

--- SoupGate-Win32 v1.05
                                                                                          
* Origin: Agency HUB, Dunedin - New Zealand | FidoUsenet Gateway (3:770/3)

SOURCE: echomail via QWK@pharcyde.org

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.