;***********************************************************************
;*   Created 06JUN05 by CE1 Hillman                                    *
;***********************************************************************

#define DEBUG 0
string fname				;first part of file name
string datefilename			;this is the date part of file name 
string NewTitleStr			;String for ne title Bar
string destf				;used for destination file name


proc main
	NewTitleStr = "WEATHER"				;Text for Tile Bar
	pwtitlebar NewTitleStr PERMANENT		; Change Procomm Plus's title.



while 1
	
	fname = "Weather Screen Shot "		;put the first part of name here
	datefilename = ""			;to ensure string datefilename is empty
	call file_date				;calls file_date proc
	strcat fname datefilename		;this combines the two string (in this case Print Screen Test YYYYMMDDHHMM)
	
		
	DestF = "C:\Program Files\Procomm Plus\Capture\"	
	strcat DestF fname			;takes path and file name and joins them together

	snapshot file destF			;takes snapshot of screen and saves to destF

	pause 60				;pauses for XX seconds
	

endwhile
endproc

proc file_date
	integer iDay, iMonth, iYear, iHour, iMin, iSec
	ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
	strfmt dateFileName "%d%02d%02d%02d%0d2%" iYear iMonth iDay iHour iMin
	strcat dateFileName ".TXT"
	
	;ltimeints temptime iYear iMonth iDay iHour iMin iSec
	;strfmt dateFileName "%d%02d%02d" iYear iMonth iDay
	
endproc