PDP-10 Archive: decus/20-0135/02/index.sav from decuslib20-04

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0135/02/index.sav

There is 1 other file named index.sav in the archive. Click here to see a list.

h'G@0$<+x-G8%~M(/-8-+1 " BW 84 X#

e Cd 86 X#

i Ce 88 X#

m Ca 8: X#

o Ca 8> X# d,< a-8 C` 8B X# e,<

q-8 C` 8F X# d,<

s-8 Cn 8J X# e,<

u-8 Co 8O X# d,< e,<

v-8 Ce 8Q X#

x Cf 8U X# e,< f-8 Cb 8] X# 
,< H,<

{f],<

},<@Hd]-8-Cc8b-X#V,<I,< Jf^ Cc,8d X#Jbt Cg 8g X#,Kbt,Cg 8k-X#g,< g-8,C 8p-X#,< ,< -8 Co 8s X#, qd,,< ",< $f,<-8dx@Z-2-25] -23+a-27 &-23+a-2: -23 -2  "(-2Z"0BX,|-2W 8T X# +,< /d,< ud, Cv 8T X# v,< d,< e,< f-8-2op,<-8d-25uZ"-2e+`+x-2: h-2Z"0BX,|-2W 8| X# v,< 3-8 Cv 8 X# ,< d\@+H 8 X# vb[ Cw 8 X# ,< w,<""l"d"fV 8

 X# ,< w,< KfV 8 X#-8k ~,< vb[,< KfU+w-8k ~,< v,< 9-8b[,< KfU+w G C 8 X# ~bj C 8  X# b\@`@+3 8. X# :,< v,< <,< ,< ?-8,< B,< v,< D,< ,< F-8d CG 80 X# ~ C+. 83 X# G Cw+3 8e X# s,< td Cx 8: X# r,< sd Cx+@ 8> X# yb\@ y C 83 X#@Ay+3 8D X# x,< Jd\@+_ " BW 8X X# y,< -2oH,< g-2oJ,<-8d h-2-2 h-2

 |-2 Z"-2eZ"0BX,|-2;@-8D Cy " BW 86 X# p,< |,< H,< Lf^bX,< a,< af_-8 CG+6 86 X# y,< x,< x,< -8 Cy+6 83 X# qb 8m X# wb\@ c,< -8 C 8q X# v,< N-8 Cz 8t X# ,< zb[dV 8v X# O C 8| X# v,< Q,< v,< S-8 C 8~ X# V C 8 X# o,< X,< Zd-8 CG 8 X# ],< v-8 CG 8 X#`p@ ,<`V,< ^,< -8 CG 8 X# `,< ed CG 8 X#/6 \-\g.6  8 X# 
,< 
-2,<-8d-2-2-2 h-2# -2 w-2 y-2-2W+ 8( X#/6 \-\?4

4I.6@ " Bz 8M X#@Ax+M z." Bz 8M X#/6 \-\A4z4

.6@<"Bz<83X#<xb\@V<CI+M885X#dG<Cx8M<X#p8CI+MC8;8X#Xm,<<qd<CG8M8X#l"d",<Md],<8!,<dt,<8Gf,,<<Nd]-8<C."B+;8E<X#v,<9-8b[Cv<8X#<,<<&d\@"<B|8T<X#x,<~dCt<8eX#<,<<,<<,<<,<< J,< ,< L,< ,< O,< ,< R,< ,< T,< -8d Cn 8 X# ~,< v,< KfU 8P X# ,< v,< v,< |l"d"fV,< KfV@ C 80 X#/6 \-\?4|4N.6@ lb\@ 8. X# W,< Zd,< ^,< cdd@`@ "l"d" C 80 X# n CI 8m X# ~,< Kd] Cj 8K X# j,< M,< Jf^b
bW@ 8B X#/6 \-\?4|4I.6@ j,< O,< Mf^bX C+0 80 X# b\@ j C+0 8H X# j Cl 8$ X# ~,< Kd] Cj 8O X# j,< ld\@+F 8Q X# f Ch 8V X# j,< O,< Jf^ Cf 8[ X#/6 \-\@4|4I.6@+q 8` X# db\@ "l"d" Cd+d 8j X# f,< hd\@`b@ 8g X# l,< jdf 8j X# jb\b@ 8F X# Jb

@ jb:,< m-8b@@+F 8v X# db\@ "l"d" Cd+F 8 X#/6 \-\@4|4N.6@ Jb

@ 8 X#/6 \-\?4|4F.6@+ 8 X# l,< bd\+? 8 X# l,< H,< Hf^bX,< n,< of_,< `-2,<-8d h-2#-2W " B| 8 X#@AG " BW 8 X# l,< hdD CG 8 X# jbD CG 8] X#`J$ 8  X#/6 \-\?44I.6@+ 8% X#/6 \-\@44P.6@+? 8. X#-8k+ ^b\@ bb\@+w t,< wd CG+ 80 X# h C\ 82 X# d Ch 84 X# j C^ 86 X# l Cj 8: X# h,< bb-8 Cl 8< X# \ Cf 8 X# bb Cb+ 8D X#/6 \-\@44N.6@+b 8V X# r,< rd C\ 8O X# \,< Jd\@ p,< lbD-8 CG+F 8T X# d,< hd\@ \ Cd 8V X# \ Ch 8Z X# l,< P,< Of^ C> 8^ X# s,< pd C> 8 X# h,< >-8 Cl+ 8i X#/6 \-\?44Q.6@`

