V 66RECEIVE 66NAME;66DATA;A6LINE;6AHEAD;IJ.6IN;66I;OIO;OPW
I:
:I. ::I
[\PW
~
..
:3
9
()
I::
2
::I
[]
I
O~"
:1.
[3::1
A
TO
RECEIVE
VARIABLES
ON
THE
5100,
[I.,.]
A
1::5]
A THIS
ROUTINE
READS
THE
TAPE
CREATED
BY
THE
'6~SEND'
[6::1
A
ROUTINE
ON
THE
REMOTE
SYSTEM,
1::7::1
A
[8]
~(2~1
DSVO
'66IN')/O
[9::1
'SPECIFY DEVIVCE/FILE
NUMBER'
1::10]
6AIN~'IN
'J~
1::11]
~(O~+/46IN)/O
[12::1
66FIND:~(O=pA6HEAD~66IN)/66EOF
[13::1
~(NA/'~a~'=3t66HEAD)/4AFIND
[1~]
66I~(A6HEAD~3~66HEAD)\'
,
[15::1
~(0=p44NAME)/A4CONTO
[16]
~(A/A6NAME=(pA6NAMf)t64ItAAHEAD)/46FND
[17::1
46NEXT:~(A/'~a~'=3t6ALINE~46IN)/64NEXT
I:::I.B
"~64FIND
[19
AAFND:44NAME~"
[20
AACONTO:AADATA~"
[21
A4LOOP:~(A/'www'=3tA6LINE~44IN)/A4FORMIT
[22
~(NA/'aaa'=3tA6LINE)/4ALOOP
[23
~«(125t3~AALINE)\DAV[170::l»125)/44CONT
I::
2'+
[]
~··lJ.lJ.I
...
I NE
[
2!5
] 64LINE
~"I~I
[26::1
44CONT:44DATA~44DATAJ125t3~64LINE
I::
::!.7:3
"~A6LOO
p
[28::1 46FORMIT:4ADATA[(66DATA=""
)/\pA4DATA]~[]AV[157]
[29J
~('A'=lt6AI~4AHEAD)/A4ARRAY
[30::1
~('C'=lt(4AI+l)~4AHEAD)/AASCHAR
[31]
ANUMERIC
SCALAR
I::
~52::1
.t.
( 66I t
66HEf'~D
) J I
,~
..
' J
l!!.I.~,D('~
TA
[~3~3::1
"~6fJ.D()NE
[34]
ACHARACTER
SCALAR
1::35::1
AASCHAR:l(6AItfJ.AHEAD)J
'~66DATA'
[:'31.)::1
"~6/~DONE
[~~7J
AARRAYS
38]
A6ARRAY:~('C'=lt(64I+l)~6AHEAD)/46ACHAR
39::1
ANUMERIC
ARRAY
~O::l
~(0=p64DATA)/6ANNULL
1+
:I.
:3
.f.
( A6I t 6 AHE
(.~
D) J '
~
..
' , (
(l~
I.'!.
I
...
2 )
,J,
4
b.
HEA
II
) , '
f:)
, ,
b.
A
II
t-.
TA
'+2]
"~l~6D()NE
"'''':3::1
6ANNULt...:
,
•.
(
I~{j,
I t
l~6HEAD
) ,
'~
..
\
()
,
[1.,.1+:]
"~f.o..ADDNE
[~5:]
ACHARACTER
ARRAY
[~6::1
46ACHAR:~«()=pAADATA)/64CNULL
I::
1.1·
7 ]
.+.
(
'""
AI t
l\l~
HE
AD)
J '
~
.. ' , (
(/~
4 I
...
2 )
.~
/.'.0,
{~,
HE
.~
D) J I
(.)
l~
'""
D
~~
TA '
[~8J
~('A'tltAAHEAD)/~ADONE
1:49]
'FUNCTION
',CDFXi66It46HEAD),
I
CREATED'
[50]
6AI~OEX
A6It4AHEAD
[~:jl::l
··~4IJ.FIND
[52::1
!J.f....CNUt...L:l(6AIt6AHEAD),
'~""
I
1:53J
6ADONE:
'VARIABLE
'J(AAItAAHEAD)J 'CREATED'
[
~::;
"I.
]
..
~
f.o../~
FIND
1:55::1
6f....E()F:~(9=+/AAIN)//.'.o,AFIND
I::
~:;6
J '
<::
<::
c:
END
OF
FILE
:)
::)
::)'
V
Appendix
B.
Sample Tape Communications and Programs
39
To Next Page
Loading...
Need help?
General