Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
pascal-demo/user.rel
There are no other files named user.rel in the archive.
=}Z0=}Z@
```H`H` (R\Q|>14 $ Dp $\&QX & p+ D
+D+4,4Q~Y|,~ "g21FATAL -"g"1@ x{'
gR\Q|>p4
$, D54 $C&6C(5,4 5 Dp (U(U(4 D24@@34@@34 $QD44! 5XD44" 51D- Q
& & F4$ 51D- %@@4' 51D- (p4) $ DpC$2 (U*. p $/ / @74, 71D+441,43 3 D744@@2 *P *746 7 D347 $ DpC$2 p $/ / @748 2 D94= *(P?C89$1D+R4?4AC89$0D+J4BC$ 0@7,C& * (H ,,+Q4DC$E 0@7,FC& *$ ,HC89& (, *T*Q
P,I4J,
4Q71D+U4R,4TM51D-+\D64UQ~YY|,~ Z? The server you have asked to talk to is not running? Unable to find the serv Hber you have asked to talk to - INFO error code @
yXIPCFD (@XH IPCFS (@||@
| <|XIPCFR (@XIPCFPL 0@,@|^IPCXX ( 8 #@\^$$ $xIPCFPT 7@(\$& $H. $
XIPCI1 /@0@
XIPCI2 /@` qXXH, ,@
$$ $xIPCFPN 0@x@\u\$ ($ $x$$ $x4 $#@w6 @T6 @x& ,(TRUE $@l+@t4LTIME $lBREAK !/ ,@dCLOSE ,dFALSE ,@(@pL 7INPUT ,@d;@PGETLN ,`PUTLN ,@
@`RESET ,@@`WRITE ,@TG`TRUNC , (HJhROUND ,hAPPEND 4@`DELETE "
0Q4S`CURPOS 4V@hARCTAN 4Y@phARCSI `YN 4\@phARCCOS 4@phH! Hq $USER !Ab$@Dkh$& $eH, @lx$ $x@=}Z/$#@~@dZ@tZ@ L` (*"h}R\Q|>4
X $QD44j 61d1$- XD44l $ D24o *U
q 7 D34p 6 D34r $ DpC$2 p $/ / @74s 7 "Ty1D+{4x,4zQ~Y|,~ 0gXT SENDR EQUESX gX@MD;wiMD<h (*Q(R\Q|>4
{ $ D24 6 D34 $QD44 61d1$ *U
nXD44 7 D34 $ DpC$2 p $/ / @74 7 "T1D+4,4Q~Y|,~ 0gXGETREPLY @ gX@(Tm9(Tm? 8 MSEND (@+d#@$MRECV ('@$ERSTR ( <@r(@+,*@MESS @*l-@+5M @'L0@@5I !4P1 @&8@
68J @
08USERLEN 8@'@9 $9GETPAGES @@#P 9RET @'x@7CONV @(( (`B9H. ,D@*WORD @)DG@DUM @)$L0 (
J$ $xERROR /@)p
$ $x4 $R@p & S6 @*LG6 DQUIT $D@"$& $IPCIW #[,D@
MUTIL ,D@,@
%PRIOU ,D@,`@ d
RIPTOR PACKETDESCDi@~GE SHORTMESSAdDl@<f <plMESSAGE <D@/<o@TiMESSPT 4D@/
r@DlHISPID 4D@
u ( u6OURPID 4D@7PACKET 4Du@2MESSPAGE DD@ 6 2`}@6ALFA $D@d36NIL D@4@6 6GET &D@3$ 6ABS D@1d(6LN D@p(6CHR ! D@2(6EOF D@2t(6COS D@p(6 @EXP D@p(6NEW D 6LOG D@p 0(6TTY D#@PUT D@5D& ODD D@5 ((ORD D(SQR D/(SIN D $@0@p($& TEXT $D@8T6@hSUCC $D@8$9( 9SQRT $D<@p(SIND $D@7p@p(SINH $D@p 8A(TANH $D@p(STRING 4D@;\H@<h8MAXINT 4D@9<4 0PJ@?OUTPUT 4D@9h@READLN 4D@:|Q RCLOSE "@R4DT RANDOM 4D@p(RENAME 4D@;( SETPO [S 4D UNPACK 4D@<<` STRSET 4D `cUPDATE 4D H- (BOOLEAN <@=43@ttDISMISS &l<@>n BREAKIN < DISPOSE < CHAR !pt $@>t~@|$READ $z PACK $@C<} 0@}MARK $@B\ GETX $@B, DATE $@AD@Ap
(COSD $@A@p(COSH $@p(EOLN $ (H, ,@B
$ ,xJSYS NEWZ "@ NEWL PAGE @Ch PUTX @ ! PRED (REAL @=t@t' 8 'INTEGER 8@E,$@POINTER 8@EX@J 8ALFALENG @@H1@ 0REWRITE 8@G$4 RELEASE 87 RECSIZE 8 8(WRITELN 8= RUNTIME 8(TTYOUTPUT ' AH@ItC@JGETLINENR HF JSTRWRITE @I JGETIN !IDEX @@I@ JNEXTFILE @@(JPROTECTIONP J *@RH'TH
$='xUSERMDPS:<HEDRICK.431>USER.PAS. Z1 "OH.OHfeo#/J`6"kQc(T`$e c PS D"(Tm9
Dc]Ez*Lf73Nf7*3P/$#gC1xaJ1ggaJ1gg((i: