Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/clustr.exe
There are 2 other files named clustr.exe in the archive. Click here to see a list.
?p@?xG3.=Kb)E},tE`INXQF:{A)'[L{BE@	(#sX	ysOR HELP',/)(' TYPE:',/,'  1 TO DIVIDE THE RANKS OF DISTANCES INTO 15 EQUAL INTERVALS',/'  2 TO DIVIDE THE ACTUAL DISTANCES INTO 15 EQUAL INTERVALS',/,'  3 TO SPECIFY THE INTERVAL MAX AND MIN',/,'  4 TO ENTER THE ENDPOINTS OF THE INTERVALS',/)(' ENTER METHOD(S) OF OUTPUT, TYPE <RETURN> FOR HELP',/)(' TYPE:',/,'  1 FOR SHADE DIAGRAM',/,'  2 FOR DENDROGRAM',/,'  3 FOR BOTH',/)(' ENTER NUMBER OF ROWS AND COLUMNS(I.E. 13,5) ',$)(2I)(' ?BOTH M AND N MUST BE GREATER THAN ZERO',/)(' ENTER POWER FOR MINKOWSKY METRIC',/)(2F)(' HOW MANY VARIABLES? ',$)(2I)(' ENTER CLUSTER LIMITS(MIN,MAX) ',$)(' ENTER END POINTS OF CLUSTERS(8 PER LINE)',/)(8F)(' TYPE:',/,'  1 FOR CLUSTERING BY VARIABLE',/,'  2 FOR CLUSTERING BY OBSERVATION',/,'  3 FOR BOTH',/)(I)(' ?IMPROPER RESPONSE',/)(' ?NOT ENOUGH CORE AVAILABLE.',/)(' ?NOT ENOUGH ROOM AVAILABLE TO KEEP DATA IN CORE-','CONTINUING',/)(10F)(+ -<$SOd"& F & F & FOf
 <],
 <i,, <l, <o,
 <r,, <u, <x,
 ,0d0d++ <y,,+
 ,0D+!& F0D+!& F <|,, <, <,
 0f0f++ <,,+ <,, <
, <
6D+% <,,+ 0$0d+@d` ,0D1D+*++!&} F`  F <Z,#g ^0D+0 | D56b0b+5+1454C4C45454545 <,, <, <,
 $2$"+< $3$+> <,,+5 0D+C <,, <, <",
6b0b+H+D4L4H4H4L4L4L4L <$,, <', <*,
6b0b+P+M4[4[4P4T <+,, <., <1,
+[ <3,, <6, }_D,ZD_ _ <9,
:_; ,+X, $ D!$}3D`+f <;,, <>, <A,
 0$0d+d+f <B,,+^6D+h $ D $Gd+s/$6b0b+m+k4m4p4s ,1D+r  D+u ,1D+o " D+u "3$  D"$.$7 .$( D^ ( 
(
3$  
$
.
^.
.
.
.
 $". H <W,+5"$2D++ $2D,+&"+0D+ $3D,+( $._ D-.^ D". D. D. D`. D] ( ^3$ .] D# (.# D  $".  D _ $  Dv - $  Dw " $  Dw  $  Dx  $  Dx ` $  Dy ] $  Dy # $  Dz   $  Dz <L,(+ <E,,+ 0D+& <H,,!$} D`"$."$"7 .$( D^ "( "$".$... (3(" "..." H <I,+5"+1D+& "$"._ D-.^ D"." D." D." D`." D] $3$" "(.] D# "(.# D ." D+ <H,
`+_ ~P	v	w	w	x	x	y	y	z	z-5#"``+_ P5^}|@{@{!XaXeXl@#XmXr$,Xs"XXr$XX4Xr$X:XBXG$$"XHXMXQ(XQXT$"XUXQ((XYX^(-X^
Xi$XiXlXo(' DO YOU WISH TO HAVE A SHADE DIAGRAM',/,' BEFORE CLUSTERING?(YES OR NO) ',$)(' DO YOU WISH TO HAVE LABELS IN THE OUTPUT?','(YES OR NO) ',$)(A3)(' ENTER THE',I4,' LABELS, ONE PER LINE(10 CHARACTERS',' MAX.',/)(A10)(/,' SHADE DIAGRAM TOO LARGE TOO PRINT',/)(/,' SHADE DIAGRAM BEFORE CLUSTERING',/)(/,' DELTA-ONE-HAT =  ',E,/)(/,' SHADE DIAGRAM AFTER CLUSTERING',/)(/,' CLUSTERING BY VARIABLE',/)(/,' CLUSTERING BY OBSERVATION',/)(' AT 2ND SHADE M=',I10,/)(/,' SHADE PLOT TOO LARGE TO PRINT',//)(/,' DENDROGRAM TOO LARGE TO PRINT',//)(' NUMBER',5(3X,I3,5X),3X,I3)(/,' LABEL',2X,5(A10,1X),A10)(/,' HEIGHT',1X,5(F10.3,1X),F10.3)(/)(80A1)(1H1,16A5,//)(2I4)(1H1)TTY  YES  YES  P[:` \# !p @U !p @Y !p @T !p @Q !p @N !p @P !p @] !p @Q !p @Z !p @Z !p @[ !p @X p @N p @M p @O p @R p @P p	 @K p	 @O p
 @M p
 @L <h,	+ $3DL+H3DM+D <q,, <t, <w,
 <y,, <|, <,
 L2D&+S <, <,
 <,"R $ FY D^ ^(.Q <,