@ " B|+ 8n X#/6 \-\@44M.6@+{ 8 X# {,< ~d,< ud,,< `,< `f_ C` " BW 8z X#`

@ l Cb " B|+ 8 X# j,< cd\@+ 8

 X#/6 \-\?44F.6@ h,< j,< P,< Of^-8 Cj 8 X# h Cf+ 8 X# d,< hd\@ f Cd 8 X# f Ch 8 X# f,< l,< P,< Of^-8 Cl+ 8 X# l,< hd6 8 X# j Cl 8H X# ^b\@ ^ Cj 8K X#@A^+K 8 X#/6 \-\@4|4I.6@ l,< l,< O,< Jf^d6@`2@ 83 X#/6 \-\?4|4L.6@+9 " B| 86 X#@AG 89 X# q,< td+m 8; X#`p 8< X#@Ad 8 X# vb[ Cv+ 8 X# ,< ,< d-8 CG+ 8P X#-8kK v,< 3-8b[+w ,< d,< v-8 CG+P 8m X# ,< d CG+m 8P X# ,< d CG+P 8[ X# ,< d CG " BW+6 8 X# n CI+ 8M X# j,< Zd C0 8g X# b\@ 0b
 C0 8j X# 0b\@+M 8M X# 0,< c-2om,<-8d h-2

-2W+
 8M X# j,< Zd, C 8{ X# bW$E/6 \-\B4E4R.6@+

 8
 X# b&,< ,< Rd]-8 C+M 8M X# j,< Zd, C 8	 X# ,< Jd\@+M 8 X# ,< G,< Jf^bW@-8k  ,< %db+w+
 8
 X# b  C+M 89 X# |,< b-2o,< e-2o,< f-2o,<-8d  h-2

-2-25" h-2+$-2: h-2 X-2 -2;@-8D C| 83 X# X,<-8dx@*-2Z"-2e V-2 -2;@-8D CX 8' X# *,< V-8 C*+' 8 X# *,< X,< Md]-8 C*+ 8
 X# *bW$E/6 \-\>4E4R.6@ *,< `,< `f_,< Rd] C*+M 8L X# f,<-8dx@H +-23-2;@-8D Cf+[ 8N X# f CT 8X X# T,< e-2oQ,<-8d-25U h-2

+V-2:-2_-2;@-8D CT 8[ X# Tb\@+] 8] X# . CT 8
 X# fbW$E/6 \-\>4E4G.6@ T,< `,< `f_,< Hd],< f,< a,< af_,< Hd]-8 C$+M 8s X# j,< G,< Jf^ C\ 8M X#-8kz \,< l,< G,< Jf^d\+w j,< cd\@ 8 X# \,< *d\@  C+M 8M X# ,< /,< \,<

u,< 1f_,< 2,< -8 C+M 8 X#/6 \-\@4|4I.6@ 4bZ@ 8 X# ~,< v,< KfU@-8k R,< v,< 3-8b[,< KfU+w ~ C\+% 8! X# R C\ 8% X# ~,< \d\@+M 8- X#/6 \-\?4|4I.6@ v,< 8-8b[ CZ 85 X#/6 \-\@4|4I.6@ v,< 3-8b[ CZ 8M X# ,< Z,< KfV@/6 \-\@4|4I.6@ \bj C+M 8D X# j,< Q,< Sf^bX Ch 8H X#-8kG hbW+w J Ch 8M X# 
,< Sd],<ah."l"d",< Rd]-8 Cn+M 8M X# P,< H,< Hf^bX,< a,< af_ CT+M 8] X# |bW`.i B 8g X#/6 \-\>44S.6@  Bi 8M X# i,< |-8 Ci+M " Bi 8j X# i C 8Y X# 
,< Td] Ci+Y 8t X# i,<-8dx@q-2Z"-2b i-2 -2W 8v X# i C " Bi 8M X#@Ai+M 8 X# h,< dd\@`2@ h Cd 8	 X# P,< P,< Of^ Cl 8	 X# lbN Cl 8	
 X# bb\@ l Cb+M 8

 X# b Cm 8M X# mb,< ld\@ m Cm 8	 X# m-8Ub\@ m-8U Cm+

 8M X# m-8U,< l-20+M 8	 X# ! CI 8	 X# E CN 8	& X# N,< gd\@ E 8	 X# ;,< ?d CG+	 8	( X#@AG 8M X# NbW@ N$E/6 \-\A4E4I.6@ N$E/6 \-\>4E4P.6@+M 8M X# bb\@ d,< bb-8 C 8	4 X# bb Cb+	4 8M X# j,< R,< Sf^bX C>+M 8	G X# jbP,< *-8 C` 8	Q X# `bW$E/6 \-\>4E4T.6@ `,< T,< Dfz C`+M 8	^ X# `bW$F/6 \-\I4F4L.6  BE/6 \-\?4E4F.6@ `,< *-8 C` 8M X# `,< E-8 C`+M 8	p X# j,< nd\@ j Cn 8	i X# jb: Cy 8	n X# jb\,< y-8 CH 8	r X# H Cz+	r 8	r X# z CH 8M X# hb\@ h,< dd\@ b Cm 8M X# mb\@ mb,< R,< Rf^bX C\ 8
 X# \,< yd\@ H,< m,< \-8 CH 8	x X# mb Cm+	x 8
 X# G,< Jd CG 8q X# M,< Pd CG+q 8M X# S,< Yd CG+M 8M X# ^,< ad CG+M 8 X# d,< hd CG+ 8 X# k,< qd CG+ 8
