home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / STATFILE.CFG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  600 b   |  20 lines
  1. 10 REM REL FILE HIGH BULLETINS PROGRAM
  2. 20 REM CREATE A FILE FOR HN RECORDS
  3. 22 INPUT"[147][197]NTER THE NUMBER OF USERS YOU WILL      BE SUPPORTING:";HN
  4. 23 PRINT"[217]OU ENTERED";HN;".  [212]HIS MUST AGREE":PRINT"WITH THE VALUE YOU CHOSE ";
  5. 24 PRINT"FOR YOUR":PRINT"ACCOUNTS FILE.  ";:INPUT"[201]S THIS OK";JJ$
  6. 25 IF JJ$<>"[217]"ANDJJ$<>"Y"THENRUN
  7. 29 OPEN15,8,15
  8. 30 OPEN8,8,8,"STAT,L,"+CHR$(31)
  9. 35 CLOSE15:CLOSE8:GOTO90
  10. 80 CLOSE15:OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA,A$
  11. 85 STOP
  12. 90 OPEN15,8,15:OPEN8,8,8,"STAT"
  13. 92 S$="[206][206][206][206][206][206][206][206][206][206][206]"
  14. 95 FOR N =HNTO1STEP-1:LO=N:HI=0:IFLO>255THEN100
  15. 96 GOTO110
  16. 100 HI=INT(LO/256):LO=LO-(256*HI)
  17. 110 PRINT#15,"P"CHR$(8)CHR$(LO)CHR$(HI)CHR$(1):PRINT#8,S$
  18. 160 PRINT"[147][196]ONE [210]ECORD "N"[146]":NEXT N
  19. 170 CLOSE8:CLOSE15
  20.