10 '*********************************************************************
20 '    Tektronix 5010 series demo
22 '
23 '    Uses a Tek DC5010, DM5010, and FG5010
24 '    to generate waveforms and measure the frequency and amplitude
25 '
30 '********************************************************************
40 CLS : KEY OFF
50 '
60 PRINT
70 PRINT "Voltage","Frequency"
80 '
90 ' Init interface hardware & software
100 '
112  DEF SEG=0           ' find IEEE interface code memory location
113  IEEE=PEEK(&H182)+256*PEEK(&H183)
114  IF IEEE=0 THEN PRINT "BASIC488 not installed" : STOP
115  DEF SEG=IEEE
120 INIT=0 : ADDR%=21 : LEVEL%=0        ' Initialize as system controller
130 CALL INIT(ADDR%,LEVEL%)
140 '
150 ' Init devices
160 '
170 SEND=9 : ENTER=21                   ' PC-488 interface routine offsets
180 FG5010%=24 : DM5010%=16 : DC5010%=20        ' Instrument addresses
190 S$="INIT;OUT ON" : CALL SEND(FG5010%,S$,STATUS%)
200 S$="INIT;ACV"    : CALL SEND(DM5010%,S$,STATUS%)
210 S$="INIT"        : CALL SEND(DC5010%,S$,STATUS%)
220 '
230 ' Measurement loop
240 '
250 DC5010$="FREQ;SEND"
260 DM5010$="ACV;SEND"
270 RD$=SPACE$(255)
280 AMPL=1
290 FOR FREQ=1000 TO 2500 STEP 100
300   S$="FREQ "+STR$(FREQ)+";AMP "+STR$(AMPL)
310   CALL SEND (FG5010%,S$,STATUS%)
320   CALL SEND (DC5010%,DC5010$,STATUS%)
330   CALL SEND (DM5010%,DM5010$,STATUS%)
340   CALL ENTER (RD$,L%,DM5010%,STATUS%)
350   DM=VAL(LEFT$(RD$,L%))
360   CALL ENTER (RD$,L%,DC5010%,STATUS%)
370   FG=VAL(LEFT$(RD$,L%))
380   PRINT DM,FG
390   AMPL=AMPL+.1
400 NEXT
410 END