Table of Contents
Advertisement
Example
This example examines the header to determine the size of the learn string.
Memory is then allocated to hold the learn string before reading it. To output
the learn string, the header is sent, then the learn string and the EOF.
10
DIM Header$[64]
20
OUTPUT 707;"syst:head on"
30
OUTPUT 707;":syst:set?"
40
More_chars:
!
50
ENTER 707 USING "#,A";This_char$
60
Header$=Header$&This_char$
70
IF This_char$<>"#" THEN More_chars
80
!
90
ENTER 707 USING "#,D";Num_of_digits
100 ENTER 707 USING "#,"&VAL$(Num_of_digits)&"D";Set_size
110 Header$=Header$&"#"&VAL$(Num_of_digits)&VAL$(Set_size)
120 !
130 ALLOCATE INTEGER Setup(1:Set_size)
140 ENTER 707 USING "#,B";Setup(*)
150 ENTER 707 USING "#,A";Eof$
160 !
170 OUTPUT 707 USING "#,-K";Header$
180 OUTPUT 707 USING "#,B";Setup(*)
190 OUTPUT 707 USING "#,A";Eof$
200 END
System Commands
HEADer
27-9
Advertisement
Table of Contents
