100 OPEN "I",#1,"c:\QRA.TXT"
110 DIM N$(26)
120 FOR I=1 TO 26
130 READ N$(I)
140 NEXT
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
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,0.0417
210 DATA J,0,0
220 INPUT#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.0175
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<=200 THEN 440
410 IF Z<=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;F;R$,Z,S
480 LET S1=S1+S
490 IF Z<=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
570 PRINT "TOTAL SCORE = ",S1
580 PRINT
590 PRINT "THE LONGEST DISTANCE CONTACT IS NO.";K1;"AT ";Z1;"kms"
600 STOP
700 INPUT#1,M$
710 IF M$="NS" THEN 530
720 IF M$="END" THEN 550
730 INPUT#1,K$,C,F,R$
740 FOR J=1 TO 26
750 IF M$<>N$(J) THEN 770
760 LET X=(2*J)+(0.2*F)-14.1
770 IF K$<>N$(J) THEN 790
780 LET Y=J+33.9375-(0.125*C)
790 NEXT
800 IF F<>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 
860 LET X=X+P(J)
870 LET Y=Y+Q(J)
880 RETURN
999 END