home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / Q.DLIST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.8 KB  |  171 lines
  1. 10 ;"OPEN15,8,15,"S0:Q.D*":PRINT#15,"I":SAVE"Q.DLIST",8:VERIFY"Q.D*",8
  2. 15 ;
  3. 20 ;        Q.[155]ER
  4. 25 ;
  5. 30 ;
  6. 35 D[155] JSR OPF1; [161] NAME & [159] FILE
  7. 40 ;
  8. 45 ;  [161] START ADDRESS FIRST
  9. 50 ;
  10. 55 LDX #2:JSR CHKIN
  11. 60 JSR B[198]HR:JSR B[198]HR
  12. 65 ;
  13. 70 JSR IN1
  14. 75 ;
  15. 80 QM LDX #2:JSR CHKIN
  16. 85 JSR B[198]HR:STA MIN
  17. 90 JSR B[198]HR:STA MIN[170]1
  18. 95 JSR B[198]HR:STA PTEK
  19. 100 JSR B[198]HR:STA PTEK[170]1
  20. 105 ;
  21. 110 LDA MIN:BNE Q1
  22. 115 LDA MIN[170]1:BNE Q1
  23. 120 LDA PTEK:BNE Q1
  24. 125 ;
  25. 130 ;[172][172][172][172][172][172][172][172][172]
  26. 135 ;
  27. 140 JSR BASEX; CLEAN STACK[173]AB[176]T
  28. 145 ;
  29. 150 ;[172][172][172][172][172][172][172][172][172]
  30. 155 ;
  31. 160 Q1 JSR B[198]1:JMP QN
  32. 165 ;
  33. 170 ;[172][172][172][172][172][172][172][172][172]
  34. 175 ;
  35. 185 B[198]1 LDY PTEK:LDA PTEK[170]1
  36. 190 JSR BSET:JSR BSHO
  37. 195 STA $FB:STY $FC
  38. 200 LDY #1
  39. 205 ;
  40. 210 Q3 LDA ($FB),Y:BEQ Q2
  41. 215 JSR [151]R:INY:BNE Q3
  42. 220 ;
  43. 225 Q2 LDA #32:JMP [151]R
  44. 235 ;
  45. 240 ;[172][172][172][172][172][172][172][172][172]
  46. 245 ;
  47. 250 QN JSR B[198]HR
  48. 255 ;
  49. 260 CMP #0:BEQ QK
  50. 265 CMP #128:BCS QP
  51. 270 CMP #34:BEQ QO
  52. 275 ;
  53. 280 ;[172][172][172][172][172][172][172][172][172]
  54. 285 ;
  55. 290 JSR [151]R:JMP QN
  56. 295 ;
  57. 300 ;[172][172][172][172][172][172][172][172][172]
  58. 305 ;
  59. 310 QO JSR [151]R
  60. 315 QJ JSR B[198]HR
  61. 320 CMP #0:BEQ QK
  62. 325 CMP #34:BEQ Q4
  63. 330 ;
  64. 335 PHA:JSR [203]OFCHECK:BNE QI
  65. 340 PLA:JSR QQ:JMP QJ
  66. 345 QI PLA:BNE QO
  67. 350 ;
  68. 355 Q4 JSR [151]R:JMP QN
  69. 360 ;
  70. 365 ;[172][172][172][172][172][172][172][172][172]
  71. 370 ;
  72. 375 QP SEC:SBC #127:STA BYTE
  73. 380 LDX #255
  74. 385 Q5 DEC BYTE:BEQ Q7
  75. 390 ;
  76. 395 Q6 INX
  77. 400 ;
  78. 405 LDA KEYS,X:BPL Q6
  79. 410 BMI Q5
  80. 415 ;
  81. 420 Q7 INX:LDA KEYS,X:BMI Q8
  82. 425 JSR [151]R:JMP Q7
  83. 430 ;
  84. 435 Q8 [175] #127:JSR [151]R
  85. 440 JMP QN
  86. 445 ;
  87. 450 ;[172][172][172][172][172][172][172][172][172]
  88. 455 ;
  89. 460 QK JSR IS[164]SND:JMP QM
  90. 465 ;
  91. 470 ;[172][172][172][172][172][172][172][172][172][172][172][172]
  92. 475 ;
  93. 480 IS[164]SND LDA #13:JSR [151]R
  94. 485 IST0 JSR RATF:JSR [151]R:JSR [156]CHN
  95. 490 JSR [143]ODEM
  96. 495 ;
  97. 500 LDA #[179]LOTEMP:LDX #[177]LOTEMP
  98. 505 JSR STRING:LDA RATS:BNE BASEX
  99. 510 ;
  100. 515 IN1 LDA #0:STA LPPO:RTS
  101. 520 ;
  102. 525 ;[172][172][172][172][172][172][172][172][172][172][172][172]
  103. 530 ;
  104. 535 B[198]HR JSR [161]IN
  105. 540 LDX $90:BEQ Q9
  106. 545 ;
  107. 550 BASEX LDA #2:JSR [160]
  108. 555 PLA:PLA:JSR ERR[176]
  109. 560 LDA PROT:CMP #"1":BEQ QL
  110. 565 JMP MENU
  111. 570 QL JSR ANY:JMP EE; MAGAZINE [164]C
  112. 575 ;
  113. 580 Q9 RTS
  114. 585 ;
  115. 590 ;[172][172][172][172][172][172][172][172][172][172][172][172]
  116. 595 ;
  117. 600 QQ LDX #0:STX GBNU:LDX #15
  118. 605 QB CMP $E8DA,X:BEQ QA
  119. 610 INC GBNU
  120. 615 ;
  121. 620 CMP XTB2,X:BEQ QA
  122. 625 DEC GBNU
  123. 630 ;
  124. 635 DEX:BPL QB
  125. 640 ;
  126. 645 PLA:PLA:JMP QJ
  127. 650 ;
  128. 655 ;[172][172][172][172][172][172][172]
  129. 660 ;
  130. 665 QA LDA #"<":JSR [151]R
  131. 670 LDA GBNU:BNE CRSRS
  132. 675 ;
  133. 680 LDA #[179]XTB0:LDY #[177]XTB0:BNE QC
  134. 685 CRSRS LDA #[179]XTB1:LDY #[177]XTB1
  135. 690 ;
  136. 695 QC STA $FB:STY $FC
  137. 700 LDY #0:STY GBNU
  138. 705 ;
  139. 710 ;[172][172][172][172][172][172][172]
  140. 715 ;
  141. 720 QE CPX GBNU:BEQ QD
  142. 725 ;
  143. 730 QF LDA ($FB),Y:BMI QG
  144. 735 INY:BNE QF
  145. 740 ;
  146. 745 QG INC GBNU:INY:BNE QE
  147. 750 ;
  148. 755 ;[172][172][172][172][172][172][172]
  149. 760 ;
  150. 765 QD LDA ($FB),Y:BMI QH
  151. 770 [176]A #128:JSR [151]R:INY:BNE QD
  152. 775 ;
  153. 780 QH JSR [151]R
  154. 785 LDA #">"
  155. 790 ;
  156. 795 ;[172][172][172][172][172][172][172]
  157. 800 ;
  158. 805 [151]R STX TEMP:LDX LPPO
  159. 810 STA LOTEMP,X:INX:STX LPPO
  160. 815 PHA:LDA #0:STA LOTEMP,X:PLA
  161. 820 LDX TEMP:RTS
  162. 825 ;
  163. 830 ;[172][172][172][172][172][172][172]
  164. 835 ;
  165. 840 XTB0 .BYTE "BL(null)WH(null)RESTR$CYA(null)PRP(null)GR(null)DK BL(null)YL(null)ORNCHR$BRW(null)LT RESTR$DK GR(null)MD GR(null)"
  166. 845 .BYTE "LT GR(null)LT BL(null)LT GR(null)":.BYTE 0
  167. 850 XTB1 .BYTE "U(null)D(null)R(null)LF(null)HOMVALCLR/HOMVALINS(null)DE(null)LW(null)UP(null)RV(null)RVS OFASC
  168. 855 XTB2 .BYTE 145 17 29 157 19 147 148 20 14 142 18 146 0 0 0 0
  169. 860 ;
  170. 865 .FILE 0:R.UFILER
  171.