Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bstat.exe
There are 2 other files named bstat.exe in the archive. Click here to see a list.
?p ` ?x EO$ Kb)E|EDE` INX Q F: { A) '[{B E@
M (#sX y G ` '*> ` zX[ 'U zP' O@ k $ D l $ D l"$ D mO@ m mX@ 5 " 6b + <(' ',31X,'WMU'//23X,'BASIC STATISTICS PROGRAM'///)-\ #f4 n-\ S4 l4 n4 m4 m4 \4 n-\ #4 4 \-\ #c4 o $ 2.D o oX@ C " G o + I('JOB',I3,'.DAT') -\ $&4
o-\ S4 l4 p4 m4 m4 ]4 n ]2D p+ V-\ # 4 4 \4 4
^4 4
o4 4
_4 4 `4 4
a@@ q@@ q mX@ X " Yb + `(' TYPE 1 FOR ANALYSIS BY SAMPLE, 2 FOR ANALYSIS BY VARIABLE'/) mX@ b " oB r $ 3D r+ P b D r mX@ g " hb + l(' ','HOW MANY VARIABLES?'/) mX@ m " oB s + p(I) $ 3$ s+ } : Z s@@hR@@h6@@hh@@h&@@hX" b Dh
b Dh< : Z t $ $ . s@@+3: s9 x s3: s9 r@@ t+ mX@ " b + (' ANALYSIS BY VARIABLE MAY NOT BE DONE ON MORE THAN 50 VARIABLES'/) + f mX@ "
b + (' ENTER IDENTIFICATION'/) mX@ " B : Z s <1: 9 + (16A5) -\ x4 m4 m4
4 u4 c4 c $ 2D u+ d D
l D u ]2D p+ 1 $ 2D u+ ! mX@ " b $ 3D u+ % mX@ $ " b -\ r4 d4 m4 m4
o $ D u-\ #4 4 \-\ # 4 4 \4 4
^4 4
o4 4
e4 4 `4 4
a uX@ 4 "
Q" 0 ]X@ CB : Z s 3: s9 5 : Z s: hR hDh6 h Dhh h hDh& h DhX: t hD q h hD q h<3dh+ E h Dh< h
2$h+ H h Dh
Z t"h s & $ s. D +3: s9 I s3: s9 8+ 1 f D r mX@ S "
b mX@ U " B : Z s <1: 9 V mX@ [ " \b + _(' HOW MANY SAMPLES?'/) mX@ ` " oB s : Z s@@hR@@h6@@hh@@h&@@hX" b Dh
b Dh< : Z t $ $ . s@@+3: s9 h s3: s9 b@@ t mX@ o " pb + t(' WHAT ARE THE SAMPLE SIZES?'/) mX@ u " yB : Z t R3: s9 v + z(10I)@@ v : Z t $hRXD }-\ "p4 } f g @ v-\ "t4 v.@ v3: s9 {-\ x4 m4 m4
4 u4 c4 c $ 2D u+ d D
lD u ]2D p+ (T$ 2D u+ S mX@ LINE)'/) $ 3D u+ mX@ " b + (' ENTER DATA'/) -\ r4 v4 m4 m4
o v& s D w $ / w D w-\ #4 4 \-\ # 4 4 \4 4
^4 4
o4 4
e4 4 `4 4
a $ D u : Z s@@ x@@ x"$ 2.hR5d - s R D y+ . $ 2 D y uX@ 0 "
Q" 0B : Z t 3: y9 1 : Z t h sD6 h h sDh h h sD& h sDX hD q h hD q x5D F s t F
s t F< $ D x s
t5$ K s t F
t" s<4d O s t F< t3: y9 5 y.D x x s/R5$ Z" x s.R D y"$ 2. y5d Y y D y+ . $ 2 D y+ . s R.D t s3: s9 ( lX@ _ " cb : Z s <1: 9 ` + e(/' ',16A5) : Z s hR` @ z h6 z Dhn" g z hn zhh "F i-\ !D4 i @h 3: s9 e mX@ q " rb + v(' ','WOULD YOU LIKE OPTION 1?'/) mX@ w " yB z + z(A3) " h. z5D 8 lX@ } " ~b r + (///30X,'OPTION 1'//' ',1X,A4,3X,'SIZE',11X,'MEAN',10X,'VARIANCE',6X,'STANDARD DEVIATION'//) : Z s h D { lX@
" b hRhn {h 3: s9 + (' ',I4,I7,F19.5,F18.5,F19.5/) lX@ " b r + '(/' ',28X,'SUM OF SQUARES',3X,'COEFFICIENT',5X,'STANDARD',/' ',1X,A4,3X,'SIZE',8X,'SUM',4X,'OF OBSERVATIONS',2X,'OF VARIATION',2X,'ERROR OF MEAN'//) : Z s hR` @ z-\ !D4 z h D { h hn $H D | lX@ / " 4b hRh6hh | { 3: s9 '+ 8(' ',I4,I7,2X,2G,F13.3,F12.4/) mX@ 9 " :b + >(/' ','WOULD YOU LIKE OPTION 2?'/) mX@ @ " yB z " h. z5D lX@ D " Fb r + O(///30X,'OPTION 2'//' ',A4,9X,'3RD MOMENT',4X,'SKEWNESS',10X,'4TH MOMENT',4X,'KURTOSIS'//) : Z s hR` @ z h& z!&@ hn hh z hn hnF D | hX z hnF h& z hn &@ hh z hn &@ D } h " g z z!&@, !_ | F } h " g z z } F ~ lX@ n " qb | } } ~ + u(' ',I3,F20.5,F12.3,F20.5,F12.3/) s3: s9 P lX@ x " zb r + (/' ',A4,6X,'MAXIMUM VALUE',7X,'MINIMUM VALUE',13X,'RANGE'//) : Z s h
h< D ~ lX@ " b h
h< ~ 3: s9 + (' ',I3,3F20.5/) $ 3D r+ u mX@ " b + (' ','WOULD YOU LIKE OPTION 3?'/) mX@ " yB z " h. z5D u lX@ " b + (///30X,'OPTION 3') @@ @@ ` t @ @@ @@ @@ : Z s hR` @ z h6D hhD !$} z!& F !$} z h F i-\ "R4 i @ h6 zD 3: s9 ! D "` D "` D "$ . s D " s. t D "$ . t D ` @ ` @ D D D -\ 4 4 4 @ -\ "R4 !$@ !& & !$ "@ lX@ L " Nb + U(//27X,'BARTLETTS TEST'/10X,'CHI SQUARE = ',F8.3,10X,'D.F. = ',I4) lX@ W " Xb + d(//20X,'ONE WAY ANALYSIS OF VARIANCE'//2X,'SOURCE',5X,'SUM OF SQ.',5X,'D.F.',4X,'MEAN SQ.',8X,'F',4X,'SIGNIFICANT AT'/) lX@ f " lb + u(2X,'BETWEEN',F16.5,I7,F15.5,F8.2,F10.3/' WITHIN',F17.5,I7,F15.5/3X,'TOTAL',F17.5,I7) mX@ w " xb + |(//' ','WOULD YOU LIKE OPTION 4?'/) mX@ } " yB z " h. z5D @ lX@ " b + (///30X,'OPTION 4'//24X,'STUDENT T AND F TESTS'//) $ 3D r+ 1 mX@ "
b + (' ','ARE POPULATION VARIANCES ASSUMED EQUAL?'/) mX@ " B + (A3) h2D + lX@ " b + #(' FOR THE FOLLOWING T-VALUES THE POPULATION VARIANCES ARE ASSUMED'/' TO BE EQUAL.'/) h2D + ' lX@ & " 'b + 0(' FOR THE FOLLOWING T-VALUES THE POPULATION VARIANCES ARE ASSUMED'/' TO BE UNEQUAL.'/) + 9 lX@ 2 " 3b + 9(' THE FOLLOWING T-TESTS ARE CORRELATED T-TESTS'/) k5$ < lX@ ; " <b + N(' THE PROBABILITY ASSOCIATED WITH EACH T-VALUE IS OBTAINED BY ASSUMING'/' A TWO-TAILED TEST. A ONE-TAILED TEST MAY BE DERIVED BY HALVING THE '/' PROBABILITY VALUE GIVEN.'/) @@ k $ 3D r+ ^ lX@ R " Sb + ](50X,'DF DF'/' SAMP VS. SAMP',2X,'T-VALUE',3X,'DF',2X,'PROB.',5X,'F-VALUE',2X,'NUM',2X,'DEN'/) + f lX@ _ " `b + f(' VAR VS. VAR',4X,'T-VALUE',3X,'DF',2X,'PROB.') "$ . s D : Z s $ . D Z t s R` @ hR` @ $ 3D r+ ," h 5D " i "
g
s
8
"
g
t H
F i-\ !D4 i 8nHn D
"$ s.R t.R D
+ s
t ( D i-\ !D4 i n(n H
!$ s F i F j !$
t
0
J j
J k
k j $ @ @
"$ s.R D "$ t.R D s t D
D i-\ 4 \4
4 i @ lX@ & " Ub s t
+ R" g s n t n ( $ t. s + "F i-\ !D4 i @
4D 9 s n tn
D
+ D lX@ ; " <b + D(/' THE SD OF THE DIFFERENCES BETWEEN VARS. ',I4,' AND ',I4 ,' IS ZERO') + R"$ s.R D
D i-\ 4 \4
4 i @ lX@ L " Ob s t
+ R(/1X,I3,I8,F10.3,I6,F7.3) t3: s9 j s3: 9 h+ Z(/1X,I3,I8,F10.3,I6,F7.3,F11.3,I6,I5) + @-\ 'P+ + 0 TTY DSK SEQOUT (ASCII VAR. 9 ' 0 (10F) PSEQIN SAMP ! {s[ 0 YES NO P : Z X@ " " )X@ CB : Z 1: 9 + #(16A5) " "b : Z 1: 9 % 3: 9 X@ + " ,b + -(' OK? '/) X@ / " 0B + 1(A3) {3D + 6 |3D + r |2D + )+ r $ D -\ #4 4 }-\ # 4 4 }4 4
}4 4
4 4
~4 4 4 4
D EO@ D " " ZX@ CB : Z 1: 9 C : Z 2Dh+ J1: 9 G Z 3Dh+ N1: 9 J $ D X@ P " Vb "$ . D : Z 3: 9 S + X(' ',I3,2X,16A5) : 2$ + ? X@ \ " ]b + ^(//) X@ _ " `b + c('+CORRECTIONS? ',$) X@ d " iB : Z 1: 9 f + j(I,16A5) 4D r D EO@ D " "b : Z 1: 9 n + ^+ x4 Z \ ,!p ,!p ,!p ,!p Zp , + \ \p ,@ ,Ap -|p NO YES OK DSK RANDOM (ASCII r5D qX@ " b + (' INPUT? (TYPE HELP IF NEEDED)--',$) $ 2D r+ qX@ " b + !(' OUTPUT? (TYPE HELP IF NEEDED)--',$) rX@ % " ' X@ D X@ CB |4 + ((50A1) \2D g O ]2F g O ]2H ~g O
^2J ~g
O
^2L }g
O
^2N }g O _2P |g O A A
A
A A A 4$ \2D g O \2F g O \2H ~g O
_2J ~g
O
`2L }g
O
`2N }g O ]2P |g O A A
A
A A A 4$ \2D g O \2F g O \2H ~g O
a2J ~g
O
a2L }g
O
_2N }g O ]2P |g O A A
A
A A A 5$ a$ . r6b 0b 7 + 4 4 T-\ D4 p$ A r& 3F g O ( 3H vg O G 4& k-\ %D4 4 b4 b4 v@@ v@@ w@@ w@@ x@@ x@@ y@@ y \ D s \)D t \D q@@ z@@ z: z $ 3$ z+ c z2D|+ w$ D z c z3D|+ } d z3D|+ d z3D|+ + r$ . zD w $ . zD k: Z {hzDh|2z k= !: Z { z. \F|1: 9 $ .D z+ r$ . zD x $ . zD l: Z {hw Dh|2z l= |3: n9 B X@ C " Hb v + I(I) \2D q+ V \3D s+ M e D q+ V"$ 3D s+ P e D q+ V $ A r5D S f D q $ A r & 2F + V f D q-\ #P4 q4 p e3D q+ m f3D q+ ` g2d qg O g3& qg O A 4$ m+ X h D s h D t $ D v p D {-\ #P4
i4 p-\ #o4 p4 s4 | $ 3D |+ k $ .D t+ f s D t D \2D s+ u $ A r5D q j D s $ A r & 2F + t j D s k D t $ A r & 3F + -\ #o4 p4 s4 |4 y4 y |4D qX@ } " ~b + (' FILE DOES NOT EXIST'/)"$ 2D s+ -\ 'P+ -\ 4 p4 i4 w4
s4 y4 y+ X $ 2D v+
-\ 4 { $ 2D v+ -\ %D4 4 b4 b4 v-\ 'P pX@ + X qX@ " b + ('-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.'///) qX@ " b u u + O(' 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.'///)-\ 4 q $ . r6b 0b 7 +S4 4 qX@ V " Wb + R('-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'///) + O+ X4 Z o \ o p,!p ,!p ,!p ,!p ,!p ,!p + o o\ s/ ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] @@ @@ @@ $ ( D @@
5D -\ 'P $ 2D + $ X@ # " $b + &(' FORMAT'/) $ 3$ + + X@ ) " +b 3 + /(' FORMAT: (',A1,'-TYPE ONLY)'/) X@ 0 " 4B : Z
1: (9 1 + 6(80A1) $ 3D + D 2D
g O 2F
g O 2H g O A A 5$ ?+ } : Z
. F3: 9 @ $ D $ 3d + G $ $ D : Z
2Dh + L3: 9 H $ D + }
2D + K $ D X@ S . X@ C " W : Z
3: 9 T + X(80A1) : Z
2Dh + [:
2Dh + ]>
3: 9 Y $ 3d
+ `+ } $ .D $ . 3d + f $ . / $$ D $ 2d + m X@ i " 4B : Z
1: (9 j + O $ 2D + o-\ 'P X@ q " rb + v(' ERROR IN FORMAT, TRY AGAIN.'/) $ D + + }4 Z \ ,!p ,!p , p ,!p ,!p ,!p + \ / ,Ap -|p M A S ( ) I F A + ?4 5 Q * Z \ ,!p $ A 1D g O !8 X8 *8 -|p + H4 @ Q * $ Z $ \ % %,!p -\ 54 %J !8 X8 *8 $ %-|p + D . ,4D C $ 3D ++ L + D . $ t2$ ++ O $ t D + $ / + +7 .& (( . D . $ / + +7 .& (( . D / +5D [ " [b + `(' % FISHER: ZERO DEGREES OF FREEDOM WITHIN')-\ "p4 + @ ,-\ "p4 + , , @ /!$ /!& F 0-\ 54 +4 r-\ 54 +4 m 0 0 D 0 / 0 D 1+ -\ !D4 0 @ 1 0D 1 D 0" D 1"` 1+ -\ 54 +4 z / 0 D ,-\ !D4 , @ 1 1D 0 / D 0+ -\ !D4 / @ 1 D 1 0 1 1 D 0 1D -\ !)4 1 @ 1 /D 0 D 1 $ . /2d ++ +-\ @4 +4 $ . / Z 2"$ . D ,-\ "p4 , @ --\ "p4 . - 0 0 @ 0"$ . D ,-\ "p4 , 0 1 F 1.: 3z ++ + +@@ 2"$ . +` @ ,-\ "K4 0 ,@3 + "$ . +7 .$ ( 0
, " H 2-\ "p4 / 0 2 @ ,-\ "p4 + , @ 0 1 2" 0" 2
/
0 D 1 / 0%D 1!$ D 0"$ . +ED / $ . .2d ++ @ $ . . Z 3 /. D 2"$ . D ,-\ "p4 , 0 1 @ --\ "p4 2 - @ 0-\ "p4 2 0 0 D 1"` 1.: 3z ++ 2!$ 1 D - -5$ C@@ -+ D!$ D - . D + $ t3$ ++ G+
, !\!& 7 D ,-\ "z4 , @ 0 5 , ! 7 6 D ,-\ !D4 , 0 F 0 $ 3d 5+ }-\ "p4 5 @ , , 0 $ 0 D 0 0 0 0 0$ D 0!$ 0 D - $ 2D 4+ " D -"` -+ -\ "z4 ] W !$ D W X X Y Y D ] D"D ^-\ "-4 ^ Z @ ` ` D ^ ]4d N" ZD ^"` ^+ S4 D [ F [ Z \ \ \ ],!p + 7 [ [ \ \\ ],Ap ^-|p ]S = t80& vh|9 <@;b =w* 5$3, yD 0 \ E @ F< M0< 0| + 1\ + n,>p Z p + p @ h @ p @( +@0 5@ x @ @8 7@( %@ P /@ P 0@ h @ v@ v@ @ t@ $[ (/< 0"` S<p X< 0 p 3@ N+ u*| q-< [ Z` `+ $! @w+ r< O p 7 p + ,> ,> ,> &w p ,
,& .< 7@p +
p ,
" Om =.< Pp ` P w,& ,& 5@ |.< Zp d P: ." Q ,& ! p ,& >` 9 .< 9 |@@ ,^ ,^ ,^ + d @ @ &< 0b ." ." )B}5@ F, x ,^x E+ ` `Q< \ A: ` \ B< Q p =| R < \ B@@ C+ !@@ B Q< \ A< Q p =| R+ !7 T U \ B @ 4X Q< \ A V \ B+ ! [`x F, x + <Z \ A@@ B@@ B< O \ C+ !7 D CX\ `@@ D@@ C+ # >x ! Z @
& VU` eB + L@ )@ G
" + I
& Z+ c6$ 1 ,> 'R. @
p .4 6$ w( ;.
.4 B. ASEQIN @ SSEQOUT @ T@ 4
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + _ ~ + kZ . \x <x *<x .-> #9ez+ f!" b + " h b + Z . h + gg M?Th
& m b + [,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* ** ,^ ,~ * x ,> < *< p Z@ @@ @@ G`|+ zP w,~ "p h a`~ + h ``~ + $ H! d H/"+ {P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> 'R,> Zp @ \` < , ,^ ,~ SMI 1 ,> 'R, s J B + *_MI 1 ,> 'R, s K B + *I5R1 ,> 'R, s M B *\ 57Ap X" M B /& p d"~ l" B *\ 5/& p d"~ l" $ B *\ 5/& p d"~ l"
B *\ 5Sp *\ 5/&Xp B @@ N B *\ 5/& p d"~ l" B RF < , + qEV4i91 ,> 'R+ BS ,i@1 ,> 'R+ B_ ,i@1 ,> 'R+ BK>2 1 ,> 'R+ BK>40 1 ,> 'R+ B[<I71 ,> 'R
& O w @ )@ .
" 5B D
& U,~ ` .
.4 SEQIN ^ ISEQOUT ^ JRANDOM ^ LSEQINOUT
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> 'RO@ !+ ZgR~@1 ,> 'R@@ !,> ,> @ 6 w+ f" !0B + b!"A`X#p 5@ _/#p !" X#p + f\p + fa.9'1 ,> 'R,> ,> O@ !+ f,>
6 + _ 4` o"` Q@ ,> < !, ,^ ,> < !,
,^ *b l+ y,> < !, ,^ 7@ !+ t,> < ! ,
,^ + v,> < ! ,
,^ Z 5" y,> < ! ,
,^ , 7@ !,
,> < !!, ,^ , ,> < !$, ,^ ,> < !',
,^ (@qd 1@ ,,
1@ #+ !0@ *+ z,> < !(, ,^ + z,^ ,^ ,^ ,~ (' 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 CR3b e D h& B !B !@ !A @ !? !A @ !? !@ !> !B`F !C7 !B !C7 "` !C,~ &` V-G {G ZCv\ 7f ]V#QI+0`} 9~jgG@ 1 ,> 'R7cp + !O (Bdb + !J. !R "+ !K. !R "T B#p @,~ 4B !Q+P l0
!S#p + !F ,~ > attempt to take SQRT of negative arg Kc3@ p p + !bKc3K , !b
,~ Kc3J , !b ,~ Kc3I , !b ,~ Kc3H4B !x5@ !f5" !x+D l0
!eU ,~ ,> ,> # $ )D /$ @,> 4d !oX $ (F) + !o5F !o5" !n"` , "+ !v# ,> < !z, "R,^ @ ,> < !{, "-,^ 5& !v" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + "Kc#K , " @ ,~ Kc#J , " @ ,~ Kc#I , " @ ,~ Kc#H4B "*5@ "
5" "+D l0
" U ,~ D "*!$ @ ") B ")5" "#` + "&, "!" B ,~ + "(BdB + "5B " "*,~ +7` ")+ " `d +D l0"+D l0
"U `d @ 6 ")+ " ")`B "` + "/ "+id + " +D l0"# "),> < ",, "R,^ @ ` ") @ ,> < ",, "-,^ + "U", " ")+ "+ " ! ,~ x Kc 1 ,> 'R p 3" "I+ "33b "H+ "5+D l0
"2U ,~ +D l0"4 ,~ D "I F "J@@ "J%" j" % "G)/;` : XD "C5f "<aF + "<.& @(|h& f "J "F "G "F "J "E D "H@ "I "J,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> 'R p 4@ "b @ "Q,> < "k, "R,^ "Q,~ {e^b C2|p 1 ,> 'R p 5` "V4@ "b+P l0"k#p 3@ "e+ "d) r. !@ "i! n@ "i(|h" "f "f B "j "g "g "h "j "i "h,~ +D l0
"c "i,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x "QATTEMPT TO TAKE LOG@OF5NEGATIVE ARG M2| 1 ,> 'R p + "wS; 1 ,> 'R+ "uSO 1 ,> 'R p + "xM3!d ` ,~ SAd @ ,~ C 1 ,> 'R#p ,~ S0 1 ,> 'R#p +" ",~ U ,~ BrD1 ,> 'RO@ #5+ #G3D1 ,> 'R@@ #5 @ #- #5* #4 *p ,( @n #4, #+ #8 , #5R # P XB #!= # #-.8#"6$8#"5X 6$( 6$0 .0 !$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 I4:1 ,> 'RZ .@ 6kp 2j8 M+ #a !p Q A` #Z\$}
4L #X/, L 8$ #V.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& #Z < #`,
U>m61 ,> 'R `
Ap ,~ iSNp O
, 7d OAp ,~ 4 4 #k4 $ KbN=1 ,> 'RO@ $mp 4B #s, %4@ #s9 #w9 #vKbN= 1 ,> 'R@@ $!$Lu ` @Ap `` a` + $a` + $ D #nA (` #|/" #B #m@@ #n !p X@ #j,> < #j, $w,^ 7@ $+ $OAp + $ #p Q"A` $ 1@ + $0` =d $! H: @ #l@@ #ma|+ $
#m+ $@ #k+ $+ $
& $+ $ Ap ,~ ERROR ON OPEN!
h 4 4 $Y4 $hX 4 $i4 $i4 4 $i4 $iX 4 $i4 $j4 4 $i4 X 4 $i4 $j4 4 4 $iId]1 ,> 'R !p X@ $ ,> < $ , $6,^ ,~ aJ~I51 ,> 'R !p X@ $" !p X@ $!,> < $ + $4et21 ,> 'R !p X@ $$ !p X@ $$,> < $#, $6,^ ,~ et91 ,> 'R p 4B $9, %5@ $:!$Lu ` D $bA (` $</" #` XB $b ^ $h@@ $[ p 4x $X0x + $X, `$A+ $X $E $K $K $K $W $W #p 1 #p XB $, $d, $b@ $Y,~ @@ $Y@@ $Z@@ $[ $Y+ ,~ #p XB $, $d, $b@ $Y+ $^@@ $[1x + $S p XB $,> $Z, $d,^ X@ $Z & 5B $U p ` $k $Y+ $],~ , $D+ $K $h ,~
& $k+ $X
& $m+ $X
& $p+ $XR $Z5@ $a! H: @ $Z+ $M
& $r+ $X + $\,~ ,> < $, $w,^ 7@ $h,~ + $[ 6$ $ZILLEGAL FILENAME. DEVICE NOT AVAILABLE.
RENAME ERROR!
NO SUCH FILE.
H H $vH $v G.t21 ,> 'R@ @Ap ! A`.!p @ $t $t @ $u@@ $v@@ $v & " $t< 1D + %- %=b $~ $t< 0D + % O " $u @ $u $t< - %=b %7@ $vOAp !p < , $v, $v,~ <& % $t1D + %
Ap + % 1D + %
1$ + %1d + %0$ 0d -+ % $ D $u+ %" %0, %=0@ + %, p 4B %/L ad+ %+`b+ %, $ 0d "+ %/&$ $& (&}Z .G %1.& $ .$ 7F + %" ,~ A$ &$ (D G$1$ ((D (D
` 5@ %. .2b M+ %* L.& 7D !$Lu+ %-2" %1+ %' &p , %5 ` ,~
& %2 < %5,
.p M}ILLEGAL DEVICE NUMBER!
" %<, %= ' Q&A` %=@ 1x ,~ 18 0.8 X =` %8,~ . H a|+ %A0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> 'R, '
+ %a@ , &6, '+ %aZ" 6Ep " B` " b %i $ 7cp $ 1B $ d %j, %c, &T+ %b6cp 0b " b %j$ & ({." XB` &$ @6@ .$ .$
a|+ %Z[p d p0B + %^+ %\_w#` 1" + %^6cp 0d $QD` , & + , ' ,~
& %k+ %_
& %m+ %_@b -p . Q,A`
%o 4P %i1P + %p/0 P =n %e,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
%p+ %eYC G aS a3 S; YC&<G<aS<a3&<E$;w |x%w P%r B` 1T !"L b @ XB` O@ & '$ &@ , '
+ ' !, 2, &}@ !.~ , '` + '$"" 1T "" QB &, ' f + 1$ 9 &0+ ' 8 %w@` %w '&*( & '' n @ `N + ', 6`
'-1T '- B` " B` \"
b @ B` \" . b !" Z (Brb '. b
B & b
+" `B` !" 2 b `b `b + &P!" 2 b !` 2B` + &P!$ 2 d !$Lu+ &S '/ b @ '/, '0 d !$Lu B & D &,~ @@ & '0*( & B & D & BX B` DX Z &(D} d ` D & DX " 2D` b '1d " b '1, '@ &+ '2 & BX @@ & '4 b $+ &d!" & X"X *"X !"`
+ &w!, 2, &}B , '" X
& &, ' + &w JX , ' + '
& '5 " b '1a` + &u+ &^a` + &u, ' &+ + &u x H ' h &( 2
P%r ';. & &. .0 P `bp + 'd
@ &, '+ '`L+ & &+ ' ( !*Lu@
, '
,~ : x ,~ " B '#O@ &O@ &g " ?$ '#+ ' d 5D ' '#(D D&+ ' ,> e` p+ '7 &+ 'l! &+ '7 &+ 'l! &: +@ > ,^ + '
& '<,~ "
& '>,~ "
& 'D,~ , '"
& 'K
& , '" b ( 'L+ '
& 'O,~ @ ;` &+ &#+ ' ^p%w 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( ''+ ' `` ` P $` h bH&
X HX a` ,~ !" GB` + &u @&6$ &
% 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 ,> 'R,
,~ 'SY\ 'TQ< X\ 'U* +