home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / B.TERMINAL (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  50 lines
  1. 10 ;"OPEN15,9,15,"S0:B.T*":PRINT#15,"I":SAVE"B.TERMINAL",9:VERIFY"B.T*",9
  2. 15 ;
  3. 20 ;
  4. 25 ;  CHAT MODE
  5. 30 ;
  6. 35 [181]ERM JSR UNWRAP:JSR WRAP1:STA MAIL
  7. 40 JSR IBUF
  8. 45 CHAT JSR TERM:JSR DOWRAP
  9. 50 JMP CHAT
  10. 55 ;
  11. 60 ;[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]
  12. 65 ;
  13. 70 ; MESSAGES[173]MAGAZINES[173]CHAT AREA
  14. 75 ;
  15. 80 TERM JSR INCH:LDA BUF:BNE B2
  16. 85 ;
  17. 90 B8 LDX #7:JSR [161]T:BEQ TERM
  18. 95 CMP #140:BNE B3
  19. 100 JMP [188]OFF
  20. 105 ;
  21. 110 B3 LDX MAIL:BEQ B4
  22. 115 CMP #133:BNE B2
  23. 120 JMP PUL2; CLEAN STACK & RE[171]ENTER AS CHAT MODE.   MESSAGE [181]ACT
  24. 125 ;
  25. 130 ;[172][172][172][172][172][172]
  26. 135 ;
  27. 140 B4 CMP #134:BNE B2
  28. 145 LDA #[179]XBYE:LDX #[177]XBYE
  29. 150 JSR STRING
  30. 155 ;
  31. 160 ; STACK MUST BE CLEANED NOW BECAUSE
  32. 165 ; THIS ROUTINE IS A 'CALLED' RTN
  33. 170 ;
  34. 175 PLA:PLA:JMP MENU
  35. 180 ;
  36. 185 B2 CMP #43:BNE B5; PLUS [129] 80 COLS
  37. 190 JSR B7:JMP TERM
  38. 195 ;
  39. 200 B5 CMP #20:BNE B6
  40. 205 LDX L[145]G:BEQ TERM; NO DE[136]ES [139] [145] A [162] LINE
  41. 210 B6 JMP CHAR
  42. 215 ;
  43. 220 B7 LDX MAIL:BEQ B9; EXIT [139] [153]ING A '[170]' SIGN FROM EDI[164]R
  44. 225 PLA:PLA:LDA #43:BNE B6
  45. 230 ;
  46. 235 B9 JSR RET3:JSR [164]GL
  47. 240 STX MXLO:JMP DUN
  48. 245 ;
  49. 250 .FILE 0:C.UI
  50.