▼ Menu

Locator - Program Listing

G3USB
    
Extras ▼

 

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.