50 REM locator
100 pi = 3.14159265#
110 dr = pi / 180
120 DEF fnc (x) = x - INT(x)
130 CLS
200 PRINT " Please Enter"
210 PRINT
220 INPUT "Latitude deg,min,sec,n/s eg 51,19,36,n   ", t1, t2, t3, t$
230 t$ = UCASE$(t$)
240 n = (t1 + t2 / 60 + t3 / 3600) * dr
250 IF t$ = "S" THEN n = -n
260 PRINT
270 INPUT "Longitude deg,min,sec,e/w eg 3,13,29,w   ", t1, t2, t3, t$
280 t$ = UCASE$(t$)
290 e = (t1 + t2 / 60 + t3 / 3600) * dr
300 IF t$ = "W" THEN e = -e
310 GOSUB 500
320 PRINT
330 PRINT "Maidenhead Locator is   "; LEFT$(q$, 6)
340 PRINT "Microwave Locator is   "; q$
350 PRINT
360 INPUT "Another go <y/n>"; ch$
370 IF ch$ <> "n" AND ch$ <> "n" THEN 200
380 END
500 REM LATITUDE & LONGITUDE TO LOCATOR ROUTINE
510 t = 1 / 2 / pi: lo = e * t + .5: la = n * t * 2 + .5: q$ = ""
520 t = 65: f = 18: GOSUB 570
530 t = 48: f = 10: GOSUB 570
540 t = 65: f = 24: GOSUB 570
550 t = 48: f = 10: GOSUB 570
560 RETURN
570 la = f * fnc(la): lo = f * fnc(lo)
580 q$ = q$ + CHR$(INT(t + lo)) + CHR$(INT(t + la))
590 RETURN