home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / CITADEL-64BBS.ARC / CONFIG.CIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.2 KB  |  208 lines
  1. 5 REM COMMLINE/CONFIG ** COPYRIGHT 1984 BY VINCE QUARESIMA - K2NE
  2. 10 REM COPYRIGHT ASSIGNED TO RAY BACON T/A COBRASOFT - 15 OCT 1985
  3. 11 REM ALL RIGHTS RESERVED
  4. 15 PRINT"[147]":PRINT
  5. 16 PRINT"[195]HOOSE ONE OF THE FOLLOWING:":PRINT:PRINTTAB(6)"<1> [206][197][215] [211][217][211][212][197][205] SETUP"
  6. 17 PRINTTAB(6)"<2> [210]E-CONFIGURE [205]ESSAGE-[194]ASES
  7. 18 [153]:[153][163]12)"(null)OUR LENHOICE? ";:[137]8000
  8. 20 [153]:[133]"LEFT$OW MANY DRIVES ARE TO BE USED";DQ
  9. 30 [139] DQ[177]4 [176] [181](DQ)[179][177]DQ [167] 20
  10. 40 [153]"(null)OU HAVE SPECIFIED";DQ;" DRIVES."
  11. 50 [133]"RIGHT$S THIS CORRECT <Y/N>";Q$:[139]Q$[179][177]"Y"[175]Q$[179][177]"(null)"[167][153]:[137]20
  12. 100 [153]"LOAD":[153]
  13. 110 [153]"LEFT$OW MANY MESSAGE BASES WILL YOU BE"
  14. 115 [133]"USING ON YOUR SYSTEM";BQ
  15. 120 [153]"(null)OU HAVE SPECIFIED";BQ;" MESSAGE-"
  16. 125 [133]"BASES. RIGHT$S THIS CORRECT <Y/N>";Q$
  17. 130 [139]Q$[179][177]"(null)"[175]Q$[179][177]"Y"[167]100
  18. 140 [133]"LEFT$OW MANY USERS DO YOU WISH TO SUPPORT   ON YOUR SYSTEM";UN
  19. 150 [153]"(null)OU HAVE SPECIFIED";UN;" USERS."
  20. 155 [133]"RIGHT$S THIS CORRECT <Y/N>";Q$
  21. 160 [139] Q$[179][177]"(null)"[175]Q$[179][177]"Y"[167]140
  22. 200 [153]"LOAD":[153]
  23. 210 [153]"(null)EMEMBER, BASES ARE NUMBERED STARTING   AT (null)VAL(null)(null) (0) AND (null)(null)(null) AT (null)(null)VAL (1)."
  24. 230 [153]:[153]"(null)OW WE WILL ENTER THE NAME FOR EACH":
  25. 231 [153]"MESSAGE-BASE, AND THE DRIVE IT WILL":[153]"OCCUPY.":[153]
  26. 240 [129] X[178]1 [164] BQ
  27. 241 [153]"PEEKASE";X[171]1:[153]"-----------"
  28. 242 [133]"(null)AME";N$(X)
  29. 243 [133]"STR$RIVE (DEVICE) #";D(X)
  30. 244 [153]
  31. 245 [133]"(null)AXIMUM # OF PEEKULLETINS";H(X):[130]X
  32. 250 [153]"LOAD":[153]
  33. 251 [153]"(null)OU HAVE SPECIFIED THE FOLLOWING:":[153]
  34. 252 [153]" PEEKATN(null)VAL  (null)ATN(null)VAL  STR$(null)RIGHT$(null)VAL  (null)ATN(null). # PEEK(null)(null)(null).":[153]
  35. 253 [129] X[178]1 [164] BQ
  36. 254 [153]X" "N$(X)" "D(X)" "H(X)
  37. 255 [130] X
  38. 260 [133]"RIGHT$S THIS CORRECT <Y/N>";Q$
  39. 261 [139] Q$[179][177]"(null)"[175]Q$[179][177]"Y"[167]200
  40. 270 [153]"(null)LACE YOUR (null)YSTEM DISK(S) IN DRIVE(S). WAIT"
  41. 271 [153]"(null)RESS ANY KEY TO CONTINUE."
  42. 272 [161]Q$:[139]Q$[178]""[167]272
  43. 275 [159]15,8,15,"S:MSG/BAS":[160]15
  44. 276 [153]:[153]" LENREATING 'MSG/BAS' WAIT"
  45. 280 [159]8,8,8,"MSG/BAS,S,W"
  46. 281 [152]8,DQ
  47. 282 [152]8,BQ
  48. 285 [152]8,UN
  49. 290 [129] X[178]1 [164] BQ
  50. 291 [152]8,N$(X)[170]","[170][196](D(X))[170]","[170][196](H(X))[170]" "
  51. 292 [130] X
  52. 293 [160] 8:[141]1000:[141]500:[141]2000
  53. 294 [153]"LOAD":[153]
  54. 300 [153]"(null)OUR (null)AIN LENONTROL ASCILES ARE NOW"
  55. 301 [153]"ON YOUR STR$RIVE 8 STR$ISK.  (null)OU MUST NOW"
  56. 302 [153]"CREATE YOUR ATNLENLEN(null)(null)(null)(null)(null) AND LEFT$RIGHT$PEEK(null)(null)(null) FILES"
  57. 303 [153]"USING THE TWO UTILITY PROGRAMS"
  58. 304 [153]"PROVIDED.  ASCOLLOW THE PROMPTS!"
  59. 305 [153]"(null)HEY ARE MENU-DRIVEN."
  60. 306 [153]:[153]" RIGHT$ASC RIGHT$(null) STR$(null)(null)PEEK(null), LEN(null)(null)(null)(null)(null)(null) (null)(null)(null)(null) STR$(null)LEN(null)(null)VAL(null)(null)ATN(null)RIGHT$(null)(null) PEEKVALASC(null)(null)VAL (null)(null)(null)LENVALVALSTR$RIGHT$(null)CHR$!WAIT"
  61. 307 [153]
  62. 308 [153]"ATNNY OF THESE FILES MAY BE MODIFIED"
  63. 309 [153]"BY A (null)VAL(null)(null)VAL(null)(null)RIGHT$ATN(null) ASCRIGHT$(null)VAL WORD-PROCESSOR TO  SUIT YOUR TASTE (null)(null)(null)(null)RIGHT$STR$VALSTR$ YOU."
  64. 310 [153]"(null)(null)VAL(null)VAL(null)(null)VAL THE (null)ATN(null)(null) (null)RIGHT$(null)VAL OF THE FILE      VAL(null)ATNLEN(null)(null)(null) AS YOU SEE IT!"
  65. 315 [153]:[153]"(null)RESS ANY KEY TO CONTINUE.";
  66. 320 [161]AZ$:[139]AZ$[178]""[167]320
  67. 325 [159]15,8,15,"S0:CONFIG*":[160]15:[148]"CONFIG6.6",8
  68. 330 [153]"LOAD":[156]:[162]
  69. 500 [153]:[153]" (null)EEDING PEEK(null)(null)(null)VAL(null)RIGHT$(null)(null) WAIT":[153]:[129]X[178]1[164]BQ
  70. 510 CD[178]X[171]1:Q$[178][199](34)
  71. 515 BB$[178][196](CD):B$[178][201](BB$,1)
  72. 520 [159]8,D(X),8,"MB"[170]B$[170]". 1,S,W"
  73. 525 [152]8,"(null)VAL(null)LEN(null)(null)VAL":[152]8,"(null)YSOP"
  74. 530 [152]8,Q$[170]"(null)ELCOME TO THIS SECTION OF THE PEEKPEEK(null)."
  75. 535 [152]8,Q$[170]"VALNJOY YOUR USE OF THE SYSTEM, AND"
  76. 540 [152]8,Q$[170]"FEEL FREE TO CALL OFTEN!":[152]8,Q$[170]" ":[152]8,"@"
  77. 550 [160]8:[153]"MB"B$". 1  LEN(null)VALATN(null)VALSTR$. WAIT"
  78. 560 [159]8,D(X),8,"MB"[170]B$[170]"/SCAN,S,W":[152]8," 1"
  79. 562 [152]8,"(null)VAL(null)LEN(null)(null)VAL":[152]8," 999"
  80. 565 [152]8,"@":[160]8:[153]"MB"B$"/SCAN  LEN(null)VALATN(null)VALSTR$. WAIT":[130]:[139]C[179][177]1[167][128]
  81. 570 [142]
  82. 1000 [139]C[178]2[167][153]"LOADPEEKASES RECONFIGURED.":[162]
  83. 1002 [153]:[153]" LENREATING 'TOPBULL' WAIT":[153]
  84. 1003 [159]15,8,15,"S0:TOPBULL":[160]15:[159]8,8,8,"TOPBULL,S,W"
  85. 1005 [129]X[178]1[164]10:[152]8," 1 ":[130]:[160]8:[142]
  86. 2000 [153]:[153]" LENREATING  'BASEMENU'. WAIT":[159]8,8,8,"BASEMENU,S,W":Q$[178][199](34)
  87. 2010 [152]8,Q$[170]"     **** ATNCTIVE (null)ESSAGE-PEEKASES ***"
  88. 2020 [129] X [178] 1 [164] BQ
  89. 2030 [152]8,Q$[170]"**"[170][196](X[171]1)[170]" **   "[170]N$(X):[130]:[152]8,Q$[170]" ":[160]8
  90. 2035 [139]C[179][177]1[167][128]
  91. 2040 [153]:[153]" LENREATING  'LOGBOOK'. WAIT":[159]8,8,8,"LOGBOOK,S,W":Q$[178][199](34)
  92. 2050 [129]X[178]1[164]24:[152]8,Q$[170]"----------":[130]:[152]8,Q$[170]" ":[160]8
  93. 2060 [153]:[153]" LENREATING  'PHONES'. WAIT":[159]8,8,8,"PHONES,S,W":Q$[178][199](34)
  94. 2070 [152]8,Q$[170]"609-726-1565    MID$VAL(null)(null)VAL(null) STR$VAL(null)RIGHT$(null)":[152]8,Q$[170]" ":[160]8
  95. 2080 [153]:[153]" LENREATING  'DLSCAN'. WAIT":[159]8,8,8,"DLSCAN,S,W":Q$[178][199](34)
  96. 2090 [152]8," 0":[160]8
  97. 2100 [153]:[153]" LENREATING  'ULSCAN'. WAIT":[159]8,7[170]DQ,8,"ULSCAN,S,W":Q$[178][199](34)
  98. 2110 [152]8," 0":[160]8
  99. 2120 [153]:[153]" LENREATING  'BANNED'. WAIT":[159]8,8,8,"BANNED,S,W":Q$[178][199](34)
  100. 2130 [152]8,Q$[170]"(null)(null)(null)(null)(null)":[160]8
  101. 2200 [129] X [178] 1 [164] BQ
  102. 2210 [153]
  103. 2220 [153]"STR$O YOU WANT STR$RIGHT$(null)LEN(null)(null)(null)RIGHT$(null)(null)(null) ON              (null)ESSAGE-PEEKASE #";X[171]1;
  104. 2230 [133]Y$:[139]Y$[178]"N"[167]2244
  105. 2235 [139]Y$[178]"Y"[167]2300
  106. 2240 [153]:[137]2220
  107. 2244 CD[178]X[171]1:Q$[178][199](34):BB$[178][196](CD):B$[178][201](BB$,1)
  108. 2245 [159]8,7[170]DQ,8,"MB"[170]B$[170]"/D/HOUSE,S,W":[152]8," 0":[152]8," 0":[160]8:[137]2400
  109. 2300 CD[178]X[171]1:Q$[178][199](34)
  110. 2305 BB$[178][196](CD):B$[178][201](BB$,1)
  111. 2310 [159]8,7[170]DQ,8,"MB"[170]B$[170]"/DISC. 1,S,W"
  112. 2315 [152]8,"(null)VAL(null)LEN(null)(null)VAL":[152]8,"(null)YSOP"
  113. 2320 [152]8,Q$[170]"(null)ELCOME TO THIS SECTION OF THE PEEKPEEK(null)."
  114. 2325 [152]8,Q$[170]"VALNJOY YOUR USE OF THE SYSTEM, AND"
  115. 2330 [152]8,Q$[170]"FEEL FREE TO CALL OFTEN!":[152]8,Q$[170]" ":[152]8,"----------"
  116. 2335 [160]8:[153]"MB"B$"/DISC. 1  LEN(null)VALATN(null)VALSTR$. WAIT"
  117. 2340 [159]8,7[170]DQ,8,"MB"[170]B$[170]"/D/SCAN,S,W":[152]8," 1      (null)VAL(null)LEN(null)(null)VAL"
  118. 2345 [152]8,"(null)YSOP           STR$RIGHT$(null)LEN/  RIGHT$(null)RIGHT$(null)"
  119. 2350 [152]8,"----------":[160]8:[153]"MB"B$"/D/SCAN  LEN(null)VALATN(null)VALSTR$. WAIT"
  120. 2360 [159]8,7[170]DQ,8,"MB"[170]B$[170]"/D/HOUSE,S,W":[152]8," 1":[152]8," 1"
  121. 2370 [152]8,"----------":[160]8:[153]"MB"B$"/D/HOUSE  LEN(null)VALATN(null)VALSTR$. WAIT"
  122. 2400 [130]X
  123. 2410 [159]8,8,8,"NOTEPAD,S,W"
  124. 2420 [152]8,Q$[170]"(null)HIS AREA OF THE PEEKPEEK(null) WILL BE USED"
  125. 2425 [152]8,Q$[170]"TO POST NEWS AND ITEMS OF INTEREST"
  126. 2430 [152]8,Q$[170]"TO YOU AS YOU USE THE (null)YSTEM":[152]8,Q$[170]" "
  127. 2435 [160]8:[153]" NOTEPAD  LEN(null)VALATN(null)VALSTR$. WAIT"
  128. 2510 [159]8,8,8,"WHATSNEW,S,W"
  129. 2520 [152]8,Q$[170]"(null)HIS AREA OF THE PEEKPEEK(null) WILL BE USED"
  130. 2525 [152]8,Q$[170]"TO POST NEWS AND ITEMS OF INTEREST"
  131. 2530 [152]8,Q$[170]"TO THE (null)ELECOMMUNICATIONS FRATERNITY.":[152]8,Q$[170]" "
  132. 2535 [160]8:[153]" WHATSNEW  LEN(null)VALATN(null)VALSTR$. WAIT"
  133. 2610 [159]8,8,8,"CLASSIFIEDS,S,W"
  134. 2620 [152]8,Q$[170]"(null)HIS AREA OF THE PEEKPEEK(null) WILL BE USED"
  135. 2625 [152]8,Q$[170]"FOR COMMERCIAL ADVERTISING.  (null)EAVE"
  136. 2630 [152]8,Q$[170]"A (null)(null)CHR$(null)ASCASC MESSAGE IF INTERESTED!":[152]8,Q$[170]" "
  137. 2635 [160]8:[153]" CLASSIFIEDS  LEN(null)VALATN(null)VALSTR$. WAIT"
  138. 2710 [159]8,8,8,"COMMLINE,S,W"
  139. 2720 [152]8,Q$[170]"(null)HIS AREA OF THE PEEKPEEK(null) WILL BE USED"
  140. 2725 [152]8,Q$[170]"TO BRING YOU INFORMATION CONCERNING"
  141. 2730 [152]8,Q$[170]"THE LEN(null)(null)(null)(null)RIGHT$(null)VAL-64 PEEKPEEK(null) SOFTWARE.":[152]8,Q$[170]" "
  142. 2735 [160]8:[153]" COMMLINE  LEN(null)VALATN(null)VALSTR$. WAIT"
  143. 2810 [159]8,8,8,"NEWUSER,S,W"
  144. 2820 [152]8,Q$[170]"(null)LEASE BE SURE TO LEAVE (null)ATN(null)RIGHT$STR$"
  145. 2825 [152]8,"RIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null) AS YOU LOGIN TO THIS PEEKPEEK(null)."
  146. 2830 [152]8,Q$[170]"(null)OUR COOPERATION IS APPRECIATED!":[152]8,Q$[170]" "
  147. 2835 [160]8:[153]" NEWUSER  LEN(null)VALATN(null)VALSTR$. WAIT"
  148. 2910 [159]8,8,8,"CALLNUM,S,W"
  149. 2920 [152]8,Q$[170]"(null)OU ARE CALLER #:"
  150. 2925 [152]8," 0"
  151. 2930 [152]8,Q$[170]"(null)AST CALLER WAS.....(null)ATN(null)(null)ASCATNLEN(null)(null)(null)VAL(null)"
  152. 2935 [152]8,Q$[170]"** DATE OF MANUFACTURE **"
  153. 2940 [160]8:[153]" CALLNUM  LEN(null)VALATN(null)VALSTR$. WAIT"
  154. 2941 [144]
  155. 3000 [159]8,8,8,"CHATFLAG,S,W"
  156. 3020 [152]8,Q$[170]"(null)HE (null)(null)(null)(null)(null) IS NOT AVAILABLE."
  157. 3025 [152]8,"(null)LEASE TRY BEFORE LEAVING, OR POST A"
  158. 3030 [152]8,Q$[170]"(null)OGOFF (null)ESSAGE ON YOUR WAY OUT!"
  159. 3035 [160]8:[153]" CHATFLAG  LEN(null)VALATN(null)VALSTR$. WAIT"
  160. 3100 [159]8,8,8,"DLMENU,S,W"
  161. 3120 [152]8,Q$[170]"(null)HIS AREA WILL CONTAIN THE"
  162. 3125 [152]8,"LIST OF ASCRIGHT$(null)VAL(null) YOU CAN DOWNLOAD"
  163. 3130 [152]8,Q$[170]"USING THE (null)(null)(null)STR$VAL(null) PROTOCOL!"
  164. 3135 [160]8:[153]" DLMENU  LEN(null)VALATN(null)VALSTR$. WAIT"
  165. 3200 [159]8,8,8,"DOWN/INSTR,S,W"
  166. 3220 [152]8,Q$[170]"(null)HIS AREA IS TO CONTAIN THE"
  167. 3225 [152]8,"INSTRUCTIONS FOR USE OF THE ASCRIGHT$(null)VAL- "
  168. 3230 [152]8,Q$[170]"(null)(null)ATN(null)(null)ASCVAL(null) SECTION OF THE PEEKPEEK(null)."
  169. 3235 [160]8:[153]" DOWN/INSTR  LEN(null)VALATN(null)VALSTR$. WAIT"
  170. 3300 [159]8,7[170]DQ,8,"USERDATA,S,W":[160]8
  171. 3310 [160]8:[153]" USERDATA  LEN(null)VALATN(null)VALSTR$. WAIT"
  172. 3400 [159]8,8,8,"HELP,S,W":[160]8
  173. 3420 [152]8,Q$[170]"(null)HIS AREA IS TO CONTAIN A"
  174. 3425 [152]8,"DETAILED LEFT$VAL(null)(null) FILE FOR USE OF THE "
  175. 3430 [152]8,Q$[170]"(null)AIN (null)ENU COMMANDS."
  176. 3440 [160]8:[153]" HELP  LEN(null)VALATN(null)VALSTR$. WAIT"
  177. 3500 [159]8,7[170]DQ,8,"FEEDBACK,S,W"
  178. 3520 [152]8,Q$[170]"ASCVALVALSTR$PEEKATNLEN(null)"
  179. 3540 [160]8:[153]" FEEDBACK  LEN(null)VALATN(null)VALSTR$. WAIT"
  180. 3600 [159]8,8,8,"MAINMENU,S,W"
  181. 3602 [152]8,Q$[170]"      *** (null)(null)(null)(null)VAL(null) (null)ATNRIGHT$(null) (null)VAL(null)(null) ***"
  182. 3603 [152]8,Q$[170]" "
  183. 3604 [152]8,Q$[170]"<(null)>ELL FOR (null)(null)(null)(null)(null)      <(null)>ESSAGE PEEKASES"
  184. 3606 [152]8,Q$[170]"<(null)>PER (null)OGGLE         <(null)>YSTEM RIGHT$NFO."
  185. 3608 [152]8,Q$[170]"<(null)>UMBERS TO LENALL     <ASC>ILE (null)RANSFER"
  186. 3610 [152]8,Q$[170]"<CHR$>OODBYE/DISCONNECT  <VAL> (null)AIL"
  187. 3612 [152]8,Q$[170]"<(null)>SER-(null)IST           <(null)>E-(null)OGON"
  188. 3614 [152]8,Q$[170]"<LEN>HECK (null)OUR (null)TATUS   <(null)>HAT'S (null)EW"
  189. 3616 [152]8,Q$[170]"<LEFT$>ELP WITH LENOMMANDS  <(null)>OGBOOK"
  190. 3618 [152]8,Q$[170]"<#> LENLASSIFIED ATNDS    <*> LEN(null)(null)(null)(null)RIGHT$(null)VAL-64"
  191. 3620 [152]8,Q$[170]" "
  192. 3622 [152]8,Q$[170]"     (null)(null) (null)ESSAGE-PEEKASE # AT (null)ROMPT"
  193. 3624 [152]8,"END"
  194. 3640 [160]8:[153]" MAINMENU  LEN(null)VALATN(null)VALSTR$. WAIT"
  195. 3700 [159]8,8,8,"SYSINFO,S,W"
  196. 3720 [152]8,Q$[170]"(null)HIS FILE WILL DESCRIBE THE HARDWARE"
  197. 3730 [152]8,Q$[170]"SUPPORTING THE PEEKPEEK(null)."
  198. 3740 [160]8:[153]" SYSINFO  LEN(null)VALATN(null)VALSTR$. WAIT"
  199. 3800 [159]8,8,8,"ANNOUNCEMENT,S,W"
  200. 3830 [152]8,Q$[170]"LEN(null)(null)(null)VALLEN(null)VALSTR$."
  201. 3835 [152]8,Q$[170]" "
  202. 3840 [160]8:[153]" ANNOUNCEMENT  LEN(null)VALATN(null)VALSTR$. WAIT"
  203. 4000 [142]
  204. 8000 [161]C$:C[178][197](C$)
  205. 8010 [139]C$[178]""[167]8000
  206. 8020 C[178][197](C$):[139]C[179]1[176]C[177]2[167][138]
  207. 8030 [153]C$:[137]20
  208.