1       REM
2       REM     Handling program for MINSEC
3       REM
5       PRINT
10      PRINT "Degrees/hours conversion"
15      PRINT : SW1=+1
20      INPUT "... to mins & secs   (Y/N)"; AN$
25      IF AN$="Y" THEN GOTO 65
30      INPUT "... from mins & secs (Y/N)"; AN$
35      IF AN$="N" THEN GOTO 85
40      SW1=-1 : PRINT
45      INPUT "Deg/hour, min, sec"; XD,XM,XS
50      GOSUB 1000
55      PRINT "     ...converts to "; X
60      GOTO 85
65      PRINT
70      INPUT "Decimal deg/hour"; X
75      GOSUB 1000
80      PRINT "   ...converts to "; S$;XD;XM;XS
85      PRINT
90      INPUT "Again (Y/N)"; AN$
95      IF AN$="Y" THEN GOTO 15
100     STOP
997     REM
998     REM     Subroutine MINSEC
999     REM
1000    IF SW1=-1 THEN GOTO 1035
1005    SN=SGN(X) : XP=ABS(X) : XD=INT(XP)
1010    A=(XP-XD)*60 : XM=INT(A)
1015    XS=INT((A-XM)*600+.5)/10
1020    S$="+"
1025    IF SN=-1 THEN S$="-"
1030    RETURN
1035    SN=+1
1040    IF XD<0 OR XM<0 OR XS<0 THEN SN=-1
1045    XD1=ABS(XD) : XM1=ABS(XM) : XS1=ABS(XS)
1050    X=((((XS1/60)+XM1)/60)+XD1)*SN
1055    RETURN