READY. >LOAD "FREQUENCY.BAS" >LIST 10 rem MICHEAL H. MCCABE 20 rem COMMODORE VIC-20 WITH 1525 GRAPHIC PRINTER 30 rem MARCH 1987 40 rem 50 rem TRANSFERRED TO COMMODORE 64 IN JULY 1995 60 rem TRANSFERRED TO MACINTOSH LC 475 IN SEPT. 1995 70 rem 80 rem TRANSFERRED TO CHIPMUNK BASIC IN MARCH 1996 90 rem IN ORDER TO USE "PRINT USING" STATEMENT 100 rem 110 rem west county 120 rem radio frequency table 130 rem revised january 1990 140 rem 150 rem print chr$(147); -- clear screen on vic-20 / c64 160 rem 170 dim n$(25) : rem channel names 180 dim t(25) : rem mobile transmit frequency 190 dim r(25) : rem mobile receive frequency 200 dim s$(25) : rem squelch type 210 dim s(25) : rem squelch frequency 220 let q$ = "####.####" 230 let r$ = "###.#" 240 let u$ = "###" 250 gosub 290 : rem read the data table in 260 rem GOSUB 590:REM SORT BY CHANNEL NAME 270 gosub 720 : rem print the table 280 end 290 restore 300 read l$ 310 if l$ = "END" then 360 320 n = n+1 330 n$(n) = l$ 340 read t(n),r(n),s$(n),s(n) 350 goto 300 360 return 370 data "FIRE CH 1",33.98,33.98,"CSQ",0 380 data "FIRE CH 2",33.96,33.96,"CSQ",0 390 data "FIRE CH 3",33.88,33.88,"CSQ",0 400 data "FIRE CH 4",33.94,33.94,"CSQ",0 410 data "FIRE CH 5",33.6,33.6,"CSQ",0 420 data "FIRE CH 6",33.52,33.52,"CSQ",0 430 data "EDINBORO LINK",460.55,453.55,"TSQ",141.3 440 data "GIRARD POLICE 1",155.13,155.13,"TSQ",179.9 450 data "GIRARD POLICE 2",155.725,155.725,"CSQ",0 460 data "LAKE CITY SEWER",155.76,155.76,"TSQ",186.2 470 data "LIFESTAR",155.22,155.22,"CSQ",0 480 data "UHF MED CH 1",468,463,"TSQ",141.3 490 data "UHF MED CH 2",468.025,463.025,"TSQ",141.3 500 data "UHF MED CH 3",468.05,463.05,"TSQ",141.3 510 data "UHF MED CH 4",468.075,463.075,"TSQ",141.3 520 data "UHF MED CH 5",468.1,463.1,"TSQ",141.3 530 data "UHF MED CH 6",468.125,463.125,"TSQ",141.3 540 data "UHF MED CH 7",468.15,463.15,"TSQ",141.3 550 data "UHF MED CH 8",468.175,463.175,"TSQ",141.3 560 data "UHF MED CH 9",467.95,462.95,"TSQ",141.3 570 data "UHF MED CH 10",467.975,462.975,"TSQ",141.3 580 data "END" 590 rem SORT THE DATA FILE BY CHANNEL NAME 600 rem 610 for i = 1 to n-1 620 for j = i+1 to n 630 if n$(i) <= n$(j) then 690 640 let a$ = n$(i) : let n$(i) = n$(j) : let n$(j) = a$ 650 let a = t(i) : let t(i) = t(j) : let t(j) = a 660 let a = r(i) : let r(i) = r(j) : let r(j) = a 670 let a$ = s$(i) : let s$(i) = s$(j) : let s$(j) = a$ 680 let a = s(i) : let s(i) = s(j) : let s(j) = a 690 next j 700 next i 710 return 720 rem PRINT THE TABLE 730 cls : rem PRINT CHR$(147) IN ORIGINAL CODE 740 print tab (20);"FREQUENCY TABLE FOR WEST COUNTY EMERGENCY" 750 rem 760 print "================================================================================" 770 print "CHAN";tab (10);"CHANNEL NAME";tab (35);"MOBILE TX";tab (50);"MOBILE RX";tab (65);"SQUELCH";tab (75);"TONE" 780 print "--------------------------------------------------------------------------------" 790 for i = 1 to n 800 print using u$;i;tab (10);n$(i);tab (35); 810 print using q$;t(i);tab (50); 820 print using q$;r(i);tab (65);s$(i);tab (75); 830 print using r$;s(i) 840 next i 850 print "--------------------------------------------------------------------------------" 860 return >RUN FREQUENCY TABLE FOR WEST COUNTY EMERGENCY ================================================================================ CHAN CHANNEL NAME MOBILE TX MOBILE RX SQUELCH TONE --------------------------------------------------------------------------------- 1 FIRE CH 1 33.9800 33.9800 CSQ 0.0 2 FIRE CH 2 33.9600 33.9600 CSQ 0.0 3 FIRE CH 3 33.8800 33.8800 CSQ 0.0 4 FIRE CH 4 33.9400 33.9400 CSQ 0.0 5 FIRE CH 5 33.6000 33.6000 CSQ 0.0 6 FIRE CH 6 33.5200 33.5200 CSQ 0.0 7 EDINBORO LINK 460.5500 453.5500 TSQ 141.3 8 GIRARD POLICE 1 155.1300 155.1300 TSQ 179.9 9 GIRARD POLICE 2 155.7250 155.7250 CSQ 0.0 10 LAKE CITY SEWER 155.7600 155.7600 TSQ 186.2 11 LIFESTAR 155.2200 155.2200 CSQ 0.0 12 UHF MED CH 1 468.0000 463.0000 TSQ 141.3 13 UHF MED CH 2 468.0250 463.0250 TSQ 141.3 14 UHF MED CH 3 468.0500 463.0500 TSQ 141.3 15 UHF MED CH 4 468.0750 463.0750 TSQ 141.3 16 UHF MED CH 5 468.1000 463.1000 TSQ 141.3 17 UHF MED CH 6 468.1250 463.1250 TSQ 141.3 18 UHF MED CH 7 468.1500 463.1500 TSQ 141.3 19 UHF MED CH 8 468.1750 463.1750 TSQ 141.3 20 UHF MED CH 9 467.9500 462.9500 TSQ 141.3 21 UHF MED CH 10 467.9750 462.9750 TSQ 141.3 --------------------------------------------------------------------------------- >