:^; Y+N, R2D&+a M1D+a R1d2+Y <	,,+a <
, <,
 <,,"R $ .T D'.$8&^ <c,	 <_,^ <, <,
 <, <,
 <,, M0D1D+p $AL0D+m <",, $AL5Dp <%,, M0D1D+s+w <(, <+,
 R0d2+ <Z,	 M0D1D+z+F R1d+} 3D%+ <V,/ <R,+F <,,,+w </,,"R&&$&.&&&/& $ <2, '_HWZHS"(..S.T <5,
:S; W+	, <7, '_HVZHS"(..S.T '(.Q <:,
:S; V+, <;, '_HUZHS"(..S.Q <>,
:S; U+, <@,,.$8& R&$$$3DR+I <C, R&$$$.$ D]"&/R.] ] FT D^ ^.T <F,
:^; T+*, <G, R&$$$.$ D\"&/R.\ \ FS D^ ^.T (.Q <J,
:^; S+4, <L, R&$$$.$ D\"&/R.\ \ F[ D^ ^.Q <O,
:^; [+@, <P,, L0D+I $ DL+= # N Ap M Ap O Ap R Ap P Ap K Ap	 O Ap	 L Ap
,~H	QRP	]$PT	]RQL8Q	U	U	]TMOR	Z@P	]	Q	NT	YRV8Q	U	U	]TMOR	Z~xMOPLNR	Y	]	N	Z	U	Z[	XKO	UX^Xm(RXfXm$LXm$RXt0XtX!@	XXyX!@	XX}(VXXXX$RXXX$'X0'X('XX$X0X(X(80A1)(/,' N= ',I6,5X,'M= ',I6)(/,1X,'RAW DATA INPUT'//)(1X,5E16.7)(/,1X,'POWER= ',F6.0)(/,' M= ',I6)(/,1X,'INPUT DATA - DISTANCES'//)(1X)(/,' CLASS',5X,'LOWER LIMIT',5X,'UPPER LIMIT',/)(1H0,I3,4X,2(3X,G13.6))(/,1X,'INPUT DATA - CORRELATIONS'//)('1FORMAT=',/,5(1X,16A5,/))(' ENTER DATA',/)(' DATA BEING READ',/)(/,' MAX='F,'   MIN=',F,/)(' ?TRANSPOSE ERROR - I='I10,/)TTY  O
(8Q0uWG/e
I\	&p*@Xp @\p@`~p@T&pF@XDp@e&!pF@nD!p@l!pD@\!pF@pD!p@cD!p@o<!p @q !p @S p @T p @] !p @[ <
iX3D	)+	Q0F1F+	O+	Q <
2D	)1F+	V1F+	V <
3D	)+	X<AT0H+	`4	)2H+	] <
d4
d4	e4	e4	e4 $AT0D+
,3D	)+	l X0D+	l <
"X?$pDw<,"e $ Hm DZ <
:Z;.m+	q,3D	)+	 <,"e $ Hl DZ <
:Z; l+	z, 3D	)+
 <	,,:w8&	n T1D+
	,<6De+X Fe DX X0D+
,@du.&/X $Fk:Dw.\@f"e $ DZ w.\ <
,&/w $ Fj Df:u.l@f"e $ DZ u.l <
 
