Sample Quickbasic Program - QuadTech Guardian 5000 Instruction Manual

If the instrument is required to display saved item, just use SHOW? command
If the instrument is required to display more than one testing value, no matter
what the order of parameters, the output will display the following.
[STATUS], [STEP],[MODE],[SOURCE],[MESSAGE],[TIMER],[CHAN]
Example: Write: SHOW STEP|STATUS|MODE
The string length sent by SHOW may not be more than 106 bytes (including
ending code)

3.2.3 Sample QuickBASIC Program

REM $INCLUDE: 'qbdecl.bas'
'declarations
ADAP$ = "GPIB0": G5000$ = "DEV3": V% = 1
W% = 0: C$ = SPACE$(50): d$ = SPACE$(50): C1$ = SPACE$(50): D1$ = SPACE$(50)
STAT$ = SPACE$(50)
'find IEEE card and G5000
CALL IBFIND(ADAP$, GPIB0%)
CALL IBFIND(G5000$, G5000%)
CLS 'clear screen
'read identification from g5000
CALL IBWRT(G5000%, "*IDN")
CALL IBRD(G5000%, D1$)
PRINT D1$
'open a file to store data and status to
20
PRINT "FILE NAME TO STORE RESULT (less than 8 characters)"
INPUT NAME$
IF LEN(NAME$) = 0 THEN NAME$ = "DATA"
IF LEN(NAME$) > 8 THEN GOTO 20
NAME$ = NAME$ + ".TXT"
OPEN NAME$ FOR APPEND AS #1
www.valuetronics.com
any two parameters separated by a ","
Read: STATUS 2, STEP 1, MODE 1
Maintenance & Calibration 3-11