home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / C.UI (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  93 lines
  1. 10 ;OPEN15,8,15,"S0:C.UI":SAVE"C.UI",8:VERIFY"C.UI",8
  2. 15 ;
  3. 20 ;         GETBYTE
  4. 25 ;
  5. 30 SHBL .BYTE 0 0
  6. 35 ;
  7. 40 GEB LDX #1
  8. 45 .BYTE 44
  9. 50 GETBYTE LDX #0
  10. 55 STX $02:JSR IBUF; INITIALIZE BUFFER TO START
  11. 60 JSR TIMERSET:STA LONG:STA RATS:STA RAPR; INIT ERR & ALPHA FLAGS
  12. 65 ;
  13. 70 C1 JSR INCH:LDA BUF:BNE C4
  14. 75 ;
  15. 80 ;*********
  16. 85 ;
  17. 90 JSR TIMECHEK
  18. 95 ;
  19. 100 LDX #7:JSR GETT:BEQ C1
  20. 105 CMP #136:BNE C5;  F7 CHAT MODE
  21. 110 ;
  22. 115 LDX MIN+1:CPX #2:BCS PUL2
  23. 120 PLA:PLA;  CLEAN STACK & ANSWER PAGE
  24. 125 PUL2 PLA:PLA
  25. 130 LDA #0:STA IMNS:STA $D020:STA SYS0
  26. 135 LDA #<XCHT:LDX #>XCHT:JSR STRING
  27. 140 ;
  28. 145 LDA PERM:STA MXLO
  29. 150 LDA PERM+1:STA COLUMNS:JMP INTERM
  30. 155 ;
  31. 160 C5 CMP #140:BNE C4; F8 LOGOFF
  32. 165 JMP LOGOFF
  33. 170 ;
  34. 175 C4 CMP #20:BNE C6
  35. 180 LDX LONG:BEQ C1
  36. 185 DEC LONG:JSR CHAR
  37. 190 LDA #0:LDX LONG:STA RAPR,X
  38. 195 JMP C1
  39. 200 ;
  40. 205 C6 CMP #13:BEQ C7
  41. 210 ;
  42. 215 ;*********
  43. 220 ;
  44. 225 LDX LONG:CPX MIN+1:BEQ C1
  45. 230 ;
  46. 235 STA SHBL+1:LDX SHBL:BEQ CG
  47. 240 ;
  48. 245 LDA #36;  DOLLAR SIGN FOR PSWDS.
  49. 250 CG JSR CHAR:LDA SHBL+1:STA AREG
  50. 255 ;
  51. 260 LDA AREG:LDX LONG
  52. 265 STA RAPR,X:INX:STX LONG
  53. 270 LDA #0:STA RAPR,X
  54. 275 LDX LONG:CPX #1:BNE C8
  55. 280 LDX MIN+1:CPX #1:BNE C8
  56. 285 LDX RET0:BEQ C8; FLAG TO ELIMINATE A CARRIAGE RETURN
  57. 290 LDA AREG:RTS
  58. 295 C8 JMP C1
  59. 300 ;
  60. 305 ;*********
  61. 310 ;
  62. 315 C7 LDX $02:BNE CE
  63. 320 JSR VALU:BCC C9
  64. 325 ;
  65. 330 CE LDX #0:STX $02:RTS; RED. LONG HOLDS STRING LGTH
  66. 335 ;
  67. 340 C9 JSR CF:LDX LONG:BEQ CF
  68. 345 CPX #4:BCS CF
  69. 350 DEX
  70. 355 JSR VALU:BCS CF
  71. 360 AND #15:STA BYTE:DEX:BMI CD
  72. 365 ;
  73. 370 LDA RAPR,X:BEQ CA
  74. 375 JSR VALU:BCS CF
  75. 380 JSR CB
  76. 385 DECI LDA BYTE:CLC:ADC #10:STA BYTE
  77. 390 DEC RAPR,X:BNE DECI
  78. 395 CA DEX:BMI CD
  79. 400 ;
  80. 405 LDA RAPR,X:BEQ CD
  81. 410 JSR VALU:BCS CF
  82. 415 JSR CB
  83. 420 CC LDA BYTE:CLC:ADC #100:STA BYTE
  84. 425 BCS CF
  85. 430 DEC RAPR,X:BNE CC
  86. 435 CD RTS
  87. 440 ;
  88. 445 CF LDA #0:STA BYTE:RTS
  89. 450 ;
  90. 455 CB AND #15:STA RAPR,X:RTS
  91. 460 ;
  92. 465 .FILE 0:D.LOGOS
  93.