Measurement Computing Analyzer488 - Manual (Page 268)

Appendix F Sample BASIC Program
F.2
280 PRINT#1,"talk"
290 'Send the Wave's talk address (&H54 = TAG20)
295 'since the Wave is at address 20
300 PRINT#1,"write &H54"
310 PRINT "Told the Wave488 to talk"
320 'Unassert ATN to allow data transfers to occur
330 PRINT#1,"unassert ATN"
340 'Put Analyzer488 in fast handshaking mode
345 'to allow it to handshake the
350 'data without having to read it in from the serial
port
360 'data is therefore being accepted but not stored
370 PRINT#1,"handshake fast"
375 'Record the bus transactions
380 PRINT#1,"record on"
390 'Put Analyzer488 in listen mode
395 'to allow it to accept data
400 PRINT#1,"listen"
410 PRINT"Analyzer in Listen mode, sequence in progress"
420 GOTO 480
430 '
440 'Delay Loop
450 FOR I = 1 TO 3000:NEXT I
460 RETURN
470 '
480 PRINT"Waiting for Events"
490 PRINT
500 INITTIME = TIMER
510 IF LOC(1) THEN PRINT INPUT$(LOC(1),1); ELSE PRINT".";
520 T = TIMER
530 IF TIMER - T < .2 GOTO 530
540 IF TIMER - INITTIME > 5 GOTO 560
545 PRINT#1,"status3"
547 INPUT#1,B$:PRINT B$
550 GOTO 510
560 PRINT "Finished With Demo"
570 END