9900  REM  ***** SUBROUTINE TIMER *****
9901  REM
9902  REM  RETURNS THE CURRENT TIME OF DAY IN ALPHA FORMAT
9903  REM  OUTPUT PARAMETER: T$
9904  REM
9905  DIM T$[10]
9906  DIM Z$[10]
9907  REM
9908  REM   *** ENTRY 9910 ***
9909  REM
9910  LET Z$="0123456789"
9911  LET Z1=TIM(0)
9912  LET Z2=TIM(1)
9915  IF Z1>0 THEN 9925
9916  IF Z2#0 THEN 9920
9917  LET T$="12:00 MIDN"
9918  RETURN 
9920  IF Z2#12 THEN 9925
9921  LET T$="12:00 NOON"
9922  RETURN 
9925  LET Z8=0
9926  IF Z2<12 THEN 9932
9927  IF Z2=12 THEN 9930
9928  LET Z2=Z2-12
9930  LET Z8=1
9932  IF Z2>0 THEN 9935
9933  LET Z2=12
9934  REM
9935  LET T$=" "
9936  LET Z3=INT(Z2/10)
9937  IF Z3=0 THEN 9940
9938  LET T$="1"
9940  LET Z3=Z2-Z3*10+1
9941  LET T$[2]=Z$[Z3,Z3]
9942  LET T$[3]=":"
9945  LET Z3=INT(Z1/10)
9946  LET T$[4]=Z$[Z3+1,Z3+1]
9947  LET Z3=Z1-Z3*10+1
9948  LET T$[5]=Z$[Z3,Z3]
9950  LET T$[6]=" AM  "
9951  IF Z8=0 THEN 9955
9952  LET T$[6]=" PM  "
9955  RETURN 
9956  REM
9960  REM   ***** END TIMER *****