& X# Lb\@ Jb\@+
, 8
* X# jb\@ L C+M 8M X# J C+M 8
1 X# jb\@ "l"d" Cj+M 8M X#@Aj+M 8M X# |bX,<-8dx@
7 "(-2-2-2_ -2 -2W+M 8
? X# jb\@ ! Cj 8
A X# j CI 8
C X# C C 8M X# b\@ 8M X# ,< yd\@ 8
N X# Zb\@ {,< }d CZ 8
P X# Z CI 8
; X#@AG+
; 8
V X# H,< y-8 CI 8
Z X# C,< ,< f_ C\ 8
r X# \,<-8dx@
^Z"Z@/$0DX,| "(-2-25
h-2-25
e -23+
g-2: -23 X-2 +
l-27
k -23+
l-2: 	-23 "(-2Z"0BX,|-2W 8M X# Xb\@+M 8
| X#-8k
y \,< yd\@ Zb\@+w 
,< G+
R 8
~ X# Z CI 8
R X#@AG+
R 8 X# FbW$

 8 X#/6 \-\>4

4F.6@ |,< ,< Ff] C~+M 8 X# ,< |bW-8z C 8 X# $E/6 \-\>4E4I.6@ | C~+M 8 X#a&

 Bj 8 X#a j$

/ Bk 8& X#/6 \-\?4k4I.6@ |,< F,< jl"d"dZ-8 C~+M 8M X# |,< F,< kl"d",<

/kl"d"f^,< F,< jl"d"dZ-8 C~+M 8M X# V,< G,<

