Fluke PM6681R, PM6685R manual 510 MSG$ = SPACE$255, 600 ‘ Close 620 END

Programming Examples

440 ‘

450 PRINT “Fetching result”

460 ‘

470 FOR I=0 TO 999

480‘ —— Fetch one result ——

490WRT$ = “FETCH?”

500CALL IBWRT (CNT%, WRT$)

510MSG$ = SPACE$(255)

520CALL IBRD (CNT%, MSG$)

530‘

540‘ —— Write result to file ——

550PRINT#1, I, LEFT$(MSG$, INSTR(MSG$, CHR$(10)))

560NEXT I

570‘

580WRT$ = “:DISP:ENAB ON”

590CALL IBWRT(CNT%, WRT$)

600‘

610CLOSE 1

620END

4-8 GW-Basic for National Instruments PC-IIA, Setting Up the Interface