home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / X.ERROR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  81 lines
  1. 10 ;"OPEN15,9,15,"S0:X.E*":PRINT#15,"I":SAVE"X.ERROR",9:VERIFY"X.E*",9
  2. 15 ;
  3. 20 ; ERR[176] CHANNEL & DISK FUNCTI[145]S
  4. 25 ;
  5. 30 ERR[176] JSR UNWRAP:STA MIN[170]1:STA RATS
  6. 35 JSR RET1
  7. 40 LDA #44:STA XA[170]1
  8. 45 ;
  9. 50 JSR [156]CHN:LDX #15:JSR CHKIN
  10. 55 X1 JSR [161]IN:LDY MIN[170]1
  11. 60 STA RAPR,Y:CMP #13:BEQ X2
  12. 65 INC MIN[170]1:BNE X1
  13. 70 ;
  14. 75 X2 JSR [156]CHN
  15. 80 ;
  16. 85 LDA RAPR:[175] #15:BNE X3
  17. 90 LDA RAPR[170]1:[175] #15:BEQ X4
  18. 95 ;
  19. 100 ; SCRATCH DISPLAY
  20. 105 ;
  21. 110 LDY #0:STY XA[170]1:BEQ X9
  22. 115 ;
  23. 120 .BYTE 44
  24. 125 X3 LDY #3;  ALL OTHERS
  25. 130 ;
  26. 135 X9 STY L[145]G:INC RATS
  27. 140 ;
  28. 145 X5 LDY L[145]G:LDA RAPR,Y:BEQ X4
  29. 150 XA CMP #44:BEQ X4
  30. 155 JSR CHAR:INC L[145]G:BNE X5
  31. 160 ;
  32. 165 X4 JSR RET2:JMP [143]ODEM
  33. 170 ;
  34. 175 ;[172][172][172][172][172] [197]IDATE
  35. 180 ;
  36. 185 [197]IDATE LDA #[179][197]ID:LDX #[177][197]ID
  37. 190 JSR STRING
  38. 195 ;
  39. 200 JSR XD:LDA #"V":JSR CHROUT
  40. 205 LDA #13:JSR CHROUT:BNE X6
  41. 210 ;
  42. 215 ;[172][172][172][172][172] INITL
  43. 220 ;
  44. 225 INITL JSR XD
  45. 230 X6 LDA #"I":JSR CHROUT
  46. 235 XB LDA #13:JSR CHROUT:JMP ERR[176]
  47. 240 ;
  48. 245 ;[172][172][172][172][172] RESET DRIVE
  49. 250 ;
  50. 255 REST JSR XD
  51. 260 LDA #"U":JSR CHROUT
  52. 265 LDA #58:JSR CHROUT:BNE XB
  53. 270 ;
  54. 275 ;[172][172][172][172][172] RENAME FILE
  55. 280 ;
  56. 285 RENAMF JSR XD:LDA #"R"
  57. 290 BNE X7
  58. 295 ;
  59. 300 ;[172][172][172][172][172] DE[136]E FILE
  60. 305 ;
  61. 310 SCRACH JSR XD:LDA #"S"
  62. 315 X7 JSR CHROUT
  63. 320 ;
  64. 325 ;[172][172][172][172][172][172] S[128] COMM[175] IN RAPR
  65. 330 ;
  66. 335 DCOM LDA FEED:STA CRX[170]1
  67. 340 LDA #0:STA L[145]G:STA FEED
  68. 345 ;
  69. 350 X8 LDX L[145]G:LDA HITEMP,X
  70. 355 BEQ XC
  71. 360 ;
  72. 365 JSR CHROUT:INC L[145]G:BNE X8
  73. 370 XC LDA CRX[170]1:STA FEED:JMP ERR[176]
  74. 375 ;
  75. 380 ;[172][172][172][172][172][172] [159] COMM[175] OUT CHANNEL
  76. 385 ;
  77. 390 XD JSR [156]CHN:LDX #15
  78. 395 JMP CHKOUT
  79. 400 ;
  80. 405 .FILE 0:Y.[197]IDATE
  81.