Fluke PM6681R Outdoor Timer User Manual


 
440 ‘
450 PRINT “Fetching result”
460 ‘
470 FOR I=0 TO 999
480 ‘ —— Fetch one result ——
490 WRT$ = “FETCH?”
500 CALL IBWRT (CNT%, WRT$)
510 MSG$ = SPACE$(255)
520 CALL IBRD (CNT%, MSG$)
530
540 ‘ —— Write result to file ——
550 PRINT#1, I, LEFT$(MSG$, INSTR(MSG$, CHR$(10)))
560 NEXT I
570 ‘
580 WRT$ = “:DISP:ENAB ON”
590 CALL IBWRT(CNT%, WRT$)
600 ‘
610 CLOSE 1
620 END
Programming Examples
4-8 GW-Basic for National Instruments PC-IIA, Setting Up the Interface