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