home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / V.TEXT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.3 KB  |  433 lines
  1. 10 ;"OPEN15,8,15,"S0:V.T*":PRINT#15,"I":SAVE"V.TEXT",8:VERIFY"V.T*",8
  2. 15 ;
  3. 20 V0 .BYTE 48 58:.BYTE "1.1"
  4. 25 V01 .BYTE 0
  5. 30 BYLI .BYTE "(null)RITTEN BY ":.BYTE 0
  6. 35 ;
  7. 40 NOSY .BYTE 0 0; [129] OVERLAY SCREENS
  8. 45 ;
  9. 50 ;
  10. 55 MWRT LDX #2; [148]
  11. 60 .BYTE 44
  12. 65 MTEX LDX #1; [135]
  13. 70 .BYTE 44
  14. 75 MSCH LDX #0; DE[136]E
  15. 80 ;
  16. 85 STX MASK
  17. 90 ;
  18. 95 ;[172][172][172][172][172][172] [161] NAME
  19. 100 ;
  20. 105 VX LDA #0:STA [135]ER:JSR RET2
  21. 110 JSR [165]AME:CMP #"Y":BEQ V3
  22. 115 LDA RAPR:BNE VX
  23. 120 ;
  24. 125 ;[172][172][172][172][172][172] FIND C[176]RECT EXIT TAR[161]
  25. 130 ;
  26. 135 VZ JSR [143]0:LDX READER:BNE V6
  27. 136 ;
  28. 137 JSR [161]1
  29. 140 ;
  30. 145 V6 LDA #147:JSR CHAR
  31. 150 ;
  32. 155 LDA #14:JSR CHAR
  33. 160 ;
  34. 165 LDA NOSY[170]1:BEQ VZ2
  35. 170 JSR SYNT
  36. 175 ;
  37. 180 VZ2 LDX MASK:CPX #4:BNE VZ1
  38. 185 JMP MENU
  39. 190 ;
  40. 195 VZ1 CPX #2:BNE V4
  41. 200 JMP EMAILIN; EDI[164]R MENU
  42. 205 ;
  43. 210 V4 JMP EE;   MAIN MAGAZINE MENU
  44. 215 ;
  45. 220 ;[172][172][172][172][172][172] SET FILE NAME
  46. 225 ;
  47. 230 ; LATER MAKE THIS A SUBROUTINE [175]
  48. 235 ; USE A FIELD [164] HOLD THE DEVICE
  49. 240 ; NUMBER [SET BY CALLER] [175] ALSO
  50. 245 ; A FIELD [164] HOLD A PREFIX THAT
  51. 250 ; WILL IDENT[139]Y THE FI[136]YPE.
  52. 255 ;
  53. 260 V3 LDY LNTH
  54. 265 V1 LDA MISC,Y
  55. 270 STA MISC[170]5,Y:DEY:BPL V1
  56. 275 ;
  57. 280 ;[172][172][172][172][172][172] SET FILE NAME PREFIX
  58. 285 ;
  59. 290 LDY #4
  60. 295 V2 LDA V0,Y:STA MISC,Y
  61. 300 DEY:BPL V2
  62. 305 ;
  63. 310 LDA LNTH:CLC:ADC #5:STA LNTH
  64. 315 JSR V18
  65. 320 ;
  66. 325 LDX MASK:BNE V30
  67. 330 JMP MSXX
  68. 335 V30 CPX #1:BNE MWRI
  69. 340 JMP MRED
  70. 345 ;
  71. 350 ;[172][172][172][172] [148] MAGAZINE ARTICLE [164] DISK
  72. 355 ;
  73. 360 MWRI JSR RET1:JSR SCRACH:LDY LNTH
  74. 365 LDA #44:STA MISC,Y
  75. 370 STA MISC[170]2,Y
  76. 375 LDA #"P":STA MISC[170]1,Y
  77. 380 LDA #"W":STA MISC[170]3,Y
  78. 385 LDA LNTH:CLC:ADC #4:STA LNTH
  79. 390 ;
  80. 395 JSR OPF2:JSR ERR[176]
  81. 400 LDA RATS:BEQ V13
  82. 405 ;
  83. 410 LDA #2:JSR [143]O:JMP MWRT; ON ERROR
  84. 415 ;
  85. 420 V13 LDX #2:JSR CHKOUT
  86. 425 LDA #37:JSR CHROUT
  87. 430 LDA #84:JSR CHROUT
  88. 435 LDY #0
  89. 440 V24 LDA BYLI,Y:BEQ V25
  90. 445 JSR CHROUT:INY:BNE V24
  91. 450 V25 LDY #0
  92. 455 V26 LDA WYHL,Y:BEQ V27
  93. 460 CMP #13:BEQ V27
  94. 465 JSR CHROUT:INY:CPY #12:BNE V26
  95. 470 V27 JSR V59;  2 [179]CR[177]
  96. 475 ;
  97. 480 LDY #255:STY BACK
  98. 485 ;
  99. 490 V14 JSR INA4
  100. 495 ;
  101. 500 V15 LDY #0
  102. 505 V16 LDA ($62),Y:JSR CHROUT:BEQ V14
  103. 510 INC $62:BNE V17
  104. 515 INC $63
  105. 520 V17 CMP #13:BEQ V14
  106. 525 CMP #148:BEQ V14
  107. 530 CMP #255:BNE V15
  108. 535 ;
  109. 540 JSR V59:JSR V59;  4 [179]CR[177]
  110. 545 ;
  111. 550 LDA #2:JSR [143]O:JMP EE
  112. 555 ;
  113. 560 V59 LDA #13:JSR CHROUT:JMP CHROUT
  114. 565 ;
  115. 570 ; FINAL VERSI[145] MUST RE[147] MESSAGE
  116. 575 ; BUFFER [175] PO[181]ER TABLES
  117. 580 ;
  118. 585 ;[172][172][172][172][172][172] SCRATCH FILE
  119. 590 ;
  120. 595 MSXX JSR RET1:JSR SCRACH:JSR RATF:JMP EE
  121. 600 ;
  122. 605 ;[172][172][172][172][172] [159] [175] [135] FILE
  123. 610 ;
  124. 615 MRED JSR OPF2
  125. 620 LDA #0:STA V01:STA NOSY[170]1:STA NOSY;     [129] GRAFIX [135]ERS
  126. 625 ;
  127. 630 ;[172][172][172][172][172] MAIN LOOP ENTRY
  128. 635 ;
  129. 640 VY LDA #0:STA PROT
  130. 645 VA LDA #0:STA LPPO:STA RATS
  131. 650 STA MDIT:STA DIRE
  132. 655 LDX #2:JSR CHKIN
  133. 660 VB JSR B[191]; [161] [129] [135]ERS
  134. 665 ;
  135. 670 ;[172][172][172][172][172] IS THIS THE [128] OF FILE
  136. 675 ;
  137. 680 CMP #255:BNE V28
  138. 685 ;
  139. 690 V10 LDA #2:JSR [143]O:JMP VZ
  140. 695 ;
  141. 700 ;[172][172][172][172][172] USER MENU FUNCTI[145]
  142. 705 ;
  143. 710 V28 CMP #47:BNE V23
  144. 715 LDX LPPO:BNE V19
  145. 720 JMP V40; USER MENU ROUTINE
  146. 725 ;
  147. 730 ;[172][172][172][172][172] CHECK [129] PAUSE [PLUS SIGN]
  148. 735 ;
  149. 740 V23 CMP #43:BNE VC
  150. 745 STX RATS
  151. 750 JSR [143]0:LDX LPPO:BEQ V35
  152. 755 JSR VIEW:LDA RATS:BEQ V35
  153. 760 JMP V10; AB[176]T
  154. 765 ;
  155. 770 V35 JSR ANY:JSR RET2
  156. 771 ;
  157. 772 LDA #1:STA [135]ER; FLAG [133]
  158. 773 ;
  159. 775 JMP VY; RESET LINE COUNTER
  160. 780 ;
  161. 785 ;[172][172][172][172][172] MINUS SIGN [129] PASSW[176]D
  162. 790 ;
  163. 795 VC CMP #45:BNE VD; PASSW[176]D
  164. 800 VW LDX LPPO:BNE VV
  165. 805 ;
  166. 810 LDX MDIT:BNE VB
  167. 815 STA MDIT:BNE VB
  168. 820 ;
  169. 825 ;[172][172][172][172][172][172][172]
  170. 830 ;
  171. 835 VD CMP #62:BNE V31; GRAFIX FILE
  172. 840 BEQ VW
  173. 845 V31 CMP #60:BNE V36; LINKED FILE
  174. 850 BEQ VW
  175. 855 V36 CMP #59:BNE VV; OVERLAID GFX
  176. 860 LDX MDIT:CPX #62:BNE VV
  177. 865 STA NOSY;  D[145]'T S[128] LOWER CASE
  178. 870 ;
  179. 875 ;
  180. 880 ;[172][172][172][172][172][172][172]
  181. 885 ;
  182. 890 VV CMP #13:BEQ VE
  183. 895 ;
  184. 900 CMP #148:BNE V19
  185. 905 ;
  186. 910 LDX COLUMNS:CPX #"8":BEQ V20
  187. 915 LDA #32:STA DIRE:JSR [151]R
  188. 920 JMP VE
  189. 925 ;
  190. 930 V20 LDA #13:BNE VV
  191. 935 ;
  192. 940 ;[172][172][172][172][172][172]
  193. 945 ;
  194. 950 V19 JSR [151]R:JMP VB
  195. 955 ;
  196. 960 VE LDA MDIT:BNE VF
  197. 965 LDA DIRE:BEQ V22
  198. 970 ;
  199. 975 JSR V8:LDA RATS:BNE V7; D[145]'T ADD [179]CR[177]. [139] AB[176]T, EXIT CLEAN
  200. 980 JMP VA
  201. 985 ;
  202. 990 V22 JSR VIEW:LDA RATS:BEQ V60
  203. 995 V7 JMP V10
  204. 1000 V60 INC PROT:LDA PROT:CMP #20:BNE V11
  205. 1005 STA RET0:JSR [143]0:JSR ANY:JSR RET2
  206. 1010 LDA #37:JSR CHAR; CLEAR SCREEN
  207. 1015 LDA #84:JSR CHAR:JMP VY
  208. 1020 ;
  209. 1025 V11 JMP VA; [154]INUE
  210. 1030 ;
  211. 1035 ;[172][172][172][172][172] PROCESS GFX[173]PSWD
  212. 1040 ;
  213. 1045 VF LDA #0:STA PROT:JSR [143]0
  214. 1050 LDA MDIT:CMP #62:BEQ V32; GRAFIX
  215. 1055 CMP #60:BEQ VK; LINKED FILE
  216. 1060 ;
  217. 1065 ;[172][172][172][172][172] [161] PASSW[176]D [175] TEST IT
  218. 1070 ;
  219. 1075 LDA #[179]XPWD:LDX #[177]XPWD:STX RATS
  220. 1080 STX SHBL:JSR STRING
  221. 1085 LDX #8:STX MIN[170]1:JSR [161]BYTE
  222. 1090 ;
  223. 1095 LDY #1:LDX #0:STX SHBL:STX PROT
  224. 1100 VO LDA LOTEMP,Y:CMP #32:BCC VM
  225. 1105 ;
  226. 1110 CMP RAPR,X:BEQ VN
  227. 1115 LDA #2:JSR [143]O
  228. 1120 PLA:PLA:JMP EE; AB[176]T [139] FAILED PWD
  229. 1125 ;
  230. 1130 VN INX:INY:CPY #8:BNE VO
  231. 1135 VM JSR RET2:JMP VA;  OK RESUME [135]ING
  232. 1140 ;
  233. 1145 ;[172][172][172][172] [159] FILE [139] [145] OUR TERMINAL
  234. 1150 ;
  235. 1155 ; SET UP [129] LINKED FILE [167] [203]          [159] & [135] IT.
  236. 1160 ;
  237. 1165 VK LDY #0
  238. 1170 V34 LDA LOTEMP,Y:BEQ V33
  239. 1171 CMP #59:BEQ V33
  240. 1172 ;
  241. 1175 CMP #13:BEQ V33
  242. 1180 STA MISC,Y:CMP #42:BEQ V33
  243. 1185 INY:CPY #12:BNE V34
  244. 1190 V33 STY LNTH:LDA #2:JSR [143]O
  245. 1195 JMP V3
  246. 1200 ;
  247. 1205 ;[172][172][172][172] [159] GRAFIX FILE
  248. 1210 ;
  249. 1215 V32 LDX AGRE:BEQ VM
  250. 1220 LDA LPPO
  251. 1225 LDX #[179]LOTEMP:LDY #[177]LOTEMP
  252. 1230 JSR SETNAM
  253. 1235 ;
  254. 1240 LDA #9:LDX DRIV:TAY:JSR SETLFS
  255. 1245 JSR [159]:JSR [156]CHN
  256. 1246 LDA NOSY[170]1:BNE VQ
  257. 1248 JSR SYNT:LDA #147:JSR CHAR
  258. 1250 ;
  259. 1255 ;[172][172][172][172][172]
  260. 1260 ;
  261. 1265 VQ LDX #9:JSR CHKIN
  262. 1270 LDX #0:STX LPPO:STX RATS
  263. 1275 ;
  264. 1280 VP JSR [161]IN:LDX $90:BNE VT; 6BCD
  265. 1285 CMP #0:BEQ VP
  266. 1290 ;
  267. 1295 CMP #13:BNE VU
  268. 1300 ;
  269. 1305 JSR [151]R:JSR RATF:STA TRY
  270. 1310 JSR [143]0
  271. 1315 ;
  272. 1320 VR LDY TRY:LDA LOTEMP,Y:BEQ V21
  273. 1325 LDX #7:JSR S[128]:LDA TEMP
  274. 1330 LDX #128:JSR S[128]
  275. 1335 INC TRY:BNE VR
  276. 1340 ;
  277. 1345 V21 JSR BROK:LDA RATS:BNE VT
  278. 1350 JMP VQ
  279. 1355 ;
  280. 1360 VU JSR [151]R:JMP VP
  281. 1365 ;[160] [175] RESUME MESSAGE
  282. 1370 ;
  283. 1375 ;
  284. 1380 VT LDA #9:JSR [143]O
  285. 1385 LDA NOSY:BNE V70
  286. 1390 INC RET0:JSR [161]1:LDA #14
  287. 1391 ;
  288. 1392 ; [135]ER SHOULD FLAG THAT A KEY
  289. 1393 ; PRESS HAS JUST BEEN REQUIRED
  290. 1394 ;
  291. 1395 STA [135]ER:JSR CHAR:JSR SYNT
  292. 1400 V70 JMP VA
  293. 1405 ;
  294. 1410 B[191] JSR [161]IN
  295. 1415 LDX $90:BEQ V12
  296. 1420 LDA #2:JSR [143]O
  297. 1425 PLA:PLA:JMP VZ
  298. 1430 ;
  299. 1435 V12 RTS
  300. 1440 ;
  301. 1445 V18 LDY LNTH
  302. 1450 LDA #13:STA MISC,Y
  303. 1455 LDA #0:STA MISC[170]1,Y
  304. 1460 ;
  305. 1465 LDA #[179]HITEMP:STA $62
  306. 1470 LDA #[177]HITEMP:STA $63
  307. 1475 JMP DROPDOWN
  308. 1480 ;
  309. 1485 ;[172][172][172][172][172][172][172][172][172]
  310. 1490 ;
  311. 1495 [143]O JSR CLOSE
  312. 1500 [143]0 JSR CLRCHN:JMP REMODEM
  313. 1505 ;
  314. 1510 ;[172][172][172][172] CTRL UAC
  315. 1515 ;
  316. 1520 SYNT LDX #128:LDA #21:JSR S[128]
  317. 1525 LDA #1:JSR CHROUT
  318. 1530 LDA #3:JSR CHROUT
  319. 1531 LDA NOSY[170]1:E[176] #1:STA NOSY[170]1:RTS
  320. 1535 ;
  321. 1540 ;
  322. 1545 ;[172][172][172][172][172][172] MENU FILER [172][172][172][172][172][172][172][172][172][172][172][172][172]
  323. 1550 ;
  324. 1555 V40 LDY #111
  325. 1560 V41 LDA #0:STA F1L,Y:DEY:BPL V41
  326. 1565 STA MIN[170]1:STA TRY
  327. 1570 STA FILE:STA FILE[170]1
  328. 1575 ;
  329. 1580 ; FILE IS NUMBER OF SELECTI[145]S
  330. 1585 ; TRY INDEXES F1L BUFFER
  331. 1590 ; MIN[170]1 IS FILE [195]GTH [12 MAX]
  332. 1595 ;
  333. 1600 ;[172][172][172][172][172][172]
  334. 1605 ;
  335. 1610 V44 JSR [161]IN:LDX $90:BEQ V43
  336. 1615 ;
  337. 1620 V42 LDA #2:JSR [143]O
  338. 1625 LDA FILE:BNE V65
  339. 1630 JMP VZ
  340. 1635 V65 JMP V45;         $6CA1
  341. 1640 ;
  342. 1645 V43 CMP #46:BEQ V42; PERIOD
  343. 1650 CMP #47:BEQ V46;     SLASH
  344. 1655 ;
  345. 1660 CMP #13:BEQ V44; IGN[176]E [179]CR[177]S
  346. 1665 CMP #148:BEQ V44
  347. 1670 ;
  348. 1675 LDX FILE[170]1:BNE V44; TRAP FI[195]AMES THAT ARE [164]O L[145]G
  349. 1680 ;
  350. 1685 LDY TRY:STA F1L,Y
  351. 1690 LDA #13:STA F1L[170]1,Y:INC TRY
  352. 1695 ;
  353. 1700 INC MIN[170]1:LDA MIN[170]1:CMP #12:BNE V44
  354. 1705 INC FILE[170]1:BNE V44
  355. 1710 ;
  356. 1715 V46 LDY #0:STY FILE[170]1
  357. 1720 ;
  358. 1725 V47 INC TRY:LDY TRY
  359. 1730 LDA #0:STA F1L,Y:STA MIN[170]1
  360. 1735 INC TRY:INC FILE
  361. 1740 LDA FILE:CMP #8:BNE V44
  362. 1745 DEC FILE;  SEVEN MIN[170]1 HERE
  363. 1750 ;
  364. 1755 ;[172][172][172][172][172][172] DISPLAY MENU SELECTI[145]S
  365. 1760 ;
  366. 1765 V45 LDA FILE:CLC:ADC #2:STA FILE
  367. 1770 LDY #0:STY TRY
  368. 1775 ;
  369. 1780 INY:STY LIN:BNE V51
  370. 1785 ;
  371. 1790 V49 LDY TRY:LDA F1L,Y:BEQ V50
  372. 1795 CMP #255:BEQ V48
  373. 1800 ;
  374. 1805 PHA:JSR CHAR:PLA
  375. 1810 ;
  376. 1815 V50 INC TRY
  377. 1820 ;
  378. 1825 CMP #13:BNE V49
  379. 1830 ;
  380. 1835 V51 JSR LINER:JMP V49
  381. 1840 ;
  382. 1845 ;[172][172][172][172][172][172][172] MAKE SELECTI[145]
  383. 1850 ;
  384. 1855 V48 JSR BEF3:STA FILE[170]1
  385. 1860 CMP FILE:BCC V58:BNE V52
  386. 1865 JMP VZ
  387. 1870 ;
  388. 1875 V52 JSR CLIV:JMP V48
  389. 1880 ;
  390. 1885 V58 LDY #0
  391. 1890 V53 DEC BYTE:BEQ V54
  392. 1895 ;
  393. 1900 V55 LDA F1L,Y:INY:CMP #0:BNE V55
  394. 1905 BEQ V53
  395. 1910 ;
  396. 1915 V54 LDX #0
  397. 1920 V56 LDA F1L,Y:INY:CMP #13:BEQ V57
  398. 1925 STA MISC,X:INX:BNE V56
  399. 1930 ;
  400. 1935 V57 STX LNTH:JMP V3
  401. 1940 ;
  402. 1945 ;[172][172][172][172][172] VIEW ROUTINE [129] MAGS
  403. 1950 ;
  404. 1955 VIEW LDA #13:JSR [151]R
  405. 1960 V8 JSR RATF:JSR [151]R:JSR [156]CHN
  406. 1965 JSR [143]ODEM
  407. 1966 ;
  408. 1967 LDX NOSY[170]1:BEQ V5; [139] STILL IN GFX
  409. 1968 LDA #14:JSR CHAR;  MODE CLEAR SCN
  410. 1969 LDA #147:JSR CHAR; & BACK [164] LC
  411. 1970 JSR SYNT
  412. 1980 ;
  413. 1985 V5 LDA #[179]LOTEMP:LDX #[177]LOTEMP
  414. 1990 JSR STRING:LDA #0:STA LPPO
  415. 1995 STA NOSY:STA [135]ER:RTS
  416. 1996 ; [135]ER SHOULD PREVENT MULTI[171]KEY
  417. 1997 ; PRESSES [164] EXIT
  418. 1998 ;
  419. 2000 ;[172][172][172][172][172] MENU BUFFERS
  420. 2005 ;
  421. 2010 FILE .BYTE 0 0
  422. 2015 F1L .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  423. 2020 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  424. 2025 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  425. 2030 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  426. 2035 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  427. 2040 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  428. 2045 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  429. 2050 .BYTE 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  430. 2055 .BYTE "QUIT    ":.BYTE 58 255
  431. 2060 ;
  432. 2065 .FILE 0:W.PARAMS
  433.