Omega Vehicle Security 1400 'Query the ChartScan for the # of 256 sample scans available in the Buffer, 'Program terminators for LF EOI and a space between channels, 'Upload data one scan at a time from the ChartScan

ChartScan Program Examples Appendix D
D-18 ChartScan User’s Manual
'Query the ChartScan for the # of 256 sample scans available in the Buffer
PRINT #1, "OUTPUT 07;U6X"
PRINT #1, "ENTER 07"
LINE INPUT #2, U$
UA$ = MID$(U$, 9, 7)
UA% = VAL(UA$)
PRINT "The ChartScan collected "; UA%; " scans of data"
'Program terminators for LF EOI and a space between channels
PRINT #1, "OUTPUT 07;V32X Q7,0,7,7,1X"
'Upload data one scan at a time from the ChartScan
PRINT #1, "OUTPUT 07;R2X"
FOR i = 1 TO UA%
PRINT #1, "ENTER 07"
INPUT #2, SCAN$
LOCATE 14, 1: PRINT "Scan "; i; " is :"
PRINT SCAN$
NEXT i
END