Thanks,
Dan Lanciani
ddl@harvard.*
>Yes, you read that right... 101. Does anyone have programming information
>handy for this (somewhat old) model?...
At last count, my collection contained three BC-101s :-)
Terence Brennant sent me this BASIC program back in October 1993.
I've shared it with other BC-101 users but haven't tried it myself.
| From att!delphi.com!BRENNANT Sat Oct 16 01:01:41 1993
|
| Hi -- Actually I am not a BC101 user. The program is written in BASIC and
| is quite brief. I wrote it for a fellow who has a BC101 that he is
| sentimentally attached to. It was his first scanner, and it still works
| well. Looking up switch settings is very tedious, and some frequencies are
| not even in the list. He is using it with an 800MHz converter to listen
| to the local trunked system, and the converted frequencies are not in the
| book. It works well for this purpose, and 16 channels is adequate.
|
| Since the program is short, I might as well include it with this message,
| so here it is:
|
| ------------------------------
|
| 100 rem A SIMPLE PROGRAM TO FIND SWITCH SETTINGS FOR BEARCAT BC101 SCANNER
| 101 rem Released without warranty for free use in the public domain.
| 102 rem Terence Brennan / Box 360491 / Melbourne, FL 32936
| 103 rem CompuServe: 76545,1625
| 104 rem Internet: 76545...@compuserve.com -or- bren...@delphi.com
| 105 CLS
| 110 KEY OFF
| 120 PRINT:PRINT
| 130 PRINT " *** PROGRAMMMING FOR BEARCAT 101 SCANNER ***"
| 132 PRINT" To exit program type Ctrl-C"
| 133 PRINT" To print screen type PrtSc"
| 140 PRINT
| 150 PRINT " SWITCHES
| 160 PRINT" Frequency 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16"
| 170 PRINT" -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --"
| 180 INPUT;" ";F
| 190 PRINT TAB(24);
| 200 IF F<30 THEN GOTO 360
| 210 IF F=>30 AND F=<50 THEN LET J=10340-INT((F*200)+.5)
| 220 IF F>50 AND F<146 THEN GOTO 360
| 230 IF F=>146 AND F=<174 THEN LET J=36940!-INT((F*200)+.5)
| 240 IF F>174 AND F<416 THEN GOTO 360
| 250 IF F=>416 AND F=<512 THEN LET J=40964!-INT((F*80)+.5)
| 260 IF F>512 THEN GOTO 360
| 270 LET WEIGHT=4096
| 280 FOR SWITCH=1 TO 13 STEP 1
| 290 IF J=> WEIGHT THEN PRINT USING "###";SWITCH;:LET J=J-WEIGHT ELSE PRINT" ";
| 300 LET WEIGHT=WEIGHT/2
| 310 NEXT SWITCH
| 320 IF F=>30 AND F=<50 THEN PRINT " 16"
| 330 IF F=>146 AND F=<174 THEN PRINT " 15"
| 340 IF F=>416 AND F=<512 THEN PRINT " 14"
| 350 GOTO 180
| 360 PRINT TAB(30);:PRINT"Not a valid frequency.":GOTO 180
|
| -------------------------------
|
| I hope that comes out correctly at your end. This Delphi editor does not
| let me view my message, I think.
|
| Hope that the program is of some interest or use to you.
|
| [...]
|
| Thanks --Terence Brennan--
|
--
==============================================================================
Copyright 1994, Bob Parnass, AJ9S
AT&T Bell Laboratories - par...@ihlpf.att.com - (708)979-5414
BIll...