Kenwood DCS-8200 Instruction Manual page 109

Memory a d d r e s s : From a d d r e s s number 0
Number o f d a t a : 20 words
The d a t a r e a d o u t i n t h i s program example
10 '
mnttmtttmtmnntttmmtt
20 '
30 ' * CS-REM : WAVE DATA GET
40 '*
50 ' *
60 ' * Example Program
tmtmnntmmntmtmmnt
70 '
80 '
90 *
100 DIM F $ ( 50 )
110 '
"tttt
120 GP-IB I n i t i a l i z e
130 '
140 I SET I F C
150 ISET REN
160 '
"tttt
170 E n a b l e S e r v i c e
180 ON ERROR GOTO *END.P
190 ON SRO GOSUB *RCVSRQ
200 SRO ON
210 '
"tttt
220 S e t Time Out Timer
230 '
240 CMD TIMEOUT=5
250 '
260 '
"tttt
270 Dei i m i t t e r C o n t r o l
280 '
290 CMD DELIHN3
300
310
320
330
ttuMutttmrnttttnttntntttt
340 "
350 '
tttt
360 " Message Send P r o c e s s
370 '
380 PRINT81; "WREAD 1, 1, 1, 0, 20 : " @
390
400
410 '
420 PRINT
430 PRINT "WREAD"
440 PRINT
450 '
"tttt
460 Answer Read P r o c e s s
470 '
480 L I N E INPUT 81 ; D1$
490 '
500 '
''tttt
510 P r i n t Out Wave Data
520 *
530 PRINT D1$
540 PRINT
550 '
tttt
560 Wait Key-Board Input
570 '
580 PRINT "PUSH Any Key"
590 '
600 *KB. WAIT
i s d i s p l a y e d on t h e CRT s c r e e n .
*
*
*
*
' S e c u r e t h e memory a r e a
' GP-IB I n t e r f a c e C l e a r
' Remote E n a b l e
Request
' I f t h e r e c e i v e does not end w i t h i n 5 seconds, go t o *END.P
' S e t SRO ON t o go t o *RCVSR0
' S e t t h e t i m e r t o 5 s e c o n d s .
' 0 : C r L f
' 1 : Cr
' 2: L f
* 3: w i t h EOI
' S e l e c t t h e t i m i n g o f E O I .
' The CH1 memory c o n t e n t s a r e r e c i v e d i n t h e f i r s t a d d r e s s "0" t o a d d r e s s "20".
' L a s t Data w i t h EOI ( 8 )
103