Fluke PM6681 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