home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / R.UFILER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  129 lines
  1. 10 ;"OPEN15,9,15,"S0:R.U*":PRINT#15,"I":SAVE"R.UFILER",9:VERIFY"R.U*",9
  2. 15 ;
  3. 20 ;        R.UFILER
  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]
  6. 35 ;
  7. 40 RPASS JSR BASOFF:LDA #160:STA $FC; UNDER $A000
  8. 45 ;
  9. 50 LDA #0:STA $FB:JSR RN
  10. 55 BCC R1
  11. 60 ;
  12. 65 ;[172][172][172][172][172][172]
  13. 70 ;
  14. 75 ; EXIT W[173]NO USER FOUND
  15. 80 ;
  16. 85 JSR BAS[145]:LDA #0:STA UNUM:RTS; EXIT W[173]NO UPDATE
  17. 90 ;
  18. 95 ;[172][172][172][172] NOW W[173]32 CHAR HEADER
  19. 100 ;
  20. 105 R1 JSR BASOFF:LDY #31
  21. 125 R2 LDA ($FB),Y:STA UBFR,Y
  22. 130 DEY:BPL R2
  23. 135 ;
  24. 140 R3 JSR BAS[145]; [162] [188][145] DATE
  25. 145 ;
  26. 150 LDX #0:BEQ RZ
  27. 155 RTS
  28. 160 RZ LDA RGSR[170]1:[176]A #1:STA RGSR[170]1:JMP P6
  29. 165 ;
  30. 170 ;[172][172][172][172][172][172]
  31. 175 ;
  32. 180 ;  FIND USER [131] FOR LOGIN
  33. 185 ;
  34. 190 ;  S[164]RE IN USERBUFFER
  35. 195 ;
  36. 200 RN LDX #1
  37. 205 ;
  38. 210 R4 CPX UNUM:BEQ R5
  39. 215 LDA $FB:CLC:ADC #32:STA $FB:JSR AFC
  40. 220 ;
  41. 225 INX:CPX #251:BNE R4; PO[181]ER [164] USER [131]
  42. 230 ;
  43. 235 R6 SEC:RTS;   [128] OF USER FILE
  44. 240 ;
  45. 245 R5 LDY #0:LDA ($FB),Y:BEQ R6
  46. 265 CLC:RTS
  47. 270 ;
  48. 275 ;[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]
  49. 280 ;[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]
  50. 285 ;
  51. 290 KRNLOFF SEI:LDA $01:[175] #253
  52. 295 STA $01:RTS
  53. 300 ;
  54. 305 KRNL[145] LDA $01:[176]A #2:STA $01:CLI
  55. 310 RTS
  56. 315 ;
  57. 320 BASOFF LDA $01:[175] #254:STA $01
  58. 325 RTS
  59. 330 ;
  60. 335 BAS[145] LDA $01:[176]A #1:STA $01
  61. 340 RTS
  62. 345 ;
  63. 350 R95 [175] #127:CMP #64:BCC R96
  64. 365 [175] #95
  65. 370 R96 RTS
  66. 375 ;
  67. 380 ;[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]
  68. 385 ;
  69. 390 FINDUSER JSR BASOFF
  70. 395 LDA #160:STA $FC:LDA #8:STA $FB
  71. 400 JSR RATF:STA CRX:LDY #1:STY TRY
  72. 405 ;
  73. 410 R8 LDA MISC,Y:BEQ R7
  74. 415 JSR R95:STA MISC,Y
  75. 420 INY:CPY #12:BNE R8
  76. 425 R7 STY LNTH
  77. 430 ;
  78. 435 LDY #0
  79. 440 RA LDA ($FB),Y:JSR R95
  80. 445 CMP MISC:BEQ R9
  81. 450 ;
  82. 455 RD INY:CPY #12:BNE RA
  83. 460 ;
  84. 465 RB INC TRY:LDX TRY
  85. 470 CPX #251:BCS RC
  86. 475 ;
  87. 480 LDA $FB:CLC:ADC #32:STA $FB:JSR AFC
  88. 485 LDY #0:BEQ RA
  89. 490 ;
  90. 495 RC JSR BAS[145]
  91. 500 LDA CRX:BNE RE
  92. 505 JSR L0ST:SEC:RTS
  93. 510 RE CLC:RTS
  94. 515 ;
  95. 520 R9 STY TEMP:LDX #0
  96. 525 RF INX:INY:CPY #12:BNE RG
  97. 530 ;
  98. 535 CPX LNTH:BNE RM
  99. 540 ;
  100. 545 RG LDA MISC,X:BEQ RH
  101. 555 LDA ($FB),Y:JSR R95
  102. 560 CMP MISC,X:BEQ RF
  103. 565 RM LDX TRY:LDY TEMP:JMP RD
  104. 570 ;
  105. 575 RH LDY #0;
  106. 580 RJ LDA ($FB),Y:BEQ RI
  107. 585 STA HITEMP,Y:INY:CPY #12:BNE RJ
  108. 590 ;
  109. 595 RI LDA #13:STA HITEMP,Y
  110. 600 LDA #0:STA HITEMP[170]1,Y
  111. 605 ;
  112. 610 JSR RET2:LDA #[179]HITEMP:LDX #[177]HITEMP
  113. 615 JSR STRING
  114. 620 ;
  115. 625 LDA #[179]XEX:LDX #[177]XEX:STX CRX:JSR STRING
  116. 630 ;
  117. 635 RL JSR [161]1:CMP #"A":BNE RK
  118. 640 JSR BAS[145]:CLC:RTS
  119. 645 ;
  120. 650 RK CMP #"S":BNE RL
  121. 655 JSR BASOFF:JMP RB
  122. 660 ;
  123. 665 ;[172][172][172][172][172][172][172][172][172]
  124. 670 ;
  125. 675 XEX .BYTE 13
  126. 680 .BYTE "[ATN]CCEPT  [(null)]EARCH ":.BYTE 58 0
  127. 685 ;
  128. 690 .FILE 0:S.[135]ERS
  129.