Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0074/alged.rel
There is 1 other file named alged.rel in the archive. Click here to see a list.
xxC2<Yg&it3dALGED - ALGOL Editor and Indentation Program - Version 1Written in SIMULA, a powerful and versatile superset of ALGOL60.%ALGED - Warning: SYS:ALGED.DAT[1,4]**Enter file specification for the input file.Default extension is .ALGIf ending with Escape (Altmode), default values are assumedfor subsequent (dialog) requests.Enter file specification for the resulting output file.Enter maximal record length in output file.Enter number of positions in indentation/BEGIN.If a negative answer is entered the effect will be< 8 thatpreliminary blanks and tabs NOT will be deleted.Enter the maximal position at indentation.If the nesting is too deep the indentation willbe modulo the entered value.If tabs may be used at indentation answer "yes" otherwise "no"? Cannot find specified file. Try again.Enter program file name followed by 'ESC' or 'ALT' to get defaultvalues for ALL remaining questions in this series.  Otherwise,enter program file name, followed by <CR><LF>:  ?.ALG.ALG? Cannot create specified file. Try again.Enter output file name:?Enter output file record length:132< s? Must be [1,135].Enter indentation step:3? Illegal indent value.Enter max. indentation position:60? Must be >= indentation step and <= output record lengthTabs in indentation?:No?Use PIP's '/W' switch to convert tabs before resubmitting  to ALGED.  Command format:  .COPY  = /WConversion modes:No change                 0    Change to upper case      1Change to lower case      2    Change to Edit case       3Enter conversion modes for:Reserved words:1? Must be 0, 1, 2 or 3.Standard identifiers:3? Must be 0,1,2 or 3.< /User identifiers:2? Must be 0,1,2 or 3.Comment and options:0? Must be 0,1 or 2.Text constants:0? Must be 0,1 or 2.Working....!!! Forced chance cut at line:  Line numbers will be removed.COMMENTOPTIONSENDMore ENDs than BEGINs at line:  ENDELSEOTHERWISEWHENBEGINSIMSETSIMULATIONLN<CR><LF> detected before text constant closed by doublequote:   Further processing by ALGED would be risky...Character constant at line:  OPTIONSError detected in blockstructure.[ALGED - Number of BEGIN's (END's) found:  ( ****************** ]Progr jam is recycling to edit another file...Use a CTRL-Z to exit from ALGED.
UO rG>t0Xt	[=X|v*vthsxMbMQ w xDDDDDDDD	D
DD

DDDDDDDDDDDDDDDDDDD M&tJ7M&dPX	@HM&d\xK

	[@P 

$M&tKziMI X@HM&d\xK

	[@&f*(hNcK{C 

$gh	[J.:*0hFeL(7 

Dg!h	[Js$$*$("h BeL'% &

DU^`=L:%Po>[Js$[J.:[ET[@&f[@P[?[=X|[=2UMBUOSYS:LIBSIM/SEARCH	 &@@XP|

$$h< /P ?@ E+Bg+C :?-<+  ",	Z. 
T,:Z. ,7Z. 
U,:Z. ,7Z. ,7 ", & (, Fh@ (?,  Fh, Fh+ " Bo} & Fh+:h1f/++ h h
 
hcJ&+_$Z. 
+\. J +o} " Bo} &0 Fh+:h1f=++ h h/(.   h 
h.
  F(+o} h< j (.   h *=.
  F( h (> *>. J  h (.   h *>.
  F(-  " Bo} & Fh+:h1f++ h h 
hcJ&+~@$Z. 
+{. J +o} " Bo} &0 Fh+:h1f=++ h h 
h 

h/, hcN&+
$Z. +.

( N0 N. J +o} " Bo}P &- Fh+:h1f/++ h h 
hcJ&+$Z. 
+. J +o} h (= 
h , .=.

( N0 N. J  h (> *>. J  h (> 
h , .>.

( N0 N. J - Z. ,7< @@&Z. 
_,:Z.  *hQ*,',:Z.   &h[.Z. [ .(3f+Z. ,7h[Z. [ 3f+h[1f +Z.  *h $,,8+7+Z. 
h,:Z. ,7- + "-  "- -  o~ p0F|+,`ih,',	 o~ Fp+ o~ p Fh h
h $,6&+ h 0F|+ hA,
',`ih,',	 H+ h  Fh+ h
h@ $,7f+ h 0F|+ h,
',<( a`ih,',	 H+W h  Fh++e+L-  o~ p1F|+ p Fh h
h $,6&+ h 1F|+ h  Fh+ h
h $,7f+ h 1F|+q h  Fh+"& Fh("+x+l-  "- ,t#u,',	1F|+ Fo}Zo} (, ',; o}p * , $,hZo},6h
v $,7F+Zo},6+
 o}p * , $,,[.@ $,2Fh+Zo},6h
w$,7F+"n,o}p$,<(@DT@x V`RVhx(D  [`Ruh

D

d(@pBC`0eX@A

$x(lX(D"RD

dx0pX!Ji

d
pxp@~&h0x`#@A$ ~"@`%R&

D`HX`'


,#8

`)
8<",	Zo},6++S&	Xo~ ',Zo},<@*o}+@@o} " - - Z.  *hQ*,',:Z. ,7-  ",!(h# * A,	 ",!(h# *,	 ",!(h# *,	 ",!(h# *,	-  ",!(h# *,	-  ",!(h# *,	-  ", A!(h# *,	 ",!(h# *,	 ",!(h# *,	-  " ,!(h# *,	 ",!(h# *,	 ",!(h# *,	-  @ ",!(h# *#,	-  h2fhgO h< X3(hgOA Fh- -  & Fh &K Fh "X, h H,	 "], h H,	@fh@fh
-,:Z. ,7Z. ,7 ",!(h# *.,	 ",!(h# */,	 ",0,  '!(`#Xo~ *-*`v ",!(`#Xo~ *!(X" *(,	@ "o~-!o|!(^"XZ!(h# *1-*` "	, "o~-!o|!(^"XZ,	h
h[
,$,,[.@ $, (

h[

/,$,h ",h<"2,',	h ",h,',	 Fh+ "D,h3,',	h ",h,',	 Fh+d7Fh
 & FhOfh.& Fh@fh
  F( & h *.
  F( & h *.
  F( 
h ,.

(@f0 h *.
  F( h0F|++ h0F|+Z. 
4,:Z.,7"q,5,'!(`#Xo~ *-*`B "w,!(`#Xo~ *!(X" *(,	 "o~-!o|!(^"A XZ!(h# *6-*`L ", "o~-!o|!(^"< (OXZ,	 ",h,',	 Fh+86Fh
,'!(h# *8-*`[ ",!( Xo~ *
-*@_ "*, h
 H ( H (C H,	 "o|-!oz!(^"XZ,	 "o~-!o|!(^"XZ!(h# *9-*`k ", "o~-!o|!(^"XZ,	 h
1f'gO Fh

( h
&&'  Fh
 "V,:,'!(h# *;-*`y "\,!( Xo~ *-*@} hf# h
&(h2fgO "o|-!oz!(^"XZ,	 "o~-!o|!(^"XZ!(h# *<-*`
<( ", "o~-!o|!(^"XZ,	 h1fgO Fh hf#FD Fh "u,=,'!(h# *>-*` "z,!( Xo~ *
-*@ "*, h H h H h
 H,	 "o|-!oz!(^"XZ,	 "o~
-!o|!(^"XZ!(h#*?-*`)"!,`"o~-!o|!(^"XZ,	h0&+h& Fh ",@,'!(h# *A-*`5 ",!(P"A Xo~ *
<-x287Q"`-
?<PAxF`"@D`/
IIp$`1
R0("D"`3JV$$$O@SZp`ef "D"f gPk8nnrrt8w"D"w8z}~H(P
h,:Z. 
D,:Z. 
h,:Z. 
E  ,:Z. 
h,:Z. 
F,:Z. ,7Z. 
G,:Z. @  ,7Z. 
H,:Z. 
I,:Z. ,7Z. 
J,:Z.   
K,:Z. ,7Z. Z. Z .(,<Z. 
L,:Z. D,7 "0,M,'!(h# *N-*`o ",-*@q h (@./(Q&  "o|-!oz!( XZ-*@w "*, h *.
  ( H@ H ( H,	 "o|-!oz!(^"XZ,	 "o~-!o|< !(^"XZ!(h# *O-*` ", "o~-!o|!(^"XZ,	 "jAA,P,'!(h# *Q-*` "p,-*@ h (./((Q&  "o|-!oz!( XZ-*@ "*, h *.
  ( H@ H (  H,	 "o|-!oz!(^"XZ,	 "o~-!o|!(^"XZ!(h# *R-*`$ D ", "o~-!o|!(^"XZ,	 "
,S,'!(h# *T-*(`. ",-*@0 h (./(Q&  "o|-!oz!( XZ-*@6 "*, h *.
  ( H@ H ( H,	 "o|< 
=-!oz!(^"XZ,	 "o~-!o|!(^"XZ!(h# *U-*`D "%,A "o~-!o|!(^"XZ,	 "),V,'!(h# *W-*`M "/(,-*@O h (./(Q&  "o|-!oz!( XZ-*@U "*, h *.
  ( H@ H ( H,	 "o|-!oz!(^"XZ,	 "o~-!o|!(^"A XZ!(h# *X-*`c "E, "o~-!o|!(^"XZ,	 "I,Y(,'!(h# *Z-*`m "N,-*@o h (./(Q&  "o|-!oz!( XZ-*@u "*, h *.
  (< y H@ H ( H,	 "o|-!oz!(^"XZ,	 "o~-!o|!(^"XZ!(h# *[-*` "d, "o~-!o|!(^"XZ,	 ",!(h# *\,	 h1F|+ Fo~Zo~ h
,',;h1F|+ Fo} ",+Zo}  &/& o} Fpp
)$,o} * &p
p&p hd0& 0f-gO h0(0hgOG7@+ o} 
h&po} [O1`@7@+ o~ pZo} $,3@.   Fh+Zo}Z
o}( */* &, o}< 4p

p8/,[$, o}p
 
p ( */.(3f+ o}@fp o} p Fh-" o} p Fh-"A o~ p Fh-"C@ o} p Fh-"E+ Bo| o~ p
 p   (/ o}.p

 Fh " Bo{ o~ p
 p   (/.& Fh+>h0&++ o} p h.  0FgO p 
h.
  (0HgOG7@+h 
h , $,,[.@ $,2FhgO+@6@+>h+o{+o| o~ p
 p   (/ o}.p

 Fh p h.   Fh "< p Bo| o~ p
 p   (/.& Fh+>h0&++ o} p h.  0F++f+ o} p h.  2Fh+z o} p h.   Fh>h+o| o~ p
 p   (/.& Fh o} p h.p

/(.  0FgO Fp o~ p  &1f+ p * &, ",h@,	+ "b,!(h# *ah,	 "	,h , h $,,	Zo}  & o} Fp

LpLpA7@+ o~ p	 Fp
7Fp o~ p
1&+Zo~ 
p,8 o~ p
/& Fp
+	$ o~ p< 	+ 
p ( *.
p
 &, o}Ofp "	,h 

h.,h[/h $,,	+ o~7Fp

+ o} p

 FhZo} 
p

 &, " Bo| & Fh+:hh[3f++Zo~ o} 
p 

h.

( 
0 ,,8:h+o|Zo~,7 o}LpLpA7@+ o~ p	 Fp
7Fp o~ p
1&+Zo~ 
p,8 o~ p
/& Fp
+	L o~ p 
p ( *.
p
 &, o} p

h[./& FhLpAp7@+Zo} [O1`@7@+Zo} $,3 Fh h1FgO o~ p3HhgOA6@  	g+ o}:p

+	[Zo~,7+	(D"Kx!X$x%&8((++(.D"00(3 557x99 ;
Xx]H5=*P@?xBlhll{l(l0d8!(S:NM8a89S:NKo89oj7N]>$P(S;\ZM?-iiJ,P(W%J7JQf Qf@Qf`QfQf Qf@ety O&=S:8@*`X+Y+Z+ `,c,(c,@e,Hj.Pw.px/y//x00008
(S
@UXe

Pf
Hh	h`w {0h	p	h	`	*@	*	.h	60	=P	>x	@	EX	R8	R	Vp	Vp	i< 	jZo} o} 
p

 &, " Bo| o} p

 Fh+:h3fh++ o} p h.   Fh h0f+Zo~Z
o} $,3,8+ o~ p h.  0F+Zo~Z
o} $,3,8+ o~ p h.  0F+Zo~ 
pZ

o} $,3.

( 
0,8+ o~ p h.  0F+Zo~ 
pZ

o} $,3.

( 
0,8+Zo~ 
h2Jh+ o~ 
pZ

o} $,3.

( 
0+ o~ 
pZ

o} $,3.

( 
0,8 h Fh+o| h0F+ o~ p 
p ( */* , $,,[.@ $,0F+< 
& o~ p p  , p 8 ./. $, "
- Bo| o~ p & $, Fh h0HgO 
h0Jg
O
G6@+++o| o~ p p  

p 0 ,/, p[8 p @ 0/.. $,Zo~,7  o~ p p  $,+	jZo~,7- @ h, o} Fp & Fp
 & Fp & Fp & Fp & Fp
 & Fp	 & Fp	 & Fp h (.   h *.
  (2F+,h|@ H,	 Fh+,h| ( H,	 Fh h (.  1FgO h *.
 < 
a(1HgOG7@+,h|(H,	Fh$&o}Fp&Fp&Fp"&tFp7@+ o}p@ * $, o}p "b,!(h# *g*,	Zo} 6@+Zo} [O1`@6@+ o}LpAhZo}[ 1hgOA7@+Zo} * &,Zo} [O1`@7@+Zo} $,3 o} Fp p1FgO h3HpgOA7@+S&Xo~<(@ +,+Zo}  &/& o} Fp o}pZ
o} ( */*Z

o}[

0 o}/

p $, o}pZo}[ F@ " Bo| & o} Fp+ o}:p3f@++ o} p p.p.   p 
p.
  F(+o| " Bo| o} p+ o}:p3fh++ o} 
p 

p.

(@f0+o| o}6Fp+ h	1f+ h+ h	 Fh	 h	&h  Fh
+Fh	7Fh
1&+Zo~ 
h,8 h
/& Fh
+E h 
h ( *.
h
 &, o} p Fp@fp & Fp

 "d, o}p,	 h	 Fh@fh	 o}p o}pZo},6<"X $,
y7@+ o}p * $,
} o}p o}p $, o}p p`h+Zo~,7S&UXo~ +,Zo}[ F@ " Bo| & o} Fp+ o}:p3f@++ o} 
p 

p.

(@f0+o|o}7Fp+S&Xo~+,o}7Fp+S&Xo~ +, o}7Fp+S&Xo~ +, hZo} $,3.   o} Fp o} p0F++ h o}2Fp++ o} p2Fp+@+ o} pd0& 0f-gO7@+ ", o}p

S&ro|Xo~,o}p@@o|+ o}@fp o}7Fp+Zo}  &/& F@ " Bo| o} p Fp+ o}:p3f@++ & o} p 
p.
 F(+o| o}p
h $,6F+S&xXo~  +, o}p
i $,6F+S&

-Xo~ +, o}p
j $,6F+:h

 o}>p

2p

+"&t Fp h2&h

+ "b,!(h# *k o}p,	+ h	/h Fh	>h	Zo} [O1`@7@+ & o} pZ
o} ( *.
  F( hZo}< 

O $,3.   o} Fp p0F+@fpS&Xo~ +,+ o} p0F"+ ", o}p
l $,6F+ o} pZo}   (/( 
pZ

o} 0 ,/, . pZo} H 2/2.@ NH.

( N0 N. J S&

8Xo~ +, o}p
m $,6F+ o} pZo}   (/( * 

pZo} 8 ./..0 J8. J  pZo}   (/( * 

pZo} 8 . /..0 J8. J @fpS&Xo~ +,Zo}  &/& F@ " Bo| o} p Fp+ o}:p3f@++ & o} p 
p< 
 F(+o|+ o} p0F'+ ", o}p
n $,6F+ " Bo|"& o} Fp+ o}:p3f(++ & o} pZ
o} ( *.
p .
  F(+o| o}@fpS&Xo~ +,Zo}  &/& F@ " Bo| o} p Fp+ o}:p3f@++ & o} p 
p.
 F(+o|+ o} p0F+D+ ", o}p
o $,6F+S&

oXo~ +,Zo}  &/&  F@ " Bo| o} p Fp+ o}:p3f@++ & o} p 
p.
FF(+o|+o}pd0&0f-gO7@+p"f<  & o} p 
p.
  F(+o|+

F o}Ofp+ o} p0F!+p
p $,6FgO+@7@+ h.fh	:h o}:p

[h	0&+O&'Fh	7h/h@Fh+:h	+So}p|Xo~, o}p
  ( 
h ,.

( 
0 3HgOA7@+p
q$,6F+ @ o} p

,Fph| ( H,	 Fh+ o}p
r$@,6F+ o} p

,Fph|,( H,	@Fh*h0F|+,h|(H,	Fh+h1F|+ Fo|S&r o|Xo~, o}p

d@hC8D8E"D FIJ JHK L(L0MP 6aJMmS:(@p	j0	jP	px	p	r`	yH
 0
!0
"
"X
!x
 x
x


&P
6&X
6$X
D#H
DX
E(@
Exd(
F*X
Y+
\,H
h/(38283@5 -5H.5h/5p56P76p87:7=1X=7xA8A8hJ8PJ7`N; ^< e<pj=k=8l=@o1o>s>@v>xz?x

@ 

@H

B0

C(

B

C8

@D

$D8

%DX

&D`

*EP

/F(

5G0

>Gp

DH@

F>

FJ8

WKP

kMh

KR8``aXb0a8ah^X<  o}6Fp+ h1F|+ Fo|S&r o|Xo~, o}p
s $,6FgO o} Fp o}7Fp +Zo}  &/& F@ " Bo| o} p Fp+ o}:p3f@++ o} p p 
p.
  F(+o|+Zo}  &/& F@ " Bo| o} p Fp+ o}:p3f@++ o} p p 
p.
  F(+o|+ o} p0&0fgO p0HgOG7@+ & o} pZ
o} ( */*.
  F( p0FgO FpZo} [O1`@7@+< \Zo} $,3 o} FpZo} [O1`@7@+ o} p0&0fgO+@7@+ & o} pZ
o} ( */*.
  F(@fpZo} $@@,3 o} Fp+^ o} p0F+S&QXo~ +, o} p0F+OfpS&QXo~ +, o} p0FgO p0HgOGAp7@+S&QXo~" +,S&~Xo~ +,+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p< 0F+ & pZ
o} ( */*.
  F(+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p0F+ & pZ
o} ( */*.
  F(+ o} p0F.+ & pZ
o} ( */*.
  F(+ o} p0F+ & o} Fp & pZ
o} ( */*.
  F(Zo} [O1`@7@+ o} p1FgO+@7@+ & o} pZ
o} ( *.
  F(Zo} $,3 o} Fp+> o} p1F+ "b,!(h# *t o}< Sp,	u,, o}Ofp Fp+ o}@fp+ o} p0F+ pZo}   (/( * 

pZo} 8 ..0 J8. J Zo} [O1`@6@+ "b,!(h# *v o}p,	+Zo}Z
o} (  *.* &,Zo} [O1`@6@+S&gXo~ +, & o}" pZ
o} ( *.
  F(Zo} $,3 o} Fp p1F+S&gXo~ +,+ o} p0F+ & pZ
o} ( */*.
 F( o}@fpZo} [O1`@7@+ o} p1FgOp

w<  $,6H+ o} p+@G+@7@+ & o} pZ
o} ( *.
 F( p0FgOIpJ FpZo} $,3 o} Fp+ o}@fpp
, $, o} p1F+ & pZ
o} ( *.
  F( o} p1FgO Fp+Zo},< "o},A@*o}+@@o}Zo~,<@*o~+" @@o~ h3Fh

+ "b,!(h# *{-,	Z. 
|,:Z.  
h ,,8 h3Fh

+Z. 
},:Z.  
h

 ,,8Z.  *@ ,8Z. 
~,:Z. 
,:Z. ,7  AJZ. ,7 ",!(h# *,	 ",!(h# *,	+ "+ "b.,(D"
sNOUhZh]8~x`m~h8`S&*R\SpHh9OxT"DTp:T*>HT`@ 8  @c cx d0+e(+d+bh+](,e81fP8fx9g:g >f >hDh8EhXFh`Jg`J\8JAJl flXflponsnPxo`k8jpH	q0rssh#tP*u80v 7>H9x ExPFxhNyxX{YwZ|hl~0uP}8{8F0(0H@(+x+{+vh+v+u+t0+@	sH+r`+qx+q+p(+i +@P+@(+@+0@+z/h/@2288XF)h"D"`|qDd]3:Yb"]XVa[Js$a[J.:a[@&fQa[@P!a[=X|c