PDP-10 Archive: pascal-demo/server.rel from SRI_NIC_PERM_SRC_3

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - pascal-demo/server.rel

There are no other files named server.rel in the archive.

 MM:0MM:@

```H`H`	(R\Q|>14 $  Dp $\&QX & p+ 	 D
+D+4,4Q~Y|,~          "g21FATAL      -"g"1@	x{'
SR\Q|>p4

 $, D54 $C&6C(5,4 5 Dp	(U(U(4  D24@@34@@34  $QD44! 5XD44" 51D- 	 Q
 & & F4$ 51D- %@@4' 51D- (p4) Dp $ Dp	(
E*.C$2 p  $/ /

p @74, 71D+542,44 3 D7	*U@745@@247 7 D348 Dp $ DpC$2 p  $/ /

p @7	**T*?49 71D+B4?,4A 2 D84BC88$1D+O4D4FC$	 
(H 0@7,C& * ,C88& (,,4G,

4NQ~Y| P,~	 @QINFO error code           X@
pMt,}"gNAME       X@ @ 	 xYP,xREQUESTPIDPX@PP,xH/T\^@XXIPCFL     (X@

\a@

LeXIPCFD	   <b     (X@

HXH     IPCFS     (X@

LhXIPCFR     (X	0`j@

HXIPCFPL    0X@ln@<^IPCXX     (X@s^$$ $d	 sIPCFPT    7@h\$& $wH. $y@'IPCI0     /@@@

L|	 {XIPCI1     /@p@

LXIPCI2     /@ XH, ,@L	(@A  $$ $dIPCFPN    0@8@a\$$ $d$$ $d

4 $@76  @n6  k  ,TRUE      	'@$k@,@4 LTIME      $klBREAK     ,k@Xd	 `CLOSE     ,kdFALSE     ,k@D@0LINPUT     ,k@$'	0&@@PGETLN     ,k`PUTLN     ,k@P`RESET     ,k	0`.@`WRITE     ,k@3`TRUNC     ,k6hROUND     	  7,khAPPEND    4k@@`DELETE    4k?`CURPO	 `

?S    4kB@

HhARCTAN    4kE@0hARCSIN    4kH@0h	 @HARCCOS    4k@0hH!    Hq $SERVER    4k@Wh$(1P& $QH,  @,d$ $d@MM:MM?@x@dQ@	Q	(*Q(TiR\Q|>4
O $ D24V 7 D34X $QD44Y 61d1$	"A"]- XD44[ $ DpC$2 p  $/ /  @74^ 71D+f4c	*Te,4e 3 D64fQ~Y|,~          m0gXGETREQUEST nP gX@(Tm9U(Tm?T	(*Q(pR\Q|>4
g $ D24r 7 D34s $QD44u 61d1$	*U
x- ]XD44v 6 D34y $ DpC$2 p  $/ /  @74{ 7	"T1D+4,4Q~Y|,~          0gXSENDREPLY  	H gX@MD;wpMD<p	 8MSEND     (@+\@

H$MRECV     (@

H$ERSTR     (	<@r@+$@

HMESS       @*d@+5M         @#t@5I    	 $

H8RET       @$ @

H7CONV       %@( 8	 )$"%XWD       @%@%`9BITS       @%09H( $,

$ $d	 `

X-H. ,/@'HWORD       2@

HLH        @&X@',5RH

6     @'$$ $d$$ $d4 $>@7	&p>6  @(26  /H. ,C@*

/WORD      $/@)<F@

HDUM  	 4 HG     /@)K0$ $dERROR     /@)h

$ $d	 O4 $R@06  @*DF6  CQUIT      $C

X"$& $wIPCII     ,C@

H
MUTIL     ,C@,@

H
	 
8`%PRIOU     ,C@,X@

H
 RIPTOR    PACKETDESCCi@TGE   	 piSHORTMESSAdCl@|eMESSPT    4[email protected]o@iHISPID    4C@

Lr	( <q6OURPID    4C@

H7MESSAGE   <C@/4x@l7PACKET    4C@Tr	2Hz@P2MESSPAGE  DC@T~@

H6GETPAGES  DC 6ALFA      $C	.p`@$56NIL       C@4,@6H6GET       C@3L
 6ABS  	!@     C@2

(6LN        C@0(6CHR       C@28(6	 0 EOF       C@3(6COS       C@0(6EXP       C@0	 (6NEW       C 6LOG       C@0(6TTY       C%	0$@@PUT       C@5l( ODD       C@58(ORD       C	  @-(SQR       C1(SIN       C@0($&  	 <@5TEXT      $C@8|8@DjSUCC      $C@8L;(SQRT      $C>@0	 
>(SIND      $C@8@0(SINH      $C@0(TANH      $C	0@F@0(STRING    4C@<J@=8MAXINT    4C@9d @

H?OUTPUT    	% O4C@:@@READLN    4C@;$T RCLOSE    4CW RANDO	  WM    4C@0(RENAME    4C@;P SETPOS    4C 	 0`UNPACK    4C@<dc STRSET    4C UPDATE    4C	 `h H- (BOOLEAN   <@=\5@4vDISMISS   <@><p BREAK	 qIN   < DISPOSE   < CHAR      $@?@<'	 @yREAD      $| PACK      $@Cd MARK      $@C

8 GETX      $@BT DATE      $@Al@B(COSD      $@A8	0@
@0(COSH      $@0(EOLN      $(H, ,@B4	" $ ,dJSYS        NEWZ        NEWL 	        PAGE       @D PUTX       $ 	 p$PRED       (REAL       @=,v@4*INTEGER   8@ET'@

H	 
8,POINTER   8@F@JH8ALFALENG  @@H,3@

HREWRITE   8	8 5@GL6 RELEASE   89 RECSIZE   8(WRITELN   	"r=8? RUNTIME   8(TTYOUTPUT H@JE@@GGETLI	 @FNENR HH GSTRWRITE  @K GGETINDEX  @@Ih G	 NNEXTFILE  @@

H(GPROTECTIONP GH'TH

<	*TW*dKSERVER'PS:<HEDRICK.431>SERVER.PAS.1OHfeo#/	`6"kNe                                                                              h                                   PU	D"
xDc]Ez*If73Kf7*3M((k: