Google
 

Trailing-Edge - PDP-10 Archives - k20v7b - field-image/cpylib.exe
There are 25 other files named cpylib.exe in the archive. Click here to see a list.
?p0 @00@ 0 ?h0?x
COPYRIGHT (C) 1969,1974,1979,1980,1982,1984 BY DIGITAL EQUIPMENT CORPORATION,  " 
<+
+k2	`@bL
Type "R CPYLIB <carriage-return>" to run CPYLIB.

  Once CPYLIB is ready to accept a command, it will type the prompt
"CPYLIB" followed by a right angle bracket. You may then type
one of the following commands:

UPDATE library-file <space> output-file
		;Read from the specified library file, and write
		;a file with the specified output name. If output-file
		;is not supplied, the same filename is used.
		;You will be in CPYLIB UPDATE mode (see below).

READ library-file
		;Read from the specified library file. Do not write
		; output anywhere. You will be in CPYLIB Read
		; mode (see below).

CREATE library-file
		;Create a new library file with the specified name.
		; You will be put in CPYLIB CREATE mode (see below).

DIRECTORY library-file <space> output-file
		;Do a directory of the library file, and write the
		; output to the specified output-file. If output-file
		; is not given, the output will go to the terminal.

LIST library-file <space> output-file
		;Write a listing of the library file to the specified
		; output file. If output-file is not given, the
		; output will go to DSK:CPYLIB.LST.

TAKE cmdfile
		;Take commands from the specified file.


		CPYLIB modes (UPDATE, CREATE, READ)
		-----------------------------------
	You select one of the three CPYLIB modes by using one of
the top-level commands "UPDATE", "CREATE", or "READ". CPYLIB
gives you a different prompt for each of the modes. You may
type "HELP" once you are in the modes for further information.
Here is a summary of the commands allowed in each mode:

CPYLIB UPDATE MODE:
	The prompt will be "CPYLIB Update" followed by two right angle-brackets.
You are then able to specify any or all of the following commands:

	REPLACE, INSERT, DELETE, END, EXIT, HELP, TAKE

CPYLIB Read mode:
	The prompt will be "CPYLIB Read" followed by two right angle-brackets.
You are then able to specify any or all of the following commands:

	EXTRACT, END, EXIT, HELP, TAKE

CPYLIB CREATE mode:
	The prompt will be "CPYLIB Create" followed by two right angle brackets.
You are then able to specify any or all of the following commands:

	INSERT, END, EXIT, HELP, TAKE


In CREATE mode, you are creating a new COBOL library from scratch.

Insert modules in alphabetical order using the "INSERT" command.
For example, "INSERT MODNAM FILE.EXT" will insert the module "MODNAM"
from the file FILE.EXT.

Other commands in INSERT mode are:

TAKE filespec	;Read commands from the specified file

END		;Write out the library file and go back to
		; the top level of CPYLIB

EXIT		;Write out the library file and exit.

HELP		;Type this text


In UPDATE mode, you are reading from one library file,
changing it by module REPLACEment, DELETion, and INSERTion,
and writing the updated library file back out.

UPDATE mode is analagous to using a text editor which can only go
forwards in the file, looking at one module at a time. Since
the modules in a library are in alphabetical order, you must reference
module names in update-mode commands in alphabetical order.

Commands in update mode are:

INSERT module file.ext	;Insert the specified file into the library
			;and call it "module"

REPLACE module file.ext	;Replace the contents of "module" with the contents
			; of the specified file.

DELETE module		;Delete "module" from the library.

TAKE file.ext		;Take commands from the specified file

END			;Write out the updated library file and
			; go back to CPYLIB's top command level.

EXIT			;Write out the updated library file and
			; exit.

WHERE			;Show where in the directory we are. This
			; command will type a few modules before and
			; after the current position. The current position
			; is important because you cannot reference modules
			; whose names are alphabetically before it.

HELP			;Type this text


In READ mode, you are reading from a particular COBOL library file
but not changing it in any way. The only thing you can do in READ mode
is "EXTRACT" a module (copy it to a file). Modules can be EXTRACTed
from the library in any order.

Commands are:

EXTRACT module file.ext	;Copy the module from the library into the
			;specified file

TAKE file.ext		;Take commands from the specified file

END			;Return to CPYLIB's top command level

EXIT			;EXIT to monitor command level

HELP			;Type this text

CPYLIB>
CPYLIB Create>>CPYLIB Read>>CPYLIB Update>>
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
+ 3 L{*"L L{ ^
Sf " B
[@,Yi4B<+@ L|Z&<,O4B
<+	,[ "
T,Z+
 "L $L|, 
S7BL&+dt+L~	4@@L&7BL&+@@L&	4dt,	Q "L $M, , " B
[+
P	P j	P0	P@2	PP"	P`	Ph 	Pp6	Pxc	Qs	QH,<,~,\"1,~ $M	,,\$M
,DL\$M DL!$,DL!$M DL\$M DL $4,Z1F4+1ZDL&, L& BL*@@L&+[\$M!"4! BL*+[(5HM@ $M,,\$M
,DL\$M DL!$,DL\$M DL\$M DL!$ DL $M,ZDL&, L& BL*@@L&d'4h$M0D1Dl+h $M,,\$M
 DL\$M DL!$ DL $M,ZDL& $M,,!$ DL,U $M,ZDL&, L& DL+@@L&+,>\"LKZL&!&
4!\"LW!&
4!\"Lc!&
4!\"Lo!& 
4!,^\$LK DL\$LW DL\$Lc DL\$Lo DL,~ $M,,\$M
 DL\$M DL!$ DL $M,ZDL&,+ $M,,\$M
 DL\$M DL!$ DL $M,ZDL&, L& DL+@@L&+7@L)+u\"M+# $M,, $M,ZDL&, L& M!4! L& BL)@@L&QBLQBL "XBLXBL,~,!$ DL\$M DL\$M" DL,~ $M",,+N,v,	,	N " B
