IBM 5100 - Page 42

[:1. ::I
1::2::1
[:~ ]
[1+]
[~:.;; :I
[(;')::1
[7::1
[0]
[<)]
[:1.0::1
[::1.:1. ]
[j,2]
1::1. ~3]
I:: :1.1.(.]
[:1. ~:;::I
[:1.6::1
[:1.7 ::I
I:: :I.BJ
I:: :1.9::1
[20]
38
The following are samples of the ~~ATTR, ~~SEND, and ~~RECEIVE
functions:
V A4SEND 4ANAME;4ADATA;OIO;DPW
A 4ANAME IS A CHARACTER VECTOR
A OF THE OBJECT NAME
f·\
A THIS ROUTINE SENDS A VARIABLE
A (FUNCTIONS MUST BE DCR'ED)
A FROM A REMOTE APL.SV SYSTEM TO THE 5100.
fo\
A WHEN 4ASEND IS EXECUTED THE 5100 SHOULD BE
A TO PUT THE OUTPUT ON TAPE. THIS ROUTINE
A AND 44ATTR RESIDE ON THE REMOTE SYSTEM.
OPW~<590
[] I O~":I.
• OWIOI' I Al\NAME I' I I 4lH~TTI~.f.Al1NAME
64DATA~'114ANAME
I'J. 4D I~ TA I:: ( I.~ A II AT (.~ :::: [] AV [ 1 ~:; '7::1 ) / \ (.) A4DATA ::I~" • .. •
AALOOP:~(0=pA4DATA)/66END
'~~~' ,(125Lp44DATA)tAADATA
AADATA~(125Lp4ADATA)~l\ADATA
·,.AAI ... OOP
b.~END: · <lH,)(,)' V
"Z~"l'.\AATT R Xi I~
[:l.J fo\ :l.tZ IS S OR A FOR SCALAR OR ARRAY
[2J fo\ j. t 1 ... Z IS C OR N F'OR CHARACTEI~ ()I~ NUMEI~IC
[3J A 2~Z IS THE SHAPE OF X (CHARACTER)
[I.I·J R~"f)PX
C:5 J Z ~ .. ( ( I~ :::: 0 ) I ( I~::- () ) ) / •SA I
[6] Z~ZI«O=ltOpX),(' '~ltOpX»/'NC'
[ 7 ] .~ ( I~ :::: 0 ) / 0
I:B:J Zt-Z I 'f (.)X 'V
SET