home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-SETUP.SDA / SETUP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  126 lines
  1. 100 REM SETUP FILE FOR THE MC*BBS [VERSION 1.69 04/19/88 (C) 1984-1988 TO JT]
  2. 110 REM THIS PROGRAM IS 'NOT' IN THE PUBLIC DOMAIN...RATHER IS RELEASED AS A
  3. 115 REM SHAREWARE PRODUCT BY THE AUTHOR.  WHAT THIS MEANS IS THAT IT CAN BE
  4. 120 REM TRANSFERRED TO ANYONE (FREE OF CHARGE) AS LONG AS THE PROGRAM IS IN
  5. 125 REM ITS' ORIGINAL, UNALTERED STATE.  IF YOU WISH MORE INFORMATION ON THIS
  6. 130 REM PRODUCT, SEE THE OPENING SCREEN FOR MORE DETAILS
  7. 149 :
  8. 150 POKE53280,11:POKE53281,.:POKE646,5:POKE53272,23:Z$=CHR$(.):QW$=CHR$(34)
  9. 199 :
  10. 200 PRINT"[147]"
  11. 203 PRINT" **************************************"
  12. 205 PRINT" *                                    *"
  13. 210 PRINT" *  [212]HE [205]ESSAGE [195]ENTER [194][194][211] ([205][195]*[194][194][211])   *"
  14. 215 PRINT" *                                    *"
  15. 220 PRINT" * [212]HIS FILE IS PART OF A SERIES OF   *"
  16. 225 PRINT" * PROGRAMS THAT MAKE UP THE [205][195]*[194][194][211].  *"
  17. 230 PRINT" * [212]HE [205][195]*[194][194][211] IS A [211][200][193][210][197][215][193][210][197] PROGRAM, *"
  18. 235 PRINT" * AND THE AUTHORS REQUEST YOU SUPPORT*"
  19. 240 PRINT" * THEIR EFFORTS BY SENDING A DONATION*"
  20. 245 PRINT" * OF $10 IF YOU DECIDE TO USE THIS   *"
  21. 250 PRINT" * SYSTEM.  [201]F YOU WOULD LIKE TO GET  *"
  22. 255 PRINT" * DETAILED INSTRUCTIONS AND SOURCE   *"
  23. 260 PRINT" * CODE LISTINGS, THE AUTHORS REQUEST *"
  24. 265 PRINT" * A DONATION OF $35 TO COVER HANDLING*"
  25. 270 PRINT" * AND OTHER PROBLEMS.  [201]F YOU ARE    *"
  26. 275 PRINT" * INTERESTED, HIT '[217]' AT THE PROMPT. *"
  27. 280 PRINT" * [212]HANK YOU FOR CHECKING OUT THE     *"
  28. 285 PRINT" * [205][197][211][211][193][199][197] [195][197][206][212][197][210] [194][194][211]!                *"
  29. 290 PRINT" *                                    *"
  30. 295 PRINT" **************************************"
  31. 300 PRINT:PRINT" [215]ANT MORE INFO?  ";
  32. 310 GOSUB500:IFA$<>"[217]"ANDA$<>"Y"THEN1000
  33. 349 :
  34. 350 PRINT""
  35. 400 PRINT" **************************************"
  36. 405 PRINT" * [212]O ORDER AN ORIGINAL COPY OF THE   *"
  37. 410 PRINT" * [205][195]*[194][194][211], SEND $35 WITH A SELF-      *"
  38. 415 PRINT" * ADDRESSED DISK ENVELOPE (WE COVER  *"
  39. 420 PRINT" * POSTAGE AND HANDLING) TO THIS      *"
  40. 425 PRINT" * ADDRESS:                           *"
  41. 430 PRINT" *                                    *"
  42. 435 PRINT" *        [205][195]*[194][194][211] C/O [202][212]               *"
  43. 440 PRINT" *        670 [196]EL [211]OL [211]TREET          *"
  44. 445 PRINT" *        [193]RROYO [199]RANDE, [195]ALIF. 93420 *"
  45. 450 PRINT" *                                    *"
  46. 455 PRINT" * [201]F YOU WISH TO USE THE VERSION YOU *"
  47. 460 PRINT" * HAVE NOW, THE AUTHORS REQUEST A $10*"
  48. 465 PRINT" * DONATION TO COVER DEVELOPMENT AND  *"
  49. 470 PRINT" * LIVING EXPENSES (TO THE ABOVE      *"
  50. 475 PRINT" * ADDRESS).                          *"
  51. 480 PRINT" **************************************":PRINT:PRINT
  52. 484 :
  53. 485 PRINT:PRINT:PRINT"[145][145]   [200]IT [193][206][217] KEY TO CONTINUE! ";:GOSUB500:GOTO1000
  54. 490 :
  55. 500 GOSUB550:PRINTCHR$(190)"[157]";:GETA$:IFA$<>""THEN525
  56. 505 GOSUB550:PRINTCHR$(188)"[157]";:GETA$:IFA$<>""THEN525
  57. 510 GOSUB550:PRINTCHR$(172)"[157]";:GETA$:IFA$<>""THEN525
  58. 515 GOSUB550:PRINTCHR$(187)"[157]";:GETA$:IFA$<>""THEN525
  59. 520 GOTO500
  60. 525 PRINT" ":A=VAL(A$+Z$):RETURN
  61. 549 :
  62. 550 FORI=1TO50:NEXT:RETURN
  63. 799 :
  64. 800 CLOSE2:CLOSE15:PRINT:PRINT"[196]ISK ERROR";ER;"(";ER$;")"
  65. 805 PRINT"HAS OCCURRED.  [208]LEASE DETERMINE THE"
  66. 810 PRINT"PROBLEM BEFORE PROCEEDING.  [206]OW"
  67. 815 PRINT"TERMINATING THIS SESSION.":CLR:END
  68. 999 :
  69. 1000 PRINT"[147]":PRINT"  [205]ESSAGE [195]ENTER [194][194][211] [198]ILE [195]REATOR"
  70. 1005 PRINT:PRINT"  [196]O YOU WANT TO:"
  71. 1010 PRINT:PRINT"  1)  [195]REATE [210][197][204]ATIVE FILES"
  72. 1015 PRINT"  2)  [195]REATE [211][197][209]UENTIAL SYSTEM FILES"
  73. 1025 PRINT"  3)  [209]UIT":PRINT
  74. 1030 PRINT"    [217]OUR CHOICE? ";
  75. 1035 GOSUB500:IFA<1ORA>3THENPRINT"[145][145]":GOTO1030
  76. 1040 ONAGOTO1500,1200
  77. 1045 CLR:END
  78. 1199 :
  79. 1200 PRINT"[147]"
  80. 1203 PRINT" **************************************"
  81. 1205 PRINT" *                                    *"
  82. 1210 PRINT" *  [212]HE [205]ESSAGE [195]ENTER [194][194][211] ([205][195]*[194][194][211])   *"
  83. 1215 PRINT" *                                    *"
  84. 1220 PRINT" * [212]HE [211][197][209]UENTIAL SYSTEM FILES ARE    *"
  85. 1225 PRINT" * CONTAINED WITHIN A [211]ELF [196]ISSOLVING *"
  86. 1230 PRINT" * [193]RC ([211][196][193]) FILE.  [196][215].[211][196][193] IS FOR THE *"
  87. 1235 PRINT" * WRITE DRIVE ([196][215]) AND [196][210].[211][196][193] IS FOR *"
  88. 1240 PRINT" * THE READ DRIVE ([196][210]).  [212]HE SYSTEM   *"
  89. 1245 PRINT" * WAS DESIGNED AS A 2 DRIVE [194][194][211], BUT *"
  90. 1250 PRINT" * WILL RUN WITH ONE (WITH DISK FILE  *"
  91. 1255 PRINT" * LIMITATIONS - MAX OF 144).  [202]UST   *"
  92. 1260 PRINT" * PUT THE [211][196][193] FILE ON THE PROPER     *"
  93. 1265 PRINT" * DRIVE AND RUN IT.                  *"
  94. 1270 PRINT" *                                    *"
  95. 1275 PRINT" **************************************"
  96. 1300 PRINT:GOTO485
  97. 1499 :
  98. 1500 PRINT"[147]"
  99. 1503 PRINT" **************************************"
  100. 1505 PRINT" *                                    *"
  101. 1510 PRINT" *  [212]HE [205]ESSAGE [195]ENTER [194][194][211] ([205][195]*[194][194][211])   *"
  102. 1515 PRINT" *                                    *"
  103. 1520 PRINT" * [212]HE [210][197][204]ATIVE FILES ARE USED FOR    *"
  104. 1525 PRINT" * INDIVIDUAL ACCOUNT INFORMATION.    *"
  105. 1530 PRINT" * [212]HEY MUST BE CREATED ON YOUR WRITE *"
  106. 1535 PRINT" * DISK ([196][215]) [194][197][198][207][210][197] ANY INFORMATION   *"
  107. 1540 PRINT" * IS ENTERED IN.  [197]NTER THE DRIVE    *"
  108. 1545 PRINT" * NUMBER THAT WILL BE THE [196][215] DRIVE   *"
  109. 1550 PRINT" * AND [197][206][211][213][210][197] A FORMATTED DISK IS IN  *"
  110. 1555 PRINT" * THAT DRIVE BEFORE CONTINUING WITH  *"
  111. 1560 PRINT" * THIS OPERATION.  [206][207][212][197]: [201]T'S NORMAL *"
  112. 1565 PRINT" * FOR THE DRIVE LIGHT TO FLASH DURING*"
  113. 1570 PRINT" * THIS OPERATION.                    *"
  114. 1575 PRINT" *                                    *"
  115. 1580 PRINT" **************************************"
  116. 1585 PRINT:PRINT"   [196]RIVE # ?";:GOSUB500:IFA>11ORA<8THENPRINT"[145][145][145]";:GOTO1585
  117. 1590 DV=A:GOTO2000
  118. 1999 :
  119. 2000 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"PWDS.HSH,L,"+CHR$(80)
  120. 2005 PRINT#15,"P"+CHR$(96+2)+CHR$(244)+CHR$(1)+CHR$(0)
  121. 2010 PRINT#2,CHR$(255):CLOSE2:INPUT#15,E,ER$,E1$,E2$:CLOSE15
  122. 2015 :
  123. 2020 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"NAME.HSH,L,"+CHR$(50)
  124. 2025 PRINT#15,"P"+CHR$(96+2)+CHR$(244)+CHR$(1)+CHR$(0)
  125. 2030 PRINT#2,CHR$(255):CLOSE2:INPUT#15,E,ER$,E1$,E2$:CLOSE15:GOTO485
  126.