INTL 3:770/1 3:770/3   
   REPLYADDR ank@spamfence.net   
   REPLYTO 3:770/3.0 UUCP   
   MSGID: <87bkhs599e.fsf@usenet.ankman.de> 78517612   
   REPLY:  07e2091a   
   PID: SoupGate-Win32 v1.05   
   On Tue, 6 Jun 2023 16:55:34 -0700 (PDT), KP KP wrote:   
   >   
   > 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   
      
   That'll do a System-Reset, and the rest is ignored. Worse, you leaving a   
   data channel open (line 50).   
      
   > 170   PRINT   
   > 180   GOTO 50   
   > 190 ELSEIF CHOICE = 2 THEN   
      
   Commodore BASIC (at least not of the C64) doesn't know "ELSE". May be of   
   the C128? But I never used it.   
   --   
   Andreas   
      
   --- 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