Tektronix 7D20 Operator's Manual page 282

11 . Text Generation : Controller to 7D20 . This program allows the user to
input to the controller the desired message to send to the 7D20 . After the message
is input to the controller, the entire message is sent to the 7D20 and displayed on
the crt .
100 Rem Prograa to allow generation of a teat message far the 7D20
110
' from the controller program . The general rule of thumh . (100
120 ! character limit? will he used in this program .
130
Integer dev,stb,addr,total,i ! Establish integer variak~les .
I40 Data "More than 100 characters, re-enter data from beginning ."
150 Read errorf
160
P.em 7A20 RDDP.E S~: IS 1i3 .
170 Dev=10 ! Estak~lish device address .
ISO Open (11 :"gpib0(pri="&strf(dev)&",eoas<0>)z" ! Open channel #1
Zf0 ! for device address .
208
On arq then call srghdlr .' E_atahlish linkage for ~P.L7 handler .
218 Enable arq ! Enable ;" " P .(1 handler .
220
P.em Dimension string variable to hold characters for teat display .
230
Dim textf to 128,eharf to 36 ! Temporary storage of 3ti characters
240 ! per line (7D20 maximum limit? in string 'CNRP .S' .
258
Textf="""" ! Pre-define 'TEXTS' with a "'
260 P.em Input up to 12 lines of code, and less than 100 printak.~le
270 ! ChdrdCterS .
280 ProeB :
total=8 ! Initiali .~e character counter .
290 F~ i=1 to 12
300
Input prompt "-->" :chart
318 If len(charf)=8 then exit 1 to proc2
320 Total=total +l en(charf)
330 If tota7<100 than goto pror=l
348 Print erraf
350
Exit 1 to proc0
360 Procl : repf(textf,len(textf)+1,0>=charf&chrf(13)
. " ' Concatenate
370 , strings, and add "',CR :> as line delimif.e r .
388 Next i
390 Proc2 : ' E .x~it point. from for-neat loop
488 Textf=textfE~"""" ' Add final
~"' to t.e .at string for transfer .
910 pem Now send the data to the~7D20 screen .
428
Print " 1z"text" ;textf
430 Stop ! End of program, message delivered .
448 End
580 Sub srghdlr ! Serial poll handler suk~-program .
518 Poll stb,addr ;dev ! Poll device DEI~ .
520 Print "Status byte from device " " ;addr ;" is " ;stb ! Print Status
;3La ! Dyte .
548
Resume ! P .eturn to main program .
550 End
REV SEPT 82
GPI B-7D20
4- 10 7