home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / J.READERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.5 KB  |  498 lines
  1. 10 ;"OPEN15,9,15,"S0:J.R*":PRINT#15,"I":SAVE"J.READERS",9:VERIFY"J.R*",9
  2. 15 ;
  3. 20 ;        J.[135]ERS
  4. 25 ;
  5. 30 ;[172][172][172][172][172] SHOW TITLES
  6. 35 ;
  7. 40 RTITS LDA #[179]XTTS:LDX #[177]XTTS
  8. 45 JSR STRING
  9. 50 JSR SPAN:JSR SH[176]G:JMP TTLS
  10. 55 ;
  11. 60 ;[172][172][172][172][172] DE[136]E MESSAGE
  12. 65 ;
  13. 70 RDELM JSR LOOK:BCS RNW; [161] NUMBER
  14. 75 JSR MCAT:BCS RNW;  [161] [185]ITI[145]
  15. 80 ;
  16. 85 JSR DOVER:BNE RNW; [149] ACTI[145]
  17. 90 ;
  18. 95 LDY PSTN:LDA HIHEAD,Y:STA $FE
  19. 100 LDA LOHEAD,Y:STA $FD:LDY #0
  20. 105 LDA MASK:STA ($FD),Y:JSR DUN
  21. 110 LDA #1:STA RGSR[170]2
  22. 115 ;
  23. 120 RNW JMP EMAIL
  24. 125 ;
  25. 130 ;[172][172][172][172][172] SHOW HEADERS
  26. 135 ;
  27. 140 RHEAD LDA #[179]XHED:LDX #[177]XHED
  28. 145 JSR STRING
  29. 150 JSR SPAN:JSR SH[176]G:JMP HDNS
  30. 155 ;
  31. 160 ;[172][172][172][172][172] USER FILE SEARCH
  32. 165 ;
  33. 170 ; CALLED W[173]JSR MUST EXIT W[173] RTS
  34. 175 ;
  35. 180 [183]CH LDA #[179]XS[165]:LDX #[177]XS[165]
  36. 185 LDY #12:JSR [161]COM; STRING IS NOW IN 'TEMP[176]ARY'
  37. 190 CMP #"Y":BNE J1
  38. 195 ;
  39. 200 JSR FINDUSER:BCS J1
  40. 205 JMP DUN
  41. 210 ;
  42. 215 ; SEARCH USER FILE & DISPLAY
  43. 220 ;
  44. 225 J1 RTS;    JMP L0ST
  45. 230 ;
  46. 235 ;[172][172][172][172][172][172][172]
  47. 240 ;
  48. 245 XS[165] .BYTE 13 37 84 13
  49. 250 .BYTE ">> (null)SER ASCILE (null)EARCH <<":.BYTE 13 13
  50. 255 .BYTE "VALNTER (null)EARCH (null)TRING [(null)OWER LENASE]":.BYTE 13 13
  51. 260 .BYTE ">CMD":.BYTE 0
  52. 265 ;
  53. 270 ;[172][172][172][172][172] SELECT MESSAGES
  54. 275 ;
  55. 280 RANG JSR FITHFI; [148] TEMP FILE [139]      ANY [162] MESSAGES ADDED
  56. 285 ;
  57. 290 J18 LDA L[145]U:STA MESG
  58. 295 LDA HINU:STA MESG[170]1:JSR STSV
  59. 300 LDA CRX:STA INFI; SET UP RAM BUFFER
  60. 305 ;
  61. 310 JSR SPAN:JSR SH[176]G:BCC J49
  62. 315 JMP EMAIL
  63. 320 ;
  64. 325 J49 LDA #0:STA MODE:STA EXFLAG
  65. 330 ;
  66. 335 ;[172][172][172][172][172] SELECT MESSAGE NUMBER
  67. 340 ;
  68. 345 JSR LOOK:BCC JA
  69. 350 JSR TEMI; [147] TEMP [139] NECESSARY
  70. 355 JMP EMAIL
  71. 360 ;
  72. 365 JA LDA MODE:BEQ J7
  73. 370 ;
  74. 375 LDA #[179]XC[145]:LDX #[177]XC[145]
  75. 380 JSR STRING:JSR RET1
  76. 385 ;
  77. 390 ;[172][172][172][172][172] TEST RANGE
  78. 395 ;
  79. 400 J7 LDA SERCH[170]1:CMP NUMHI:BCC J8
  80. 405 BNE J14
  81. 410 LDA SERCH:CMP NUMLO:BCS J14
  82. 415 ;
  83. 420 J8 LDX EXFLAG:BEQ J8A
  84. 425 JMP J9; RE ENTER RERDR
  85. 430 J8A JMP RANG
  86. 435 ;
  87. 440 J14 LDA SERCH[170]1:CMP LOW[170]1:BEQ J15
  88. 445 BCS J8:BCC J4
  89. 450 ;
  90. 455 J15 LDA SERCH:CMP LOW:BEQ J4
  91. 460 BCS J8
  92. 465 ;
  93. 470 ;[172][172][172][172][172][172][172]
  94. 475 ;
  95. 480 J4 LDA SERCH:STA MESG
  96. 485 LDA SERCH[170]1:STA MESG[170]1:JSR STSV
  97. 490 ;
  98. 495 ;[172][172][172][172][172][172][172]
  99. 500 ;
  100. 505 LDA CRX:CMP TEMFG[170]1:BNE J23
  101. 510 ;
  102. 515 ;[172][172][172] [139] MATCH FOUND SKIP [147] TESTS
  103. 520 ;
  104. 525 LDY #9
  105. 530 CC0 LDA MESG[170]1
  106. 535 CMP HINU,Y:BNE CC1
  107. 540 LDA MESG:CMP L[145]U,Y:BEQ J29
  108. 545 CC1 DEY:BPL CC0
  109. 550 ;
  110. 555 ;[172][172][172] NO MATCHES FOUND IN BUFER
  111. 560 ;
  112. 565 LDA MESG[170]1:CMP HINU:BEQ CC2
  113. 570 BCS CC3
  114. 575 ;
  115. 580 CC4 LDA CRX:BNE J20;   [147] TEXT
  116. 585 ;
  117. 590 CC2 LDA MESG:CMP L[145]U:BCC CC4
  118. 595 ;
  119. 600 CC3 LDA TMPIN:BNE J29; NO ACTI[145]
  120. 605 BEQ J24;               [147] TEMP
  121. 610 ;
  122. 615 ;[172][172][172][172][172] IS FILE IN MEM[176]Y AL[135]Y
  123. 620 ;
  124. 625 J23 CMP INFI:BEQ J29
  125. 630 ;
  126. 635 ;[172][172][172][172][172]
  127. 640 ;
  128. 645 J20 STA MASTER:JSR TEXI:JMP J21
  129. 650 J24 LDA #0:STA INFI:JSR TEMI
  130. 655 J21 LDA RATS:BEQ J29; BAD [135]
  131. 660 JMP J8
  132. 665 ;
  133. 670 ;[172][172][172][172] DISPLAY HEADER [131]
  134. 675 ;
  135. 680 J29 JSR MCAT:JSR HC0M:BCC J41
  136. 685 LDA MODE:JMP J36; NO ACCESS [164] MSG FUNCTI[145]S [139] NO ACCESS [164] MSG.
  137. 690 ;
  138. 695 J41 JSR RET2
  139. 700 JSR STIT:LDA PAGE:CMP #1:BNE J22
  140. 705 JSR SHSN
  141. 710 ;
  142. 715 LDA #[179]XS[145]:LDX #[177]XS[145]; SENT [145]...
  143. 720 JSR STRING:JSR U0
  144. 725 ;
  145. 730 ;[172][172][172][172] LOCATE [175] [135] TEXT
  146. 735 ;
  147. 740 J22 LDA FROM:STA [164]WHOM
  148. 745 ;
  149. 750 JSR RET2:LDY ADDER
  150. 755 LDA TXTLO,Y:STA $FD
  151. 760 LDA TXTHI,Y:STA $FE
  152. 765 ;
  153. 770 LDY #0:STY LPPO
  154. 775 J31 LDY #0:LDA ($FD),Y
  155. 780 ;
  156. 785 INC $FD:BNE J30
  157. 790 INC $FE
  158. 795 ;
  159. 800 J30 CMP #255:BEQ J35
  160. 805 CMP #13:BEQ J32
  161. 810 CMP #148:BNE J33
  162. 815 ;
  163. 820 LDA COLUMNS:CMP #"8":BEQ J34
  164. 825 ;
  165. 830 LDA #32
  166. 835 .BYTE 44
  167. 840 J34 LDA #13
  168. 845 J33 JSR [151]R:JMP J31
  169. 850 J32 JSR VIEW:LDA RATS:BNE J67
  170. 855 ;
  171. 860 J57 JMP J31
  172. 865 ;
  173. 870 J35 JSR VIEW:LDA RATS:BEQ J52
  174. 875 ;
  175. 880 J67 LDA #0:STA MODE:STA EXFLAG; [139] AB[176]TED UNDO [154]INUOUS MODE
  176. 885 ;
  177. 890 J52 LDA MODE:BNE J36
  178. 895 ;
  179. 900 LDA #[179]XMOP:LDX #[177]XMOP
  180. 905 JSR STRING:JSR [161]1:BEQ J64
  181. 910 ;
  182. 915 CMP #"C":BNE J60
  183. 920 J64 JMP J8; 1 OF 2 PSSBL EXITS
  184. 925 ;
  185. 930 J60 CMP #"R":BNE J61
  186. 935 ;
  187. 940 ; RPLI SIGNALS THIS MSG IS A REPLY
  188. 945 ;
  189. 950 JSR TEMI:LDA #1:STA PAGE
  190. 955 ;
  191. 960 STA EXFLAG:JMP G80; MESSAGE ENTRY
  192. 965 ;
  193. 970 J61 CMP #"T":BNE J62
  194. 975 JMP HOOK; BUFFER & [135] TH[135]S
  195. 980 ;
  196. 985 J62 CMP #"D":BNE J65
  197. 990 ;
  198. 995 LDY PSTN;  BUFFER [185]ITI[145] THIS MSG
  199. 1000 LDA LOHEAD,Y:STA $FD
  200. 1005 LDA HIHEAD,Y:STA $FE:LDA #0:TAY
  201. 1010 STA ($FD),Y:JSR DUN
  202. 1015 ;
  203. 1020 J65 LDA EXFLAG:BEQ J66
  204. 1025 JMP J9
  205. 1030 ;
  206. 1035 J66 JMP RANG
  207. 1040 ;
  208. 1045 J36 CMP #45:BNE J43;    BACKWARD
  209. 1050 ;
  210. 1055 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  211. 1060 ;
  212. 1065 LDA SERCH:BNE J37
  213. 1070 DEC SERCH[170]1
  214. 1075 J37 DEC SERCH:JMP J7
  215. 1080 ;
  216. 1085 ;[172][172][172][172][172] [129]WARD SCROLL
  217. 1090 ;
  218. 1095 J43 CMP #43:BEQ J42
  219. 1100 JMP RANG
  220. 1105 ;
  221. 1110 ;[172][172][172][172][172]
  222. 1115 ;
  223. 1120 J42 INC SERCH:BNE J44
  224. 1125 INC SERCH[170]1
  225. 1130 J44 JMP J7
  226. 1135 ;
  227. 1140 ;[172][172][172][172][172][172] INSTALL SPEC[139]IED MSG FILE
  228. 1145 ;
  229. 1150 TEMFG [178] 15008; [175] 15009
  230. 1155 ;
  231. 1160 ; TEMFG [168][139]IES OF [162] MESSAGES.         TEMFG [170] 1 HOLDS THE MESSAGE FILE
  232. 1165 ; PREFIX [129] [147]S [175] [148]S.  THIS       FLAG IS [145]LY SET IN T.HEADERS
  233. 1170 ; FOLLOWING A SUCCESSFUL [148].  IT        IS [145]LY CLEARED BY A [148] OF TEMP
  234. 1175 ; FILE.  THIS VARIABLE SHOUD [168]          BE USED ANYWHERE ELSE.
  235. 1180 ;
  236. 1185 ;[172][172][172][172][172][172]
  237. 1190 ;
  238. 1195 TEMI LDA TEMFG[170]1:CMP INFI:BEQ J16
  239. 1200 ;
  240. 1205 STA INFI:JSR INITL
  241. 1210 ;
  242. 1215 JSR Z6959; INIT TEMP BLOCK
  243. 1220 ;
  244. 1225 LDA #6:STA TMPIN; [147] MSG TEMP
  245. 1230 LDX #[179]TEMDV:LDY #[177]TEMDV:BNE TEXS
  246. 1235 ;
  247. 1240 J16 RTS
  248. 1245 ;
  249. 1250 ;[172][172][172][172][172]
  250. 1255 ;
  251. 1260 TEXI JSR INITL:LDA #0:STA TMPIN
  252. 1265 LDA #7:LDX #[179]MASDV:LDY #[177]MASDV
  253. 1270 ;
  254. 1275 TEXS JSR SETNAM
  255. 1280 LDA #2:LDX DRIV:TAY:JSR SETLFS
  256. 1285 JSR [159]:JSR [156]CHN
  257. 1290 ;
  258. 1295 ; CHECK RATS HERE [175] [139] SET JUST         [142] W[173]NO ACTI[145].  USE [147] AD
  259. 1300 ;
  260. 1305 LDA #47:STA $FD
  261. 1310 LDA #27:STA $FE; 6959
  262. 1315 ;
  263. 1320 LDA #[179]XREA:LDX #[177]XREA
  264. 1325 JSR STRING
  265. 1330 ;
  266. 1335 LDX #2:JSR CHKIN
  267. 1340 ;
  268. 1345 J10 JSR [161]IN:LDX $90:BEQ J11
  269. 1350 ;
  270. 1355 LDA #2:JSR [160]
  271. 1360 LDY #0:LDA #255:STA ($FD),Y
  272. 1365 ;
  273. 1370 JMP ERR[176]; IN CASE OF BAD FILE
  274. 1375 ;
  275. 1380 J11 LDY #0:STA ($FD),Y
  276. 1385 INC $FD:BNE J10
  277. 1390 INC $FE:JMP J10
  278. 1395 ;
  279. 1400 XREA .BYTE 7 7 37 84 13
  280. 1405 .BYTE "ATNCCESSING ASCILE":.BYTE 13 0
  281. 1410 ;
  282. 1415 ;  C0MP .BYTE 0 0
  283. 1420 RGSR .BYTE 1 3 1
  284. 1425 ;
  285. 1430 ; REGSTR FLAGS THAT FILES HAVE            BEEN CHANGED [139] 0.
  286. 1435 ;
  287. 1440 HEAD .BYTE 48 58
  288. 1445 .BYTE "TABLES,P,W":.BYTE 0
  289. 1450 ;
  290. 1455 ;[172][172][172][172] [148] PO[181]ER TABLES
  291. 1460 ;
  292. 1465 SVHD LDA #[179]HEAD:LDX #[177]HEAD
  293. 1470 JSR HIT1;  SCRATCH IT
  294. 1475 ;
  295. 1480 LDA #12:STA RGSR
  296. 1485 LDX #[179]HEAD:LDY #[177]HEAD:JSR LOCOM
  297. 1490 ;
  298. 1495 LDX #7:JSR CHKOUT
  299. 1500 ;
  300. 1505 ;  S[128] [147] ADDRESS
  301. 1510 ;
  302. 1515 LDA #12:STA $64:JSR CHROUT
  303. 1520 LDA #156:STA $65:JSR CHROUT
  304. 1525 ;
  305. 1530 J53 LDY #0:LDA ($64),Y
  306. 1535 JSR CHROUT
  307. 1540 ;
  308. 1545 JSR UPZP:LDA $65:CMP #158:BNE J53
  309. 1550 ;
  310. 1555 J59 LDA #7:JSR [160]
  311. 1560 JSR [156]CHN:JMP INITL
  312. 1565 ;
  313. 1570 ;[172][172][172][172] [147] MESSAGE PO[181]ERS
  314. 1575 ;
  315. 1580 LDHD LDA #8:STA RGSR
  316. 1585 LDX #[179]HEAD:LDY #[177]HEAD:JSR LOCOM
  317. 1590 ;
  318. 1595 LDA #156:STA $65
  319. 1600 LDA #12:STA $64
  320. 1605 ;
  321. 1610 LDX #7:JSR CHKIN;    STRIP
  322. 1615 JSR [161]IN:JSR [161]IN; [147] ADDRESS
  323. 1620 ;
  324. 1625 J58 JSR [161]IN:LDX $90:BNE J59
  325. 1630 ;
  326. 1635 LDY #0:STA ($64),Y
  327. 1640 JSR UPZP:JMP J58
  328. 1645 ;
  329. 1650 ;[172][172][172][172] SET UP [164] SCRATCH
  330. 1655 ;
  331. 1660 HIT1 LDY #0:STA $FD:STX $FE
  332. 1665 J54 LDA ($FD),Y:CMP #44:BEQ J55
  333. 1670 JSR CHROUT; SHOW FILE BEING SCRATHCED
  334. 1675 STA HITEMP,Y:INY:BNE J54
  335. 1680 J55 LDA #13:STA HITEMP,Y
  336. 1685 LDA #0:STA HITEMP[170]1,Y
  337. 1690 ;
  338. 1695 JSR INITL:JMP SCRACH
  339. 1700 ;
  340. 1705 ;[172][172][172][172] [148] USER FILE
  341. 1710 ;
  342. 1715 USERS .BYTE 48 58
  343. 1720 .BYTE "USERS,P,W":.BYTE 0
  344. 1725 ;
  345. 1730 SVBU LDA #[179]USERS:LDX #[177]USERS
  346. 1735 JSR HIT1
  347. 1740 ;
  348. 1745 JSR BASOFF:LDA #11
  349. 1750 LDX #[179]USERS:LDY #[177]USERS:JSR LOCOM
  350. 1755 ;
  351. 1760 LDX #7:JSR CHKOUT
  352. 1765 ;
  353. 1770 ; S[128] [147] ADDRESS
  354. 1775 ;
  355. 1780 LDA #0:STA RGSR[170]1:STA $64:JSR CHROUT
  356. 1785 LDA #160:STA $65:JSR CHROUT
  357. 1790 ;
  358. 1795 J70 LDY #0:LDA ($64),Y:JSR CHROUT
  359. 1800 JSR UPZP
  360. 1805 LDA $65:CMP #192:BNE J70
  361. 1810 ;
  362. 1815 J71 JSR BAS[145]:JMP J59
  363. 1820 ;
  364. 1825 ;[172][172][172][172] [147] BASIC USER FILE
  365. 1830 ;
  366. 1835 LDBU LDA #7
  367. 1840 LDX #[179]USERS:LDY #[177]USERS:JSR LOCOM
  368. 1845 ;
  369. 1850 LDA #160:STA $65
  370. 1855 LDA #0:STA $64:STA RGSR[170]1
  371. 1860 ;
  372. 1865 JSR [156]CHN:LDX #7:JSR CHKIN
  373. 1870 ;
  374. 1875 ; STRIP [147] ADDRESS
  375. 1880 ;
  376. 1885 JSR [161]IN:JSR [161]IN
  377. 1890 ;
  378. 1895 J72 JSR [161]IN:LDX $90:BNE J71
  379. 1900 ;
  380. 1905 LDY #0:STA ($64),Y
  381. 1910 JSR UPZP:JMP J72
  382. 1915 ;
  383. 1920 ;[172][172][172][172] [147] HEADER FILE
  384. 1925 ;
  385. 1930 TITLE .BYTE 48 58
  386. 1935 .BYTE "HEADERS,P,W":.BYTE 0
  387. 1940 ;
  388. 1945 ;[172][172][172][172]
  389. 1950 ;
  390. 1955 LDMH LDA #9:STA RGSR[170]2
  391. 1960 LDX #[179]TITLE:LDY #[177]TITLE:JSR LOCOM
  392. 1965 ;
  393. 1970 LDA #224:STA $65
  394. 1975 LDA #0:STA $64
  395. 1980 ;
  396. 1985 JSR [156]CHN:LDX #7:JSR CHKIN
  397. 1990 ;
  398. 1995 ; STRIP [147] ADDRESS
  399. 2000 ;
  400. 2005 JSR [161]IN:JSR [161]IN
  401. 2010 ;
  402. 2015 J73 JSR [161]IN:LDX $90:BNE J71
  403. 2020 ;
  404. 2025 LDY #0:STA ($64),Y
  405. 2030 JSR UPZP:JMP J73
  406. 2035 ;
  407. 2040 ;[172][172][172][172][172] [148] TITLE BLOCK
  408. 2045 ;
  409. 2050 SVMH LDA #[179]TITLE:LDX #[177]TITLE
  410. 2055 JSR HIT1
  411. 2060 ;
  412. 2065 LDA #224:STA $65
  413. 2070 LDA #0:STA $64:STA $62
  414. 2075 LDA #8:STA $63
  415. 2080 JSR KRNLOFF
  416. 2085 ;
  417. 2090 J74 LDY #0
  418. 2095 LDA ($64),Y:STA ($62),Y
  419. 2100 INC $64:INC $62:BNE J74
  420. 2105 INC $63:INC $65:BNE J74
  421. 2110 JSR KRNL[145]
  422. 2115 ;
  423. 2120 LDA #13
  424. 2125 LDX #[179]TITLE:LDY #[177]TITLE:JSR LOCOM
  425. 2130 ;
  426. 2135 LDA #8:STA $65
  427. 2140 LDA #0:STA $64;  [164] 172[173]31
  428. 2145 ;
  429. 2150 LDX #7:JSR CHKOUT
  430. 2155 ;
  431. 2160 ; S[128] [147] ADDRESS
  432. 2165 ;
  433. 2170 LDA #0:JSR CHROUT
  434. 2175 LDA #224:JSR CHROUT
  435. 2180 ;
  436. 2185 J75 LDY #0:LDA ($64),Y:JSR CHROUT
  437. 2190 JSR UPZP
  438. 2195 LDA $65:CMP #42:BNE J75
  439. 2200 LDA $64:CMP #170:BNE J75
  440. 2205 STA RGSR[170]2
  441. 2210 JMP J59; [160] FILE
  442. 2215 ;
  443. 2220 ;[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]
  444. 2225 ;[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]
  445. 2230 ;
  446. 2235 LOCOM JSR SETNAM
  447. 2240 LDA #7:LDX DRIV:TAY:JSR SETLFS
  448. 2245 JSR [159]:JMP [156]CHN
  449. 2250 ;
  450. 2255 ;[172][172][172][172][172][172] DISPLAY FILES OF [135]ER
  451. 2260 ;
  452. 2265 EXFLAG .BYTE 0
  453. 2270 ;
  454. 2275 HOOK JSR THRD:LDA NCNT
  455. 2280 CMP #2:BCS J92
  456. 2285 JSR L0ST:JSR ANY:JMP J91
  457. 2290 ;
  458. 2295 J92 LDA #[179]XPLZ:LDX #[177]XPLZ
  459. 2300 JSR STRING
  460. 2305 ;
  461. 2310 RERDR JSR FITHFI
  462. 2315 ;
  463. 2320 LDX #0:STX MODE:STX YREG
  464. 2325 INX:STX EXFLAG
  465. 2330 J9 LDY YREG:LDA [135]ER,Y:BEQ J91
  466. 2335 INC YREG:TAY:DEY
  467. 2340 ;
  468. 2345 LDA #0:STA [161][164],Y
  469. 2350 ;
  470. 2355 LDA NUMLO,Y:STA SERCH
  471. 2360 LDA NUMHI,Y:STA SERCH[170]1:JMP J4
  472. 2365 ;
  473. 2370 J91 JMP EMAIL
  474. 2375 ;
  475. 2380 ;[172][172][172][172][172] FIND HIGHEST EXISTING LINE
  476. 2385 ;
  477. 2390 SPAN LDY #99
  478. 2395 J48 LDA NUMLO,Y:BNE J47
  479. 2400 LDA NUMHI,Y:BNE J47
  480. 2405 DEY:BPL J48
  481. 2410 JSR L0ST:SEC:RTS
  482. 2415 ;
  483. 2420 J47 LDA NUMHI,Y:STA LOW[170]1
  484. 2425 LDA NUMLO,Y:STA LOW:CLC:RTS
  485. 2430 ;
  486. 2435 ;[172][172][172][172][172] SHOW RANGE
  487. 2440 ;
  488. 2445 SH[176]G JSR RET2:LDA #"[":JSR CHAR
  489. 2450 JSR SPC
  490. 2455 LDY NUMLO:LDA NUMHI:JSR ROMNUM
  491. 2460 LDA #45:JSR CHAR:JSR SPC
  492. 2465 LDY LOW:LDA LOW[170]1:JSR ROMNUM
  493. 2470 LDA #"]":JSR CHAR:CLC:RTS
  494. 2475 ;
  495. 2480 ;[172][172][172][172][172][172]
  496. 2485 ;
  497. 2490 .FILE 0:K.FILERS
  498.