Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/cross.exe
There are 10 other files named cross.exe in the archive. Click here to see a list.
?p GJ~<`Kb)C}+4C` INX Q F: { A) '[{B E@
+ (#sX y =n E*> ` W0U E; W(E O@ "$ D $ D $ D -\ B%4 X@ 6 " 7b + ;(20X,'PDP-10 VERSION OF NUCROS') + <(40I2) -\ <
4 4 4 4 4 W4 -\ <
4 4 4 4 4 W4 -\ =14 4 4 04 4 X4 W
+ I(1H1) X@ K " Lb + O(' ENTER IDENTIFICATION'/) X@ Q " B : Z 5I1: 9 R X@ V " Zb : Z 5I1: 9 W + \(1X,16A5) X@ ] " ^b + c(' ENTER PROBLEM CONTROL PARAMETERS'/) X@ d " iB + j(10I) $ 2$ g O & 3f g O G 4$ u $ $2$ g O & 3f g O G 4$ + X@ v " wb + |(' ILLEGAL NUMBER OF VARIABLES SPECIFIED.'/) "$ 2D + ~-\ E6+ \ X@ " b + (' ILLEGAL NUMBER OF TABLES SPECIFIED'/)"$ 2D + -\ E6+ \@@ 1d g O 1f g O G 5$ $ D + (16A5) X3D + X@ " b : Z 01: 9 + (' FORMAT OF DATA'/(' ',16A5))-\ @L4 4 W @ X@ " 7b X@ ! " "b + &(//' ENTER MAXIMUM VALUES'/) X@ ' " IB : Z 0;3: 9 ( X@ - " ?b : Z 3: 9 . X@ 2 " <b : Z 0;3: 9 3 + 7(I4,9I2) + ;(/20H TOTAL CASES USED = I4) + <(1H0)+ ?(11H MAX.VALUE ,40I3) + B(//11H VARIABLE , 40I3) X@ C " Db + I(//' ENTER TABLE CONTROL PARAMETERS'/) + J(30I2) : Z X@ M " IB : Z ( . 2E3: 9 N 1: 9 K : Z $ Dh2# : Z ( . 2E4d Z F2# 1: 9 V 3: 9 T X@ _ " b "$ . 5d d X@ c " -b + g X@ f " "b -\ @L4 4 Y @ : Z
Z 2# D
X@ m " b : Z ( . 2E3:
9 o
: Z ( . 2E D 0; Dh3W3:
9 t X@ { " b : Z 3W3:
9 | $ .
D 3$ + 2# D
X@ " (b : Z ( . 2E3:
9 : Z ( . 2E D 0; Dh3W3:
9 X@ " +b : Z 3W3:
9 +
3: 9 i+ (1X,9XI6,7X,4I4) + (//1H+,9X9HTABLE NO.,6X9HVARIABLES,7X14HMAXIMUM VALUES)+ "(1H+,38X,4I4) + (('+'75X9HTABLE NO.,6X9HVARIABLES,7X14HMAXIMUM VALUES) + +(1H+,74X,I6,7X,4I4) + -('+'104X,4I4) + .(' ') 4d # X@ 0 " 1b + 5(' ENTER TWO RECODING LINES'/) X@ 6 " IB : Z 0O3: 9 7 X@ < " IB : Z 0c3: 9 = : Z h0O D "$ . 4d _ X@ E " Fb + I(' ENTER GROUP BOUNDARIES'/) X@ K " MB 0w4 + N(16I) $ 3D + R!: Z Zh1T1: 9 P+ \ X@ T " Ub + X(' ENTER CATEGORIZATION'/) X@ Z " MB 1T4 `
0w4 1T4 3: 9 @ X@ b " b
: Z h0O D 4d "$ . 5d m X@ i " b 0c + @
0w4 1T4 $ 2D + v X@ s " b 0w4 $ 3d g O & 2& g O A 5$ X@ | " b 0c 0w4 $ 2D + X@ " b 0w4 1T4 3: 9 d+ (27H1RECODING OPTION CALLED FOR // 4X,67H VAR.NO. CODE CONSTANT RECODED CATEGORIES (UPPER LIMITS) ) + (8XI2,5XI1,4XI3,10X4HNONE) + ( 8XI2,5XI1,4X4HNONE,16I3) + (8XI2,5XI1,4XI3,1X,16I3) + #(8X,I2,5X,I1,4X,'NONE',16I3/24X,16I3)
4d E X@ & " 'b + *(' ENTER VARIABLE NAMES'/) : Z X@ - " AB : Z $ $ . 3E1: 9 . 3: 9 + X@ 5 " ?b : Z X@ 8 " Cb : Z $ $ . 3E1: 9 : 3: 9 6+ A(8H1VAR.NO.//) + C(12A5) + E(I5,2X,12A5) -\ @L4 4 Y @ " .D $ D
X3D + M X@ L " Yb + a $ 2D + Q X@ P " Qb + V(/' ENTER DATA (AT MOST 10 PER LINE)'/) 5D Y X@ X " ^b + ^(/' YOUR DATA IS BEING READ. PLEASE WAIT.'/) + a(/' ENTER DATA'/) $
D
$ XD f9" 0Q" B : Z $ d$ . 4d !6b 0b 7 +r4 v4 |4 4
4
4
4
4
: Z 0c & d$ . .D 73: 9 w+ ! : Z & d$ . 7
/(0c D Z-\ @:4 Z4 W @ 73: 9 }+ ! : Z & d$ . 7 F Z
&(0c D 73: 9 + !@
0w4 1T4 : Z : Z & d$ . 7/h0w4d 1: 9 $ d$ . &
F7+ $ d$ . 1T F7 3: 9 $ 3D + !"$ . 4d !"$ .D + p 3: 9 n
: Z h2# D
( 2F D ( 2F D $ .0; D $ .0; D @@ @@ $ . ( . D $ . $ D 6b
0b 7 +44 ?4 ?4 :4 7 ( 2G D 0; D ( 2G D 0; D $ .D !: Z !: Z "$ .
5d I : Z : Z $ 2$ . @@'3: 9 D 3: 9 C+ Z"$
.
5d S@
": .Z : Z $ 2$ . '3: 9 M 3: 9 L + Z@ : Z : Z $ 2$ . '3: 9 U 3: 9 T : Z
4$ c4D `" 3& d$ . & 3f g O G 4$ v 2$ g O 2& g O G 4$ v $ 2$ . : '
"$
.
5d ` : Z : Z $ 2$ . '3: 9 | 3: 9 { + F`
": .Z .: 5Z $ 2$ . '3: 9 3: 9 b + F" .D D
0b 7 +4 4 4 H4 4d 7 X@ " (b : Z $ $ . 3E1: 9 : Z $ $ . 3E 1: 9 " + 7(7X,11H TABLE NO. ,I3,10X,13HVARIABLE NO. ,I2,2X, 12A5,/ 25X,6HVRS. ,13HVARIABLE NO. ,I2,2X,12A5, / 7X,13HTABLE SIZE = I3,5H BY ,I3) + N X@ 9 " <b + H( 10X,11H TABLE NO. I3,5X,13HVARIABLE NO. I2,3X, 9HVRS. NO. , I2//13X,13HTABLE SIZE = I3,5H BY I3) + N 4d o X@ K " ]b : Z $ $ . 3E1: 9 M : Z $ $ . 3E 1: 9 R : Z $ $ . 3E 1: 9 W + o(7X,11H TABLE NO. , I3,10X,13HVARIABLE NO. I2,2X,12A5, 2(/25X,6HVRS ,13HVARIABLE NO. I2,2X,12A5) //7X,13HTABLE SIZE = I3,5H BY I3,10X,16H 3RD DIMENSION = I3) + N X@ q " ub + (10X,11HTABLE NO. I3,5X,13HVARIABLE NO I2,3X,9HVRS NO. I2,3X,9HVRS. NO. I2,///13X,13HTABLE SIZE = I3,5H BY I3//13X,16H3RD DIMENSION = I3) + N 4d 4 X@ " b : Z $ $ . 3E1: 9 : Z $ $ . 3E 1: 9 : Z $ $ . 3E 1: 9 : Z $ $ . 3E 1: 9 + 3(7X,11H TABLE NO. I3,10X,13HVARIABLE NO. I2,2X, 12A5,3(/25X,6HVRS. ,13HVARIABLE NO. I2,2X, 12A5) //7X,13HTABLE SIZE = I3,5H BY I3,10X,16H3RD DIMENSION = I3,5X,16H4TH DIMENSION = I3) + N X@ 5 " ;b + N(10X,11H TABLE NO. I3,5X,13HVARIABLE NO. I2,3X,9HVRS. NO. I2,3X,9HVRS NO. I2,3X,9HVRS NO. I2//13X,13HTABLE SIZE = I3,5H BY I3//13X,16H3RD DIMENSION = I3,5X,16H4TH DIMENSION = I3) "$ . D X@ Q " ub !: Z 3: 9 R X@ V " -b @@ : Z @@h1I3: 9 X : Z "$ . D @@h1 : Z & 2$ . ' .D1 & 2$ . '.Dh1I3: 9 ^ X@ f " xb 1 : Z $ 2$ . '3: 9 h 1.D 3: 9 Z X@ q " zb : Z 1I3: 9 r + x(/17X,3HTOT,3X,21I5)+ z(9X,I3,I8,3X,21I5) + }(/9X5HTOTAL,I6,3X,21I5) . . 4d F : Z h1` @h1\ : Z $ 2$ . '` @'3: 9 3: 9 : Z h1I` @h23: 9
` @ . 4d U 5d X@ " -b + S@@ 5D @@ @@ + ( : Z : Z h2 1\ D " & 2$ . ' D 5D !$ D @@ D 3: 9 3: 9 !* , @a H X@ * " ,b + 1(/1H+,6X,12HCHI SQUARE = ,F8.3,3X,4HC = ,F5.3) $ 3D g O & 3F g O G 4$ O Z D
F
H Z-\ Au4 Z @ X@ I " Jb j + O(4X,'2X2@CORRECTEDbCHI-SQUARE =',F8.3) 5d S X@ Q" -b + U-\ 6t4 Z4 4 4 4d F .D
b X 1: Z + 23: 9 b 3: 9 s X@ " b : Z ! 1I3: 9 + (9X,I3,I8,9X,2P20F5.1) + (/9X,5HTOTAL,I6,8X,20I59)" .D
b 1 : Z 23: 9 < 3: 9 - X@ B " b : Z 1I3: 9 C 3: 9 @ 3: 9 ? 3: 9 # 4d @-\ @L4 4 Y @ " .D :
"$
.
5d R $ D
+ S $
D
+ c-\ E6+ + 0 TTY d $ D 6@@ 6 : Z 7 : Z 7 & 2$ . 7 6|. 'MD 63: 6}9 5U 7 3: 6}9 5T@@ 7"$ . 6} D 7"$ . 6} D 7 : Z 7 : Z 7 $ . 7 D 7 $ . D 7 7 Z 7 7 Z 7 & 2$ 7 . 7 6|. 'M ( 2$ . 7
6|.
/MD 73: 6}9 5f 73: 6}9 5d 7 3: 79 5` 7 3: 79 5_@@ 7 : Z 7 : Z 7 $ . 7 D 7"$ . D 7 7 Z 7 : Z 7 & 2$ 7 . 7 6|. 'M ( 2$ . 7
6|.
/MD 73: 79 5y7 73: 6}9 5x 7 3: 6}9 5t 7 3: 79 5s 7 7 D 7 7 7 7 7 F 7 : Z 7 @@h7
7 3: 6}9 6
4: :Z 7 @@h7?9: @Z 7 & 2$ 7 . 4 6|. 3'M9 7 D 7?3: 6}9 6" 7 3: 6}9 6@@ 7 : @Z 7 h7 Z 7 h7? D 73: 6}9 6) 6 7D D 7@@ 7 : Z 7 h7
: Z 7 " 6zh7
3: 6}9 6;@@ 7
: Z 7 " 6zh7? h7?F D 7
3: 6}9 6@" 6z 6 6D 7
!& , @d D 7 " 6z 6 6D 7
!& , @d D 7 7 7 7 F 7
6X@ 6P " 6bb 7
7 7 7 + 6y 7/ 75d 6W` 7 @ 7
+ 6X` 7 @ 7
" 6z 7
6 F 7
7 F 7kb 7y+ 6k(1H+,41X,8HTAU-B = ,F6.3,3X,8HGAMMA = ,F6.3,3X,6HDXY = ,F6.3,3X, 6HDYX = ,F6.3) + 6t(1H+,41X,8HTAU-C = ,F6.3,3X,8HGAMMA = ,F6.3,3X,6HDXY = ,F6.3,3X, 6HDYX = ,F6.3) + 6y4 Z 6{ \ 6{ 6|, p ,!p ,!p ,!p + 5R 6{ 6{-|p 0 <,5D 7N <+X@ 7M " 7Nb + 7R(' INPUT? (TYPE HELP IF NEEDED)--',$) $ 2D <,+ 7V <+X@ 7U " 7Vb + 7[(' OUTPUT? (TYPE HELP IF NEEDED)--',$) <+X@ 7^ " 7` 9AX@ >R 9AX@ >QB <64 + 7b(50A1) <2D <9g O <2F <8g O <2H <8g O
<2J <7g
O
<2L <7g
O
<2N <6g O <2P <6g O A A
A
A A A 4$ 9A <2D <9g O <2F <8g O <2H <8g O
<2J <7g
O
<2L <7g
O
<2N <6g O <2P <6g O A A
A
A A A 4$ 9H <2D <9g O <2F <8g O <2H <8g O
<2J <7g
O
<2L <7g
O
<2N <6g O <2P <6g O A A
A
A A A 5$ 8 $ . <,6b 0b 7 +84 9J4 ;-\ ?"4 <* $ A <, & 3F g O ( 3H </g O G 4& 8$-\ C*4 <T4 <4 < 4 <0@@ </@@ <0@@ <1@@ <1@@ <2@@ <2@@ <3 < D <- < D <- < D <*@@ <3@@ <4: <3 $ 3$ <3+ 8P < <32D<5+ 80 $ D <4 < <33D<5+ 87 < <33D<5+ 8B < <33D<5+ 8N+ 8+ $ . <3 D <1 $ . <3 D <% : Z <4 h<3 Dh<52z <%= 8;!: Z <4 <3. < F<51: 9 8> $ .D <3+ 8+ $ . <3 D <1 $ . <3 D <% : Z <4 h<1 Dh<52z <%= 8F $ . <3 D <& <3 Z <4 < Dh<53: <&9 8K $ .D <3+ 8+ <3 D <2+ 8+ <14D 8] <OX@ >Q " 7` $ . <1 D <& & . <1 Z <4 <53: <&9 8V <OX@ >Q " 8\b <2 <3 + 8](2O) <45D 8g $ . <1 D <' & . <1 Z <4 <2Dh<5+ 8e2z <'= 8a $ D <4 <4 < F<6 <-X@ >Q " 7` $ . <1 D <' & . <1 Z <4 <53: <'9 8l <14D 8u <*X@ >Q " 7` : Z <4 <51: 9 8r <24D 9 <OX@ >Q " 7` $ . <2 D <( & . <2 Z <4 <53: <(9 8{ <OX@ >Q " 9b <0 + 9(I) <2D <*+ 9 <3D <-+ 9 < D <*+ 9"$ 3D <,+ 9
< D <*+ 9 $ A <,5D 9
< D <* $ A <, & 2F + 9 < D <*-\ B4 <*4 <* < 3D <*+ 9& < 3D <*+ 9 < 2d <*g O <!3& <*g O A 4$ 9&+ < <! D <- <" D <- $ D </ <* D <5-\ B4
<"4 <*-\ B.4 <*4 <-4 <5 $ 3D <5+ 9$ $ .D <-+ 9 <- D <T <- D <T <2D <-+ 9/ $ A <,5D 9* <# D <- $ A <, & 2F + 9. <$ D <- <$ D <- $ A <, & 3F + 9=-\ B.4 <*4 <-4 <54 <24 <3 <54D 9= <+X@ 97 " 98b + 9;(' FILE DOES NOT EXIST'/)"$ 2D <,+ 9=-\ E6+ 7J-\ ?.4 <*4 <#4 <04
<-4 <24 <3+ < $ 2D </+ 9D-\ ?"4 <5 $ 2D </+ 9H-\ C*4 <T4 <4 < 4 <0-\ E6 <*X@ 9I + < <+X@ 9L " 9Mb + :H('-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.'///) <+X@ :I " :Kb <. </ + ; (' 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 <+ $ . <,6b 0b 7 +;
4 7J4 7R <+X@ ; " ;b + < ('-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'///) + ; + <4 Z <( \ <) <),!p ,!p ,!p ,!p ,!p ,!p + 7J <( <)\ <,/ ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] @@ =B@@ =@@@ =B $ ( D =C@@ =C =@5D <Y-\ E6 $ 2D =A+ <] =>X@ <\ " <]b + <_(' FORMAT'/) $ 3$ =A+ <d =>X@ <b " <db =A =l + <h(' FORMAT: (',A1,'-TYPE ONLY)'/) =?X@ <j " <nB : Z =D =D1: (9 <k + <o(80A1) $ 3D =B+ <~ =:2D =Fg O =:2F =Eg O =;2H =Eg O A A 5$ <y+ =7 : Z =D . =? =; F3: =@9 <z $ D =B $ 3d =@+ = $ $ =@ D =C : Z =D =;2Dh=D+ =3: =C9 = $ D =@+ =7 =< =D2D=D+ = $ D =D =CX@ =
=D. =?(8X@ >Q " = : 2Z =D+ =D3: =C9 =D+ => =C3: =C9 = $ 3d =C+ =+ =7 $ .D =D $ . =D3d =@+ = $ . =@/ =D$$ D =C $ 2d =C+ =' =?X@ =" " <nB : Z =D =D1: (9 =# + = $ 2D =B+ =)-\ E6 =>X@ =* " =+b + =/(' ERROR IN FORMAT, TRY AGAIN.'/) $ D =B+ <U+ =74 Z == \ == =>,!p ,!p , p ,!p ,!p ,!p + <U == ==\ =A/ ,Ap -|p M A S ( ) I F A \ >S @ >T< >[0< 0| + 1\ + =|,>p=mZ p=m+ p @ h> @ p> @(>9@0>C@ x>&@ >&@8>E@(>3@ P>=@ P>>@ h> @>@ >@> @> f >2[ (/< 0"` S<p X< 0 p 3@ >\+ >*| =-< >i Z` =n+ >2! @w+ > < >] p 7 p + > ,> ,> ,> &w p , >,& .< 7@p + > p , >" >] >K.< p ` >^ w,& ,& 5 >
.< p d >^: ." Q ,& p ,& >` 9 >.< 9 >
@@ ,^ ,^ ,^ + > d @ @ & 0b ." ." )B}5@ >,~ m< !< P\ >O< >] p [ p l< 0@X + >%Z p .< / p Q \ >P+ >(@@ >P!< P\ >O7@ >R+ >+ < >S \ >Q@@ >R!< P\ >OX X\ >O >_7@ >QD<7@ >RA< \ >P < >O[`x >T, x ,^x >S+ =n =nQ< \ >O: =n \ >P< >_ p>K| >` < \ >P@@ >Q+ >/@@ >P Q< \ >O< >_ p>K| >`+ >/7 >b >c \ >P @ >BX Q< \ >O >d \ >P+ >/ [`x >T, x + >JZ \ >O@@ >P@@ >P< >] \ >Q+ >/7 >R >QX\ =n@@ >R@@ >Q+ >1 >x ! Z @
& >dU` eB + >Z@ )@ G
" + >W
& >h+ ?q6$ 1 ,> E8. @
p .4 6$ i>I.
.4 >P. >OSEQIN @ >aSEQOUT @ >b@ >B
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + >m ~ + >yZ . \x <x *<x .-> A{ez+ >t!" b + " >v b + Z . h + gg M?Th
& >{ b + >i,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* ? ** ,^ ,~ * x ,> < ? *< ?! p Z@ ?@@ ?@@ ? ?U`|+ ?P w,~ "p h a`~ + ?h ``~ + ?$ ?V!?d ?V/"+ ? P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> E8,> Zp @ ?\` ? < ?, ,^ ,~ SMI 1 ,> E8, ? ?X B?+ ?8_MI 1 ,> E8, ? ?Y B?+ ?8I5R1 ,> E8, ? ?[ B?*\ ?C7Ap X" ?[ B?/& p d"~ l" B?*\ ?C/& p d"~ l" $ B?*\ ?C/& p d"~ l"
B?*\ ?CSp *\ ?C/&Xp B ? @@ ? ?\ B?*\ ?C/& p d"~ l" B?RF ? < ?, + >EV4i91 ,> E8+ ?PS ,i@1 ,> E8+ ?P_ ,i@1 ,> E8+ ?PK>2 1 ,> E8+ ?PK>40 1 ,> E8+ ?P[<I71 ,> E8
& ?] w @ )@ .
" 5B ?R
& ?c,~ ` .
.4 SEQIN ^ ?WSEQOUT ^ ?XRANDOM ^ ?ZSEQINOUT ?
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> E8O@ @!+ ?hgR~@1 ,> E8@@ @!,> ,> @ 6 w+ ?t" @"0B + ?p!"A`X#p 5@ ?m/#p !" X#p + ?t\p + ?ta.9'1 ,> E8,> ,> O@ @!+ ?t,>
6 + _ 4` ?}"` Q@ ,> < @#, ,^ ,> < @&,
,^ *b ?z+ @,> < @', ,^ 7@ @!+ @,> < @*,
,^ + @,> < @,,
,^ Z 5" @,> < @-,
,^ , 7@ @!,
,> < @/, ,^ , ,> < @2, ,^ ,> < @5,
,^ (@qd 1@ ,,
1@ #+ @0@ *+ @,> < @6, ,^ + @,^ ,^ ,^ ,~ (' 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 C6 1 ,> E8, @B,~ [B 1 ,> E8, @B,~ [B 1 ,> E8, @B@ ,~ C6 1 ,> E8, @B` ,~ ,> e|P w+ @D3!p p *| @Da|+ @H p h" ab~ + @D,^ ,~ C6Md 1 ,> E8, @T,~ [&r 1 ,> E8, @T,~ [&r 1 ,> E8, @T@ ,~ C6Md 1 ,> E8, @T` ,~ ,> e|P w+ @W2ap p *| @Va|+ @[ p h" ab~ + @V,^ ,~ Kc3@ p p + @gKc3K , @g
,~ Kc3J , @g ,~ Kc3I , @g ,~ Kc3H4B @}5@ @k5" @}+D >z0
@jU ,~ ,> ,> # $ )D /$ @,> 4d @tX $ (F) + @t5F @t5" @s"` , A
+ @{# ,> < @, AW,^ @ ,> < A , A2,^ 5& @{" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + A
Kc#K , A
@ ,~ Kc#J , A
@ ,~ Kc#I , A
@ ,~ Kc#H4B A/5@ A5" A+D >z0
AU ,~ D A/!$ @ A. B A.5" A#` + A+, A!" B ,~ + A(BdB + A5B A A/,~ +7` A.+ A"`d +D >z0A +D >z0
A U `d @ 6 A.+ A A.`B "` + A/ A0id + A%+D >z0A # A.,> < A1, AW,^ @ ` A. @ ,> < A1, A2,^ + A U", A A.+ A+ A ! ,~ x Kc 1 ,> E8 p 3" AN+ A83b AM+ A:+D >z0
A7U ,~ +D >z0A9 ,~ D AN F AO@@ AO%" j" % AL)/;` : XD AH5f AAaF + AA.& @(|h& f AO AK AL AK AO AJ D AM@ AN AO,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> E8 p 4@ Ag @ AV,> < Ap, AW,^ AV,~ {e^b C2|p 1 ,> E8 p 5` A[4@ Ag+P >z0Ap#p 3@ Aj+ Ai) r. !@ An! n@ An(|h" Ak Ak B Ao Al Al Am Ao An Am,~ +D >z0
Ah An,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x AVATTEMPT TO TAKE LOG OF NEGATIVE ARG C 1 ,> E8#p ,~ S0 1 ,> E8#p +" Az,~ U ,~ !$h X$h @@h *% " B 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 ,> E8Z .@ 6kp 2j8 M+ B# !p Q A` B \$}
4L B/, L 8$ B.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& B < B",
iSN ,> E8@Ap O
, 7 OAp ,~ 4 4 B*4 BV KbN=1 ,> E8O@ BW p 4B B2, Bz4@ B29 B69 B5KbN= 1 ,> E8@@ BW!$Lu ` @Ap `` a` + BTa` + BV D B-A (` B;/" #B B,@@ B- !p X@ B),> < B), B],^ 7@ BV+ BAOAp + BU #p Q"A` $ 1@ + BF0` =d BC! H: @ B+@@ B,a|+ BL[ p d 0@ + BQ[ p d 0@ + BQ+ BO_ w6@ BW_ w#` 1 + BQSp Xp @ B,
B,+ BS@ B*+ BT+ BU
& BW+ BU Ap ,~ ERROR ON OPEN!
H H B[H B\ G.t21 ,> E8@ @Ap ! A`.!p @ BY BZ @ B[@@ B[@@ B\ & " BY< 1D + Bh- Bs=b Bc BY< 0D + BqO " BZ @ B[ BY< - Bs=b Bj7@ B[OAp !p < , B[, B\,~ <& Bl BY1D + Bp Ap + Bl 1D + Bp1$ + Bm1d + Bx0$ 0d -+ Bm $ D B[+ Bs" C, C#0@ + C p 4B CL ad+ C`b+ C $ 0d "+ C&$ $& (&}Z .G C.& $ .$ 7F + C ,~ A$ &$ (D G$1$ ((D (D
` 5@ C .2b M+ C L.& 7D !$Lu+ C2" C+ C
& C < C,
.p M}ILLEGAL DEVICE NUMBER!
" C", C# ' Q&A` C"@ 1x ,~ 18 0.8 X =` C ,~ . H a|+ C&0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> E8, Dq+ CF@ , D, Dm+ CFZ" 6Ep " B` " b CO $ 7cp $ 1B $ d CO, CH, D:+ CG6cp 0b " b CP$ C| ({." XB` &$ @6@ .$ .$
a|+ C?[p d p0B + CC+ CA_w#` 1" + CC6cp 0d $QD` , D+ , Dx ,~
& CP+ CE
& CS+ CE@b -p . Q,A`
CU 4P CN1P + CV/0 P =n CK,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
CU+ CKYC G aS a3 S; YC&<G<aS<a3&<E$;w |xC\ PCW B` 1T !"L b @ XB` O@ Cw E Cw@ , Dx
+ E!, 2, Db@ !.~ , Dx` + E
"" 1T "" QB Cu, Dx" $ S X& f + Dp2FPCZ+ D f + 1$ 9 D+ Dp 8 C\@` C\ E
*( Cu E
n @ `N + E 6`
E1T E B` " B` \"
b @ B` \" b !" Z (Brb E b
B Cx b
+" `B` !" 2 b `b `b + D5!" 2 b !` 2B` + D5!$ 2 d !$Lu+ D8 E b @ E, E d !$Lu B Cv D Cw,~ @@ Cz E*( D B Cz D C{ BX B` DX Z Cx(D} d ` D Cz DX " 2D` b Ed " b E, Dx@ Cy+ E D BX @@ D E b $+ DJ!" DX"X *"X !"`
+ D\!, 2, DbB , Dx" X
C{ C{, Dx + D\ JX , Dx + Dp
& E " b Ea` + D[+ DDa` + D[, Dx Cy+ + D[ x H Dk h &( 2
PCW E!. Cx &. .0 P `bp + Dfd
@ Cv, Dx+ Dk`L+ Dd Cv+ Dp ( !*Lu@
, Dx
,~ : x ,~ " B E O@ CxO@ Cyg " ?$ E + E d 5D Dt E (D DCx+ Dp,> e` p+ D|7 Cy+ Dl! Cy+ D~7 Cx+ Dl! Cx: +@ > ,^ + Dp
& E!,~ "
& E#,~ "
& E),~ , E
& E1
& , E b ( E1+ E
& E5,~ @ ;` Cw+ D + E ;HC] 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( E
X HX a` ,~ !" GB` + D[ @D6$ C{
% 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 ,> E8,
,~ E8Y\ E:Q< X\ E:* +