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 @ ?x G3.=Kb)E},tE` INX Q F: { A) '[L{B E@ (#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) ( + -< $S Od "& F & F & F Of
< ],
< i, , < l, < o,
< r, , < u, < x,
,0d 0d + + < y, , +
,0D + !& F 0D + !& F < |, , < , < ,
0f 0f + + < , , + < , , <
, <
6D + % < , , + 0$ 0d + @d ` ,0D 1D + *+ +!&} F ` F < Z, #g ^0D + 0 | D 56b 0b + 5+14 54 C4 C4 54 54 54 5 < , , < , < ,
$ 2$ "+ < $ 3$ + > < , , + 5 0D + C < , , < , < ",
6b 0b + H+D4 L4 H4 H4 L4 L4 L4 L < $, , < ', < *,
6b 0b + P+M4 [4 [4 P4 T < +, , < ., < 1,
+ [ < 3, , < 6, }_D ,ZD _ _ < 9,
: _; ,+ X, $ D !$} 3D `+ f < ;, , < >, < A,
0$ 0d + d+ f < B, , + ^6D + h $ D $ Gd + s/$ 6b 0b + m+k4 m4 p4 s ,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 _ $ D v - $ D w " $ D w $ D x $ D x ` $ D y ] $ D y # $ D z $ D z < 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 a X e X l @ # X m X r $ , X s "X X r $ X X 4 X r $ X : X B X G $ $ " X H X M X Q ( X Q X T $ " X U X Q ( ( X Y X ^ (- X ^
X i $ X i X l X 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, + $ 3D L+ H3D M+ D < q, , < t, < w,
< y, , < |, < ,
L2D &+ S < , < ,
< , " R $ F Y D ^ ^( . Q < ,
: ^; Y+ N, R2D &+ a M1D + a R1d 2+ Y < , , + a <
, < ,
< , , " R $ . T D'.$ 8& ^ < c, < _, ^ < , < ,
< , < ,
< , , M0D 1D + p $ A L0D + m < ", , $ A L5D p < %, , M0D 1D + s+ w < (, < +,
R0d 2+ < Z, M0D 1D + z+ F R1d + } 3D %+ < V, / < R, + F < ,, , + w < /, , " R&& $& .& && /& $ < 2, '_H WZH S"( . . S. T < 5,
: S; W+ , < 7, '_H VZH S"( . . S. T '( . Q < :,
: S; V+ , < ;, '_H UZH S"( . . S. Q < >,
: S; U+ , < @, , .$ 8& R&$ $$ 3D R+ I < C, R&$ $$ .$ D ]"& / R. ] ] F T D ^ ^. T < F,
: ^; T+ *, < G, R&$ $$ .$ D \"& / R. \ \ F S D ^ ^. T ( . Q < J,
: ^; S+ 4, < L, R&$ $$ .$ D \"& / R. \ \ F [ D ^ ^. Q < O,
: ^; [+ @, < P, , L0D + I $ D L+ = # N Ap M Ap O Ap R Ap P Ap K Ap O Ap L Ap
,~ H Q R P ] $P T ] R Q L8 Q U U ] T M O R Z@ P ] Q N T Y R V8 Q U U ] T M O R Z~x M O P L N R Y ] N Z U Z [ X K O UX ^ X m ( R X f X m $ L X m $ R X t 0 X t X ! @ X X y X ! @ X X } ( V X X X X $ R X X X $' X 0' X (' X X $ X 0 X ( 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&p F@ XDp @ e&!p F@ nD!p @ l!p D@ \!p F@ pD!p @ cD!p @ o<!p @ q !p @ S p @ T p @ ] !p @ [ <
i X3D )+ Q0F 1F + O+ Q <
2D )1F + V1F + V <
3D )+ X < A T0H + `4 )2H + ] <
d4
d4 e4 e4 e4 $ A T0D +
, 3D )+ l X0D + l <
" X?$ pD w < , " e $ H m D Z <
: Z;. m+ q, 3D )+ < , " e $ H l D Z <
: Z; l+ z, 3D )+
< , , : w8& n T1D +
,< 6D e+ X F e D X X0D +
,@d u.& / X $ F k:D w. \@f" e $ D Z w. \ <
,& / w $ F j D f: u. l@f" e $ D Z u. l <
/
'J: Z8&
: f; j+
: w; k+
, \@f " e $ D Z: \8<
(@d u & / X $ F t D w/$ D y" y $ F t D f: u. n@f X1D +
A" e.$ D Z u. n <
/
'#
J '< : Z8&
7+
^" e.$ D Z < w. \ u. l H { <
/
f. \
u. l
J r u. n <
" {7 { <
" r7 r P: Z8&
B: f; t+
2: w; t+
/ e D V X F e D X+
; X1D +
i 3D )+
l <
, , +
l 3D )+
l < , , "$ . e D d@f n" d $ ( . n H v.D n < , "
n/* .
v v J q H u u. n < ,
: u; q+
u, 3H )+ < , "
n/, .
v
v L p J u u. n < ,
:
u; p+
, 3H )+ < , , .$ 8&
o n D u6b X0b + + 4
;4
;4 " u $ . n#
'"
* J'.$ 8&
+
;, T0D + X" X,$ D Z < , " e $ H } D f <
: f;. }+ , & 3D )+ % < #, " e $ H | D f <
: f;. |+ , : Z8& u< e.& $ F | D w" w.& $ : u. n@j'.$ 8& 0 w. l@f w. \ F: w; |+ . l@f \ F " X $ F z D Z" e $ D f f. l <
/
'J: f8& <@d u & / e $ F y D w" w.& $ D f: u. n <
/
'J: f8& M: w; y+ K: Z; z+ ;+
#@d u6 e+D f T0D + \ X D f" f.& 7$ +F Z D w" w.& 1$ : u. n@j'.$ 8& ` w. l@f w. \ F: w; Z+ ^ l@f \ F T0D + o <
,< ', " e $ ,F W D f <
: f; W+ x, 3D )+
,< ,, " e $ ,F W D f <
: f; W+
, " e $ D f f. l.< \ <
/
'J: f8&
@d u.& / e $ F U D w" w.& $ D f: u. n <
/
'J: f8&
: w; U+
: Z; Y+ q@d u & / e $ F b D w" w.& $ : u. nj X
w.
l . l"? ? . \ O "7 7 w. \ G P ' <
': w; b+
&@d ]+ 6b \0b +
?+
<4
?4
^4
r4
z" u $ . c D'.$ 8&
@,< M" u $ . c ' H c. nj J'.$ 8&
D@d u & / e $ F _ D w/$ D y" 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 ' H T+
j . n '3h ]+
j . n ' H ].$ 8&
a X0D +
r T D d!& ] F T" d& F ]+
r+
r+
z o T F ] F T & p F U ) & . o U H *d
w@d u & / e $ F i D w/$ D y" 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 ( u c 'x 'p wp fp fp fp fp fp fX p X e n ep Z wp Z fp Z fp Z fp Z fX p X e n ep Z fp Z fp f Zp w Zp w Zp f Zp w Zp f Zp w Zp f Zp ' `p ( Zp f Zp w Zp w ZX p X e n ep w Zp w Z@ ( x [ v ( e u eX @ ( 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 D C" C $ F K D [. H F F $ D G G2$ [+ E. H F B6b E0b + %+#4 %4 *4 *4 * Z$ B. F. [" CD .$ D S+ > ZD D D0F + 4 D. T Z$ B. F. [" ( 2h + : D/& F S+ > D. T Z$ B. F. [ 2h + : & / D F S+ >*d + $ D S D0D + > $ D S V$& . G. W ( $( . S T H *d ?: G+ V$& . G. W ( $( \ H *d E < , [. H ( . F < ,
C0d + Q 2D + [ < , " [ & H I F G V$& . G. W < ,
: G; I+ U, *d R+ n < , " [ & H G F G V$& . G. W < ,
: G; G+ ^, *d [ < !, , < $, " [ & H X F G V$& . G. W < ',
: G; X+ i, *d f: [; K+ < ), , < ,, _F VZF G & $& . G < /,
: G; V+ t, *d r & /& FK D1F ZDK*d z < 0, _D UZD [ [ < 3,
: [; U+ , ,~ @ Z B Y C Z C@ \ E [ C Z C@ X T W C V X z 0' $ X | ( X | ( ( X } X | ( ( X ~ X (T X $K g?@ !p @ I p @ I p B = %p D J p D ? $ D H @ K B H 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 =5D n ?. J K. J ' H K. J > H ?. J F > H D K. 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 >. IF L F6D ?+ K. J >. J F >. J J F> K. If2f =+ K. Id D L6D ?+ % K. J D J: >. If3& =+ % >3d K+ " >. H" K. K3f + 0 H K H4 K H? D K: H+ 7 H > F4 H F? K F H: H+ 7> H4D R 4 F K ? F H" K. H0$ + U K3D I+ T"$ .D K: K3D H+ 4. If F =6D ?+ B K. J D > K. Id3d =+ < K D > >. I F 6D ?+ J >. J H > >. Ih 2h =+ E >. IH = H 5D Q >. J > H + <,~ &wk`g2Mj` \ \ !p @ U !p @ S !p @ U !p @ T !p @ W !p @ Z p @ V p @ W ] D S@f Z U ( H U D @d T/ V $ H Y D [/$ D [ [. U [ H . U
S J'" [ $ : T
.
T. Z
' L/.$ 8& r" [ $ . T6 '+ | . T!*}
S J' . T 'H Z.$ 8& w < , : [; Y+ m < , J < , :" Z Z @ W" V $ . S ' H V. W D'.$ 8& \ V Ap W Ap ,~ h U U VX U S U T V` 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 H C E H C C H A. A
' J C.
D /3h C+ V A. A * .
E/
J' E/ . A
C J .$ 8& R E. A D C C D A. D F B A. A7$+ ~4D / A. A D C B. A7$+ t4D / A. A B. A F B. A A"F C/ E4$ c4D + / B. A" D E A. A. A H B. A A"F. D E D C/ E4$ c4D + / A. A" D E. A F C 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 D B. A. A H C/ E4$ c5d / E. A" D C" E $ . B
.
D
/ J' . A
C J'.
D / H C.$ 8& " E $ . A ' H A
.
D H/
.
D. B
' L/.$ 8& "" E $ . D ' H A. A D'.$ 8& *+ 0 < 1, $l H,~ x
H g2Mji H 9 F 8 D 8 !p @ 2 !p @ 3 p @ 7 7/$ D 6@f 3" 6 $ F 5 D 7" 7 $ D 4 $ . 7/ 4 D 2 7. 3. 3 2d'+ K: 48& D@d 2 $ . 7 D 6"& / 7. 6 6 D 4 7. 3 4. 3 '2(+ S: 48& O" 7. 4 7/ 2$ d 7. 3 D 3: 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 B k p B e p B a p D ` D j3B + F j D d D p D j D t!$} D b _( /$ D a _. ` D t _/$ &$ D ^" _.& $ F i D u.$ D u"& / _. u u . `
u.
`
/2J'+ % . `
J'.$ 8& u. ` 3d t+ * u. ` D t u. _ u( /& F: u; i+ _. _ _( /& F _. ` D n _. `!& t F & / _ $ F h D u" a $ . k
d J'.$ 8& :" _ $ . ` '3h b+ C . _ '. k
p J'.$ 8& > a D c6F ^+ K" a a D c c. k 2D d+ K> c8& H c1d <+ ]" ^ $ ( . H b < ], ( <$ .( H s * .
$* <2j c
c"
/* .
s s J f H e e. k < `,
: e; f+ X, .$ 8& N < a, < d,
c0f < & <" $ F r D e e. k < f,
: e; r+ b, _. ` D ] $ D s & / _ $ . `
'3j b+ q
'2j ]+ q . ` ' H ] D s.$ 8& k $ . s D r"& / _. r r D e s. ` e. ` '2h+ {: e8& v s. _ D q e. _" /& . q q . k
t J'.$ 8& `0D + e. _ s. _ . 7 .( ( H e. _ . k j F e. _ D ^ a D c6F ^+ " a a D c c. k 2D d+ > c8& 7D ^+ &" ^ $ ( . H b < h, ( <$ .( H p * .
$* <2j c
c"
/* .
p p J l H e e. k < k,
: e; l+ !, .$ 8& < l, s. ` < o,
c0f < & <" $ F k D e e. k < r,
: e; k+ -, s. ` D b: u; h+ 97D ^+ X" ^ $ F ] D d.$ D b < s, < v, , < y, $ <$ d.$ D o & . d$& <2f c c" /& . o o F v D e e. k < |,
: e; v+ C, < }, < ,
$ <$ d.$ D m & . d$& <2f c c" /& . m m F v D e e. k < ,
: e;$ v+ Q, + ; < , : d; ]+ 7 < , , -. `Z n"F ~,~ X b w (' X e x ( j ( d ( X b w (' X e y ( j ( ( d ( ` b X e { X b U w ( X e w ( j ( ` b > X e ~ CASE CASE NUMBER LABEL ('1DENDROGRAM',/) (I3) (60(A1,1X)) (1X,A10,1X,60(A1,1X)) (1X) (10A1) YES 0 h DSK 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& 7D f, ( $ .( 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 + (: $ {. H 2h + (. * J'.$ 8& "$ . } D {/$ D } D | $ D + B" . { D |: " . { F 2d |+ s2d + 6. & 2f+ B+ ." & {$ { ~$ . D 2d 2$ |+ ." & {$ { ~$ . D 2d 2$ |+ A+ ;2D + . D . D |" & {$ { ~$ . D 2f + K. ( H : 2D 2$ + R . . F D + E 3D |+ V 3D + V D |+ M . | F 2$ }+ ^ | 2F 3D + . D | D + C@d + t"$ . { D z" 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 / 0 z , TTY FINISH @ INPUT.DAT _SAME : { [ ` 7 END /TAB p a OUTPUT.DATP LPT DSK SEQOUT SEQIN SEQOUT RANDIN BINARY S< \ V p @ { p B p | p B p z p B y p B 3 p B w @ 95 $ .D 9@d z s D
o1D + z D @d x t |3< !e, (% Y z+< !c, '&@d w+& F 52d {+ .3F 9+ (2D 0+ % < !f, , 3D 0+ ' < !i, , .F 0+ .6D 0+ ++< !l, , 4D - < !o, , & F 0 < !a, '
+ r r F*d B $ D 9 D ~ 9 3F + [ 3F y+ R 3F
+ [ 3F + [ ~0f + P H: ~: 9+ E < !r, , + < !u, r_D ZD ~ ~ < !y,
: ~; + T, < !`, (%6D + \ < !z, < !},
+ 91D + b A 5D = < !, < ",
+ A 5D f < ", < ",
+ dA 4D = $ 2 D ~: ~ < !_, ') $ 2.D y < ", < " ,
< !\, (27D
+ h: 9 3F + # 3F
+ #, 3F q+ v < " 2F i+
2F p+
2F + 2F X+ 2F y+ $ .D 9 D D $ D ~.d 9 9 3F + 3F
+ 3& g+ 2f a+ ~0f + H: ~: 9+ < ", 9 < ",
+ < ", , + ~1D + 2D + D D < ", ~_D ZD ~ ~ < ",
: ~; + , < " , < " ,
. 50$ 0d + A ( 04D ; < "", + ( $ 0:D W < ![, (%+ !&p83f {+ ,+& F 0 dA |4F ;F {"F 5 51f 2+ 1"& 2.f 5 5$
+ r |A 5D M < "*, , + r F*d M $ D ~ 9 3F + ` 3F + ` 3F
+ ` ~0f + Y H: ~: 9+ P < "-, , + h | w z 90D + _ z < !T, (% < "0, < "4,
}3D Y2F Y7 + -3D \2F ]7 + 43D n2F o7 + 43D [2F \7 + 43D }2F ~7 + 43D k2F l7 + 43D m2F n7 + 43D x2F y7 + Q3D f2F g7 + !3D ^2F _7 + !3D c2F d7 + !3D |2F }7 + l3D j2F k7 + l3D u2F v7 + l3D b2F c7 + !)@h 8 rZD ~ ~ 3H + 3H [+ 3( g+ 3h a+ 2h l+
2( q+ < "6, < "9,
+ : 81F + < ";, , + *d $ 3D 8+ D ~ ~ 3D + : ~1d + + Y ~ [ F < ">, < "A,
$ D ~: ~0d + , 2F [+ 2F Z+ , 2F e+ , 2F b+ , & F w uA 5F ) < "D, , + 7D 9+ , < "G, , + } z 9 2D + r r F*d / $ D ~.d 9 9 3F + B 3F s+ 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*d P $ D ~.d 9 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 D w 3 D x@d
2D 9+ v < !Q, (-7D
+ y1< "m, , + 6 ( 04D < "p, + ( ,$ 0 D W(< !O, (% !&p83f {+ & F 0 dA |4F F {"F 5 51f 2+ "& 2.f 54 5$ i F uA 4F & ^ F 7F 9+ 2f 5"F { 00F + +"( 2/ 5h H {0F + - H ( 03H e2J f+ 20F + 2 D : 0!$ 3D z+ !+ !1 < ", {D 6ZD ~ ~ < #,
: ~; 6+ 7, @d
"& ($ 7F 5 D ~6& {+ )O6< #, ( 03H e2J f+ O( ~F {"F 5, 51f 2+ E"& 2.f 5( 5$ 0 |* ( N z+ l& F y" ( . l F 3@f w!& 2F {+ `@& F wF {"F 5 51f 2+ d"& 2.F 55< !B, (%, 90D + g < # , dA 5D #( pA 4D k < # , + r"& "$ (F 4.D ~6& {+ ! !< #, ( 03H e2J f+ ! ~F {"F 5" 51f 2+ !v"& 2.f 51 5$ 2+ r 91D + !. < #, , < # , , + < # , , < #", , + V Ap |p Ap zp y Ap 3 Ap w Ap ,~ p | ` W ] 5X W ] 5 p | x ` W ] 5X W ] 5 ` W ] 5X W ] 5 p W |X | z
y 3p | ` W _ ] 5X W _ ] 5 p W |` z
Z Zx yp | h a vp y 3p | X : X = X ? X C X D P K | $ X L 0 | X O 0 | X S 0 | P W z $ ~ $ y X Y X ] $ X b P K $ P f $ 5 h P ~ P z ^ X g X k X r P K } @ X t $ X z P K } @ X X X X $ X P K } @ P } $ y P K } @ P } $ 3 X X % h H p |P z ^ wH p |P z ^ w8 p |P z ^ w^
jP ( $ h ~ X * h ` h ~ X 3 X 8 X ; 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 + gg M?Th
& $e b + $S,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> ,O@ %'+ $ngR~@1 ,> ,@@ %',> ,> @ 6 w+ $z" %(0B + $v!"A`X#p 5@ $s/#p !" X#p + $z\p + $za.9'1 ,> ,,> ,> O@ %'+ $z,>
6 + _ 4` %"` Q@ ,> < %), ,^ ,> < %,,
,^ *b % + %,^ 7@ %'+ %,> < %0,
,^ + %
,> < %2,
,^ Z 5" %
,^ , 7@ %',
,> < %5, ,^ , ,> < %8, ,^ ,> < %;,
,^ (@qd 1@ ,,
1@ #+ % 0@ *+ %,> < %<, ,^ + %,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X %$ p X %% p %& p %' p X % X ~ %# p x gG@ 1 ,> ,7cp + %H (Bdb + %C. %K "+ %D. %K "T B#p @,~ 4B %J+P $d0
%L#p + %? ,~ > attempt to take SQRT of negative arg Kc3@ 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" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + & Kc#K , & @ ,~ Kc#J , & @ ,~ Kc#I , & @ ,~ Kc#H4B @ &5" &
&U ,~ D &#!$ @ &" B &"5" &
#` + & , &
!" B ,~ + &(BdB + &5B & &#,~ +7` &"+ &`d +D $d0&+D $d0
&U"`d @ 6d &"+ & &",> < &%, &K,^ @ ` &" @ ,> < &%, &&,^ + &U", &
&"+ &+ & ! ,~ x Kc 1 ,> , p 3" &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% !v yO^ RX C2|t(1 ,> , p 4@ &[ @ &J,> < &d, &K,^ &J,~ {e^b C2|p 1 ,> , p 5` &O4@ &[+P $d0&d#p 3@ &^+ &]) 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 ARG CR@1 ,> ,,> ,> p p Ep <b &q $Ep $ E . .& + &m" .!p Ap $Ep ,^ ,^ ,~ !$h X$h @@h *% " &} Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH O 1 ,> ,@ p .#p < XB 'Q#p %p 8 XD '$ Ep *" #p XB '@Ap p @
( 1D + '1D + ''4. ' '$d '$ FK 1d >1D Kp
& '%,~ :
O&
1 ,> , `
ZAp [Ap ,~ U>m61 ,> , `
Ap ,~ H '/H (gZ x'/ A=Qi7 + @ ` 1p Q0A` ',@@ '/ (* 'C@ , (4T 'u1T + 'J1T )+ '`1 , (4T 'PT + 'N ." &" "` QB '- ( ` + 'U ( + ( INX u` + '_ `
& b ( & b ( ` ( ` 'C+ ' ',?` '/
& ( ` 5H 'NO ', $ , (1T + (0T *+ 'F, (1T ', (0T + 'F> @@ (, (0T 1T + 'l0T 1T -+ 's4T 's+ 'u $ ',, (7@ (+ 's1T + 'w4T (1T -+ 'y0T + 'u, (+ 'p!*Lu*
( J (+ 'o
& (
'p
& (" ` $ (#, ( + 'p@
, (0T 1T .+ (1T + ( 1t 14 + 'u(L .,Wh+ 'zSL (+ 'yXL (+ (, (!>9 @ ( 2 (#*& 8+ 0@@ ( ($*& (, (1T + (7 , (14 ,~ 1t + (
6 ux'0 '- 5$ 'C0 'C< 'CCANNOT ENTER TMP FILE!
Command error:
H (( 0X( I4:1 ,> ,, (y Ap ,~ 4 4 ()4 (U KbN=1 ,> ,O@ (V p 4B (1, (y4@ (19 (59 (4KbN= 1 ,> ,@@ (V!$Lu ` @Ap `` a` + (Sa` + (U D (,A (` (:/" #B (+@@ (, !p X@ ((,> < ((, (\,^ 7@ (U+ (@OAp + (T #p Q"A` $ 1@ + (E0` =d (B! H: @ (*@@ (+a|+ (K[ p d 0@ + (P[ p d 0@ + (P+ (N_ w6@ (V_ w#` 1 + (PSp Xp @ (+
(++ (R@ ()+ (S+ (T
& (V+ (T Ap ,~ ERROR ON OPEN!
H H (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 + (k 1D + (o1$ + (l1d + (w0$ 0d -+ (l $ D (Z+ (r" ), )"0@ + ) p 4B )L ad+ )`b+ ) $ 0d "+ )&$ $& (&}Z .G ).& $ .$ 7F + ) ,~ A$ &$ (D G$1$ ((D (D
` 5@ ) .2b M+ ) L.& 7D !$Lu+ )2" )+ )
&p , ) ` ,~
& ) < ),
.p M}ILLEGAL DEVICE NUMBER!
" )!, )" ' Q&A` )!@ 1x ,~ 18 0.8 X =` ) ,~ . H a|+ )%0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> ,, *p+ )E@ , *, *l+ )EZ" 6Ep " B` " b )N $ 7cp $ 1B $ d )N, )G, *9+ )F6cp 0b " b )O$ ){ ({." XB` &$ @6@ .$ .$
a|+ )>[p d p0B + )B+ )@_w#` 1" + )B6cp 0d $QD` , *+ , *w ,~
& )O+ )D
& )R+ )D@b -p . Q,A`
)T 4P )M1P + )U/0 P =n )J,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
)T+ )JYC G aS a3 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` DX Z )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 &. .0 P `bp + *ed
@ )u, *w+ *j`L+ *c )u+ *o ( !*Lu@
, *w
,~ : x ,~ " B +O@ )wO@ )xg " ?$ ++ * d 5D *s +(D D)w+ *o,> e` p+ *{7 )x+ *~l! )x+ *}7 )w+ *~l! )w: +@ > ,^ + *o
& + ,~ "
& +",~ "
& +(,~ , +
& +0
& , + b ( +0+ +
& +4,~ @ ;` )v+ *+ + 8)\ 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( +
+ +`` ` P $` h )y
X HX a` ,~ !" GB` + *Z @* 6$ )z
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
C2d;y1 ,> ,6#p 0b + , @Ap , $ b 2+ +m "6@ &Z &." p 4D +b.$(B{(D{0d + , B , D , ( & Q& f 2+ +D4& +D1( ~9 +A H ,3H ,+ +Q2( ,+ +X.( 3( , , H ,@@ ,@@ +eS"xZH+e: +e.( 3h ,*b +J!$ 6@ ,GD +e , d 2+ +R3h ,+ +I ,(F + +~6@ ,+ +TO@ ,+ +MOAp Z +e3b ,+ , /" * , B ,+ +Y@Ap ,: !& @@ +e!"x H+e: +eGF+e.( 3h ,*b +[ , d 2+ 3h ,+ +Z6Ap + , + +QZ b + @gp + +~ 6@ &+ +sZ .$ 1$ $ ! d + , $ QD &, , p Z aD $ , f Q& [ [ &.& ." `b+ , ! ." !` aB b :p d + , /'p .& Gp ,~ OAp ,~ G3]x1 ,> ,@ ` + ,,~
& , ` +ep
Cannot write-enable high segment data area.
KbN@ 1 ,> ,,
,~ ,Y\ ,Q< X\ ,* +