home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / W.PARAMS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  118 lines
  1. 10 ;"OPEN15,8,15,"S0:W.P*":PRINT#15,"I":SAVE"W.PARAMS",8:VERIFY"W.P*",8
  2. 15 ;
  3. 20 ;    W.PARAMS
  4. 25 ;
  5. 30 ;[172][172][172][172][172] CHANGE BAUD SETTING [145]LINE
  6. 31 ;
  7. 32 SPRM JMP MENU
  8. 33 .FILE 0:X.ERR[176]
  9. 35 ;
  10. 40 SPRM LDA #[179]XBDD:LDX #[177]XBDD:STX RATS
  11. 45 STX RET0:JSR STRING
  12. 50 W1 JSR [161]1:BEQ W4
  13. 55 CMP #"1":BEQ W17
  14. 60 CMP #"2":BEQ W3
  15. 65 JSR CLIV:JMP W1
  16. 70 W17 JSR AAZ:JMP W4;  300 BAUD
  17. 75 W3 JSR AA8;         1200 BAUD
  18. 80 ;
  19. 85 ;[172][172][172][172][172][172] CHANGE [144] BIT SETTING
  20. 90 ;
  21. 95 W4 LDA #[179]XSTP:LDX #[177]XSTP:STX RATS
  22. 100 JSR STRING
  23. 105 W5 JSR [161]1:BEQ W8
  24. 110 CMP #"1":BEQ W6
  25. 115 CMP #"2":BEQ W7
  26. 120 JSR CLIV:JMP W5
  27. 125 ;
  28. 130 W6 LDA 659:[175] #127:BNE WB
  29. 135 W7 LDA 659:[176]A #128
  30. 140 WB STA 659
  31. 145 ;
  32. 150 ;[172][172][172][172][172][172] SET W[176]D [195]GTH
  33. 155 ;
  34. 160 W8 LDA #[179]XWDL:LDX #[177]XWDL:STX RATS
  35. 165 JSR STRING
  36. 170 W9 JSR [161]1:[175] #15:BEQ WC
  37. 175 CMP #5:BCS W10
  38. 180 ;
  39. 185 W11 JSR CLIV:JMP W9
  40. 190 ;
  41. 195 W10 CMP #9:BCS W11
  42. 200 LDX #8:STX MIN[170]1:JSR W12
  43. 205 ;
  44. 210 LDA 659:[175] #159:[176]A TEMP:STA 659
  45. 215 ;
  46. 220 ;[172][172][172][172][172][172][172]
  47. 225 ;
  48. 230 WC LDA #[179]XPTY:LDX #[177]XPTY:STX RATS
  49. 235 JSR STRING
  50. 240 W15 JSR [161]1:[175] #15:BEQ WD
  51. 245 BNE W16
  52. 250 ;
  53. 255 JSR CLIV:JMP W15
  54. 260 ;
  55. 265 W16 CMP #6:BCS W15
  56. 270 ;
  57. 275 LDX #5:STX MIN[170]1:JSR W12
  58. 280 ;
  59. 285 LDA 660:[175] #31:[176]A TEMP:STA 660
  60. 290 ;
  61. 295 ;[172][172][172][172][172] H[175]SHAKE
  62. 300 ;
  63. 305 WD LDA #[179]XSHK:LDX #[177]XSHK:STX RATS
  64. 310 JSR STRING
  65. 315 W18 JSR [161]1:BEQ W22
  66. 320 CMP #"1":BEQ W19
  67. 325 CMP #"2":BEQ W20
  68. 330 JSR CLIV:JMP W18
  69. 335 ;
  70. 340 W19 LDA 660:[175] #252
  71. 345 [176]A #1:BNE W21
  72. 350 W20 LDA 660:[175] #252
  73. 355 [176]A #2
  74. 360 W21 STA 660:JSR DUN
  75. 365 ;
  76. 370 W22 JMP MENU
  77. 375 ;
  78. 380 ;[172][172][172][172][172][172][172][172][172] COMM[145] CALC
  79. 385 ;
  80. 390 W12 TAX:LDA #0
  81. 395 W13 CPX MIN[170]1:BEQ W14
  82. 400 CLC:ADC #32:INX:BNE W13
  83. 405 W14 STA TEMP:RTS
  84. 410 ;
  85. 415 ;[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]
  86. 420 ;
  87. 425 XBDD .BYTE 13 13
  88. 430 .BYTE "(null)ET PEEKAUD":.BYTE 13 13
  89. 435 .BYTE "[1]  300":.BYTE 13
  90. 440 .BYTE "[2] 1200  ":.BYTE 58 0
  91. 445 ;
  92. 450 ;
  93. 455 XSTP .BYTE 13 13
  94. 460 .BYTE "(null)TOP PEEKITS    [STR$EFAULT  1]":.BYTE 13 13
  95. 465 .BYTE "[1]  OR  [2]  ":.BYTE 58 0
  96. 470 ;
  97. 475 ;
  98. 480 XWDL .BYTE 13 13
  99. 485 .BYTE "(null)ORD (null)ENGTH  [STR$EFAULT  8 PEEKITS]":.BYTE 13 13
  100. 490 .BYTE "[5-8]  ":.BYTE 58 0
  101. 495 ;
  102. 500 ;
  103. 505 XPTY .BYTE 13 13
  104. 510 .BYTE "(null)ARITY       [STR$EFAULT  (null)ONE]":.BYTE 13 13
  105. 515 .BYTE "[1] (null)ONE":.BYTE 13
  106. 520 .BYTE "[2] (null)DD":.BYTE 13
  107. 525 .BYTE "[3] VALVEN":.BYTE 13
  108. 530 .BYTE "[4] (null)ARK":.BYTE 13
  109. 535 .BYTE "[5] (null)PACE  ":.BYTE 58 0
  110. 540 ;
  111. 545 ;
  112. 550 XSHK .BYTE 13 13
  113. 555 .BYTE "LEFT$ANDSHAKE    [STR$EFAULT  3 (null)INE]":.BYTE 13 13
  114. 560 .BYTE "[1] 3 (null)INE":.BYTE 13
  115. 565 .BYTE "[2] (null) (null)INE  ":.BYTE  58 0
  116. 570 ;
  117. 575 .FILE X.ERR[176]
  118.