Back to Main page. Back to Main tapes page. 10 REM*DATE*COMPLIMENTS OF STEVE SPEAR* 15 REM ** LAST ACCESS 11-3-77 ** 20 DIM C$[19],D$[36] 30 DEF FNA(B)=A>B+L 40 A=TIM(2) 50 Y=TIM(3) 60 L=Y/4=INT(Y/4) AND Y 70 M=(A>31)+FNA(59)+FNA(90)+FNA(120)+FNA(151)+FNA(18FA(212)+FNA(243FN(23)FNA(304)+FNA334+1 80 D=A-(30*(M>)+(M>6)+(M>9)+(M>11))+31*((M>1)+(M>3)+(M>5)+(M>7)+(M>8)+(M>10))+28*(M>2)+(A>60)*L) 90 D$="JanFebMarAprMayJunJulAugSepOctNovDec" 100 C$[1,19]="00-???-0000:00:00am" 110 C$[4,6]=D$[M*3-2,M*3] 120 CONVERT D TO C$[1+(D<10),2] 130 CONVERT Y TO C$[8+(Y<10),9] 140 IF TIM(1)<12 THEN 160 150 C$[18,19]="pm" 160 A=TIM(1)-12*(TIM(1)>12)+12* NOT TIM(1) 170 CONVERT A TO C$[10+(A<10),11] 180 CONVERT TIM(0) TO C$[13+(TIM(0)<10),14] 190 CONVERT TIM(4) TO C$[16+(TIM(4)<10),17] 200 PRINT C$[1,9];SPA(3);C$[10,19] 210 END