Omega Vehicle Security 1400 manual Input #2, EVENT%, Print UA, Print #1, Output 07R3X

ChartScan Program ExamplesAppendix D

'Query the ChartScan for the # of scans available in the Buffer

PRINT "An SRQ has been detected.."

PRINT #1, "SPOLL07"

INPUT #2, sp%

PRINT "spoll response before :"; sp%

PRINT #1, "OUTPUT 07;U0X"

PRINT #1, "ENTER 07"

INPUT #2, EVENT%

PRINT "EVent Status before :"; EVENT%

PRINT #1, "OUTPUT 07;U6X"

PRINT #1, "ENTER 07"

LINE INPUT #2, U$

PRINT U$

UA$ = MID$(U$, 9, 7)

UA& = VAL(UA$)

PRINT UA&

PRINT "The ChartScan collected "; UA&; " scans of data"

'Upload available data

B& = UA& * 24

PRINT "Total number of Bytes available : "; B&

PRINT #1, "OUTPUT 07;R3X"

PRINT "Uploading data.."

PRINT #1, "ENTER 07 #8" a$ = INPUT$(8, 2)

PRINT "The preamble is :"; a$ pre& = VAL(MID$(a$, 2, 7))

loops = INT(pre& / s!) PRINT "loops "; loops FOR i = 1 TO loops

PRINT #1, "ENTER 07 #"; s!; " BUFFER "; buffseg%; ":"; buffoff%; " DMA" PRINT #3, DataBuffer$;

NEXT i

rema! = pre& - (s! * loops)

PRINT "remainder of preamble"; rema!

PRINT #1, "ENTER 07 #"; rema!; " BUFFER "; buffseg%; ":"; buffoff%; " DMA" PRINT #3, MID$(DataBuffer$, 1, rema!);

PRINT #1, "OUTPUT 07;U0X"

PRINT #1, "ENTER 07"

INPUT #2, EVENT%

PRINT "EVent Status after :"; EVENT%

PRINT #1, "SPOLL07"

INPUT #2, sp%

PRINT "Spoll response after uploading :"; sp%

PRINT #1, "OUTPUT 07;U6X" PRINT #1, "ENTER 07"

LINE INPUT #2, U$

PRINT U$

PRINT "Waiting for 75% Full..": PRINT c = CSRLIN

SLEEP 1

PRINT #1, "ARM SRQ"

RETURN

D-16 ChartScan User’s Manual