
18100	!******************************************************************** &
	!								      &
	!	 FNTIME.B2S -  RETURN TIME IN 24 HOUR FORMAT		      &
	!								      &
	!******************************************************************** &
	!								      &
	!	             FN.TIME$ (T%)				      &
 	!								      &
	!	Converts the specified TIME (T% > zero) or returns the	      &
	! 	current system TIME (D% = zero) in 24 HOUR time format.	      &
	!								      &
	!	This routine is used to isolate operating system dependent    &
	!	code.							      &
	!								      &
	!								      &
        !		     V A R I A B L E S   U S E D		      &
        !								      &
        !              NAME                       DESCRIPTION		      &
        !       -----------------       -------------------------------	      &
	!	T%			Time INPUT INTEGER variable	      &
	!	FN.TIME$		Output of function		      &
	!				in form HH:MM			      &
	!	WORK$			Temporary work buffer		      &
	!								      &
	!******************************************************************** &

18120	  DEF FN.TIME$(T%)						      &
	\ WORK$ =  SYS(CHR$(6%)+CHR$(20%)				      &
		      +CHR$(0%)+CHR$(SWAP%(0%))+CHR$(00%)+CHR$(SWAP%(00%))    &
		      +CHR$(T%)+CHR$(SWAP%(T%))+CHR$(+1%)+CHR$(SWAP%(+1%)))   &
	\ FN.TIME$ = SEG$(WORK$,21%,25%)				      &
	\ FNEND								      &
	! Use a RSTS sys call to retrieve/convert the time to standard	      &
	! format (HH:MM).						      &

 