home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.sys.cbm      Discussion about Commodore micros      53,866 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 53,650 of 53,866   
   Andreas Kohlbach to KP KP   
   Re: Messing around, creating a disk edit   
   06 Jun 23 21:52:29   
   
   From: ank@spamfence.net   
      
   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: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca