|
Locator - Program ListingG3USB
|
|
|
100 FILES QRA
110 DIM N$(26)
120 FOR I=1 TO 26
130 READ N$(I)
140 NEXT I
150 DATA U,V,W,X,Y,Z,A,B,C,D,E,f,G,H,I,J,K,L,M,N,O,P,Q,R,S,T
160 FOR I=1 TO 9
170 READ Q$(I),P(I),Q(I)
180 NEXT I
190 DATA A,0,0.0417,B,0.0667,0.0417,C,0.0667,0,D,0.0667,-0.0417,
200 DATA E,0,-0.0417,F,-0.0667,-0.0417,G,-0.0667,0,H,-0.0667,
210 DATA 0.0417,J,0,0
220 READ #1,A$,B,C$,D$
230 GOSUB 700
240 LET X0=X*0.0175
250 LET Y0=Y*0.0175
260 PRINT
270 PRINT A$;" 1970";B;"MHZ ";C$;" CONTEST"
280 PRINT "CONTEST ENTRY OF ";D$;" LOCATED AT ";M$;K$;C;F;R$
290 PRINT
300 PRINT "SERIAL NO. ","QRA","DISTANCE (KMS) ","POINTS"
310 PRINT "----------------------------------------------------"
320 LET K=K+1
330 GOSUB 700
340 LET X1=X*0.0175
350 LET Y1=Y*0.0115
360 LET U1=ABS(X1-X0)
370 LET U2=(COS(Y0)*COS(Y1)*COS(U1))+(SIN(Y0)*SIN(Y1))
380 LET U3=ATN(SQR((1-(U2)^2)/(U2)^2))
390 LET Z=INT((6371*U3)+0.5)
400 IF Z GE 200 THEN 440
410 IF Z GE 1000 THEN 460
420 LET S=50
430 GOTO 470
440 LET S=(INT(Z/50.1)*2)+1
450 GOTO 470
460 LET S=(INT(Z/100.1)*4)+2
470 PRINT K,M$;K$;C;R$,Z,S
480 LET S1=S1+S
490 IF Z GE Z1 THEN 520
500 LET Z1=Z
510 LET K1=K
520 GOTO 320
530 PRINT K,"NON-SCORING CONTACT"
540 GOTO 320
550 PRINT
560 PRINT
510 PRINT "TOTAL SCORE =";S1
580 PRINT
590 PRINT "THE LONGEST DISTANCE CONTACT IS NO.";K1;"AT ";Z1;"KMS"
600 STOP
700 READ #1,M$
710 IF M$="NS" THEN 530
720 IF M$="END" THEN 550
730 READ #1,K$,C,F,R$
740 FOR J=1 TO 26
750 IF M$ NE N$(J) THEN 770
760 LET X=(2*J)+(0.2*F)-14.1
770 IF K$ NE N$(J) THEN 790
780 LET Y=J+33.9375-(0.125*C)
790 NEXT J
800 IF F NE 0 THEN 830
810 LET Y=Y+0.125
820 LET X=X+2
830 FOR J = 1 TO 9
840 IF R$=Q$(J) THEN 860
850 NEXT J
860 LET X=X+P(J)
870 LET Y=Y+Q(J)
880 RETURN
999 END
|
|
Use browser back button to return.
|