PROC writedate:
	LOCAL d%,mo%,hr%,mi%,s%,r%,hh%
	LOCAL da$(2),mon$(2),yr$(4),ho$(2),min$(2),sec$(2),total$(15),g$(2)

	d%=DAY
	da$=NUM$(d%,2)
	if d% < 10
	  da$="0"+da$
	endif

	mo%=MONTH
	mon$=NUM$(mo%,2)
	if mo% < 10
	  mon$="0"+mon$
	endif
	
	yr$=NUM$(YEAR,4)
	
	hr%=HOUR
	ho$=NUM$(hr%,2)
	if hr% < 10
	  ho$="0"+ho$
	endif
	
	mi%=MINUTE
	min$=NUM$(mi%,2)
	if mi% < 10
	   min$="0"+min$
	endif   
	
	s%=SECOND
	sec$=NUM$(s%,2)
	if s% < 10
	  sec$="0"+sec$
	endif
	
	total$=mon$+da$+ho$+min$+yr$+"."+sec$
	
	REM lOPEN "d:\date.txt"
	REM lPRINT total$
	r%=IOOPEN(hh%,"d:\date.txt",$0002)
	r%=IOWRITE(hh%,ADDR(total$)+1,15)
	
	REM print total$
	REM g$=GET$
  
ENDP