home *** CD-ROM | disk | FTP | other *** search
/ TAP YIPL / TAP_and_YIPL_Collection_CD.iso / PHREAK / CELLULAR / CELNUM.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-02-02  |  1.9 KB  |  49 lines
  1. 1   REM ======================================================================
  2. 2   REM  BBS: WINGIT
  3. 3   REM Date: 07-12-91 (19:19)             Number: 667
  4. 4   REM From: JIM CARR                     Refer#: NONE
  5. 5   REM   To: ALL                           Recvd: NO
  6. 6   REM Subj: CELLULAR FREQUENCIES           Conf: (46) SCANNERS
  7. 7   REM ----------------------------------------------------------------------
  8. 8   REM OK everyone.  After reading several messages (and requests), here is how
  9. 9   REM to have your own list of the Cellular Telephone frequencies..... Just
  10. 10  REM program this in basic and load up your printer (lots of paper!).
  11. 11  REM
  12. 12  REM
  13. 20  A=1:B=869.04:C=824.04
  14. 40  LPRINT TAB(25)"Cellular Telephone Frequencies"
  15. 41  LPRINT:LPRINT
  16. 42  LPRINT TAB(30)"System A"
  17. 60  GOTO 80
  18. 80  IF B>891.485 THEN GOTO 1000
  19. 100  IF B>879.38 GOTO 200
  20. 160  LPRINT A TAB(7) B TAB(20) C
  21. 180  GOTO 300
  22. 200  IF B<880 GOTO 250
  23. 205  GOTO 160
  24. 250  LPRINT A TAB(7) B TAB(20) C TAB(40)  "Control Channel Pair"
  25. 300  IF A=1 THEN A=2:B=869.07:C=824.07:GOTO 160
  26. 310  IF B=890.01 THEN A=A+1:B=890.04:C=845.04:GOTO 160
  27. 320  IF B=879.99 THEN A=A+1:B=890.01:C=845.01:GOTO 160
  28. 340  A=A+1:B=B+.03:C=C+.03
  29. 345  B=B*1000:C=C*1000:B=INT(B):C=INT(C):B=B/1000:C=C/1000:GOTO 60
  30. 1000 LPRINT CHR$(12)
  31. 1020  A=1:B=880.02:C=835.02
  32. 1040  LPRINT TAB(25)"Cellular Telephone Frequencies"
  33. 1041  LPRINT:LPRINT
  34. 1042  LPRINT TAB(30)"System B"
  35. 1060  GOTO 1080
  36. 1080  IF B>893.975 THEN END
  37. 1100  IF B>880.019 THEN GOTO 1200
  38. 1160  LPRINT A TAB(7) B TAB(20) C
  39. 1180  GOTO 1300
  40. 1200  IF B<880.63 GOTO 1250
  41. 1205  GOTO 1160
  42. 1250  LPRINT A TAB(7) B TAB(20) C TAB(40) "Control Channel Pair"
  43. 1300  IF A=1 THEN A=2:B=880.05:C=835.05:GOTO 1250
  44. 1310  IF B=891.51 THEN A=A+1:B=891.54:C=846.54:GOTO 1160
  45. 1320  IF B=889.98 THEN A=A+1:B=891.51:C=846.51:GOTO 1160
  46. 1340  A=A+1:B=B+.03:C=C+.03
  47. 1345  B=B*1000:C=C*1000:B=INT(B):C=INT(C):B=B/1000:C=C/1000:GOTO 1060
  48. 1350  LPRINT CHR$(12)
  49.