home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / L.TRANSFERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  219 lines
  1. 10 ;"OPEN15,8,15,"S0:L.T*":PRINT#15,"I":SAVE"L.TRANSFERS",8:VERIFY"L.T*",8
  2. 15 ;
  3. 20 ;         L.TRANSFERS
  4. 25 ;
  5. 30 ;
  6. 35 ;
  7. 40 MAULDL LDA #4:STA PTEK:STA PTEK[170]1
  8. 45 JSR SECURITY:BCC L1
  9. 50 JMP MENU
  10. 55 ;
  11. 60 L1 LDA #[179]UPDN:LDX #[177]UPDN
  12. 65 JSR STRING:LDA RATS:BEQ L2
  13. 70 JSR SUBCOM
  14. 75 ;
  15. 80 L2 JSR [161]1:STA U[176]D;[162] VAR
  16. 85 ;
  17. 90 CMP #"L":BEQ L3
  18. 95 ;     JMP LFF;  FILE XFERS
  19. 100 ;
  20. 105 L3 LDA #[179]PIK1:LDX #[177]PIK1
  21. 110 JSR STRING:LDA RATS:BEQ L4
  22. 115 JSR SUBCOM
  23. 120 L4 JSR [161]1
  24. 125 ;
  25. 130 ;[172][172][172][172][172] DIREC[164]RY
  26. 135 ;
  27. 140 CMP #"D":BNE L5
  28. 145 JMP BIBLIO
  29. 150 ;
  30. 155 ;[172][172][172][172][172] BASIC [155]
  31. 160 ;
  32. 165 L5 CMP #"B":BNE L6
  33. 170 JMP D[155]
  34. 175 ;
  35. 180 ;[172][172][172][172][172] SEQUENTIAL [155]
  36. 185 ;
  37. 190 L6 CMP #"S":BNE L7
  38. 195 LDA #0:BEQ LB
  39. 200 ;
  40. 205 ;[172][172][172][172][172] W[176]D PROCESS[176] [155]
  41. 210 ;
  42. 215 L7 CMP #"W":BNE L8
  43. 220 ;
  44. 225 ; SET [198]II [129] [179]CR[177]
  45. 230 ;
  46. 235 LDA #31:STA LOW[170]1
  47. 240 LDA #[179]XCRT:LDX #[177]XCRT
  48. 245 JSR BEF2:BEQ LA
  49. 250 STA LOW[170]1
  50. 255 ;
  51. 260 LA LDA #1
  52. 265 LB STA PKY:JSR LC
  53. 270 JMP SEQUR
  54. 275 ;
  55. 280 L8 JMP MENU
  56. 285 ;
  57. 290 ;[172][172][172][172][172][172][172]
  58. 295 ;
  59. 300 LC LDA #255:STA GBNU
  60. 305 LDA #[179]XPET:LDX #[177]XPET
  61. 310 JSR STRING:LDA RATS:BEQ LD
  62. 315 JSR SUBCOM
  63. 320 LD JSR [161]1
  64. 325 ;
  65. 330 CMP #"T":BNE LE
  66. 335 INC GBNU; TRUE [198]II GBNU [178] 0
  67. 340 LE RTS
  68. 345 ;
  69. 350 ;[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]
  70. 355 ;[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]
  71. 360 ;
  72. 365 ;[172][172][172][172][172] UP[173]DOWN[173]TEXT
  73. 370 ;
  74. 375 XCRT .BYTE 13 37 84 13
  75. 380 .BYTE "VALNTER ATN(null)LENRIGHT$RIGHT$ VALUE FOR <LEN(null)>":.BYTE 13
  76. 385 .BYTE "STR$EFAULT 31 FOR (null)PEEDSCRIPT ":.BYTE 58 0
  77. 390 ;
  78. 395 ;
  79. 400 XPET .BYTE 13 13
  80. 405 .BYTE "[(null)]RUE ATN(null)LENRIGHT$RIGHT$        [(null)]ET ATN(null)LENRIGHT$RIGHT$ ":.BYTE 58 0
  81. 410 ;
  82. 415 ;
  83. 420 .FILE 0:M.ROUTINES
  84. 425 ;
  85. 430 LFF LDA U[176]D:CMP #"D":BNE LG
  86. 435 LDA #"R":BNE LI
  87. 440 LG CMP #"U":BEQ LHH
  88. 445 JMP MENU
  89. 450 LHH LDA #"W"
  90. 455 LI STA DIRE
  91. 460 ;
  92. 465 ;[172][172][172][172][172] SET NAME BUFFER AT 2049
  93. 470 ;
  94. 475 LDA #8:STA $FE
  95. 480 LDA #1:STA $FD
  96. 485 ;
  97. 490 ;[172][172][172][172][172] TRANSFER PROTCOL [176] TEXT
  98. 495 ;
  99. 500 LDA #[179]PCOL:LDX #[177]PCOL
  100. 505 JSR STRING:JSR [161]1
  101. 510 STA PROT:CMP #"X":BEQ LJ
  102. 515 CMP #"P":BEQ LJ
  103. 520 CMP #"T":BEQ LJ
  104. 525 JMP MENU;          AB[176]T
  105. 530 ;
  106. 535 ;[172][172][172][172][172] [191]GLE [176] MULTI XFERS
  107. 540 ;
  108. 545 LJ LDA #[179]MULT:LDX #[177]MULT
  109. 550 JSR STRING
  110. 555 ;
  111. 560 ;  PKY HOLDS S[173]M TRANSFER
  112. 565 ;
  113. 570 JSR [161]1:STA MIN
  114. 575 CMP #"M":BEQ LK
  115. 580 CMP #"S":BEQ LK
  116. 585 JMP MENU;          AB[176]T
  117. 590 ;
  118. 595 ;[172][172][172][172][172][172] [161] FILE NAME[173]S
  119. 600 ;
  120. 605 LK LDA #1:STA LIN
  121. 610 LW JSR RET2:LDA LIN
  122. 615 CMP #51:BNE LL; 50 FILES MAX.
  123. 620 ;
  124. 625 JMP LMM
  125. 630 ;
  126. 635 LL JSR LINER
  127. 640 LN JSR [165]AME:BEQ LO
  128. 645 DEC LIN:BEQ LK
  129. 650 BNE LW
  130. 655 ;
  131. 660 LO LDA RAPR:BEQ LMM; LAST NAME
  132. 665 ;
  133. 670 ;[172][172][172][172][172][172] [161] FILE TYPE[173]S
  134. 675 ;
  135. 680 LDA #[179]KIND:LDX #[177]KIND
  136. 685 JSR STRING:JSR [161]1
  137. 690 STA TYPE:CMP #"S":BEQ LQ
  138. 695 CMP #"P":BNE LR
  139. 700 CMP #"U":BEQ LS
  140. 705 ;
  141. 710 LQ LDX #"2";    SEQUENTIAL
  142. 715 .BYTE 44
  143. 720 LR LDX #"3";    PROGRAM
  144. 725 .BYTE 44
  145. 730 LS LDX #"5";    [183]
  146. 735 STX CRUT
  147. 740 LT JSR LY;       FILE TYPE
  148. 745 LDA CRUT:JSR LY; DIR TYPE FLAG
  149. 750 LDA #32:JSR LY;   PROB. BASE
  150. 755 LDA #"1":JSR LY;  SUBBOARD
  151. 760 ;
  152. 765 LDX #0
  153. 770 LU LDA MISC,X:BEQ LV
  154. 775 JSR LY:INX:BNE LU
  155. 780 LV LDA #44:JSR LY;   COMMA
  156. 785 LDA TYPE:JSR LY;       P[173]S[173]U
  157. 790 LDA #44:JSR LY;        COMMA
  158. 795 LDA DIRE:JSR LY;  R[173]W
  159. 800 LDA #0:JSR LY
  160. 805 ;
  161. 810 LDA MIN:CMP #"S":BEQ LMM; [191]GLE
  162. 815 JMP LW
  163. 820 ;
  164. 825 LY LDY #0:STA ($FD),Y; NAME
  165. 830 INC $FD:BNE LZ
  166. 835 INC $FE
  167. 840 LZ RTS
  168. 845 ;
  169. 850 LMM LDA $FD:BNE L11
  170. 855 JMP MENU
  171. 860 ;
  172. 865 ;[159] EACH FILE [175] XFER IT. FIRST
  173. 870 ;CHECK [129] EXISTENCE [129] DL'S [175]
  174. 875 ;N[145][171]EXISTENCE [129] UL'S.  [129] TEXT
  175. 880 ;XFERS, BUFFER TEXT [167] SEPARATE
  176. 885 ;[181]O PROPER [195]GTH BLOCKS [129] USE
  177. 890 ;IN MESSAGE [135][173]EDITS
  178. 895 ;
  179. 900 L11 LDA #255:JSR LY
  180. 905 LDA DIRE:CMP #"R":BEQ L12
  181. 910 LDA #[179]XDTR:LDX #[177]XDTR:BNE L13
  182. 915 L12 LDA #[179]XDTS:LDX #[177]XDTS
  183. 920 L13 JSR STRING:JMP MENU
  184. 925 ;
  185. 930 ;[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]
  186. 935 ; [161] 4 LINES OF COMMENTS.  [129]
  187. 940 ; [191]GLE FILE [145]LY. [MAYBE]
  188. 945 ;[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]
  189. 950 ;
  190. 955 L14 LDA #5:STA GBNU;  5 LINES OF CMNT MAX. [170] 2 S[128]ER LINES
  191. 960 L15 LDA #0:STA RAPR
  192. 965 LDA #[179]CMT:LDX #[177]CMT
  193. 970 JSR STRING
  194. 975 LDX #38:STX MIN[170]1:JSR [161]BYTE
  195. 980 JSR RET1
  196. 985 ;
  197. 990 LDA RAPR:BEQ L16
  198. 995 ; BUFFER SOMEWHERE
  199. 1000 DEC GBNU:BNE L15
  200. 1005 ;
  201. 1010 L16 RTS
  202. 1015 ;
  203. 1020 ;[172][172][172][172][172][172][172][172]
  204. 1025 ;
  205. 1030 XCRT .BYTE 13 37 84 13
  206. 1035 .BYTE "VALNTER ATN(null)LENRIGHT$RIGHT$ VALUE FOR <LEN(null)>":.BYTE 13
  207. 1040 .BYTE "STR$EFAULT 31 FOR (null)PEEDSCRIPT ":.BYTE 58 0
  208. 1045 ;
  209. 1050 XDTR .BYTE 7 13 37 83 13
  210. 1055 .BYTE "** (null)EADY (null)O (null)ECEIVE **":.BYTE 13 13 0
  211. 1060 ;
  212. 1065 XDTS .BYTE 7 13 37 83 13
  213. 1070 .BYTE "** (null)EADY (null)O (null)END **":.BYTE 13 13 0
  214. 1075 ;
  215. 1080 XPET .BYTE 13 13
  216. 1085 .BYTE "[(null)]RUE ATN(null)LENRIGHT$RIGHT$        [(null)]ET ATN(null)LENRIGHT$RIGHT$ ":.BYTE 58 0
  217. 1090 ;
  218. 1095 .FILE 0:M.ROUTINES
  219.