'{$STAMP BS2}
'Example for testing logged data dump

x var byte
Val1 var byte

CheckDump Var Bit

inByte var Byte
DIRH = 255

Loop:
CheckDump = 0
Gosub ReadDump
IF CheckDump = 1 Then DumpData			'If 1 returned, dump data
	Pause 500  'Waste some time
	'Other data saving routines
Goto Loop

'Read stampPlot to see if dump is selected
ReadDump:
	DEBUG "!READ (ChkDUMP)",CR			'Read check box
	SERIN 16,84,100,TimeOut,[DEC CheckDump]	'accept data
	Pause 100						'Allow echo to clear
Timeout:
	Return

DumpData:
	DEBUG "!RSET",CR					'reset plot
	DEBUG "!POBJ ButSet.Run",CR			'Run the not-visible ButSet code
     'sample of data to send
     'This could be coming from EEPROM stored data instead.
    	FOR x = 0 to 100
		Val1 = (Sin X + 127)/2
			'Plot data
		DEBUG sdec Val1,CR
    	NEXT
	DEBUG "!POBJ chkDump=0",CR			'Clear dump checkbox
Goto Loop