home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / ACCOUNTFIL.CFG (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  38 lines
  1. 10 REM REL FILE ACCOUNTS PROGRAM
  2. 20 REM CREATE A FILE FOR 499 RECORDS
  3. 21 PRINT"[197]NTER THE NUMBER OF USERS TO BE"
  4. 22 INPUT"SUPPORTED BY YOUR SYSTEM";UN
  5. 23 PRINT"[217]OU ENTERED";UN;" USERS.
  6. 24 [153]:[153]"RIGHT$T IS LEN(null)RIGHT$(null)RIGHT$LENATN(null) THAT THE NUMBER YOU JUST"
  7. 25 [153]"ENTERED MATCH THE VALUE YOU SET FOR":[153]"(null)ATN(null)(null)(null)VAL(null) IN THE 'LEN(null)(null)(null)' ";
  8. 26 [153]"PROGRAM.":[153]
  9. 28 [133]"RIGHT$S THIS CORRECT <Y/N>";Q$:[139]Q$[179][177]"(null)"[175]Q$[179][177]"Y"[167]21
  10. 29 [159]15,8,15
  11. 30 [159]8,8,8,"ACCOUNTS,L,"[170][199](127)
  12. 35 [160]15:[160]8:[137]90
  13. 80 [160]15:[159]15,8,15:[132]15,A,A$:[160]15:[153]A,A$
  14. 85 [144]
  15. 90 [159]15,8,15:[159]8,8,8,"ACCOUNTS"
  16. 92 D$[178][199](13)
  17. 95 [129] N [178]UN[164]2[169][171]1:LO[178]N:HI[178]0:[139]LO[177]255[167]100
  18. 96 [137]110
  19. 100 HI[178][181](LO[173]256):LO[178]LO[171](256[172]HI)
  20. 110 [152]15,"P"[199](8)[199](LO)[199](HI)[199](1)
  21. 120 [152]8,"ATN"[170]D$[170]"NAME"[170]D$[170]"PASSWORD"[170]D$[170]"0/0/0"
  22. 160 [153]"LOADSTR$ONE (null)ECORD "N"WAIT":[130] N
  23. 172 N[178]1:LO[178]1:HI[178]0:[152]15,"P"[199](8)[199](LO)[199](HI)[199](1)
  24. 173 [152]8,"PEEK"[170]D$[170]"(null)(null)(null)(null)(null)"[170]D$[170]"(null)ATN(null)(null)(null)(null)(null)STR$"[170]D$[170]"0/0/0"
  25. 174 [160]8:[160]15:[153]"LOADSTR$ONE (null)ECORD  1 WAIT."
  26. 175 [153]"(null)YSOP ACCOUNT IS #1 WITH TEMPORARY":[153]"PASSWORD OF (null)ATN(null)(null)(null)(null)(null)STR$."
  27. 190 [143]
  28. 200 [143] 87JUL18 K2NE ADDED AS FOLLOWS
  29. 210 [143] MAKE SURE THE VALUE YOU CHOOSE
  30. 220 [143] FOR THE MAX # OF USERS IS ALSO
  31. 230 [143] POKED TO LOC 253 (HI) AND 254
  32. 240 [143] (LO) IN THE PROGRAM 'CPRN'.
  33. 250 [143]   FOR EXAMPLE - IF YOU WANT
  34. 260 [143]   500 USERS YOU WOULD POKE
  35. 270 [143]   A VALUE OF 1 TO LOC. 253
  36. 280 [143]   AND A VALUE OF 244 TO LOC.254
  37. 290 [143]
  38.