Tektronix 7D20 Operator's Manual page 281

GPIB-7D20
10 . Text Transfer : Tape to 7D20 . Using this routine, the controller inputs the
text information from the tape and sends it to the 7D20 . Only the text information is
sent to the 7D20; the readout information cannot be sent .
10ta
Rem Program to transfer information from magnetic tape to the screen
l1A ! of the 7D20 .
The data that. i s an tape, contains both the readout,
1211
' and te .ut data_
RII the information is sent to the 7D26, which will
131%
! only respond to the test data .
The readout data will t .~e ignored .
140
Integer dev,stb,addr ! Establish integer variat.les .
ISC(
Rea 7D2C'" RDDP .ESLR IS SET TO Sff .
160 Dev=10
170
Open Y1 :"gpib0fpri="Lstrftdev>&",eae=<8>) :" .' irpen channel #1 for
SC3N
! device address_
190
Open Y2a"text" ' open channel #2 for retreival of the
2(IC3
! readout and test information .
210
On srq then call srghdlr ! Establish linkage for SP,A handler_
220
Enable srq ! Enat~le SRt7 handler_
2dL3
P,em Dimension string variat " le to hold all readout and text data
24ia
! on the magnetic tape file .
250 Die rdoutf to 508
260
Input " 2 :rdoutf ! P.eceive readout and text data from magnetic tape .
270
Print 1)Isrdoutf&ehrf<13) ; ~~end the data to the 7D2(a .
280 If not(eof12)) then goto 268
290
Close all
300
Stop .' The text information is now hack on the -screen of the 7D2e3 .
310 End
400 Sub srghdlr ! Serial poll handler sub." -program .
418
Poll stb,addr ;dev ! Poll device DEV_
420
Print "Status byte firoe device " " ;addr ;" is " ;stb ! PrintataTus
4dc; ! Ryte_
440
Resuee ! P.eturn tv main program .
450 End
4- 10 6
REV SEPT 82