Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/tscd.exe
There are 2 other files named tscd.exe in the archive. Click here to see a list.
?p @ @ ?x iN @ Kb)E}-dE` INX Q F: { A) '[
`{B E@ (# (% U*> `
@ 1 T
@U PRE POST (' ENTER HEADER') (16A5) (' # OF PRE DATA AND # OF POST DATA, SEPARATED BY COMMA--',$) (2I) (' PROGRAM RESTRICTION: # OF POST DATA SHOULD BE BETWEEN 1 AND 2000'/23X,'INCLUSIVE. USER ENTERED ',I7,' TRY AGAIN.'/)(' PROGRAM RESTRICTION: # OF PRE DATA + # OF POST DATA SHOULD BE'/23X,'BETWEEN 1 AND 4000 INCLUSIVE. USER ENTERED'/23X,I7,', TRY AGAIN.'/)('+JOB TERMINATES'/)(' LINEAR TRENDS IN THE PRE AND POST DATA? (YES OR NO)--',$)(A3) (' MODEL ADEQUACY CHECK? (YES OR NO)--',$) (' PLOT OF THE PRE, POST AND PREDICTED POST DATA? (YES OR NO)--',$) ('-THE GRAPH WILL BE AT THE OUTPUT WINDOW AFTER THIS RUN'/) (' PLEASE WAIT, YOUR DATA IS BEING PROCESSED'/) (' ENTER PRE DATA'/)('+10 NUMBERS PER LINE, SEPARATED BY COMMAS'/) (' ENTER POST DATA'/) ('1'/'3WESTERN MICHIGAN UNIVERSITY'/' TIME SERIES TEST FOR CHANGE DETECTION PROGRAM'/'-CALLING NAME: TSCD'/' DATE RUN: ',2A5/'-TITLE: ',16A5/' FORMAT: ',16A5//'-NUMBER OF PRE DATA',25('.'),I5/' NUMBER OF POST DATA',24('.'),I5/' LINEAR TRENDS?',29('.'),2X,A3/' MODEL ADEQUACY CHECKS?',21('.'),2X,A3/' PLOT OF THE PRE, POST AND PREDICTED DATA?.. ',A3) ('1')('1',16A5)(' NUMBER OF PRE DATA =',I6/' NUMBER OF POST DATA =',I6) ('-AVERAGE OF ',A4,'-DATA =',F12.4/' ESTIMATED LINEAR SLOPE OF ',A4,'-DATA =',G12.4) ('-NOTE: IF EITHER ONE OF THE TRENDS IS DIFFERENT FROM ZERO, THEN THE'/8X,'DATA IS PERHAPS NOT STATIONARY, AND THE MODEL ADEQUACY OPTION'/8X,'SHOULD BE USED TO CHECK THE VALIDITY OF THE FIRST ORDER MARKOV'/8X,'MODEL.') ('-') (10F)TTY YES TSGRP.DAT p + -< L| Od 0"$ D 0 $ D 1 $ D 1 < T, Pl < S, F@d 3 D ~ 1 D < R, F@d 8 < P, IL < U, , < X, < [,
"& $ D A A 82D 0+ D> A8& A < ], , < `, < c,
B0$ 0d h+ J+ M < e, < h,
+ R A. B D }0d 0d P+ P+ V < j, < m,
6$ 3+ D < n, , < G, S} < q, , < t, < w,
< y, , < |, < ,
< , , < , < ,
2D -+ k 22D -+ k: ~0d + k < , , & F F 3 / F 5 / F 6 < L, MB7D 8+ o , D . 0 F *d m 23D -+ r < , , + v < , , 7D 8+ v < , , < , " A $ F
D < ,
: ;
+ y, 22D -+ < , , 7D 8+ < , , < , $ . A D "& / }. F D < !,
: ; + , 23D -+ < K, P < #, < &,
< ., , + < 1, " A $ F
D < 4,
: ;
+ , < 5, < 8,
< I, <r 2D -+ A@d D } $ . A D "& / }. BH }.$ 8& !f B } D }@d { A D .$ A/& $ A$ f & @ F ~ & . B"$ . B$ B$ d $ @ D "& $ F D @f" $
{.
( B
|j
J .$ 8& 3 ~ F{ < :, < =,
A F { B F : ; + 1 < @, ,
2D -+ C < H, @G < C, , + : < G,
p 9h | x P + 5 + +h + . x +x ,x 3X 0 X 0 @ 9 X 0 X 0 $ A $ B X 0
$ B X 0 * $ } X 0 8 X 0 : X 0 @ $ X 0 A X 0 @ $ X 0 E X 0 @ $
X 0 L X 0 R X 0 W X 0 Y X 1 ( B X 0 ^ X 0 Y X 1 ( B X 1 a $ @ @ 9 @ $ A $ B $ $ $
X 1 X 1 $ 8 X 1 $ A $ B X 1
( (| ( ({ X 1 X 0 + * ('-MEAN OF PRE DATA =',F12.4/' ESTIMATED AUTOREGRESSION COEFFICIENTS =',F12.4/' ESTIMATED ONE STEP PREDICTION STANDARD DEVIATION =',F12.4//'-',13A1/' * L A G *'/' * FROM- TO *',9X,'S E R I A L',5X,'CORRELATIONS'/' ',69A1) (' *',I4,' -',I4,' *',5F11.4) (' *',11X,'*') ('-',13A1/' * L A G *'/' * FROM- TO *',9X,'SERIAL CORRELATIONS OF RESIDUALS'/1X,69A1) (' *',11X,'*'/'-BOX-PIERCE CHI-SQUARE TESTS FOR RESIDUAL CORRELATION IN THE FITTED MODEL'//2X,'CHI-SQUARE',3X,'DEGREES OF'/4X,'VALUES',6X,'FREEDOM',5X,'PROBABILITY'/2X,10('-'),3X,10('-'),3X,11('-')/) (1X,F11.3,I8,9X,F6.4) ('-ESTIMATED AUTOREGRESSION COEFFICIENT =',F12.3/' STANDARD ERROR OF AUTOREGRESSION COEFFICIENT =',F12.3/'-95% CONFIDENCE LIMITS FOR THE AUTOREGRESSION COEFFICIENT'/' LOWER LIMIT =',F12.3,8X,'UPPER LIMIT =',F12.3/'-T-TESTS FOR PARTIAL SERIAL CORRELATION COEFFICIENT'/' (EACH T-TEST IS BASED ON ',I7,' DEGREES OF FREEDOM)'/'-',5X,'* PARTIAL SERIAL'/2X,'LAG *',3X,'CORR COEFF',8X,'T VALUE'/1X,35('*')) (1X,I4,' *',2F13.4) (6X,'*'/'-NOTE: IF THE BOX-PIERCE CHI-SQUARE TEST(S) ARE SIGNIFICANT (LARGE)'/8X,'THEN THE FIRST ORDER AUTOREGRESSIVE MODEL DOES NOT FIT THE'/8X,'PRE-TEST DATA AND SOME OTHER MODEL SHOULD BE USED.'//8X,'IF THE 95% CONFIDENCE INTERVAL FOR THE AUTOREGRESSIVE'/8X,'COEFFICIENT CONTAINS ONE, THEN THIS IS EVIDENCE THAT THE'/8X,'PRE-TEST DATA IS NON-STATIONARY. THE NEW SPECIFIED MODEL'/8X,'SHOULD BE BASED ON AT LEAST FIRST DIFFERENCES OF THE PRE-TEST'/8X,'DATA.'//8X,'IF SOME OF T-TESTS FOR PARTIAL SERIAL CORRELATIONS ARE'/8X,'SIGNIFICANTLY DIFFERENT FROM ZERO, THEN THIS IS EVIDENCE THAT'/8X,'THE NEW MODEL BE BASED ON EITHER MORE AUTOREGRESSIVE PARAMETERS'/8X,'OR A MOVING AVERAGE STRUCTURE.'/) (//'-',13A1/' *OBSERVATION*'/' * FROM- TO *',9X,'PREDICTED POST DATA'/' ',69A1) (//'-F TEST ON ENTIRE POST INTERVAL HAS F-VALUE =',F12.4/' WITH ',I6,' AND',I6,' DEGREES OF FREEDOM'/' PROBABILITY VALUE =',F10.5/'-NOTE: A SIGNIFICANT F-VALUE IS EVIDENCE THAT A CHANGE IN MEAN'/8X,'RESPONSE HAS OCCURRED BETWEEN PRE AND POST CONDITIONS.'/8X,'THE T-VALUES BELOW CAN BE USED TO IDENTIFY SPECIFIC SIGNIFICANT'/8X,'DEVIANT POST OBSERVATIONS'///'-T TESTS ON POSTDIFFERENCES'/' (EACH T-VALUE HAS',I6,' DEGREES OF FREEDOM)'/'-',13A1/' *POST OBSER.*'/' * FROM- TO *',9X,'T',5X,'V A L U E S'/1X,69A1) YES h |h}6iD@ \ <n p @ :z p @ :k p @ :{@d :k" A $ BH :k.$ 8& <wf A :k D :k" A $ F :t D ;@f#./$ D : :/ A $ ;
B
:k
:.
( B
:k
J #..$ 8& = ? ; #. #. FF: ;; :t+ <} #. D :{ #/ #. D :s" :s #/ #. F :l"( . A H ;h F <n < ?, Nf @ + & ) F ; A0& + =$& .&
" ; $ F :s D ; < ?,
: ;; :s+ =, $ D :v $ . :v D 3.$ D :v3d A+ =# A F :v 3/$ D :w :v/$ D :l < ? , < ?
,
" :v/& . 3 3 F :r D ; ; < ?,
: ;; :r+ =+, :v2D A+ = < ?, , :z2D <p+ >4 A&$ D :n7$ A.$ ( D :o A( &$ D :o" :o.& $ ( . A/ h H :x"
#-
:s
#.
:l J3
3 J :v" :v. H <n < ? , Nf 3 @E.$ 8& =: B :k D + D + & / A $ "
A
:k
:s B :k H+ +H +.$ 8& =Hf A + D +@d :y" A $ + + H :y.$ 8& =Q & / A $ F :} D ;@f +/$ D : :/ A $
+
+ :. + + H +.$ 8& =Z ; + :y F#.: ;; :}+ =W <q :n/& F+@f:}*d =c" :n $ #. H :~.$ 8& =fd A D :~ :n.$ D ; "& ( / :o. ; ; #. H :~.$ 8& =nd A :~ :~ D :~ :o.$ D ; "& ( / :o. ; ; #. H :.$ 8& =vd A : :~ D :"& $ F :x D ; $+ D <n ; $:} D <o ; $:l D <o < >~, AT :u0D + > ; <q F:l: ;; :x+ =}f A" :s :s$ D <n < >}, Nf @ +" +D :s D :k +D :s D ; < ?, " ; $ F :w D ; < ?,
: ;; :w+ >, $ D :v $ . :v D 3.$ D :v3d A+ > A F :v 3/$ D :w :v/$ D :l < ?, < ?,
" :v/& . 3 3 F + D ; ; < ? ,
: ;; ++ >", :v2D A+ > < ? , , <q < ?!, < ?$,
*d >) < ?&, < ?),
" :o.& $ < ?-, < ?0,
.$ 8& >/ < ?2, , @d ;" B $ ( . B/ H +
+.
A
( A
:k
:s
:k J
+.
A
( B
+ J F
F
J ;.$ 8& >5f B ; D ; $ ) D 3
B0* + >F$* .* F ; D ; < ?8,
: ;; ;+ >I, @d :v $ . :v D 3.$ D :v3d B+ >Q B F :v < ?:, < ?=,
" :v/& . 3 3 F ; D ; ; < ??,
: ;; ;+ >V, :v2D B+ >M < ?@, , "$ . A D ; < >{, K @ :p < ?C, < ?F,
" 3 $ F ; D ; < ?J,
: ;; ;+ >d, @d :v $ . :v D 3.$ D :v3d B+ >l B F :v < ?K, < ?N,
" :v/& . 3 3 F ; D ; ; < ?P,
: ;; ;+ >q, :v2D B+ >g < ?R, , <n :k Ap :{ Ap ,~ h B ; ;x <n` <n <o <o :ux <nx <nX 1 ; ( :k ( :s ( + ( :} X 1 ; $ :w $ :l (F X 1 ;! X 1 ;" ( :} X 1 ; $ :w $ :l (#. X 1 ;, X 1 ;@ (:} $+ (:l X 1 ;B ( ( :s ( + ( :k ( ; $ ; X 1 ;j $ (3 (E X 1 ;l FX 1 <2 ( :} X 1 ; $ 3 $ :v ( X 1 ;! X 1 <; 3 ( ; $ B $ ; ( :p $ ; ( :} X 1 ; $ 3 $ :v (F X 1 ;! O X . * ('1TIME SERIES GRAPH ON PRE, POST AND PREDICTED POST DATA'//1X,16A5/'-GRAPH INTERVAL =',G12.4/' NOTE: . = PRE DATA'/8X,'X = POST DATA'/8X,'O = PREDICTED POST DATA'/8X,'* = INTERSECTION OF POST AND PREDICTED POST DATA'/'-',6(G10.4,10X)/7X,6('^',19X)/7X,5('^',3X,G10.4,6X),'^ ','PRE & POST PREDICTED'/7X,10('^',9X),'^ D A T A',5X,'POST DATA'/7X,10('+---------'),'+')(1X,I4,2X,101A1,2X,G10.4,2X,G10.4) yX ( a2~@ \ @C p @ ?^ !p @ ?Y A. B D ?V B F ?V F ?X" ?V.& $ B2( ?V+ @Q B H ?V B3h ?X+ @S B H ?X.$ 8& @N" B $ 2( ?V+ @X H ?V 3h ?X+ @Z H ?X.$ 8& @U" ?V ?X $H D ?U @F"( .( h !& ?U ?V F@*d @^ < A , @E_D ?\ZD @ @. ?Y < A ,
: @; ?\+ @e < A!,
"& $ F ?[ D @ @ < A",
$ .d @; ?[+ @k"& $ F ?[ D @ @ < A$,
$ .d @; ?[+ @q, ?UD D ?X" A $ F ?Z D @ B F ?W @E @F F?`*d @z" ?V ?W ?U ?XD D @ ?_ F?` < A%, < A(,
: @; ?Z+ @x $ . A D @"& / ?V. @ @ F @ D @ B F ?W/ A F ?U @E @F F?`*d A
" ?V ?W ?U ?XD D @" ?V ?U ?U ?XF F ?^ ?_ H?` ?W H?`2D ?^+ A @ H?`" A. @ H @ < A,, < A/,
: @; @+ A @C,~ X ?^ @ % $ ( ?U (@ (@ X ?^ @@ $ @ @ 2 ?` ( ?W X ?^ @@ $ @ @ 2 ?` ( ?W ( ?U fH, z2 Mvm &E dd se_ { l ~ "h0 vz ~ "P n-d z<" O! < < [u; o2 _^ }Q< QR 4ddG"N
Q \ AE p @ A3 p B A7 p D A4 p D A6!$ D A8 AH D A8 AO D A9 AQ D A9 AL D A: AO D A: AN D A; AP D A; AK D A< AG D A< AF D A= AI D A= AN D A> AR D A> AL D A? AR D A? AQ D A@ AG D A@ AM D AA AP D AA AJ D AB AI D AB AJ D AC AK D AC!$ D AD@d A6@f A43$ 0` 2+ At+ Au & F A63b AM+ Aw & F A6 A61F + B54b B40 + B6b A30b + A~+A|4 A~4 B4 B < BF, Nf @ A5 < BD, BR A61D + B5 A4D $} D A4+ B4 A7D D AE < BC, OO!$} $ D A4+ B4 < BB, Nf @ A5 < B?, BR A61D + B5 A7D D AE < B>, OO AS" A5 A4D $} D A4+ B47$ A3.$ ( D A5( 3D A3+ B% < B=, Nf @ A5 < B;, BR A61D + B5 A4D $} D A4 A7D D A4
AH
A5 < B:, OO !& F AD D A5!$ D A3+ B- A7D D AE < B9, OO!$ D AD" AD& F A4@f A4!( H A5 F A3 & / A5 $ !( h A3H
A7
j A5J A4.$ 8& B." A4 ADD A4!$ D A4 AE A4 Ap A6 Ap ,~ x AEx A4` A5 A4 A6 A8x A7x AE` A5 A4 A6 A8x A7x AE` A5 A4 A6 A8x A7 x@ y~jGVup \ BO p @ BN p B BK p B BM #p B BN @ BH5 BX"d BH BH3d BP+ B[!$ D BH+ C BHD D .$ D BId $} D D BL" BL BH4& C5f Bd BI. BN D BH+ C!$} BL2$ BH+ Bg: BI!$ D BL BH BL D BJ BL BL F BJ" BJ( BJ(v BL H BO &@&rp BJ& F BM BJ &t&4 BL F BL BJ&} &p F BK!&lL BL F BI BO BM BJ BL BJ BK BJ BI BJ$4 BJ D BG < C
, OO BQ @ BP < C , Nf 4 BI. BN D BH BH D BK6& BN+ C" BH& F BK+ C $ D BM BO BK Ap BM Ap ,~ x BJx BP (' INPUT? (TYPE HELP IF NEEDED)--',$) (' OUTPUT? (TYPE HELP IF NEEDED)--',$) (50A1) (12A1) (2O) (10A1) (5A1)(I) (' FILE DOES NOT EXIST'/)('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA. IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X,'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X,'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4) IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///) (' EXAMPLES: DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE: THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1) SAME COMMAND. IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2) FINISH COMMAND. THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM. THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED. FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3) A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///) ('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X,11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1) IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2) IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3) IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4) IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'///' EXAMPLES: LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///) DTA0 S INPUT. DSK OUTAAE A.AAAFINISH N OUTPTTTY F I ] L / A DTA9 .DAT [ : [ X CDR FINI ` M P LPT DSK DSK TTYDAT.TMP S?&0 \ E p @ C F
D C9 F D C 6D C + F 1 D C= C= D 1 CA$ 5D F 2 D C CA$ 0D + F! 2 D C $ . C6b 0b + F&+F#4 F&4 F)4 F'4 F* < H , , 1 D C+ F+ < H#, , 1 D C < H&, < H),
C 2D F+ F3 C 2D F+ F3 C 2D F+ F3 C 3D F+ GS C 2D F + F; C 2D F
+ F; C 2D F+ F; C 2D F+ F; C 3D F+ G] C 2D F+ FE C 2D F+ FE C 2D F + FE C 2D F+ FE $ . C6b 0b + FE+FC4 Gy4 H@d C= < H , M5@d C D C D C> D C D C D C6 F F C
F C D C D C;: C0d + Fj C 2F F+ FP & F C; C 3F F
+ FU C 3F F + F_ C 3F F + Fh+ FL $ . C D C"& . C $ C HC /$ 8& FX F C.& F HC *d F[ $ .D C+ FL $ . C D C>"& . C $ C HC /$ 8& Fb"& C F HC .$ 8& Fe $ .D C+ FL C D C+ FL7D C>+ Fu < H+, .$ D C<" C>/& . C< C< F C D C< C< < H/,
: C<; C+ Fp, < H0, < H4,
6D C;+ G $ . C D C; & . C/ C;7 .& (/& C; D C< C< C 2D F+ G"$ .d C<8& F| $ D C< C< F FC < H6, $ . C D C9"& / C. C9 C9 F C D C< C< < H9,
: C<; C+ G, C
3D F+ GS C
3D F+ GS7D C+ G,< H;, F
: C<; C+ G, 7D C+ G! < H@, .$ D C8" C/& . C8 C8 F C8 D C< C< < HC,
: C<; C8+ G, < HE, < HH,
F2D C+ G-3D C
+ G% FAF C+ G-" 31D + G( F,D C+ G-3$ A C5D G*+ F63d F
3$ E+ G3+ GA C2D F+ Gi $ A C4D Ga+ Gi F D C
+ F D C C D C7 < H , P@ < H, Pu C1D + G? $ .D C
D C: C
2D F+ GI $ A C5D GE F D C
$ A C0D + GH F D C
, F AD C1D + GR3< H, Pu7D C+ GR+< HJ, , " 30D + GQ+< H, S}+ F! < H, MB+ G37D C+ GW < H, M5 < H, Qq < H, S} 31D + GZ < H, S} < HM, < H
, P@+$ D C>3D C=+ Gw D C= < H , M5 < H, MB $ A C D C
F 4+ Cu C
D 5 C D 2 $ D C + H < HR, 5 D C+ Gi < HT, , < HW, < HZ,
< H, M5 $ . C6b 0b + H+H 4 F&4 F) < H\, , + G} E,~ x 0P 5 F C F F F x 5p F 5` 5 F F F` C: F F 7x C7P C F C C
C C6X C C
C C C6h C C
Cp F Cp C Cx CX 0 C? X 0 CC X 0 GS CG @ C P CH C $C P CI C $ C $ C6 P CI C
$C P CJ C $C P CJ C $C P CK C $ 7 X 0 CK ` ` C ` 5 X 0 CN zX 0 DH = $ C9 $ C X 0 E z F A I (' ENTER FORMAT ENCLOSED IN PARENTHESES'/) (' ENTER FORMAT ENCLOSED IN PARENTHESES: (',A1,'-TYPE ONLY)'/) (80A1) ('-ERROR: Format incorrectly specified'/) (' Any FORMAT specification must comply with the FORTRAN-10 Format'/' requirement. The FORMAT must also be enclosed in parentheses'/' and be no more than ',I3,' characters in length'//' Example: ENTER FORMAT ENCLOSED IN PARENTHESES'/11X,'(I2,F3.0,1X,F2.0,I1)'/) S . E ( H (@ L A ) M P SYSTEM ERROR CONTACT COMPUTER CENTER DSK SEQIN O$lI \ I= p @ Hc p @ Hf !p @ I $ D Hb@f 8 F H` F Hd2F Hf+ IT < J?, Mw 80H 3D Hc+ IW+ IX < J@, , 81( 2F Hc+ I] < JC, 8 < JF,
H`0$ + I_ < J=, PS H`0D + Ic < JG, < JJ,
"& ( $ ( D I I Hi2D IE+ Ii> I8& Id $ D 8+ J; I D Hc@d I: I2d Hc+ Is Hi2F IE+ Ij I/& / Hc I Hi HHi.$ 8& Io"$ .D Hc+ Ij6D H`+ J Hi2D I@+ Iz Hj2D I?+ Iz Hj2D IB+ Iz Hk3D ID+ J7 Hi2D I>+ J Hj2D IB+ J Hj2D ID+ J Hk3D I?+ J; Hi3D I@+ J Hi2D IA+ J5 $ D H`" Hf $ . I
IE J'.$ 8& J Hi3D I@+ J $ D H` & / Hc $ D I I Hi3D I>+ J: I8& J
: Hc I> FHi"$ . Hc D Hd < JM, & / Hc $ F Hf D I I < JP,
: I; Hf+ J, < JR, < JT, + I]" Hc $ Hi3H I@: Hd Hi2H IC+ J!"( .H Hd.$ 8& J $ . Hc&$ . Hb2d Hf+ J5 Hb. I < JW, " Hc $ F He D I I < J[,
: I; He+ J), $ . Hc&$ .D Hb Hd0$ + J36b H`0b + J3+J14 J;4 J3+ I] < J\, + J; < J^, , + IP Hf( . Hf D I < Ja, < Jd,
+ IP I=,~ h Hi IA Hix IEX 0 I X 0 I $ Ha X I @ ( Hi P Hd I HM $Hi h P ~ IJP H ^ IKP Hc I $Hi h X 0 I X 0 I# $ I (' % FISHER: ZERO DEGREES OF FREEDOM WITHIN')(' % FISHER: NEGATIVE F-VALUE') 0 *U+ Y a 6EW t/L
j h Jj ( Jf h Jo", .
l Jl H Jm.$ 8& KL+ Kh@d Jl"& . Jhf < LE, Om @3 K+ K^"$ . Jh7 .$ ( D K < LD, O @ Jlf Jh Jl Jo f Jg D Jo Jl$} Jg Jf !$} Jf Jl Jm D Jm Jg Jf D Jl!$ D Jf"$ . Jh D Jg $ . Jj2d Jn+ K| $ . Jj D Jr Jr/ Jn7 .& (/& Jr Jg. H Jnh
Jo
Jl
"( . h
J Jol Jn"
Jf
J Jm.$ 8& Ks!$ Jm D Jk5$ L @f Jk+ L !$ D Jk Jj D Jh1d t+ L76& Jq+ L < LR, , < LB, Nf @ K < LC, L_" @ @ Jkd !*z
Jk!(j ( Jk H Jk+ L7@d Jp Jn D Ji Jh H Jt F Jm2& K + L * J Jp H Jq D Jt H Ji!$ D Jm Ji( . Jif !$ D Jf Jt( . Jth !& F Jr" Jr( < L@, Ny } # D Jf < L>, Ny Jf F K < L?, Nf D Jf Jt0& + L-f
K$ Jf D Jf K Jf K Jf K Jf K Jf$ D Jf!$ Jf D Jk Jp0D + L7!$ D Jk J| Jn Ap Jh Ap J} J} J~
J~
J Jk,~ p Jm Kx K p Jm Kx Jqx K p Jf K x Jfx Jnx Jmx Jgx K x Jhx Jfx Jhx Jnx JhX Jt X Jy 5$3, <@;b` F yD t80&_BnU ]S >G5` \ LX J LZ H LY F LY D LX p @ LW# LW L^& !$ D LV L\ LV L]
LV
LV
L[
LV L] LV LV L[ F LW LW " D D LZ < L|, OO L\ @ LU LU F LV7d LW+ Lx!$ D LV LX LX LY LY
LZ LV,~ x LZ ` Z (X^ . > [.~ (3~ + M ~ + M
Z . \x <x *<x .-> P)ez+ M!" b + " M b + Z . h + gg M?Th
& M b + L|,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* M2** ,^ ,~ * x ,> < M2*< M4 p Z@ M(@@ M(@@ M) Mi`|+ M P w,~ "p h a`~ + M!h ``~ + M"$ Mi!M#d Mj/"+ M P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> S,> Zp @ M(\` M' < M(, ,^ ,~ SMI 1 ,> S, M Mk BM(+ ML_MI 1 ,> S, M Mm BM(+ MLI5R1 ,> S, M Mn BM(*\ MV7Ap X" Mo BM(/& p d"~ l" BM(*\ MV/& p d"~ l" $ BM(*\ MV/& p d"~ l"
BM(*\ MVSp *\ MV/&Xp B M1@@ M1 Mp BM(*\ MV/& p d"~ l" BM(RF M' < M(, + MEV4i91 ,> S+ MdS ,i@1 ,> S+ Md_ ,i@1 ,> S+ MdK>2 1 ,> S+ MdK>40 1 ,> S+ Md[<I71 ,> S
& Mp w @ )@ .
" 5B Me
& Mv,~ ` .
.4 SEQIN ^ MjSEQOUT ^ MlRANDOM ^ MmSEQINOUT M1
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> SO@ N5+ M{gR~@1 ,> S@@ N5,> ,> @ 6 w+ N" N50B + N!"A`X#p 5@ N /#p !" X#p + N\p + Na.9'1 ,> S,> ,> O@ N5+ N,>
6 + _ 4` N"` Q@ ,> < N6, ,^ ,> < N9,
,^ *b N < N;, ,^ 7@ N5+ N,> < N>,
,^ + N,> < N?,
,^ Z 5" N,> < NA,
,^ , 7@ N5,
,> < NB, ,^ , ,> < NE, ,^ ,> < NH,
,^ (@qd 1@ ,,
1@ #+ N)0@ *+ N,> N< NJ, ,^ + N,^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP .p X N1 p X N2 p N4 p j N4 p X N+ X ~ N1 p x CR4B Ns+P M0
Nt#p + Nh ,~ > attempt to take SQRT of negative arg Kc3@ p p + OKc3K , O
,~ Kc3J , O ,~ Kc3I , O ,~ Kc3H4B O5@ O5" O+D M0
OU ,~ ,> ,> # $ )D /$ @,> 4d OX $ (F) + O5F O5" O"` , O(+ O# ,> < O, Ot,^ @ ,> < O , OO,^ 5& O" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + O(Kc#K , O( @ ,~ Kc#J , O( @ ,~ Kc#I , O( @ ,~ Kc#H4B OL5@ O,5" O6+D M0
O+U ,~ D OK!$ @ OJ B OK5" O3#` + OH, O3!" B ,~ + O6(BdB + O65B O1 OK,~ +7` OK+ O?`d +D M0O:+D M0
O:U `d @ 6 OJ+ O5 OK`B "` + O5/ OMid + OA+D M0O:# OJ,> < ON, Ot,^ @ ` OK @ ,> < ON, OO,^ + O<U", O3 OJ+ O6+ O0 ! ,~ x Kc 1 ,> S p 3" Oj+ OT3b Oj+ OV+D M0
OSU ,~ +D M0OU ,~ D Ok F Ol@@ Ok%" j" % Oi)/;` : XD Oe5f O]aF + O].& @(|h& f Ok Og Oh Oh Ok Og D Oi@ Ok Ol,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> S p 4@ P @ Os,> < P
, Ot,^ Or,~ {e^b C2|p 1 ,> Shp 5` Ox4@ P+P M0P B P P P P P P P
,~ +D M0
P P
,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x OsATTEMPT TO TAKE LOG OF NEGATIVE ARG I$P 1 ,> S #p D F b &" .$ &$ 7@ "$ (@ . &" * P#)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-!$h X$h @@h *% " P0 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 I4:1 ,> SZ .@ 6kp 2j8 M+ PQ !p Q A` PJ\$}
4L PH/, L 8$ PF.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& PJ < PP,
O 1 ,> S@ p .#p < XB PYQ#p %p 8 XD Pj Ep *" #p XB P`@Ap p @
( 1D + P\1D + Pf4. Pa Pjd Pj FK 1d >1D Kp
& Pk,~ :
iSN,> S@Ap O
, 7= OAp ,~ 4 4 Pq4 Q KbN=1 ,> SO@ Q p 4B Py, QA4@ Py9 P}9 P|KbN= 1 ,> S@@ Q !$Lu ` @Ap `` a` + Qa` + Q D PtA (` Q/" #B Ps@@ Pt !p X@ Pp,> < Pp, Q$,^ 7@ Q + QOAp + Q #p Q"A` $ 1@ + Q
! H: @ Pr@@ Psa|+ Q[ p d 0@ + Q[ p d 0@ + Q+ Q_ w6@ Q _ w#` 1 + QSp Xp @ Ps
Ps+ Q@ Pq+ Q+ Q
& Q + Q Ap ,~ ERROR ON OPEN!
H H Q"H Q# G.t21 ,> S@ @Ap ! A`.!p @ Q Q! @ Q"@@ Q"@@ Q# & " Q < 1D + Q/- Q:=b Q* Q < 0D + Q8O " Q! @ Q" Q < - Q:=b Q17@ Q"OAp !p < , Q", Q#,~ <& Q3 Q 1D + Q7 Ap + Q3 1D + Q71$ + Q41d + Q?0$ 0d -+ Q4 $ D Q"+ Q:" Q], Qj0@ + QY p 4B Q[L ad+ QX`b+ QY $ 0d "+ Q[&$ $& (&}Z .G Q].& $ .$ 7F + QN ,~ A$ &$ (D G$1$ ((D (D
` 5@ Q[ .2b M+ QW L.& 7D !$Lu+ QZ2" Q^+ QT &p , Qb ` ,~
& Q^ < Qa,
.p M}ILLEGAL DEVICE NUMBER!
" Qi, Qj"' Q&A`$ Qi@ 1x ,~ 18 0.8 X =` Qe,~ . H b a|+ Qm0" 0b /` ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> S, S8+ R
a|+ R[p d p0B + R
+ R_w#` 1" + R
6cp 0d $QD` , RL+ , S? ,~
& R+ R
& R+ R
@b -p . Q,A`
R 4P R1P + R /0 P =n R,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
R + RYC G aS a3 S; YC&<G<aS<a3&<E$;w |xR# PR B` 1T !"L b @ XB` O@ R> SP R>@ , S?
+ SH!, 2, S)@ !.~ , S?` + SQ"" 1T "" QB R<, S? f + 1$ 9 R\+ S7 8 R#@` R# SS*( R< SS n @ `N + SX 6`
SY1T SZ B` " B` \"
b @ B` \" Z b !" Z (Brb S[ b
B R? b
+" `B` !" 2 b `b `b + R|!" 2 b !` 2B` + R|!$ 2 d !$Lu+ R S[ b @ S\, S\ d !$Lu B R= D R>,~ @@ RA S]*( RG B RA D RB BX B` DX Z R?(D} d ` D RA DX " 2D` b S]d " b S^, S?@ R@+ S^ RG BX @@ RH Sa b $+ S!" RIX"X *"X !"`
+ S#!, 2, S)B , S?" X
RB RB, S? + S# JX , S? + S7
& Sb " b S]a` + S"+ S a` + S", S? R@+ + S" x H S2 h &( 2
PR Sh. R? &. .0 P `bp + S-d
@ R=, S?+ S2`L+ S+ R=+ S7 ( !*Lu@
, S?
,~ : x ,~ " B SPO@ R?O@ R@g " ?$ SP+ SG d 5D S; SP(D DR?+ S7,> e` p+ SC7 R@+ SFl! R@+ SE7 R?+ SFl! R?: +@ > ,^ + S7
& Sh,~ "
& Sj,~ "
& Sp,~ , SO
& Sx
& , SO b ( Sx+ SK
& S|,~ @ ;` R>+ RP+ SJ
$8R$ 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( ST+ SK`` ` P $` h
(RA
X HX a` ,~ !" GB` + S" @RH6$ RB
% 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
KbN@ 1 ,> S,
,~ SY\ TQ< X\ T* +