home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / tb / distance / d8b.bas < prev    next >
Encoding:
BASIC Source File  |  1987-11-18  |  4.1 KB  |  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 PRINT : PRINT : PRINT
  106. 1060 PRINT"End of run.  Information computed for all 2725 locations"
  107. 1070 PRINT
  108. 1080 PRINT"Category","","Population"," % of total Minnesota population"
  109. 1090 PRINT"-------------","","----------","----------"
  110. 1100 PRINT"Recommended","",T5,INT((T5/O)*1000)/10
  111. 1110 PRINT"Fringe","",T6,INT((T6/O)*1000)/10
  112. 1120 PRINT"Not Recommended",T7,INT((T7/O)*1000)/10
  113. 1130 PRINT"Not Available","",T8,INT((T8/O)*1000)/10
  114. 1140 PRINT"Total Minnesota population (1980 census) : ";O
  115. 1150 PRINT:PRINT:PRINT
  116. 1160 PRINT"Definitions:"
  117. 1170 PRINT
  118. 1180 PRINT"Recommended:          Good signal should be present, antenna"
  119. 1190 PRINT"                      on radio should suffice."
  120. 1200 PRINT
  121. 1210 PRINT"Fringe:               Reception should be acceptable, an "
  122. 1220 PRINT"                      external antenna might be needed"
  123. 1230 PRINT
  124. 1240 PRINT"Not Recommended:      Signal reception might be possible with a substantal"
  125. 1250 PRINT"                      outdoor antenna, and a favorable location"
  126. 1260 PRINT
  127. 1270 PRINT"Not Available:        Signal probably can not be received except"
  128. 1280 PRINT"                      in very rare cases."
  129. 1290 PRINT
  130. 1300 PRINT:PRINT:PRINT:PRINT
  131. 1310 PRINT"Program code written by Barry Watson 6/86 - 10/86 "
  132. 1320 PRINT"Compiled using Microway's 87Bascom / supports 8087"
  133. 1330 STOP
  134.