home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / K.FILERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  187 lines
  1. 10 ;"OPEN15,8,15,"S0:K.F*":PRINT#15,"I":SAVE"K.FILERS",8:VERIFY"K.F*",8
  2. 20 ;
  3. 30 ;
  4. 40 ;      K.FILERS
  5. 50 ;
  6. 60 ;
  7. 70 ;           PUBLIC   PROBATI[145]ARY
  8. 80 ; MAG    [178]    1.      1[179]SPACE[177]
  9. 90 ; SEQ    [178]    2.      3[179]SPACE[177]
  10. 100 ; PRG    [178]    3.      4[179]SPACE[177]
  11. 110 ; [183]    [178]    4.      5[179]SPACE[177]
  12. 120 ; DOC    [178]    5.      6[179]SPACE[177]
  13. 130 ; ALL    [178]  "?".    "?"[179]SPACE[177]
  14. 140 ;
  15. 150 ;[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][172]
  16. 290 FIRST .BYTE 0
  17. 300 ;
  18. 310 BIBLIO LDA #[179]PIK2:LDX #[177]PIK2
  19. 320 JSR STRING:LDA RATS:BEQ BIB1
  20. 330 ;
  21. 340 JSR SUBCOM
  22. 350 BIB1 JSR [161]1:CMP #"2":BEQ BIB2
  23. 360 ;
  24. 370 LDA #46;      PUBLIC         .
  25. 380 .BYTE 44
  26. 390 BIB2 LDA #32; PROBATI[145]ARY  " "
  27. 400 ;
  28. 410 LIBR0 STA BYTE:STA PROT
  29. 420 ;
  30. 430 LDA #[179]PIK3:LDX #[177]PIK3
  31. 440 JSR STRING:LDA RATS:BEQ K1
  32. 450 JSR SUBCOM
  33. 460 ;
  34. 470 ;[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][172]
  35. 480 ;
  36. 490 K1 JSR [161]1
  37. 500 ;
  38. 510 ;[172][172][172][172] MAGAZINE
  39. 520 ;
  40. 530 NOMGG CMP #"1":BNE K2
  41. 540 ;
  42. 550 MAGMENU LDA #[179][164]C:LDX #[177][164]C
  43. 560 JSR STRING:LDA #"1"
  44. 570 LDY BYTE:LDX #"P":JMP KK
  45. 580 ;
  46. 590 ;[172][172][172][172] SEQUENTIAL
  47. 600 ;
  48. 610 K2 CMP #"2":BNE K3
  49. 620 LDX #"S":BNE K5A
  50. 630 ;
  51. 640 ;[172][172][172][172] PROGRAM
  52. 650 ;
  53. 660 K3 CMP #"3":BNE K4
  54. 670 LDX #"P":BNE K5A
  55. 680 ;
  56. 690 ;[172][172][172][172] USER
  57. 700 ;
  58. 710 K4 CMP #"4":BNE K5
  59. 720 LDX #"U":BNE K5A
  60. 730 ;
  61. 740 ;[172][172][172][172] DOCUMENTATI[145]
  62. 750 ;
  63. 760 K5 CMP #"5":BNE K6
  64. 770 LDX #"A":BNE K5A
  65. 780 K5A LDY BYTE:BNE KL
  66. 790 ;
  67. 800 ;[172][172][172][172] ALL FILES
  68. 810 ;
  69. 820 K6 CMP #"6":BNE K7
  70. 830 LDX #"A":LDY BYTE:LDA #63
  71. 840 KL JMP KK
  72. 850 ;
  73. 860 ;[172][172][172][172][172][172][172][172]
  74. 870 ;
  75. 880 K7 JMP MENU
  76. 890 ;
  77. 900 ;[172][172][172][172][172][172][172][172]
  78. 910 ;
  79. 920 ;   "$:1?*=P"
  80. 930 ;
  81. 940 ; IN FINAL PRG, TYPE IS SET [164] FILE TYPE DESIRED.  [139] ALL TYPES, SET [164] 'A'
  82. 950 ;
  83. 960 KK STA MISC[170]2; 1ST CODE
  84. 970 STY MISC[170]3;           2ND CODE
  85. 980 STX MISC[170]6
  86. 990 ;
  87. 1000 LDA #36:STA MISC;   $
  88. 1010 LDA #58:STA MISC[170]1; COL[145]
  89. 1020 LDA #42:STA MISC[170]4
  90. 1030 LDA #61:STA MISC[170]5
  91. 1040 ;
  92. 1050 ;  ENTER W[173]X HOLDING U[173]P[173]S [175] Y HOLDING 2ND BYTE [129] DISPLAY SECURITY
  93. 1060 ;
  94. 1070 ;[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]
  95. 1080 ;[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]
  96. 1090 ;
  97. 1100 LDA #7
  98. 1110 SNAM LDX #[179]MISC:LDY #[177]MISC
  99. 1120 JSR SETNAM
  100. 1130 ;
  101. 1140 LDA #2:LDX DRIV:LDY #0:STY LPPO
  102. 1150 JSR SETLFS
  103. 1160 ;
  104. 1170 JSR [159]:JSR RET2
  105. 1180 ;
  106. 1190 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  107. 1200 ;
  108. 1210 ;    DIREC[164]RY HEADER
  109. 1220 ;
  110. 1230 LDX #2:JSR CHKIN
  111. 1240 K8 JSR B[198]HR:CMP #18:BNE K8
  112. 1250 ;
  113. 1260 JSR [151]R:LDA #32:JSR [151]R
  114. 1270 LDA #0:STA FIRST
  115. 1280 ;
  116. 1290 LDX MISC[170]2:CPX #"1":BNE KC
  117. 1300 JMP K9
  118. 1310 ;
  119. 1320 KA LDA #0:STA LPPO
  120. 1330 ;
  121. 1340 LDX #2:JSR CHKIN
  122. 1350 ;
  123. 1360 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  124. 1370 ;
  125. 1380 ;    BLOCK COUNT
  126. 1390 ;
  127. 1400 JSR B[198]HR:JSR B[198]HR
  128. 1410 JSR B[198]HR:STA PTEK
  129. 1420 JSR B[198]HR:STA PTEK[170]1
  130. 1430 LDX MISC[170]2:CPX #"1":BNE KB
  131. 1440 ;
  132. 1450 LDA #32:JSR [151]R:JSR [151]R
  133. 1460 JSR [151]R:JSR [151]R:BNE KC
  134. 1470 ;
  135. 1480 KB JSR B[198]1; BLOCK COUNT
  136. 1490 ;
  137. 1500 ;[172][172][172][172][172][172]
  138. 1510 ;
  139. 1520 ;       FILE NAME RETRIE[197]
  140. 1530 ;
  141. 1540 KC LDA #0:STA MIN:STA GBNU
  142. 1550 ;
  143. 1560 KD JSR B[198]HR:CMP #0:BEQ KI
  144. 1570 ;
  145. 1580 LDX GBNU:BEQ KE; STRIP PREFIX
  146. 1590 DEC GBNU:BPL KD
  147. 1600 ;
  148. 1610 KE CMP #42:BEQ KJ
  149. 1620 ;
  150. 1630 ;[172][172][172][172][172][172]
  151. 1640 ;
  152. 1650 CMP #34:BNE KG
  153. 1660 LDA FIRST:BEQ KD
  154. 1670 ;
  155. 1680 LDA MIN:E[176] #1:STA MIN:BNE KF
  156. 1690 LDA #5:BNE KG
  157. 1700 ;
  158. 1710 KF LDX #3:STX GBNU:BNE KD
  159. 1720 ;
  160. 1730 ;[172][172][172][172][172][172]
  161. 1740 ;
  162. 1750 KG LDX MISC[170]2:CPX #"1":BNE KH
  163. 1760 LDX MIN:BEQ KD
  164. 1770 ;
  165. 1780 KH JSR [151]R:JMP KD
  166. 1790 ;
  167. 1800 KI JSR IS[164]SND
  168. 1810 K8B INC FIRST:JMP KA
  169. 1820 ;
  170. 1830 K9 JSR B[198]HR:CMP #0:BNE K9
  171. 1840 BEQ K8B
  172. 1850 ;
  173. 1860 ;[172][172][172][172][172][172]
  174. 1870 ;
  175. 1880 KJ LDA #2:JSR [160]:JSR IS[164]SND
  176. 1890 LDA #[179]XXX:LDX #[177]XXX
  177. 1900 JSR STRING:JSR [197]IDATE
  178. 1910 JMP MENU
  179. 1920 ;
  180. 1930 ;[172][172][172][172][172][172]
  181. 1940 ;
  182. 1950 XXX .BYTE "(null)OISON ASCILE":.BYTE 0
  183. 1960 [197]ID .BYTE 13 13
  184. 1970 .BYTE "(null)LEASE (null)TAND PEEKY...  (null)ALIDATING STR$ISK WAIT":.BYTE 0
  185. 1980 ;
  186. 1990 .FILE 0:L.TRANSFERS
  187.