home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / BBSMACHINE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  283 lines
  1. 100 BI=0:CR$=CHR$(13)
  2. 104 DIMBN$(100)
  3. 110 OPEN15,8,15
  4. 113 PG$(1)="**************************************"
  5. 114 PG$(2)="--------------------------------------"
  6. 115 PG$(3)="======================================"
  7. 120 GOTO1200
  8. 200 PRINT"[147][200]APPY [194][194][211]ING....."
  9. 201 CLOSE15
  10. 202 FORI=1TO3000:NEXT:PRINT"[147]":END
  11. 299 END
  12. 400 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14)
  13. 409 PRINT""SPC(15)"[158][176]         [174]"
  14. 410 PRINTSPC(16)"[198]ILE [205]ENU"
  15. 411 PRINTSPC(15)"[158][173]         [189]"
  16. 420 PRINTSPC(10)"[196]O YOU WANT TO....."
  17. 430 PRINTSPC(12)"1. [195]REATE A FILE"
  18. 440 PRINTSPC(12)"2. [197]DIT A FILE"
  19. 450 PRINTSPC(12)"3. [197]XIT THE [208]ROGRAM"
  20. 454 PRINTSPC(12)"^[146]  [197]NTER [195]HOICE"
  21. 460 GETX$:IFX$=""THEN460
  22. 465 IFX$="1"THEN490
  23. 466 IFX$="2"THEN700
  24. 467 IFX$="3"THEN200
  25. 468 GOTO460
  26. 490 POKE53281,11:PRINT"[147][197]NTER [198]ILE [206]AME:"
  27. 491 PRINTSPC(20)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  28. 493 PRINT"[145][145]"SPC(20);:INPUT"[144]";FG$
  29. 495 POKE53280,11:POKE53281,0:POKE646,11
  30. 497 PRINT"[147][153][197]NTER THE INFO ASKED FOR AT EACH PROMPT."
  31. 498 PRINT""SPC(11)CHR$(34)"^"CHR$(34)"  = [197]ND SECTION"
  32. 499 BI=BI+1
  33. 500 PRINT"[153][194]OARD [206]AME:"
  34. 510 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  35. 520 PRINT"[145][145]"SPC(20);:INPUT"[156]";BN$(BI)
  36. 523 IFBN$(BI)="^"THENBI=BI-1:GOTO650
  37. 530 PRINT"[153][208]HONE [206]UMBER:"
  38. 533 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  39. 537 PRINT"[145][145]"SPC(20);:INPUT"[156]";PN$(BI)
  40. 540 PRINT"[153][211]YSOP [206]AME  :"
  41. 543 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  42. 547 PRINT"[145][145]"SPC(20);:INPUT"[156]";SN$(BI)
  43. 550 PRINT"[153][208]ASSWORD  :"
  44. 553 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  45. 557 PRINT"[145][145]"SPC(20);:INPUT"[156]";PW$(BI)
  46. 560 PRINT"[153][201] [196] [206]UMBER:"
  47. 563 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  48. 567 PRINT"[145][145]"SPC(20);:INPUT"[156]";ID$(BI)
  49. 570 PRINT"[153][194]AUD [210]ATE :"
  50. 573 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  51. 577 PRINT"[145][145]"SPC(20);:INPUT"[156]";BR$(BI)
  52. 580 PRINT"[153][194]OARD [200]OURS:"
  53. 583 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 587 PRINT"[145][145]"SPC(20);:INPUT"[156]";BH$(BI)
  55. 590 PRINT"[153][194]OARD [212]YPE :"
  56. 593 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  57. 597 PRINT"[145][145][151]"SPC(20);:INPUT"[156]";BT$(BI)
  58. 600 PRINTSPC(10)"[201]S INFO CORRECT (Y/N)"
  59. 603 GETY$:IFY$=""THEN603
  60. 605 IFY$="Y"THEN495
  61. 607 IFY$="N"THENBI=BI-1:GOTO495
  62. 609 GOTO603
  63. 650 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,9
  64. 651 INPUT"SAVE INFO? (Y/N)";X$
  65. 652 IFX$="N"THEN400
  66. 653 PRINT"[147]"
  67. 655 PRINTSPC(15)"[211]AVING INFO...."
  68. 661 OPEN2,8,2,"@0:"+FG$+",S,W":GOSUB900
  69. 662 PRINT#2,BI
  70. 663 FORBN=1TOBI
  71. 664 PRINT#2,BN$(BN);CR$;PN$(BN);CR$;SN$(BN)
  72. 665 PRINT#2,PW$(BN);CR$;ID$(BN);CR$;BR$(BN)
  73. 666 PRINT#2,BH$(BN);CR$;BT$(BN)
  74. 667 NEXT
  75. 668 CLOSE2
  76. 670 GOTO400
  77. 700 POKE53281,11:PRINT"[147][197]NTER [198]ILE [206]AME:"
  78. 710 PRINTSPC(20)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  79. 715 PRINT"[145][145]"SPC(20);:INPUT"[144]";FG$
  80. 725 OPEN2,8,2,"@0:"+FG$+",S,R"
  81. 727 GOSUB900
  82. 730 INPUT#2,BI
  83. 733 FORBN=1TOBI
  84. 735 INPUT#2,BN$(BN),PN$(BN),SN$(BN)
  85. 737 INPUT#2,PW$(BN),ID$(BN),BR$(BN)
  86. 738 INPUT#2,BH$(BN),BT$(BN)
  87. 740 NEXT
  88. 741 CLOSE2
  89. 742 GOTO800
  90. 800 PRINT"[147]":POKE53280,15:POKE53281,0:POKE646,1
  91. 809 PRINT""SPC(12)"[158][176]              [174]"
  92. 810 PRINTSPC(13)"[154][197]DIT [198]ILE [205]ENU"
  93. 811 PRINTSPC(12)"[158][173]              [189]"
  94. 820 PRINTSPC(12)"[158]1.[154] [214]IEW TO [211]CREEN
  95. 830 [153][166]12)"SYS2.CONT (null)RINT LEFT$ARD LENOPY"
  96. 840 [153][166]12)"SYS3.CONT PEEKACK TO PEEKEGINNING"
  97. 850 [153][166]12)"SYS^WAITCONT  VALNTER LENHOICE"
  98. 860 [161]X$:[139]X$[178]""[167]860
  99. 863 [139]X$[178]"1"[167]1000
  100. 865 [139]X$[178]"2"[167]1300
  101. 867 [139]X$[178]"3"[167]400
  102. 869 [137]860
  103. 900 [143] ERROR CHECK
  104. 901 [132]15,EN,EM$,ET,ES
  105. 902 [139]EN[177]0[167][153]""EN,EM$,ET,ES:[129]I[178]1[164]400:[130]:[160]2:[137]4000
  106. 910 [142]
  107. 950 [153]"LOAD":[151]53281,12:[151]53280,11:[151]646,0
  108. 955 [153]"(null)AS THERE ANY CHANGES OR ADDITIONS ?":[153][166]15)"(Y/N)
  109. 960 GETX$:IFX$=""THEN960
  110. 961 IFX$="Y"THEN650
  111. 962 IFX$="N"THEN400
  112. 1000 POKE53280,11:POKE53281,0:POKE646,11
  113. 1001 FORBN=1TOBI
  114. 1003 PRINT"[147]"SPC(12)"[194]OARD # "BN
  115. 1005 PRINT"[153][194]OARD [206]AME:"
  116. 1007 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  117. 1009 PRINT"[145][145]"SPC(20)"[156]";BN$(BN)
  118. 1010 PRINT"[153][208]HONE [206]UMBER:"
  119. 1013 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  120. 1015 PRINT"[145][145]"SPC(20)"[156]"PN$(BN)
  121. 1020 PRINT"[153][211]YSOP [206]AME  :"
  122. 1023 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  123. 1025 PRINT"[145][145]"SPC(20)"[156]"SN$(BN)
  124. 1030 PRINT"[153][208]ASSWORD  :"
  125. 1033 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  126. 1035 PRINT"[145][145]"SPC(20)"[156]"PW$(BN)
  127. 1040 PRINT"[153][201] [196] [206]UMBER:"
  128. 1043 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  129. 1045 PRINT"[145][145]"SPC(20)"[156]"ID$(BN)
  130. 1050 PRINT"[153][194]AUD [210]ATE :"
  131. 1053 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  132. 1055 PRINT"[145][145]"SPC(20)"[156]"BR$(BN)
  133. 1060 PRINT"[153][194]OARD [200]OURS:"
  134. 1063 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  135. 1065 PRINT"[145][145]"SPC(20)"[156]"BH$(BN)
  136. 1070 PRINT"[153][194]OARD [212]YPE :"
  137. 1073 PRINTSPC(20)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  138. 1075 PRINT"[145][145][151]"SPC(20)"[156]"BT$(BN)
  139. 1080 PRINT"[154][208]RESS "CHR$(34)"+"CHR$(34)"[154] TO VIEW NEXT BOARD INFO"
  140. 1082 PRINT"[208]RESS "CHR$(34)"-"CHR$(34)"[154] TO VIEW PREVIOUS BOARD INFO"
  141. 1083 PRINT"[208]RESS "CHR$(34)"\"CHR$(34)"[154] TO EDIT THE INFO"
  142. 1085 GETX$:IFX$=""THEN1085
  143. 1086 IFX$="\"THEN1100
  144. 1087 IFX$="+"THENNEXT:IFBN>BITHEN950
  145. 1088 IFX$="-"THENBN=BN-1
  146. 1089 IFBN<=0THEN950
  147. 1090 IFBN>0THEN1003
  148. 1096 GOTO1085
  149. 1100 PRINT"[147]"
  150. 1105 PRINT"1. "BN$(BN)
  151. 1106 PRINTNEW2. "PN$(BN)
  152. 1107 [153]"3. "SN$(BN)
  153. 1108 [153]"4. "PW$(BN)
  154. 1109 [153]"5. "ID$(BN)
  155. 1110 [153]"6. "BR$(BN)
  156. 1111 [153]"7. "BH$(BN)
  157. 1112 [153]"8. "BT$(BN)
  158. 1120 [153][166]4)"VALNTER THE ITEM # TO BE CHANGED"
  159. 1125 [161]X$:[139]X$[178]""[167]1125
  160. 1130 [139]X$[178]"1"[167][133]"ONONONONONONONONONONONON(null)EW (null)AME";BN$(BN):[153]"":[137]1140
  161. 1131 [139]X$[178]"2"[167][133]"ONONONONONONONONONONON(null)EW (null)UMBER";PN$(BN):[153]"":[137]1140
  162. 1132 [139]X$[178]"3"[167][133]"ONONONONONONONONONON(null)EW (null)YSOP ";PN$(BN):[153]"":[137]1140
  163. 1133 [139]X$[178]"4"[167][133]"ONONONONONONONONON(null)EW (null)ASSWORD";PW$(BN):[153]"":[137]1140
  164. 1134 [139]X$[178]"5"[167][133]"ONONONONONONON(null)EW RIGHT$ STR$ (null)UMBER";ID$(BN):[153]"":[137]1140
  165. 1135 [139]X$[178]"6"[167][133]"ONONONONONONON(null)EW PEEKAUD (null)ATE ";BR$(BN):[153]"":[137]1140
  166. 1136 [139]X$[178]"7"[167][133]"ONONONONONON(null)EW PEEKOARD LEFT$OURS";BH$(BN):[153]"":[137]1140
  167. 1137 [139]X$[178]"8"[167][133]"ONONONONON(null)EW PEEKOARD (null)YPE ";BH$(BN):[153]"":[137]1140
  168. 1140 [153]"      ATNNY OTHER CHANGES ?         "
  169. 1141 [161]X$:[139]X$[178]""[167]1141
  170. 1142 [139]X$[178]"Y"[167]1100
  171. 1143 [139]X$[178]"N"[167]1000
  172. 1144 [137]1141
  173. 1200 [153]"LOAD":[151]53281,0:[151]53280,0:[151]53272,21
  174. 1210 [153]""
  175. 1211 [153][163]14)"ORLENRIGHT$  ORLENRIGHT$  (null)LENRIGHT$"
  176. 1212 [153][163]14)"-LEN<  -LEN<  MID$LENRIGHT$"
  177. 1213 [153][163]14)"/LEN(null)  /LEN(null)  MID$LEN(null)"
  178. 1215 [153]""
  179. 1220 [153][163]4)"(null)=RIGHT$  (null)LENRIGHT$  (null)LENRIGHT$  = =  LEN=LEN  ORRIGHT$=  ORLENRIGHT$"
  180. 1221 [153][163]4)"(null)(null)(null)  -LEN<  (null)    -LEN<   (null)   (null)(null)(null)  -LEN "
  181. 1222 [153][163]4)"> >  > >  MID$LEN(null)  > >  LEN>LEN  >MID$EXP  /LEN(null)"
  182. 1225 [153]""
  183. 1226 [153][163]12)"BY  D.P. SEARLES"
  184. 1230 [129]I[178]1[164]5500:[130]:[137]400
  185. 1299 [128]
  186. 1300 [159]4,4,7:[160]4
  187. 1303 [139]ST[179][177]0[167][153]"LOAD(null)ROBLEM WITH PRINTER":[137]1305
  188. 1304 [153]"LOAD(null)RINTER IS ON-LINE & FINE":[129]I[178]1[164]3000:[130]:[137]1500
  189. 1305 [153]"(null)RY AGAIN Y/N?"
  190. 1306 [161]A$:[139]A$[178]""[167]1306
  191. 1307 [139]A$[178]"N"[167]400
  192. 1308 [137]1300
  193. 1309 [137]1303
  194. 1320 [151]53280,11:[151]53281,0:[151]646,11
  195. 1321 [129]BN[178]1[164]BI
  196. 1323 [153]"LOAD"[166]12)"PEEKOARD # "BN
  197. 1325 [153]"PRINTPEEKOARD (null)AME:"
  198. 1327 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  199. 1329 [153]"ONON"[166]20)"CLR";BN$(BN)
  200. 1330 [153]"PRINT(null)HONE (null)UMBER:"
  201. 1333 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  202. 1335 [153]"ONON"[166]20)"CLR"PN$(BN)
  203. 1340 [153]"PRINT(null)YSOP (null)AME  :"
  204. 1343 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  205. 1345 [153]"ONON"[166]20)"CLR"SN$(BN)
  206. 1350 [153]"PRINT(null)ASSWORD  :"
  207. 1353 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  208. 1355 [153]"ONON"[166]20)"CLR"PW$(BN)
  209. 1360 [153]"PRINTRIGHT$ STR$ (null)UMBER:"
  210. 1363 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  211. 1365 [153]"ONON"[166]20)"CLR"ID$(BN)
  212. 1370 [153]"PRINTPEEKAUD (null)ATE :"
  213. 1373 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  214. 1375 [153]"ONON"[166]20)"CLR"BR$(BN)
  215. 1380 [153]"PRINTPEEKOARD LEFT$OURS:"
  216. 1383 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  217. 1385 [153]"ONON"[166]20)"CLR"BH$(BN)
  218. 1390 [153]"PRINTPEEKOARD (null)YPE :"
  219. 1393 [153][166]20)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  220. 1395 [153]"ONONPOKE"[166]20)"CLR"BT$(BN)
  221. 1400 [153][166]10)"(null)RINT THIS INFO ?"
  222. 1401 [161]X$:[139]X$[178]""[167]1401
  223. 1402 [139]X$[178]"Y"[175]BN[179]BI[167]1450
  224. 1403 [139]X$[178]"N"[175]BN[179]BI[167][130]
  225. 1404 [139]X$[178]"N"[175]BN[178]BI[167]400
  226. 1405 [137]1401
  227. 1450 [153][166]12)"(null)RINTING......"
  228. 1451 [159]4,4,4
  229. 1452 [152]4:[152]4
  230. 1453 [152]4,PG$(1)
  231. 1460 [152]4
  232. 1461 [152]4,[199](14)BK[166]4)BN$(BN)
  233. 1462 [152]4,PG$(2)
  234. 1463 [152]4,[199](14);[166]04);"PHONE NUMBER:"PN$(BI)
  235. 1464 [152]4,[199](14);[166]04);"SYSOP'S NAME:"SN$(BI)
  236. 1465 [152]4,[199](14);[166]04);"PASSWORD    :"PW$(BI)
  237. 1466 [152]4,[199](14);[166]04);"I D NUMBER  :"ID$(BI)
  238. 1467 [152]4,[199](14);[166]04);"BAUD RATE   :"BR$(BI)
  239. 1468 [152]4,[199](14);[166]04);"BOARD HOURS :"BH$(BI)
  240. 1469 [152]4,[199](14);[166]04);"BOARD TYPE  :"BT$(BI)
  241. 1470 [152]4:[152]4:[152]4
  242. 1471 [152]4,PG$(1)
  243. 1475 [152]4,[199](15)
  244. 1480 [153][166]12)"STR$(null)(null)VAL"
  245. 1490 [130]BN
  246. 1500 [151]53281,0:[153]"LOAD"
  247. 1502 [153][166]13)"OR            ^"
  248. 1503 [153][166]15)"(null)(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)"
  249. 1504 [153][166]13)"/            EXP"
  250. 1505 [153][166]12)"SYS1. (null)RINT (null)HOLE ASCILE"
  251. 1510 [153][166]12)"SYS2. (null)RINT RIGHT$NDIVIDUAL RIGHT$NFO"
  252. 1515 [153][166]12)"SYS3. VALND
  253. 1520 PRINTSPC(12)"[158]^  [195]HOOSE"
  254. 1525 GETX$:IFX$=""THEN1525
  255. 1526 IFX$="1"THEN2000
  256. 1527 IFX$="2"THEN1320
  257. 1528 IFX$="3"THENCLOSE4:GOTO400
  258. 1529 GOTO1525
  259. 2000 OPEN4,4,4
  260. 2001 PRINT#4:PRINT#4
  261. 2002 PRINT#4,PG$(1)
  262. 2003 PRINT#4,"[212]HE FOLLOWING IS THE ENTIRE CONTENTS OF THE FILE...."
  263. 2005 PRINT#4,""TAB(15)CHR$(14)FG$
  264. 2006 PRINT#4:PRINT#4
  265. 2007 PRINT#4,PG$(3)
  266. 2010 FORBK=1TOBI
  267. 2011 PRINT#4
  268. 2015 PRINT#4,CHR$(14)BKSPC(4)BN$(BK)
  269. 2016 PRINT#4,PG$(2)
  270. 2020 PRINT#4,CHR$(14);SPC(04);"PHONE NUMBER:"PN$(BK)
  271. 2023 PRINT#4,CHR$(14);SPC(04);"SYSOP'S NAME:"SN$(BK)
  272. 2024 PRINT#4,CHR$(14);SPC(04);"PASSWORD    :"PW$(BK)
  273. 2025 PRINT#4,CHR$(14);SPC(04);"I D NUMBER  :"ID$(BK)
  274. 2026 PRINT#4,CHR$(14);SPC(04);"BAUD RATE   :"BR$(BK)
  275. 2027 PRINT#4,CHR$(14);SPC(04);"BOARD HOURS :"BH$(BK)
  276. 2028 PRINT#4,CHR$(14);SPC(04);"BOARD TYPE  :"BT$(BK)
  277. 2029 PRINT#4:PRINT#4:PRINT#4
  278. 2030 PRINT#4,PG$(1)
  279. 2074 NEXT
  280. 2075 PRINT#4,CHR$(15)
  281. 2078 CLOSE4
  282. 2080 GOTO400
  283.