'-----------------------
' Example 3: acquiring data for use with another program,
'            such as Lotus 1-2-3(tm), or a database manager.
'-----------------------
'$INCLUDE: 'ieeeqb.bi'

CALL initialize (21,0)
'
OPEN "DATAFILE.PRN" FOR OUTPUT AS #1 ' open a file for storing the data
'
'---- Loop to acquire 100 values ---
 FOR I=1 TO 100
   R$=SPACE$(80)                     ' get up to 80 characters from device
   CALL ENTER(R$,LENGTH%,16,STATUS%)
   IF STATUS%<>0 THEN STOP           ' test for errors in ENTER
   PRINT #1,LEFT$(R$,LENGTH%)        ' store the value in the FILE ****
 NEXT I
 CLOSE                               ' close the output file
 '
 ' The data is now in the disk file.
 ' For Lotus 1-2-3, use the /File Import Numbers command to read the data. 
 ' For a database manager, use the appropriate import ASCII data command.
 END