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