home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / Y.VALIDATE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  274 lines
  1. 10 ;"OPEN15,9,15,"S0:Y.V*":PRINT#15,"I":SAVE"Y.VALIDATE",9:VERIFY"Y.V*",9
  2. 15 ;
  3. 20 ;     Y.[197]IDATE
  4. 25 ;
  5. 30 GNAM LDA #[179]WHO:LDX #[177]WHO:STX RATS
  6. 35 LDY #12:JSR [161]COM:BNE Y98
  7. 40 LDA RAPR:BEQ Y98
  8. 45 ;
  9. 50 LDA UNUM:STA F1L
  10. 55 JSR FINDUSER:BCC Y99
  11. 60 JMP GNAM
  12. 65 ;
  13. 70 Y98 LDA F1L:STA UNUM
  14. 75 JMP MENU; [140] UBFR
  15. 80 ;
  16. 85 Y99 LDA TRY:STA SERCH:JSR POK
  17. 90 LDA F1L:STA UNUM:JSR RET2
  18. 95 ;
  19. 100 LDA $FB:STA F1L[170]2
  20. 105 LDA $FC:STA F1L[170]3
  21. 110 ;
  22. 115 LDA TRY:STA F1L[170]1; USER FOUND #
  23. 120 ;
  24. 125 Y85 LDA F1L[170]1:STA SERCH:STA SERCH[170]1
  25. 130 ;
  26. 135 LDX #1:STX YES:STX YES[170]2:STX YES[170]3
  27. 140 STX YES[170]4:STX YES[170]5:DEX:STX YES[170]1
  28. 145 ;
  29. 150 ; YES[170]5 FLAGS [142] IN P.
  30. 155 ;
  31. 160 Y00 JSR PZ;  SHOW USER [131]
  32. 165 ;
  33. 170 ;[172][172][172][172][172] SHOW [150]AULT COLUMNS
  34. 175 ;
  35. 180 JSR RET1:JSR SHDF
  36. 185 LDA UBFR[170]31:JSR [198]I
  37. 190 LDA TENS:STA DFC:LDA [145]ES:STA DFC[170]1
  38. 195 LDA #[179]DFC:LDX #[177]DFC:JSR STRING
  39. 200 ;
  40. 205 ;[172][172][172][172][172] SHOW TERMINAL [139] BELL TERM
  41. 210 ;
  42. 215 LDA UBFR[170]24:BEQ Y01
  43. 220 JSR SHDF
  44. 225 LDA #[179]BT:LDX #[177]BT:JSR STRING
  45. 230 ;
  46. 235 ;[172][172][172][172][172] SHOW LINEFEED [150]AULT
  47. 240 ;
  48. 245 Y01 JSR SHDF
  49. 250 LDA UBFR[170]30:CMP #10:BNE Y02
  50. 255 ;
  51. 260 LDA #"N":LDX #32:BNE Y03
  52. 265 Y02 LDA #"F":TAX
  53. 270 ;
  54. 275 Y03 STA LFO[170]10:STX LFO[170]11
  55. 280 ;
  56. 285 LDA #[179]LFO:LDX #[177]LFO:JSR STRING
  57. 290 ;
  58. 295 ;[172][172][172][172][172]
  59. 300 ;
  60. 305 Y87 LDA #[179]XSEL:LDX #[177]XSEL:JSR EOO
  61. 310 CMP #"Y":BEQ Y84
  62. 315 JMP GNAM
  63. 320 ;
  64. 325 Y84 LDA #[179]XMMN:LDX #[177]XMMN:JSR STRING
  65. 330 STX RET0:LDA RATS:BEQ Y96
  66. 335 JSR SUBCOM
  67. 340 Y96 JSR [161]1
  68. 345 ;
  69. 350 ;[172][172][172][172][172] WRITE REC[176]D CHANGES
  70. 355 ;
  71. 360 CMP #"W":BNE Y75
  72. 365 Y70 JSR INK:JMP Y85
  73. 370 ;
  74. 375 ;[172][172][172][172][172] [161] A[168]HER REC[176]D
  75. 380 ;
  76. 385 Y75 CMP #"G":BNE Y74
  77. 390 LDA #147:JSR CHROUT:JMP GNAM
  78. 395 ;
  79. 400 ;[172][172][172][172][172] ERASE REC[176]D
  80. 405 ;
  81. 410 Y74 CMP #"E":BNE Y73
  82. 415 Y72 LDY #31:LDA #0
  83. 420 Y71 STA UBFR,Y:DEY:BPL Y71
  84. 425 JSR INK
  85. 430 LDA #147:JSR CHAR:JMP GNAM
  86. 435 ;
  87. 440 ;[172][172][172][172][172] CHANGE H[175]LE
  88. 445 ;
  89. 450 Y73 CMP #"H":BNE Y95
  90. 455 ;
  91. 460 LDA #[179]N[145]M:LDX #[177]N[145]M:LDY #12
  92. 465 JSR [161]COM
  93. 470 ;
  94. 475 LDY #0:LDX #8
  95. 480 Y77 LDA MISC,Y:BEQ Y69
  96. 485 ;
  97. 490 STA UBFR,X:INX:INY:CPY #12:BCC Y77
  98. 495 ;
  99. 500 Y69 CPX #19:BCS Y83
  100. 505 LDA #0:STA UBFR,X:INX:BNE Y69
  101. 510 ;
  102. 515 ;[172][172][172][172][172] CHANGE PASSW[176]D
  103. 520 ;
  104. 525 Y95 CMP #"P":BNE Y94
  105. 530 JSR [162]5; JSR DOVER:CMP #"Y":BNE Y83
  106. 535 ;
  107. 540 LDY #0
  108. 545 Y82 LDA WYPS,Y:CMP #13:BEQ Y81
  109. 550 STA UBFR,Y:INY:CPY #8:BNE Y82
  110. 555 ;
  111. 560 Y81 CPY #8:BCS Y83
  112. 565 LDA #0:STA UBFR,Y:INY:BNE Y81
  113. 570 ;
  114. 575 Y83 JMP Y85
  115. 580 ;
  116. 585 ;[172][172][172][172][172] CHANGE ACCESS
  117. 590 ;
  118. 595 Y94 CMP #"A":BNE Y93
  119. 600 JSR YK; SHOW ACCESS LEVELS
  120. 605 JMP Y85; DISPLAY AGAIN
  121. 610 ;
  122. 615 ;[172][172][172][172][172] CHANGE STATUS
  123. 620 ;
  124. 625 Y93 CMP #"S":BNE Y92
  125. 630 JSR YP; SHOW STATUSES
  126. 635 JSR [161]1:[175] #15:BEQ Y79
  127. 640 CMP #9:BCS Y79
  128. 645 ;
  129. 650 TAX:DEX:STX 15000
  130. 655 LDA SY,X:STA UBFR[170]20
  131. 660 STA 15001
  132. 665 ;
  133. 670 Y79 JMP Y85; DISPLAY AGAIN
  134. 675 ;
  135. 680 ;[172][172][172][172][172] CHANGE TIME LIMIT
  136. 685 ;
  137. 690 Y92 CMP #"T":BNE Y91
  138. 695 ;
  139. 700 LDA #[179]TIME:LDX #[177]TIME:JSR BEF2
  140. 705 BEQ Y79
  141. 710 CMP #121:BCS Y79
  142. 715 ;
  143. 720 STA UBFR[170]26:JMP Y85
  144. 725 ;
  145. 730 ;[172][172][172][172][172] CHANGE DL CREDITS
  146. 735 ;
  147. 740 Y91 CMP #"D":BNE Y90
  148. 745 ;
  149. 750 LDA #[179]CASH:LDX #[177]CASH:JSR STRING
  150. 755 JSR LOOK:BCS Y79
  151. 760 ;
  152. 765 LDA SERCH:STA UBFR[170]22
  153. 770 LDA SERCH[170]1:STA UBFR[170]23:JMP Y85
  154. 775 ;
  155. 780 ;[172][172][172][172][172] CHANGE COLUMNS
  156. 785 ;
  157. 790 Y90 CMP #"C":BNE Y89
  158. 795 ;
  159. 800 LDA UBFR[170]31:CMP #40:BNE Y78
  160. 805 LDA #80
  161. 810 .BYTE 44
  162. 815 Y78 LDA #40
  163. 820 ;
  164. 825 Y50 STA UBFR[170]31:JMP Y85
  165. 830 ;
  166. 835 ;[172][172][172][172][172] CHANGE TERMINAL
  167. 840 ;
  168. 845 Y89 CMP #"B":BNE Y76
  169. 850 LDA UBFR[170]24:E[176] #1:STA UBFR[170]24
  170. 855 JMP Y85
  171. 860 ;
  172. 865 ;[172][172][172][172][172] CHANGE LINEFEEDS
  173. 870 ;
  174. 875 Y76 CMP #"L":BNE Y88
  175. 880 ;
  176. 885 LDA UBFR[170]30:CMP #1:BNE Y86
  177. 890 LDA #10
  178. 895 .BYTE 44
  179. 900 Y86 LDA #1
  180. 905 STA UBFR[170]30:JMP Y85
  181. 910 ;
  182. 915 ;[172][172][172][172][172]
  183. 920 ;
  184. 925 Y88 JSR CLIV:JMP Y85
  185. 930 ;
  186. 935 ;[172][172][172][172][172]
  187. 940 ;
  188. 945 YP JSR RET3:LDA #1:STA LIN
  189. 950 JSR BRKT:JSR P10
  190. 955 JSR BRKT:JSR P11
  191. 960 JSR BRKT:JSR P12
  192. 965 JSR BRKT:JSR P13
  193. 970 JSR BRKT:JSR P14
  194. 975 JSR BRKT:JSR P15
  195. 980 JSR BRKT:JSR P16
  196. 985 JSR BRKT:JMP P98
  197. 990 ;
  198. 995 BRKT LDA #"[":JSR CHAR
  199. 1000 JSR SPC
  200. 1005 JSR LINER:LDA #"]":JSR CHAR:JMP SPC
  201. 1010 ;
  202. 1015 SY .BYTE 255 127 63 31 15 7 3 1
  203. 1020 ;
  204. 1025 ;[172][172][172][172] SHOW ACCESS CHOICES
  205. 1030 ;
  206. 1035 YK JSR RET2:LDX #0:STX UBFR[170]21
  207. 1040 LDX #128:STX MASK
  208. 1045 ;
  209. 1050 LDA #[179]TUD:LDX #[177]TUD:JSR YLK
  210. 1055 LDA #[179]TLIB:LDX #[177]TLIB:JSR YLK
  211. 1060 LDA #[179]TSIG:LDX #[177]TSIG:JSR YLK
  212. 1065 LDA #[179]TMAL:LDX #[177]TMAL:JSR YLK
  213. 1070 LDA #[179]TMAG:LDX #[177]TMAG:JSR YLK
  214. 1075 LDA #[179]TXFR:LDX #[177]TXFR:JSR YLK
  215. 1080 LDA #[179]TADV:LDX #[177]TADV:JSR YLK
  216. 1085 LDA #[179]TBBS:LDX #[177]TBBS:JSR YLK
  217. 1090 ;
  218. 1095 JMP Y85
  219. 1100 ;
  220. 1105 YLK JSR EOO:CMP #"Y":BNE YUK
  221. 1110 ;
  222. 1115 YMK LDA UBFR[170]21:[176]A MASK
  223. 1120 STA UBFR[170]21
  224. 1125 ;
  225. 1130 YUK LSR MASK:JMP RET1
  226. 1135 ;
  227. 1140 ;[172][172][172][172][172] OTHER [150]AULT SETTINGS
  228. 1145 ;
  229. 1150 SHDF LDA #[179]DFA:LDX #[177]DFA
  230. 1155 JMP STRING
  231. 1160 ;
  232. 1165 ;[172][172][172][172] EDIT SELECTI[145]
  233. 1170 ;
  234. 1175 ;[172][172][172][172][172]
  235. 1180 ;
  236. 1185 WHO .BYTE 13 37 84 13
  237. 1190 .BYTE "(null)SER (null)AME ":.BYTE 58 0
  238. 1195 ;
  239. 1200 XSEL .BYTE 13 13
  240. 1205 .BYTE "(null)PDATE (null)ECORD":.BYTE 0
  241. 1210 ;
  242. 1215 XMMN .BYTE 13 13
  243. 1220 .BYTE "[LEFT$]ANDLE         [(null)]ASSWORD":.BYTE 13
  244. 1225 .BYTE "[(null)]TATUS         [ATN]CCESS":.BYTE 13
  245. 1230 .BYTE "[STR$](null) LENREDITS     [(null)]INEFEEDS":.BYTE 13
  246. 1235 .BYTE "[LEN]OLUMNS        [PEEK]ELL (null)ERMINAL":.BYTE 13
  247. 1240 .BYTE "[(null)]IME (null)IMIT     [(null)]RITE (null)ECORD ":.BYTE 13
  248. 1245 .BYTE "[VAL]RASE (null)ECORD   [CHR$]ET (null)ECORD ":.BYTE 58 0
  249. 1250 TIME .BYTE 13 13:.BYTE "VALNTER (null)IME (null)IMIT IN (null)INUTES":.BYTE 13
  250. 1255 .BYTE "[(null)AX. 120] ":.BYTE 58 0
  251. 1260 CASH .BYTE 13 13:.BYTE "STR$OWNLOAD LENREDITS   [29999 (null)AX] ":.BYTE 0
  252. 1265 ;
  253. 1270 N[145]M .BYTE 13 13
  254. 1275 .BYTE "VALNTER LEFT$ANDLE ":.BYTE 58 0
  255. 1280 ;
  256. 1285 DFA .BYTE "(null)SER (null)ETTING":.BYTE 58 32 0
  257. 1290 DFC .BYTE "40 LENOLUMNS":.BYTE 13 0
  258. 1295 BT .BYTE "PEEKELL (null)ERMINAL":.BYTE 13 0
  259. 1300 LFO .BYTE "(null)INFEEDS (null)FF":.BYTE 13 0
  260. 1305 ;[172][172][172][172][172] PUT BUFFER UNDER ROM
  261. 1310 ;
  262. 1315 INK JSR RET1:JSR DOVER:BNE K2N
  263. 1320 LDA RAPR:BEQ K2N
  264. 1325 ;
  265. 1330 LDA F1L[170]2:STA $FB
  266. 1335 LDA F1L[170]3:STA $FC
  267. 1340 ;
  268. 1345 LDY #31
  269. 1350 KIN LDA UBFR,Y:STA ($FB),Y
  270. 1355 DEY:BPL KIN
  271. 1360 K2N RTS
  272. 1365 ;
  273. 1370 .FILE 0:Z.[188][145]
  274.