1MODE7 5 REM O.S."MAP" 10 A$="SVSQ NQNLNFNAHVHQHLSWSR SMSGSBNWNRNMNGNBHWHRHMSXSSSNSHSCNXNSNNNH NCHXHSHNSYSTSOSJSDNYNTNONJNDHYHTHOSZSUSP SKSENZNUNPNKNEHZHUHPTVTQTLTFTAOVOQOLOFOA JVJQJL TRTMTG" 20 PRINT"Enter map references thus: SP822381SO700435" 25 PRINT:INPUT B$ 30 C$=LEFT$(B$,2) 40 GOSUB 200 50 M=N:D=C:C$=MID$(B$,9,2) 80 GOSUB 200 90 V=ABS((M-N)*500+VAL MID$(B$,6,3)-V AL RIGHT$(B$,3)) 100 H=ABS((C-D)*1000+VAL MID$(B$,11,3) -VAL MID$(B$,3,3)) 102 X=SQR(V^2+H^2)*.06214 105 @%=131594 106 PRINT 110 PRINT; X;" MILES FROM ";LEFT$(B$,8 );" TO ";RIGHT$(B$,8) 120 PRINT "RANGE IS ";1.1123*X;" TO "; 1.3186*X;" MILES" 130 PRINT "AVERAGE ESTIMATE = ";1.2405 *X;" MILES" 135 @%=10 140 STOP 200 FOR N=1 TO 164 STEP 2 210 IF C$=MID$(A$,N,2) THEN GOTO 230 220 NEXT N 230 FOR C=1 TO 6 240 IF N<=26 THEN GOTO 270 250 N=N-26 260 NEXT C 270 RETURN