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,649 of 53,866   
   KP KP to All   
   Messing around, creating a disk editor.   
   06 Jun 23 16:55:34   
   
   From: jungletrain@outlook.com   
      
   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: you cannot sedate... all the things you hate (1:229/2)   

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


(c) 1994,  bbs@darkrealms.ca