![F.W. Bell 9900 Series Скачать руководство пользователя страница 65](http://html.mh-extra.com/html/f-w-bell/9900-series/9900-series_operation-and-maintenance-manual_535142065.webp)
SERIES
9900
9000
SERIES
GAUSSMETERS
IEEE-488 Demo Program continued
9600 C M D $ = "TRIGGER " + GM$: GOSUB 9070
9610 '
9660 ' = = = = WAIT FOR GAUSSMETER TO FINISH COMMAND EXECUTION = -
9670
9680 C M D $ = "STATUS " + GM$: GOSUB 9070: IF D% <> &H40 THEN 9680
9690 '
9700 ' - - - - INPUT COMMAND STRING ECHO AND DISPLAY IT
9710
9720 C M D $ = "ENTER " + GM$ + "[$]%": GOSUB 9000
9730
9740 : = = = = CALCULATE ASCII BUFFER LENGTHS ====
9750
9760 O U T L E N = LEN(COMMAND$) + 1: INLEN = LEN(IEEE488$) - 1
9780 RETURN
9999 E N D
60