home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / T.HEADERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.1 KB  |  406 lines

  1. 10 ;"OPEN15,9,15,"S0:T.HE*":PRINT#15,"I":SAVE"T.HEADERS",9:VERIFY"T.HEA*",9
  2. 15 ;
  3. 20 ;          T.HEADERS
  4. 25 ;
  5. 30 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  6. 35 ;
  7. 40 ;
  8. 45 [164]WHOM .BYTE 0
  9. 50 ;
  10. 55 P[143]SG JSR LOKAT:BCC T1; BUMP AND SAVE IF CARRY IS SET.
  11. 60 ;
  12. 65 JSR BUMP:JMP P[143]SG
  13. 70 ;
  14. 80 T1 LDY MESG:LDA MESG[170]1
  15. 85 ;
  16. 90 JSR BSET:JSR BSHO
  17. 95 STA $FB:STY $FC:LDY #1:LDX #0
  18. 100 ;
  19. 105 T2 LDA ($FB),Y:BEQ T3
  20. 110 STA MSNUM,X
  21. 115 STA EOM[170]19,X:INX:INY:BNE T2
  22. 120 ;
  23. 125 T3 CPX #5:BEQ T4
  24. 130 LDA #1:STA MSNUM,X
  25. 135 STA EOM[170]19,X:INX:BNE T3
  26. 140 ;
  27. 145 T4 LDA #[179]XTWB:LDX #[177]XTWB; THIS WILL BE...
  28. 150 JSR STRING
  29. 155 ;
  30. 160 LDA #0:STA PRIVT:STA C0NT
  31. 165 ;
  32. 170 LDA EXFLAG:BNE T8;  [162] [129] REPLIES
  33. 175 ;
  34. 180 LDA MESG:STA OWNR
  35. 185 LDA MESG[170]1:STA OWNR[170]1
  36. 190 ;
  37. 195 ;[172][172][172][172][172] ENTER TITLE
  38. 200 ;
  39. 205 T5 LDA #[179]XCLT:LDX #[177]XCLT:STX RATS
  40. 210 LDY #28:JSR [161]COM:BNE T5
  41. 215 ;
  42. 220 LDA RAPR:BNE T6
  43. 225 JMP EMAIL
  44. 230 ;
  45. 235 T6 LDA #[179]TITL:STA $62
  46. 240 LDA #[177]TITL:STA $63:JSR DROPDOWN
  47. 245 ;
  48. 250 ;[172][172][172][172][172] IS THIS PERS[145]AL
  49. 255 ;
  50. 260 T8 LDA #[179]XPRS:LDX #[177]XPRS:STX RATS; NO [181]ERRUPTI[145]S
  51. 265 JSR STRING:JSR [161]1
  52. 270 STA MDIT:CMP #"1":BEQ TJ;    PUBLIC
  53. 275 CMP #"2":BNE T8;   BAD ENTRY
  54. 280 INC PRIVT;  PRIVT [178] 1 [139] PRIVATE
  55. 285 ;
  56. 290 LDA EXFLAG:BNE TJ; [162] [129] REPLIES
  57. 295 ;
  58. 300 ;[172][172][172][172][172] [164] WHOM
  59. 305 ;
  60. 310 ENTRV LDA #[179]XCVR:LDX #[177]XCVR:STX RATS
  61. 315 LDY #12:JSR [161]COM:BNE ENTRV
  62. 320 LDA RAPR:BNE T9
  63. 325 JMP EMAIL
  64. 330 ;
  65. 335 T9 JSR FINDUSER:BCS ENTRV
  66. 340 ;
  67. 345 LDA TRY:STA [164]WHOM;  ADDRESSEE
  68. 350 ;
  69. 355 TJ LDY #0;       S[128]ER'S NAME
  70. 360 TA LDA WYHL,Y:CMP #1:BEQ T10
  71. 365 CMP #13:BEQ T10
  72. 370 STA MALE,Y:LDA #0:STA MALE[170]1,Y
  73. 375 INY:CPY #12:BNE TA
  74. 380 ;
  75. 385 T10 LDA MDIT:CMP #"1":BEQ T7
  76. 390 ;
  77. 395 ;
  78. 400 TB LDA UNUM:JMP TF
  79. 405 ;
  80. 410 ;[172][172][172][172][172][172][172][172][172][172]
  81. 415 ;
  82. 420 T7 LDA EXFLAG:BNE TZ; [162] [129] REPLIES
  83. 425 ;
  84. 430 LDA #[179]XPBM:LDX #[177]XPBM:STX RET0
  85. 435 JSR STRING:JSR [161]1
  86. 440 CMP #"1":BEQ TD
  87. 445 CMP #"2":BEQ TE
  88. 450 ; [150]AULTS [164] ALL MEMBERS
  89. 455 ;
  90. 460 TZ LDA #255;  ALL MEMBERS
  91. 465 .BYTE 44
  92. 470 TD LDA #254;  ADVERTISEMENTS
  93. 475 .BYTE 44
  94. 480 TE LDA #253;  PETITI[145]S
  95. 485 ;
  96. 490 TF STA TBYT; NEED VARIABLE
  97. 495 ;
  98. 500 RTS; [142] [175] ENTER MSG EDI[164]R
  99. 505 ;
  100. 510 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  101. 515 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  102. 520 ;
  103. 525 XTWB .BYTE 13 13
  104. 530 .BYTE "(null)HIS (null)ILL PEEKE (null)ESSAGE "
  105. 535 MSNUM .BYTE "     ":.BYTE 13 13 0
  106. 540 ;
  107. 545 XCLT .BYTE 13 13
  108. 550 .BYTE "(null)ITLE ":.BYTE 58 0
  109. 555 ;
  110. 560 XPRS .BYTE 13 13
  111. 565 .BYTE "[1] (null)UBLIC     [2] (null)ERSONAL ":.BYTE 58 0
  112. 570 ;
  113. 575 ;
  114. 580 XCVR .BYTE 13 13
  115. 585 .BYTE "(null)O (null)HOM ":.BYTE 58 0
  116. 590 ;
  117. 595 XPBM .BYTE 13 13
  118. 600 .BYTE "[1] ATNDVERTISEMENT":.BYTE 13
  119. 605 .BYTE "[2] (null)ETITION":.BYTE 13
  120. 610 .BYTE "[3] MID$UNK (null)AIL  ":.BYTE 58 0
  121. 615 ;
  122. 620 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  123. 625 ;
  124. 630 ; LOCATE MESSAGE NUMBER [175] TABLE
  125. 635 ; [185].  [142]S WITH [185]
  126. 640 ; SET [175] MESSAGE HI[173]LO IN MESG[170]1
  127. 645 ; [175] MESG.
  128. 650 ;
  129. 655 LOKAT LDA #0:STA [185];  STA BMPR
  130. 660 STA MESG[170]1:STA MESG
  131. 665 ;
  132. 670 TH LDY [185]:CPY #100:BNE TG
  133. 675 ;
  134. 680 ; [142] W[173]CARRY SET [175] [185] [178] 99
  135. 685 ;
  136. 690 DEC [185]:SEC:RTS;  NEEDS BUMPED BACK
  137. 695 ;
  138. 700 TG LDA NUMLO,Y:LDX NUMHI,Y:BNE TI
  139. 705 CMP #0:BNE TI
  140. 710 ;
  141. 715 LDA MESG:CLC:ADC #1:STA MESG
  142. 720 LDA #0:ADC MESG[170]1:CMP #117:BNE TK
  143. 725 ;
  144. 730 ; MESSAGES TURN OVER AFTER 29999
  145. 735 ;
  146. 740 LDX MESG:CPX #48:BCC TK
  147. 745 LDX #1:STX MESG:LDA #0
  148. 750 ;
  149. 755 TK STA MESG[170]1
  150. 760 CLC:RTS
  151. 765 ;
  152. 770 TI STA MESG:STX MESG[170]1
  153. 775 INC [185]:BNE TH
  154. 780 ;
  155. 785 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  156. 790 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  157. 795 ;
  158. 800 INABUF JSR LOKAT:LDY [185]
  159. 810 ;
  160. 815 LDA MESG[170]1:STA NUMHI,Y
  161. 820 LDA MESG:STA NUMLO,Y
  162. 825 LDA [164]WHOM:STA [161][164],Y;  [164] WHOM
  163. 830 ;
  164. 835 ; [139] THIS IS LAST BUFFER [185]TI[145],         D[145]'T INIT [130] [185]ITI[145]
  165. 840 ;
  166. 845 CPY #99:BEQ FUBV
  167. 850 LDA #0:STA NUMLO[170]1,Y:STA NUMHI[170]1,Y
  168. 855 ;
  169. 860 ; [139] [168] PAGE 1, D[145]'T REC[176]D THIS        AS A [162] MESSAGE.  [145]LY REC[176]D
  170. 865 ; FIRST PAGE OF A MESSAGE.
  171. 870 ;
  172. 875 FUBV JSR STSV:LDY ADDER:BNE FUBW
  173. 880 ;
  174. 885 LDX CRX:CPX #48:BEQ T12
  175. 890 DEX:BNE T13
  176. 895 ;
  177. 900 .BYTE 44;    MASTER [171] 1
  178. 905 ;
  179. 910 T12 LDX #57; BE WRITTEN
  180. 915 ;
  181. 920 T13 STX MASTER:JSR FL5
  182. 925 ;
  183. 930 ;[172][172][172][172][172][172][172]
  184. 935 ;
  185. 940 FUBW LDA CRX:STA INFI; CURRENT MESSAGE FILE IN RAM
  186. 945 STA TEMFG[170]1;  PREFIX [129] TEMP FILE                    RECALL
  187. 950 LDA MESG:STA L[145]U,Y; RAM MSG #
  188. 955 LDA MESG[170]1:STA HINU,Y; TABLE
  189. 960 LDA TXTLO,Y:STA $64;  MSG ADDRESS
  190. 965 LDA TXTHI,Y:STA $65
  191. 970 ;
  192. 975 ;[172][172][172][172][172] BUFFER MESSAGE TEXT
  193. 980 ;
  194. 985 LDY #255:STY BACK
  195. 990 ;
  196. 995 INA1 JSR INA4
  197. 1000 ;
  198. 1005 INA2 LDY #0
  199. 1010 LDA ($62),Y:BEQ INA1
  200. 1015 STA ($64),Y
  201. 1020 ;
  202. 1025 INA0 PHA:JSR UPZP
  203. 1030 INC $62:BNE INAA
  204. 1035 INC $63
  205. 1040 ;
  206. 1045 INAA PLA:CMP #13:BEQ INA1
  207. 1050 CMP #148:BEQ INA1
  208. 1055 CMP #255:BNE INA2
  209. 1060 ;
  210. 1065 ;[172][172][172][172][172] S[164]RE HEADER
  211. 1070 ;
  212. 1075 STA TEMFG; FLAG [162] MESSAGES
  213. 1080 LDA #1:STA LIVE; FLAG AS LIVE MESSAGE
  214. 1085 LDA UNUM:STA FROM
  215. 1090 LDA TBYT:STA [164]
  216. 1095 LDA BMO:STA M[145]TH
  217. 1100 LDA BDA:STA DATE
  218. 1105 LDA BYR:STA YEAR
  219. 1110 ;
  220. 1115 ; [139] [130] MESSAGE IS [179] 10 [167]            S[164]RE  ITS PO[181]ERS IN TXTLO[173]HI
  221. 1120 LDY ADDER:CPY #9:BEQ NOWY
  222. 1125 LDA $64:STA TXTLO[170]1,Y
  223. 1130 LDA $65:STA TXTHI[170]1,Y; [130] AREA
  224. 1135 ;
  225. 1140 NOWY LDA #[179]XOC:LDX #[177]XOC:STX RET0
  226. 1145 JSR STRING
  227. 1150 EO0 JSR [161]1:STA BYTE
  228. 1155 ;
  229. 1160 CMP #"C":BNE EO2
  230. 1165 .BYTE 44
  231. 1170 EO2 LDA #0
  232. 1175 STA C0NT
  233. 1180 ;
  234. 1185 LDA EXFLAG:STA RPLI
  235. 1190 ;
  236. 1195 LDY [185]
  237. 1200 LDA HIHEAD,Y:STA $63
  238. 1205 LDA LOHEAD,Y:STA $62
  239. 1210 ;
  240. 1215 LDY #0:STY RGSR[170]2:STY RGSR
  241. 1220 SHED LDA LIVE,Y:STA ($62),Y
  242. 1225 INY:CPY #60:BNE SHED
  243. 1230 ;
  244. 1235 ;
  245. 1240 ;[172][172][172][172][172] PROCESS SELECTED [130] [169]
  246. 1245 ;
  247. 1250 PSNS LDA BYTE:CMP #"M":BNE EO3
  248. 1255 JMP MENU;   BBS MENU
  249. 1260 ;
  250. 1265 EO3 CMP #"C":BNE EO4
  251. 1270 ;
  252. 1275 ; MAX. 4 PAGES
  253. 1280 ;
  254. 1285 INC PAGE:LDA PAGE:CMP #5:BEQ EO4
  255. 1290 ;
  256. 1295 ; SET UP [129] [130] PAGE IN TABLES
  257. 1300 ;
  258. 1305 EO5 JSR LOKAT:BCC EO6
  259. 1310 JSR BUMP:JMP EO5
  260. 1315 EO6 JMP EMSD
  261. 1320 ;
  262. 1325 EO4 JMP EMHL1
  263. 1330 ;
  264. 1335 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  265. 1340 ;
  266. 1345 ; SET PO[181]ERS [129] EDI[164]R BUFFER
  267. 1350 ;
  268. 1355 INA4 INC BACK:LDY BACK
  269. 1360 LDA LOPO,Y:STA $62
  270. 1365 LDA HIPO,Y:STA $63:RTS
  271. 1370 ;
  272. 1375 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  273. 1380 ;
  274. 1385 ; FIND PO[181]ER [185] [129] TEXT
  275. 1390 ; BUFFER
  276. 1395 ;
  277. 1400 MDV .BYTE 64
  278. 1405 MASDV .BYTE 48 58
  279. 1410 MASTER .BYTE "0MESS,S,W"
  280. 1415 ;
  281. 1420 TEMDV .BYTE 48 58
  282. 1425 TEMFIL .BYTE "TEMP,S,W"
  283. 1430 ;
  284. 1435 ;
  285. 1440 FL5 LDA #[179]XSTN:LDX #[177]XSTN
  286. 1445 JSR STRING
  287. 1450 ;
  288. 1455 ;[172][172][172][172][172] SCRATCH FILE
  289. 1460 ;
  290. 1465 JSR [156]CHN
  291. 1470 LDA #[179]MASDV:LDX #[177]MASDV:JSR HIT1
  292. 1475 JSR INITL
  293. 1480 ;
  294. 1485 ;[172][172][172][172][172] [148] CURRENT BUFFER
  295. 1490 ;
  296. 1495 LDA #12
  297. 1500 LDX #[179]MDV:LDY #[177]MDV:JSR [148]X
  298. 1505 ;
  299. 1510 ;[172][172][172][172][172] FILL BUFFER W[173]0'S
  300. 1515 ;
  301. 1520 Z6959 LDA #38:STA $64;  6959
  302. 1525 LDA #27:STA $65
  303. 1530 TXN1 LDY #0:TYA:STA ($64),Y
  304. 1535 JSR UPZP:LDA $65:CMP #58:BNE TXN1
  305. 1540 LDA $64:CMP #162:BNE TXN1
  306. 1545 ;
  307. 1550 LDA #88:STA TXTLO
  308. 1555 LDA #27:STA TXTHI
  309. 1560 ;
  310. 1565 RTS; NOW EXIT [164] MESSAGE ENTRY
  311. 1570 ;
  312. 1575 ;[172][172][172][172][172] DETERMINE PROPER FILE
  313. 1580 ;
  314. 1585 STSV LDA MESG:STA ADDER
  315. 1590 LDA MESG[170]1:STA MIN[170]1
  316. 1595 LDA #48:STA CRX; 1ST CHR IN FILNM
  317. 1600 ;
  318. 1605 T14 LDA ADDER:CMP #101:BCS T16
  319. 1610 LDX MIN[170]1:BEQ SU10
  320. 1615 T16 SEC:SBC #100:STA ADDER
  321. 1620 ;
  322. 1625 BCS T14
  323. 1630 DEC MIN[170]1:JMP T14
  324. 1635 ;
  325. 1640 SU10 LDA ADDER:CMP #11:BCC T15
  326. 1645 INC CRX
  327. 1650 SEC:SBC #10:STA ADDER:BNE SU10
  328. 1655 ;
  329. 1660 T15 DEC ADDER:RTS
  330. 1665 ;
  331. 1670 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  332. 1675 ;
  333. 1680 XSTN .BYTE 13 13 7 7
  334. 1685 .BYTE "(null)TAND PEEKY...":.BYTE 13 13
  335. 1690 .BYTE "ASCILING (null)ESSAGE PEEKLOCK...":.BYTE 13 13 0
  336. 1695 ;
  337. 1700 ;
  338. 1705 XOC .BYTE 13 7 7 13
  339. 1710 .BYTE "[LEN]ONTINUE":.BYTE 13
  340. 1715 .BYTE "[VAL]-(null)AIL (null)ENU  ":.BYTE 13
  341. 1720 .BYTE "[(null)]AIN (null)ENU  ":.BYTE 58 0
  342. 1725 ;
  343. 1730 ;[172][172][172][172][172] [148] CURRENT BUFFER
  344. 1735 ;
  345. 1740 [148]X JSR SETNAM
  346. 1745 ;
  347. 1750 LDA #2:LDX DRIV:TAY:JSR SETLFS
  348. 1755 JSR [159]:JSR [156]CHN
  349. 1760 ;
  350. 1765 LDA #27:STA $FE;    7000
  351. 1770 LDA #88:STA $FD
  352. 1775 LDA FEED:STA TEMP
  353. 1780 ;
  354. 1785 LDX #2:JSR CHKOUT
  355. 1790 LDY #0:STY BYTE:STY FEED
  356. 1795 ;
  357. 1800 ;[172][172][172][172][172] [148] PO[181]ER TABLES FIRST
  358. 1805 ;
  359. 1810 T11 LDA INFI,Y:JSR CHROUT
  360. 1815 INY:CPY #41:BNE T11
  361. 1820 ;
  362. 1825 ;[172][172][172][172][172] [143]AINDER OF TEXT FILE
  363. 1830 ;
  364. 1835 FLOT LDY #0:LDA ($FD),Y
  365. 1840 JSR CHROUT:BEQ FLOX
  366. 1845 ;
  367. 1850 LDX $FE:CPX #58:BEQ FLOX;  11776
  368. 1855 ;
  369. 1860 FLOY INC $FD:BNE FLOZ
  370. 1865 INC $FE
  371. 1870 ;
  372. 1875 FLOZ CMP #255:BNE FLOT
  373. 1880 INC BYTE:LDA BYTE:CMP #10:BNE FLOT
  374. 1885 ;
  375. 1890 FLOX JSR [156]CHN:LDA #2:JSR [160]
  376. 1895 LDA TEMP:STA FEED
  377. 1900 JMP INITL; INITIALIZE DRIVE
  378. 1905 ;
  379. 1910 ;[172][172][172][172][172] [148] TEMP MESSAGE FILE
  380. 1915 ;
  381. 1920 STUP .BYTE 13
  382. 1925 .BYTE "* ASCILING *":.BYTE 13 0
  383. 1930 ;
  384. 1935 ; SCRATCH[173][148] TEMP FILE OF THE           CURRENT MESSAGES. LATER PO[181]ERS
  385. 1940 ; [175] HEADERS WILL HAVE [164] BE             [148]D ALSO.
  386. 1945 ;
  387. 1950 FITHFI LDA TEMFG:BEQ T19
  388. 1955 ;
  389. 1960 ; [145]LY [148] [139] [162] MSGS PRESENT
  390. 1965 ;
  391. 1970 LDA #[179]STUP:LDX #[177]STUP
  392. 1975 JSR STRING:JSR INITL
  393. 1980 ;
  394. 1985 LDA #[179]TEMDV:LDX #[177]TEMDV
  395. 1990 JSR HIT1:JSR INITL
  396. 1995 ;
  397. 2000 ; LATER CHECK [129] ERR[176]S HERE
  398. 2005 ;
  399. 2010 LDA #11
  400. 2015 LDX #[179]TEMDV:LDY #[177]TEMDV:JSR [148]X
  401. 2020 ;
  402. 2025 LDA #0:STA TEMFG
  403. 2030 T19 RTS
  404. 2035 ;
  405. 2040 .FILE 0:U.M[135]ERS
  406.