home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / tb / distance / d8.bas < prev    next >
BASIC Source File  |  1991-05-22  |  4KB  |  134 lines
  1. 10 KEY OFF
  2. 20 COLOR 10,9,1
  3. 30 CLS
  4. 40 PRINT" --- Working , do not disturb. ---"
  5. 50 REM BY BARRY WATSON OCT 1986
  6. 60 DIM A(2), B(2)
  7. 70 OPEN "MNCITIES.DBF" AS #1 LEN=128
  8. 80 FIELD #1,128 AS A$
  9. 90 REM
  10. 100 REM
  11. 110 REM
  12. 120 IF T1=1 THEN T5=T5+M : GOTO 160
  13. 130 IF T2=1 THEN T6=T6+M : GOTO 160
  14. 140 IF T3=1 THEN T7=T7+M : GOTO 160
  15. 150 IF T4=1 THEN T8=T8+M
  16. 160 T1=0:T2=0:T3=0:T4=0
  17. 170 IF MID$(N$,1,13)="Zumbrota town" THEN 1030
  18. 180 GET #1
  19. 190 M=VAL(MID$(A$,90,6))
  20. 200 IF M=0 THEN 90
  21. 210 O=O+M
  22. 220 T = 0
  23. 230 N$=MID$(A$,8,28)
  24. 240 LONG$=MID$(A$,95,8)
  25. 250 L$=MID$(A$,103,7)
  26. 260 C$=MID$(A$,110,20)
  27. 270 IF MID$(N$,1,1)=" " THEN 90
  28. 280 B(1)=VAL(LONG$)
  29. 290 A(1)=VAL(L$)
  30. 300 A(1)=A(1)*.0174533:B(1)=B(1)*.0174533
  31. 310 REM
  32. 320 V=V+2
  33. 330 R=3953:P=3.14159
  34. 340 RESTORE
  35. 350 READ B$,I,K,L
  36. 360 K=K*-1:B(2)=K:A(2)=I
  37. 370 IF B$="END." GOTO 90
  38. 380 C=COS(A(2)):X=C*COS(B(2)):C=C*SIN(B(2)):D=SIN(A(2)):H=SIN(A(1)):G=COS(B(1)):J=SIN(B(1)):K=COS(A(1))
  39. 390 W=G*X+J*C:E=H*W-K*D:F=G*C-J*X:G=K*W+H*D
  40. 400 IF ABS(G)=1 THEN 460  
  41. 410 W=1-G*G
  42. 420 IF W>0 THEN 440  
  43. 430 GOTO 460  
  44. 440 H=ATN(G/SQR(W))
  45. 450 GOTO 470  
  46. 460 H=G*P/2
  47. 470 IF ABS(G)=1 THEN 620  
  48. 480 IF W<=0 THEN 620
  49. 490 IF E>0 THEN 600
  50. 500 IF E<0 THEN 560
  51. 510 IF F>0 THEN 540
  52. 520 X= -.5*P
  53. 530 GOTO 640  
  54. 540 X=P/2
  55. 550 GOTO 640  
  56. 560 X=ATN(F/E)-P
  57. 570 IF F<0 THEN 640
  58. 580 X=X+2*P
  59. 590 GOTO 640  
  60. 600 X=ATN(F/E)
  61. 610 GOTO 640  
  62. 620 Q=999
  63. 630 GOTO 690     
  64. 640 D=180*(P-X)/P
  65. 650 C=INT(D)
  66. 660 IF D-C < .5 THEN 680  
  67. 670 C=C+1
  68. 680 Q=C
  69. 690 D=R*(.5*P-H)
  70. 700 C=INT(D)
  71. 710 IF D-C<.5 THEN 730
  72. 720 C=C+1
  73. 730 REM
  74. 740 IF C  > (L*1.5) THEN T4=1: GOTO 350
  75. 750 V=V+1
  76. 760 IF C < (.6*L) THEN T1=1:GOTO 350
  77. 770 IF C < L THEN T2=1:GOTO 350
  78. 780 T3=1
  79. 790 GOTO 350
  80. 800 DATA "KSJN    (91.1)",.78648,1.62559,54
  81. 810 DATA "K232AQ  (94.3)",.7629,1.62275,2
  82. 820 DATA "KCRB    (88.5)",.83254,1.64912,45
  83. 830 DATA "KLCD    (89.5)",.75891,1.60201,5
  84. 840 DATA "WSCD    (92.9)",.81662,1.60776,34
  85. 850 DATA "W269AC (101.7)",.83584,1.60337,2
  86. 860 DATA "KCCM    (91.1)",.81611,1.68611,37
  87. 870 DATA "WGGL    (91.1)",.82093,1.54802,47
  88. 880 DATA "K249BK  (97.7)",.84808,1.63023,3
  89. 890 DATA "K269BK (101.7)",.76467,1.59193,1
  90. 900 DATA "K292CT (106.3)",.76876,1.59953,2
  91. 910 DATA "KGAC    (90.5)",.77182,1.64266,40
  92. 920 DATA "K257AH  (99.3)",.79687,1.67434,2
  93. 930 DATA "KLSE    (91.7)",.76865,1.61166,44
  94. 940 DATA "KLSX    (90.7)",.76868,1.61165,18
  95. 950 DATA "KSJR    (90.1)",.79409,1.64999,44
  96. 960 DATA "KRSD    (88.1)",.75969,1.68840,9
  97. 970 DATA "WIRR    (90.9)",.82896,1.61940,29
  98. 980 DATA "KRSW    (91.7)",.76591,1.67427,43
  99. 990 DATA "K239AA  (93.5)",.76591,1.67427,2
  100. 1000 DATA "KFJM    (89.3)",.83657,1.69420,21
  101. 1010 DATA "KAXE    (91.7)",.82475,1.63074,36
  102. 1020 DATA "END.",9999,9999,0
  103. 1030 CLOSE 1 : PRINT" I have just closed your file  heh heh..."
  104. 1040 FOR Q2=1 TO 1000: NEXT Q2
  105. 1050 LPRINT : LPRINT : LPRINT
  106. 1060 LPRINT"End of run.  Information computed for all 2725 locations"
  107. 1070 LPRINT
  108. 1080 LPRINT"Category","","Population"," % of total Minnesota population"
  109. 1090 LPRINT"-------------","","----------","----------"
  110. 1100 LPRINT"Recommended","",T5,INT((T5/O)*1000)/10
  111. 1110 LPRINT"Fringe","",T6,INT((T6/O)*1000)/10
  112. 1120 LPRINT"Not Recommended",T7,INT((T7/O)*1000)/10
  113. 1130 LPRINT"Not Available","",T8,INT((T8/O)*1000)/10
  114. 1140 LPRINT"Total Minnesota population (1980 census) : ";O
  115. 1150 LPRINT:LPRINT:LPRINT
  116. 1160 LPRINT"Definitions:"
  117. 1170 LPRINT
  118. 1180 LPRINT"Recommended:          Good signal should be present, antenna"
  119. 1190 LPRINT"                      on radio should suffice."
  120. 1200 LPRINT
  121. 1210 LPRINT"Fringe:               Reception should be acceptable, an "
  122. 1220 LPRINT"                      external antenna might be needed"
  123. 1230 LPRINT
  124. 1240 LPRINT"Not Recommended:      Signal reception might be possible with a substantal"
  125. 1250 LPRINT"                      outdoor antenna, and a favorable location"
  126. 1260 LPRINT
  127. 1270 LPRINT"Not Available:        Signal probably can not be received except"
  128. 1280 LPRINT"                      in very rare cases."
  129. 1290 LPRINT
  130. 1300 LPRINT:LPRINT:LPRINT:LPRINT
  131. 1310 LPRINT"Program code written by Barry Watson 6/86 - 10/86 "
  132. 1320 LPRINT"Compiled using Microway's 87Bascom / supports 8087"
  133. 1330 STOP
  134.