Sample Apl Program - IBM 5100 Communications Manual

Sample APL Program
V AASENIIAALL ;1
1::1
ATHIS ROUTINE WILL SEND THE LARGE CHARACTER
2- AARRAY CHAR TO THE 5100 IN 10 ROW SECTIONS
(-,FOR
PI~INTING
AND TAPE USING THE AUTO COMMAND,
I ~- 0
S:
CHAI~[I+\
:1.0;::t
6 ~(30=I~I+l0)/E
'"( 'CONTINUE'
B · · .
(A/ '
CONT INUE ' ::::I~) IS
<? -.0
1..:1.0::1 E : 'STOP'
[11J ~(A/'STOP'=M)/O
I::
:1.2::1 'EI~I~OR"
The character array
'char' is:
ABCDEFGH I
,J
1< Lr1N(] P(~ I~BT
UVW)(YZABCn
EFGH I ·JI< LMN
(]
P(~ RSTUVW)(
YZABCDEFGH
I ,JI< I...MND
P(~ I~
STUV~,I)(YZAB
CDEFGH I ,..11<
1 •.,
t1NO
P(~ I~STUV
t'J)(Y:Z(.~IBCDEF
GH
I .
. .JI< LMNO
P
(~ I~DTUV~JXY:Z
(.~BCDEFGH I.J
1< L t1 N0 P
(~ I~~
ST
UVW)(YZABCD
EFGH I . . .JI< I...Mi\l
(]
P(~ I~STUVliJ)(
"{:Z,~~BCDEFGH
1-.11< I...MNO
P(~
R
STUVI. . . . . I XYZAB
CDEFGH I . . .JI< L
~'1ND P(~ I~STUV
l,JXYZI~BCDEF
GH I ..JI< I... t·1 NO P
(~ I~STI...IVI . . ~ XY:Z
f~)BCDEFI3H 1 . . .1
I{
I... t·1 ND P(~ I~ST
UVt"I;<Y·Z(.~BCD
EFGH I .J\( I...MN
The extended display
with
~AUTO
contains:
~OUTSEL
BYS
.~(.~UTO
AUTOS END
ABCDEFGHI.,J
1< LM N0 P
Q
I~
ST
UV,WXYZABCD
EFGH I JI< LMN
[)
P(~ RSTUV~JX
YZp-,HCDEFGH
I \.J1< I...MN(] P(~ R
STUVWXYZAB
CD:EF'GH I JI< I...
riND
P(~
RSTUV
CONTINUE
WXYZABCDEF
GHIJI<LMNOP
(~R~:)TUVI.,JXYZ
(.~:BiCDEFGH
I ,J
1< I...MND P(~ RST
UVWXYZABCD
EFGH I . . .JI< I...MN
D pn I<STUVliJ:X:
YZABCDEFGH
I ..J 1< I... M r-.[t:l P
(:~ I~
CONTINUE
STUV~IJXY2:P-IB
CDEFGH I ,..II<\'"
MNO P(·~ I:~BTUV
1.,J;{Y:Z(.·i:OCDEF
[iH
I . . JI< I...MNCt
P
(~
HGTUVI..·JXYZ
(.~IBCDEFGHI
.
. ..I
1< Lr'iND P(~ HS"r
I...IV~J)( Y Z(.~BC:O
EFGH I -JI< LMN
:::;TDP
The printed output is:
(.iBCDEFGH:t: .
. ,J
1< LMND
P(~
RST
UVWXYZABCD
EFGHI,JI{LMN
(]
P(~ RBTUVW:X:
YZ,~BCDEFGH
I JI< LMNO
P(~ I~
STUVWXYZAB
CDEFGH I JI< L
MNO P('-i I~STUV
WXYZ(.~BCDEF
GH I .J\( I...MND P
(~ RSTUVWXYZ
ABCDEFGHIJ
1< I...MNO
P(~ R~:)
T
UV~JXYZABCD
EF GHI .,J 1< I... (1 N
[)
P(~ I~STUVWX
YZ(.iBCDEFGH
I
,,JI(
LMNO P(~ R
BTUV~JXYZAB
CDEFGHIJI(I...
MNDP(~RBTUV
I",IXYZABCDEF
GH I JI< L~iN(]
p
(~ I~
BTU VW XYZ
I~BCDEFGH I . . .J
1< I...MND
P(~ I~ST
U\J~JXYZABCD
EFGH I
,JI<
I...MN
Appendix B. Sample Tape Communications and Programs 41