home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / D.LOGOS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.9 KB  |  244 lines
  1. 10 ;"OPEN15,9,15,"S0:D.L*":PRINT#15,"I":SAVE"D.LOGOS",9:VERIFY"D.L*",9
  2. 15 ;
  3. 20 ;          D.[188]OS
  4. 25 ;
  5. 30 ;         [188][145] [173] OFF
  6. 35 ;
  7. 40 ;
  8. 45 ;  FINAL PRG. MUST INITIALIZE ALL
  9. 50 ;  USER SPEC[139]IC [131] HERE EACH TIME
  10. 55 ;  ENTRY IS MADE
  11. 60 ;
  12. 65 ;
  13. 70 ; INITIALIZE BUFFER FROM 820 [164] 950
  14. 75 ; RESERVE 950 [171] 1023 [129] C[145]S[192]T
  15. 80 ; VARIABLES
  16. 85 ;
  17. 90 ;
  18. 95 [188]BYTE JSR RATF:TAX
  19. 100 D1 STA $033C,X:INX:CPX #130:BCC D1
  20. 105 ;
  21. 110 D99 LDA #0:STA [158]0:STA SHBL
  22. 115 LDX #"4":STX MSGC; MESSAGE EDI[164]R
  23. 120 LDX #"8":STX COLUMNS:STX PERM[170]1
  24. 125 LDX #38:STX MXLO:STX PERM
  25. 130 ;
  26. 135 ;[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]
  27. 140 ;[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]
  28. 145 ;
  29. 150 LDA #27:STA TXTHI; MESSAGE TEXT AT 7000
  30. 155 LDA #88:STA TXTLO:STA RET0
  31. 160 ;
  32. 165 ;[172][172][172][172][172][172] MESSAGE HEADER BUFFER TABLE
  33. 170 ;
  34. 175 LDA #224:STA HIHEAD; MESSAGE HDRS AT 57344
  35. 180 LDA #0:STA LOHEAD:TAY:TAX
  36. 185 ;
  37. 190 D2 LDA LOHEAD,Y:CLC:ADC #60
  38. 195 STA LOHEAD[170]1,Y
  39. 200 LDA #0:ADC HIHEAD,Y:STA HIHEAD[170]1,Y
  40. 205 INY:CPY #99:BNE D2
  41. 210 ;
  42. 215 ;[172][172][172][172][172][172][172]
  43. 220 ;
  44. 225 LDA #8:STA DRIV:INC CALL; CALLER COUNT
  45. 230 ;
  46. 235 ;[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]
  47. 240 ;[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]
  48. 245 ;
  49. 250 LDA UNUM:BNE D20
  50. 255 ;
  51. 260 LDA #[179]XWLC:LDX #[177]XWLC:STX RATS
  52. 265 JSR STRING
  53. 270 ;
  54. 275 LDA #[179]XCNC:LDX #[177]XCNC:STX RATS
  55. 280 JSR STRING
  56. 285 ;
  57. 290 LDA BMO:STA M[145]TH
  58. 295 LDA BDA:STA DATE
  59. 300 LDA BYR:STA YEAR:JSR GEMOS
  60. 305 ;
  61. 310 LDA #[179]X[183]:LDX #[177]X[183]:STX RATS
  62. 315 JSR BEF2:STA UNUM:BNE D20
  63. 320 ;
  64. 325 D21 JMP D3
  65. 330 ;
  66. 335 D20 JSR RPASS:LDA UNUM:BEQ D21
  67. 340 ;
  68. 345 ;[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]
  69. 350 ;[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]
  70. 355 ;
  71. 360 ; FIND 3 BYTES [129] LAST [188][145]
  72. 365 JSR RET2
  73. 370 ;
  74. 375 LDA UBFR[170]20:STA ACSS
  75. 380 LDA UBFR[170]21:STA ACSS[170]1
  76. 385 ;
  77. 390 LDA UBFR[170]22:STA CRDT
  78. 395 LDA UBFR[170]23:STA CRDT[170]1:JSR SECT
  79. 400 ;
  80. 405 LDA UBFR[170]24:STA AGRE
  81. 410 LDA UBFR[170]25:STA USYT
  82. 415 LDA UBFR[170]26:STA [144]; TIME LIMIT
  83. 420 ;
  84. 425 LDA UBFR[170]27:STA M[145]TH
  85. 430 LDA UBFR[170]28:STA DATE
  86. 435 LDA UBFR[170]29:STA YEAR; LAST TIME [145]
  87. 440 LDA UBFR[170]30:CMP FEED:BNE D22
  88. 445 JSR GLEE; [164]GGLE LINEFEED
  89. 450 ;
  90. 455 D22 LDA UBFR[170]31:CMP #40:BEQ D23
  91. 460 JSR [164]GL
  92. 465 ;
  93. 470 ; [172][172][172] DROP H[175]LE [181]O WYHL [172][172][172]
  94. 475 ;
  95. 480 D23 LDA #1:JSR SECH; INIT. H[175]LE
  96. 485 LDY #8:STY MIN[170]1:LDX #0:STX MIN
  97. 490 D4 LDA UBFR,Y:BEQ D5
  98. 495 LDX MIN:STA WYHL,X
  99. 500 JSR CHAR:INC MIN:INC MIN[170]1
  100. 505 LDY MIN[170]1:CPY #20:BCC D4
  101. 510 ;
  102. 515 D5 LDX MIN:LDA #13:STA WYHL,X
  103. 520 INX:LDA #0:STA WYHL,X
  104. 525 ;
  105. 530 ;[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]
  106. 535 ;
  107. 540 LDA #[179]XLLO:LDX #[177]XLLO
  108. 545 JSR STRING:JSR U0; DATE ETC.
  109. 550 LDA #0:STA TRY
  110. 555 ;
  111. 560 DD LDA #[179]XPWD:LDX #[177]XPWD
  112. 565 STX RATS:JSR STRING
  113. 570 LDX #8:STX MIN[170]1:STX SHBL:JSR [161]BYTE
  114. 575 ;
  115. 580 JSR RATF:TAY:STA SHBL
  116. 585 D6 LDA RAPR,Y:CMP UBFR,Y:BNE D7
  117. 590 CMP #0:BEQ D8; CHECKS OUT OK
  118. 595 INY:CPY #8:BCC D6
  119. 600 BEQ D8
  120. 605 ;
  121. 610 D7 JSR UHUH:INC TRY
  122. 615 LDA TRY:CMP #5:BNE DD
  123. 620 ;
  124. 625 JMP CALG; 5 TRIES MAX
  125. 630 ;  [139] MATCH FOUND, SKIP [130] RTN
  126. 635 ;
  127. 640 ;[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]
  128. 645 ;[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]
  129. 650 ;
  130. 655 D3 JSR [162]USER
  131. 660 ;
  132. 665 D8 JSR [165]OO:LDX F1L:BEQ DA
  133. 670 ;
  134. 675 ;ANY [162] MESSAGES [NO JUNK THO]
  135. 680 ;
  136. 685 CPX #1:BEQ D9
  137. 690 LDX #"S"
  138. 695 D9 STX XEWM[170]12;  S[173]1
  139. 700 ;
  140. 705 LDA F1L:JSR [198]I:LDA TENS:CMP #48:BNE DB
  141. 710 LDA #1
  142. 715 ;
  143. 720 DB STA XEWM[170]2
  144. 725 LDA [145]ES:STA XEWM[170]3
  145. 730 ;
  146. 735 LDA #[179]XEWM:LDX #[177]XEWM:BNE DK; [162] MAIL
  147. 740 ;
  148. 745 DA LDA #[179]XEEM:LDX #[177]XEEM; [135] MAIL
  149. 750 DK JSR STRING
  150. 755 ;
  151. 760 JSR ANY:JSR DALO:JMP MAHELP
  152. 765 ;
  153. 770 XLLO .BYTE 13
  154. 775 .BYTE "(null)AST (null)ISIT ON ":.BYTE 0
  155. 780 ;
  156. 785 ;
  157. 790 ;[172][172][172] ADD [164] DAY'S [188] FILE
  158. 795 ;
  159. 800 DALO JSR FUL
  160. 805 LDY #0:STY PKY:STY TEMP
  161. 810 DA1 LDY TEMP:LDA WYHL,Y:BEQ DA2
  162. 815 CMP #13:BEQ DA2
  163. 820 JSR DABU:INC TEMP:BNE DA1
  164. 825 ;
  165. 830 DA2 LDY PKY:CPY #17:BEQ DA3
  166. 835 LDA #32:JSR DABU:BNE DA2
  167. 840 ;
  168. 845 DA3 LDX #0
  169. 850 DA5 LDA ALT[170]29,X:JSR DABU
  170. 855 INX:CPX #5:BNE DA5
  171. 860 LDA #32:JSR DABU
  172. 865 LDA ALT[170]38:[176]A #64:JSR DABU
  173. 870 ;
  174. 875 DA6 LDY PKY:CPY #27:BEQ DA7
  175. 880 LDA #32:JSR DABU:BNE DA6
  176. 885 ;
  177. 890 DA7 LDA BMO:JSR DAA
  178. 895 LDA #47:JSR DABU
  179. 900 LDA BDA:JSR DAA
  180. 905 LDA #47:JSR DABU
  181. 910 LDA BYR:JSR DAA
  182. 915 LDA #32:JSR DABU
  183. 920 ;
  184. 925 LDA BAUD[170]3:CMP #32:BEQ DA8
  185. 930 LDA #42
  186. 935 DA8 JSR DABU
  187. 940 LDA #13:JSR DABU
  188. 945 LDA #0:BEQ DABU
  189. 950 ;
  190. 955 DAA JSR [198]I:LDA TENS:JSR DABU
  191. 960 LDA [145]ES
  192. 965 ;
  193. 970 ;[172][172][172][172] BUFFER [131] UNDER KERNAL
  194. 975 ;
  195. 980 DABU LDY PKY:STA ($FD),Y
  196. 985 INC PKY:RTS
  197. 990 ;
  198. 995 ;[172][172][172][172][172]
  199. 1000 ;
  200. 1005 FUL LDA #247:STA $FE
  201. 1010 LDA #218:STA $FD
  202. 1015 JSR KRNLOFF:LDX #0:LDY #0
  203. 1020 ;
  204. 1025 FU2 LDA ($FD),Y:BNE FU1
  205. 1030 ;
  206. 1035 JMP KRNL[145]; [185]ITI[145] IN $FD[173]E
  207. 1040 ;
  208. 1045 ;[172][172][172][172]
  209. 1050 ;
  210. 1055 FU1 LDA $FD:CLC:ADC #40:STA $FD
  211. 1060 JSR AFE
  212. 1065 ;
  213. 1070 INX:CPX #50:BNE FU2
  214. 1075 ;
  215. 1080 ;[172][172][172][172] BUMP BUFFER DOWN 1 MEMBER
  216. 1085 ;
  217. 1090 ;[172][172][172] FROM 63490 [164] 63450 [172][172][172]
  218. 1095 ;
  219. 1100 LDX #247:STX $FC:INX:STX $FE
  220. 1105 LDA #218:STA $FB
  221. 1110 LDA #2:STA $FD:LDX #1:LDY #0
  222. 1115 ;
  223. 1120 ;[172][172][172][172] X STARTS AT 1 [203]ES [164] 49
  224. 1125 ;
  225. 1130 FU3 LDA ($FD),Y:STA ($FB),Y
  226. 1135 LDA #0:STA ($FD),Y
  227. 1140 ;
  228. 1145 INY:CPY #40:BNE FU3
  229. 1150 ;
  230. 1155 INX:CPX #50:BNE FU4
  231. 1160 JMP KRNL[145]
  232. 1165 ;
  233. 1170 FU4 LDA $FE:STA $FC
  234. 1175 LDA $FD:STA $FB
  235. 1180 CLC:ADC #40:STA $FD:JSR AFE
  236. 1185 ;
  237. 1190 LDY #0:BEQ FU3
  238. 1195 ;
  239. 1200 CALL .BYTE 0
  240. 1205 C[164]D .BYTE 13 37 84 13
  241. 1210 .BYTE "***     LENALLERS (null)ODAY ***":.BYTE 13 13 0
  242. 1215 ;
  243. 1220 .FILE 0:E.MENU
  244.