home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / S.READERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  59 lines
  1. 10 ;"OPEN15,8,15,"S0:S.R*":PRINT#15,"I":SAVE"S.READERS",8:VERIFY"S.R*",8
  2. 20 ;
  3. 30 ;[172][172][172][172][172][172] [159] USER SPEC[139]IED FILE
  4. 120 ;
  5. 130 ; [135] SEQ FILES IN EITHER TRUE [176] S4 [198]II.
  6. 140 ;
  7. 150 ; [139] GBNU [178] 0      TRUE [198]II
  8. 160 ;          [178] 1      S4  [198]II
  9. 170 ;
  10. 180 ;
  11. 190 SEQUR JSR OPF1; WILL [149] ALSO
  12. 200 JSR IN1;        INIT BUFFER INDEX
  13. 210 ;
  14. 220 S1 LDX #2:JSR CHKIN
  15. 230 ;
  16. 240 S2 JSR B[198]HR
  17. 250 ;
  18. 260 S3 JSR S6:BEQ S2; TRANSLATE [198]II
  19. 270 ;
  20. 280 S4 CMP #13:BEQ S5
  21. 290 JSR [151]R
  22. 300 LDX LPPO:CPX MXLO:BEQ S5
  23. 310 BNE S2
  24. 320 ;
  25. 330 S5 JSR IS[164]SND:JMP S1
  26. 340 ;
  27. 350 ;[172][172][172][172][172][172] TRANSLATE [133]
  28. 360 ;
  29. 370 S6 LDX PKY:BEQ S7
  30. 380 ;
  31. 390 CMP LOW[170]1:BNE S9
  32. 400 LDA #13:RTS
  33. 410 S9 CMP #32:BCC SA
  34. 420 CMP #63:BCC S7
  35. 430 CMP #96:BCC SB
  36. 440 CMP #128:BCC SA
  37. 450 LDA #0:BEQ SC
  38. 460 ;
  39. 470 SB CLC:ADC #32:JMP S7
  40. 480 SA CLC:ADC #64
  41. 490 ;
  42. 500 S7 LDX GBNU:BNE SC
  43. 510 JMP FIXIN
  44. 520 SC RTS; NO TRNSL [129] TRUE [198]II
  45. 530 ;
  46. 540 ;[172][172][172][172][172][172] [159] USER SPEC[139]IED FILE
  47. 550 ;
  48. 560 OPF1 JSR RET2:JSR [165]AME:BEQ OPF2
  49. 570 PLA:PLA:JMP MENU
  50. 580 ;
  51. 590 OPF2 LDA LNTH
  52. 600 LDX #[179]MISC:LDY #[177]MISC
  53. 610 JSR SETNAM
  54. 620 ;
  55. 630 LDA #2:LDX DRIV:TAY:JSR SETLFS
  56. 640 JSR [159]:JMP RET2
  57. 650 ;
  58. 660 .FILE 0:T.HEADERS
  59.