Create your own list of cellular phone numbers for
NOTICE: TO ALL CONCERNED Certain text files and messages contained on this site deal with activities and devices which would be in violation of various Federal, State, and local laws if actually carried out or constructed. The webmasters of this site do not advocate the breaking of any law. Our text files and message bases are for informational purposes only. We recommend that you contact your local law enforcement officials before undertaking any project based upon any information obtained from this or any other web site. We do not guarantee that any of the information contained on this system is correct, workable, or factual. We are not responsible for, nor do we assume any liability for, damages resulting from the use of any information on this site.
===========================================================================
BBS: WINGIT
Date: 07-12-91 (19:19) Number: 667
From: JIM CARR Refer#: NONE
To: ALL Recvd: NO
Subj: CELLULAR FREQUENCIES Conf: (46) SCANNERS
---------------------------------------------------------------------------
OK everyone. After reading several messages (and requests), here is how
to have your own list of the Cellular Telephone frequencies..... Just
program this in basic and load up your printer (lots of paper!).
20 A=1:B=869.04:C=824.04
40 LPRINT TAB(25)"Cellular Telephone Frequencies"
41 LPRINT:LPRINT
42 LPRINT TAB(30)"System A"
60 GOTO 80
80 IF B>891.485 THEN GOTO 1000
100 IF B>879.38 GOTO 200
160 LPRINT A TAB(7) B TAB(20) C
180 GOTO 300
200 IF B<880 GOTO 250
205 GOTO 160
250 LPRINT A TAB(7) B TAB(20) C TAB(40) "Control Channel Pair"
300 IF A=1 THEN A=2:B=869.07:C=824.07:GOTO 160
310 IF B=890.01 THEN A=A+1:B=890.04:C=845.04:GOTO 160
320 IF B=879.99 THEN A=A+1:B=890.01:C=845.01:GOTO 160
340 A=A+1:B=B+.03:C=C+.03
345 B=B*1000:C=C*1000:B=INT(B):C=INT(C):B=B/1000:C=C/1000:GOTO 60
1000 LPRINT CHR$(12)
1020 A=1:B=880.02:C=835.02
1040 LPRINT TAB(25)"Cellular Telephone Frequencies"
1041 LPRINT:LPRINT
1042 LPRINT TAB(30)"System B"
1060 GOTO 1080
1080 IF B>893.975 THEN END
1100 IF B>880.019 THEN GOTO 1200
1160 LPRINT A TAB(7) B TAB(20) C
1180 GOTO 1300
1200 IF B<880.63 GOTO 1250
1205 GOTO 1160
1250 LPRINT A TAB(7) B TAB(20) C TAB(40) "Control Channel Pair"
1300 IF A=1 THEN A=2:B=880.05:C=835.05:GOTO 1250
1310 IF B=891.51 THEN A=A+1:B=891.54:C=846.54:GOTO 1160
1320 IF B=889.98 THEN A=A+1:B=891.51:C=846.51:GOTO 1160
1340 A=A+1:B=B+.03:C=C+.03
1345 B=B*1000:C=C*1000:B=INT(B):C=INT(C):B=B/1000:C=C/1000:GOTO 1060
1350 LPRINT CHR$(12)
THE EXCHANGE! RBBS-PC
(904) 878-4413
300-2400 24 hours
To the best of our knowledge, the text on this page may be freely reproduced and distributed. If you have any questions about this, please check out our Copyright Policy.