/
'J:Z8&
:f; j+
:w; k+
,\@f"e $DZ:\8<
(@du &/X $ Ft Dw/$ Dy"y $ Ft Df:u.n@f X1D+
A"e.$ DZ u.n <
 
/
'#
J	'<:Z8&
7+
^"e.$ DZ < w.\ u.l H{ <
 
/
 f.\
 u.l
Jru.n <
"{7{ <
"r7rP:Z8&
B:f; t+
2:w; t+
/ e DV X Fe DX+
; X1D+
i 3D	)+
l <
,,+
l 3D	)+
l <,,"$.e Dd@fn"d $ (.n Hv.Dn <,"
n/*.
v v Jq Hu u.n <,
:u; q+
u, 3H	)+ <,"
n/,.
v 
v Lp Ju u.n <,
:
u; p+
, 3H	)+ <,,.$8&
o n Du6bX0b++	4
;4
;4"u $ .n#
'"
* J'.$8&
+
;,T0D+X"X,$ DZ <,"e $ H} Df <
:f;.}+,&3D	)+% <#,"e $ H| Df <
:f;.|+,:Z8&u<e.& $ F| Dw"w.& $:u.n@j'.$8&0 w.l@f w.\ F:w; |+. l@f \ F"X $ Fz DZ"e $ Df f.l <
 
/
'J:f8&<@du &/e $ Fy Dw"w.& $ Df:u.n <
 
/
'J:f8&M:w; y+K:Z; z+;+
#@du6e+Df T0D+\ X Df"f.&7$+FZ Dw"w.&1$:u.n@j'.$8&` w.l@f w.\ F:w; Z+^ l@f \ F T0D+o <
,<',"e $,FW Df <
:f; W+x, 3D	)+
,<,,"e $,FW Df <
:f; W+
,"e $ Dff.l.<\ <
 
/
'J:f8&
@du.&/e $ FU Dw"w.& $ Df:u.n <
 
/
'J:f8&
:w; U+
:Z; Y+q@du &/e $ Fb Dw"w.& $:u.njX 
w.
l.l"??.\O"77 w.\ G P	' <
':w; b+
&@d]+6b\0b+
?+
<4
?4
^4
r4
z"u $ .c D'.$8&
@,<M"u $ .c ' Hc.nj J'.$8&
D@du &/e $ F_ Dw/$ Dy"y $:u 
u$
.
w.
v.n 
' L( u$w..v 
u$
.
w.
v 
( J  u$w.w.v@j .$8&
N:w; _+
L v.u@f+T"u $ .n '2(T+
f .n ' HT+
j .n '3h]+
j .n ' H].$8&
a X0D+
r T Dd!&] FT"d& F]+
r+
r+
z o T F ] FT&	p FU 	) &.o U H*d
w@du &/e $ Fi Dw/$ Dy"y $:u 
u$
.
w.
v.n 
' L( u$w..v 
u$
.
w.
v 
( J  u$w.w.v@j .$8&
:w; i+
} v.u@f"3D	)+3H	)+
.$8&	)+<,
+>, <A,
&<, 	& X Ap e Ap T Ap ] Ap,~X	n	(uc	'x	'pwpfpfpfpfpfpfX	pXe	nepZwpZfpZfpZfpZfX	pXe	nepZfpZfpfZpwZpwZpfZpwZpfZpwZpfZp	'`p	(ZpfZpwZpwZX	pXe	nepwZpwZ@	(x	[v	(eueX	@(qX	$eX~$X$eX	X	X	X	(`Xq((X	(X	
X	X		Xq(('X	('X	
X&q((X	(X
#q((X	(X	(TX	#$e.    -    -    =    +    =    *    X    X    X    H    H    H    H    H              .              I              I    -    E    E    E    E    E                                                 I    .    =    T    X    X                                                                          T    (1X,A10,I4)(1H+,16X,100A1)(1H )(8H0SYMBOLS)(1H+,10X,15(A1,3X))(8H  CLASS ,2X,15(I2,2X))!TTY  `g"
I  \ !p @F !p @B !p @E !p @T !p @H p @D p @E p @C !p @T <,&i <	,&i <,&i"$.C$C7 .$(d DC"C $ FK D[.H  FF $ DG G2$[+E.H  FB6bE0b+%+#4%4*4*4* Z$B.F.["CD.$ DS+> ZDD D0F+4 D.T Z$B.F.[" (2h+: D/& FS+> D.T Z$B.F.[  2h+: &/D FS+>*d+ $ DS D0D+> $ DS  V$&.G.W ($(.S  T H*d?:G+  V$&.G.W ($(  \ H*dE <, [.H (.F <,
 C0d+Q 2D+[  <,"[ & HI FG V$&.G.W <,
:G; I+U,*dR+n  <,"[ & HG FG V$&.G.W <,
:G; G+^,*d[ <!,,  <$,"[ & HX FG V$&.G.W <',
:G; X+i,*df:[; K+ <),,  <,, _FVZFG &$&.G </,
:G; V+t,*dr  &/& FK D1FZDK*dz <0, _DUZD[ [ <3,
:[; U+, ,~@ZBYCZC@\	E[CZC@X	TWCVXz0'$X|(X|((X}X|((X~X(TX$Kg?@ !p @I p @I p B= %p DJ p D? $ DH @K BH K2$H+4 K D>.H7 .$( D?.If F=6D?+] ?.J ' H> K.Ih'3h=+n ?.I 
K.
I 
/ J' K.IF F' ?.If F=5Dn ?.J K.J ' H K.J > H ?.J  F> H DK.If2&=+ ?.I H.I  F H.IF= F ?.Id D=6D?+ ?.J H.J  F H.J > F ?.J  D> K.Id3d=+ ?.I K.I  F K.IF= F ?.Id D=6D?+ ?.J K.J  F K.J > F ?.J  D>+ K.I >.I  F >.IFL F6D?+ K.J >.J  F >.J J F>K.If2f=+ K.Id DL6D?+% K.J  DJ:>.If3&=+% >3dK+">.H"K.K3f+0 H K H4 K H? DK:H+7 H > F4 H F? K FH:H+7>H4DR 4 FK ? FH"K.H0$+U K3DI+T"$.DK:K3DH+4.If F=6D?+B K.J  D> K.Id3d=+< K D> >.I  F6D?+J >.J  H>>.Ih2h=+E >.IH= H5DQ >.J > H+<,~&wk`g2Mj` \\ !p @U !p @S !p @U !p @T !p @W !p @Z p @V p @W ] DS@fZ U ( H U D@dT/V $ HY D[/$ D[ [.U [ H.U 
S J'"[ $:T 
.
T.Z 
' L/.$8&r"[ $ .T6 '+| .T!*}
S J' .T 'HZ.$8&w <,:[; Y+m <,J <,:"ZZ @W"V $ .S ' HV.W D'.$8& \ V Ap W Ap,~hU	UVXUS	U	TV`U	U	T[g2Mjh !p @ !p @ !p @ p @" $ . ' H . 
.
 
/2*'+* . ' H 
.
2(/+5+3 . ' H 
.
 ,.
 L/ 
.
 
.
 
7 L/ 
.
2(/+5 . 
 J'.$8& " $ . ' H. 
.
 
/3*'+? . *.
 J'.$8&7,~g2Mji \H !p @D !p @A !p @D !p @B p @E E.A @"E.& $ E/.D   HC E HC C HA.A 
' JC.
D /3hC+V A.A *.
E/
 J' E/.A 
C J .$8&R E.A  DC C DA.D  FB A.A7$+~4D/ A.A  DC B.A7$+t4D/ A.A B.A  F B.A A"F C/E4$c4D+/ B.A" DE A.A.A  H B.A A"F.D E D C/E4$c4D+/ A.A" DE.A  FC B.A7$+
4D/ E.A B.A  F B.A E"F C/E4$c4D+/ A.D B.A" F B.A E"F A.D  DB.A.A  H C/E4$c5d/ E.A" DC"E $ .B 
.
D 
/ J' .A 
C J'.
D / HC.$8&"E $ .A ' HA 
.
D H/ 
.
D.B 
' L/.$8&""E $ .D ' HA.A D'.$8&*+0 <1,$l H,~x
Hg2Mji H9 F8 D8 !p @2 !p @3 p @7 7/$ D6@f3"6 $ F5 D7"7 $ D4 $.7/4 D2 7.3.3 2d'+K:48&D@d2 $.7 D6"&/7.6 6 D4 7.3 4.3 '2(+S:48&O"7.4 7/2$d 7.3D3:7; 5+C 8 8 9 3,~(121A1)(A1,10X,121A1)(A1,F10.3,121A1)('1',/)(A1,1X,120A1)(//)+    0c=t-    TTY  *    I         DELETE    ItLS \~ !p @` p @_ #p B_ #p Bk p Be p Ba p D`  Dj3B+  Fj Dd  Dp  Dj  Dt!$} Db _(/$ Da _.`  Dt _/$&$ D^"_.& $ Fi Du.$ Du"&/_.u u .` 
u.
` 
/2J'+% .` 
J'.$8& u.` 3dt+* u.`  Dt u._ u(/& F:u; i+ _._ _(/& F _.`  Dn _.`!&t F &/_ $ Fh Du"a $ .k 
d J'.$8&:"_ $ .` '3hb+C ._ '.k 
p J'.$8&> a Dc6F^+K"a a Dc c.k 2Dd+K>c8&H c1d<+]"^ $ (	. Hb <], (<$.( Hs *.
$*<2jc 
c"
/*.
s s Jf He e.k <`,
:e; f+X,.$8&N <a, <d,
 c0f< &<" $ Fr De e.k <f,
:e; r+b, _.`  D] $ Ds &/_ $ .` 
'3jb+q 
'2j]+q .` ' H] Ds.$8&k $.s Dr"&/_.r r De s.` e.` '2h+{:e8&v s._  Dq e._"/&.q q .k 
t J'.$8& `0D+	 e._ s._ .7 .(( H e._ .k j F e._  D^ a Dc6F^+"a a Dc c.k 2Dd+>c8&7D^+&"^ $ (	. Hb <h, (<$.( Hp *.
$*<2jc 
c"
/*.
p p Jl He e.k <k,
:e; l+!,.$8& <l, s.` <o,
 c0f< &<" $ Fk De e.k <r,
:e; k+-, s.`  Db:u; h+97D^+X"^ $ F] Dd.$	 Db <s, <v,, <y, $<$d.$ Do &.d$&<2fc c"/&.o o Fv De e.k <|,
:e; v+C, <}, <,
 $<$d.$ Dm &.d$&<2fc c"/&.m m Fv De e.k <,
:e;$v+Q,+; <,:d; ]+7 <,, -.`Zn"F ~,~Xbw('Xex(j(d(Xbw('Xey(j((d(`bXe{XbUw(Xew(j(`b>Xe~CASE      CASE      NUMBER    LABEL               ('1DENDROGRAM',/)(I3)(60(A1,1X))(1X,A10,1X,60(A1,1X))(1X)(10A1)YES  0hDSK  ItJ \+ !p @ !p @ p @ p B %p D p B
 <F,	" $ F D  <I,
:;+H, ". $.F:";*+B7D
$*2j 
"
/*.
" " J H . <N,
:; +[,.$8&Q 1d+l <O, <R,
 0f &" $ F D" ". <T,
:"; +g,+v <U, ( <X,
 0f &" $ F D" ". <Z,
:";+r,:;+@.<[,,7D. <a,	"
 ( J H  <e,
:; +	, . 
 
(J'.$8&7Df, ($.( H! *.
$*2j 
"
/*.
! ! J H . <i,
:; +,.$8& 1d+, <k, <n,
 0f &" $ F D" ". <o,
:"; +(,+7 <q, ( <t,
 0f &" $ F D" ". <u,
:";+3,:;+<w,,+,~`~-X#P%$P*$X%$'X'0$X'0$X)X)P*'$ X%$'X'0$X'0$X)iJ
~"(.{$& H"*.
~$
"(.{$2H+(: ${. H2h+(. * J'.$8&"$.} D{/$ D } D| $ D+B".{ D|:".{ F2d|+s2d+6. &2f+B+."&{${ ~$. D2d2$|+."&{${ ~$. D2d2$|+A+;2D+.  D .  D|"&{${ ~$. D 2f+K. ( H:2D2$+R . .  F  D+E 3D|+V 3D+V  D|+M . | F 2$}+^ | 2F3D+.  D| D+C@d+t"$.{ Dz"z $ F D.$ D~"&/{.~ ~"(.${. H"*.
$
~.
 J. 
' L| ..
 / N' . L'.$8&f:; +c+^  D  Ap,~('+INPUT? (for help type HELP) '$)('+INPUT? ',$)('+OUTPUT? (for help type HELP) ',$)('+OUTPUT? ',$)('+Either a colon was missing or the file name',' is too long'/)(80A1)('+Device ',A6,' does not exist'/)('+Device  'A6,' cannot do input'/)('+Device ',A6,' cannot do output.'/)('WMU',I3,'.',I3)('+Only a /COPIES switch may follow a LPT:'/)('+Illegal character "',A1,'" in COPIES swicth'/)('+Copies must be between 1 and 63.'/)(I2)('+Only switch available if for the LPT'/)('+Non-directory devices require no additional information'/)('+File name too long'/)('+Character"',A1,'" is not valid in a file name'/)('+Only one period is allowed in the file name.'/)('+BANK files must be read from the disk'/)('+Bank files can not be used for output.'/)('+PROJECT or PROGRAMMER number cannont be longer'/'  than 6 characters'/)('+Illegal character "',A1,'" in PROJECT-PROGRAMMMER',' number'/)('+ Comma missing between PROJECT and PROGRAMMER number'/)(O10)('+Nothing should follow the closing bracket for the',' PROJECT-PROGRAMMER number'/)('+File not found or protected'/)('R ',4A1,4X)('+You must have answered this question in this',' program previously to use "SAME" now.'/)('+You cannot do a /OUT while answering a /OUT'/)(' No output defined yet'/)('+To use the CONTINUE an input must have already been',' defined.'/)(' The answer to this question defines where the program is'/' to find the data.  It usually consists of a device, and'/' possibly a file name with or without a PROJECT-PROGRAMMER'/' number.  Devices may be specified by their physical'/' or logical name followed by a colon (:).  If the'/' device is a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of a magtape it must'/' be positioned.'/'0DEFAULTS:'/' (1) If no input devices is specified but a filename is'/'     given, the default device will be DSK:.'/' (2) If a device which requires a filename and extension'/'     is specified, but no filename is given INPUT.DAT'/'     will be used.'/' (3) If no response is given (CARRIAGE RETURN is entered)'/'     the default is TTY:.'/' (4) If DSK: is specified as the input device, but no')('     PROJECT-PROGRAMMER number is used, the PROJECT-'/'     PROGRAMMER number of the job is used.'/'0EXAMPLES:'/'  DSK:DATA.DAT'/'  TEST.DAT[220,220]'/'   MTA:'/'0The following responses may also be used after the first'/' response to this question.'/' "CONTINUE" - (For MAGTAPE) Use the next set of data'/' "SAME" - Use same device specifications as used before.'/' "FINI" - End of run.'/' "/PROG" - User may initiate the run of a bank program'/'          (STP, BANK, TAB, FREQ, CORL, or REGR) from'/'          this program.'/' "/OUTPUT" - Redefine the output device, the program will'/'             respond with "OUTPUT? ".'/)('0The answer to this question defines the destination'/' for the program''s results.  It usually consists of a device'/' and possibly a filename with or without an extension.'/' Devices may be indicated by their physical or'/' logical name followed by a colon (:).  If the device is'/' a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of the magtape, it must'/' be positioned.  If the device is a lineprinter, the user'/' may request multiple copies by following the "LPT:" with'/' a "/COPIES:" and the number of copies desired (1-63).'/'0DEFAULTS:'/' (1) - If no input device is specified but a filename is'/'       given, the default device will be DSK:')(' (2) - If a device which requires a filename and extension"'/'       is specified but no filename is given OUTPUT.DAT is'/'       used.'/' (3) - If no response is given (a CARRIAGE RETURN is entered),'/'       the default is TTY:.'/' (4) - If LPT: is spedified and no /COPEIS switch is used,'/'       1 copy is assumed.'/'0EXAMPLES:'/'  DSK:SAM.F4'/'  LPT:/COPIES:3'/'  MTA:'/)S              B    .    /REGR     /STP      DSK  /OUT      E    ~9    (K    HELP      /OUTPUT   N    LPT       CONTINUE  0    DSK       C    TTY  ?FINI      /FREQ     Z    I    /CORL     /BANK     ]    O    A    /    0z        ,    TTY        FINISH    @INPUT.DAT _SAME      :    {[    `7     END       /TAB      pa         OUTPUT.DATP         LPT  DSK  SEQOUT    SEQINSEQOUT    RANDIN    BINARY    S< \V p @{ p Bp| p Bpz p By p B3 p Bw @95  $.D9@dz s D
 o1D+z D@dxt|3<!e,(%Yz+<!c,'&@dw+& F52d{+.3F9+(2D0+% <!f,,3D0+' <!i,,.F0+.6D0+++<!l,,4D- <!o,, & F0 <!a,'
+r r  F*dB $ D9 D~ 9 3F+[ 3Fy+R 3F
+[ 3F+[ ~0f+P  H:~:9+E <!r,,+ <!u, r_DZD~ ~ <!y,
:~; +T, <!`,(%6D+\ <!z, <!},
+ 91D+b A5D= <!, <",
+ A5Df <", <",
+ dA4D= $2 D~:~ <!_,') $2.Dy <", <",
 <!\,(27D
+h:9 3F+# 3F
+#,3Fq+v <"2Fi+ 
2Fp+ 
2F+ 2FX+ 2Fy+ $.D9  D D $ D~.d9 9 3F+ 3F
+ 3&g+ 2fa+ ~0f+  H:~:9+ <", 9 <",
+ <",,+ ~1D+ 2D+  D  D <", ~_DZD~ ~ <",
:~; +, <",	 <" ,
.50$0d+A(04D; <"",+($0:DW <![,(%+!&p83f{+,+& F0 dA|4F;F{"F5 51f2+1"&2.f5 5$
+r |A5DM <"*,,+ r  F*dM $ D~ 9 3F+` 3F+` 3F
+` ~0f+Y  H:~:9+P <"-,,+h|wz 90D+_z <!T,(% <"0, <"4,
}3DY2FY7+-3D\2F]7+ 43Dn2Fo7+ 43D[2F\7+ 43D}2F~7+ 43Dk2Fl7+ 43Dm2Fn7+ 43Dx2Fy7+ Q3Df2Fg7+!3D^2F_7+!3Dc2Fd7+!3D|2F}7+ l3Dj2Fk7+ l3Du2Fv7+ l3Db2Fc7+!)@h8 rZD~ ~ 3H+ 3H[+ 3(g+	 3ha+ 2hl+
 2(q+ <"6, <"9,
+:81F+ <";,,+*d $3D8+ D~ ~ 3D+:~1d++Y ~ [ F <">, <"A,
 $ D~:~0d+, 2F[+ 2FZ+, 2Fe+, 2Fb+, & Fw uA5F) <"D,,+7D9+, <"G,,+}z 9 2D+r r  F*d/ $ D~.d9 9 3F+B 3Fs+D 3&g+? 2f{+? ~0f+=  H:~:9+2 <"J,,+ <"M, 9 <"P,
+ <"Q,,+ ~1D+O 2D+K"& $  H/$8&H  D+E <"T, <"X,
 <"Z,	 <"^,
 r  F*dP $ D~.d9 9 3F+_ 3F+_ 3F
+_ 3&g+? 2f{+? ~0f+=  H:~:9+S ~1D+j 2D+f"& $  H/$8&c  D+` <"_, <"c,
 <"e,	 <"i,
 9 3D:9 9 3F+r 3F
+r <"j,,+ y Dw 3 Dx@d
2D9+v <!Q,(-7D
+y1<"m,,+6(04D  <"p,+(,$0 DW(<!O,(%!&p83f{+& F0 dA|4FF{"F5 51f2+"&2.f545$i F uA4F & ^ F7F9+ 2f5"F{ 00F+ +"(2/5h H{0F+ -  H(03He2Jf+ 20F+ 2  D:0!$3Dz+!+!1 <", {D6ZD~ ~ <#,
:~; 6+ 7,@d
"&($7F5 D~6&{+)O6<#,(03He2Jf+O(~F{"F5,51f2+E"&2.f5(5$0|*(Nz+ l& Fy"(	.l F3@fw!&2F{+`@& FwF{"F5 51f2+d"&2.F55<!B,(%,90D+g <#	,dA5D#(pA4Dk <#,+r"&"$(F4.D~6&{+!!<#,(03He2Jf+! ~F{"F5"51f2+!v"&2.f515$2+r 91D+!. <#,, <#,,+ <#,, <#",,+ V  Ap|p  Apzp y Ap 3 Ap w Ap,~p|`W]5XW]5p|x`W]5XW]5`W]5XW]5pW|X|z
y3p|`W_]5XW_]5pW|`z
ZZxyp|havpy3p|X:X=X?XCXDPK|$XL0|XO0|XS0|PWz$~$yXYX]$XbPK	$Pf	$5hP~Pz^XgXkXrPK}@Xt$XzPK}@XXXX$XPK}@P}$yPK}@P}$3XX%hHp|Pz^wHp|Pz^w8p|Pz^	w^
jP($h~X*	h`h~X3X8X;XB^X ?X_QX0&I    F    A    (' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FORMAT, TRY AGAIN.'/)S    (    A    )    {M         O$ky \#b p @#U p @#% !p @#T p @#V p @#% p @#&@d#'@d#V D#U &( F#W D#T2D#%+#r <$:,, #&0D+#u <$;,,0d+#x <$>, <$A,
 <$B, #e_D#+ZD#V #V <$E,
:#V; #++#{, #U1D+$	 #,2D#b+$ #,2D#d+$ #-3D#e+$7"#% $ .#T 
#f J'.$8&$ $ D#U #%0$+$
(.#% D#W"#W $ D#V #V #+2D#f+$:#V8&$ $ D#V+$7 #V #+2D#c+$ $ D#& #&.#T <$G,"#W $ F#* D#V #V <$J,
:#V; #*+$,"#W $ #+3H#c:#T #+2H#d+$""(.H#T.$8&$ $2d#T+$7 &.F#&.#&3f#%+$*.#%/#& (. F#W #W1$+$2 <$L, #e_D#)ZD#V #V <$O,
:#V; #)+$.,+$ #'0D+$4 <$:,, <$P,, $ D#'+#n #b #V Ap,~X#U#WX#U#Y$#'X#%#\$#+P#W#]$#+X#%#\$#+X#U#^	`Z(X^. >[.~(3~+$W	~+$cZ. \x <x*<x .->&uez+$^!"	b+  "$`	b+Z. h+ggM?Th
&$e	b+$S,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>,O@%'+$ngR~@1,>,@@%',>,>@6 w+$z"%(0B+$v!"A`X#p5@$s/#p!"X#p+$z\p+$za.9'1,>,,>,>O@%'+$z,>
6+ _4`%"`Q@,> <%),,^,> <%,,
,^*b%+%,^7@%'+%,> <%0,
,^+%
,> <%2,
,^Z5"%
,^,7@%',
,> <%5,,^,,> <%8,,^,> <%;,
,^(@qd1@,,
1@#+%0@*+%,> <%<,,^+%,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX%$p X%%p %&p %'p X%X~%#p xgG@1,>,7cp+%H (Bdb+%C.%K"+%D.%K"TB#p@,~4B%J+P$d0
%L#p+%?  ,~>attempt to take SQRT of negative argKc3@ p p+%[Kc3K  ,%[ 
,~Kc3J  ,%[ ,~Kc3I  ,%[ ,~Kc3H4B%q5@%_5"%q+D$d0
%^Ud,~,>,># $)D/$@,>4d%hX $(F) + %h5F%h5"%g"` ,&+%o#  ,> <%s,&K,^@,> <%t,&&,^5&%o",^,^,^,~! ,~xxKc#@ p p+&Kc#K  ,& @,~Kc#J  ,& @,~Kc#I  ,& @,~Kc#H4B&#5@&5"&
&U ,~ D&#!$ @&" B&"5"&
#`+ &,&
!"B,~+ &(BdB+ &5B&	  &#,~ +7`&"+&`d +D$d0&+D$d0
&U"`d@6d&"+&&",> <&%,&K,^ @`&"@,> <&%,&&,^+&U",&
&"+ &+&! ,~xKc1,>, p3"&B+&,3b&A+&.+D$d0
&+U ,~+D$d0&-  ,~ D&B F&C@@&C%"j"%&@)/;`:XD&<5f&5aF+&5.&@(|h&f&C &?&@ &? &C&>D&A@ &B &C,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>, p4@&[ @&J,> <&d,&K,^&J,~{e^bC2|p1,>, p5`&O4@&[+P$d0&d#p3@&^+&])r. !@&b! n@&b(|h"&_ &_ B&c &`&`&a&c&b&a,~+D$d0
&\ &b,~  ,~ 0_i/X3 6P'M 5( bB W
R `@x&JATTEMPT TO TAKE LOG OF NEGATIVE ARGCR@1,>,,>,> p  p  Ep<b&q $Ep$ E. .&+&m".!p Ap $Ep,^,^,~!$hX$h@@h*% "&} BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHO1,>,@ p.#p<XB'Q#p %p8XD '$ Ep*" #pXB'@Ap p@
(1D+'1D+''4.''$d'$FK1d>1D Kp
&'%,~     :
O&
1,>,	`
ZAp[Ap,~U>m61,>,	`
 Ap,~H'/H(gZx'/ A=Qi7+ @	` 1pQ0A` ',@@'/ (* 'C@,(4T'u1T+'J1T)+'`1,(4T'PT+'N ."&""`QB'- (	`+'U (+( INXu`+'_	`
&b(&b(`(`'C+' ',?`'/
&(	`5H'NO ', $,(1T+(0T*+'F,(1T',(0T+'F>@@(,(0T1T+'l0T1T-+'s4T's+'u $ ',,(7@(+'s1T+'w4T(1T-+'y0T+'u,(+'p!*Lu*
( J(+'o
&( 
'p
&("	` $ (#,(	+'p@
,(0T1T.+(1T+(1t14+'u(L.,Wh+'zSL(+'yXL(+(,(!>9@(2(#*&8+0@@(($*&(,(1T+(7,(14,~1t+(
6ux'0'-5$'C0'C<'CCANNOT ENTER TMP FILE!
Command error: 
H((0X(I4:1,>,,(y Ap,~44()4(UKbN=1,>,O@(V p4B(1,(y4@(19(59(4KbN=1,>,@@(V!$Lu 	`@Ap``a`+(Sa`+(U D(,A (`(:/"#B(+@@(, !pX@((,> <((,(\,^7@(U+(@OAp+(T #pQ"A` $1@+(E0`=d(B! H: @(*@@(+a|+(K[pd0@ +(P[pd0@ +(P+(N_w6@(V_w#`1 +(PSpXp @(+
(++(R@()+(S+(T
&(V+(T   Ap ,~ ERROR ON OPEN!
HH(ZH([G.t21,>,@@Ap! A`.!p @(X (Y @(Z@@(Z@@([ & "(X<1D+(g-(r=b(b(X<0D+(pO " (Y @(Z(X<-(r=b(i7@(ZOAp !p<, (Z, ([,~<&(k(X1D+(o   Ap+(k1D+(o1$+(l1d+(w0$ 0d-+(l $D(Z+(r"),)"0@+) p4B)Lad+)`b+) $0d"+)&$$&(&}Z.G).&$.$ 7F+)  ,~ A$&$(DG$1$((D(D
 	`5@) .2bM+) L.&7D!$Lu+)2")+)
 &p,) 	`,~
&) <),
.p M}ILLEGAL DEVICE NUMBER!
")!,)" 'Q&A` )!@1x,~180.8X=`),~.H  a|+)%0"0b/ ,~0B1B,~0B/ ,~aJMm1,>,,*p+)E@,*,*l+)EZ"6Ep " B` "b)N $7cp $1B $d)N,)G,*9+)F6cp0b "b)O$){ ({."XB`&$@6@.$.$
a|+)>[pdp0B +)B+)@_w#`1"+)B6cp 0d $QD`,*+ ,*w ,~
&)O+)D
&)R+)D@b -p .Q,A` 
)T4P)M1P+)U/0P=n)J,~`
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH . 
)T+)JYC GaSa3 S;YC&<G<aS<a3&<E$;w|x)[ P)V B`1T!"L	b@XB`O@)v + )v@,*w
++!,2,*a@!.~,*w`++	""1T""QB)t,*w
	b "  $SX&	f+*o2FP)Y+* 	f+ 1$9*+*o 8)[@`)[ +*()t +	n@`N++ 6`
 +1T + B` " B`\"
	b@ B`\"	b!"Z(Brb+	b
 B)w	b
+"`B`!"2	b`b`b+*4!"2	b!`2B`+*4!$2	d!$Lu+*7 +	b@+,+	d!$Lu B)u D)v,~@@)y +*() B)y D)z BX B` DXZ)w(D}	d ` D)y DX "2D`b+d  "b+,*w@)x++ ) BX@@* +	b$+*I!"*X"X*"X!"`
+*[!,2,*aB,*w"X
)z )z,*w +*[ JX,*w +*o
&+ "b+a`+*Z+*Ca`+*Z,*w )x+ +*Z 	x H*j	h	&(2 
P)V + .)w &..0P`bp+*ed
@ )u,*w+*j`L+*c )u+*o (!*Lu@
,*w
,~:x,~ " B+O@)wO@)xg "?$++*	d5D*s +(D D)w+*o,> e`p+*{7 )x+*~l!)x+*}7 )w+*~l!)w:+@>,^+*o
&+ ,~ "
&+",~ "
&+(,~,+
&+0
& ,+	b (+0++
&+4,~@;`)v+*++8)\0CMQ Cannot do MPB QUEUE on GALAXY system. (+
++`` `P$` h)y
XHXa`,~!"GB`+*Z@*6$)z
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0NO FREE CHANNELS!

% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!

% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMRCNC Can't CONTINUE -- try REENTER
C2d;y1,>,6#p0b+,@Ap , $	b2++m "6@&Z&." p4D+b.$(B{(D{0d+, B, D, ( & Q&	f2++D4&+D1(~9+A H,3H,++Q2(,++X.(3(, , H,@@,@@+eS"xZH+e:+e.(3h,*b+J!$6@,GD+e ,	d2++R3h,++I ,(F++~6@,++TO@,++MOApZ+e3b,+,/"*, B,++Y@Ap ,:!&@@+e!"x H+e:+eGF+e.(3h,*b+[ ,	d2+ 3h,++Z6Ap+,++QZ	b+ @gp++~6@&++sZ.$1$ $!	d+, $QD&,, pZaD $ ,		fQ&[[&.&."`b+,!."!`aB	b:p	d+,/'p.& Gp,~OAp,~G3]x1,>,@	`+,,~
&,		` +ep 
Cannot write-enable high segment data area.
KbN@1,>,,
,~,Y\,Q<X\,*+