Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/cross/cross.exe
There are 10 other files named cross.exe in the archive. Click here to see a list.
?p00@0
?hX/??x " 
 
<++Q2	`D~0FV
0/?P[2
(@-(20X,'PDP-10 VERSION OF NUCROS')(40I2)(1H1)(' ENTER IDENTIFICATION'/)(1X,16A5)(' ENTER PROBLEM CONTROL PARAMETERS'/)(10I)(' ILLEGAL NUMBER OF VARIABLES SPECIFIED.'/)(' ILLEGAL NUMBER OF TABLES SPECIFIED'/)(16A5)(' FORMAT OF DATA'/(' ',16A5))(//' ENTER MAXIMUM VALUES'/)(I4,9I2)(/20H TOTAL CASES USED = I4)(1H0)(11H MAX.VALUE ,40I3)(//11H VARIABLE  ,40I3)(//' ENTER TABLE CONTROL PARAMETERS'/)(30I2)(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)(' ')(' ENTER TWO RECODING LINES'/)(' ENTER GROUP BOUNDARIES'/)(16I)(' ENTER CATEGORIZATION'/)(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)(' ENTER VARIABLE NAMES'/)(8H1VAR.NO.//)(12A5)(I5,2X,12A5)(/' ENTER DATA (AT MOST 10 PER LINE)'/)(/' YOUR DATA IS BEING READ. PLEASE WAIT.'/)(/' ENTER DATA'/)(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)(10X,11H TABLE NO. I3,5X,13HVARIABLE NO. I2,3X,9HVRS.  NO.,I2//13X,13HTABLE SIZE  =I3,5H BY  I3)(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)(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)(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)(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)(/17X,3HTOT,3X,21I5)(9X,I3,I8,3X,21I5)(/9X5HTOTAL,I6,3X,21I5)(/1H+,6X,12HCHI SQUARE =,F8.3,3X,4HC = ,F5.3)(4X,'2X2 CORRECTED CHI-SQUARE = ',F8.3)(//7X,40HPERCENTS BY COLUMN FROM THE ABOVE MATRIX//)(17X,3HTOT,8X,20I5)(9X,I3,I8,9X,2P20F5.1)(/9X,5HTOTAL,I6,8X,20I5)(//7X,38HPERCENTS BY ROW FROM THE ABOVE MATRIX //)TTY   } p`+ -<AOd-8"$ D,H $ D(
:-9; *G+/Q, <5:, /<_D*FZD-9 -9 <5=,
:-9; *F+/W, <5>,, <5A, <5D,
 (0$0d+/b (
0$0d$+/g+/k <5I,,"(30D+/Z <5,F1+/Z <5L,,"(30D+/Z <5,F1+/Z@d*52$-93$(
+/n+/o & F*5 (3F/;+/v <5O, /=_D*FZD-9 -9 <5R,
:-9; *F+/s, */0d $ D( <5T, <5W,
 <5X,, <5[,"( $ F*; D*3 *3 <5^,
:*3; *;+/, <5`,"( $ F*: D*3 <5c,
:*3; *:+0, <5d,"( $ F*9 D*3 *3 <5g,
:*3; *9+0, <5i,, /? <5l,"(
 & H*5 F( ((.& <5o,
:(; *5+0,*d0"(
 $ F-6 D( & F(^ /> ((.&7`)+0  (ZD(^*d0:(; -6+0 <5p,, $3$(
+0' <5s,,+0( <5v,, (
0d $ D,L",L $ F-5 D-7 D( (^ F*. <5y, <5|,
"*. $ H-4 D-9 ((.-9 <5~,
:-9; -4+02,"*. $ ((.  ) H*3 
 ( J*/.$8&07 <5,"*. $ F,K D-9 -9 <6,
:-9; ,K+0?, $.-7 D(2d(
+0Z (^ F*. <6, <6,
"*. $ H,I D-9 ((.-9 <6,
:-9; ,I+0J,"*. $ ((.  ) H*3 
 ( J*/.$8&0O <6
,"*. $ FU D-9 -9 <6
:-9; U+0W,:-7; -5+0,7`*6+1 <6,, <6,"( $ F-N D*3 *3 <6,
:*3; -N+0a, <6,"( $ F-N D*3 *3 <6,
:*3; -N+0h,"( $ F-E D*3 (3 F(1f+0| <6,, <6, <6 ,
 (1D+0v /<ZD-E*d0u+0z <6#,, <6&, <6),
 <6+, <6-,
:*3; -E+0m <61,, <64,"( $ (3 H(4h1 (3((+1 <67, <6:,
+1 <6<, <6>,
 (2H(+1
 <6B, <6E,
 
(3(0*+1 <6I, <6L,
0J+1 <6P, <6S,
.$8&1 <6X,7`U+1, <6Z,,"( $ <6], /=_H->ZH*3 ($*3. <6`,
:*3; ->+1,.$8&1 <6b,,"( $ <6e, <6h,
 /=_H(ZH*3 ($*3. <6i,
:*3;(+1&,.$8&1# *60dd+$d D(O".D*65$ D-M,(, $
 D* $ D,K"(O $ <6t,"
( ( J( H*3 (d$*3. <6w,
:*3; (+1>,.$8&1;7`*6+1w"( $ F( D*3 (3 F(4f1u6b(0b+1N+1J41N41T41[41a41a41a41a41a"(O $ *3$(d. 
*3 
('v.L q.$8&1O+1u"(O $ *3$(d. 
*3 
 q/
('v1, , L q.$8&1U+1u"(O $ *3$(d. 
*3 
 q&
('v L q.$8&1\+1u <6x, <6z,
"(O $ F* D-9 /<ZD( ( (d$*3.-9  q3h(+1m*d1e $d$*3.-9 &
 Fq+1p $d$*3.-9 ( -E Fq:-9; *+1e (0D1d+1u"$.D(+1H:*3; (+1G <6~,"(
 $ F* D-C (^ F*.( ) F*2 -C( ) D(] (.( H( (.( H(@j-> J-3 
*5(
.(. H-7 (.($( H(6b*.0b+2
+2424242
 -C( ) D-D ( F-3 -C( ) D( ( F-> &.F-7"&/-> $ F) D*."&/-3 $ F(^ D(P $3$-M+2 "( $ F(\ D-9"( $ (2$.-9@j'}.$8&2:-9; (\+2+28 $
3$*+2- <7,"( $ F(P D-9"( $ F*9 D*3 $2$*3.-9 <7,
:*3; *9+2&:-9; (P+2$,+28 <7,"( $ F*8 D-9"( $ F*7 D*3 $2$*3.-9 <7,
:*3; *7+22:-9; *8+20,"(O $"(.*.4(2A4H2> (d$-D.  q2H(P+2K (d$(.  q2H*.+2K (d$*2.  q.( H-6 *d$
(].
 
(q.* J*G0(1*+2K3h(2j(+2K$(2.*G:
'}.$8&297`*6+2f $
3$*+2Z <7,"( $ F*4 D-9"( $ F*3 D*3 $2$*3.-9 <7
,
:*3; *3+2T:-9; *4+2R,+5 <7,"( $ F*2 D-9"( $ F*/ D*3 $2$*3.-9 <7
:*3; */+2_:-9; *2+2],+5 -7.d,K ((",K.&3&+2l <7,,+2o <7,,"$.-7 D,K6b*.0b+2s+2p42s42s43437`U+3 <7, <7,
 /=_D-2ZD*3 $$*3.*2 <7,
:*3; -2+2w <7,
 /=_D,JZD*3 $$*3.(] <7,
:*3; ,J+2~ <7,
+3? <7 , <7#,
+3?7`U+3 <7', <7*,
 /=_D,IZD*3 $$*3.*2 <7,,
:*3; ,I+3
 <7-,
 /=_D,GZD*3 $$*3.(] <7/,
:*3; ,G+3 <70,
 /=_D,EZD*3 $$*3.( <72,
:*3; ,E+3 <73,
+3? <76, <79,
+3?7`U+3= <7=, <7@,
 /=_D,:ZD*3 $$*3.*2 <7B,
:*3; ,:+3$ <7D,
 /=_D*IZD*3 $$*3.(] <7E,
:*3; *I+3* <7G,
 /=_D*HZD*3 $$*3.( <7H,
:*3; *H+31 <7J,
 /=_D-BZD*3 $$*3.-D <7K,
:*3; -B+37 <7M,
+3? <7P, <7S,
"$.( D(
 <7X,"(
/& $ F-A D-2 <7[,
:-2; -A+3D, <7],,@d(]"( $@h(P.$8&3J"( $ F-= D-9/$ D*- -9@f,~"( $ -9 *2$
.
-9 
/}.J ,~ (2$.-9 '}.H(P.$8&3P <7`, -9 <7c,
"( $ F-; D*3 $2$*3.-9 <7e,
:*3; -;+3[, -9 ,~.D(]:-9; -=+3M <7f, <7i,
"( $ F-: D*3 *3 <7k,
:*3; -:+3g,"-9/*/2$(
+5"( $ F-: D-9f,~ F,L"( $ (2$.-9j'} J'}.$8&3p:-9; -:+3n"( $h(P H*;.$8&3vd(] D'v"-92$(
+4-6`-9+3~ <7l,,+4,@d(6F(]+4 D( D(\+4"( $ F,J D-9"( $ -9 
*;
 ,L
'v J*: (2$.-9"
*:
'}
 L(25J4
!( H*:@h(2 (2*:H(.$8&4:-9; ,J+4 'v( ( D/9 <5,B @(\ <7o, <7r,
 $2D(+4) $2D(+4) 0 D*: c F(2 1 H-< 
c J*8*8(2 *:-<*8"(2-< *:*8#"
'vJ


'v
 J,F <7t, <7w,
6`(
+4, <7y,,+4- <5,9$7`*/+5 (.d,K0d+42 <7|,,+4? <7,, <8,, <8,"&/(
 $ F,F D-2 <8,
:-2; ,F+49, <8	,, $.( D,K"( $ F,E D-9/$ D*-"( $6H*;+4E@h,:+4H (2$.-9 '}*; H,:.$8&4C <8
, -9 <8,
"( $ F*H D*3 *3 <8,
:*3; *H+4M,:-9; ,E+4A <8, <8,
"( $ F-D D*3 *3 <8,
:*3; -D+4V, (.d,K0d+4^ <8,,+4j <8,, <8,, <8","&/(
 $ F-B D-2 <8%,
:-2; -B+4d, <8&,, $.( D,K"( $ F-@ D-9/$ D*-"( $ -96H ,L+4q@h,:+4t -9 *2$
.
-9 
/}
 ,L J,:.$8&4n <8), -9 <8,,
"( $ F-= D*3 *3 <8.,
:*3; -=+4z,:-9; -@+4l <80, <83,
"( $ F-; D*3 *3 <84,
:*3; -;+5,:(P; (^+2:*.; )+2:-C; *+1y7`*6+/H *60dd $d D(O".D*6:-M $
3$*+5 $ D*+5 $
 D* <86, <88,+1: <5,
`0(((
p/9/>P-8,H*-8/;/:P((3X-8-O`
`
`X-8-TX,H-e((GX*-W((GX-8-XX,H-\$*6$($(
$U$*6$-9$*/$(
X-8-\X-8-aX*-f(*X*-m$*6X-8-iX,H-y$(X*-s$*3X*-p$(X-8-uX,H-y$)X*-|X*.
X*.X*-z$($)X*.$*/X*.	$($)X*.$*/X-8.
@(@-EX*.`
X*.!$$($'vh
@(@-EX*.$$$(@(X*.'$$($'v@(X*.)$$(@(@-E`
X-8.-X,H.2( *5X*.0X*.3$( *5X-8.8X-8.4X-8.=X(
@(@-E`
h
$}h$}h$}h
$}X*-pX*-SX*.?
$-C$*2$(]$($(X*.V$-C$*2(*5$(](*5$((*5$($($*.X*.f$-C$*2$(]$($($($*.X*.t$-C$*2(*5$(](*5$((*5$-D(*5$($($*.$(PX*/$-C$*2$(]$($-D$($($*.$(PX*/$-2X*.
X*/$*-$,~$}X*/$(]$(PX*.
X*/((((\X*/$(,FX*.
X*/(X*-SX*/(X*/-$-2X*.
X*//$*-$,~(,:X*/2$(]$(PX*/4X*-SX*/4X*/-$-2X*.
X*//$*-$,~(,:X*/2$(]$(P`
`(1H+,41X,8HTAU-B = ,F6.3,3X,8HGAMMA = ,F6.3,3X,6HDXY = ,F6.3,3X,6HDYX = ,F6.3)(1H+,41X,8HTAU-C = ,F6.3,3X,8HGAMMA = ,F6.3,3X,6HDXY = ,F6.3,3X,6HDYX = ,F6.3) G>,m \9" !p @8F p @8F p B8< $ D8?@d8D"8F $ F8H D9"8< $ (2$.9.8F 'MH8D.$8&9,:9; 8H+9+@d8@"$.8F D9"&.8< F8E"9 $ F8G D9"8E $ F8E D8B &.9 F8V.$ D8?"&/8F.8V 8V F8D D8>"&/8<.8? 8? (2$.8>.8F *2$
8B.
9.
8F 
/M
'MJ8@.$8&9A:8>; 8D+9?:8B; 8E+99:9; 8G+97@d8="9 $ F8C D9 &/8< $ F8B D8B &.9 F8T/$ D8?"&/8F.8T 8T F8Y D8>"8? $ (2$.8>.8F *2$
8B.
9.
8F 
/M
'MJ8=.$8&9W:8>; 8Y+9V:8B; 8B+9Q:9; 8C+9N 8@8= D8@ 8@8= 8@8= D8="8F $ F8X D9@f8Z"8< $ 9 *2$
.
9.
8F 
/MJ 8Z.$8&9j:9; 8X+9i"8< $ F8W D8B@f8H"8F $ 8B *2$
8B.
.
8F 
/MJ8H.$8&9t:8B;8W+9r@d9"8F8$6H8Z:9.$8&9{@d8A"8<8$6H8H:8A.$8&9 92D8A+: $ D8Z+: $ D8Z@d8>"8< $ 8HH8>.$8&: 8D8>D D8>@d9"8F $ 8ZH9.$8&:
8Z*} 8ZHH8<.$8&:@d8U"8< $ 
8H*}8HHH8U.$8&:!$}8D8DD8< D9" <:=,B @9!$}8D8DD8U D9" <:<,B @8X 98X 8@ D9
+:: 92d8A+:2d9 D8G+:3d8A D8G!$}8G 8DF8G 8@ D8S <:E, <:H,
9",~p9"9#p9"9#X8?9(9]    [    (' INPUT? (TYPE HELP IF NEEDED)--',$)(' OUTPUT? (TYPE HELP IF NEEDED)--',$)(50A1)(2O)(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.AAAH    N    OUTPTTTY  F    I    L    /    A    DTA9 .DAT [    :    XCDR  `M    P         LPT  DSK  S< \=9 p @:X p @:U p @:z p @:L p @:T p @:S6D:T+=T <?1,, $2D:T+=W <?4,, <?7, <?:,
 :\2F=A+=c :\2F=B+=c :]2F=@+=c :]2F=B+=c :^2F=:+=c :^2F=?+=c :_3F=H+? :\2F=:+=n :\2F=C+=n :]2F=G+=n :]2F=>+=n :^2F=H+=n :^2F=H+=n :_3F=H+?
4:\2F=?+=| :\2F=>+=| :]2F=B+=|+:]2F=H+=|@:^2F=H+=| :^2F=H+=| :u2F=H+=|.:T6b0b+=|+=z4?+>% :[2F=<+>
 & F:y :[3F=E+> :[3F=E+> :[3F=C+>$+> $.:M D:T"&.:M $ :Y H:[/$8&> =G :M.& =H H:[*d> $.D:M+> $.:M D:{"&.:M $ :W H:[/$8&>"& :M =H H:[.$8&>  $.D:M+> :M D:L+>7D:{+>1 <?<,.$ D:z":{/&.:z :z F:X D:{ :{ <?@,
::{; :X+>+, <?A,	 <?E,
6D:y+>; $.:T D:y":y.:T :y D:{ :{ :[2D=H+>9>:{8&>5 $ D:{ :{ =< F:\ <?G, $.:T D:w"&/:T.:w :w F:V D:{ :{ <?J,
::{; :V+>@,7D:T+>K <?L, =F_D:VZD:{ :{ <?O,
::{; :V+>G,7D:L+>V <?Q,.$ D:v":L/&.:v :v F:v D:{ :{ <?T,
::{; :v+>Q, <?V,	 <?Y,
 =H2D:U+>c3D:K+>Z == F:U+>c":S1D+>] =A D:U+>c $A:T5D>` =F D:U $A:T0D+>c =I D:U <?,,CD :U3D==+>t3D=I+>i3d=D3$=:+?+>t+? => D:K =? D:K $ D:S :X D:u <?*,CD <?(,C` :Y1D+>r $.D:K+>n :K D:x :K D:x :K2D=H+>| $A:T5D>x =; D:K $A:T0D+>{ =@ D:K =D D:K $A:T1D+? <?%,C`7D:Y+? <?[,,":S0D+? <?,F1+=Q <?",A_+? :S0D+? <?!,AR :S0D+? <?,D[ <?,F1 <?^,+? <?`,, <?c, <?f,
 <?,AR $.:T6b0b+?+?4=Q4=T <?h,,+? =9 :X Ap :U Ap :z Ap,~x:z`:x===<:Wx:uP:X=;:U:K:M:uX:X:K:Y:M:uh:X:K:Yp=I:Xp:U:X`:x===<:Wx:XX:z:|X:z;X:L??;@:\P;:N$:[P;:N$:M$:uP;:K$:[P;:U$:[P;:N$:[P;:N$:WX:z;`:XX:z;zX:z<=$:w$:[X:z<?zI    F    A    (' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FORMAT, TRY AGAIN.'/)S    (    A    )    {M         O$ky \@( p @@ p @?k !p @@ p @@ p @?l p @?l@d?m@d@ D@ &( F@ D@2D?l+@9 <A,F1 ?l0D+@< <A,,0d+@? <A, <A,
 <A	, @+_D?rZD@ @ <A
,
:@; ?r+@A, @1D+@P ?r2D@)+@K ?s2D@*+@K ?s3D@,+@~"?l $ .@ 
@,J'.$8&@L?$@D@@?l0$+@S(.?l D@"@ $ D@ @ ?r2D@,+@Y:@8&@T $ D@+@~ @ ?r2D@*+@W $ D?m ?m.@ <A
:@; ?p+@`,"@ $ ?r3H@*:@ ?r2H@++@h"(.H@.$8&@d $2d@+@~ &.F?m.?m3f?l+@p.?l/?m (. F@ @1$+@x <A, @+_D?oZD@ @ <A,
:@; ?o+@t,+@\ ?m0D+@{ <A,F1 <A,, $ D?m+@4 @( @ Ap,~X@@X@@$?mX?k@#$?rP@@$$?rX?k@#$?rX@@%	`Z(X^. >[.~(3~+A	~+A)Z. \x <x*<x .->C,ez+A%!"	b+  "A&	b+Z. h+ggM?Th
&A+	b+A,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*AO**,^,~*x,> <AO*<AQ  pZ@AE@@AE@@AF B`|+A9Pw,~ "p h a`~+A>h  ``~+A?$B!A@dB/"+A9P,~@@@ @@0@x@@@`edX91,>F3,>Zp @AE\`AD <AE,,^,~SMI 1,>F3,A2 B BAE+Ai_MI 1,>F3,A2 B
 BAE+AiI5R1,>F3,A2 B BAE*\As7ApX"B
 BAE/& pd"~l" BAE*\As/& pd"~l"$ BAE*\As/& pd"~l"
BBAE*\AsSp*\As/&XpBBAN@@AN<B,+A0EV4i91,>F3+BS,i@1,>F3+B,i@1,>F3+BK>21,>F3+BK>401,>F3+B[<I71,>F3
&B @)@. 
"5BB
&B,~`.
.4SEQIN^BSEQOUT^B	RANDOM^B
SEQINOUTAN
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
Kc3@ p p+BKc3K  ,B 
,~Kc3J  ,B ,~Kc3I  ,B ,~Kc3H4BB55@B#5"B5+DA+0
B"U ,~,>,># $)D/$@,>4dB,X $(F) + B,5FB,5"B+"` ,BD+B3#  ,> <B7,C,^@,> <B8,Bj,^5&B3",^,^,^,~! ,~xxKc#@ p p+BDKc#K  ,BD @,~Kc#J  ,BD @,~Kc#I  ,BD @,~Kc#H4BBg5@BG5"BQ+DA+0
BFU ,~ DBg!$ @Bf BBf5"BN#`+ Bc,BN!"B,~+ BR(BdB+ BR5BBM  Bg,~ +7`Bf+BZ`d +DA+0BV+DA+0
BVU `d @6 Bf+BQ Bf`B"`+BQ/Bhid +B]+DA+0BV#Bf,> <Bi,C,^ @`Bf@,> <Bi,Bj,^+BWU",BNBf+ BR+BK! ,~xKc1,>F3 p3"C+Bp3bC+Br+DA+0
BoU ,~+DA+0Bq  ,~ DC FC@@C%"j"%C)/;`:XDC5fByaF+By.&@(|h&fC CC C CCDC@ C C,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>F3 p4@C @C,> <C(,C,^C,~{e^bC2|p1,>F3 p5`C4@C+PA+0C(#p3@C"+C!)r. !@C&! n@C&(|h"C# C# BC' C$C$C%C'C&C%,~+DA+0
C  C&,~  ,~ 0_i/X3 6P'M 5( bB W
R `@xCATTEMPT TO TAKE LOG OF NEGATIVE ARG!$hX$h@@h*% "C4 BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>F3Z.@6kp2j8M+CT !pQ A` CM\$}
4LCL/,L8$CI.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&CN <CT,
iSN,>F3@ApO
,7 OAp,~44C\4DKbN=1,>F3O@D p4BCd,D+4@Cd9Ch9CfKbN=1,>F3@@D!$Lu 	`@Ap``a`+Da`+D DC^A (`Cl/"#BC^@@C_ !pX@CZ,> <CZ,D,^7@D+CsOAp+D #pQ"A` $1@+Cx0`=dCt! H: @C\@@C]a|+C~[pd0@ +D[pd0@ +D+D_w6@D_w#`1 +DSpXp @C]
C^+D@C\+D+D
&D	+D   Ap ,~ ERROR ON OPEN!
HHDG.t21,>F3@@Ap! A`.!p @D D @D
@@D "D<1D+D-D%=bDD<0D+D"O " D
 @D
D<-D%=bD7@D!   Ap+D1D+D!1$+D1d+D*0$ 0d-+D $DD
+D%"DG,DT0@+DC p4BDFLad+DB`b+DC $0d"+DF&$$&(&}Z.GDH.&$.$ 7F+D9  ,~ A$&$(DG$1$((D(D
 	`5@DE .2bM+DA L.&7D!$Lu+DD2"DH+D> &p,DL 	`,~
&DI <DL,
.p M}ILLEGAL DEVICE NUMBER!
"DS,DT 'Q&A` DT@1x,~180.8X=`DO,~.H  a|+DX0"0b/ ,~0B1B,~0B/ ,~aJMm1,>F3 D~,EG@,F+DvZ"6Ap." B` " B` $7cp $1B $dD,Dx 6`
,Ea+Dw6cp0b "bD$E* ({."XB`&$@.$
a|+Dp[pdp0B +Dt+Dr_w#`1"+Dt6cp 0d $QD`,E3+ ,~
&E,~
&E,~@b -p\.{Q,A` 
E4PD~1P+E/0P8.Dz,~``
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH\.~ 
E+DzYC GaSa3 S;YC&<G<aS<a3&<E$;w|xE
 PE B`1T!"L	b@XB` F E&@
+F!,2,F@!.~`+F""1T""QBE% 	f+ 1$9EA:x,~ 8E
@`E
 F*( B` " B`\"
	b@ B`\"	b!"Z(BrbF	b
 BE'	b
+"`B`!"2	b`b`b+E]!"2	b!`2B`+E]!$2	d!$Lu+E`+F	b5FF	d!$Lu BE& DE&,~@@E( F*(E. BE( BX B` DE) DX $	d ` DE( DX "2D`bFd  "bF@E'+F E. BX@@E/ F 	b$+Ep!"E0X"X*"X!"`
+F!,2,F@ X
E) E) +F JX +EF
&F" "bF5 F+Ek5 F E'+ +F	h	&(2 
PE F(.E' &..0P`bp+Fd
@ E&+Ax`L+F	 E&+EF (!*Lu@

,~+EF "0T,~ "
&F),~@Q@E
P$` hUE(
XHXa`,~!"GB`+F@E/6$E).E}.E.F
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
KbN@1,>F3,
,~F3Y\F5Q<X\F5*+6F66`F6
GJF3GK/K`F3}KF1)?K`F01B:E*113E+10.E*1E)1TE(1BE,1	E-1gE(1
=E.1`YE-1[E)1Z3E+1Q|E.1FBE'1@E,(UwSE3
r9WF1SSEG
e'*+Ea&+Z} E
hfD[
hf`D[TrwV`DT
:3VDL:3V`DL1IYvD+1IYv`D+
JI3DJI3`D!hC`	W3Ce	W3PCZ
_9CD_9`CC^^xjC,)9{`C,KC
fCKPC~ZBj~Z`Bj.GB;.FB>.EBA.DBD.VBD	WGB9~IB8."gB."fB."eB."dB	WG"B~J B
(Az
8@#xBlJAXe,(AxDfA~DaA|
_
GA_
8v:Av)4~PA0(JD/
X));b
X)&S
W`+R~w$nX)&4R
+"xJ+"xdJM
(j=R:CA]R&.fG
EC4L{
j_d+oj_d+do
(Q"wX(Q"wdX^},G.^},Gd.9Kp9Kdp).+-!k--!kD
16/e16/Td)
u(Pxd
o<SNf:N<M.?
pX>,

re|Ca
rek
j+~A
j[VF
y+Nf9Ly%.`
_y2 
A'~v_|'p_<G?R|KW^+~uWD[V1uVQ-(+d)		WKM
}
92&
xrRi
d	+q
alm~
ldNf9Jl^.@
K&6
K.8
K"7
K8
Ym~~)	{TAwB/}F
/|N	@\:_<F

zRu6
(J"A+
&*
 R	WJ
>
_Bb
_2v	
K^
2b
2(bI|pA
@Y@W@IA@h@L@U@\@S
a@x'@T
u@%;@Tw@`A@d3@f@h3@kG@p[Ao@t@tA+@{3@C?AG@a[@voA@~@4+@9?@<SA
_@?
sA	qG@l@	@&G@@%i@%u[@o0K@(%j7?n/?m%[4?m
Zo?l
?lzM?k(T$@-(T$v@@-&W>G
a;
	u>'=k'?Q;=i+>Pc>`3=u,w>c=t-?,bA?> b}?o=z23>x=>$?02G>{Q>V>2[?%+?-2o?[3>-zA>Ezu>r?>
3?{	?
G>BzU>KS>3?"[>I!>Zzi>t?>3+?o>RS>3??!!>&{>i?g> 3S?5>1{%>n?{?<8??I>;+=Q >+8S?^]>5?=T #>+8g?`q>9S?1 7?@8{?c
_=W K?A9?f
s?4 ?E9#?	qG:|&>:{	:{w04:z0?:zy:yw05:yg:xw05:w9:wPH:vw06:v
F|:u:\
Ix3:K9:[P4:[P5:ZP5:Z:YP6:Y%g|:XP6:XR!b
:WP7:WP7:V0K=9P8:Vy:Uqp::Ugd:T&.\:Tzv:Sg?:S:N
:M
F~:MzM:L{/:L{h3:K=Kj0=Jh049"
a9A9:'9i
u9W9%:;9j99:9{9|39&E::&Y:9g?:BG::S:Ezi:/[9(?:Ho9+{:-9+{%9{9,{99+97?97S99
_99
s9>	qG9K9P]9P]9y9P^9PJ8WPJ8WHg8GP58G8F8F!8EP68E:8DP68DP78CP78C0K9"P88B
8B\y8A8A8?78>
8>
Fa18=8<8<]`9$(R/?h04/9-%-m3k1eo2f33$oG3n#8A0 U-\-M.$
}1EU2;32o	iu4
4)/-%s5095dc6-p-a.!1y+7 o3*ts7l4d }-XU.
q0Z
%1wE5U2o)3	nu4.&55>06SO6ZtS1y?7!3*u4s4d-Wi2/5l
a18}.092!2X]=3p
a-e&U0%!u1#M2-'2V]Q3p!3=93?	om4\'/W?W09%3J	p4^+5=?k5o
!E1w3,;5Dz?0+6&o1&zs2$7'#7M{'58.'1.~pA1s3>a3S,w5Iz{5v?0u'+6k{/2&s7#'7X{c8'5	ue.p$U1"i1\3&-/Z{0,S6#'?16{C77''s3C{w8;5bA/H	uy.0]p$i1"}1U33-
-5L{#0,g6&'S6n{W77*,Z3D|48O84	v8{k2//3
,s7[|49c86	v!.	6+,S6q{20C3
-7]|38w88	v50R6-,g1;|21W7,-3J8	PA-S	{!.a-fDO-.=e1[+4:2o/rs071-#1>'293-W3P[4C3/R
!0zA3`?4O3/s5s67-76w;2H7/-k7`o8
G/XX35R0>6:-K1FO2J70-7c8[/t
I0 '1H!1i?4e3+5T/0?s6<-_1Gc7'3.3[4Mo0{11351pS4{3?5WC66>-s1Jw2Q;3n?3[+4M0	hA0|{E18g53S5XW61
21O2RO72nS7e?80/6B2s1U2Sc73ng7fS8{m/b+0
a0:I1u{9/5'8S/~0IC6E31\32Tw76n{7i?8|/g?04	h}0o]2
79o3fS4V|/kS0@q2
Vu2l	i3lL!4{a/( 75#8{5^6k13/6z377=o#3gg4V-\
_0L2>2I/	i%3vL54{u// K5 95`0O6I3C1dG2]37@o77k{8-a
s0X
A1,2 _59#0'6
6L3W1e[2]3#oK3n8	qG-OP]-NP]-NW/;M-M-AVi-@P-@QA-?Vj-?P`->-@->QB-=Vj-=QB-<-<Vk-;QC-;QC-:QD-:	-9/D-90?-8&G-8-7,-9-7PH-69-6PI-5PI-5PJ-4VT-4PJ-3-@-3Q,-2-2VU-1C,8C,L+Kl?,LPK,K+vG,KQ-,JVU,JPK,IQ-,IVV,HzG,HPL,GQ.,GQ],FVV,F="0Q.,EVW,E	3O,:Q/,:VW,9<W*IQ/*IVX*HQ0*H9*GP4*GP5*FP5*FTg*;P6*;*:P6*:Q*9P7*9Q*8*8P7*7Q*70*6mP?*6+P*5P8*5Q*4Q*4
*3Q*3*2Q*2F^M9*00S*/Q*/:*.R\-!*.&H*-g[*&/*Q*&.t*Q*Q*/JG)Q)o
(^Q(^uMd(](]Q(\f.(\Q([/Dg(QQ(P:(PQ8;M(OTN(G)|G(3g?(3(2M(/LA(-@
(Pq(Pr(*8n(
(Pr((Ps(Ps(Pt(zM(
0-+(
z(-@(.0(
TS'v"Md'v#Vi%jUP\U(R(p/?\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0
0/?+
(@@-GJ~<`++7+J+
y+@+++++c+e+~+|+G++	|++M+`+\+H+V+h+
u"h[ZB(3b+	b+ h Bh+ h Bh+ h Bh, "h[ .$XD(/$SDZBh X>h,Q>`	b	 Bh
 " Bh# 
!	b@ Bhab+@70xO@h
,h
  ,dX8Q8y! M @`! `X ` @` 
" P` 

"!"RB`,,N \h
S<h*<+p,>Z.,^hha\x.<h Xh 8h*8h,^,^h
,+ !<hXh
!:h*:-|p,>,>,>  ,d,> <!"} Bw NpZh4B<Q"p Bp[h4B>Q"p Bp 
$avX"
$ Bp 
&avX"
'h6ivX"
(`vX"
) Bp,K "h0ipb
*,^,^,^,^+
_B-c@,,-4(+L,A  ,d 6ZNX-4Q+F70@(BQBX,Z 8X,U,~ 6`l6,g+Q7B`Z`,] L`5PX+F70
<7 N`ap+F70
<72
*SLarl8!"AGf`r`p`b+F70<7ar+d"
*1B+F70<7aP+k!$xX$h*Dk6B2N+f,>,I,^[`(B}bh),~ `	n@`nl8`nl0 "8A"1Bl0 P`-4O+F70<7`p +
+@`pX"``pQ"` B`P`l"PX"`+@+F70
<7ap+,@ap +7B`	+eb,
@@`	F"B`	ar+-4G+`rar+
*1B+ar+F7047-4H+F70<7ax+0471J+2 (`	h +@70x 
``LanX
alP
 L`,<X$XDgQ"`p B``p B`ap(+"l8@P* BXB`ap +"Q"A`." B`@@` Xh,~h2hr+/ `&(@   X@`P`7@4J+l x+@R`l"\+@+ l z+@Z`,+l8d8d2!"FB`+1581ax,F`p`l8[`(B}bh)."hl8 Xap7B`,~@@`+
R`l"r+@Zg4B;R`g,
:x,~,>[,>S,7Zx,dX,,><nDZ,d L/"XB7X,=n@,^ L,^,^,~ 
,+J7
- 
-R``
! pA@`R`G`p ."+@7`
+P`B+F70<7+P*
*[,zA( &(F cF`+P &BF`&
.(F`pG(GH`1*l80J1Je8l8+P@4<\"
.""Q<*\f-4i*
/0
/.
01P4LcaLx.,h 00n1J,<,Dk*|]ex+f+il6,Kav,~7 h
+@70p h+e@5Dn,	4Bn 0dD 0+{dd+udd,~dD@ 0dD 05Pz@b@pl6+F70<`v,~,eD +r 
0-4U+s 0 1P+s.
0,<l6@,Dkd6@+j BX,~QBX,~."XBX,~2BX
l6  BX
!"H:dd,	`v+ad+XX
2BX
l6 PBX
,~dv@+@bl6+F70<*,o*,~l6 av1J+7N+`n+QX0:6D0 $9
ed+5dS,
d@ad5dX7BX	Q"ad5dab,
 NX	,~  ,>`b,d,^ZBX	 N .Q.|+Q,
7 4D,>$
1b
12Bl6 ,^d,~."?(B|2BX
l6"BX,~2BX
l6  BX
,~  ,>7BX,d,^ZBX .Q.{+Q BX,~ZLX,~ZLX,~,~ 
1-4U+sh
2,~ 
2-4U+sh
3,~ 
3-4U+sh
4,~!&@BFX[`1By,~0B]R+sGFX,~@!&0BFX3B
4l 3B
5l  3B
5l 04@sG@X,~4LJ *@l6+jl8,~ax +Odv+N*,o*
&
6,@d8+j,	 B86 6@0ede@*nQ@@8,~,>@O(F}bB5FW 
 BF2J*hX5(^6@OX  2B +ZA  ,^4hP/A(+PUdhXy`1K`[ 
S
u	GF\i
B'h(t
1S 5r
:HQ_`|eXY&KnHRY5z] @& W&M$5G>5^}$~$(^-
"'
2>85$'$*>:1
+"-^v4C3^=^A,~1RH	 %PN(V`` ```@xLXRsuLXRpLX_-H{ HK@
qL
V! HWi B$] BW@1h $,~7
;!$A@97
;@$@46`l+Q,A` 20J1J 21JO<R56`x, -4u0@?1@>  
&
<g4@!h0a@0G D  0 0`+1 1`
+#5@ `v+ 4B`d+0`D !$"(D,~ad+%`d`@+0 +$"A .+@,>-4i!$pbDp-4 .0[p(D{5D1Pw*\1-4i &0*\1-4iQ&0 FhZ"85B66Xh%`x@+J70@:x `+
0B0b"+F70@,^&"$$($}G
<.$" Dh)."h6X+P+P&"(B.")Bz+P6B`
,~^`5"C.hL7-4>!"kyY B`
6B`
,~!"H: B`
,~C2G,,-4iaLx.,h7B0-4Q+ 0b+P."h6@+PO@/"hZBh,~Obh,~!"xX"h6@*bR5"PA"/"h+PIG,,-4iaLx.,h6b00b+P."hL5@P@b+O."h@@+P`b+f^f4"c-4>adp(D  
	p5Pg hL.$3fhM7L!,Lu+f 
 	p 	n+ ,~ 
p[A"4Bm."hZ.,d,wel+PaLx.,h 
0+j7``,`x@+ `5@P``>`+p`x@+7``,`x@+>``x+{:` `+P`4@u1@+u1`1 +P ` @h&l8  +P`x +`x +ax@+`p  +	d8@:`R`l \dxX`+@,~+H70,
l8@,~,>Zb`;@+H70,`x@+Q"A`."@@h& B`,>!$=
(1@
=@*D1@+ZD`,^,^,~`x+
,>Z`Z4BQ"`XB` B` "% B`+l8@l8+`x+;,&48%-4p1`1 e8=x`x +s,~@@h*ax ++,|48)m8,+l8 ,~48--4uax@+u,~`x,F  h6iv+2-4D  -4D`x+:! `6@`7`h&+7dx+7-4A+5c@`+9-4D+7d8o `  Z@h&,~ "`58= "` 4=! `axc@,~58uX 48A`x+P`x +D?@h&+_7``,F>`@`+P`x +T,>`x +O`x+
@:`R`l ^dxX`+@+S+H70,Nl8+S! A`@`X`.  @`  C @`
'`,^,~ax +
D.
E Jx *}**Z`Z5B[  ,d " `XBQ"`XB` $%`!*}**/
E,~ax+
E,>,>0@+c  +g/ 4 m0`+m. n ( ax +j7@  ?7 `-4D``D ?4@m( -4D+j,^,^+PLD)%HP) 0@,  	,d " (`-448{d8 ,	Q(X(`*(`!(`X(*(` F`l8 ,~ (`58[`!$X$`*$`-4l8 ,	[  * Q*** d8  "+
 $Q$ *$Q" $Q$` &%  F +Pd8-4udx@,~h8 -4Ah8 +
M&tC@,,-4(,~ 
p-4jaLx.,h 0 @`6B` @,~56lx+"
*0B+F70@-4H+F708d8@-4jaLx.,h7h0 ( H`6B` H/(Z`$(&(@.(Z`52
Fhx5@)0` +)7`Z"6$+)1@ +'d$ D9# B`XH`++,JXH`,<Z` B` /$(`x$$ D` D` $@3D+2/$(`x$$ D`P`d"p."( B` B`ax,~487@d0D,~Z` $@3D+J7082*,~+J708-4Z-4\ `P`l x+@,>R`G
G+@+H58HR`G
H+@,^l z+@Z`Q X @@* @,~l8,^+,>,>-4Z,?`-4\,_` `P`l z+@l8Z`Z`/ 3 ,U  S,>,J,T+e $R`l dX +@d
HR`l `+@,~R`G
I+@+P,>! G@` `,>ZB@ 0D+_,^,^+PK:`,,!8
 6h+gI`,,!8
86h-4i!"pbBp-4 LX Lh&@fh[paB~+n p 
p9rPw*\
I-4i &0*\
I-4iQ&0 
p Fh-4jaLx.,hQ,A` LX "7 BX58. 
J X&"<"y @09
x  4D.@=z]2y`,,!6@+]2I`,,!6A+S8p,,!6+_W!`,,!6+eR`,,!6+oR`,,!6[p(D{5D	[w0D1D}l6-4(,5XN`4<6Fp Fh.<"
*561B+F70@+1B+F70@ `ax,22
*P021Rhb`b+`v+J70@+J70@ F52ax,I`r,;6"`+$"j$
K(
*0H." &&&&"6@."Q"( B``x!"[Bh&av+) 
p7` 
p,ax+eav@+.6 ;*\
K-4i,S+4`480`x,(`d8 Bh&@@h%+:R``ap+7@@`
*0H,Fm8d8l8,~  dx  `
*ax-4O+F70@R`l `X`+@[,zA `Q@`Q@` `58E `4B`x$"ax&" B` B`,~ap(+Khx+F+dZ`4DN58P+J70@R`l"p+@+2-4Zap+F708Z`[
 d
., Z`/, ax+X$,(
L&(.,`ap+`ZD`08P`l$z+@l8+bap+F70@ &-4
J-4\` L`l8d8,~@vd8
`x+
M58m! :!`4Bk. :h&-4AZ`@@h'+u-4uax4@u @h'[(B{1B=t`x4B
P4Bs+J708[m6 Z-4R58
`x+u7j`,*dv2N
Q9_.Nh&6@`6`h&+}/h&l8 
`#h0h( ((/. .2  `Q"0.H`/*  J`."*#`., 5J,*5N}+u 0-4A7j`,*.
`x+u5,u9`x+#5R
Q=_7``,`x@+
Q 
`#h0h( ((0hH (H/. /2 U`."0/* .H` J`., *"74Nu5R,/+#+-4u`x@+
S @0.
5,u=2,/+#+#`@@0S"0X"0.,8*"7+'@@0ev+'.
5,'@@0+%axax@+u6 h)+u+;ax6@`+F RX.h'ZRh'! :-4AX`,~av +5@@`Zh'4@3+J70-4u[ @h':x,~-4u @h'[(B{0B+;A ?r+5:x,~0B+J708l8,~l8  
,d B` B` 2Q2v-4Rd6all,> LH*rA `,
ZBH	+@S>f=,,7Xh
,~!"hX"*"l67Lp+U Th	[p(N{d61.+<O+@70D+N+\+W+X+av+Uav9J`v+{+~ "hQ"*"h
,~m6l6d6-4i!$pbDp-4"Lh"X<p-4iaLx.,h[
p(J}A*av+Sh"0J1J(X.0`vav7
w+h-4j!$pbDw-4aLQ, Lh" 
h"*
0J1J(`v+m6Dp`d~+v  ,>,d
,^mv+
V 
h* $XD/XBh*R`6Dp`d~+`vX<p9\0J1J1+
2N
W+m1Jax++
 
h".lh"4,Pd6av9J Th	 h* 
.lZ6@94,d6[h*,
9Jd6[h*XDh* 
\
1J7
W7
QQ,1J+1J`x+
Q, 
Ql6
h" Jh# h	+PaLx.,hZ
0+PM&q`,,7Xh
,~ h	hl6ax+#`v@+ h!Z"7 ,
`x+
W,&d8 48 Xh%`x d8@, ,=@@h
6Bh) Bh
@@h)@@h*,~ax@ax,~6B`::`,~`x+458,7@`+(@ 4'ax9A7@` RX! Xh'. Hd8-4A+dx+av +1@@` `Z5@,+.4R2-4u=r1,/+,92"
*0B+586,F487, `,
+>2$7Rp+J5|A*\
I-4i 20[pA"p0Bpl2*\
I-4il207,+F 0h!Z@4BF3L+
XZZ5BCZ.7Q.` Nh'[A  Nh(.@h(. $ ,d "4,MZh!XBh!XDLX6.
W LZVh!!, Lh(@l@r@1D+Rd h &&&$WZ`+ Z
ZZ$Z0Z<Z4
*yd@.\cL.]:ukk D@QD , 	mBdmB
	Bd	AlT	A,	A4	Bt	A|	A$	AlL	A$~AT|A||AdsALvA<qA
	A
	A|p	R	o	rQ`/+J70($"."x+Rdj"` 2f9-4	+QQ"X,>100 009
R4Lm-4	,^[/h!Q1L Rh(<l	f9`R,6+Q-4	 2f9+r! GAh!l*`r`-4	7R 2f9+Rm*b:+R-4	Zh(/"?$",6<"	
1D0F	9	 Nx1D9		 xS`f9[X&"pb
ZPRX+Q,68Q.`+Rar`+Pdj+
Z`r?+	0b?Ob:+	0bOb9[x RXFX0BX`r*v	ZX.RX@r+P h(l"@,6[h!(P4B	![1p~+	#,
  @,dQBh! h!7 +	(.
WR5$	(.D"`RD_Z"X,
[h!."@@ BZh!: X9	-ax,s.6 XZRh(&9[`d6@0&+@ev -4R,@?`h(9	- X+	.[h! @ZW0HX+	;>`P+	9/
W T@9	-YWd`.h!+	-,4XVP,4h( T@+	7av+	B-4Rl6 , , Y+	:-4R+J70
 (A6  (Q2  -4 =r	E9	-^Rh%9	-[XA(4H	O"
Z$"pQ2`48	P-4u0F	+	N1@  @=h	L9	-0F	+	S0@+	S`/(-4A=h	P9	-, , >`h(+	U9	-58	Y`xm6l89	-@@h* 0`58	\ 0``x+	a@[
@Z@1J9	aZ
(4J	a9	^7h&$(%/@[`A2?&@f/2 4R	w42	m58	C`x+	Y7``,T>``4@	j=r	f7@  ``=r	C9	-d8`x+
[&&%[@4F
]Z=f	p $ &%Q$`/& &(.$ 4J	u`=j	taxXB@@9	-l6 
h#1*+
^1Jl6e6l6+[R~@,,[
p(L}eLx 
p-4j0l+@70
 60P4
-4(+
a`x+A `ax+
e58
`v +J70D \
`v@,1ap`v+X+,5+


s

r

TH

b@
l
m48,I,6+ap+J70@58
,>`,>`,>`,>`,F,6!6,2,^`,^`"&,
G,^`,^`7j`+ `1*'+
,
4+  [(D{d8
@1D+
9`h`+
+Q(` "$B` H`+
+!&p.hh+
+.
f1*'+
),
4+
2[ (B{1B+
2:` 1`1 +
%mx+
% 1`1 1+
%>`l8 H`+`p,
D,~ 
`Z`.(/Q(`@@`:x,~A(/((/(5h
>Z` &&~.(~,
D+ Z`/&  F`.`Q(	 H`[ (B{0B+J708+@Z`<b.:xXB`ap+<-4Z-4
J>`+l8!  `G@`6 +
NB@ =
L @@``/&R`G
f+@8f
QD +@+P &`x,1`x@+
[-4Z `6 +
Y +
W @@``.& ",
wD"+@=f
[R`G
g+@+
a ",
w,8+ax,2-4p `ab`7 abx+
iax,;`x, +ax+
k>`:`,;,e+#+ap+
oT`l"x+@R`l"\+@;`+
g+
p7
i "ap(+,
waB,
v+ "P`l"t+@,~G2~9',,-4(,~ `ap+
~,0-4G,~6`,>,Z,^ ``v ap +@@`
j02+B12+L,+BB
B@@`
ap +B,>
-4F+B`p-4G,~  ,d 6 L-ZBXRBX 
j BX `XDX	b
+  BX " BX\"
\$+	d@bX `."
?(B|SBX."{(B~XBX ` BX
!6B`	`b+
kQ"X"X
*"X
 BX[`
SBX:X1R7
l 
l&
*1Fm1BH:`xmG$ DX "XQ",>&,
+=YC aSYC ax,~ax+7`x7``+4,J-4Z! G@`G@`+7 "+8g "d8@[``x +=l"p+@d8@@`@@`[`(B}."h X,~edX',,-4(,~`x+@`h)`x ,~R`l"r+@[`(B}-4\Zh%1B`@@h%6B`,
7B`	+Lab,
Z"`+
KbNC@,, 6hQ6xLX4XQ6XX,A*vO6Xh,Fa|x+V[pd0B +Z+W_w5"Z p1B	`0B+Z	b+Y+@70I|G,,-4iaLx.,h7"0,~+
C2|G,,-4iaLx.,h 0,dZBh,~4@
4 
 $h Z4Bl[4F2f9
 Z5Bf,q[2b+e:	f+
	 (XBZ/&SG(.f(+j $h Zh  &h Zh [
.*2B2J+|Z
3D+
mXJZ
 3B+
nXJ[
 [.*SJ,
+q Z5Ht Z5Br,~ZXHS@X(Q('Z
.*@@0@*((2 9/,>.SF,
,^9Zh!4B
R`h!,
+jZx0Bc+@70
xObh:x,~/"Zh 5D
XBh ,~[4F (h [
2*+
 Z 5D
XB ZXD4H +
S ,q[=d[<`,>,d,^Z4F
  $+
XB>,~x\ASCII^
#BINARYSEQIN^
%SEQOUTSEQINOUTRANDOM4`,`,I h+i `	@`	``	<
`6$p.p6 p6
Dk~\a6$XT~4XDv,XT$X$A*U00A
Enter new file specs. End with an $(ALT)
*H
hM `O@`D+,^+
,>,J:`Z` @`,<,^+S,>+N0l8+D58"+!
  
`	`+@70@     0`+@70D<`"
*1B+= 2 Rh&+ul8+t!"axPBh)+ @@0!"axPBh)+'QBh*+r@@h*+."ZBh!+	(8
n2+	 @ ( h&9	r $+	q[,`+@`p`p(+
,~ "8,>,],^aV~+
_+
,2+
9@
`Z`@@,8+$``` BX
+"@ XJ+yXJ+y+
z+
{+=,, $,
o^$,+8,~!`h ,
SD.d(."!`h ,
!`h  ( /$SD.d(.",
,q.$hZ4B7+
1XP+S@` "`,
Q"XX"X@@X*"`g,8!`h,~Zh 5B
.804h!!`hZP4B
++O@g 8,~,
NB0+0,,4F+xX*hS@@hS1&P+(,>* ^p"!$<X$p*$p!@f\$	d+D64d `d+@	d+B6 Dp"
p+F6	d
QDp`p+H6  @,d 0@rQ0@[
&SJ!.4X.*.?`7+J6.,@1,(+ ,
+"S&X&
	f!&LuS(X(	h+L6S*X*	j+N65( 3F^ @ Fp Hp! Jp@@p  x $!&>9`b7 _@j@nX\p 6pXV( 6pZ*4XpXV*+p++,^*,^(7@p +2 p"	d+P6
p+R6@p+T6@@p p+V6 ,^ x,
!<y*</^,^,~-47
&_4a&44T:.4
".6
"
&b	`+!:	z+ X\pX\p.\p	d+ <X\p p" x, < p" p p! p@j@!:	z+Dp4F* $X\pX\p.\p	d+ < p"+* $7O < Dp!+p-4p
&p4p&44Tp.4
".6
"	`	<+Bp<+Fp.W?FRSQGE	QueueegetsegerrorA#INXALZQ@pINXc60j  * 48t  @01B @0-45fq5Dr@f+{-4u=fp4Dy-4u@=jr,~4fv  -4A=ft4D5@x  -4A=jv,~@f)F-4uG=jz)F(H H00B,~0,~ 1J +`= 0@1B 0)F+v+J70ti     Hm648p,>,>,>*:@b@r@l-45jO
,+=+4J=(Rq-4u0 0`+/ G2)R`t7L0[L0at(R{A2(2~+@L=
+9+5G.+$+7=
G.G.=
$+-+91@G21@G20@1@G21@G20@"1@"G2`xh+5B'2d-+'$$.=
2b-9
,$"%$. l$.ed."=
3LeG.0h2=
$(.=
@$
RH$
"XXQ !BXXY &`Xa &	 (`x@+=4*=4*=  (Rq+2J4*=7@h$+J70<-4uax=*;+b7 , x`N+A&9/
^h%aN/
`N"`.
 2c5BF*/2 (`G+b*)/24LQ#0f
 &
7 "`/
46g%&``+O)/2&&&$e.2@5LIl 46m. @d "d`+V).2l `R+`)|rpev+\_({d ~)2d6`N ,^,^,^ @0`v B0,~U 56bU"`R@`+X$$G$G$G6$G$$G$G$G%&  %:l4.%&mt. .eb9M+Ml"."@eb9T+T6$,>,>,>,>,>,> 0@ h#0F56v70 d:@5 y m:4@ [(N{d ~)^0?A$0M({#12
+6 7%"0
46&,,+| )R`t7LG[LGat(R{A2,~4P.",..O@%D& %D:l2.%D&mr. .eb. ``,~)=4P./.O? "3 D&=)'D&,~,460r8+1R82 D&9,(?@+ 0r8+0R893 D&+3@D&2"D:.0,)?@ x*:(9^
h%5J$`v.*Z,[
,av+'2F'2fl6 av+)4l+9+`v++..0p	 0	av10+/ 0ar?/0 ,>'72 2.L466. e`:x% ,> =r4+=.Leb. e`:x*%",>% l .e`:x=r9 28 84T@/2.&`v`v+C6 1(+(@
/* `v+H.
`v+*4lL/*0+L4LL5l+#
2(+K.
/
"
/*`v7`5*W5jW`z+Q`v7`8JY4JYavev+T.*+L ,^ar?l2+J70
1j+Zav@-4~=
Wl:av+m5P\l:/4la-4,>-4=P_l:=L^,^=
b-44jb-4-4}5,e.-48,d4hg-4=Pgl:=he  "`v  "-4A5&jl:-4 * #+4lw6`-4~-4-4=ppl:=lo-4}4Ht-4=psl:=hq av+ *-4~=jv+.-46`-4-4}5(|,-"`@4Lq-49
|  +A  +A  +A  +dz+  dz  +A  `z+A H. 9A && ,>4@
92&+
-4=

,^. -4A=F
,^,^,^,^,^,^,~xP	`CLf3@(zpQ@
$n@46q@@C@@@@@@@@@YLf3ua#kCKc)}zzcD3l#FhxwP-=Yjy/sq
KA>Amy_lvJ/~
A
^3@	8'@47@l@fK@@'
,+|l64LC  
~+s/(+L/(75(L.
+L28&:@j48F-45f3O,+C+34FC-4u1`1 +:l$`d=2A $*+29.
=2l$=2`x+B1@  0@+>5&65$24$@1@m$1@=22F4&C+J70<6ax@5&6d*`d"` J04&,~7@ &7h0"`+ V&(G*,>6@9I:/7 08hP4hP (Q`/+J70
V9hSav@-4A8hQA70-4A,^-4A=dT,~U(&(.*+J(:48i@@0-45h^O,++^4Hh-4u0@1@=]1@#+b0@*+gO@0<Hh-4u5hb0 00`=+e+b0  0`-++b+J70<b,~7` (=hk4Hl  -4A=hk  #7 0  *-4A,~ $&:48@h-45fuO,++u4F-4u1`1 +yl$A (H.=t`x+1@  0@+}5&w5$t4$1@m$1@=t2F4&+J70<xax@5&w`d"` H04&,~!*@c5F &/4f	  -4A=f5&5@9	4$
`v@@,~,,~0@h*,~@7@h*+u*h*+P0@1@+0@:x,~`x,~-4u+/PC;dSv$r.t:.zQH9RY%{$Wg\-MaT8%a	#L`%+}?x/6|ov:".z*yG8F5Wy&W!F{h)xZb46q:c b&t^(zpQu3Lf3 (2>@'0j=@&h/WB;M2@% /H.H;::J(@$0N9(-<bR8kzIF#C<M|,4+a;7A6Yi"Xr+/^$
z!/l4m46GBa2JzOoNl!#kBGLf3
,@hbD	
$dy$*%a>1FIZ8g9t> ("E#I
(L&irDR*
b^Y-KJx`0`@!6@@@h%58M,-4R`v+Md6[,b48QZ,bdv "n,+M!6@X60@58  -4A  -4A X,,.66BX3BR+
,Z
X.D*E4N`[X"`0J1J(Q,.68[,b,9XB-$:B.DB-$:BH<CB-L>BH<CBH<CBH<CB.D>BH<CBH<CBH<CB/\BH<CBH<CBH<C,~,.,*lj,~,~l6,d6,*ll,~,~  *6 0  #-4A,*lp,~,l6,d6,.
E*lt,~,  -4A,  -4A.
E,  -4A,*lx,~g.$ 03@0*l4D.$,  +&$QFx4D,[x. + $+.$03@02B0+.
E*l4D9  -4A,~, X,  +@)@. -4A5B,~  -4A#h&0bax@0b:,   -4A,~-4u-4u@@h%0@1@+`x@,~, +,z2BX+`B-4u,| 2X7@H+C.2.F3BO+%4N!.28+!@l4N41@+*1@+3`x, -4u+&"`!`X.H,.$8. `0@*n,*F0J1J( 
H/00Z
O.,@+7R
H"`*F0J1J(
X
O,!d6Z,b,&`+,d6,
E*l>,~-4u,K,. 0,M 0*L<nD @0+I,M*lD,~1@+Q-4u@@01@*O@0-4u,~-4u-4u@@01@*O@0-4u0@`x,~0@1@,~+S`v@aV,~ @0`v B0:x,~-4u,
E+c0@+d-4u,.
E,\,~,. 0,
E,@+k  7X@ Nh%7*L<n\0.
E+k-4u!"A`X"0G@0,>G56s@0@x*ls-4u0@`x+H@>`x+s,^x*ln-4p0@m6-4u,~`x,-4u0@1@+B00`-+zg-4u0K0`-++00`+h0aD0G$A$(BG5",~(B5",~-4u`x,Wav@+0av@+0`,>1@,n,^XL+Nh%+P<nP462*L4 @0+0*L4*L40+0+P`v@+;0@1@+9,>,+l ~,/-+O#X~#X!8pA+G.7 h8/(+++	+++++ +d8~l8+ +d8pl8+8x..8dl8+ + `h8Zax~+	R+d8~l8*x+@x+ Xx:+,> `h8Z`x~+`XXXx`x+!8?@A++d,^*x,~+D7P6$`1X-+
d1X$+	+.+h`0s ~ x,>_({jbm8~d8~3" g(
,^+d@6%+ 1X-+n1X,+qd1X$+|/(+9~.ggkV|CC`_Bt"I4BI$rcV,[N<YY&ngJ,[k:4k:4k:4kMkM
kM,7. Jx *}**,>Z. |[[A"p(B|A(w((}.,>D(((QHx[(H}A( "DP$/,>Z$/+Z|5FG,h &M
& F|,^x,^!*}**/,~,^+E,^+G x %Q$  aBl$@)@1@+4@Ro   5BT9$N
"5BO5$O,~@)@. 
"5BV,~Q@x[`,[
&[x7 $5 ^
&"`& QBx6@,^[x. 0`. 
",~. & t,>& ,>4@j& ,>4@h,\
&,^,\
&,^,\
&,^& & G 
"  +\`x+
&^`,\
& `,V
&7B`
+,VR`
4Bw
&,V7F`	+~
& af ,Y`f+~7B+~
&,V9{
&"4B
& a@`
&a@|
&,[
&
&,L0b
&",L0
~
&,L0f
&",L0
v
&,~
&,~
6+ 
&"R,V
&,~,
,L0#,~Z
0j+ 
,`j,
aj@+,L0,~H%H'H*JH-
6+ 
&1@	`/h
,c
&4	`	/h ,c	`Z
"`5J$Z
`
 
,0,
aj@+',L0+(,`j+o,~(7(<Z(?@B((5(4(((D(F(H(J <(M(O((R(((T(U((W(Y(Z(](_(a(d(h(i(j(l(o ``b ,L0r`b,L0t,~,L0V
&5PH7H|+Q,L0
&u "v7@} "w
&*,o*,~,L0Da
& | (x1H,\1H,[1H,L01H,V
&y,~,L0{46S7 ` 
&}
"
&},~O{S hY$|@Yq`|DBcgwdo@W|tBZ+T1Bp,L0]
&~ ,\
&~,~'v)a0L|TH}.&@+" :h$? h#,~Z{Z
=*f +[
A*@0(J}dJG* 
,j,
,L0
&  ',[
&,~4k4k? h#+K,
 {
&(,h+KZ
0j+1J+~ 
,`j,
+%@j`x * 
,	,L07@`+oax
&	`x
& `,\+o[h4Bt-4uax@++M@
@vhhhphhH H#h&p8p=H)-0,L0,S,o h' $
"3FQ$2Fh(9
&`d[  <$
"=$
&4,~'v)a0P
ABd.s!Pg 4R] ":  -4A=bA,~,L06,S,oav@@,0 ``x+%Z`.( h&1b1(+%Z`0h+%1Haf`+%3f` &afl&`@b
"2F`++,>"`/$O5B-1@O9'0@9D',^0@
&,+J h! [A"$"Q$A`
"=b3
&,~'v)a0P
ABd.@h,L09+'v)a0
b-&Bd.v
RtP,L0?,
+07tg.nI +s_H^p	:
hZ5HGR`l"d+@(`E0b+SZ(w `h"ib0H7
$V *50H+Nab  ,8Zh4BO Bh),~[h5BM,>dx,A,^,
,L0,o+J `1B
ad,~ *7+O89:;@ {
&(
&+K,
&A },\
&D *{,+@70/*,7E ,V
&E },\
&G |,V
&H ~,\
&,~iJ
9',, *xZh
,,~
&I ,V
&N  ,[
&OaF
&O
&P,>/*,+s*x,u,^+k,^Z(7E ,V
&Q   / ,[
&Q  ',[
&R 'P'_#`,\
&R5("S&" $$( 
"*h}
&S,~ULIUFUOSDUUUCUUK1*h,,~Z(,
 '[1Bax71Bap7=
['0B`=
[1BXX+1h0,~3h+7B&,~1(,~1(:x,~0
? Job aborted
h$+O,-:.
Unit= []6$`<0>/=4`,`
ENCODE/DECODE ERROR

%FRSWw)I8Ry.R,Az.s2Hy$`~<g!-Y$|@#ji.Pxkw 	8
(>)
yrw U(:arPL|OR0WyKIsd  A1TYh)5y
oHP(@.@
END OF EXECUTION
CPU TIME: 	ELAPSED TIME: L\z[7wH(Kp\#myx?B\ qF,sWl
R]!$
%H'vB9 }_^! tBcgdX(`}P.@KrF|DB\=Tg.H{ |F,sSw^!;-I
Y@|8LITWh8'v)a0BeN0>3rBlHe'v)a0ZysdF(tX(0}z\ ;w@"2: yO(Qh<yk%H*hEHtX(0*.^"&$RKr\%dX(R@28&:&pHu@>|@|IrlHegh6;wA# 2#;wAo4d5>@@.R
 _y! 1qV2Iy;wh.>SP/9&
p2@Cpe"!0XccD^p9L@v`9z4E\,1qC"/8p\OP	k2LR
.\	8pLEGeHp\OP
a4dE8J 9w+0SLEGeHLb{OP+DOrChDg 6
2Lb{ENBH<
,
d;w@EB@{@yj> ?.RAy2Iy@@'iHQh|Y@5,0Cy!#Q\A%Jd(=	is not uniquedefined6
Dk	is an invalid argument'w,	
b-&Bd [  ] ()
	PC='w()eHl,F1{@'w()eH2$P(k'v)a0C@~Iv
	or unwritten or destroyed record number:  :  t
`NV@,R> $($%c@.,A#>"&'w!->Z!-1hr #>":'w!->Z!-1hiQk @@nXY&Kn3r4z(+0P
rxEewA1KPV@[pdH"0PN>@(>W.wi,&:xL<5@HY
	|"L|Ede~"B &0c|0\OPdD=PeN0>LXj+T$yI0PW
P>K
pXOH2#|0\OPsJu	@eN0?#`?.vAyI0P21n?1BN%`KAK$(oH@q`|FJ z(+0P
E@*ur&J
p1RHbh
2gHQ_^
;w\.	NB] 
IyI0Pwf@`(_y! B'h(t@rlHeY$|@CpdMY$|@v`Qw@`2PUz8
RH)> 
K:%(tV"@5,0wfdX(Subscript range error on line  of [Mc@
		Subscript  of array  = 
Name	(Loc)	 <<---	Caller	(Loc)	<#Args>	[Arg Types]
	()	 <<---	 +()	<#>	[. ]