l"d"f^ Cx+M 8C X#/6 \-\>44U.6@ ." B 89 X# l"d"b*+9 8M X#`,+M+!kPF@@@-@|I@@@@F@@@D@:@2@@
@
@<@ ( ( y {  	@RELEASE e  ^ _ 3 3 L L d@CLOSE                    xi ~k             ! ! " " # # $ $ % % & & ' ' ( ( ) ) * *hz@WAITCNTp|@MODEp~@LGTLp@Ip

@IIp

@Sp

@N[X

@LATEST@NEXT@NEXT()@NBPART@NBPART()@SWENG@0SWENG(SWEDISH,ENGLISH)@TRIMM@TRIMM(X)@INTERM@(INTERM(TXT,EXPL)@QUERY@(QUERY(ASK,EXPL)Y@RPADD@(	RPADD(X,L,STR)FIRST@ASCII@ASCII(N)@CLOSEA@CLOSEA()I@NEWGEN@ NEWGEN(TXT)@HEADER@(	HEADER(OLDTXT,TXT)@TERPRI@TERPRI()@OUTKEY@ OUTKEY(TXT)@PAS2FN@0

PAS2FN(INCHAN,GRFIL,MODE)@RELKEY@ RELKEY(LNE)@ININT@ININT()@MEROUT@(	MEROUT(TXT,OLDKEY)@PRIN1@PRIN1(X)@NUMBER@ NUMBER(TXT)@MERGE@(MERGE(LNE,OLDKEY)@EMTLST@EMTLST()@INANSW@(
INANSW(TXT,EXPL,FLG)@RNSORT@RNSORT(X)@SRTKEY@ SRTKEY(KEY)@INNUMB@(INNUMB(TXT,EXPL)@INKEY@ INKEY(TXT,EXPL)@INHDR@INHDR()@WAITMS@WAITMS(II)@.MAIN.

f@8fghijklmnopqrstuvwxyz

j@8FGHIJKLMNOPQRSTUVWXYZ

n@$#@}{`[\]|

p@[\]{|}$#@`

r@[\][\]$#@`

t@{|}

u@[\]

w@}{`$#@

y@0123456789@NULL

|@}

}@@.w.d.s..s.e.sEND OFFILE . . . . .@CRLF

@Removedkey:telleraut`kningdavindexssblandlspecialtecknen

Matainrnamnep}anyckelordrtnytttnummeratade nyckelord
Inputname oflkeywordew number

PushtwopRETURNtofinishtestinputakeyword

Inputopage(chapter)number@@Avsluta med RETURN direkt efter *@(	Input index header@@Finish with RETURN directly after *

@@Mata in del av efters`kt nyckelord@8Input part of searched keyword@ V{lj indexnamn@8H`gst 6 bokst{ver och siffror@(Select index name@0

Maxn6mletters andedigits!@*#@nel$@NEL@L'@ES)*@@,@89@.SRT;@Filen =@  existerar ?@0Ny text l{ggs till sistC@The file E@ exists G@0New text is added lastJ@!!!@X@CCLFILN@.MICP@.R SORTR@.SRT=S@0

.USR/KEY:1:120/RECORD:140W@.X@ F`r sortering:[@ For sorting:]@./_@ MS`@PGe kommandot START om indexet skall ut`kasf@`Give the command START if the index shall be extended@WAITSTARTn@0

Rubriknf`ljdwavr2yRETURNq@8INCHAN@nFINQUESTEXPLy@PSvaragNEJaomDu@villMb`rjanom!fr}nrb`rjan~@@AnswerNOifpyounwantptorrestart@NEWKEYEXPL@8RN to keep the old one@0Input !!! to remove it@ NEWNUMBEXPL @HMata in nytt `vre sid(kapitel)nummer%@@Input new upper page(chapter)number@EDITMESS+@@Tryck n}gon av 0123456 utan RETURN!0@ 0	g} vidare2@(	1	sl} ihop till 1:a5@(	2	sl} ihop till 2:a8@ 3	{ndra 1:a;@ 4	s`k nyckelord=@5	avsluta?@6	backaA@@Push any of 0123456 without RETURN!F@0	go onH@ 1	merge to 1:stJ@ 2	merge to 2:ndM@ 3	change 1:stO@(4	search keywordR@5	finishT@6	back@OLDTXTX@(@nskas ny rubrik[@0Do you want new header^@HSvara JA om Du vill ers{tta den gamlac@PAnswer YES if you want to replace the old one@TXT@OLDKEY@KEY@STARTm@, @ STARTSEARCH@ SEARCHSTRING@BSPSAVEt@(Kan ej backa merw@0Can't backspace further@TEMP|@(Str{ng som s`ks =@(Searched string =@0

Kan ej finna nyckelordet@0Can't find the keyword	@(	Ingen fil med namn

@ No file named @ Sortera f`rst!@ Sort it first!@(	Felaktigt filnamn!@(
Errorneous filename!@0

Ingen nyckel att avl{gsna@(No key to remove@EXPL!@@Skall nyckelord inledas med siffra %@@Shall keyword begin with digit @Y@Z,@!@KEY1.@ END0@ --- 1@$#@3@ ---4@(OUTL(NBPART,NEXT)@IN18@.IND@LNE@OUTL<@8Tryck ej RETURN efter siffran!@@@Don't push RETURN after the digit!D@. F@. . G@(Mer {n 20 teckenJ@0More than 20 charactersN@(Skriv om numret !Q@(
Rewrite the number !T@PMer {n 5 grupper av bokst{ver eller siffrorY@HMore than 5 groups of letters or digits^@(Mer {n 50 teckena@0More than 50 characterse@0Skriv om nyckelordet !h@0
Rewritethekeyword !l@PUnderligt tecken inmatat. Skriv om raden!q@PStrange character input. Rewrite the line!@SWEDISH@ENGLISHz@?{@ Ingen frklaring~@No explain@ASK@jayesno@JAYESNO@JA@YES@NO	@NEJ@(	Svara JA eller NEJ!@(Answer YES or NO!@STR@0xD@FhE DhG ChIx ChKv BhM:  ShO9 BhQ7 AhS- AhU* @hW) @hY ?h[z ?h]r >hp >han =hcl =hek <hgi <hih ;hkV ;hm) :ho :hq 9hsv 9huu 8hwl 8hyL 7h{K 7h}8 6h7 6h6 5h5 5h% 4h

z 3h

a eh

a+!h

^ ch

^+8h

[ ah

[+h

[ 3h

W _h

W+qh

W 2h

T ]h!

T+Eh#

T 2h%

Q [h'

Q+h)

Q 1h+

M Yh-

M+_h/

M 1h1

J Wh3

J+	4h5

F Uh7

F+yh9

C Sh;

C+	=h=

C 0h?

@ QhA

@+YhC

< OhE

<+	bhG

< 0hI

: MhK

:+	hM

: /hO

6 KhQ

6+QhS

6 /hU

2 IhW

2+

hY

2 .h[

. Gh]

.+	Bh_

. .ha

+ Ehc

++nhe

' Chg

'+ohi

$ Ahk

$+?hm

$ -ho

! ?hq

!+9hs

=hu

+3hw

-hy

;h{

+h}

,h

9h

+
Rh

7h

+
;h

,h

5h

+
3h

+h

3h

+
!h

+h

1h

/h

h!

$h#~$~h%}$|h'{$zh)^ T0+X .

dHD(--6>

h00--6>

h28--6>

h4@--6>

h6H--6>

h8P--6>

h:X--6>

h<`--6>

h>h--6>

"h@p--6>

%hBx--6>

)hD--6>

-hF--6>

0hH--6>

3hJ--6>

8hL --6>

;hN(--6>

>hP0--6>

AhR8--6>

DhT@--6>

GhVH--6>

KhXP--6>

NhZX--6>

Rh\`--6>

Uh^h--6>

Yh`p--6>

\hbx--6>

_hd--6>

b}xg \x ^x@	`/@/@"  lX@(	`   $+"m	`@	`/@/@" x x@ 3B-|pZ// 04@r B/"A B B(QB(QB-@-|pw@x@	b/l"+`-0|-0|/0{,\@)"+-.#]+#41D@0D@+#4@+`,\`dp+@Zl"+` O-.#
T!Z"+ pabp+
T!/+`@Z4N

".8S.81@+*n,\+` 08*n+0@+*n "@4B

%  -,/Q"`XP,\S$.$ &.*$+`

f3L,\-.#T!4"4B- 0 pO-.#
T!4F-1P+- Bp .$&@2fY^! 2%2  -,/Q"`XR  p0N+.H=p,/2+` ,8 
H=l/=p.+-

f3L-64-64/63,\,\@`) )$0@+X;5@X;) )$-*:+X;+X;+<+#4@+`x=-"Cx>-"Cx?-"Cx@-"CxA-"CB-"C/">(B p+@F+#4@-|p2!p2ap2Ap3Ap3!p3apvI p&p -|p-6M-6M/6L,\O-.#
T!4Fc,\-.#T!4"Q 2 pO-.#
T!0&H+_ Bp 4  H%d. -,/Q"`XR/2P p Bp+X\+` &P4F^-.3P=r^,\+`P=r` &P4F_-.3+_ 0+P

f3L,\-.#T!4"#4 0,\-.#T!4"#44Bu 2 pO-.#
T! Bp/&@/&H4&#4  H%y. -,/Q"`XR p Bp &@-*v &H-.3,\+`/@+`4F(%{((+@ x+(+~

f3L+}+}

f3+|.$````.$+(,\2B+
T! Bp4F

 .%Y  -,/Q"`XN p Bp F=n
,\+` pO-.#
T!4F#4 0*pO-.#
T!0F@+#4,\ D B &? F=& H=p+v(Y

f3L   .-,/ XPXD..=^,\8/.=`^+` X,\RQ"XX3DX+d*vbB!."+`O-6-L!1tL!Q4P"/,. V'S ` X-0y=>  -,/ZBH $W(DG$0XD - D:'Q$H!DXR  P-,// X@QBH"4WS4P.4.6Q6S'S  X-0y+>  -,/Q" B8 $ XD - DQ.  -,/\$[

D0[

 N0X2P R*V*ty ' 6S   X-0y+  X 4XQX T["XQ4X! X PS  -0y+ [QW T*v

@+`XD[ZH0PW+"4PQ2P., H @ X-*:9+*r+ ( CI '  CG"!> Q.@[. -,/"Q"*B! @ B@ 'h& F' $Q$  "~.*$+zH'@(@@>>>> MULTIPLY-DEFINED DATATYPE: -6Z-6`,\-.#T!4"00bX!4B3-66@+` " BS-65>bS+6+27T+X@@ S"(B.S+@@naT+> "W-,QZ-,Q 0H[4BB "-,QZ-,Q .H(N !M.4 !V/2P(R+E.47LP+R6JP5NH+K "xAP0B8+K@jPFBP6HP5PL+O "AP0B@+O@hPFBP5JR5HR@@P!

YL0=rE+Xw S  ^,\6@.0,\6@.0,\-.#T!4bZ0bX!7@+]("y.+@@+`-6_-6_/6_,\-.#T!5Bf,<,<Q V-8 [ "4"g0bX! +@XX! 4,\O-.#
T!4BwZ4Hw@@@@@@  &/ 4 w0`/ 1@+x1@+@<h=fo1@-+0@L!<hw & / 4 w0`/ 1@+@<h=fy0@-+w<hw &@1@+0 0`+w/ $$.<hw=f0@+w<hwSD &@1@.+0 0`+w/ $$.<hw=f
0@.+w=hwXDXT(4y.X@@+@+@X +`+#4X!@DSK@x0aDadHH@`,\-.#T!4"!0bX! 66@XX!5B'Q6x*v%"!6@X+$ "X/"XBX("y BX,\`bpT!4BQ@@Y !Z (<&Q/ 4 Q0`/ 1@+Q<(Q@=&- ! Y	`4@"`@``+6X!a`Y4a`P4@at+;  -,/S2aT+=  -,/X2 RX RZ ".X+@X!@[4RC "[-.GZZ4RF #Z-.G X+`.X5PL (+@*(/(@@HS"` BH@@HX$ @. -,/XBO."*(+@ B(+8-(%L!4$QS41@+U1@4F2L!-(%L!4$QX4+T@w@ZX2Z@A0 PZ@*@*@ #* +<6j1`+c@*r+h4@0@+<6i4@d Z@*@*@+!7

i+ $ p$p%Z@*@*@@+p

`@V! @A! +#4*@*@ b+Z2Z@A0Z@? 8+w84@t@XR+!8p%p&@+t

`@V! +oX2 &* Z@(P~ P[@*@*@4BZ4P+<6@<P*r+	.*   0

+ [@*@*@+!G B P.*+  /*

"2HS2H+ d'[**`+6! ** +4B!GZ4N!GZ@(P~ P[@*@*@ '* +<6@=N+0ZPrxpH 
HY
Y{x+d.m.n.x.y.0-6)-6)/6(,\-.#O5B, "$ BY,\-.#O0bX! BY,\-4d `b0T!Z"0"|^"64Y+75"U(.!V+@XZ+U4T96FP+@X[X!5";(.!V+N !M !V/(("Q& 7@+L.&*f> DY !M[A Z. 8-,/XN $Q$@@..*$8. *!M-,QZ$8Q$ @!V *$ YZ+;YFQ" B " $5TO $!W7&Y.$+@X\4&R"*Q((+@X] 2+@X^BR.T@+`5&W9W%Q4\2H+TtXY@@@@aFafZ[ H H+V)R

f3L "X+eZ@/$ 0bX,|*/"X56f,|/646d4BH%i($+@h+H+m

f3+m+l++l.8````.8+H H2B+q +H R!S  -0y=@Z XD{  -,/Q"` C{   "@f@j4P{`T=pz $ XF H J L=  DH+H-0-0/0=6,| T0@@+H,|=6,| T5@,|=6	9H  T5@ 9H=6

 9H,4,4,H/,| / P P,<,</ X,+/,4p,4p,| R!" X8.*x ` ` `-2+.*48+!/*  .8 P P,<,0/&X,0,0/8 P ,H/+"*.p .8,4@,4p,|4@3X@/%5. -,/Q"` B4 &XF -.3 4`p0+"m B@+H@+1{p4

f3L,<QVH,<H+H p[pZHXBp*|H,\[p+H 6.9 pab*|>,<@,>,>7@W+A,>V+XZ@ 7.9/,>+X X!O-.#
B! B?/V 0.x.x4FT 2%W  -,/Q"` XRP x,\4FO-.3 &@4FQ@*?-.3 x4FS x-.3 +`,\@+`U`V

f3L 9.6-([ :2X ++H P4"   hh&X& FhX$h D+  6.9 paz p 7.:*tx `S:56fX:`+lZ"X4B~ X6P V`h4X4` TX:[ 0G-2) p Zp`bp+5Bo ] B@/6 \ 7.9 7.: : @ X6`,4 @Z` h7@W+y,-([+#4,<,<,7@X46x?6p+x`w w h*| X![-,/ +iO-.#
B+n-0@abp+Hh"`b@+

h"4PH*.6,</6*,H".B,|h" R!O-.#
B!+H `_ 45 l "0@9 "`Q"P+X X!-,/XX>-2)`T +S. "0@S0@.03n@m *p+az +!,<W,<,",4w,4/( p,|/(,T,tabp+3,4,4  ,/( P,|".@1p+82..pS.8.. ,@.,*.0Q0@/+H,\,\,\,\,\,\,\+H@Z/4680 +9< H1D+6,|XR; >*2+< 1D+,|'0,<X,<X,>,>",>T,>#,> _[TT 2P R"Q2 R_6 P-6k\4M T#@-6P,^ TX RX 4j,^#,^T,^",^XT_+P/O,^#,^T,^"+#4 @g4`Q@XVg pabp-6-L! Rh  P-,/"$PQ" BhS6W.4XTX6P,\-4dS&0A(Fz)Dw FX/i56Y.i p6`g-4eXDf wO-.#
L!@Z5@d p-4d h:hQ2/i 0+MMNQ!,>"6. XYT 4P@,<=tn.6 8`/8 _ X,>#,>" "QT,>,>8,>9 "Q"X,>@ X-tPx+z+}++CP BP *`*V	9w  P-.* P[/ $ -.#
B!XGP +{-.#B!*Pl"d"+{-.#B!*P(Bl"+{"6. B9"6. B8:TZP"@@T+@[x,^9,^8,^[BTZB",^",^#,^ 8`.8[B! X-tP++++ P-.+ Pl"d"+ P(Bl"+CP B?ZX/2X X X,\-tP!+)+#+&+( PZ-.#
+ XGP+*(B( BP+*(B BP+*EBP<r+=@*?ax+`+#4+E@@F p@ZP-0V+X0N+X-0Q+X1N+<-0V+X F0p+X0N1N-0Q42X0N+;-0Q+X+40N+X-0Q+D6@F+X:F-0V+D0N1N-0Q42D0N+X-0Q+X+> F F+X F B- @F   " h@f@j`T*dI i`T*dK " i*4 j`T*dN`k`j j* J+.`/2

<2@0N1N+R 9@   "G<2X$8T4DX,> "I

<2_$8T4D^,>9Z.0 .2X@c%k. -,/Q"`,<:F $XDQ$/"X$x*df @*df+@~0 ~000G

f3L,>#,>8"6.*9,>,>`"6. B8\"r B#+` 6.8,^,^*9.6,^8,^#@+`/y,^9,^8,^#+#4-6|-6|-6|-6|/6z X!@)"+~-.#]B!( 4 ,\@)"+-.#]B!(0DP++@X+(B)"+`+@	+@
+@+@

./$-(0T*-&#V0T* $+@X)"+` && $+  X!,<"`Q6_ . T(X6P*v VQ@@r X4B24""`bp++Z5F @@X+2O-.#
7P BX.2925TXV)*V? X4P#`pp+'Z@5F'@@X+#O-.#
zx( B 2 9h"ab@*T15T/h"*V? X4P-`ppB!Z@4F-B!h" *v1t+> Q04+@  H%R. -,/Q"` XR R*. X4D>Z+@=f+>*v:  (+`  P1`+>-,/Q" Q"` B?(@-,/."XB@ S S

T 4@ X4DM`dp+O N DP R.".2.4*vH

T L@@?+>`d l0  L+JwQ

f3LG@ h-23-2#+-6V-6V/6U@)"0D+`)"~+@Xc `d +\`d-.+`ad+_(Bl"+`d"l"+` X!)"~-4d +Y+` -2e-2e-2e/2d  Hl ( ~-0y+P+@Hj J+P+k 
x 
yZ
;[

(A,3l<+p.
<:<l*+iXDt  -,/ ;XBX$ D; $ D< $ *Q" &@@X"*"+o0! Sabp+|"-.#
B!"2 +."Y -."9+@.d -."G+@ ;-.XD-,Q $+@-."9+@+  2&+[
Q&( F .&( @ BP DQF!XF $+8 @ D H B@Z 3H;+-,/   XB/ S@ &@*@  +-,/+yx4B8Z5D@+8%%   B@-,/Q"` Q@Z@XF .&*D#*$@@@+8

f3L@<& P(0@+)Q(+-1@+-0 0`9// $$.<&/+*5( "+  R!,\`p0+"m B@+H0&+6@=f4+8P4

:*,+@=fW3B+(@ZZ0@+(4@(1`+F%J((  IXHFh"	h$	2@+(=fBh"	h$	 &0@ +(=fF+(

f3r8K-8N-8N-8N/8N? T$! `R BV-*$;,~LJNJ! 8:::<<   """"<>>>@@@BBBDDDFFFFF

$$$&&&(((***,,,...00022244466688	`@	` @ z @   @*   $	`[( D D.$r[`5b "?XB"B.$3d+-,!(  @/ A @ @(Q@(Q@-". 88  @-,/"$@Q" B88YPQ 88.0!@@8n# 6 6@@ "Q"*"Z"B. -,/."XB"C@@. Q"! *" 2A-4"0Z` T!QT! 2P R"-6m+`@@   h:,QgP=x<@@x@@|hA$ hC$ hE$ ~hG$ ~hI$ +MhK$!+MhM$#+NXO$$+!k@SpU]^pXC(hZ%up\@]@X@

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abcdefghijklmnopqrstuvwxyz{|}~ !XTHX2P R!S2*P4Rp[;XPHQR;ZP@4Rv  H-,/R`S$X$@@.2*$H*Pab+X:<QPPS0@[-4"0+X-z*zZT#[(T{Q4z-tP~X+!Y+!X+"]+"\+"k+"v+#+#+#$+#$+++++++++++++++++++++ $% T+!Y*+A" $1"+7@h++!0" +!

-"`b<+>+ +XB. $&5>/$&5</$'54/$'50". B.l"+@ + R)Z2$*2( $ 8[ 0@0060p8+ @/ N$ Hh.. 8-,/ NHXNQ "&Q" B@.B$Q"H.$ P $*B,*"S2$*2xp.+-$W-$W/$/(`1(B B[E<&9[E[
 1`(+=<&9Z 1HEZ [
 1`(+$(=&5QHE/"1"+i[E<&9[E[
 QFE<&@Z 1FEZQFE*S(F)D* XFXD &( /&4F0.$6@\2H1f+I+JS( H+0(fK(H ( E 
 XD(Q&(!FZH*JOX* J QD +0-$R-$R &2&2f+0/$QdU+0D @)+^/$/  .&2f(`\ FGhS@A +0(B @) D** /&S( H &0XF/XF/ 
gS(d*( HV+ZJ(ZJ(*j*j+j}pWih @) D* L*O@h"

!Q

$)S "
 6_"4"t."p2b+tZ0D6+t"
.
X* *Jv,

 _[;,,[
"*+Q*!
,

 _,L`B+v 3B+/!* /$S$ Dl  A@@+@@,@@,@ @@-@@-@@..2b+ -@R)D(F[+ 	+ + + l&PF .4D 4$  -1F+  -0&-, #-,J -.F+ - D,2f, F,+ 6@.+ "@. @- B-+ 6D.+  @.+   -,  .5$  - --,  @..@-+   
XJ XH((f !(HS*.j EQJ E+0XL * (/(XH ( (.(XH ( &-,J & $0&+ $0f+:

 *4F0S* J+0 )4@ D2`,+ 2  *-,2 B++ D [,/$2D,+ 6 D/F+"`+-,  ..!-,!(! Z *G hSF D+. /! F/&1f+ B D,.F+2f, F,-,J+ D4F DS( H Z0d2 $21$ $ DZ/$2 /$ +$&2/&Z4d S.0$| ${	d+ [  /! F/&.F+2f, F,0&-, #-,J 3D+ W D  D(QD(QD-4@ Z +@@h:"+* + ,+ X  T F D(D/$2D	d+ S+ N (4$ hZ&2&2&+ h7(+ h@)B1B+ hG@4B h,,+@ f,L*j _,l,

 j+!+ m4$ s/

$) 
 4* mGA(G@ S*X* o*
0+ h[
0[(d"( Q* *j _,l.&,,[
 .* ,,[
.*,, *3J7+!3J0+ },,.
$),

 _,L.*+ xZ7.& F7G@[
.* J0+ w/

$*,l *'2*G@(+ m0$|+0	d+0+0 ."1"|	b(!Q,| "2.B! +++A + R) ! R!

 +.2XR!  Oer+$*Xd2RR!  2H12|+!!(R.!VP23r!M+!! R.ZHXR!  $+ R!

R! d2p2R$,3R$,+!)3R$-+!"2R$-3R$+!>! *!  ( )z! + $+ R!

+!7@[+! P( .7R@+! N(Z.$*.'[@-,/Q"` C! +H7@[+! )+@!  R) P( .7R@+! N(Z.$*.' ! -.$

+HX2 $.* +
(1@+!6@*r 
+
( ! XR Y1"H^! S2$*2+! Z2
 @XR+!8X24B!FZ4P!F $.* +
"<P!F*r+!C
"$/
"$/"2HS2H+
"$/
"$/S2$*2+! 4B!GZ4P!G $0* +
"=P+!G!N@i?!Hp!Php>{@!=x!RhP>h!S!;h0=w@!U{@!1!VX!1!; N2-.!Z N2-.!Z/.!YXN!\.$0 NU .5N!^> Z+#4Z./*.2 !j U-(#8   !j S$Y$($.$D=@!b !f CG+!m!g@0ERROR    AT USER       :!h,!i N2Z./*.2 "

 CG-*$;@	`/ @" " CI " T-(#8XF3 " CI " CI "  CI " CI " T-(#8XF3 " CG " CG "$"t U D"4D!~& B" S B" . " 8"-(#8XF3 $/$XD" " CI " CI 8" CG=."

!-.$:6@\-.$:S./*.7@W	`	b"

@(	NORMAL TERMINATION"@ 
IN STATEMENT 3"@ OF "@ AT LEVEL "@8



FASBOL STATISTICS SUMMARY-x""@                ","("&"#"!@(	 MS. EXECUTION TIME@(
 STATEMENTS EXECUTED@(	 STATEMENTS FAILED@@ REGENERATIONS OF DYNAMIC STORAGE@@ MICROSECONDS AVG. PER STATEMENTQH9"2.2 H H`` .-."9+"U[

XR0QRQ$0 DH @H*r"1+P 4D">`dp+">Z0f &@5F"?@d $1+"B(H
.((=f"?  $1&$X #.$ &6@+"GQDXD+8Z1D+82`+"G2@+8+@+"G.$+8Z

Z0L(+"G B"\XF"T 
0J+"S=l"P.$+8 "\ & $1+"G

"X MI

H MG"!"X@8>>>> MULTIPLY-DEFINED GLOBAL: jx"\-8"]-8"]/8"] # D!$$24D"`,< &$2aF-("f+@`"eP!+! +!-8X-8"f9X/$4D 4$"i,\=d"h+ @,<8$"j+   # R!7F$3 $3$+@"pB! B@+H+"r-.#-.# @[/ $ -.#
B!XG@+H  # R!2$3"2HQ2O,<.X2p*r"{ @[/ $ S0@ H-.#
B!.0/*r"}!YQ@+!@)"+@#+8+#+8(-&#Y@)"+@#+8+#a+8-&#U+84"#`bp+85B#(+@# 5*7 4XF+8-(#8-(#E-.#-.#

# L!

`L 0+@8B!+!-.#-.#-8#%-8#%/8#$ # D!$$24D#(,< C@R(& *}4J#+F!5&#-:+#.(&A&0dF!-("f.8`#0+(#3 +!S"."+!$9$; #4" 9.6 8.6:S+   H$ #DYD#D#&$QF 5D#B"&#.& 1 N!^#D5$#B.&1 N! $D+#B,#:[ .$D,h($   H$YD#D#%$*^(.4h#IR!@)  F5 #D,#: $DS#D4$#N.$.$S(zX( 5%$1` N!.$D*H#T 5D#P & +$(&"6@h"Fh$6+P#%"*(.5&"+)" $ D$5B#c+8)"4B8O@$+#c)"4B8@@$Z

5L#e@+#r@@@$0d+#l0D+#jO@$=l#k+81D=l#k+80d+8/$4$8$&.&=l#s 7D$-&#V6@$"7`$+8+80d+8/$5$#n2D$4+8 F$@",0S,0+#z$&.&*l$ $7 $+#q F$4B#~-&#V*$4B$-&#V0$$7d$+#q9#q0d+8/$5$#y+8}H$9Lf3T=8)p1:z8]|-10c=t:k|SU<c\q}{>7{~_|abp+85b$O=#@)"+@$+8 $+$ $+$(B~  +8)" $+8$4$5$7$80@1@<!>!|$@INPUT@INPUTC@OUTPUT@OUTPUTC@RETURN@FRETURN@NRETURN@END"# $[E==pX3+! R) @@@ E@08.2B+"L...<@NAME@PATTERN@ARRAY@TABLE`$9F!+8+8+(x$;F!+0