["M%,P6BL',,+,~@@L'dt+	4,~ Ku!$,R @@L',~,v " B
["M&,P6BL',,+,~,	,	N " B
["M(,P6BL',,+,~@	Um	U(2	P`,	PhI	U0U	U@e	Qs	UP(	U(8	P`0	U`^	PhG	Qs(	U(5	P`.	Ph;	U0U	Qs,2,~<+	,5,~<+	,8,~<+	 $M,,,8,~+	 $M,,,7,~+	 $M,,,5,~+	,\"\">,~
If you want to abort the CREATE operation, type
Control-C then "RESET" to the EXEC.
,\">,~,\"D\"L,~
If you want to abort the UPDATE operation, type
Control-C then "RESET" to the EXEC.
 $M/,, $M0,,!$ DL $M,ZDL',o,x,~ 
[1B+$+ $M/,, $M0,,!$ DL $M,ZDL',,x,~+3 $M/,, $M2,,!$ DL $M,ZDL',o,x,~+/ $M/,,,+,@@Kc $t,Z1Ft,~Z,+pu`v	V@wO@Kc,~d4ZL''4"M1Bl41Bl41B+	`t+	\"M5,~\"M8<+@@
\@@
\d4 ,> $M?, M@ MA (4F0&00f=1/&1F &/&0&0f+<(F+,^5(	l4 ,~.&\"MAZ\"t+#at ,~\"ME,~@@L MJ*$L%,~\DL $L+ $MK24`b+!,~7@L)+! "2DML3DML+++!\"MM,/\"t6@L)+* "   
[1B+) "L $L|2+X 
S+
\"MN L)	4, MR BL BL@@L)+% " U$@+ + ,~,+3g
O
 MRAMS2DMS+? p2BMS+<\"MT,>( ">XB(,p,^(,~\"MY+#\"M\,~5L<!"\$Mf4<,> "B,>XQ"l@@4J,^ "B,^x' Cp Ep+4,^x\"Mh,/,^	4N+"\"Mm,/+" Mq*$L L DL7@\"L} BL,^ ^Kt,>ZFKt "L $L|2,~ Kt7BL&+[	4Z@@L&+Kt Mr@ &Lz(F{OB> 9^.(Q"XadgOB.(1hz+`OB.(1h+e,~,v,F+#,> " BKs " BKs 
]K4Nt.,x+s.,3L+u`T+n,%+s+n,L+#\"Mr+LaT+JNM|,;+s+J,d`T+M|,,~,	gaV+3VM~+8BN,~\"N,~ N,;,~ N
,;,~ N
,;,~ N,;,~ Ks,.,~ N,;,~ Ks/" BKs+			COBOL Library		  N,;,~ N,;,~ N,;,~+	 $,),~:Ks " BKs+	 ",PC4B	,~`T+	,%,~,,~+	&",>4B1,.,~,^.$,),~+	  & (&".$)D}=h5 $)D,),~5F7 $,),~+	  "O,QR4B	,~@@Ki N*"Kr N
O!&H $DDDO!&@H,~ L* BL "L,O4B	ZL*	4J,~ "@,R ,~ "!$,R ,~l4\"t 
^/, .0,+`,b.,=nQ+U,b+R\"N 
] . 03BN+Z,b.,=nW\"t,~,v,,~d4 
] _.3L+a,b.,+_+t,d N,o N+o "0Q"A@ $ N@@
\@@
\4Hk.(1H (H=dg N 0ad,~H5Hm,~`t+r "O,QR5B#,~\",~ "@,R ,~ L& BKv "Ku,O`5B#l4 L& N &L(4&N0F+ "` B] B]@@_ " $@ N,Q[5B!,@ 0
]8B.
N4,^$74d$$  " N,Q[5B+	^.73NNgZ.7 0 $.  ",Q 5B D8`8D ",Q 5B D8`..=0 N_,~1B++#\"N+"\"N +"\"N&+#\"N+,/+"ZL* BL "K,O4B	ZL*	4@@L*,~,	+"\"N1,
:\"N3+#d4@,_+#+	,	+'\"N8+# 
^3L^+	/,,	+	+*\"N<+#,	a+l4@,_+#+
7,	a+l4@,_+#,
7+	,
0+#,	=,~,=,~+	,A,~+	 
] 08B;,	I+8,=,~,A,~+	 "@,R 4B@,~d4@@L&+	 "@,R 5B	 "K},O`5B	ZL+ BKx "Kw,O5B	 " $@ NB,QR5B	,X " _ NC,QR5B	 ",Q 5BP ",PC5BR+M0B,~+R,~ "@,R 5B	d4 "@,R 5B	:x,~ _O@+`4B^ $@._"S&NC.fNC.N4"[:_,~,z+d`t@+h\"ND,
:\"t,~at@+p\"NH,
:\"t,~ 
],	+j+	+m,	I.,,	+j+	+m\"N1,
:\"N3,~ 
^3L^+t/,,	+t+s+m 
],	+w+v+	,	I.,,	+w+y+	,> 
],	+}++~.,+{,^,~Z,^+	,> 
^3L^+	,	+	+	+	.,+	:,^,~ 0(B} 
\(D}2d,~2D+	"NM$NMdNN$NN&NOfNO2d,~2D+	+	:x:x,~ "+` B^ B^@@_O@+`O@ NP*"\@@Ka,~,	o Kc BKc,	+ 6 VKb,
4R	% 6
.Kb VKb,	)an`,	)R1r12a+	",
4RNP+	r,
0R1R+	",	)+	O+	_ 2`n`,	)R,~,	_ N 6,~
\6@Kcl$+	-Z_aF?+	6.& F_ Ka`fp+	5fNRZ^O@O@ ".B^,~\"NR+# (@hNR 
(H}1HA+	; B d* J +	.\"NX+#,
	 N,	g`V+	G4R	F1r12+	E,> 2,
 22Rx,
,^,
`n`+	?+	=2VN+	=+
],	- ".B],	g,	_aV+	K2VN+	K,~ "K},O4B	P+"l4,~ "!$,R 5B	T,~<+	T " ,Qc7@,~0B+#\"	[\"N\<+	Z?CPYFDB Library file directory is bad: :Ka  ",PC4B	<+	b ",Q  4B	1B,~<+	f`t@+	n ",Q  4B	1B+	l<+	k\"N_<+	mO,~ZL' BKz`t+	~`t+	 N &L(4
&N0F1Fa+
1Fm4d4 &`t &QFKz "Ky,O`5B#d4 " BKul4,~l4+	xd4+	x\"Nc,/+"\"Ng\"Nk+"@@L'et,~ "@,R 5B
,~<+
ZL' BK| "K{,O5B# " BKul4,~ " ,PC4B	<+
 "@,R d45B
@@L',~<+
,
4R	0r+
1r
12,~02 2,~6@Kg+
  ",Q 5B
-at+
" 4R
,~Kh>Kg4R
,~`D+
' DKh No BKh " BKg2Kh4R
,~ ",Q 5B
- DKh No BKh " BKg2Kh4R
,~1B+
/<+
.,
@,~,z+
4,>,Np,	U,^+	\"Np,
:\"Nr,~,	g2VN+
7 ".B],~ (
\Q(A@ &4B	."1B "=f
;,~  Nt  Nv Nx 8Nz N| 8N} 8N@
? <+ " $,R 5BL}+CREATE@D@DDTDIRECTORYEXITHELPLISTREADTAKEUPDATEofLIBARYLIBlibrary filespec@(HMoutput toDCYTTY:CRLF to output directory to TTY:contents ofintoCPYLIBLST@$$library file?CPYINT Illegal to nest "TAKE" commands
commands from fileCMDare we in directory?Hx!Hv&Ht)DELETEENDINSERTREPLACEWHEREEXTRACTmodulefromwriting towith contents ofSEQUENCED?CPYUSD Unsupported device
?CPYXXX DVCHR% failed at CHKOFT
One- to eight-char module name`(HM;H
\HL6?Not a legal sixbit character: %Input module name truncated to eight characters
	C@L@H@
?CPYCME [CPYCFA Command file aborted]
 @|+p[CPYRFD Return from DDT by typing "POPJ 17,$X"]
?CPYDNA DDT not accessible
?CPYCNR Cannot restart program now.
[Assuming you meant to type "POPJ 17,$X" - returning to CPYLIB]
SYS:UDDT.EXE?CPYJSE Can't read in DDT:
 GET% JSYS failed: ?CPYJSE Can't release JFN for SYS:UDDT.EXE: 	ALH
T%CPYNLM Directory is empty-- no listing made

*** End of library file listing ***

HMw, ,~+{     ,+,~+HHt?CPYFWN First word in library line not line number
?CPYLNE Line number embedded in library module
H
\HHKi	Page	HN

HN
*** Program HN	=Ki-----  <Current pointer>
	/SHN0L(I
]I`?CPYPEF Premature EOF reading directory of input library file?CPYFFD Input file format is bad-- not a COBOL library file?CPYBLF Bad library file: Byte size is not 36
?CPYJSE Can't open input library file:
 GTFDB% JSYS failed: ?CPYMBP Module  has been passed, type "END" then UPDATE again
?CPYAIM Already inserted that module
?CPYMMI Modules must be inserted in alphabetical order
II+`\+a?CPYMAE Module is already in the library: ?CPYMNE Module not found in the library: 000000
\
\3P,	&,	)+	%\?CPYATL The module address is too large to store
		?CPYTMM Too many modules in the library
Word address too large?CPYPEL Premature EOF in library file
?CPYCOF Cannot read file's byte size: ?CPYIBS Invalid byte size for input file: 
 (It must be either 7 or 36.):Kh,Kh\?CPYMNF Module  not found
inputlibraryfileoutputlibraryfileinputWofflineBfileoutputofflinefiletempfileoutputdirectoryfilelisting,>@@TaWa*"Wa,^[DTZDTSFT`b+Wb T0b+O
TTZ$(Rad+WnO@W,P8  T`f
+O?[0$0d+O@ DWdWo@@ T@@ T7@W+O,Z4DOD D T	R!&ad`+Wp`dl&`d@l&`d lGF T`f+O,@@ T`F+O=,OS+Sv+O=Z1D TdWqdWr@7@Wl",Z(5BOB DW7@W+O7@bQ"@ WfWr W T T+O:@bQ"@ WfWrXW B T B T,O\ B T7@W+O=,OS+Sv!&GF T+Sw Wx,S5+Sv W~,S5+Sv1B+Sv X,S5+Sv X
,S5+Sv,>  T	,>'4OM,^$X
1D+X1D+X
1D+X X,S5+OR X,S5+OR,^:x,~,^,~  T`b+X`b+X  T	4OW+S{0B,1B-+OZ X!,S5,~ X',S5<+OU"Wq(B $&W$ B T,~TTZ$(Rad+X'O@W,P8  T`f
+P[0$0d+P DW6@W+Osaf+P$Wo2DW+P6@ T+Oo  T B T T T+Oq T TR` T@@ T,O\!"GB T+SwZ4DP D T	R!&ad`+X(`dl&`d@l&`d lGF T WdWo`f+P@@ T`F+Or6@WG+P,P +SvO@WG+OrZ1D TdWq@7@Wl",Z(5BP DW,P +X*,O\7@W+P
@bQ"@ WfWr W T+PS"@ WfWrXW B TO@ TR` T,Q=+X++Or Wx,S5+Sv W~,S5+Sv X3,S5+Sv X;,S5+Sv XE,S5+Sv X
,S5+Sv1B+Sv XK,S5+Sv,>@$Wq W,[,^,~  T`b+XK`b+XM  T	4P3  T`b+S{  T	4P4 DW ,>  T	 XN &W 4P6,^$XN3DW+XO "& W *&6@." BW  "&W$W  B T+S{ XP,S5,~ XV,S5,~,^ X[,S5,~7D+P?`d+PA[C$P:[2D+X\ Q$A` D T DWD,~ $X]7@W $X^+P= !$Ap TWD,~$"? T+PFDT@,~@@T DW! TbDX_+PO,>,> ,PX7X_@ ,^,^5DSz W!+PD`D+Sy,> Z T	 W!4PT,^+Sy,> TWD Xd,S5,^,^+Sz TWG T T  T / T4BS{ BW!.B T D T[ T4BP{3DW!+Pz "$Wo& W!&4FPf.$,>/@DWG=bPd,^dD.$(D{ 7B TZ T(B{Q"S T	Y Tl&@4PoZ[ T.QD T+S{,>,>,> "2DXe3DXe+Pw TWD Xj,S5,^,^,^,~ X',S5<,^,^,^+Pk$Wq+Pg  T`b+P^,P,~  T+P^ Xl@@WF!"4Q
+BW"+Xm4Q!"XW"!$@!&@4QSW"@*4Q(W" BT	+S{$Xr,S5,~0B,1B-+Q1B,+Q&XP,S5,~ Xz,S5<7W"+Q:WF0b+QW"	4Q"2;KA"Q+QHX{HX|HX~HX Y,S5,~1B+Q Y,S5,~?Y,S5<+Q$"?BT+Q#T@,~,TbDXX+Q,7@T+Sx,>,>,>?,Q=+Q*,^,^,^+Q^,^x,^,^,~@@T`D+Sx?dW`+Q0Wa+Q8,>,> 3Y+DWaY*"WK "WH*4Q9 WJ(DW` ,^,^+Q.1D&Z T,>&Wr/7  ",^/&2$2d+Qv,Q~+Sw,R+Sv,Q~+SwT TWD Y$,S5+SvT TWD Y),S5+SvZ T$Wr/7  " W&/(D  W&&W%.,> T7@+R.+R.? x+R	`+R T,^xZ T$Wq/7  " W&/$W%.W&  T/ B T,~,S
,~  T&W%6@.$Z T/"Wq3"  S T	XW&7D TZ T(D{Q$l&4RZfWr.W&XF T+S{ TWD Y/,S5,~$"TT   T`f+R;af+Rz`f+R0`d+R-[ T4BR),PX+Sv+R+  T/ T.B T  Td"l" B T+Sw,R|+Sv,Rw5BSv@@ T+Sw  T`b+R9`B+R7`d+R8,PX+Sv,RJ+Sv,Rw5BSv@@ T+Sw,R|+Sv+R6,RJ+Sv@@ T+Sw`f+RA[ T4BR?,S
+Sv,S+Sv,Rw5BSv@@ T+Sw`f+RG`F+RI,S
+Sv,Ri+Sv,Rw5BSv@@ T+Sw,Ri+Sv@@WG@@ T+Sw  T`B+RY`b+RT  TZ T	4R\Q" O4R_Q"@$WodY/S$`4R_Z T	 T`fl",>	4Ra,^+S{ T`f+S{Z T		4Rh+S{ TWD Y5,S5,~ TWD Y:,S5,~ TWD1B+Re,^ Y@,S5,~ YH,S5<,^+RV YM,S5,~  T`B+RnZ T	 T`fl"	4Rr+S{ T`f+S{Z T		4Rt+S{ TWD Y@,S5,~ TWD YM,S5,~@$Wq7F TZ T,[,~ TWD YQ,S5+Sv  T`b+S[ T4BS{Z T	l"	4SZ T	l"4S+S{ Y@,S5,~ YW,S5,~Z T	l" T`dl"	4S+S{7D TZ T(D{Q$&Wql&O4S+S{ TWD Y],S5,~Z T	l"	4SZ T	l"4S:x,~ TWD Y@,S5,~ TWD YW,S5,~$",>,>   T	Z4S$,^ad+S# 	4S',^+Sy TWD Yb,S5,^,^+Sz TWD Yh,S5,^+Sz,>,>,> " U$@+ + ,^,^,^,~,~,~,~RBW'Q"A` BW' "+S7RBW'Q"A` BW' ",>,> Yh DWA $ DWA,Su T,Sk W',Sk ",SuW'4BSf1B/+SA1B@@WA,Su+S=W'1B/+S?1B+ST1B+SU1B+SY1B+S[1B+S]1B+S^1B+Sc1B+SM1B+Sh $/DWA+S? WAU$@+ + *WA@3BWA+SS`9SQ.DWA+S=7WBZWCQ$A`4BS=1B@@WA,Su+SV WD &,So+S= WD &,So+S= WC,Sk+S= WA1"$+S= ",Su@@WA ",Su+S=WDWEWE4BS=,Su+Sd "BWA "BWA@BWA\"W(,^,^,~ 4DS{@)B.",Su+Sl FWB5$Sq ",Su#&WB,>6@,Sq,^."+SuBWA:WA,~T+SzT+Sy ",~g ",~:x,~
I HWLd
@TC$O`dO@W+OS?%\ Default buffer size requested larger than 512. pages
 Max IFN requested larger than MAXIFN
@@W+O0 T,OF+Sv+O(< T T0Can't open ^8 because:
 File is already openMxWsCan't open ^8 because:
 Byte size not between 1 and 36EN(WxNot enough memory for buffers;
 can't open ^8 for output]hWCan't open ^8 because:
 JFN supplied is 0UMX$$l&+OPl&+OPl+OPCan't open ^8 because:
 DVCHR% JSYS failed: ^1UN(XCan't open ^8:
 Specified device is not supportedI;X $+OU X+OUCan't open ^8 because:
 OPENF% JSYS failed: ^1G>0X^1
 (Type "CONTINUE" when the problem has been fixed)c@X!@@W+Od,OF+Sv+Oz,P+Sv1B+Or+SvCan't open ^8 because:
 Attempt to read temp file before writing ite8X,Can't open ^8 because:
 Input byte size differs from output byte sizeEN X4Can't open ^8 because:
 Can't open more than one TTY: file for input at the same timeixX<Can't open ^8 because:
 Not enough memory for buffers]hXE $+P" XL+P"0W  W  B T+S{UN(XCan't open ^8 because:
 SIZEF% JSYS failed: ^1UN(XQCan't open ^8 because:
 GTFDB% JSYS failed: ^1UN(XV P+PAfiletemp file
Error writing ^8:
 BOUT% JSYS failed: ^1UN(X`@#@Error writing ^8:
 PMAP% JSYS failed: ^1UN(XfXXX.TMP.-1;THXkHCan't open ^8 because:
 GTJFN% JSYS failed: ^1UN(XmCan't open ^8 - ^1
 (Type "CONTINUE" when the problem has been fixed)c@XsYXX.TMP.-1;TZXX.TMP.-1;TWXX.TMP.-1;TUXX.TMP.-1;TCan't open ^8 because:
 CHFDB% JSYS failed: ^1UN(YCan't open ^8 because:
 UFPGS% failed: ^1UN(YCan't open ^8: ^1
 (Type "CONTINUE" when the problem has been fixed)c@YHWL
?HWHError reading ^8:
 TEXTI% JSYS failed: ^1UN(YError reading ^8:
 PMAP% JSYS failed: ^1UN(Y7@W$+Sy+SxCan't position ^8: File not opened for inputM:xYCan't position ^8: File must be a disk fileM6 Y$Can't position file because:
 PMAP% JSYS failed: ^1UN(Y)0Can't close ^8 because:
 SFPTR% JSYS failed: ^1UN(Y0Can't close ^8 because:
 CHFDB% JSYS failed: ^1UN(Y5Can't close ^8 because:
 CLOSF% JSYS failed: ^1UN(Y;Can't close ^8: ^1
 (Type "CONTINUE" when the problem has been fixed)c@Y@Can't close ^8 because:
 RLJFN% JSYS failed: ^1UN(YHCan't close ^8: File was not openG0YNCan't close ^8 because:
 DELF% JSYS failed: ^1UN(YRPMAP% JSYS failed: ^1,
 couldn't unmap pages of ^8UN(YWCan't RENAME ^8, reason:
 RNAMF% JSYS failed: ^1UN(Y]Can't RENAME ^8, reason:
 RLJFN% JSYS failed: ^1UN(YcHW(,>@@[L a^*"a^,^@@[Pab+YpC"Yiab+YoO@[P+Yp\"a_C"[^dB." B[Z." Ba^7@[P+[I,Y+Yx a^:.$ B+[I\"Yz\"ae+[J?MMANGR: Routine "INITM" encountered a problem:
[M & (
 Q"4Z.&=hZ+Z
(F{@Q$X  ah{4Z
,[M:x,~[M,~,>,> ai  D."*fZ
[N:
[P0j3+Z7J[Z+Z 7@(+Z 
(+Z7@(+Z 
., L( 
 B( D(ab+Z F( H(
[N+[I\"Z#\"ai
[N+[J\"Z#\"an
[N+[J?MMANGR: "INITMU" routine encountered a problem:
7@[Pl"[L[MO@[Zab+Z. xd$p[ D[Z4DZb [L [L,ZL4BZK   0F+Z7,>[ZO@[Z " $,ZL,^[Z5BZ7 D  ,Y+ZJ  0F+Z=S F   $ D  .&+ZA$&	. /$	 F $.D  BS3B7as@ B@@ "@@=bZE [L [L,ZL4BZK\"at "+ZK "+ZK[M,~,>,>,>,> a^ 7f[Z+ZQ\"aw.$ D[[ x,Z+Z\ `f+ZY @@ .( x(D/$db>,^,^,^ +[I [[7D+Z^ D[[+ZQd6D+ZQ>,^,^ +[J,> 
b@4DZe9Zd0h+ZoZZ[L L[Y.(<fZl.(0h+Zo4DZh+Zd 
[YOd [L<fZqD+Zn,^[M+[J (D 
[L`l+Z~@@C&Ztaf+Z{,>,> 
[L(L/,  0lb,^,^+Z~QX& [L(H.(*& ,^[M+[I,>,> [[ 
b@4D[9[0h+[ H[[Z L[Y.(<f[
.(0h+[4D[+[:  [[(B [[Q 
[YOd<f[D+[,^,^,~0d+[34D[I`F+[6`f+[7@[Q+[;(F{[M.0f+[8 [Mrb<&[`+[ H[\ 4F[==b[ [\@F=d[+[I[M[d&(F{.0f+[8/ a^ .$3H+[)6D+[%6B+[$+[@ ." B[]!"@0 B[]<&[-`[]+[+[][\ [L[]4F[==b[. [L@F[\=d[1+[I[M+[I\"[B\"b+[J\"[B\"b+[J\"[B\"b
[M+[J[Mg ",~:x,~9@[L%MMANGR: (INITM) Memory will only be managed in section 0
 Can't find a private section
[R Too many modules called the initialize routine
 "INITM" routine not called by main program
@?MMANGR: Internal error
%MMANGR: FINFRE will not restrict memory
 to a particular section except section 0
H[RH8 Attempt to return more than 1000 pages at a time
 Input starting address of block not on a page boundary
 Input starting address of block + # pages returned
 goes over a section boundary
 Attempt to return pages to section 0, but no
 section 0 page map was supplied when "INITM" was called
 Attempt to return pages that were not reserved
 Attempt to return pages to a section with no reserved pages
6b,6`b,Wg{jWgz.	Wgy0Wgh1WggWg]7Wg\MW^.W]{7W]xKW]wgW])W]&jP2iP2i P	P	Hl\rIYzUl)\[ZZYYRTZ{{M/US[ZUL&mK{[I[RK }[\KQn[Y?\eZ;t{iZ5uy[J5ux[I*%|[5V3[-5V2[)5V2[%5V1[$5V1[ 5V0[*#u[B5w[@5w[=5v[;5v[85u[65u[35Ue[H5Ud[I7'[]
TP[[
		"[^TCPX$T@J$3
?j0Z?j0
[PP2B[LP2?xa^?^D[O?^?]r[M?]I[LT@M@T@ T@tr@T@[[ ^p:
Z|NZ|NZ|MZ|MZ^hMZ^hM
Yo|CYi^hKnYxzjZ#>U'$[Q\b!ZYLYZLLXnZ^LXnZ\LXmZQLXmZQLSDZbLS<Z~LS1Z{LO"ZqLO ZoLOZlLOZhLOZdLF~YL8ZKL7Z(L5ZJL2ZAL2Z=L1Z7L1Z.P^*[[MR/Q[K+T2[KHY
ZHY
[
HY
	[HY
	[HY	n[E`
EZ
?^Fbp`YiWOPE6W8P2i@P	P	+f.hS+f.[S1+f#
Qc+fPC+fjQR+f4O+f1O`+ew*Q[+evIO+evFQ+eUrS2+ePfR+eOS1LA$5C8\&W!8tPk8tPo8s
SYQqQf'S|qQd[WHUqQdWWKo#SW`o#=Wao"tQ0Ul)\jmWFSVGWLZ~TV`O}W#!a"W+HCRr+EMRe+Rh+Rt*qRa*pRJ*p
R\*p	RY*pRT*n=Rn*mLR_
\+W&
\R
\$R
[?tQ~
[?W%
[?W%
[>|W&
[>kW$
[=BR	
[=AR
[=AR
}^T#^{HHM	3[@[S+
		QQu4*Qu4)Qu4#Qu3vQu3vQu3uQu3uQ
U-,
rLd~-
rLdh,rLPyQrLPhQrLOPr<#WHB)YUrPW8OBW5PmQcWAk+WBFInTT@M@T@tr@T@[[ T8a],+#nPf+#'tS*(IV1W'(I^W'
:v OD
:vPbW|S2bRWGbNoSlbNR7S'bNPNS#bNPGS$bJ;!OqbJ+iQvbJ*-Q{bJ*-QxbIPbHo?P
bHo>OzbHo>OrbHo=OobH-OSbH-P6bH+aOZbH+UOUbH*]P"bH*OWbF9KW$bFJPTbF:Q9b=%Qab=%Q^b=YQ.b=}Ob=|OUb55QSTb55QSM
^SAb55AS?
^S=
^S7b5fShb5~Sob5qSqb4gGSfb4ZSub4O*SVb45Sdb1R+b1R;b1R%b17R-b)Q&WESb`?SSb`:.Sb`9Sb`Sb`LSbpSbcR~ni|O^Zi-Q*Z*T
k#K-(o!P(T*
P8(T*P=(T*PA(T*P?HG"PGt$O?Gt!PKF/wbe%WAbeW(}+W^WDP	C:~Wax-&WDiD&~OFiD&xOMiD&vORiD&qOP
al7;J`y d_]NTPcUtJSz_d@S|MR/QS{+T2S{JM@:@K.q9RVK!pHR?K!oYR)K!dWRwK!SYR7K!SYR6K!SWR9K!SRR8K!P]R0K!LdRzK!RAK!DRIK!ARG
HOC:jBWW :f6yP:f6vO@[pKWeWCWeWBL(
P~YX`OG9eNUBe%I=mK,wG2:}mDAYwX5%GS?&^S=K0	G8OQiOOrc OOqh W5.O9RHWE
WoWAW1W1K{1`Kw1JL0v\Ky0v Ku0VJKO/gO{OrJOq|W7;W7W7`W7JW6v\W6v W6VJW6PsO/L`O#LO.`)O.G)O.:wO-|OO=ONyiON}ONK]ON@ION-?ON-ON+ONkWNDd|NUOE!"ODpODJGDE%;OD9?MK.dcG5PJY@P2iP2i P	P	@7gw	+7ez	67es	;7em	57em	.J%	-7ov{|
p{|	h{|	d/sut{yajyx4949
48)g[r'K
:r'A
;r8
:rowbUqQwx2qQd[LqQ;tL+Ul)\kwKaSVGL@c;1LL)c;
c;ry[ZZYYV]&+9y
9ySU:W	U:W
G~U'[zU'y}U'y{U&YgQAP%Ls
7TwBMPb[MPb
^7YKcpX9
S>bM<>bM9
];syvvA[4vJv4?t94?t94?t84.=/4.=.4.=-4.=-4.;U	4.4.4.4.4.4-j
H	&
nK
'L:o
'L5p
'%[
'LL&tg}Ktte[P
<J_	X
<JY	U
<I?
4
<I
0[S+$c
?=pKL
Ks_[I
THVM
j}HT
		LL+Lu"cLu"JLu"@rLO	NrLO
	rL.l	rL.i	or<^b	xr<9
r<9


r:^Sp
'#FAW&^l@c,Kul5(w_l5(^+`l/Z{Kdl/X.Kdl/G&Kel/E"L)l/LL'l/~L(l.uKel.n@Kgl.m%L'l.lcL(l.:Kfl.:Kf@^HB(
k.&?Hk!e+Y>lBLCg<TXJCSMPqXSMPqSMPpSMN*
67&67%67$+#V;+#g +#`+#:/+#)+#(
[{%LL*%-%
A3%
@y7%
@y5%	sKs
Qk	Q
Qk	T
:zW
r5Wr5>BLP
:wwL%SbdT Sbd8@&/JH_0?
/_04
/0
_0
-_0
'_0
"_0
 _0
|WYKb^pD
\|,HKa]@ @xf=lw&]Yw(w_Yw(^`l]E$XMLE$X3DE$X31E$X2>E$X*E$Ue>>Aj<2.;
m7G81TOs1LYCK1z@
gIG5.g<zN.g<oZ.g<nW.g<nU.g<mT.g<mQ.g:mR.]Iw/.RCSs.RC?t.R3h.R%n.LX
as"	n
as!	l.E&3.B7a.B7_.B7]
aTJ[.B',.B4
aSg3-;5!k-;5!g
^$DdK+mK+lu_K+l>@(XwB(T{<	c(T[$	g(TZh
(TZa
(T!eJ(T#
Ns_?!|K@'a\G>
J#G7':=u'::t#4#5
VJ4`	`oX`g^`a[.,,	[KF%V|P
+aP
+aP
+HT P
+@oP
+@lP
+@lP
+@g@P
+4hP
+/AP
+.P
+P
+aP
+\P
*~)P
*}C@P
*ukP
*qH P
*o4 P
*nfS=Y`R%
`R_tG)	KHY4Ey*E[#}*20R})Wx
iD''JiwW	xg#pFog#jre7
Juw]cAw]Rw]Rw]Pw]MajLL*aiN^_.kU_'gLc_sLo_jJLW_i|LKP\]Kr\|v1KiNjT9NjT9NjT8d@tNZy[RMfRMe`hRMe_FRMe.MXytMR/Q	MR/Q	+T2	Mo	Mg	%Md	MB	"MA	"MA	M@	MoC	IMo8	KMn_	GMn\	=MnV	FMnV	EMnU	?MnU	=M]	)Mh;
M!-
M+2MGMAKss"!RKsAxKquKn"&RKmSxKig[	KRmKRaoHKRY&sKRY"KRV5vKRM1cKR(KLKR(J6RKR'xKR KQKQwq1KQvJ"KQug2KQqWjKQjBLKP_")RKP-xB)KtK<jKL	RK<ixK<,BLJL=AJL  JLPJLzU H&<0@JLmf`JLL^K/'#
K/&lK/&i
K/&h
K!Pa
KbL#loJ
Ks	#lktHg2;KhHg0`KgHg/KhHY@oxHY@a
G8[S .@?W`>%tL6nysMeZBB0\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'hw]!+{0