home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / USERSTAT.CHG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  374 b   |  18 lines
  1. 10 REM REL FILE USERSTAT PROGRAM
  2. 20 REM READ/CHANGE USERSTATUS
  3. 22 INPUT"[197]NTER [213]SER # TO READ/CHANGE";HN
  4. 25 OPEN15,8,15
  5. 30 OPEN8,8,8,"STAT":GOSUB95
  6. 40 INPUT#8,OL$
  7. 42 PRINT"[207][204][196]: ";OL$
  8. 44 INPUT"[206][197][215]";NW$
  9. 46 GOSUB95
  10. 48 PRINT#8,NW$:GOSUB95:GOTO170
  11. 95 LO=HN:HI=0:IFLO>255THEN100
  12. 96 GOTO110
  13. 100 HI=INT(LO/256):LO=LO-(256*HI)
  14. 110 PRINT#15,"P"CHR$(8)CHR$(LO)CHR$(HI)CHR$(1):RETURN
  15. 170 CLOSE8:CLOSE15
  16. 1000 CLOSE15:OPEN15,8,15:INPUT#15,A$,B$,C$,D$:CLOSE15
  17. 1001 PRINTA$,B$,C$,D$
  18.