home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
tb
/
distance
/
d6.bas
< prev
next >
Wrap
BASIC Source File
|
1991-05-22
|
3KB
|
123 lines
10 KEY OFF
20 COLOR 10,9,1
30 CLS
40 PRINT" --- Working , do not disturb. ---"
50 REM BY BARRY WATSON OCT 1986
60 DIM A(2), B(2)
70 OPEN "MNCITIES.DBF" AS #1 LEN=128
80 FIELD #1,128 AS A$
90 REM
110 IF LC=1 THEN GOSUB 1130
120 IF T1=0 AND T2=0 AND T3=0 THEN T8=T8+M
130 IF T1=1 THEN T5=T5+M : GOTO 160
140 IF T2=1 THEN T6=T6+M : GOTO 160
150 IF T3=1 THEN T7=T7+M
160 T1=T2=T3=0
165 IF MID$(N$,1,13)="Akeley townsh" THEN 1030
166 GET #1
170 M=VAL(MID$(A$,90,6))
180 IF M=0 THEN 90
190 O=O+M
200 T = 0
210 N$=MID$(A$,8,28)
220 LONG$=MID$(A$,95,8)
230 L$=MID$(A$,103,7)
240 C$=MID$(A$,110,20)
250 IF MID$(N$,1,1)=" " THEN 90
260 B(1)=VAL(LONG$)
270 A(1)=VAL(L$)
280 A(1)=A(1)*.0174533:B(1)=B(1)*.0174533
290 PRINT N$
300 V=V+2
310 IF V>53 THEN LC=1
320 R=3953:P=3.14159
330 RESTORE
340 READ B$,I,K,L
350 IF V=>59 THEN GOSUB 1130
360 K=K*-1:B(2)=K:A(2)=I
370 IF B$="END." GOTO 90
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))
390 W=G*X+J*C:E=H*W-K*D:F=G*C-J*X:G=K*W+H*D
400 IF ABS(G)=1 THEN 460
410 W=1-G*G
420 IF W>0 THEN 440
430 GOTO 460
440 H=ATN(G/SQR(W))
450 GOTO 470
460 H=G*P/2
470 IF ABS(G)=1 THEN 620
480 IF W<=0 THEN 620
490 IF E>0 THEN 600
500 IF E<0 THEN 560
510 IF F>0 THEN 540
520 X= -.5*P
530 GOTO 640
540 X=P/2
550 GOTO 640
560 X=ATN(F/E)-P
570 IF F<0 THEN 640
580 X=X+2*P
590 GOTO 640
600 X=ATN(F/E)
610 GOTO 640
620 Q=999
630 GOTO 690
640 D=180*(P-X)/P
650 C=INT(D)
660 IF D-C < .5 THEN 680
670 C=C+1
680 Q=C
690 D=R*(.5*P-H)
700 C=INT(D)
710 IF D-C<.5 THEN 730
720 C=C+1
730 REM
740 IF C > (L*1.5) THEN 340
750 V=V+1
760 IF C < (.6*L) THEN T1=1:GOTO 340
770 IF C < L THEN T2=1:GOTO 340
780 T3=1
790 GOTO 340
800 DATA "KSJN (91.1)",.78648,1.62559,54
810 DATA "K232AQ (94.3)",.7629,1.62275,2
820 DATA "KCRB (88.5)",.83254,1.64912,45
830 DATA "KLCD (89.5)",.75891,1.60201,5
840 DATA "WSCD (92.9)",.81662,1.60776,34
850 DATA "W269AC (101.7)",.83584,1.60337,2
860 DATA "KCCM (91.1)",.81611,1.68611,37
870 DATA "WGGL (91.1)",.82093,1.54802,47
880 DATA "K249BK (97.7)",.84808,1.63023,3
890 DATA "K269BK (101.7)",.76467,1.59193,1
900 DATA "K292CT (106.3)",.76876,1.59953,2
910 DATA "KGAC (90.5)",.77182,1.64266,40
920 DATA "K257AH (99.3)",.79687,1.67434,2
930 DATA "KLSE (91.7)",.76865,1.61166,44
940 DATA "KLSX (90.7)",.76868,1.61165,18
950 DATA "KSJR (90.1)",.79409,1.64999,44
960 DATA "KRSD (88.1)",.75969,1.68840,9
970 DATA "WIRR (90.9)",.82896,1.61940,29
980 DATA "KRSW (91.7)",.76591,1.67427,43
990 DATA "K239AA (93.5)",.76182,1.62957,2
1000 DATA "KFJM (89.3)",.83657,1.69420,21
1010 DATA "KAXE (91.7)",.82475,1.63074,36
1020 DATA "END.",9999,9999,0
1030 CLOSE 1 : PRINT" I have just closed your file heh heh..."
1040 FOR Q2=1 TO 1000: NEXT Q2
1050 LPRINT : LPRINT : LPRINT"END OF RUN"
1060 LPRINT"Total Minnesota pop : ";O;" Total available listeners :";U
1070 P1=INT((U/O)*100)
1080 LPRINT"TOTAL POP IN RECOMMENDED ";T5
1090 LPRINT"TOTAL POP IN FRINGE ";T6
1100 LPRINT"TOTAL POP IN NOT RECOMM ";T7
1110 LPRINT"TOTAL POP NOT AVAILABLE ";T8
1120 STOP
1130 REM ROUTINE TO PAGINATE
1140 FOR Z=1 TO (66-V)
1150 GOTO 1170
1160 LPRINT
1170 NEXT Z
1180 V=0
1190 LC=0
1200 RETURN
1210 REM END OF ROUTINE