PROGRAM
COMMENTS
INTEGER”2 PRIADR
LOGICAL’1 MSGl80),INPUT@30)
DO21 = 1.10
CALL IBSTER(I,Ol
2 CONTINUE
CALL IBSTER /15,5)
CALL IBTIMO (120)
CALL IBTERM (“10)
CALL IBREN
4TYPE5
5 FORMAT (lX,‘ENTER ADDRESS’,81
ACCEPT IO, PRIADR
10 FORMAT (2141
12 PlPE 15
15 FORMAT (lX,‘TEST SETUP’,$)
CALL GETSTR l5,MSG.721
CALL IBSEOI (MSG. - 1,PRIADR)
18 I=lBRECV (INPUT,BO,PRIADR)
lNPUT(l + 1) = 0
CALL PUTSTR (7,lNPUT,‘O’)
CALL IBUNT
GOT0 12
END
ITurn off IB errors.
IAllow 5 error 15’s.
IAllow 1 second bus time-
out.
ISet LF as terminator.
ITurn remote on.
llnput the address 27.
IPrompt for the test setup.
IGet the test setup.
IProgram the 617.
!Untalk the 617.
IRepeat
50
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com