Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0081/tpdemo.rel
There are no other files named tpdemo.rel in the archive.
lA-8 0 lA-8 p ` @u4 . / (k d%MF x F $ 6"AXe> \y5}m_1T0 "A(RO&p $A+0U?(YC: &A)i x O&U)i (A*Y@ *A,S; "*A+,S; $*E,S; &*E+,S; x W (*I,S; **I+,S; ,,A,Ra@ ..A(2H 0.I(7g^. 2.Q)9 x `e? 82AZ]O&*7N $ :2A&YKQV):kJs(9K <2AVYi@ >2AfTL @ x h2AvPYBDVK B2API D2A
Wk6.*1 F2A
&YS F@ H2A
FTL J2A
fP x qI L2A V_Z( N2A V_Z( $ P2AWk6.*15,:6C0 R2A&TL T2AFP x yI V2AfPI X2AvTL Z2API \2AQ_7 ^2ATL ` x 2AVRq'#&( @ 42eK,z_@ , 5 -i9CR,FXCJ
|Pa!Uh6Jh $ 5 -i9CR,FYK%w5:
#B 'Bk OC#(7g^. HC#(7g^.&VS:( *D .Dk
E=@ x UEJ,mk@ EUTY |EUTYo aEUT YCd sEUTI1 nEUU-9h e x EUUIzP YEUUksY EUV=d jEUVN8 1F 5Fk G!T;v[ x $ G>vLWXj)gBHt
GW)7hjeR 8H I$VVKO r I$VZS6( I x , I' :G". I5TI ,I5U
3I5U[ I5U[` %I5W 7IVm^-Y&tP > x 5IVm^-Y&tVW^
K;$\M[ +` Q9 Q>dFVZ TRj{-r CS1RI ? x =S1RK FS1R6K S6 (9eH
&S:$^
S:$^f zY FVS;.I !Y&t\mY6FZQ'(ZeO Q x NY&t\m_W Y&t\ma(ZeO ~Y&t\mi=V
T]P uY><y25&p qY>=MiJL\` x W[' 0 [4 [< M[?VZ^j {2 ]=TXt^ `_1RK( d_1T89e&
y- x _GR` [_W#+] X_W#,ze&tp a =weT:G, a =weT\Y_K e Ky x hJj,: gL
gR- lkN.&ZC
dP ikN.&ZC
d\` boJZ` sd x @ @ p ( @ @ F
8 x y ` F h @ @ ` @ @ x G
P X 0 @ @
@ @
G x (
H ` @ @ x 0 @0 @ G # x P
F @ p D @ P D @ P ( @ X H P x #0 D @ P 0 0 @ X H
L0 @ P x @ @ , 8 ? X % h ! C 0 G X x 4h @ x x ` 0 @ K @ 0 @ x = ( " 0 @ E x L @ @ x ( E0 L @ E 0 [ 8 B ` x N0 X % G `
H @ P % 8 x ' 8 x V 0 @ K 8 X z l @4 E @ z
( ` 8 J0 x @ 0 8G @ 9G
x X @ @ x @ @ : 0 @X t @ :G p 0 @ ?G x K P
< x E H ! Y " H
` !H @ @ X K x ( @ M ! Qax H `XH
! yex ( Y H x " V
H !
x A @ YJH ! h
H @ Z
H x @ ^
0 ! 0
0 @ ZJH
!
A0 @ [
x gH \ !I| 0 [IH p ! y 0 x o \
H ` ! @ 0 @ \KH
x 9! @ x x `] @ 0X;X 0 @ ]H < @ $ x @ `F <!P 0 @ $ a B p b x " P B#@ 8 L ( d ` B#x 8 L ( g p C$0 x 8 L ( iG C$h 8 L ( kG D"P 8 L0 ( x nG b, h @
8 @
A X @
A x @ "
` @
a @
0 @
, H @
4 x " @ + H @
= h @
V @
\ 0 @
c H x ( 3@
{ h @
@
\ @
c 0 @
z x < H @
` @
x @
3 @
G x @ D ( @
I @ @
z X @
| p @
x " @ M @
` P @
m @
s @
w @ x ( U@
y h @
@
@
( 8 @
C x ^ P @
G h @
N @
P @
m x @ f 0 @
q H @
y ` @
@
x " @ o @
1 8 @
5 P @
A h @
f x ( w@
j @
x 0 @
p @
!p @ F F (k8 > @ x .@ F hp DATE: - - TIME: : LINE # - DEMO MULTI-USER YOUR TOTAL IS ; @ D
04* " @ iB$[77 @b 6@ D, O@ D \ E < , , @ iB$[7, + ,
"E
+ s,
+ E,
6p 0p , /0 $0 p`p` + d0p . ("" Q( zX(@ *(@ <, @@ 6j 0j , /* $* j`j` + d*p .
Q(( *T"* X( z*( |
. %h, 1f 5f #+ )+ + ,+ ,+ ,+ , *U(Q
&+ ,+ ,+ ,+ ,+ ,+ ,+ , <, < , *, ,
$ % *Q
T* . D ! &*( ': Z( ,h&Z( 'h' 4 @ E+ , , -*( % % D & * U" 7 D & D 'Z( 'h': Z$ . " D =b ; = @ E+ , 4 .2B (Q * ?+ AZ( h/+ \
/ ( 8 , . @ #
0 /h0, (*U" H
/ ( 8 , C 0@ + Q1 % D ! &*( ': Z( ,h& V *U*U
P @ E+ 5*( " % D " 5*( ': = @ E+ , = 6 % *U(U* Y D ! &*( ': , @ E+ , V 1 % D ! &*( ': Z( , *T" ah& c @ E+ , \ : Z$ 6t 0t , /4 $4 %t " %D =b i *" j: 6p 0p , f/0 $0 %p`p` + od0p . 7 H@ Z$ 6t 0t , k A"
r/4 $4 %t7 " #D =b t6t 0t , r/4 $4 %t8Z( 'H { @ E+ (U*U* {, c 82B + ~+
92B + + c 92B + + z :2B + *U*U* + z :2B + + | ;2B + + m ?*( # % D # ?*( ': + c (*
, { ,
@ ( 8 , I @ #
@ AhA, G
B ( "*A 8 , @ #
@ ChA,
C ( 8 , @ #
@ *P ( DhA,
D ( 8 , @ #
@ EhA,
E ( 8 (*U* %, @ #
@ FhA, # F*( "(GhG %dH D # H*( ' *U .:
E ( 8 , % @ #
@ Ih0, )
I ( @n hJ+ 7 * A 6+ \
I ( 8 , 0
E ( 8 , 8 2$ + C
E ( 8 (*A ?, ; . @ #
@ Eh0, 3
I ( 8 , ? "
E ( " *P G 8 , E . @ #
@ Eh0, C
E ( 8 , H 1` + P *DE P+ \: 6p 0p , v/0 $0 %p`p` + Vd0p .Q(KX(@ *(@ Z$ 6t "
X0t , R/4 $4 %tP "
D =b[,
I ( 8 , N @ #
*U* a @ Ih0, L+ c, \ Z$ Q " %D =bf T*( ) % D * T *U*U* i*( . W*( 0 % D 1 W*( 6 \*( : % D ; ]*( = c*( C % D C *U*U" r c*( E h*( I % D J i*( L n*( Q % D Q n*( T .@ + c (Q z, c : 6p 0p , Y/0 $0 %p`p` + d0p .Q(oX(@ *(@ Z$ (AD 6t 0t , }/4 $4 %tt "
D =b6t 0t , /4 $4 %t8Z( 'H *Q"
u ( 8 , @ z7` z+ z0 2+ + *" : 6p 0p , /0 $0 %p`p` + d0p .Q(uX(@ *(@ Z$ 6t 0t (* , /4 $4 %tw " D =b + z, &
u ( 8 , "T*Q 6 @ {7` {+ : {0 2+ :@@ |+ G: 6p 0p , ./0 $0 %p`p` (PA >+ @d0p .Q(uX(@ *(@ Z$ 6t 0t , </4 $4 %tw " D =bE+ (T(* G, 3 ( { @ {, G *: |# |& t@ #
| }hA, b
} ~ ( O , .
` 2@ Q (A Q
XL . hR, !> {: 6p 0p , C/0 $0 %p`p` + Zd0p . ("
ZQ( X(@ *(@ (h Z$ 6t 0t , V/4 $4 %t " D =b` 0@ (U*U" b+ eZ( ,h& I @ E+ |2@ z+ g+ c6@ {+ z: 6p 0p , ^/0 " k$0 %p`p` + nd0p .Q(X(@ *(@ Z$ 6t 0t , j/4 $4 %t " "D( sD =bs6t 0t , q/4 $4 %t8Z( 'H G @ E+ + I, I ,: * D( |+ c, z .: 6p 0p , u/0 $0 %p`p` + d0p .Q(X(@ *(@ " U" Z$ 6t 0t , /4 $4 %tt "
D =b# @ E+ , | 0 *( A *U
0
h0, N( h ( h
, . h
T : F: ! X2,> 0x+ ! H (h <, X @ Z<, *T"@
+ + + ` 4`'@@
( , 5 " )n h0 *U** &, $h % H (h <, X @ Z<, + .+ .+ ` + *E * /4`6@@
( , " " )n h0, & (h ( *T*U* 7 H [ )QH <, * X @.Z<, ,+ =+ =+ ` :4`E@@/
( * *T( @ , 1 " )n h0, 5@@>
( , @
"A
H ( , G .
( , I . @ )n } *T QhA, D
} , .
` 2@ T * U* U
QXLS . hU, Z$ Q " %D =bY *( )(h %d D * *
" ] *( . .@ + c, 2: 6p 0p , /0 $0 %p`p` + fd0p ** f.Q( X(@ *(@ Z$ 6t 0t , b/4 $4 %t " D =bl+ |, ` 4 *U*Q" n % D ! &*( ': , @ E+ , m 6 !"/2@ + w+ c *
( w+ =, s 8@@ B@@ C, w :: C6p C0p , i/0 $0 p# " 2@ (D" + Z$ 6t C0t , |/4 $4 t# " D =b+
$6t C0t , /4 "( $4 t# " D =b
( 8 , L 3` C+ + y@@ C, y <: C (**
( 8 ,
2 C+ + , > B0@ $+ + : B6j B0j $ (A(A , /* j$ 0@ + + 6p C0p , /0 $0 p# % 2@ + " *(" !+ G6p C0p , /0 $0 p' & 2@ + '+ N@@ B, @6j B0j $ (D*D *, #/* j$ "'2@ + .+ : B6j C0j , */* $* j( ( 8 (Q
2, 2 B+ : 4 6v C0v , //6 $6 . t(Z( H + C6j B0j $ (Q@ ;, 6/* j$6p B0p , ;/0 6r C0r , =/2 $2 . p( H , ( "(D C B B0@ $+ F+ : B+ (, C D6j C0j , ?/* $* j) ( 8 (U
L, 2 5@N+ N+
, G F@@ C, N H6j B0j $, I/* j$ "' "Q T2@ + V+ q6j B0j $, R/* j$ 1@ + Z+ _
( 8 , L *UD ]2@ C+ _+ q+ _+ m C0@ + f 4 6v C0v , W/6 $6 . t(Z( "Q
eH + m: C6j B0j $, b/* j$6p C0p , h/0 p) H , P J (U"T n B0@ $+ p+ q: B+ P, m L C5@s+ 6j C0j , j/* $* j( E
T" v ( 8 , \ @ D, q N C5@{+ D5@ 4 6v C0v , t/6 A"" $6 . t(Z( H + 6j C0j , ~/* j)6p D0p , /0 6r C0r (
Q( , /2 $2 . p( H > C> D+ y, y P@@ B@@ C,
R6j B "
D 0j $, /* j$ "'2@ + + j6j B0j $, /* j$ 1@ + **T" +
( 8 , w 2@ C+ + j+ + 16p B0p $, /0 p$ * UD ! 2@ + #: B+ 5 C0@ + * 4 6v C0v , /6 $6 . t(Z( "Q
)H + 1: C6j B0j $, &/* j$6p C0p , ,/0 p) H , T (U"D 2 B0@ $+ 4+ j: B+ , 1 V@@E6j C0j , ./* $* j( ( 8 (D( :, 6j C0j , 7/* $* j) ( 8 , : / @ D, 5 X6j B "
D C0j $, </* j$ "'2@ + G+ j6j B0j $, C/* j$ 1@ + L **U K+ Q
( 8 , ? 2@ C+ P+ j+ Q+ f: D6j C0j , H/* $* (" Tj( ( 8 , M 2 D+ ] 4 6v C0v , R/6 $6 . t(Z( H *" \+ f6j B0j $, Y/* j$6p D0p , ^/0 6r C0r , `/2 $2 . p( D*Q* e H , A Z B0@ $+ i+ j: B+ A, f \ C5@l+ @@66j C "D m0j , b/* $* j( ( 8 , U 6j C0j , n/* $* j) ( 8 (*Q v, q / @ D, j ^ C5@z+ D5@ 4 6v C0v , s/6 $6 "Q ~. t(Z( H + 6j C0j , }/* j)6p D0p , /0 6r C0r , *E" /2 $2 . p( H > C> D+ x, x `7@ F+ > F[x 2P, (D > + , b, + U x H zH H Bh H H @ %! ?? TR ANSACTION PROCESSOR HAS MORE TTY'S THAN COBOL PROGRAM - -
?? CALL APPLICATIONS PROG j #RAMMER
!STOPECHOF !: 'WELCOME TO MULTI-USER COBOL -DEMO- USING
+ T/P - - PASSWORD: @dx H zO?' 0 zH z@ a !STOPECHONERROR - - PASS !p
4WORD: @f( ( #!STOPBADPW* H 'I$P Qf aJMm eX:C gR~ INVALID CO hA* <MMAND - TRY HELP @g8 8 $0 @ : a H , H *u:@ E 0 : T T " < " 0 #H 0 z @ (P.S. - YOU ASKED FO ( x MR DATE LESS THAN 5 MIN. AGO!!)H %H DATE = TODAYS DATE & TIME@j ' *HELP = THI !p x VS TEXT @jP / 1PRINT= PRINT NN LINES; XX LINES @ A BURST @k 6 0 ;REPEAT= TY p ^PE BACK TO THE USER EXACTLY WHAT HE TYPED @kX > 8 DADD = ADD 3 NUMBERS AND PRINT < g THE RESULT @l@ E JSTOP = GET OUT OF THIS PROGRAM & UNSLAVE SELF@m M
RHOW M oANY TEST LINES DO YOU WANT TO PRINT (01-99) ? H %H ?? NOT WITHIN RANGE H " * xHOW MANY LINES PER BURST (01-99) ? H $@ H ` : @ },8 ,8@ ( , "(TYPE <CR> FOR MORE) H "ENTER 3 NUMBERS (SEPARATED BY COMMAS) TO ADD TOGET &E*( HER <H !"Bp@
x
x !
x $H
'@
x "
x H I P H @ @ *U*@ ` %`
0 P ` 4 ` @ :\ ` ': : * t * ( +NUMBERS ENTERED NOT NUMERIC H #!STOP r <!B *D"U( "<"$ !H ! AH <\ <%d <& ! ;< !H !
!H 9 <* D"Bz V?Qj bgsC( +`[G ;` Vl> 9`-$ ` x7V bT3[ eVZq D"eks.
d"a* emWOn emWP D"eW c!o+ fPa-+ Wb2,C d] ND UbQ0%B vbDw