INTL 3:770/1 3:770/3
REPLYADDR jungletrain@outlook.com
REPLYTO 3:770/3.0 UUCP
MSGID:  07e2091a
PID: SoupGate-Win32 v1.05
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 | Fido<>Usenet Gateway (3:770/3)
SEEN-BY: 1/19 123 15/0 16/0 18/200 19/10 37 90/1 105/81 106/201 123/130
SEEN-BY: 123/131 129/305 132/174 142/104 153/757 7715 154/10 203/0
SEEN-BY: 218/700 840 220/70 221/1 6 360 226/17 30 227/114 229/110
SEEN-BY: 229/112 113 206 275 307 317 400 426 428 470 664 700 230/0
SEEN-BY: 240/5832 266/512 267/800 280/5003 282/1038 291/111 301/1
SEEN-BY: 317/3 320/119 219 319 2119 322/0 757 325/304 326/101 335/364
SEEN-BY: 341/66 342/19 200 396/45 423/81 460/58 633/280 712/848 770/1
SEEN-BY: 770/3 100 340 772/210 220 230 5058/104
PATH: 770/3 1 218/840 221/6 1 320/219 229/426