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