home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / I.NEWUSER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.5 KB  |  227 lines
  1. 10 ;"OPEN15,9,15,"S0:I.N*":PRINT#15,"I":SAVE"I.NEWUSER",9:VERIFY"I.N*",9
  2. 15 ;
  3. 20 ;[172][172][172][172][172][172][172][172][172][172] [162] USER [131] ENTRY ***
  4. 25 ;
  5. 30 [162]USER LDA UNUM:BEQ IZ
  6. 35 RTS
  7. 40 ;
  8. 45 ; [181]RO SCREEN HERE
  9. 50 ;
  10. 55 IZ LDA #[179]XFED:LDX #[177]XFED:STX RATS
  11. 60 JSR STRING:JSR [161]1
  12. 65 CMP #"Y":BNE IY
  13. 70 ;
  14. 75 LDA #10
  15. 80 .BYTE 44;  LINE FEED SPECS
  16. 85 IY LDA #1
  17. 90 STA FEED:BNE VLD
  18. 95 ;
  19. 100 ;
  20. 105 ;[172][172] [181]RO EXIT [129] N[145][171]MEMBERS [172][172]
  21. 110 ;
  22. 115 [181]RO RTS;  WILL BE A PAGE OF [181]RO [131] ON JOINING CLUB IF DESIRED BY SYSOP
  23. 120 ;
  24. 125 VLD LDA #125:STA CRDT
  25. 130 LDA #0:STA CRDT[170]1:JSR MYTERM
  26. 135 JSR [162]1; [161] LAST NAME
  27. 140 JSR [162]2; [161] FIRST NAME
  28. 145 JSR [162]3; [161] ADDRESS
  29. 150 JSR [162]4; TELEPH[145]E
  30. 155 JSR [162]5; PASSW[176]D
  31. 160 JSR [183]1; WHICH COMPUTER [145] [143]OTE
  32. 165 JSR [162]6; H[175]LE
  33. 170 JSR SECT; INIT DL CRDTS [164] 25
  34. 175 ;
  35. 180 LDA #[179]XRTY:LDX #[177]XRTY:JSR STRING
  36. 185 D12 JSR [161]1:CMP #"1":BEQ D10
  37. 190 CMP #"2":BNE D12
  38. 195 ;
  39. 200 D10 TAX:LDA #40:CPX #"1":BEQ D11
  40. 205 ASL
  41. 210 D11 STA COMS; COLUMNS
  42. 215 ;
  43. 220 JMP I1; SET PROBATI[145]ARY STAT
  44. 225 ;
  45. 230 ;[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]
  46. 235 ;
  47. 240 [162]1 LDA #1:JSR SECL;INIT BUFFER
  48. 245 I2 LDA #[179]XLLN:LDX #[177]XLLN:LDY #14
  49. 250 JSR [161]COM:CMP #"Y":BNE I2
  50. 255 ;
  51. 260 LDY #13:LDX LNTH; SKIP [179]CR[177]
  52. 265 ELDN LDA MISC,X:STA WYRL,Y
  53. 270 DEY:DEX:BPL ELDN
  54. 275 RTS
  55. 280 ;
  56. 285 ;[172][172][172][172][172][172][172] FIRST NAME
  57. 290 ;
  58. 295 [162]2 LDA #1:JSR SECF; INIT BUFFER
  59. 300 I3 LDA #[179]XL[165]:LDX #[177]XL[165]:LDY #10
  60. 305 JSR [161]COM:CMP #"Y":BNE I3
  61. 310 ;
  62. 315 LDA #[179]WYRF:STA $62
  63. 320 LDA #[177]WYRF:STA $63:JMP C[195]ND
  64. 325 ;
  65. 330 ;[172][172][172][172][172][172][172] ADDRESS
  66. 335 ;
  67. 340 [162]3 LDA #1:JSR SECS; INIT BUFFER
  68. 345 I4 LDA #[179]XDDR:LDX #[177]XDDR:LDY #24
  69. 350 JSR [161]COM:CMP #"Y":BNE I4
  70. 355 ;
  71. 360 LDA #[179]WYDD:STA $62
  72. 365 LDA #[177]WYDD:STA $63:JSR C[195]ND
  73. 370 ;
  74. 375 I5 LDA #[179]XCTY:LDX #[177]XCTY:LDY #24
  75. 380 JSR [161]COM:CMP #"Y":BNE I5
  76. 385 ;
  77. 390 LDA #[179]WCTY:STA $62
  78. 395 LDA #[177]WCTY:STA $63:JMP C[195]ND
  79. 400 ;
  80. 405 ;[172][172][172][172][172][172][172] TELEPH[145]E
  81. 410 ;
  82. 415 [162]4 LDA #1:JSR SECP; INIT BUFFER
  83. 420 I6 LDA #[179]XTEL:LDX #[177]XTEL:LDY #20
  84. 425 JSR [161]COM:CMP #"Y":BNE I6
  85. 430 ;
  86. 435 LDA #[179]WYTL:STA $62
  87. 440 LDA #[177]WYTL:STA $63:JMP C[195]ND
  88. 445 ;
  89. 450 ;[172][172][172][172][172][172][172] PASSW[176]D
  90. 455 ;
  91. 460 [162]5 LDA #1:JSR SECW; INIT BUFFER
  92. 465 I7 LDA #[179]XPSD:LDX #[177]XPSD
  93. 470 JSR STRING
  94. 475 LDX #8:STX MIN[170]1:JSR [161]BYTE
  95. 480 JSR COTEMP; PUT IT [181]O MISC
  96. 485 ;
  97. 490 LDA #[179]XRPT:LDX #[177]XRPT
  98. 495 JSR STRING:JSR [161]BYTE
  99. 500 ;
  100. 505 LDY #0
  101. 510 I8 LDA RAPR,Y:CMP MISC,Y
  102. 515 BNE I7
  103. 520 INY:CMP #0:BNE I8
  104. 525 ;
  105. 530 LDA #[179]WYPS:STA $62
  106. 535 LDA #[177]WYPS:STA $63:JMP C[195]ND
  107. 540 ;
  108. 545 ;[172][172][172][172][172][172][172] USER [158]TEM
  109. 550 ;
  110. 555 [183]1 LDA #[179]XSTM:LDX #[177]XSTM
  111. 560 JSR STRING
  112. 565 JSR [161]1:[175] #15:STA USYT
  113. 570 JSR DOVER:BNE [183]1
  114. 575 RTS
  115. 580 ;
  116. 585 ;[172][172][172][172][172][172][172] TERMS OF AGREEMENT
  117. 590 ;
  118. 595 MYTERM LDA #0:STA AGRE
  119. 600 LDX USYT:CPX #3:BEQ I9
  120. 605 LDA #[179]XTAG:LDX #[177]XTAG
  121. 610 JSR STRING:JSR [161]1
  122. 615 CMP #"Y":BNE I9
  123. 620 STA AGRE;  STRIP COL[176] WEDGE
  124. 625 I9 RTS
  125. 630 ;
  126. 635 ;[172][172][172][172][172][172][172] USER H[175]LE
  127. 640 ;
  128. 645 [162]6 LDA #32:JSR SECH; INIT BUFFER
  129. 650 IA LDA #[179]XHDL:LDX #[177]XHDL:LDY #12
  130. 655 JSR [161]COM:CMP #"Y":BNE IA
  131. 660 ;
  132. 665 LDA #[179]WYHL:STA $62
  133. 670 LDA #[177]WYHL:STA $63:JSR C[195]ND
  134. 675 ;
  135. 680 LDA #[179]XNFU:LDX #[177]XNFU:JSR STRING
  136. 685 ;
  137. 690 LDA #[179]WYHL:LDX #[177]WYHL:JMP STRING
  138. 695 ;
  139. 700 SECL LDY #13
  140. 705 IB STA WYRL,Y:DEY:BPL IB
  141. 710 RTS
  142. 715 ;
  143. 720 SECF LDY #9
  144. 725 IC STA WYRF,Y:DEY:BPL IC
  145. 730 RTS
  146. 735 ;
  147. 740 SECP LDY #19
  148. 745 ID STA WYTL,Y:DEY:BPL ID
  149. 750 RTS
  150. 755 ;
  151. 760 SECS LDY #23
  152. 765 IE STA WYDD,Y:DEY:BPL IE
  153. 770 ;
  154. 775 SECC LDY #23
  155. 780 II STA WCTY,Y:DEY:BPL II
  156. 785 RTS
  157. 790 ;
  158. 795 SECH LDY #11
  159. 800 [139] STA WYHL,Y:DEY:BPL [139]
  160. 805 RTS
  161. 810 ;
  162. 815 SECW LDY #7
  163. 820 IG STA WYPS,Y:DEY:BPL IG
  164. 825 RTS
  165. 830 ;
  166. 835 I1 LDA #0:STA ACSS:STA ACSS[170]1
  167. 840 STA TLIM; NO TIME [129] NOW
  168. 845 ;
  169. 850 LDA #[179]LEV5:LDX #[177]LEV5:JSR I15
  170. 855 ;
  171. 860 ;[172][172][172][172] NOW FILE THIS [131] AND BUFFER
  172. 865 ;
  173. 870 JSR I[162]:JMP FUPO
  174. 875 ;
  175. 880 ;[172][172][172][172]
  176. 885 ;
  177. 890 I15 LDY #0:STA $62:STX $63
  178. 895 IH LDA ($62),Y:STA WYST,Y:BEQ IJ
  179. 900 INC $D020:INY:BNE IH
  180. 905 IJ RTS
  181. 910 ;
  182. 915 ;[172][172][172][172][172][172][172][172]
  183. 920 ;
  184. 925 SECT LDY #4:LDA #32
  185. 930 IK STA WYDL,Y:DEY:BPL IK
  186. 935 ;
  187. 940 LDY CRDT:LDA CRDT[170]1
  188. 945 JSR $B391:JSR $BDDD
  189. 950 STA $FB:STY $FC:LDY #1:LDX #0
  190. 955 ;
  191. 960 IM LDA ($FB),Y:BEQ IL
  192. 965 STA WYDL,X:INX:INY:BNE IM
  193. 970 IL RTS
  194. 975 ;
  195. 980 C[195]ND JSR DROPDOWN:LDA #13
  196. 985 STA ($62),Y
  197. 990 INY:LDA #0:STA ($62),Y:RTS
  198. 995 ;
  199. 1000 XFED .BYTE 13 13 10 10
  200. 1005 .BYTE "STR$O YOU NEED LINEFEEDS?  [Y/N] ":.BYTE 58 0
  201. 1010 ;
  202. 1015 XRTY .BYTE 13 13
  203. 1020 .BYTE "[1] 40   OR   [2] 80 LENOLUMNS ":.BYTE 58 0
  204. 1025 ;
  205. 1030 ;[172][172][172][172][172] FIND [162] USER [185]ITI[145]
  206. 1035 ;
  207. 1040 FUPO JSR FLAS:BCC I10
  208. 1045 ;
  209. 1050 LDA #[179]ROOM:LDX #[177]ROOM:STX RATS
  210. 1055 JSR STRING:JSR [161]1:JMP CALG
  211. 1060 ;
  212. 1065 I10 INX:STX LIN:STX UNUM:JSR P1
  213. 1070 LDA #[179]YUWB:LDX #[177]YUWB:JSR STRING
  214. 1075 JSR LINER;     BUFFER USER [131]
  215. 1080 I12 JMP CALG
  216. 1085 ;
  217. 1090 ROOM .BYTE 13 13
  218. 1095 .BYTE "LENURRENTLY NO OPENINGS! ":.BYTE 148
  219. 1100 .BYTE "(null)YSOP WILL CONTACT YOU SOON.":.BYTE 13 13 0
  220. 1105 ;
  221. 1110 ;[172][172][172][172][172]
  222. 1115 ;
  223. 1120 YUWB .BYTE 13 13
  224. 1125 .BYTE "(null)OUR RIGHT$STR$ (null)UMBER WILL BE ":.BYTE 58 0
  225. 1130 ;
  226. 1135 .FILE 0:J.[135]ERS
  227.