Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

?p
@?xG3.=Kb)E},tE`INXQF:{A)'[L{BE@
	
(#sX	y

sOR 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
 & F
Of

 <],

 <i,, <l, <o,
 <r,, <u, <x,
 
,0d0d++ <y,,+
 
,0D
+!& F
0D
+!& F
 <|,, <, <,
 
0f0f++ <,,+ <,, <
, <
6D
+% <,,+ 
0$0d
+@d
` 
,0D1D+*++!&} F
` 
 F
 <Z,#g 
^0D+0 | D
56b
0b+5+
1454C4C45454545 <,, <, <,
 $2$
"+< $3$
+> <,,+5 
0D+C <,, <, <",
6b
0b+H+
D4L4H4H4L4L4L4L <$,, <', <*,
6b
0b+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/$6b
0b
+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
#



"

`



`

+
_
 P


5
^}|@{






@{



!


X

aX

eX

l
@
#
X

mX

r$
,
X

s"X
X

r$

X
X
4X

r$

X
:X
BX
G$
$
"
X
HX
MX
Q(

X
QX
T$
"
X
UX
Q(
(

X
YX
^(
-X
^
X
i$

X
iX
lX
o(' 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,	 <_,^ <, <,
 <, <,
 <,, M0D
1D
+p $AL0D+m <",, $AL5Dp <%,, M0D1D
+s+w <(, <+,
 R0d2+ <Z,	 M0D
1D
+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	]R
QL8Q	U	U	]TMOR	Z@P	]	Q	NT	YRV8Q	U	U	]TMOR	Z~xMOPLNR	Y	]	N	Z	U	Z[	XKO	UX
^X
m(R
X
fX
m$L
X
m$R
X
t0X
tX
!
@	X
X
yX
!
@	X
X
}(V
X
X
X
X$R
X
X
X
$'X
0'X
('X
X
$X
0X
(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*@X

p @\
p

@`~
p
@T&
pF@XD
p@e&!pF@nD!p@l!pD@\!pF@pD!p@cD!p@o<!p @q !p @S 
p @T 
p @] !p @[ <
iX3D	)+	Q0F
1F
+	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
	@(q
X
	
$e
X
~$X$e
X
	
X
	X
	X
	(`
X
q((X
	
(X
	

X
	X
		X
q(('X
	
('X
	

X
&q((X
	
(X


#q((X
	
(X
	(T
X
	#$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 D1F
ZDK*dz <0, _DUZD[ [ <3,
:[; U+, ,~@ZBYCZC@\	E[CZC@X	TWCVX
z
0'$
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$}+^ | 2F
3D+.  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
  Ap
z
p 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
?X
C
X
DPK
|$X
L0|
X
O0|
X
S0|
PWz$~$y
X
YX
]$
X
bP
K
	$P
f	$5
hP~
Pz^X
gX
kX
rPK
}@
X
t$
X
zPK
}@
X
X
X
X
$
X
PK
}@
P}$y
PK
}@
P}$3
X
X
%hHp|
Pz^wHp|
Pz^w8p|
Pz^	w^
jP(
$h~X
*	h`
h~X
3X
8X
;X
B^X
 ?X
_QX
0&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#W
X#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",^,^
,^
,~! ,~xx
Kc#@ 
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",&
&"+ &+&! ,~x
Kc1,>, 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[p
d
0@ +(P[p
d
0@ +(P+(N_w6@(V_w#`1 +(PS
p
X
p
 @(+
(++(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+)F6cp
0b "b)O$){ ({."XB`&$@6@
.$.$
a|+)>[pd
p0B +)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 "  $S
X&
	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\,*+