HP 8530A, Руководство по эксплуатации и программированию, Страница: 367 / 439

Programming Examples
247 LINPUT "Example 17, Read and Output Status Bytes: Press Return",Input$
249 GOSUB Example17
251 !
253 LINPUT "Example 18, Output Key Code: Press Return",Input$
255 GOSUB Example18
257 !
259 LINPUT "Example 19, HPIB Triggered Data Acquisition: Press Return",Input$
261 GOSUB Example19
263 !
265 LINPUT "Example 20, WAIT Required: Press Return",Input$
267 GOSUB Example20
269 !
271 LINPUT "Example 21, WAIT Not Required: Press Return",Input$
273 GOSUB Example21
275 !
277 LINPUT "Example 22, Frequency List: Press Return",Input$
279 GOSUB Example22
281 !
283 LINPUT "Example 23, Learn String: Press Return",Input$
285 GOSUB Example23
287 !
289 LINPUT "Example 24, Input Floating Point or ASCII Data: Press Return",Input$
291 GOSUB Example24
293 !
295 LINPUT "Example 25, Delay Table Operations: Press Return",Input$
297 GOSUB Example25
299 !
301 LINPUT "Example 26, FASTCW Data Acquisition: Press Return",Input$
303 GOSUB Example26
305 !
307 LINPUT "Example 27, Fast Mux Operation: Press Return",Input$
309 CALL Fast_mux ! Fast_Mux Operation is a stand alone sub-program
311 !
313 DISP "END OF EXAMPLES"
315 !
317 STOP
319 !
321 ! ***********************************************
323 !
325 Example1: ! INPUT SYNTAX FAMILIARIZATION ****************
327 PRINT
329 PRINT "Example 1, Input Syntax Familiarization"
331 !
333 LOCAL @Rec
335 LINPUT "TYPE 8530 INSTRUCTION, THEN RETURN; ENTER 0 TO EXIT",Input$
337 IF Input$[1,1]="0" THEN
339 PRINT
341 GOTO Query
343 END IF
345 OUTPUT @Rec;Input$;";"
347 PRINT Input$,
349 IF BIT(SPOLL(@Rec),5) THEN ! Check for syntax error
351 GOSUB Syntax_error ! Clear error
353 END IF
355 GOTO Example1
357 !
359 Query: !
361 LOCAL @Rec
363 LINPUT "TYPE 8530 QUERY OR OUTPUT INSTRUCTION,THEN RETURN; ENTER 0 TO EXIT",Input$
365 IF Input$[1,1]="0" THEN
367 OUTPUT @Rec;"OUTPERRO;"
18-38 HP-IB Programming