home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / HIBULL.CFG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  608 b   |  20 lines
  1. 10 REM REL FILE HIGH BULLETINS PROGRAM
  2. 20 REM CREATE A FILE FOR HN RECORDS
  3. 22 INPUT"[197]NTER THE NUMBER OF USERS YOU WILL      BE SUPPORTING:";HN
  4. 23 PRINT"[217]OU ENTERED";HN".  [212]HIS MUST AGREE"
  5. 24 PRINT"THE NUMBER YOU USED FOR YOUR ACCOUNTS":PRINT"FILE.  ";
  6. 25 INPUT"[201]S THIS OK";JJ$:IFJJ<>"Y"ANDJJ$<>"[217]"THENRUN
  7. 29 OPEN15,8,15
  8. 30 OPEN8,8,8,"HIBULL,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,"HIBULL"
  13. 92 S$="000000000000000000000000000000"
  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.