1000  REM THIS PROGRAM WAS WRITTEN BY IVAN GONG
1010  REM MOD#1 BY ALEX ATHAS
1020  LET K=TIM(2)
1030  LET Z=TIM(3)+1900
1040  LET O=(Z=4*INT(Z/4))-(Z=1000*INT(Z/1000))
1050  LET N=INT((K+30+(3-O)*(K>59)+(K>120)+(K>181)+(K>273)+(K>334))/31)
1060  LET E=K-31*N+31+(N>2)*(INT((N+3)/2)-O)-(N=9)-(N=11)
1070  PRINT  USING 1080;N,E,Z
1080  IMAGE DD,"/",DD,"/",4D
1090  PRINT 
1100  A=TIM(1)
1110  LET A=A-12*(A>12)
1120  LET A=A+12*(A=0)
1130  B=TIM(0)
1140  IF B>9 THEN 1190
1150  PRINT  USING 1160;A,TIM(0)
1160  IMAGE"TIME IS NOW ",DD,":0",D
1170  IF B#TIM(0) THEN 1100
1180  GOTO 1170
1190  PRINT  USING 1200;A,TIM(0)
1200  IMAGE"TIME IS NOW ",DD,":",DD
1210  GOTO 1170
1220  END 
