PRINT
PRINT "長針と短針が重なる時刻"
PRINT
DEF x=MOD(s*360/(60*60),360)     ! 長針は１秒間に 360/(60*60)度回転する
DEF y=MOD(s*360/(60*60*12),360)  ! 短針は１秒間に 360/(60*60*12)度回転する
LET W=0
LET Q=0
LET T=-1
LET Z=10
LET L=0
FOR s=0 TO 60*60*24
   IF SISYAGO(x,2)=SISYAGO(y,2) THEN
      DO WHILE SISYAGO(x,2)=SISYAGO(y,2)     
         IF (x-y)^2<Z THEN
            LET U=s
            LET XX=x
            LET Z=(x-y)^2
         END IF
         LET s=s+1
      LOOP
      LET Q=Q+1
      LET W=W+U
      CALL TMS(U,a,b,c)
      PRINT USING "##":Q;
      IF Z=0 THEN 
         PRINT ": ちょうど";U;"秒後 （";a;"時";b;"分";c;"秒 ） ： ";XX;"度"
      ELSE
         PRINT ": およそ";U;"秒後 （";a;"時";b;"分";c;"秒 ） ： ";XX;"度" 
      END IF
      LET Z=10
   END IF
NEXT s
CALL TMS(W,a,b,c)
PRINT
PRINT "  計：  ";W;"秒"
PRINT "           ↓"
PRINT "        ";a;"時間";b;"分";c;"秒"
PRINT
END

EXTERNAL SUB TMS(ss,T,M,S)
LET T=INT(ss/(60*60))
LET M=INT((ss-T*60*60)/60)
LET S=ss-T*60*60-M*60
END SUB

EXTERNAL FUNCTION SISYAGO(n,m)
LET SISYAGO=INT((n*10^m+0.5)/10^m)
END FUNCTION