Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
pascal-demo/qsr.rel
There is 1 other file named qsr.rel in the archive. Click here to see a list.
-2 0 -2 @ < ? H ` H ` H ` HH` D` F` H ` H ` ( R\Q| > 1 4P $ Dp $ \&Q X & p + D
+~ +| 4 , 4 "g 2 1 FATAL -"g " 1 @ x{'
$
Dp 4 $ Dp 4 $ Dp C$p p % T*A / / @ 94 91D + $4 !, 4 # p Dp 4 $Q~ Y|,~ ! ( @0 20gX ARGBLK 0 @` ` H - @
/H ! " 0 % $ / GETQSR 0 @x (` @ (Ti2 (Ti7 ( 5 FR\Q| > 4
% $ Dp 4 7 $ Dp 4 9 $ Dp C$p p % T*A >/ / @ 94 : 91D + B4 ?, 4 A p Dp 4 BQ~ Y|,~ ! F @ P0gX ARGBLK 0 @ H ` H - @ d / % $ / @ O GETME ( @x (` @
Nu 6(TN 5 ((E S \R\Q| > 4
D $ C& 5C( 5, 4 U $ C& 7C( 6, 4 WQ~ Y| [,~ "g _2 1 GETMEM 5"g " 1 @ (TN S(TN S (
b R\Q| > Dp p Jp 4
Z 51D - 4 f4 h DX 4 i D k DX 4 j@@X 4 l p 0$ 0d + w+ 4 m@@X + w4 p DX + w ((" s4 q DX + w@ p@ q@ s4 s $ DX 4 w DX 4 xp ;4 z (A( | ; DX 4 { p 1D + 4 }4 DX 4 $ DX 4 DX 4 U*U
p DX 444@@ 24 8 D 34 7 D 34 $ QD 44
X 5 *A "
4 Dp C$ 2 p $/ / @ 94 91D + 4 * , 4Q~ Y|,~ $ 8 @ H @p {0gX HOWMUCH 8 . 8 @ "@3,"` WHICH ( %@%` USER @x ` H ( $) "`` ) ,*RETRIEVE @ @L-@` QUEUESET @ 0@2 ` PTPASCII '@@ 1 @ @!$4@ d"` LOGNEVER @ @7@q` LOGERROR @ ;@B :` GETPAGES @ @` ` GETPAGEX @ ` !E\7LOGAL !0 0 BWAYS H @X @4` LOGAPPEND H @T` ELJLOGSPOOL %@ K @ @X @Q` MESSPAGE @ @x ` 7DE LOGSUPERCE ` @E @@ S` 7 BATLOGDUM H @ ` 7 NOTIFDUM @ J@8 ` 7 ( \ UL\NOTIFYJOB H `@<c` 7 NEXTINDEX H @x ` 8NOTIFYMAIL P .
@ d f@<n` 8 SMESSPAGE H i@x ` 5QUEUETRANA H @ H ` <H &`@ m,R@ @ /NOTIFYTTY L / \@<X` < OUTLOGDUM L /@ Tn@ ` < OUTPU 0@ uTLOG L / @x ` <PTPFORM < /@ 0 @ d
` <
ON NOTIFICATI d / Q@<u ` <PTPIMAGE D / @ d0` < FSTRING < / 6 @" @)lR ` <MEMDONE < / @"8 ` 6 E,TRUE $ /@#4@"<!` 6 TIME $ / (` 6BREAK , /@#` ` 6CLOSE , / @@ ` 6FALSE , /@$L@"8 ` 6 INPUT , /@%,'@)H ` GETLN @ ( , / ` PUTLN , /@%X ` RESET , /@& ` WRITE !@ 1 , /@' 3 ` TRUNC , / 6 (` ROUND , / (` @ 9APPEND 4 /@'H ` DELETE 4 / ? ` CURPOS 4 / B@x B(` ARCTAN 4 / E@)8 (` ARCSIN 4 / H@)8 (` ARCCOS 4 / 01 J@)8 (` H ! H q $M ! $MH 2- @* / % $ / 2 BREVITY '@@ S 8 2@!\U@3,- ` PACKET 0 2@+ @+` ` 2QSRPID 0 2 @|[` 7MYPID 40 [ ( 2 @|`` 8H . ,_@2P 2IPCFL ( 2@,\b@|e IPCFD ( 2 $ x @ d @x IPCFS ( 2@-<h@|h IPCFR ( 2 @x IPCFPL '@ l 0 2@1dn@24 IPCXX ( 2 @. s $ $ $ / IPCFPT 7 $0 u @.h $ & $wH . $y@/QSRMSG 7 @/@ H - @/\ / "BA } % $ / 5 $@00 7 $| y ! ,TYPE0 ,y@, 0 @00 TESTS ,y @1( rH , , @1DM $ , / IPCFP !0
N 0 @.8 @2b $ $ $ / $ $ $ / 4 $@"? & ` 6 @3
n 6 k ,BRIEF ,k @3,
VERBO !p` SE <k@5"@3,/
TAPEDUM <k@5D&@ `
SSTRING <k 8 ` (@1,) BATCHLOG Dk @ USERLEN <k @x :NOTVERBOSE Tk , 0 @3( : QUEUE ,k @5 :MESSPT 4k @7
_ :$ (` : 9& $9H . ,;@; kHEADER 4k@:4>@:d> DUMFLG 4k A@"<A MORE !4 A $k@8@ @"<S HALFS ,k G@9X CHARS ,k @9 #DD JH }, , @9<M $ , / s H }, , @:O$ $ , / $ , / z D R NUMARGS 8z @x H -S @:| / %S$ / 5S$[@"8 #A [ 7S$J@;TG 7S$M D MESSAGE <D@<$R@7 0 PRINTER <D > c@ e@s PLOTTER <D @i PAPERTAPE LD@5tq@l l CARDPUNCH LD@$p@b DUMQUEUE DD@$ @e BATCH ' t ,D@3<w@ MESS $D@Cz@Ex 5M
D@@4}@7 6 - 4 }I
D@@ @|, :J
D @|} 9RET D@@` @x (
9CONV ! A $D @A@ ;TO6 D @x ( ;H . , 5 $@"<D 7 @Bt 7 wSMESSPT < @=L@E|4 E SENDMESSAG \ @ 4i@.|7 MESSTYPES L > @ 8@FD0@04; RIPTOR PACKETDESC 7@+d> ALFA $ A@N,v 8 0 ANIL @K|D@N GET @K G ABS @I\J @ I ( LN @)8 ( CHR @J ( EOF 8 @ R@JlS ( COS @)8 ( EXP @)8 ( NEW " 0 Z \ LOG @)8 ( TTY b@)H PUT !@ c @M<e ODD @M ( ORD ( kSQR n ( SIN @)8 ( $ & H , , @NDM " ` t $ , / TEXT @Qy@)L+ SUCC @PT| ( SQRT ` | @)8 ( SIND @P @)8 ( SINH @)8 ( ` TANH @)8 ( STRING 0 @T
@U 8 MAXINT 0 @Ql!@x @
?OUTPUT 0 @R @)H READLN 0 @S, RCLOSE 0 ( RANDOM 0 @)8 ( RENAME 0 @SX SETPOS 0 UNPACK 0 @Tl# STRSET 0 UPDAT 'E 0 H - ( MBOOLEAN <M@Udv@"<7 DISMISS <M 8 /@VD1 BREAKIN <M DISPOSE <M CHAR '@ ` 8 $M@W$>@)\g READ $M = PACK $M@[l@ MARK !@ @ $M@[
C GETX $M@Z\F DATE $M@YtI@Z ( ( ICOSD $M@Y@ @)8 ( COSH $M @)8 ( EOLN $M q Q( H , , @Z<M $ , / JSYS NEWZ ( Z [ NEWL PAGE @\ PUTX " x b d PRED ( REAL @U47@)<j INTEG !` kER 8 @]\g@x POINTER 8 @^ @bP 8 ALFALENG @ @`4t@x
s REWRITE 8 @_Tw RELEASE 8 z RECSIZE 8 | ( WRITELN 8 RUNTIME 8 ( TTYOUTPUT H < @b$@)H GETLINENR H STRWRITE @
@ GETINDEX $ @x ( PROTECTION P H 'TH MOUNT ( @p @ 5ZJ c5ZO b H @X @
R\Q| > Dp 4
4 4 4 4 $ D 24 @@ 34 8 D 3 (TA "4 $ QD 44" 71d1$ - XD 44# $ Dp C$ 2 p $/ (P* */ Dp @ 9 Dp p 4& 91D + E4- p 0D+ D4/4142 *U(T 342@@ 243@@ 344 8 D 345 $ QD 446 7$$ 1d1$ - %XD 4 ( T* ;48 $ Dp C$ 2 p $/ / @ 94; 91D + C4@, + E *E@ D4B, 4D $ 32F 7@ 61F - g ( 1f @ A 4D 4E " L@@p 4L $ 61F - H Fp Dp 2dp + Z4M 61D - O p 0& U0f z- ^& f C8 $ $$ .p Dp :p + Q4R p &$ .$ $$ Dp (@ ]4Z p 4DbC$ 0@7, & - ( , 4] p 61F - S p 0( " ( f0h z- U^( h C8 & $& .p /& Fp Dp 2dp + 4
b 61D - d U( n p 0& 0f s- f^& f C8 $ 0D + u4l+ + ~4sC$_ 0@7 *@" w, ` 61F - n p 0( 0h s- p^( h C8 & ( , b:p + k4u "A" p 4DC$u 0@7, w & . ( , }, 4 61D - xC8 $ B$ * @ 4D 4Q~ Y|,~ @q` 0 DOBRACKETS P @"8
, I @r@ @x J @rp @| POS @s 8 @ @| PAGEMODE @ @"8 GETACK 0 @ (Tn (Tw (
+R\Q| > Dp p Jp 4
, x D 74# p p
p , c4% "@ ( $ , 4(Q~ Y|,~ "g@up 82 1 HOWMUCH ="g 2 8` 1@3,2 WHICH -"g 5@5 USER %"g @x DOLIST 5"g " 9 / @ e33 e37 ;H ` ( E" ; ~R\Q| > Dp p Jp Lp 4
), x D 74? 51D - *" D4A4D $ DX 4D@@X 4F@@X 4G@@X 4H $ DX 4I DX 4J @ L p 0$ 0d - z < DX 4L DX 4Op Vp , p x DX 4Q ( U p &$ .$ $ .$ DX 4T $ p && Fp Dp 2dp + d4X $ .p @ ( ]0$ 0d - N. p p 0( 0h 2- ^. F :p + [4\ p p f&& 0& 0f 2- a. Dp 4d p &$ Fp 0f + r4i p 0$ 0d (@
n- g^$ d; & C8p f :p + k4l p &$ .$ 0$ 0d - n. p "( w F 4r p &$ .$ D 84w4zQ~ Y|,~ H x |
A $0 8 WHAT Ad@ FLEN ` @x CONV
AX I WORD @x # P @ ( AP H , ,; 8@0p AlM $ , / 4 ,@"8 6 $AD 6 JOBNA p@ ME < !@N,! FNAME , @)l STARTQUEUE T $ @ V?Qe <V?Qk ; @ ~ @y4|@z}@zl} ( (Q ' ?R\Q| > Dp Fp 4z 51D - C 51F - + .& F 4* (P
/ 51D - - 80& 0f - u. p . F 4/ 51D - 0 8.& @(P 80& 0f - 2. p F 45 8.$ D 84;Q~ Y|,~ ? A0 I0 INDEX ( A` @|F VALUE ( $ G @x H QUEUESWITC X C @ &+Z '&+Z ' @ ` AD? LH ` (
M R\Q| > Dp Fp Hp 4= 51D - 6 4P4S X .$ DX * U4S 80$ 0d - 9. p && .& $ .p F 4U 8.$ p && * ^. 0$ 0d - W. @@ 4[ $ p && Fp D :2dp + n4a 8.$ ( @* f. :0$ 0d - _. p :0( 0h 2- h. F : :+ d4e p * o p && 0& 0f 2- k. Dp 4n p &$ F :0f + |4s :0$ "
P w0d - q^$ dL & C8p f : :+ u4v 8.$ p && . 0$ 0d ( - x. p F 4| 8.$ p && . D 84 4 Q~ Y|,~ A@ )0 8 INDEX ( @| NAME . P @ @)l LEN AP @x CONV A H . $ 0
A0 WORD AH @x CHARS ( Ax H , ,LAM ( !$ , / 4 , $@"8 6 $ Al 6 H QTEXTSWITC @ * \
@ %]_& M%]_+ L @ ` A $ (@ , 2R\Q| > Dp 4
$ Op , '4 .Q~ Y|,~ COPIES rA` ( 4 9t-C ,@O , ( A < DR\Q| > p 4 0 $ Dp p , R p x , '4 >Q~ Y|,~ $ D rA Kp- NAME %r @N( P- QFORM -r ( M H`- @ ]p[ < + < (@ N TR\Q| > Dp 4 B $ p , '4 PQ~ Y|,~ rA ( V [p- FORM %r @ ` P- QTAPEFORM Mr X`- @ %UBt N%UB N (
^ dR\Q| > 4 R $ & , '4 `Q~ Y|,~ r h fp- LETE QDISPOSEDE ur `- @ '4 ^ '; ^ ( P k rR\Q| > Dp 4 b $ p . , '4 mQ~ Y|,~ r A ` y0 UNIT @x QUNIT ( " z v @ { k&<[K k @ ` A t r (
|
R\Q| > 4 p $ , '4 ~Q~ Y|,~
r
0 QLOWER 5r @ ! Z |! _ | @ ` A t
(
R\Q| > 4
$ , '4
Q~ Y|,~
r
0 QUPPER 5r @ &@xz
&@x
@ ` A!D
(@
R\Q| > Dp 4
$ p , '4
Q~ Y|,~ rA$ (
#0 IDTIME 5r @x QAFTER 5r
z @
(@
&
,R\Q| > Dp 4
$ p , '4
(Q~ Y|,~ rA& (
.
30 LIMIT -r @x QLIMIT 5r
0 @ t k
& t o
& ( P
6
=R\Q| > Dp 4
* $ & .p , '4
8Q~ Y|,~ 2
>A(
C0 UNIQUE 0 @"8 QUNIQUE 8
@ @ &<[
6&<[
6 ( P
F
MR\Q| > Dp 4
; $ & .p , '4
IQ~ Y|,~ 2
OA*
T0 RESTART 8 @"8 QRESTART @
Q @ $A }
G$A
F (@
W
]R\Q| > Dp 4
K $ p , '4
YQ~ Y|,~ rA, (
_
d0 LOG r @ QOUTPUT =r
a @ "vW
W"v[
W (
g
nR\Q| > Dp Fp 4
[ $ C'p p , M4
jQ~ Y|,~ $@@
o rA.
x0 ACCTNAME Er
u@)l
u ACCTLEN =r @x
xQACCOUNT Er
r @
7#
g
7'
g ( A
{ R\Q| > p 4
l $
Dp p , @ p x , '4
}Q~ Y|,~ $ rA0p
0 NODE %r @N( QNODE -r (
@ m>?
{"C
{ ( > RDp QFp 4 $ C'p p , M4 Q~ Y|,~ ,~ $@@ rA3 0 USERNAMER Er @)l USERLENSER =r @x QUSERNAME! Mr ( @ &F$ > Dp 4 % $
p , '4 3Q~ Y|,~ rA70 ( 9 >0 HOW r @8 QNOTIFY =r ; @ " (D 1" (O 1 (@ A GR\Q| > Dp 4 5 $
p , '4 CQ~ Y|,~ rA90 ( I N0 HOW r @ QBATCHLOGD Mr K @ W;M AW;W A (@ Q WR\Q| > Dp 4 E $
BR\Q| > Dp Fp 4
U p 4 d 51D - R 4 f4 h *A i X .$ DX 4 i p 0d +
4 k4 m 80$ 0d - . F 4 m r $ p Fp Dp 2dp +
4 q p /$ 0$ 0d - o^$ d p p /( D z0( 0h - w^( h C8 & C8p f :p + t4 u 8.$ 0$ 0d - { Q*
. Dp p Vp ,
p p x F 4
8.$ D 8+
>4
4
8 @
0$ 0d -
. F 4
$ Dp 0d +
4
p /$ 0$ 0d -
" @
^$ d p p /( 0( 0h -
^( h C8 & C8p f :p +
4
( @
8.$ 0$ 0d -
. Dp p Vp ,
p p x F 4
d e "
%p 4
# $ p Fp Dp 2dp +
44
% p /$ /$ 0$ 0d -
^$ d *
- p p /( 0( 0h -
,^( h C8 & C8p f :p +
(4
) 8.$ @"
60$ 0d -
0. Dp p Vp ,
! p p x F 4
4 8.$ D 84
< (
>4
>Q~ Y|,~
@ XAH`
R2 , NOTESTR ?X
I@1,
I `
INOTELEN ?X
L@x I X
O@x A X @N(
Q QNOTE /X
F @ m@ a" ' a @ @ ADL
@ADD
AA>
AAA\
B (@
U
[R\Q| > Dp 4
> $ p , '4
WQ~ Y|,~ rAKp (
]
b0 BLOCK -r @x QBEGIN 5r
_ @ ^S(
U^S/
U (@
e
kR\Q| > Dp 4
Y $ p , '4
gQ~ Y|,~ rAMp (
m
r0 PRIORITY Er @x QPRIORITY Mr
o @ #=rb
e#=rg
e (
D
u Q| > Dp 4
i p 4D
|4
w 51D - g F 4
y 51D *(U*
}-
z 8$ .& F 4
|4 "D 24 - :XD 44
Hp $ Dp C$ 2 p $
Q" /
p @ 94
91D + @ DOQUEUE @
ue=2
u @ x AO4* > Dp p Jp Lp 4
}4 4 4 "D
7 < DX 4
94p .x 4DX 4 :2dp + T
p $ Dp C$ 2 p $/ /
p @ 94+ ` %0 WHATAaX R Ad$ A`p 0 @q @x CHARS ( Aa H , ,
Ab 6 SEQNUM 4 @| REQNUM #@ 4 @| OWNER , @)l DOACK , @"8 OWNER 0@ LEN D @| JOBNAME <Act@N,
#
+ x AUd
P ( /R\Q| > 4,Q~ Y|,~ r " 0 20 QSRINIT =r @ %("I (%("S ( 8 8 5NTRIES 0 @G49@x MSEND ( Ai,<@x $MRECV ( ,
> @@x $ERSTR ( AhtC@x DISMS ( s@x F ;IPCIW ( @bd @x MUTIL ( Ak
N@x %MUQRY ' O ( AjTQ@x MUCRE ( @x MURSP ( @x @@ W
PRIOU ( AkD[@x SPQSR ( Ak|2@x IPCF1 !`
U `6 0 @6\@x
&4- 5 j / K MQSR PS:<H hEDRICK.431>QSR.PAS.1 q P c D"
e1
#
e=2
u=rb
e^S(
Um@ a D"{-Z !
{
7#
gvW
WA }
G<[
6t k
&
D"
Z |{ k
e33 c (Tn
Nu 6 (Ti2 x{' -2 D"%("I (e1
# 2
u#=rb
e^S(
Um@ a@Sg QW;M A" (D 1 D"{-Z !&F$
{
7#
g"vW
W$A }
G&<[
6 t k
&
D"&@xz
! Z |{ k '4 ^%UBt N]p[ <@_C ,%]_& M&+Z ' D"V?Qe <e33 (Tn 5ZJ c(TN S
Nu 6(Ti2 x{' -2 "OHW OH. OHf eo#/ ` ?7
z* c 6cg C1 x a J1 gg a J1 gg ( ( y t