home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / BBS-DOC (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  22 lines
  1. 100 DIMA$(89):PRINTCHR$(147):POKE53280,15:POKE53281,0:POKE646,3:PRINTCHR$(14):GOTO600
  2. 120 DATA"               [194][194][211][160][194][193][211][197]               ":DATA"                                      ":DATA"[194][194][211][160][194][193][211][197] IS NOT JUST A BILLING PROGRAM.":DATA"[201]T IS A COMPLETE DATA BASE/BILLING":DATA"SYSTEM. [212]HIS PROGRAM IS DESIGNED TO":DATA"HELP YOU USE   [194][194][211][160][194][193][211][197][160][160][146].    [200]OWEVER,"
  3. 132 DATA"PLEASE REMEMBER THAT [158]THIS IS NOT A":DATA"MANUAL[159]. [212]O FULLY BENEFIT FROM [194][194][211]":DATA"[194][193][211][197] IT WOULD BE BETTER FOR YOU TO":DATA"FOLLOW THE INSTRUCTIONS AT THE END OF":DATA"THIS PROGRAM.                         ":DATA"                                      "
  4. 142 DATA"              [201][206][211][212][210][213][195][212][201][207][206][211]            ":DATA"                                      ":DATA"[215]HEN YOU FIRST LOAD [194][194][211][160][194][193][211][197]. [201]T WILL":DATA"PROMPT YOU FOR TODAY'S DATE. [206]EXT,":DATA"IT WILL PROMPT YOU FOR THE SUBSCRIPTION":DATA"FEE THAT YOU CHARGE THE SUBSCRIBERS"
  5. 154 DATA"OF YOUR [194][194][211]. [193]FTERWARDS, [201]T WILL CHECK":DATA"FOR THE EXISTENCE OF A FILE CALLED":DATA"[158][211][201]-[198][201][204][159].":DATA"                                       ","                        ":DATA"              [201][206][211][212][210][213][195][212][201][207][206][211]            ":DATA"[198]INALLY, YOU WILL BE SHOWN THE MAIN"
  6. 166 DATA"[205][193][201][206][160][205][197][206][213]. [217]OU CAN CHOOSE FROM THE":DATA"FOLLOWING:                            ":DATA"          N                           ":DATA"           E                          ":DATA"            X                         ":DATA"             T                        "
  7. 178 DATA"               P A G E...             ":DATA"                                      ":DATA"                                      ":DATA"                                      ":DATA"[145]          [194][201][204][204][201][206][199][160][205][193][201][206][212][197][206][193][206][195][197]         "
  8. 202 DATA"                                      ":DATA"[195]HOOSE THIS OPTION TO BEGIN ENTERING":DATA"[211][213][194][211][195][210][201][194][197][210][211] INTO [194][194][211][160][194][193][211][197]. [212]HE FIRST":DATA"ALLOWS YOU TO [193][196][196] SUBCRIBERS TO [194][194][211]":DATA"[194][193][211][197]. [217]OU CAN ALSO MAKE ALTERATIONS":DATA"OR VIEW A SUBSCRIBER BY CHOOSING THE"
  9. 208 DATA"'[197][196][201][212]' OPTION.                        ":DATA"                                      ":DATA"                                      ":DATA"                                      ":DATA"                                      "
  10. 301 DATA"[145][145]          [210][197][208][207][210][212][160][199][197][206][197][210][193][212][201][207][206]           ":DATA"                                      ":DATA"[195]HOOSE THIS OPTION TO CREATE A":DATA"[199][197][206][197][210][193][204][160][210][197][208][207][210][212][160]OR [210][197][208][207][210][212]S OF THOSE":DATA"WHOSE SUBSCRIPTION IS EITHER [197][216][208][201][210][201][206][199]":DATA"OR [196][197][204][201][206][209][213][197][206][212]. [217]OU CAN ALSO NOTIFY"
  11. 307 DATA"THEM BY MEANS OF [196][197][204][201][206][209][213][197][206][195][217]          ":DATA"[206][207][212][201][198][201][195][193][212][201][207][206] - [197][216][208][201][210][193][212][201][207][206][160][206][207][212][201][198][201][195][193][212][201][207][206]":DATA"                                      ":DATA"                                      ":DATA"                                      "
  12. 312 DATA"                                      ":DATA"[145][145][145]                                      ":DATA"  ","  ","  ","  ","  ","  ","  ","                [197][210][210][207][210][211][146]":DATA"[207]N OCCASION, YOU MAY ENTER MORE":DATA"INFORMATION ON A LINE (FIELD) THAN"
  13. 405 DATA"IS ALLOWED. [215]HEN THIS HAPPENS, THE":DATA"[194][207][210][196][197][210] WILL TURN TO BLACK. [202]UST":DATA"PRESS <[210][197][212][213][210][206]> AND MAKE ANY CORRECTION":DATA"THAT MAY BE NECESSARY BY ENTERING":DATA"'[206][207]' TO THE [201][211][160][212][200][201][211][160][195][207][210][210][197][195][212][146] PROMPT.":DATA"             ","   "
  14. 501 DATA"            ...[211][200][193][210][197][215][193][210][197]...[146]         ":DATA"[212]HE [211][200][193][210][197][215][193][210][197] CONCEPT HAS BEEN MAKING  ":DATA"A LARGE VARIETY OF SOFTWARE AVAILABLE":DATA"TO THE PUBLIC AT VERY AFFORDABLE PRICES.":DATA"[145][208]LEASE SUPPORT THE [211][200][193][210][197][215][193][210][197] CONCEPT.","[201]F YOU HAVE FOUND THIS SOFTWARE"
  15. 524 DATA"USEFUL, PLEASE SEND YOUR CHECK FOR":DATA"$8.00 PAYABLE TO:                     ":DATA"    [158][208]ERCIVAL [194]LENMAN":DATA"    254 [197]AST 94 [211]TREET":DATA"    [194]ROOKLYN, [206][217]  11212[159]              ":DATA"                                       ":DATA"       "
  16. 600 FORI=0TO89:READA$:PRINTA$:A=A+1:IFA=11THENGOSUB700
  17. 610 NEXTI:GOTO1000
  18. 700 PRINT:PRINT"          <[193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197]>[146]"
  19. 704 GETB$:IFB$=""THEN704
  20. 706 A=0:PRINTCHR$(147):RETURN
  21. 1000 CLR:PRINT"[147]":POKE781,6:POKE782,0:POKE783,0:SYS65520:PRINT"LOAD "+CHR$(34)+"BBS BASE"+CHR$(34)+",8:";:POKE781,6:POKE782,0:POKE783,0:SYS65520:PRINT"[145][145][145]":POKE631,131:POKE198,1
  22.