$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>NSCHAT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 2 9 - O c t -
0000120 8 6 1 3 : 2 4 : 0 8 " 006 004 {
0000140 e r i s } < l i s p c o r e > l
0000160 i b r a r y > n s c h a t . \ ;
0000200 1 7 006 001 4 2 8 2 3 \r \r
0000220 | p r e v i o u s | |
0000240 d a t e : | " 7 - O c t - 8
0000260 6 2 1 : 2 5 : 3 7 " { e r i
0000300 s } < l i s p c o r e > l i b r
0000320 a r y > n s c h a t . \ ; 1 6 )
0000340 \r \r \r ; C o p y r i g h t (
0000360 c ) 1 9 8 4 , 1 9 8 5 , 1
0000400 9 8 6 b y X e r o x C o r
0000420 p o r a t i o n . A l l r
0000440 i g h t s r e s e r v e d . \r
0000460 \r ( p r e t t y c o m p r i n t
0000500 n s c h a t c o m s ) \r \r ( r
0000520 p a q q 006 002 n s c h a t c o m
0000540 s 006 001 ( ( c o u r i e r p r o
0000560 g r a m s g a p ) \r
0000600 ( f
0000620 n s n s c h a t . 3 2 7 0 . h
0000640 o s t n s c h a t . a t t e n
0000660 t i o n f n n s c h a t . e r
0000700 r o r h a n d l e r n s c h a
0000720 t . h o s t . f i l t e r \r
0000740
0000760 n s c h a t . o p
0001000 e n n s c h a t . o p e n . 3
0001020 2 7 0 n s c h a t . o p e n .
0001040 d i a l o u t n s c h a t . o
0001060 p e n . t t y h o s t \r
0001100
0001120 n s c h a t . s e r v
0001140 i c e s s p p . i n p u t . e
0001160 v e n t ) \r
0001200 ( i n i t v a
0001220 r s ( n s c h a t . o p t i o
0001240 n s . m e n u ) ) \r
0001260 ( d e
0001300 c l a r e \ : e v a l @ c o m
0001320 p i l e d o n t c o p y ( f
0001340 i l e s ( s o u r c e ) \r
0001360
*
0001440 s p p d e c l
0001460 s ) \r
0001500 ( r e
0001520 c o r d s n s c h a t . s e r
0001540 v i c e ) \r
0001560
0001600 ( c o n s t a n t s ( | \ \ N
0001620 S . W K S . C o u r i e r | 5
0001640 ) \r
0001660
0001700 ( | G A P . R e m o t e S
0001720 y s t e m A d m i n i s t r a t
0001740 i o n | 1 ) \r
0001760
0002000 ( | G A P . R
0002020 e m o t e S y s t e m E x e c u
0002040 t i v e | 2 ) \r
0002060
0002100 ( | G A P .
0002120 I n t e r a c t i v e T e r m i
0002140 n a l S e r v i c e | 3 ) ) \r
0002160
0002200 ( g l o b a
0002220 l v a r s n s c h a t . o p t
0002240 i o n s . m e n u ) ) \r
0002260 (
0002300 d e c l a r e \ : d o n t e v
0002320 a l @ l o a d d o c o p y (
0002340 a d d v a r s ( c h a t . p r
0002360 o t o c o l t y p e s ( n s
0002400 . n s c h a t . h o s t . f i
0002420 l t e r \r
0002440
*
0002540 ) ) ) ) ) ) \r \r ( c
0002560 o u r i e r p r o g r a m 006 002
0002600 g a p 006 001 ( 3 3 ) \r
0002620 006 002 t y p e s 006 001 \r
0002640 ( ( | W a i t T i m e | c a r
0002660 d i n a l ) \r ( |
0002700 C h a r L e n g t h | ( e n u
0002720 m e r a t i o n ( | f i v e |
0002740 0 ) \r
0002760
0003000 ( | s i x | 1 ) \r
0003020
0003040 ( | s e v e n | 2
0003060 ) \r
0003100 ( |
0003120 e i g h t | 3 ) ) ) \r
0003140 ( | P a r i t y | ( e n
0003160 u m e r a t i o n ( | n o n e
0003200 | 0 ) \r
0003220 ( | o
0003240 d d | 1 ) \r
0003260 (
0003300 | e v e n | 2 ) \r
0003320
0003340 ( | o n e | 3 ) \r
0003360
0003400 ( | z e r o | 4 ) ) )
0003420 \r ( | S t o p B i
0003440 t s | ( e n u m e r a t i o n
0003460 ( | o n e | 0 ) \r
0003500
0003520 ( | t w o | 1 ) ) )
0003540 \r ( | F l o w C o
0003560 n t r o l | ( r e c o r d (
0003600 | t y p e | ( e n u m e r a t
0003620 i o n ( | n o n e | 0 ) \r
0003640
*
0003700 ( | x O
0003720 n X O f f | 1 ) ) ) \r
0003740
0003760 ( | x O n |
0004000 u n s p e c i f i e d ) \r
0004020
0004040 ( | x O f f
0004060 | u n s p e c i f i e d ) ) )
0004100 \r ( | S e s s i o
0004120 n H a n d l e | ( a r r a y
0004140 2 u n s p e c i f i e d ) ) \r
0004160 ( | S e s s i o n
0004200 P a r a m e t e r O b j e c t |
0004220 ( c h o i c e ( | x e r o x
0004240 8 0 0 | 0 n i l ) \r
0004260
*
0004320 ( | x e r o x 8 5 0 |
0004340 1 u n s p e c i f i e d ) \r
0004360
*
0004420 ( | x e r o x 8 6
0004440 0 | 2 u n s p e c i f i e d
0004460 ) \r
0004500
0004520 ( | s y s t
0004540 e m 6 | 3 ( r e c o r d (
0004560 | s e n d B l o c k S i z e |
0004600 c a r d i n a l ) \r
0004620
*
0004700 ( | r e c e i v e B
0004720 l o c k S i z e | c a r d i n
0004740 a l ) ) ) \r
0004760
0005000 ( |
0005020 c m c l l | 4 ( r e c o r d
0005040 ( | s e n d B l o c k S i z e
0005060 | c a r d i n a l ) \r
0005100
*
0005160 ( | r e c e i v e B
0005200 l o c k S i z e | c a r d i n
0005220 a l ) ) ) \r
0005240
0005260 ( |
0005300 i b m 2 7 7 0 | 5 ( r e c o
0005320 r d ( | s e n d B l o c k S i
0005340 z e | c a r d i n a l ) \r
0005360
*
0005440 ( | r e c e
0005460 i v e B l o c k S i z e | c a
0005500 r d i n a l ) ) ) \r
0005520
*
0005560 ( | i b m 2 7 7 0 H o s t |
0005600 6 ( r e c o r d ( | s e n
0005620 d B l o c k S i z e | c a r d
0005640 i n a l ) \r
0005660
*
0005740 ( | r e c e i v e B
0005760 l o c k S i z e | c a r d i n
0006000 a l ) ) ) \r
0006020
0006040 ( |
0006060 i b m 6 6 7 0 | 7 ( r e c o
0006100 r d ( | s e n d B l o c k S i
0006120 z e | c a r d i n a l ) \r
0006140
*
0006220 ( | r e c e
0006240 i v e B l o c k S i z e | c a
0006260 r d i n a l ) ) ) \r
0006300
*
0006340 ( | i b m 6 6 7 0 H o s t |
0006360 8 ( r e c o r d ( | s e n
0006400 d B l o c k S i z e | c a r d
0006420 i n a l ) \r
0006440
*
0006520 ( | r e c e i v e B
0006540 l o c k S i z e | c a r d i n
0006560 a l ) ) ) \r
0006600
0006620 ( |
0006640 i b m 3 2 7 0 | 9 n i l ) \r
0006660
*
0006720 ( | i b m 3 2 7
0006740 0 H o s t | 1 0 n i l ) \r
0006760
*
0007020 ( | O l d T t y H
0007040 o s t | 1 1 ( r e c o r d
0007060 ( | c h a r L e n g t h | | C
0007100 h a r L e n g t h | ) \r
0007120
*
0007200 ( | p a
0007220 r i t y | | P a r i t y | ) \r
0007240
*
0007340 ( | s t o p B i t s | | S t o
0007360 p B i t s | ) \r
0007400
*
0007460 ( | f r a m e T
0007500 i m e o u t | c a r d i n a l
0007520 ) ) ) \r
0007540
0007560 ( | O l
0007600 d T t y | 1 2 ( r e c o r d
0007620 ( | c h a r L e n g t h | |
0007640 C h a r L e n g t h | ) \r
0007660
*
0007740 ( | p a r i t
0007760 y | | P a r i t y | ) \r
0010000
*
0010060 ( | s t o p B
0010100 i t s | | S t o p B i t s | )
0010120 \r
0010140
*
0010200 ( | f
0010220 r a m e T i m e o u t | c a r
0010240 d i n a l ) ) ) \r
0010260
*
0010320 ( | o t h e r | 1 3 n i l
0010340 ) \r
0010360
0010400 ( | u n k n
0010420 o w n | 1 4 n i l ) \r
0010440
*
0010500 ( | i b m 2 7 8 0 |
0010520 1 5 ( r e c o r d ( | s e n
0010540 d B l o c k S i z e | c a r d
0010560 i n a l ) \r
0010600
*
0010660 ( | r e c e i v e B l o c
0010700 k S i z e | c a r d i n a l )
0010720 ) ) \r
0010740
0010760 ( | i b m
0011000 2 7 8 0 H o s t | 1 6 ( r e
0011020 c o r d ( | s e n d B l o c k
0011040 S i z e | c a r d i n a l ) \r
0011060
*
0011160 ( | r e c e i v e B l o c k S
0011200 i z e | c a r d i n a l ) ) )
0011220 \r
0011240
0011260 ( | i b m 3 7
0011300 8 0 | 1 7 ( r e c o r d (
0011320 | s e n d B l o c k S i z e |
0011340 c a r d i n a l ) \r
0011360
*
0011440 ( | r e c e i v e
0011460 B l o c k S i z e | c a r d i
0011500 n a l ) ) ) \r
0011520
0011540 (
0011560 | i b m 3 7 8 0 H o s t | 1 8
0011600 ( r e c o r d ( | s e n d B
0011620 l o c k S i z e | c a r d i n
0011640 a l ) \r
0011660
*
0011740 ( | r e c e i v e B l
0011760 o c k S i z e | c a r d i n a
0012000 l ) ) ) \r
0012020
0012040 ( | s
0012060 i e m e n s 9 7 5 0 | 1 9 n
0012100 i l ) \r
0012120
0012140 ( | s i
0012160 e m e n s 9 7 5 0 H o s t | 2
0012200 0 n i l ) \r
0012220
0012240 (
0012260 | t t y H o s t | 2 1 ( r e
0012300 c o r d ( | c h a r L e n g t
0012320 h | | C h a r L e n g t h | )
0012340 \r
0012360
*
0012420 ( |
0012440 p a r i t y | | P a r i t y |
0012460 ) \r
0012500
*
0012540 (
0012560 | s t o p B i t s | | S t o p
0012600 B i t s | ) \r
0012620
*
0012700 ( | f r a m e T i m e o
0012720 u t | c a r d i n a l ) \r
0012740
*
0013020 ( | f l o
0013040 w C o n t r o l | | F l o w C
0013060 o n t r o l | ) ) ) \r
0013100
*
0013140 ( | t t y | 2 2 ( r e
0013160 c o r d ( | c h a r L e n g t
0013200 h | | C h a r L e n g t h | )
0013220 \r
0013240
*
0013300 ( | p a r i
0013320 t y | | P a r i t y | ) \r
0013340
*
0013420 ( | s t o p B i t
0013440 s | | S t o p B i t s | ) \r
0013460
*
0013540 ( | f r a m e T
0013560 i m e o u t | c a r d i n a l
0013600 ) \r
0013620
*
0013660 ( | f l o
0013700 w C o n t r o l | | F l o w C
0013720 o n t r o l | ) ) ) ) ) \r
0013740 ( | T r a n s p o r t O
0013760 b j e c t | ( c h o i c e (
0014000 | r s 2 3 2 c | 0 ( r e c o
0014020 r d ( | C o m m P a r a m s |
0014040 | C o m m P a r a m O b j e c
0014060 t | ) \r
0014100
*
0014140 ( | p r e e m
0014160 p t O t h e r s | | R e s e r
0014200 v e T y p e | ) \r
0014220
*
0014260 ( |
0014300 p r e e m p t M e | | R e s e
0014320 r v e T y p e | ) \r
0014340
*
0014400 (
0014420 | p h o n e N u m b e r | s t
0014440 r i n g ) \r
0014460
*
0014520 ( | l i n
0014540 e | ( c h o i c e ( | a l r
0014560 e a d y R e s e r v e d | \r
0014600
*
0014700 0 \r
0014720
*
0015000 ( r e c
0015020 o r d ( | r e s o u r c e |
0015040 | R e s o u r c e | ) \r
0015060
*
0015160 ) ) \r
0015200
*
0015300 ( | r e s e r v e N e e d e d |
0015320 \r
0015340
*
0015420 1 \r
0015440
*
0015520 ( r e
0015540 c o r d ( | l i n e N u m b e
0015560 r | c a r d i n a l ) ) \r
0015600
*
0015700 ) ) ) ) ) \r
0015720
0015740 ( | b s c |
0015760 1 ( r e c o r d ( | l o c
0016000 a l T e r m i n a l I D | s t
0016020 r i n g ) \r
0016040
*
0016100 ( | l o c a l S e
0016120 c u r i t y I D | s t r i n g
0016140 ) \r
0016160
*
0016220 ( | l i n e C o n t r o l
0016240 | | L i n e C o n t r o l | )
0016260 \r
0016300
*
0016340 ( | a u t h e n t i c a t e
0016360 P r o c | u n s p e c i f i e
0016400 d ) ) ) \r
0016420
0016440 ( | t e l e t y p e
0016460 | 2 n i l ) \r
0016500
0016520 ( | p o l l
0016540 e d B S C C o n t r o l l e r |
0016560 3 ( r e c o r d ( | h o s
0016600 t C o n t r o l l e r N a m e |
0016620 s t r i n g ) \r
0016640
*
0016720 ( | c o n t
0016740 r o l l e r A d d r e s s | \r
0016760
*
0017060 | C o n t r o l
0017100 l e r A d d r e s s | ) \r
0017120
*
0017200 ( |
0017220 p o r t s O n C o n t r o l l e
0017240 r | c a r d i n a l ) ) ) \r
0017260
*
0017320 ( | s d l c C o n t r o l l e r
0017340 | 4 ( r e c o r d ( | h o
0017360 s t C o n t r o l l e r N a m e
0017400 | s t r i n g ) \r
0017420
*
0017500 ( | c o n t r o l l
0017520 e r A d d r e s s | | C o n t
0017540 r o l l e r A d d r e s s | ) \r
0017560
*
0017640 ( | p o
0017660 r t s O n C o n t r o l l e r |
0017700 c a r d i n a l ) ) ) \r
0017720
0017740 ( |
0017760 p o l l e d B S C T e r m i n a
0020000 l | 5 ( r e c o r d ( | h
0020020 o s t C o n t r o l l e r N a m
0020040 e | s t r i n g ) \r
0020060
*
0020140 ( | t e r m
0020160 i n a l A d d r e s s | | T e
0020200 r m i n a l A d d r e s s | ) )
0020220 \r
0020240
0020260 ) \r
0020300
0020320 ( | s d
0020340 l c T e r m i n a l | 6 ( r
0020360 e c o r d ( | h o s t C o n t
0020400 r o l l e r N a m e | s t r i
0020420 n g ) \r
0020440
*
0020500 ( |
0020520 t e r m i n a l A d d r e s s |
0020540 | T e r m i n a l A d d r e s
0020560 s | ) ) ) \r
0020600
0020620 ( | s e r v i c e
0020640 | 7 ( r e c o r d ( | i d
0020660 | l o n g c a r d i n a l ) )
0020700 ) \r
0020720
0020740 ( | u n u s e d | 8 n
0020760 i l ) \r
0021000
0021020 ( | p o l l e d B S C
0021040 P r i n t e r | 9 ( r e c o
0021060 r d ( | h o s t C o n t r o l
0021100 l e r N a m e | s t r i n g )
0021120 \r
0021140
*
0021200 (
0021220 | p r i n t e r A d d r e s s |
0021240 | T e r m i n a l A d d r e s
0021260 s | ) ) ) \r
0021300
0021320 ( | s d l c P r i
0021340 n t e r | 1 0 ( r e c o r d
0021360 ( | h o s t C o n t r o l l e
0021400 r N a m e | s t r i n g ) \r
0021420
*
0021500 ( | p r i n t
0021520 e r A d d r e s s | | T e r m
0021540 i n a l A d d r e s s | ) ) ) )
0021560 ) \r ( | S e q u e
0021600 n c e . T r a n s p o r t O b j
0021620 e c t | ( s e q u e n c e |
0021640 T r a n s p o r t O b j e c t |
0021660 ) ) \r ( | B i d R
0021700 e p l y | ( e n u m e r a t i
0021720 o n ( | w a c k | 0 ) \r
0021740
0021760 ( | n a c k |
0022000 1 ) \r
0022020 ( | d
0022040 e f a u l t | 2 ) ) ) \r
0022060 ( | E x t e n d e d B o
0022100 o l e a n | ( e n u m e r a t
0022120 i o n ( | t r u e | 0 ) \r
0022140
*
0022200 ( | f a l s e | 1 ) \r
0022220
0022240 ( | d
0022260 e f a u l t | 2 ) ) ) \r
0022300 ( | D e v i c e T y p e
0022320 | ( e n u m e r a t i o n (
0022340 | u n d e f i n e d | 0 ) \r
0022360
0022400 ( | t e r
0022420 m i n a l | 1 ) \r
0022440
0022460 ( | p r i n t e r |
0022500 2 ) ) ) \r ( | A
0022520 c c e s s D e t a i l | ( c h
0022540 o i c e ( | d i r e c t C o n
0022560 n | 0 ( r e c o r d ( | d
0022600 u p l e x | ( e n u m e r a t
0022620 i o n ( | f u l l | 0 ) \r
0022640
*
0022740 ( | h a l f | 1
0022760 ) ) ) \r
0023000
*
0023040 ( | l i n e
0023060 T y p e | | L i n e T y p e |
0023100 ) \r
0023120
*
0023160 ( | l i n e S p
0023200 e e d | | L i n e S p e e d |
0023220 ) ) ) \r
0023240
0023260 ( | d i a l C o n n | 1
0023300 ( r e c o r d ( | d u p l e x
0023320 | ( e n u m e r a t i o n (
0023340 | f u l l | 0 ) \r
0023360
*
0023440 (
0023460 | h a l f | 1 ) ) ) \r
0023500
*
0023540 (
0023560 | l i n e T y p e | | L i n e
0023600 T y p e | ) \r
0023620
*
0023660 ( | l i n e
0023700 S p e e d | | L i n e S p e e
0023720 d | ) \r
0023740
*
0024000 ( | d i a l M o d
0024020 e | ( e n u m e r a t i o n
0024040 ( | m a n u a l | 0 ) \r
0024060
*
0024160 ( | a u t o | 1 ) ) ) \r
0024200
*
0024260 ( | d i a l e r N u m b e
0024300 r | c a r d i n a l ) \r
0024320
*
0024400 ( | r e t r y C o u n t | c a
0024420 r d i n a l ) ) ) ) ) \r
0024440 ( | C o m m P a r a m O b
0024460 j e c t | ( r e c o r d ( |
0024500 a c c e s s D e t a i l | | A
0024520 c c e s s D e t a i l | ) ) ) \r
0024540 ( | L i n e T y p
0024560 e | ( e n u m e r a t i o n
0024600 ( | b i t S y n c h r o n o u s
0024620 | 0 ) \r
0024640 (
0024660 | b y t e S y n c h r o n o u s
0024700 | 1 ) \r
0024720 (
0024740 | a s y n c h r o n o u s | 2
0024760 ) \r
0025000 ( | a u
0025020 t o R e c o g n i t i o n | 3
0025040 ) ) ) \r ( | L i n
0025060 e S p e e d | ( e n u m e r a
0025100 t i o n ( | b p s 5 0 | 0 )
0025120 \r
0025140 ( | b p
0025160 s 7 5 | 1 ) \r
0025200
0025220 ( | b p s 1 1 0 | 2 ) \r
0025240
0025260 ( | b p s
0025300 1 3 5 p 5 | 3 ) \r
0025320
0025340 ( | b p s 1 5 0 | 4
0025360 ) \r
0025400 ( | b
0025420 p s 3 0 0 | 5 ) \r
0025440
0025460 ( | b p s 6 0 0 | 6
0025500 ) \r
0025520 ( | b
0025540 p s 1 2 0 0 | 7 ) \r
0025560
0025600 ( | b p s 2 4 0 0 |
0025620 8 ) \r
0025640 (
0025660 | b p s 3 6 0 0 | 9 ) \r
0025700
0025720 ( | b p s 4 8 0
0025740 0 | 1 0 ) \r
0025760
0026000 ( | b p s 7 2 0 0 | 1 1 )
0026020 \r
0026040 ( | b p
0026060 s 9 6 0 0 | 1 2 ) \r
0026100
0026120 ( | b p s 1 9 2 0 0
0026140 | 1 3 ) \r
0026160
0026200 ( | b p s 2 8 8 0 0 | 1 4 )
0026220 \r
0026240 ( | b p
0026260 s 3 8 4 0 0 | 1 5 ) \r
0026300
0026320 ( | b p s 4 8 0 0
0026340 0 | 1 6 ) \r
0026360
0026400 ( | b p s 5 6 0 0 0 | 1 7
0026420 ) \r
0026440 ( | b
0026460 p s 5 7 6 0 0 | 1 8 ) ) ) \r
0026500 ( | L i n e C o n t
0026520 r o l | ( e n u m e r a t i o
0026540 n ( | p r i m a r y | 0 ) \r
0026560
0026600 ( | s
0026620 e c o n d a r y | 1 ) ) ) \r
0026640 ( | C o n t r o l l
0026660 e r A d d r e s s | c a r d i
0026700 n a l ) \r ( | T e
0026720 r m i n a l A d d r e s s | c
0026740 a r d i n a l ) \r
0026760 ( | c r e d e n t i a l s | (
0027000 a u t h e n t i c a t i o n .
0027020 c r e d e n t i a l s ) ) \r
0027040 ( | v e r i f i e r
0027060 | ( a u t h e n t i c a t i o
0027100 n . v e r i f i e r ) ) \r
0027120 ( | D u p l e x i t
0027140 y | ( e n u m e r a t i o n
0027160 ( | f u l l | 0 ) \r
0027200
0027220 ( | h a l f | 1 )
0027240 ) ) \r ( | P o r t
0027260 C l i e n t T y p e | ( e n u
0027300 m e r a t i o n ( | u n a s s
0027320 i g n e d | 0 ) \r
0027340
0027360 ( | o u t O
0027400 f S e r v i c e | 1 ) \r
0027420
0027440 ( | i
0027460 t s | 2 ) \r
0027500
0027520 ( | i r s | 3 )
0027540 \r
0027560
0027600 ( | g w s | 4 ) \r
0027620
0027640 ( | i b m
0027660 3 2 7 0 H o s t | 5 ) \r
0027700
0027720 ( | t
0027740 t y E m u l a t i o n | 6 ) \r
0027760
*
0030020 ( | r b s | 7 ) \r
0030040
0030060 ( | f a x |
0030100 8 ) \r
0030120
0030140 ( | m a i l G a t e w a
0030160 y | 9 ) \r
0030200
0030220 ( | p h o t o t y p
0030240 e s e t t e r | 1 0 ) ) ) \r
0030260 ( | P o r t D i a l
0030300 e r T y p e | ( e n u m e r a
0030320 t i o n ( | n o n e | 0 ) \r
0030340
*
0030400 ( | v a d i c | 1 ) \r
0030420
0030440 ( | h a
0030460 y e s | 2 ) \r
0030500
0030520 ( | v e n t e l
0030540 | 3 ) \r
0030560
0030600 ( | r s 3 6 6 | 4 )
0030620 ) ) \r ( | P o r t
0030640 E c h o i n g L o c a t i o n |
0030660 ( e n u m e r a t i o n ( |
0030700 a p p l i c a t i o n | 0 ) \r
0030720
*
0030760 ( | c i u | 1 ) \r
0031000
*
0031040 ( | t e r m i n a l |
0031060 2 ) ) ) \r ( | R e
0031100 s e r v e T y p e | ( e n u m
0031120 e r a t i o n ( | p r e e m p
0031140 t N e v e r | 0 ) \r
0031160
0031200 ( | p r e e m p
0031220 t A l w a y s | 1 ) \r
0031240
0031260 ( | p r e e m
0031300 p t I n a c t i v e | 2 ) ) )
0031320 \r ( | R S 2 3 2 C
0031340 D a t a | ( r e c o r d ( |
0031360 c I U P o r t | b o o l e a n
0031400 ) \r
0031420 ( |
0031440 o w n i n g C l i e n t T y p e
0031460 | | P o r t C l i e n t T y p
0031500 e | ) \r
0031520
0031540 ( | p r e e m p t i o n A l l o
0031560 w e d | b o o l e a n ) \r
0031600
0031620 ( | l i n e
0031640 N u m b e r | c a r d i n a l
0031660 ) \r
0031700 ( |
0031720 d i a l e r N u m b e r | c a
0031740 r d i n a l ) \r
0031760
0032000 ( | d u p l e x i t y |
0032020 | D u p l e x i t y | ) \r
0032040
0032060 ( | d i a l
0032100 i n g H a r d w a r e | | P o
0032120 r t D i a l e r T y p e | ) \r
0032140
0032160 ( | c h a
0032200 r L e n g t h | | C h a r L e
0032220 n g t h | ) \r
0032240
0032260 ( | e c h o i n g | | P
0032300 o r t E c h o i n g L o c a t i
0032320 o n | ) \r
0032340
0032360 ( | f l o w C o n t r o l |
0032400 | F l o w C o n t r o l | ) \r
0032420
0032440 ( | l i n
0032460 e S p e e d | | L i n e S p e
0032500 e d | ) \r
0032520
0032540 ( | p a r i t y | | P a r i
0032560 t y | ) \r
0032600
0032620 ( | s t o p B i t s | | S t
0032640 o p B i t s | ) \r
0032660
0032700 ( | p o r t A c t s A
0032720 s D C E | b o o l e a n ) \r
0032740
0032760 ( | a c c
0033000 e s s C o n t r o l | n s n a
0033020 m e ) \r
0033040
0033060 ( | v a l i d L i n e S p e e d
0033100 s | ( s e q u e n c e | L i
0033120 n e S p e e d | ) ) ) ) \r
0033140 ( | R S 2 3 2 C B a c k
0033160 | ( r e c o r d ( | o w n i
0033200 n g C I U | s t r i n g ) \r
0033220
0033240 ( | o w n
0033260 i n g E C S | s t r i n g ) \r
0033300
0033320 ( | o w
0033340 n i n g C l i e n t | s t r i
0033360 n g ) \r
0033400
0033420 ( | p o r t N u m b e r | c a
0033440 r d i n a l ) ) ) \r
0033460 ( | I B M D e v i c e T y p e
0033500 | ( e n u m e r a t i o n (
0033520 | u n u s e d | 0 ) \r
0033540
0033560 ( | m o d
0033600 e l 1 | 1 ) \r
0033620
0033640 ( | m o d e l 2 |
0033660 2 ) \r
0033700
0033720 ( | m o d e l 3 | 3 ) \r
0033740
0033760 (
0034000 | m o d e l 4 | 4 ) \r
0034020
0034040 ( | m o d
0034060 e l 5 | 5 ) \r
0034100
0034120 ( | p r i n t e r
0034140 | 6 ) \r
0034160
0034200 ( | o t h e r | 7 ) )
0034220 ) \r ( | I B M 3 2
0034240 7 0 L a n g u a g e s | ( e n
0034260 u m e r a t i o n ( | U S e n
0034300 g l i s h | 0 ) \r
0034320
0034340 ( | A u
0034360 s t r i a n | 1 ) \r
0034400
0034420 ( | A
0034440 u s t r i a n A l t | 2 ) \r
0034460
*
0034520 ( | G e r m a n | 3 ) \r
0034540
*
0034600 ( | G e r m a n A l t | 4 ) \r
0034620
*
0034660 ( | B e l g i a n | 5 ) \r
0034700
*
0034740 ( | B r a z i l i a n | 6
0034760 ) \r
0035000
0035020 ( | C a n a d i a n F r
0035040 e n c h | 7 ) \r
0035060
0035100 ( | D a n
0035120 i s h | 8 ) \r
0035140
0035160 ( | D a n i
0035200 s h A l t | 9 ) \r
0035220
0035240 ( | N o
0035260 r w e g i a n | 1 0 ) \r
0035300
0035320 (
0035340 | N o r w e g i a n A l t | 1
0035360 1 ) \r
0035400
0035420 ( | F i n n i s h |
0035440 1 2 ) \r
0035460
0035500 ( | F i n n i s h A
0035520 l t | 1 3 ) \r
0035540
0035560 ( | S w e d
0035600 i s h | 1 4 ) \r
0035620
0035640 ( | S w e
0035660 d i s h A l t | 1 5 ) \r
0035700
0035720 (
0035740 | F r e n c h | 1 6 ) \r
0035760
0036000 (
0036020 | I n t e r n a t i o n a l |
0036040 1 7 ) \r
0036060
0036100 ( | I t a l i a n |
0036120 1 8 ) \r
0036140
0036160 ( | J a p a n e s
0036200 e E n g l i s h | 1 9 ) \r
0036220
*
0036260 ( | J a p a n e s e K a n a |
0036300 2 0 ) \r
0036320
0036340 ( | P o r t u g u e
0036360 s e | 2 1 ) \r
0036400
0036420 ( | S p a n
0036440 i s h | 2 2 ) \r
0036460
0036500 ( | S p a
0036520 n i s h A l t | 2 3 ) \r
0036540
0036560 (
0036600 | S p a n i s h S p e a k i n g
0036620 | 2 4 ) \r
0036640
0036660 ( | U K e n g l
0036700 i s h | 2 5 ) \r
0036720
0036740 ( | u n u
0036760 s e d 1 | 2 6 ) \r
0037000
0037020 ( | u n
0037040 u s e d 2 | 2 7 ) \r
0037060
0037100 ( | u
0037120 n u s e d 3 | 2 8 ) \r
0037140
0037160 ( |
0037200 u n u s e d 4 | 2 9 ) \r
0037220
0037240 (
0037260 | u n u s e d 5 | 3 0 ) \r
0037300
*
0037340 ( | u n u s e d 6 | 3 1 ) ) )
0037360 \r ( | C o n t r o
0037400 l l e r L i n k T y p e | ( e
0037420 n u m e r a t i o n ( | s d l
0037440 c | 0 ) \r
0037460
0037500 ( | b s c |
0037520 1 ) ) ) \r ( | I
0037540 B M 3 2 7 0 D e v i c e | ( r
0037560 e c o r d ( | m o d e l | |
0037600 I B M D e v i c e T y p e | ) \r
0037620
0037640 (
0037660 | a c c e s s C o n t r o l |
0037700 n s n a m e ) ) ) \r
0037720 ( | I B M 3 2 7 0 C o n t r o
0037740 l l e r | ( r e c o r d ( |
0037760 c o n t r o l l e r A d d r e s
0040000 s | c a r d i n a l ) \r
0040020
*
0040060 ( | p o r t s O n C o n t r o l
0040100 l e r | c a r d i n a l ) \r
0040120
*
0040160 ( | l i n k T y p e | | C
0040200 o n t r o l l e r L i n k T y p
0040220 e | ) \r
0040240
0040260 ( | l a n g u a g
0040300 e | | I B M 3 2 7 0 L a n g u
0040320 a g e s | ) \r
0040340
0040360 ( | d e v i
0040400 c e s | ( s e q u e n c e |
0040420 I B M 3 2 7 0 D e v i c e | ) )
0040440 ) ) \r ( | I B M 3
0040460 2 7 0 H o s t D a t a | ( s e
0040500 q u e n c e | I B M 3 2 7 0 C
0040520 o n t r o l l e r | ) ) \r
0040540 ( | I B M 3 2 7 0 H o s
0040560 t B a c k | ( r e c o r d (
0040600 | p a t h | n s n a m e ) ) )
0040620 ) \r 006 002 p r o c e d u r
0040640 e s 006 001 \r ( ( | R e
0040660 s e t | 0 ) \r (
0040700 | C r e a t e | 2 ( | S e s
0040720 s i o n P a r a m e t e r O b j
0040740 e c t | | S e q u e n c e . T
0040760 r a n s p o r t O b j e c t |
0041000 | W a i t T i m e | | c r e d
0041020 e n t i a l s | \r
0041040
0041060 | v e r i f i e r | ) \r
0041100 r e
0041120 t u r n s \r
0041140 ( | S e s s i o n H a n
0041160 d l e | ) \r
0041200 r e p o r t s \r
0041220 ( | b a d A
0041240 d d r e s s F o r m a t | | c
0041260 o n t r o l l e r A l r e a d y
0041300 E x i s t s | | c o n t r o l
0041320 l e r D o e s N o t E x i s t |
0041340 \r
0041360 | d i a l i n g H
0041400 a r d w a r e P r o b l e m |
0041420 | i l l e g a l T r a n s p o r
0041440 t | | i n c o n s i s t e n t
0041460 P a r a m s | \r
0041500 | m
0041520 e d i u m C o n n e c t F a i l
0041540 e d | | n o C o m m u n i c a
0041560 t i o n H a r d w a r e | | n
0041600 o D i a l i n g H a r d w a r e
0041620 | \r
0041640 | t e r m i n a
0041660 l A d d r e s s I n U s e | |
0041700 t e r m i n a l A d d r e s s I
0041720 n v a l i d | | t o o M a n y
0041740 G a t e S t r e a m s | \r
0041760
0042000 | t r a n s m i s s i o n
0042020 M e d i u m U n a v a i l a b l
0042040 e | | s e r v i c e T o o B u
0042060 s y | | u s e r N o t A u t h
0042100 e n t i c a t e d | \r
0042120
0042140 | u s e r N o t A u t h o r i
0042160 z e d | | s e r v i c e N o t
0042200 F o u n d | ) \r
0042220 i m p l e m e n t e
0042240 d b y m a k e . n s . c h a t
0042260 . c o n n e c t i o n ) ) \r
0042300 006 002 e r r o r s 006 001 \r
0042320 ( ( | u n i m p l e m e n
0042340 t e d | 0 ) \r (
0042360 | n o C o m m u n i c a t i o n
0042400 H a r d w a r e | 1 ) \r
0042420 ( | i l l e g a l T r a
0042440 n s p o r t | 2 ) \r
0042460 ( | m e d i u m C o n n e c
0042500 t F a i l e d | 3 ) \r
0042520 ( | b a d A d d r e s s F
0042540 o r m a t | 4 ) \r
0042560 ( | n o D i a l i n g H a r d
0042600 w a r e | 5 ) \r
0042620 ( | d i a l i n g H a r d w a r
0042640 e P r o b l e m | 6 ) \r
0042660 ( | t r a n s m i s s i
0042700 o n M e d i u m U n a v a i l a
0042720 b l e | 7 ) \r (
0042740 | i n c o n s i s t e n t P a r
0042760 a m s | 8 ) \r (
0043000 | t o o M a n y G a t e S t r e
0043020 a m s | 9 ) \r (
0043040 | b u g I n G A P C o d e | 1
0043060 0 ) \r ( | g a p N
0043100 o t E x p o r t e d | 1 1 ) \r
0043120 ( | g a p C o m m
0043140 u n i c a t i o n E r r o r |
0043160 1 2 ) \r ( | c o n
0043200 t r o l l e r A l r e a d y E x
0043220 i s t s | 1 3 ) \r
0043240 ( | c o n t r o l l e r D o e
0043260 s N o t E x i s t | 1 4 ) \r
0043300 ( | t e r m i n a l
0043320 A d d r e s s I n U s e | 1 5
0043340 ) \r ( | t e r m i
0043360 n a l A d d r e s s I n v a l i
0043400 d | 1 6 ) ) ) \r ( d e f i n e
0043420 q \r \r ( 006 004 n s c h a t . 3 2 7
0043440 0 . h o s t 006 001 \r ( l a m b
0043460 d a ( i b m . v i r t u a l .
0043500 h o s t ) 006 006 006 001
0043520
0043540 006 006 ( * |
0043560 e j s : | " 3 - M a y - 8 6
0043600 1 8 : 2 4 " ) 006 001 \r
0043620 \r
0043640 006 006 ( * * | R e t r i e v e
0043660 s | | t h e | n s n a m e
0043700 | o f | | t h e | | p h y s
0043720 i c a l | | h o s t | | o n
0043740 | | w h i c h | | t h e |
0043760 \r 006 001 006 006 |
0044000 v i r t u a l | | h o s t |
0044020 | l i v e s | ) 006 001 \r \r
0044040 ( c o u r i e r . f e t c h (
0044060 g a p . | I B M 3 2 7 0 H o
0044100 s t B a c k | ) \r
0044120 | p a t h | \r
0044140 ( c a d r ( c h .
0044160 r e t r i e v e . i t e m i b
0044200 m . v i r t u a l . h o s t '
0044220 i b m 3 2 7 0 . h o s t . b a c
0044240 k ' ( g a p . | I B M 3 2
0044260 7 0 H o s t B a c k | ) ) ) ) )
0044300 ) \r \r ( 006 004 n s c h a t . a t t
0044320 e n t i o n f n 006 001 \r ( l a
0044340 m b d a ( s t r e a m a t t
0044360 n b y t e ) 006 006 006 001
0044400
0044420 006 006 ( *
0044440 | b v m : | " 1 1 - M a r -
0044460 8 5 1 3 : 0 0 " ) 006 001 \r
0044500 ( s e l e c t q a t t n b y
0044520 t e \r ( 2 0 8
0044540 - 1 ) \r ( 2 0 9
0044560 ( n o t i f y . e v e n t (
0044600 s t r e a m p r o p s t r e a
0044620 m ' | M e d i u m U p E v e n
0044640 t | ) ) ) \r ( c
0044660 o n d \r (
0044700 ( o r x i p t r a c e f l g
0044720 n s w i z a r d f l g ) \r
0044740 ( | p r i n t
0044760 o u t | p r o m p t w i n d o
0045000 w t " A t t e n t i o n b
0045020 y t e : " | . I 1 . 8 | a
0045040 t t n b y t e ) ) ) ) \r
0045060 t ) ) \r \r ( 006 004 n s c h a t . e
0045100 r r o r h a n d l e r 006 001 \r
0045120 ( l a m b d a ( s t r e a m
0045140 e r r c o d e ) 006 006 006 001
0045160
0045200 006
0045220 006 ( * | e j s : | " 1 8 - D
0045240 e c - 8 4 2 0 : 4 3 " ) 006 001 \r
0045260 ( s e l e c t q e r r
0045300 c o d e \r ( e o
0045320 m ( s p p . c l e a r e o m
0045340 s t r e a m ) ) \r
0045360 ( a t t e n t i o n ( s p p
0045400 . c l e a r a t t e n t i o n
0045420 s t r e a m ) \r
0045440 ( 006 002 n s
0045460 c h a t . a t t e n t i o n f n
0045500 006 001 s t r e a m ( b i n s
0045520 t r e a m ) ) ) \r
0045540 ( e n d ( a d d . c h a t .
0045560 m e s s a g e s t r e a m "
0045600 [ C o n n e c t i o n c l o s
0045620 e d b y r e m o t e h o s
0045640 t ] " ) \r
0045660 - 1 ) \r ( c
0045700 o n d \r (
0045720 ( s p p . o p e n p s t r e a
0045740 m )
0045760
0046000 006 006 ( * | n o n - f a t a l
0046020 | | e r r o r ? | ) 006 001 \r
0046040 ( a d d . c
0046060 h a t . m e s s a g e s t r e
0046100 a m ( c o n c a t " [ S P P
0046120 e r r o r " e r r c o d e
0046140 " ] " ) ) \r
0046160 ( b i n s t r e a m ) )
0046200 \r ( t (
0046220 \ \ e o f . a c t i o n s t r
0046240 e a m ) ) ) ) ) ) \r \r ( 006 004 n s
0046260 c h a t . h o s t . f i l t e r
0046300 006 001 \r ( l a m b d a ( n a
0046320 m e ) 006 006 006 001
0046340
*
0046400 006 006 ( * | l m m | "
0046420 1 5 - J a n - 8 5 2 2 : 1 9 "
0046440 ) 006 001 \r \r
0046460 006 006 ( * *
0046500 | R e t u r n | n s c h a t .
0046520 o p e n | i f | n a m e |
0046540 i s | | a n | n s | h o s
0046560 t | | w i t h | \ a | t e
0046600 l n e t | \r 006 001
0046620 006 006 | s e r v e r . | ) 006
0046640 001 \r \r ( a n d \ \ n s
0046660 f l g ( s t r p o s " : "
0046700 n a m e ) \r (
0046720 s e t q n a m e ( c h . l o
0046740 o k u p . o b j e c t n a m e
0046760 ) ) \r ( l i s
0047000 t ( m k a t o m n a m e ) \r
0047020 (
0047040 f u n c t i o n n s c h a t .
0047060 o p e n ) ) ) ) ) \r \r ( 006 004 n s
0047100 c h a t . o p e n 006 001 \r ( l
0047120 a m b d a ( h o s t ) 006 006 006 001
0047140
*
0047200 006 006 (
0047220 * | e j s : | " 2 7 - M a y
0047240 - 8 6 0 9 : 2 6 " ) 006 001 \r
0047260 \r
0047300 006 006 ( * * | R e t u r
0047320 n | \ a | p a i r | | o f
0047340 | s p p | s t r e a m s |
0047360 | f o r | \ a | c h a t |
0047400 | c o n n e c t i o n , | | o
0047420 r | \r 006 001
0047440 006 006 n i l . | A d d | c h a
0047460 t | s p e c i f i c | | o p
0047500 e r a t i o n s | | t o | |
0047520 t h e | s t r e a m | v i a
0047540 | s t r e a m p r o p . ) 006 001
0047560 \r \r ( p r o g ( ( | M
0047600 e d i u m U p E v e n t | ( c
0047620 r e a t e . e v e n t ) ) \r
0047640 s e r v i c e
0047660 . o p t i o n s p o r t s e
0047700 r v i c e o u t s t r e a m
0047720 s t r e a m h a n d l e f a
0047740 i l u r e ) \r l p
0047760 ( s e t q s e r v i c e . o
0050000 p t i o n s ( 006 002 n s c h a t
0050020 . s e r v i c e s 006 001 h o s t
0050040 s e r v i c e ) ) \r
0050060 ( c o n d \r
0050100 ( ( n o t ( s
0050120 e t q s e r v i c e ( c o n
0050140 d \r
0050160
0050200 ( ( e q l e n g t h
0050220 s e r v i c e . o p t i o n s
0050240 1 ) \r
0050260
0050300 ( | p r i n t
0050320 o u t | p r o m p t w i n d o
0050340 w t " C o n n e c t i n g
0050360 t o " ( c a a r \r
0050400
*
0050520 s e r v i c e . o p t i o n
0050540 s \r
0050560
*
0050660 ) \r
0050700
*
0050740 " o n " h o
0050760 s t t ) \r
0051000
0051020 ( c a d a
0051040 r s e r v i c e . o p t i o n
0051060 s ) ) \r
0051100
0051120 ( t ( m e n u
0051140 ( | c r e a t e | m e n u
0051160 i t e m s _ s e r v i c e .
0051200 o p t i o n s t i t l e _
0051220 \r
0051240
*
0051300 " S p e c i f i c N
0051320 S S e r v i c e ? " w h e n
0051340 s e l e c t e d f n _ \r
0051360
*
0051440 ( f u n c t i o n ( l a m b
0051460 d a ( i t e m m e n u m o
0051500 u s e ) \r
0051520
*
0051600 ( c a d r i t e m )
0051620 ) ) ) ) ) ) ) ) \r
0051640 ( c o n d \r
0051660 ( s
0051700 t r e a m ( c l o s e f ? s
0051720 t r e a m ) ) ) \r
0051740 ( r e t u r n ) )
0051760 \r ( (
0052000 n u l l ( s e t q p o r t
0052020 ( l e t ( ( p o r t ( l o o
0052040 k u p . n s . s e r v e r ( a
0052060 p p l y * ( | f e t c h | (
0052100 n s c h a t . s e r v i c e \r
0052120
*
0052220 |
0052240 P h y s i c a l H o s t F u n c
0052260 t i o n | \r
0052300
*
0052400 ) \r
0052420
*
0052520 | o f | s e
0052540 r v i c e ) \r
0052560
*
0052640 h o s t )
0052660 ) ) ) \r
0052700
0052720 ( c o n d \r
0052740
*
0053000 ( p o r t ( | r e p
0053020 l a c e | ( n s a d d r e s s
0053040 n s s o c k e t ) \r
0053060
*
0053120 |
0053140 o f | p o r t | w i t h |
0053160 | \ \ N S . W K S . C o u r i e
0053200 r | ) \r
0053220
*
0053260 p o r t ) ) ) ) ) \r
0053300 ( s e t q f
0053320 a i l u r e " N a m e n o t
0053340 f o u n d " ) ) \r
0053360 ( ( n u l l ( s
0053400 e t q s t r e a m ( c o u r
0053420 i e r . o p e n p o r t n i
0053440 l t ' n s c h a t n i l \r
0053460
*
0053520 ' ( e o m . o n
0053540 . f o r c e o u t t e r r o
0053560 r h a n d l e r n s c h a t .
0053600 e r r o r h a n d l e r \r
0053620
*
0053660 a t
0053700 t e n t i o n f n n s c h a t
0053720 . a t t e n t i o n f n ) ) ) )
0053740 \r
0053760
*
0054020 006 006
0054040 ( * n \ o | r e s p o n s e
0054060 | ) 006 001 \r
0054100 ) \r
0054120 ( t ( s t r e a m p r o p
0054140 s t r e a m ' | M e d i u m
0054160 U p E v e n t | | M e d i u m
0054200 U p E v e n t | ) \r
0054220 ( s t r e a
0054240 m p r o p s t r e a m ' e o
0054260 f p f n ( f u n c t i o n n
0054300 s c h a t . e o f p f n ) ) \r
0054320 (
0054340 s p p . d s t y p e s t r e a
0054360 m 1 9 2 ) \r
0054400 ( c o n d \r
0054420
0054440 ( ( n l i s t p ( s e t q h
0054460 a n d l e ( a p p l y * ( |
0054500 f e t c h | ( n s c h a t . s
0054520 e r v i c e | O p e n F u n c
0054540 t i o n | ) \r
0054560
*
0054620 |
0054640 o f | s e r v i c e ) \r
0054660
*
0054720 s t r
0054740 e a m h o s t ( | f e t c h
0054760 | ( n s c h a t . s e r v i c
0055000 e | S e r v i c e I D | ) \r
0055020
*
0055120 | o f | s e r v i c e ) )
0055140 ) ) ) \r
0055160 ( ( e q ( c a r
0055200 h a n d l e ) \r
0055220
0055240 ' e r r o r ) \r
0055260 ( s e
0055300 t q f a i l u r e ( s e l e
0055320 c t q ( c a d r h a n d l e
0055340 ) \r
0055360
0055400 ( ( r e j e c t
0055420 2 0 ) \r
0055440 \r 006 006 ( *
0055460 w \ e | o u g h t | | t o |
0055500 | f i g u r e | | o u t |
0055520 | e x a c t l y | | w h a t |
0055540 | e r r o r | 2 0 | i s .
0055560 | \r 006 001 006 006
0055600 | I n c o m p l e t e | | p r
0055620 o g r a m | | d e c l a r a t
0055640 i o n | ) 006 001 \r \r
0055660
*
0055720 ( p r i n t o u t p r
0055740 o m p t w i n d o w t " S e
0055760 r v i c e n o t s u p p o r
0056000 t e d " t ) \r
0056020
*
0056060 ( g o l p ) ) \r
0056100
*
0056140 ( s u b s t r i n g ( c d
0056160 r h a n d l e ) \r
0056200
*
0056240 2 - 2 ) ) ) ) \r
0056260
0056300 ( t ( s t r e a m p r o
0056320 p s t r e a m ' s e t d i s
0056340 p l a y t y p e ( f u n c t i
0056360 o n n i l l ) ) \r
0056400
0056420 ( s t r e a m p r o p s t r e
0056440 a m ' l o g i n f o ( f u n
0056460 c t i o n n i l l ) ) \r
0056500
0056520 ( s t r e a m p r o p s
0056540 t r e a m ' f l u s h & w a i
0056560 t ( f u n c t i o n n i l l
0056600 ) ) \r
0056620 ( s t r e a m
0056640 p r o p s t r e a m ' s e n
0056660 d s c r e e n p a r a m s ( f
0056700 u n c t i o n n i l l ) ) \r
0056720
0056740 ( s t r e a m p r o p
0056760 s t r e a m ' r e a d p e v
0057000 e n t ( 006 002 s p p . i n p u t
0057020 . e v e n t 006 001 s t r e a m )
0057040 ) \r
0057060 ( s e t q o u
0057100 t s t r e a m ( s p p o u t p
0057120 u t s t r e a m s t r e a m )
0057140 ) \r
0057160 ( a w a i t . e
0057200 v e n t | M e d i u m U p E v
0057220 e n t | 1 5 0 0 0 ) \r
0057240
0057260 ( c o n d \r
0057300
0057320 ( ( n e q s e r v i c e |
0057340 G A P . I n t e r a c t i v e T
0057360 e r m i n a l S e r v i c e | )
0057400 \r
0057420 ( s p p .
0057440 s e n d a t t e n t i o n o u
0057460 t s t r e a m 2 0 9 ) ) ) \r
0057500
0057520 ( r e t u r n ( c o
0057540 n s s t r e a m o u t s t r
0057560 e a m ) ) ) ) ) ) \r
0057600 ( c l o s e f ? s t r
0057620 e a m ) \r (
0057640 | p r i n t o u t | p r o m p
0057660 t w i n d o w t " C o u l d
0057700 n o t c h a t t o " h
0057720 o s t " b e c a u s e : "
0057740 ( o r f a i l u r e " N o
0057760 R e s p o n s e " \r
0060000
*
0060100 ) ) ) ) )
0060120 \r \r ( 006 004 n s c h a t . o p e n
0060140 . 3 2 7 0 006 001 \r ( l a m b d
0060160 a ( s t r e a m i b m 3 2 7
0060200 0 . v i r t u a l . h o s t ) 006
0060220 006 006 001
0060240 006 006 ( * | b
0060260 v m : | " 7 - O c t - 8 6
0060300 2 1 : 2 4 " ) 006 001 \r ( l
0060320 e t ( ( a u t h e n t i c a t
0060340 o r ( c h . g e t a u t h e n
0060360 t i c a t o r t ) ) \r
0060400 ( c o n t r o l l e
0060420 r ( c a r ( c a d r ( c h
0060440 . r e t r i e v e . i t e m i
0060460 b m 3 2 7 0 . v i r t u a l . h
0060500 o s t ' i b m 3 2 7 0 h o s t
0060520 d a t a \r
0060540
0060560 ' ( g
0060600 a p . | I B M 3 2 7 0 H o s
0060620 t D a t a | ) ) ) ) ) ) \r
0060640 ( c o n d \r
0060660 ( ( a n d c o
0060700 n t r o l l e r s t r e a m )
0060720 \r ( c
0060740 o u r i e r . c a l l s t r e
0060760 a m ' g a p ' | C r e a t e
0061000 | ` ( | i b m 3 2 7 0 H o s t
0061020 | ) \r
0061040 ( s e l e c t q
0061060 ( c o u r i e r . f e t c h (
0061100 g a p . | I B M 3 2 7 0 C o
0061120 n t r o l l e r | ) \r
0061140
0061160 |
0061200 l i n k T y p e | c o n t r o
0061220 l l e r ) \r
0061240 ( |
0061260 s d l c | ` ( ( | s d l c T e
0061300 r m i n a l | ( , ( c o n c a
0061320 t ( | f e t c h | ( n s n a
0061340 m e n s o b j e c t ) \r
0061360
*
0061460 | o f | \r
0061500
*
0061560 ( p a r s e . n
0061600 s n a m e i b m 3 2 7 0 . v i
0061620 r t u a l . h o s t \r
0061640
*
0061740 ) ) \r
0061760
*
0062040 " # " \r
0062060
*
0062140 ( o c t a l s t r i n g (
0062160 c o u r i e r . f e t c h ( g
0062200 a p . | I B M 3 2 7 0 C o n
0062220 t r o l l e r | \r
0062240
*
0062360 ) \r
0062400
*
0062500 | c o n t r o l l e r A d d
0062520 r e s s | \r
0062540
*
0062640 c o n t r o l l e r
0062660 ) ) \r
0062700
*
0062740 " B
0062760 " ) 1 ) ) ) ) \r
0063000
0063020 ( | b s c | ` ( ( | p o l l
0063040 e d B S C T e r m i n a l | (
0063060 , ( c o n c a t ( | f e t c h
0063100 | ( n s n a m e n s o b j e
0063120 c t ) \r
0063140
*
0063220 | o f | \r
0063240
*
0063340 ( p a r s e . n s
0063360 n a m e \r
0063400
*
0063500 i b m 3 2 7 0 . v i r t
0063520 u a l . h o s t ) ) \r
0063540
*
0063620 " # " \r
0063640
*
0063720 ( o c
0063740 t a l s t r i n g ( c o u r i
0063760 e r . f e t c h \r
0064000
*
0064100 ( g a p . | I B
0064120 M 3 2 7 0 C o n t r o l l e r |
0064140 \r
0064160
*
0064240 )
0064260 \r
0064300
*
0064360 | c
0064400 o n t r o l l e r A d d r e s s
0064420 | \r
0064440
*
0064540 c o n t r o l l e r ) ) \r
0064560
*
0064640 " B " )
0064660 5 ) ) ) ) \r
0064700 (
0064720 e r r o r " U n k n o w n 3
0064740 2 7 0 c o n t r o l l e r l
0064760 i n k t y p e " ( c o u r i
0065000 e r . f e t c h ( g a p .
0065020 | I B M 3 2 7 0 C o n t r o l l
0065040 e r | \r
0065060
*
0065160 ) \r
0065200
*
0065300 | l i n k T y p e | c o
0065320 n t r o l l e r ) ) ) \r
0065340
0065360 1 5 0 0 0 \r
0065400 ( c a r a
0065420 u t h e n t i c a t o r ) \r
0065440
0065460 ( c a d r a u t h e n t i
0065500 c a t o r ) \r
0065520 ' r e t u
0065540 r n e r r o r s ) ) ) ) ) ) \r \r
0065560 ( 006 004 n s c h a t . o p e n . d
0065600 i a l o u t 006 001 \r ( l a m b
0065620 d a ( s t r e a m h o s t )
0065640 006 006 006 001
0065660
0065700 006 006 ( * |
0065720 b v m : | " 7 - O c t - 8 6
0065740 2 1 : 1 2 " ) 006 001 \r (
0065760 d e c l a r e ( g l o b a l v
0066000 a r s c h a t . p h o n e . n
0066020 u m b e r s ) ) \r ( l e
0066040 t ( ( r s 2 3 2 c d a t a (
0066060 c a d r ( c h . r e t r i e v
0066100 e . i t e m h o s t ' r s 2
0066120 3 2 c d a t a ' ( g a p .
0066140 | R S 2 3 2 C D a t a | ) ) ) )
0066160 \r ( a u t h
0066200 e n t i c a t o r ( c h . g e
0066220 t a u t h e n t i c a t o r t
0066240 ) ) \r p h o
0066260 n e n u m b e r ) \r
0066300 ( c o n d \r
0066320 ( ( n u l l r s 2 3
0066340 2 c d a t a ) \r
0066360 ( | p r i n t o u t |
0066400 p r o m p t w i n d o w t
0066420 h o s t " d o e s n o t
0066440 a p p e a r s u p p o r t d
0066460 i a l o u t s e r v i c e "
0066500 t ) \r
0066520 ( c l o s e f s t r e a m ) \r
0066540 ( e r
0066560 r o r ! ) ) \r
0066600 ( t ( r e s e t l s t
0066620 ( r e s e t s a v e n i l (
0066640 l i s t ( f u n c t i o n (
0066660 l a m b d a ( c s t r e a m )
0066700 \r
0066720
*
0066760 ( a n d
0067000 r e s e t s t a t e ( c l o s
0067020 e f c s t r e a m ) ) ) ) \r
0067040
*
0067100 s t r
0067120 e a m ) ) \r
0067140 ( o r
0067160 ( e q ( c o u r i e r . f e t
0067200 c h ( g a p . | R S 2 3 2
0067220 C D a t a | ) \r
0067240
0067260 | d i
0067300 a l i n g H a r d w a r e | |
0067320 o f | r s 2 3 2 c d a t a ) \r
0067340
0067360 ' |
0067400 n o n e | ) \r
0067420
0067440 ( s e t q p h o n e n u m b
0067460 e r ( c h a t . c h o o s e .
0067500 p h o n e . n u m b e r ) ) ) \r
0067520
0067540 ( c o u r i e r . c
0067560 a l l \r
0067600 s t r e a
0067620 m \r
0067640 ' g a p \r
0067660
0067700 ' | C r e a t e | \r
0067720
0067740 ` ( | t t y | , (
0067760 l i s t ( p r o g n ( c o u
0070000 r i e r . f e t c h ( g a p
0070020 . | R S 2 3 2 C D a t a | ) \r
0070040
*
0070120 | c h a r L e n g t h |
0070140 | o f | r s 2 3 2 c d a t a
0070160 ) \r
0070200
0070220 '
0070240 | s e v e n | ) \r
0070260
0070300 (
0070320 p r o g n ( c o u r i e r . f
0070340 e t c h ( g a p . | R S 2
0070360 3 2 C D a t a | ) \r
0070400
*
0070440 | p
0070460 a r i t y | | o f | r s 2 3
0070500 2 c d a t a ) \r
0070520
*
0070560 ' | e v e n | ) \r
0070600
*
0070640 ( c o u r i e r . f e t
0070660 c h ( g a p . | R S 2 3 2
0070700 C D a t a | ) \r
0070720
*
0070760 | s t o p B i t s |
0071000 | o f | r s 2 3 2 c d a t a )
0071020 \r
0071040
0071060 1 0 0 \r
0071100
*
0071140 ( c o u r i e r . f e t c h
0071160 ( g a p . | R S 2 3 2 C D a
0071200 t a | ) \r
0071220
*
0071260 | f l o w C o n t r o l |
0071300 | o f | r s 2 3 2 c d a t a )
0071320 ) ) \r
0071340 ( c o n d \r
0071360
0071400 ( p h o n e
0071420 n u m b e r ` ( ( | r s 2 3 2
0071440 c | ( ( ( | d i a l C o n n |
0071460 ( | f u l l | | a s y n c h
0071500 r o n o u s | \r
0071520
*
0071620 , ( c o u r i e r . f e t c h
0071640 ( g a p . | R S 2 3 2 C D a
0071660 t a | \r
0071700
*
0072000 ) \r
0072020
*
0072120 |
0072140 l i n e S p e e d | | o f |
0072160 \r
0072200
*
0072300 r s 2 3 2 c d a t a ) | a u
0072320 t o | \r
0072340
*
0072420 , ( c o
0072440 u r i e r . f e t c h ( g a p
0072460 . | R S 2 3 2 C D a t a | \r
0072500
*
0072620 ) \r
0072640
*
0072740 | d i a l
0072760 e r N u m b e r | | o f | \r
0073000
*
0073120 r s 2 3 2 c d a t a ) 1 ) ) )
0073140 \r
0073160
*
0073220 | p r e e m p t I n a
0073240 c t i v e | | p r e e m p t I
0073260 n a c t i v e | , p h o n e n
0073300 u m b e r \r
0073320
*
0073360 ( | r e s e
0073400 r v e N e e d e d | ( , ( c o
0073420 u r i e r . f e t c h ( g a p
0073440 . | R S 2 3 2 C D a t a | \r
0073460
*
0073600 ) \r
0073620
*
0073720 | l i n e N u m b
0073740 e r | | o f | \r
0073760
*
0074060 r s 2 3 2 c d a
0074100 t a ) ) ) ) ) \r
0074120
*
0074160 ( | t e l e t y p e | ) ) ) \r
0074200
0074220 ( t ` ( (
0074240 | r s 2 3 2 c | ( ( ( | d i r
0074260 e c t C o n n | ( | f u l l |
0074300 | a s y n c h r o n o u s | \r
0074320
*
0074420 , ( c o u r i e r . f e t c h
0074440 ( g a p . | R S 2 3 2 C D a
0074460 t a | ) \r
0074500
*
0074560 | l i
0074600 n e S p e e d | | o f | r s
0074620 2 3 2 c d a t a ) ) \r
0074640
*
0074700 ) ) \r
0074720
*
0074760 | p r e e m
0075000 p t I n a c t i v e | | p r e
0075020 e m p t I n a c t i v e | n i
0075040 l \r
0075060
0075100 ( | r e
0075120 s e r v e N e e d e d | ( , (
0075140 c o u r i e r . f e t c h ( g
0075160 a p . | R S 2 3 2 C D a t a
0075200 | ) \r
0075220
*
0075300 | l i n e N u m b
0075320 e r | | o f | r s 2 3 2 c d
0075340 a t a ) ) ) ) ) \r
0075360
0075400 ( | t e l e t y
0075420 p e | ) ) ) ) \r
0075440 1
0075460 5 0 0 0 \r
0075500 ( c a r
0075520 a u t h e n t i c a t o r ) \r
0075540
0075560 ( c a d r a u t
0075600 h e n t i c a t o r ) \r
0075620
0075640 ' r e t u r n e r r o r s
0075660 ) ) ) ) ) ) ) \r \r ( 006 004 n s c h
0075700 a t . o p e n . t t y h o s t 006
0075720 001 \r ( l a m b d a ( s t r
0075740 e a m h o s t s e r v i c e
0075760 ) 006 006 006 001
0076000
0076020 006 006 ( * | b v m : | "
0076040 7 - O c t - 8 6 2 1 : 1 2 "
0076060 ) 006 001 \r ( l e t ( ( a
0076100 u t h e n t i c a t o r ( c h
0076120 . g e t a u t h e n t i c a t o
0076140 r ) ) ) \r ( c
0076160 o u r i e r . c a l l s t r e
0076200 a m ' g a p ' | C r e a t e
0076220 | ' ( | t t y H o s t | ( |
0076240 s e v e n | | e v e n | | t
0076260 w o | 1 0 0 ( | n o n e |
0076300 0 0 ) ) ) \r
0076320 ` ( ( | s e r v i
0076340 c e | ( , s e r v i c e ) ) \r
0076360
0076400 ( | t e l e t y p e | ) )
0076420 1 5 0 0 0 ( c a r a u t h e
0076440 n t i c a t o r ) \r
0076460 ( c a d r
0076500 a u t h e n t i c a t o r ) \r
0076520 '
0076540 r e t u r n e r r o r s ) ) ) )
0076560 \r \r ( 006 004 n s c h a t . s e r v
0076600 i c e s 006 001 \r ( l a m b d a
0076620 ( h o s t a l l f l g ) 006 006
0076640 006 001
0076660
0076700 006 006 ( * | b v
0076720 m : | " 7 - O c t - 8 6 2
0076740 1 : 1 8 " ) 006 001 \r ( l e
0076760 t * ( ( p r o p e r t i e s
0077000 ( c a d r ( c h . l i s t . p
0077020 r o p e r t i e s h o s t ) )
0077040 ) \r ( s e
0077060 r v i c e s ( a n d ( n o t
0077100 a l l f l g ) \r
0077120
0077140 ( a p p e n d ( c o n d
0077160 \r
0077200
0077220 ( ( | f o r | s e
0077240 r v i c e | i n | ( c o n s
0077260 t a n t ( l i s t ( c h . p
0077300 r o p e r t y ' f i l e . s e
0077320 r v i c e ) \r
0077340
*
0077440 ( c h . p r o p e r t y ' p
0077460 r i n t . s e r v i c e \r
0077500
*
0077600 ) \r
0077620
*
0077720 ( c h . p r
0077740 o p e r t y ' \r
0077760
*
0100060 c l e a r i n
0100100 g h o u s e . s e r v i c e \r
0100120
*
0100240 ) \r
0100260
*
0100340 ( c h .
0100360 p r o p e r t y ' \r
0100400
*
0100500 e x t e r n a l . c o m m u
0100520 n i c a t i o n . s e r v i c e
0100540 \r
0100560
*
0100660 ) \r
0100700
*
0100760 ( c
0101000 h . p r o p e r t y ' \r
0101020
*
0101120 g a
0101140 t e w a y . s e r v i c e ) \r
0101160
*
0101260 ( c h . p r o
0101300 p e r t y ' \r
0101320
*
0101420 i n t e r n e t . r o
0101440 u t i n g . s e r v i c e \r
0101460
*
0101560 )
0101600 \r
0101620
*
0101700 ( c h . p
0101720 r o p e r t y ' m a i l . s e
0101740 r v i c e ) \r
0101760
*
0102060 ( c h . p r o p e r t y ' \r
0102100
*
0102220 r e m o t e . b a t c h . s e
0102240 r v i c e \r
0102260
*
0102360 ) \r
0102400
*
0102500 1 0 0 2 4 ) ) \r
0102520
*
0102560 | t h e r e i s
0102600 | \r
0102620
0102640 (
0102660 f m e m b s e r v i c e p r
0102700 o p e r t i e s ) ) \r
0102720
*
0102760 ( c o n s t a n t ` ( ( " R
0103000 e m o t e S y s t e m A d m
0103020 i n i s t r a t i o n " \r
0103040
*
0103120 , ( | c r e a t e | n s c h a
0103140 t . s e r v i c e | S e r v i
0103160 c e I D | _ \r
0103200
*
0103260 | G A P . R e m o t e S
0103300 y s t e m A d m i n i s t r a t
0103320 i o n | \r
0103340
*
0103420 | P h y s i c a l H o s t F u
0103440 n c t i o n | _ \r
0103460
*
0103540 ( f u n c t i o n c
0103560 l : i d e n t i t y ) \r
0103600
*
0103660 | O p e n F u n c
0103700 t i o n | _ ( f u n c t i o
0103720 n \r
0103740
*
0104040 n s c h a t . o p e n . t t y h
0104060 o s t ) ) \r
0104100
*
0104140 " C o n n e
0104160 c t t o a s e r v e r e
0104200 x e c u t i v e " ) ) ) ) ) \r
0104220
*
0104260 ( c o n d \r
0104300
0104320 ( ( f m e m
0104340 b ( c o n s t a n t ( c h .
0104360 p r o p e r t y ' w o r k s t
0104400 a t i o n ) ) \r
0104420
*
0104460 p r o p e r t i e s ) \r
0104500
*
0104540 ( c o n s t a n t `
0104560 ( ( " R e m o t e S y s t e m
0104600 E x e c u t i v e " \r
0104620
*
0104660 , (
0104700 | c r e a t e | n s c h a t .
0104720 s e r v i c e | S e r v i c e
0104740 I D | _ \r
0104760
*
0105040 | G A P . R e m o t e S y s t
0105060 e m E x e c u t i v e | \r
0105100
*
0105160 | P h y s i c a
0105200 l H o s t F u n c t i o n | _
0105220 \r
0105240
*
0105300 ( f u n c
0105320 t i o n c l : i d e n t i t y
0105340 ) \r
0105360
*
0105420 | O p e
0105440 n F u n c t i o n | _ ( f u
0105460 n c t i o n \r
0105500
*
0105600 n s c h a t . o p e n .
0105620 t t y h o s t ) ) \r
0105640
*
0105700 " C o
0105720 n n e c t t o a r e m o t
0105740 e e x e c o n a n o t h e
0105760 r w o r k s t a t i o n " ) )
0106000 \r
0106020
0106040 ) ) )
0106060 \r
0106100
0106120 ( c o n d \r
0106140
0106160 ( ( f m
0106200 e m b ( c o n s t a n t ( c
0106220 h . p r o p e r t y ' i n t e
0106240 r a c t i v e . t e r m i n a l
0106260 . s e r v i c e ) ) \r
0106300
*
0106340 p r o p e r t i e
0106360 s ) \r
0106400
0106420 ( c o n s t a n
0106440 t ` ( ( " I n t e r a c t i v
0106460 e T e r m i n a l S e r v i
0106500 c e " \r
0106520
*
0106560 , ( | c r e a t e |
0106600 n s c h a t . s e r v i c e
0106620 | S e r v i c e I D | _ \r
0106640
*
0106720 | G A P . I n
0106740 t e r a c t i v e T e r m i n a
0106760 l S e r v i c e | \r
0107000
*
0107060 | P h y s i c a l H o
0107100 s t F u n c t i o n | _ \r
0107120
*
0107200 ( f u n c t i o
0107220 n c l : i d e n t i t y ) \r
0107240
*
0107320 | O p e n F u
0107340 n c t i o n | _ ( f u n c t
0107360 i o n \r
0107400
*
0107500 n s c h a t . o p e n . t t y
0107520 h o s t ) ) \r
0107540
*
0107600 " C o n n e
0107620 c t t o a t e r m i n a l
0107640 - b a s e d m a i l r e a d
0107660 e r " ) ) ) ) ) \r
0107700
0107720 ( c o n d \r
0107740
*
0110000 ( ( f m e m b ( c o n
0110020 s t a n t ( c h . p r o p e r
0110040 t y ' r s 2 3 2 c d a t a ) )
0110060 \r
0110100
0110120 p r o
0110140 p e r t i e s ) \r
0110160
0110200 ( c
0110220 o n s t a n t ` ( ( " R S 2 3
0110240 2 D i a l o u t " \r
0110260
*
0110320 , ( |
0110340 c r e a t e | n s c h a t . s
0110360 e r v i c e | S e r v i c e I
0110400 D | _ \r
0110420
*
0110460 '
0110500 d i a l o u t | P h y s i c a
0110520 l H o s t F u n c t i o n | _
0110540 \r
0110560
*
0110620 ( f u n c
0110640 t i o n c l : i d e n t i t y
0110660 ) \r
0110700
*
0110740 | O p e
0110760 n F u n c t i o n | _ ( f u
0111000 n c t i o n \r
0111020
*
0111120 n s c h a t . o p e n .
0111140 d i a l o u t ) ) \r
0111160
*
0111220 " C o
0111240 n n e c t t o a d i a l o
0111260 u t f a c i l i t y " ) ) ) )
0111300 ) \r
0111320
0111340 ( c o n d \r
0111360
0111400 ( ( f
0111420 m e m b ( c o n s t a n t (
0111440 c h . p r o p e r t y ' i b m
0111460 3 2 7 0 . h o s t ) ) \r
0111500
*
0111540 p r o p e r t i
0111560 e s ) \r
0111600
0111620 ( c o n s t a
0111640 n t ` ( ( " I B M 3 2 7 0 E
0111660 m u l a t i o n S e r v i c e
0111700 " \r
0111720
*
0111760 , ( | c r e a t e | n
0112000 s c h a t . s e r v i c e | S
0112020 e r v i c e I D | _ \r
0112040
*
0112120 ' i b m 3 2 7 0 |
0112140 P h y s i c a l H o s t F u n c
0112160 t i o n | _ \r
0112200
*
0112260 ( f u n c t i o n n s c h
0112300 a t . 3 2 7 0 . h o s t ) \r
0112320
*
0112400 | O p e n F u n
0112420 c t i o n | _ ( f u n c t i
0112440 o n n s c h a t . o p e n . 3
0112460 2 7 0 \r
0112500
*
0112600 ) ) \r
0112620
*
0112660 " C o n n e c t t
0112700 o a n I B M 3 2 7 0 E m u
0112720 l a t o r P o r t " ) ) ) ) )
0112740 ) ) ) ) \r (
0112760 c o n d \r
0113000 ( s e r v i c e s ) \r
0113020 ( t ( | p
0113040 r i n t o u t | p r o m p t w
0113060 i n d o w t h o s t " d
0113100 o e s n o t h a v e a n y
0113120 r e g i s t e r e d N S C H
0113140 A T s e r v i c e s . " t
0113160 \r
0113200 " P l e a s e
0113220 c h o o s e a s e r v i c e
0113240 f r o m t h e m e n u . "
0113260 t ) \r
0113300 ( c o n s t a n t ` (
0113320 ( " R e m o t e S y s t e m
0113340 A d m i n i s t r a t i o n "
0113360 , ( | c r e a t e | n s c h a
0113400 t . s e r v i c e | S e r v i
0113420 c e I D | _ \r
0113440
*
0113520 | G A
0113540 P . R e m o t e S y s t e m A d
0113560 m i n i s t r a t i o n | \r
0113600
*
0113700 | P h y s i c a l H o s t
0113720 F u n c t i o n | _ \r
0113740
*
0114040 ( f u n c t i o n c l : i d e
0114060 n t i t y ) \r
0114100
*
0114160 | O p e n
0114200 F u n c t i o n | _ \r
0114220
*
0114320 ( f u n c t i o n n s c h a t
0114340 . o p e n . t t y h o s t ) )
0114360 \r
0114400
0114420 " C o n n e c t t o
0114440 a s e r v e r e x e c u t i
0114460 v e " ) \r
0114500
0114520 ( " R e m o t e S y s t e m
0114540 E x e c u t i v e " , ( | c
0114560 r e a t e | n s c h a t . s e
0114600 r v i c e | S e r v i c e I D
0114620 | _ \r
0114640
*
0114720 | G A P . R e m o t e S
0114740 y s t e m E x e c u t i v e |
0114760 \r
0115000
*
0115060 | P h y s i c a l H o s t F u n
0115100 c t i o n | _ \r
0115120
*
0115200 ( f u n c t i o
0115220 n c l : i d e n t i t y ) \r
0115240
*
0115320 | O
0115340 p e n F u n c t i o n | _ \r
0115360
*
0115440 ( f
0115460 u n c t i o n n s c h a t . o
0115500 p e n . t t y h o s t ) ) \r
0115520
*
0115560 " C o n n e c t t o a
0115600 r e m o t e e x e c o n a
0115620 n o t h e r w o r k s t a t i
0115640 o n " ) \r
0115660
0115700 ( " I n t e r a c t i v e T
0115720 e r m i n a l S e r v i c e "
0115740 , ( | c r e a t e | n s c h
0115760 a t . s e r v i c e | S e r v
0116000 i c e I D | _ \r
0116020
*
0116100 | G
0116120 A P . I n t e r a c t i v e T e
0116140 r m i n a l S e r v i c e | \r
0116160
*
0116260 | P h y s i c a l H o s
0116300 t F u n c t i o n | _ \r
0116320
*
0116420 ( f u n c t i o n c l : i d
0116440 e n t i t y ) \r
0116460
*
0116540 | O p e
0116560 n F u n c t i o n | _ \r
0116600
*
0116700 ( f u n c t i o n n s c h a
0116720 t . o p e n . t t y h o s t ) )
0116740 \r
0116760
0117000 " C o n n e c t t o
0117020 a t e r m i n a l - b a s e
0117040 d m a i l r e a d e r " ) \r
0117060
0117100 ( " R S
0117120 2 3 2 D i a l o u t " , ( |
0117140 c r e a t e | n s c h a t . s
0117160 e r v i c e | S e r v i c e I
0117200 D | _ ' d i a l o u t \r
0117220
*
0117300 | P h y s i c a l H o s
0117320 t F u n c t i o n | _ ( f u
0117340 n c t i o n c l : i d e n t i
0117360 t y ) \r
0117400
*
0117440 | O p e n F u
0117460 n c t i o n | _ ( f u n c t
0117500 i o n n s c h a t . o p e n .
0117520 d i a l o u t ) ) \r
0117540
0117560 " C
0117600 o n n e c t t o a d i a l
0117620 o u t f a c i l i t y " ) \r
0117640
0117660 ( " I B M
0117700 3 2 7 0 E m u l a t i o n S
0117720 e r v i c e " , ( | c r e a t
0117740 e | n s c h a t . s e r v i c
0117760 e | S e r v i c e I D | _ \r
0120000
*
0120100 ' i b m 3 2 7 0 | P h y s i
0120120 c a l H o s t F u n c t i o n |
0120140 _ \r
0120160
*
0120240 ( f u n c t i o n n s
0120260 c h a t . 3 2 7 0 . h o s t ) \r
0120300
*
0120400 | O p e n F u n c t i o n |
0120420 _ \r
0120440
*
0120520 ( f u n c t i o n n s c
0120540 h a t . o p e n . 3 2 7 0 ) )
0120560 \r
0120600
0120620 " C o n n e c t t o
0120640 a n I B M 3 2 7 0 E m u l a
0120660 t o r P o r t " ) ) ) ) ) ) )
0120700 ) \r \r ( 006 004 s p p . i n p u t .
0120720 e v e n t 006 001 \r ( l a m b d
0120740 a ( s t r e a m ) 006 006 006 001
0120760
*
0121020 006 006 ( * | e
0121040 j s : | " 2 - J u l - 8 5
0121060 1 3 : 3 8 " ) 006 001 \r
0121100 \r 006
0121120 006 ( * * | R e t u r n s |
0121140 | t h e | s p p i n p u t e v
0121160 e n t | o f | | t h e | |
0121200 a s s o c i a t e d | | c o n
0121220 n e c t i o n | | f o r | \r
0121240 006 001 006 006 s t
0121260 r e a m \ , | i f | s t r e
0121300 a m | i s | | o p e n | |
0121320 f o r | i n p u t ) 006 001 \r \r
0121340 ( c o n d \r
0121360 ( ( e q ( | f e t c h | ( s
0121400 t r e a m a c c e s s ) \r
0121420
0121440 | o f | s t r e a m ) \r
0121460 ' i n p u t
0121500 ) \r ( | f e t c
0121520 h | ( s p p c o n s p p i n
0121540 p u t e v e n t ) \r
0121560 | o f | \r
0121600 ( | f
0121620 e t c h | ( s p p s t r e a m
0121640 s p p . c o n n e c t i o n )
0121660 \r
0121700 | o f | s t r e
0121720 a m ) ) ) \r ( t
0121740 ( e r r o r " F I L E N O T
0121760 O P E N " s t r e a m ) ) )
0122000 ) ) \r ) \r \r ( r p a q ? 006 002 n
0122020 s c h a t . o p t i o n s . m e
0122040 n u 006 001 ) \r ( d e c l a r e \
0122060 : e v a l @ c o m p i l e d
0122100 o n t c o p y \r ( f i l e s l
0122120 o a d ( s o u r c e ) \r
0122140 s p p d e c l s ) \r \r (
0122160 d e c l a r e \ : e v a l @ c
0122200 o m p i l e \r \r ( r e c o r d
0122220 006 002 n s c h a t . s e r v i c e
0122240 006 001 ( | S e r v i c e I D |
0122260 | P h y s i c a l H o s t F u n
0122300 c t i o n | | O p e n F u n c
0122320 t i o n | ) ) \r ) \r \r ( d e c l
0122340 a r e \ : e v a l @ c o m p i
0122360 l e \r \r ( r p a q q 006 002 | \
0122400 \ N S . W K S . C o u r i e r |
0122420 006 001 5 ) \r \r ( r p a q q 006 002
0122440 | G A P . R e m o t e S y s t e
0122460 m A d m i n i s t r a t i o n |
0122500 006 001 1 ) \r \r ( r p a q q 006 002
0122520 | G A P . R e m o t e S y s t e
0122540 m E x e c u t i v e | 006 001 2 )
0122560 \r \r ( r p a q q 006 002 | G A P .
0122600 I n t e r a c t i v e T e r m i
0122620 n a l S e r v i c e | 006 001 3 )
0122640 \r \r ( c o n s t a n t s ( | \
0122660 \ N S . W K S . C o u r i e r |
0122700 5 ) \r ( | G A P
0122720 . R e m o t e S y s t e m A d m
0122740 i n i s t r a t i o n | 1 ) \r
0122760 ( | G A P . R e m
0123000 o t e S y s t e m E x e c u t i
0123020 v e | 2 ) \r ( |
0123040 G A P . I n t e r a c t i v e T
0123060 e r m i n a l S e r v i c e |
0123100 3 ) ) \r ) \r \r ( d e c l a r e \
0123120 : d o e v a l @ c o m p i l e
0123140 d o n t c o p y \r \r ( g l o b
0123160 a l v a r s n s c h a t . o p
0123200 t i o n s . m e n u ) \r ) \r ) \r
0123220 ( d e c l a r e \ : d o n t e
0123240 v a l @ l o a d d o c o p y
0123260 \r \r ( a d d t o v a r 006 002 c h
0123300 a t . p r o t o c o l t y p e s
0123320 006 001 ( n s . n s c h a t .
0123340 h o s t . f i l t e r ) ) \r ) \r
0123360 ( p u t p r o p s n s c h a t
0123400 c o p y r i g h t ( " X e r
0123420 o x C o r p o r a t i o n "
0123440 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0123460 \r ( d e c l a r e \ : d o n t
0123500 c o p y \r ( f i l e m a p
0123520 ( n i l ( 1 8 1 8 5 4 1 9 8
0123540 8 ( n s c h a t . 3 2 7 0 . h
0123560 o s t 1 8 1 9 5 . 1 8 6 2
0123600 5 ) ( n s c h a t . a t t e n
0123620 t i o n f n 1 8 6 2 7 . 1
0123640 8 9 9 5 ) ( \r n s c h a t . e
0123660 r r o r h a n d l e r 1 8 9 9
0123700 7 . 1 9 6 2 5 ) ( n s c h
0123720 a t . h o s t . f i l t e r 1
0123740 9 6 2 7 . 2 0 0 2 5 ) ( n
0123760 s c h a t . o p e n 2 0 0 2 7
0124000 . 2 4 6 5 6 ) ( \r n s c h
0124020 a t . o p e n . 3 2 7 0 2 4 6
0124040 5 8 . 2 7 5 0 2 ) ( n s c
0124060 h a t . o p e n . d i a l o u t
0124100 2 7 5 0 4 . 3 1 6 7 1 )
0124120 ( n s c h a t . o p e n . t t y
0124140 h o s t 3 1 6 7 3 . 3 2 1
0124160 1 2 \r ) ( n s c h a t . s e r
0124200 v i c e s 3 2 1 1 4 . 4 1
0124220 4 0 9 ) ( s p p . i n p u t .
0124240 e v e n t 4 1 4 1 1 . 4 1
0124260 9 8 6 ) ) ) ) ) \r s t o p \r
0124276