Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/csmpa.rel
There are no other files named csmpa.rel in the archive.
0(R{3, +HEL  LOO  CON  PAR  FUN  PUN  INT  OUT  GOE  FIL  RES  EXI  TIM  PRI  PLO  RUN  INP  GRA  
,
,
,
,
+DSK0 MODEL

,
,
,
,
+TTY  DSK  INPUTOUTPT,
,
,
+     ;    -\`4444} $2D+ "}b}  "}b} } $ D} $ D-\`44+x+}(/' TO CLEAR TYPE "RESTART"'//)    {Gx5-\`} $ D} $2D+ 	 D{[@@} $ D	} $ D-\`44 "}b} xI+}(' FOR HELP TYPE "HELP"'/)    {ox
a6b}0b}7{+444444x! "}b} +x5+}(/20H ERROR IN PROCESSING/)   {xA "}b} +xU+}(/24H RUN TERMINATED BY A "^"/)    {+x%a "}b} +x%u+}(/33H RUN TERMINATED BY A QUIT ELEMENT/){?x} $ D "}b} x)+}(2H *$)   {S} :{
_ Z{
sx=@@h}1:(9 "}B  }4(} x+}(80A1)    {
x, 
 }7 }.$?}(yA  }7 }.(?}(|A}!*xA
}G}G D
@@}:{
2Dh+}6b}0b	}7{
4
444
4
4444444{x	-\`44-\`-\`} $2D+x} "}b} } $ D	+xi+}(/27H CONFIGURATION NOT COMPLETE/) {
a 	5d-\`O@	} $3D
++x
x}$3D	+}"$2$	+ "}b} +x )+	}(24H PARAMETERS NOT COMPLETE) {	
+-\`x = "}b} } $ D} $ D
}"$ D	+x Q+	}(15H MODEL COMPLETE){	x&!}"$3d	+} $2D
+-\`44-\`+x&5 "}b} +x&I+
}(19H MODEL NOT COMPLETE) {
x,A}"$2$	+} $2D
+x,U-\`}"$ D	+x
2a}"$3d	+-\`	4}b} +x3	+
}(34H INTEGRATION SPECIFICATIONS NEEDED) {
x
tA}"$2D	+}$D+xti+}(16HPMOREIWORKATO'DO),':'{'xWITH '$)   {;x{	+
}(15A1)    {
O "}B  }4} -\`
4444}$2D}g}O} &2F}g}O} (2H}g}O}G}G4$
}(' OLD OUTPUT FILE WAS ',A4,':',A5,' REPLACE WITH '$)  {
c "}B  }4}   D  D-\`
444442D}g}O2F}g}O}A4$2X@g}O}G4$ "}b} x{E+
4444+x-\`4444`@"}b}"}b} }$D	D	-\`+x+}(/'RESTART INPROGRESS'/)"${x!"}b}x5+}(//'ENDOFRUN')b{3-\`4444` @ "}b}4xI+}('TOTALCPUTIMEFORRUN',F8.3,'`SECONDS'){"}b}-\`+!x!z,-\`} $3D+"@@	-\`44 x !-\`O@	-\`44 } $3D
+"x  q-\`x"zU "}b} } $ D} $ D
}"$D	-\`44d}"$3D+x]}$3D+-\`}"$CD	-\`44MxI}+$3D+-\`	4x,aO@}"$3d	+}"$ D	{+-\`4
@@@@+x A} $.
} {? Z{S 3Dh+$x$ U h4D}1:(9+x$&a  2D }g}O  }0H}g}O}G4$} $. D
} $3$++x A 3D
+"%}b} +x%U+}('COMMANDERROR-FORHELPTYPE "HELP"'){?-\`)^r%HNA*jl
18F
17N12	12
lJjmjmjnjnjojojp1312(TSg
_%N?(w3=|xj%3~w2wx%g|y1C|yYw%zl5%zUJ{935{4~0_||
}
 MF?{ LF?y}a}~&-_~<6	Ts(^v-j KF?y MF?z LF?z_0g[b;'
i
i )e  NF?|F?|<*o
Zo )e )e )e )e )e MH
|G;4 & ).& E&(f
  DLkQMFQLYS!AORM>WH06 jl0jl{3 "}b} x
a+}(1H1,10X,38HWMUCONTINUOUSZSYSTEMMODELINGxPROGRAM//){G95Dx Z{x!@@h}1:E9} :{+ Z{?x%a} $ Dh}1:9} :{S Z{
_x,} $ Dh}1:9+~jl{12}4 Z` \`+{
s ` `}-|pjl&.	K;.3)e*).&E&(fE  K  ORM>W jm0jm{3}"$3D+ "}b} {Gx
a+}(/10X,27HCONFIGURATIONSPECIFICATION/)`{[}+$3D+}"$3D+5"}b}x!+}(40HBLOCK @TYPEINPUT1dINPUT2  INPUT 3){o+xA "}b} x%a+}(39H BLOCK, TYPE, INPUT 1, INPUT 2, INPUT 3/){x,-\`44 @ 4$5dx2! 4$4Dx8A} $%3$+@@@@@@-\`44 @} :{ Z{+ 3Dh+x>a}1:9xzA "}b} xa+}(28H ILLEGAL BLOCK TYPE IN BLOCK,I3/)   {?+x 4$5dx
 -\`4}0`&+}"$ Dp-\`4p45@x,A} $3$+6b}0b}7{
_+4
44
44
44444
{S}"$. D} $3$+6b}0b}7{
444444
44
4{
s}"$.D6b}0b}7{
44
4
4
4
44
4
x
2a 5dxtA 5dx
za5dx 4$x
aFFF}$2D}g}O-\`4}G4}$D} :{
}(3X,I2,5X,A1,3(6X,I3))   {
x,a  4D
 "}b} {
xnA+}(15H PREVIOUS BLOCK,I3,8H DELETED/){'   F} $2D+ @@ @@+x{ "}b} x!+}(15H ERROR IN BLOCK,I3/) {;+xA "}b} x
}(17H BLOCK NUMBER OF ,I7,11H IS ILLEGAL/)    {
OxO@+x	hA@@+
~jm{ Z` \`+{
c ` `}-|p
UG;LG;|_F|^N%T^8
18F
17N
"jm^v-jLF?y#	#%p$
$
%%Zo&&
OF?}E.6).&E&(fi j  5  E [ ORM>WK7]H06 jm0jm{3} $ D@@@@@@} $ D} $& D } :{G Z{[ $hXD-\`{o4 @ 4D  Dh} $
2D+:  Z+x
a} $2D+:   F   F+x} $2D+   F:+x!} $2D+:{xA " Fx%a} :{ Z{+} &%}$. $XD-\`{?4 @  }1D}g}O} &%2&}g}O }0h}g}O}G}G4$ "}b} x,+}(6H BLOCK,I3,16H, INPUT TO BLOCK,I3,9H, MISSING/) {S} $ Dx2! }1:9x8A }1:%9 5d "}b} x>a+}(31H AT LEAST 1 INTEGRATOR REQUIRED/)   {
_} $ D+xzA} $
2$+ "}b} xa+}(48H THE MAXIMUM OF 25 INTEGRATORS HAS BEEN EXCEEDED/) {
s} $ Dx} $
2$+"}b}2xYSHASBEENEXCEEDED/){a+}(55H	THEMAXIMUMOF3$FUNCTIONGENERATORSHASBEENEXCEEDED/){{
Zom
nTHK;.3d-%XAzE.6&(`).&E&(fE  
 [ %  M L ORM>W jn0jn{3} $ D {G Z{[x
a@@h}1:&9}"$. Dx} :{o Z{ h5$} :{ Z{+} &%}$. $XD-\`{?4 @ 4D 4D} :{S Z{
_ 3Dh+x!3:9xA} :{
sZ{x%a3:9}:{}1:9+x8A}1:%9}:{ D "}b} x+	}(22H SORT FAILURE AT BLOCK,I3/)    {	
4jn4%p5
S/E P~w35	6
6S{7
T9KF?yd-%XAzE.6&(`).&E&(f% E   
 ORM>W jn0jn{3}"$3D+ "}b} {Gx
a+}(/10X,29HINITIAL CONDITIONS/PARAMETERS/){[} $3D+}"$3D+ "}b} {ox!+}(6H BLOCK,3X,7HIC/PAR1,8X,4HPAR2,10X,4HPAR3) {+xA "}b} x%a+}(27H BLOCK, IC/PAR1, PAR2, PAR3/)  {x,-\`44 @ 4$5dx2! 4$4Dx8A} $%3$+@@@@-\`44 @ 4$5dx>a-\`44 @ 4$5dxzA-\`44 @ 4$5dxa}"$ Dp-\`4p45@xa   D 4$5dx  "	}b} x	&!+}(41H NO CORRESPONDING CONFIGURATION STATEMENT/)   {++x,A} $3$+	6b}0b}7{?+44
44
44
44
44
x	2a} $
3$+}"$.D6b}0b}7{S+44
4
4
44
4
4
44xtA}"$
.D6b}0b}7{
_+4444
4
44
4
4
x
za 5Dx 5Dx
!5Dx F   F} $2D}g}O-\`4}G4 } $ D} :{
sZ{. 5D
x
a>}1:9+"x
}"$3D+"9}{1H INVALID BLOCK NUMBER/)   {	
12W}4 Z` \`+{	 ` `}-|p
UG;LG;8|_F|^N
)Vf
jn^v-jLF?y	%p
		
Zo
OF?}E@p)($*).&E&(fE ' M r  ORM>WH06 jo0jo{3}"$3D+ "}b} {Gx
a+}(/10X,33HFUNCTION GENERATOR SPECIFICATIONS/) {[x-\`44 @ 4$5dx! 4$4DxA} $ 3D}g}O} &%2&}g}O}G4$} :{o Z{ 3Dh+x%a}1:9} :{ Z{+ h D} $ 3D}g}O }0F}g}O}G4$x,}1:9+x2!} $ Dx8A-\`44  @ 4$5dx>a:} $2$+}"$ Dp-\`4p45@   F   F} :{? Z{SxzA} $}$. h F}1:9}"$3D+} $3D}g}O-\`4}J}A5  "}b} :{
sZ{}1:9} {
xa+}(I3,9X,5(1X,G11.4)/6(1X,G11.4))}{$){
 }"$ Dp-\`4p45@	+xtA "
}b} x
za+}(13HSYNTAXERROR/){x!+}(30H TOO MANY INTERCEPTS SPECIFIED/)    {
}b} x
a+	}(6HBLOCK,I3,40H@WASNOTDEFINEDASoAFUNCTION GENERATOR/)  {	
12k}4 Z` \`+{	 ` `}-|p
UG;LG;8|_F|^N
)Vftjo^v-ju	u%pvv
LF?yOF?}E.60h(3-M3-).&E&(fE   [  ' M ORM>WH06 jo0jo{3 X@ "{G}b} x
a+}(1H1){[x!+}(1H ){oxA} :{ Z{ h D 4d} $ D} :{+ Z{?} &%$. 5Dx%a>}1:9 X@ "{S}b } +x, X@ "{
_}b } :{
sZ{$.3:9}x2!+}(3X,I2,5X,A1,3(6X,I3))   {
2F}g}O} (
2H}g}O}G}G5$	} $ D{	 X@
 "{
}b} :{
 Z{'} $%}$.3:9
}x+}(3X,I2,1X,3(1X,G13.6))   {;x
 "{
O}b} } $3D+} :{
cZ{}$ 3D}g}O}0f}g}O}G4$X@xA+}(I3,9X,5(1X,G11.4)/6(1X,G11.4))    {x  }1:9
 X@ "{3}b} x&! X@ "{G}b} x,A+}(//1H1)   {[+~jo{12}4 Z` \`+{o ` `}-|p|_F|^N
18F
17N
)Vfcjoc	d
d
eMF?zE.60h($*).&E&(fiE      ORM>WK7]MFQ jp0jp{3 "}b} x
a+}(/10X,19HINTEGRATION CONTROL/){G} $ Dx "}b} x!+}(22H INTEGRATION INTERVAL=$)  {[-\`44 @ 5D}"$ Dp-\`4p45@ 5d "}b} x%a+}(44H INTEGRATION INTERVAL MUST BE GREATER THAN 0/){o+x, }D Dx2! "}b} x8A+}(12H TOTAL TIME=$)  {-\`44 @ 5D}"$ Dp-\`4p45@ 2$++{ "}b} x>a+}(53H TOTAL TIME MUST BE GREATER THAN INTEGRATION INTERVAL/) {?++~jp{13}4 Z` \`+{+ ` `}-|pLG;6jpNF?|&'6%p'l'<C).&E&(fORM>W jp0jp{3
,
,
,
,
+}-}I+	3,"+A}gB}OC}5D}$.}6b}0b}7{G+4444xU}$2DD}!$9}:{-Z{"-h}$p-\`44p4p @3:9+x2!}!$H}$}@"@}!:{S Z{
_x?	  Dj }1:29} :{
s"Z{}$H}$}@1@`2`}g}O5}1$}g}O}A5    F {
  D 
  D X@
 "{
}b} :{
 Z{'}  3:9
} xa+}(1H ,G11.5,4G13.6)  {;+	x } :{
O Z{
c}"$}.$
 }. F}"$}.$
 }.  }. 
h 
0} J'x )}"$}.$
 }.  }. 
} J'3:9
+	~jp{ \`  `}, p}, p},!p},!p+{	 ` `\ `}/ },Ap}-|p!y-@-p@
)Vf
18F
17N{jp{%J|	}u-|I}
r:)e }0M~rD?RhC?w~

Rj
&	P%Q%Q&R&{2y0*y_0g[)e!
!Cxx	P-3:g).&E&(fP  3     ?ORM>WLkQ 13013{3} $3D+ "}b} x
a+}(/10X,14HOUTPUT CONTROL/){Gx "}b} x!+}(16H PRINT INTERVAL=$)   {[-\`44 @ 5D}"$ Dp-\`4p45@  Dp-\`4p} &}. F 2$+ "}b} x%a+}(56H PRINT INTERVAL CANNOT BE LESS THAN INTEGRATION INTERVAL)    {o+x,} $3D+xzA+}(18H NOT A LEGAL BLOCK/) {xa "}b} x+}(25H MINIMUM, MAXIMUM VALUES=$)    {-\`44 @ 5D-\`44 @ 5D}"$ Dp-\`4p45@" D 5d }0$}g}O }0F}g}O}A4$ "}b} xa+}(36H MAXIMUM CANNOT BE LESS THAN MINIMUM/)   {++x  "}b} x&!+}(36H BLOCK A, BLOCK B, BLOCK C, BLOCK D=$)   {?@@} :{S Z{
_-\`44 @h 4$5dx,A} $% 2$}g}O} (3h}g}O}G4$:x2a }1:9}"$ Dp-\`4p45@xtA 4d+x "}b} +x	a} $3D}g}O} &2F}g}O}A4$  D X@ "	{
s}b}:{}bx	+}(1H1/5X,5HTIME ,4(5X,A5,I3))  {
4	4
x
&A} $	3D}g}O} &3F}g}O} (3H}g}O}A}A4$
W"}b} x,a+}(1H1,4HTIME,2X,G13.6,36X,G13.6/,11X,'+',10('----+'))   {
nAX@"{xta+	}(1H1,1X,4HTIME,2X,G13.6,86X,G13.6,/,11X,'+',20('----+'))    {	
O8}4 Z` \`  `},!p+{	 ` `\ `},Ap}-|pBLOCKLG;zO
UG;
18F
17N|_F|^N
)Vf13b;'C`z9%p_0g['<C&')e D?Rh?QMC?wRj	OF?|UZ.)e)e)e!P&rO).&E&(fP ORM>WLkQLYS!A 12012{3 4$-\`4444   D+x $}( D-\`4444  $ }. F 5$ "}b} xA+}
(' NOT ENOUGH CORE TO GRAPH, TRY INCREASING THE PRINT',/,	' INTERVAL OR DECREASING THE TOTAL TIME',/)    {G}!$ D+x
a  $XD  $XD-\`{o4{44+~12{O7Rg}4 Z` \`  `},!p+{[ ` `\ `},Ap}-|p
)1"
O7RY	(12)e )%p)}*}*MRj(_0g[MF?{+).&E&(f* ORM>W 
O7RY0O7RY{3  D} :{G Z{[ h Dx
a   F3:9@@@@} :{o Z{ h Dx   Dh3:9} $% D }D } F} $ D} $ D@@ }$}@ @-\` 	 D	 	
 D
@@ 
 Dx!-\`44 xA6b}0b}7{+444444x%a:  XD  XD-\`{+4{?444x,} $ D} :{S Z{
_ h Dhx2! hDh3:9` @
 
D+x8A} $ D} :{
sZ{3:9A}@@2d+xa:  XD  XD-\`{
5$+xA}$Dxa}1$}g}O} &3F}g}O}A5$ X@ "{
D@@@@}$'D.... D} $ D}!$  D@@@@ $ D`} :{	
} . } $XD
-\`{
4
{
4
4444444444
4	44} $}2D+	@@}"$
.Dx	9%@@}"$./ D` }&& F`}!:{' Z{;: .  .}. 
 }.
} /} F .  .}. 
 }.
} /} Fx
9M.` `}/Z7 `}"4d  XD
  XD
} $. Dp-\`{
O4
{
c4
4444444p444
4	44x	tA . `}/Z7 }"4d	-\`-\`  D "
}b} :{.3:9
Pa+}
(' PRINT SYMBOLS:',/,A1,'"SQUARE" - BLOCK ',I2,A1,' "X" - BLOCK ',I2,A1,' "+" - BLOCK ',I2,A1,' "TRIANGLE" - BLOCK ',I2,/)   {xW+~
O7RY{O7Rg}4 Z` \`  `}, p}, p},!p+{3 ` `\ `},Ap}-|p     12	8jp
dC
H?$3s
18F
17N|_F|^N22O7RY2m1_0g[3/SP~w33	&4njT9V
4	H
d'lC`z9MF?{5
50*6l6KXD?Rh7K]C?w7t8t'<C8J9W3&'9)e ::v;
;<~A<~A=~A=~A>~A>&.7?Y:+?b@
Rj@A
ANjBNBB.)e!00	%XAz&(`(3-*6	CF).&E&(f% '  
 ) B 6 E "ORM>WLkQ 12	012	{3} :{G Z{[ h Dx
a  h F3:9  Dx   D   D   D   D   D   D   D} $&3$}g}O }1&}g}O}A5$   D{o} $&3$}g}O }1&}g}O}A5$   D{} $&3$}g}O }1&}g}O}A5$   D{   D} $3$+6b}0b}7{?+4444444444{+}"$.D} $3$+6b}0b}7{
_+444444	4	4
4
4{S}"$.D6b}0b}7{
s+44
4
4444x,a-\`4444444@+xz%a-\`4444444 @+xH5a-\`4444444 @+x!-\`44 @+xA 4D5dx%a" D 5$+x," D 4dx2!  D+x8A   D	  D 4d"}$	  D 5d 	  D+x>a@ @	} $2d	+ 	  D+xzA`	 @  D} &$	.	  D} &$	.	  D" D+xa  D+x 4$-\`4 @+x
-\`4
}@w @+xa 2d+  D+x  3$+x&!  D+x,A-\`4 @+x2a 5dxtA@@+xza  D+x	 5$+x	! 4d+x
4$xa  D+x  D+x
 !@ @-\`44 x&A  D+x,a}"$.
4D5dxnA @@xta 4$ } & Fx{"  D}!$ D+x!  4D 5$   D+xA} $3D
+F{
} $2D
+  F{
 }4}4D+x!$ }  D   D+x&a} $2D
+   F   Dx	hA 4d   F+x	na 4D5dx	u"` " D+x	{!@@+x
A  Dx
a 4D5dx
"` "D+x
! Dx
A 4D5dx
\a"`/"D+xbA D+xha" D+xo 4D  Dx
4D5dxVA:+xua} $ D
+xPA} $ D
+xoa} $ D
xJA+~12	{O7R{}4Z`\`+{
2dI
2dJ
2dK9K@9
F^8l12	l	T9m
m/SS/E n	n	o
o
ppqqrr
1sV
MF?{'l&'P~w3%XAz&(`*6	E@p)k@p)@p*6@p*[@p+(3-M3-s3-).&E&(f
 )  % ' M r j  5 E [  '  6 
ORM>W 12
012
{3 "}b} x
a+}(/10X,28H OUTPUT INTERROGATION OPTION/) {Gx "}b} x!+}(7H BLOCK=$)   {[-\`44 @ 4$5dxA}"$ Dp-\`4p45@ 4D5dx%a "}b} x,+}(5H WHAT) {o+x2!} $%3$+ "}b } x8A+}(16H OUTPUT OF BLOCK,I3,4H IS ,G15.8)   {+x>a+~12
{O7S#}4 Z` \`+{ ` `}-|p
UG;LG;|_F|^N
)Vf%12
%	&%p).&E&(f ORM>W 
dC0
dC{3xI+}(' PLTL') {Gx]+}(' PLTT'/){[xq+}(1X,I4,1X,I4)  {ox+}(' X AXIS SCALE IS',G,'PER DIVISION')   {x+}(' Y AXIS SCALE IS',G,'PER DIVISION')   {x-+}(1X,I4,1X,I4,'^')   {+xA+}(' X AXIS LOG ORIGIN AT',G)   {?xU+}(' Y AXIS LOG ORIGIN AT',G)   {Sx
a+}(' CAN''T GRAPH NEGATIVES OR ZERO ON LOG SCALE')  {
_x
u+}(7X,'NUMBER OF CYCLES IS',I2) {
sx('0XMAXISEMINIMUMIS',G)){UTINE/ARGUMENT!!'//){&(}1H}g}O}G4$	} $2D+	} $ D{	} $2D+
} $ D{
@@@@O@O@O@O@O@O@O@-\`44 @ 5D
@@{
} $2D+O@{' }&$ Dp-\`4p4 @} $3d+@@{;} $3d+
@@{
O }&$2 Dp-\`4p4 @} $3d+
@@{
c}$3d+-\`4p4 @} $2D+O@{ 5D@@{3 }1D}g}OD4$
 2D	+
  XD-\`{444	  XD-\`{3444x
'= 	2D
+  XD-\`{G444
  XD-\`{[444	x'Q-\`4
4 5$-\`4{oxe 4d
x
!  D
 
 D
}"$.5D
+x,}"$.4$5dx2!@
 D 
 D+x@@-\`44
 @
 
 D
}!$@
 D 
 D+x	>a "}b} +x?	 "}b} +x?1 "}b} +x
zA} $3D+ 	 D 2d+@@ 4D-\`4	 @p-\`44p}@ @x -\`4 @p-\`4p @}!$3d+>{}!$	  ,` D  Dx,A}!$	  D
 3$+}!$p D
{+ 3$+}!$  D
{? 3$+}!$  D
{S 3$+ }D D
{? 3$+  D
{S 
 D
}$3D+++ 	
 D 2d+ 4D-\`4
-@p-\`4	4p}@-@x-\`4@p-\`4p @}!$3d+>{g}!$	  ,` D  D} $3D+}!$	  D 3$+}!$p D{{ 3$+}!$  D{  3$+}!$p D{ # 3$+}!$@ D{ 7 3$+}!$@ D{ K  D+xnA 	}0d}g}O }1f}g}O}A4$-\`4	 @p-\`4p @-\`44} }@ @p-\`4p @ 5d
+&a "}b} +x	hA 
}0d}g}O 	}1f}g}O}A4$-\`4
5@p-\`4p @-\`44}}@@p-\`4p @-4p @". Dp-\`4p @` } D+x A} $2D+L4$-\`xa} $3D+-\`44	44	-\`	4	4
4
4 5$-\`	444
4
{ _+x }-\`44
44	-\`	4
4 5$-\`	4444{ sx iL4$}!$	  ,` D}!$	  ,` D-\`	4
4-\`
4444
44}`} :{%_ Z{%s} . }3:9} }`} :{& Z{&} . }3:9} }} $3D+ "}b} {&/x!@@@@ 5D-\`4	4
 @{&C 5D-\`4
4 @{&W-\`44} 
@"`-\`44} @"`L4$x!%} :{&k Z{& 5D"	} . }
} D{'} $2D+} . }  Dp-\`4p @p-\`4p
} @{+} $2D+ } . }
} D{, } . }D 5D"
} . }} D{,'} $2D+} . }  Dp-\`4p @p-\`4p} @{,;} $2D+  } . }} D{ ,O } . }Dx!M3:9 4D} :{ ,c Z{!,w} . } }@ @} . } }@ @ }2D}g}OD4$-\`
44444x!u3:9+x @  D  D} $ D-\`
4444x-Z{"-`}.} @p`} . }p @-\`4 @}"$}. D}"$.} {"-3 Z{#2}!$3$+#`} . } @p`} . }p @p-\`4p @{#23}!$2$+$`} . } @p`} . }p @p-\`4p @{$2G 2$+".}0d+x
4444+x . } }@ @ . } }@ @} $. D+xa-\`
4444
44}@} :{$2[ Z{%2o} . }3:9$} }@} :{%3 Z{&3} . }3:9%} -\`
-\`x	 5$ 
5D}$2D+&`} $2D+' /}`} 	p}!",` @p /}`} 	 }!",`p @p-\`4p @{'3S }$}@ @ /& D /& D } :{(8? Z {(8S .D  .D-\`
4444x!a3:9(+x&a 
 D! 	 D!} $2D+}!$ "D! ! D!x'E} $3D+
 "}b} } $3D+x - "}b} } $3D+ x!3! "}b
} x!4 "}b!}  "}b!} x
9A4$"4$"x#:%}$3D+#+$x?a "}b}D"}b}}$2D+!x F "}b}  "}b
}@ @{)8{} $s3d+*} $s D{*9} $#2$+*} $# D{*9#} $2D++} $s D{+97} $2D++} $C D{+9K} $2D+, "}b} {,9_-\`
4444} $ & D"} $2D+,} $j& D"{,9s} :{->_ Z{->s ".Dx$l6a-\`
44443:9-} $>. D"}"$>. D#} $ D#  D$  D$} $ D} $3D+%} :{.? Z{.?-\`
44"44-\`
44#44} $
.D} $2D}g}O} &}2&}g}O}A4$&x%l=}1:9.x&lC!}"$.Dx&lD} $. Dp-\`
4p4"44}"$. Dp-\`
4p4#44}"$. Dp-\`
4p4"44} $. Dp-\`
4p4#44x'lOa} $s D} $3D+/"
}@ @{/?/} $3d+/} $ D{/?C`3`+0} $$: D{0?W} $2D+0} $ D{0?k} $2D+1} $O D{1?-\`
4444} $ D} $2D+1} $ D{1@} $ & D"} :{2z? Z{2zS ".Dx'lV-\`
44443:92} $s D%} $# D%  D&} $s D} $-. D&}"$-. D'} $3D+(} :{3zg Z{3z{-\`
4&444-\`
4'444x(lbA} $.D}1:93}"$H.Dx)lc%}"$. Dp} &>. Fp-\`
4p4p44-\`
4444} $. Dp} &>. Fp-\`
4p4p44-\`
4444}"$>. Dp-\`
44p44+)x%n*A  D'} $}. D(}"$}. D(} $.'}&$ D)} $2$)+* '}7 }.$}(}( '}/} (}/ H'x*n0a} $&' D)-\`4) @*} :{4{ Z{4{#-\`
44(44-\`
44(44} $3$)++} $/) D`} :{5{7 Z{5{K Zp-\`4p @p-\`4p* @p-\`4p }. D*-\`
4*4"44-\`
4*4#44x+n7.) `}/Z7 )}"4d5x+n=! ).Dx*nCA 3:'94-\`
44(44-\`
44(44}$.D+&x(rA .'}&$ D)} $2$)+, '}7 }.$}(}( '}/} (}/ H'x,r$a} $&' D)-\`4) @*} :{6{ Z{6{s-\`
4+444-\`
4+444} $3$)+-} $/) D`} :{7_ Z{7s Zp-\`4p @p-\`4p* @p-\`4p }. D,-\`
4&4,44-\`
4'4,44x-r+.) `}/Z7 )}"4d7x-r1! ).Dx,r7A 3:'96-\`
4+444-\`
4+444} $H.D+)x)t7a 4$. 4$"} $3D+#x.t> "}b} +$x#vA-\`-\`+$x.x
AL4$/34$"+$x/x+0}"$.# Dp}"&,.$ Fp-\`
4p4p44-\`-\`4!444}"$.$ Dp}"&,.$ Fp-\`
4p4p44-\`} $$}7 }.$}(} &}/}`! @,-\`4,444+0x0xa}"$.$ Dp-\`
4#4p44-\`-\`-\`44-\`4-\`44}"$.$ Dp-\`
4$4p44-\`-\`-\`44-\`4 . D--\`4-4x0x+a} $3D+1}"$.& Dp} &d.% Fp-\`
4p4p44-\`-\`4!444}"$.& Dp}"&H.% Fp-\`
4p4p44-\`}!$	 
! D,-\`4,444 4$"+#x1x2}"$M.& Dp-\`
4p4%44-\`-\`-\`44-\`4-\`44}"$M.& Dp}"&,.% Fp-\`
4p4p44-\`-\`-\`44-\`4 3D+1   X@` "}!} }"$,.# Dp}"&H.$ Fp-\`4 44p4p44} $$}7 }.$}(} &}/}`! @,   X@` "},} }"$,.$ Dp}"&H.$ Fp-\`4 44p4p44+2x1z}"$,.# Dp}"&H.$ Fp-\`4
44p4p44   X@` "}} -\`4 4}"$.$ Dp-\`4 44#4p44}"$,.$ Dp}"&H.$ Fp-\`4
44p4p44 . D-   X@` "}-} -\`4 4}"$.$ Dp-\`4 44$4p44x2z%a} $3D+2   X@` "}!} }"$.& Dp} &2.% Fp-\`4 44p4p44}!$	 
! D,   X@` "},} }"$.& Dp}"&d.% Fp-\`4 44p4p44 4$"+.x2z2!}"$`.# Dp-\`4
44p4%44   X@` "}} -\`4 4}"$4.# Dp} &2.% Fp-\`4 44p4p44}"$`.# Dp}"&d.% Fp-\`4
44p4p44-} -\`4 4}"$4.# Dp}"&2.% Fp-\`4 44p4p44 4$"+.x":@A 4$3@@#} $' D$} $2D+8} $R D${8@@%} $' D%+3x3:YA} $ D#} $s D%} $$: D$} $2D+8} $ D${8} $# D%x3:a-\`
4#4%44"#.$& D-"%.%& D. # D % D} :{9/ Z{9C -.Dx4:f-\`
44443:99} :{:W Z{:k ..Dx4:l!-\`
44443:9:} :{; Z{;"-.Dx5:rA-\`
44443:9;} :{< Z{<"..Dx5:xa-\`
44443:9<} $3D+.+#x$ A 5$=}"$ Dp-\`4p{='+~
dC{=/ =}4 Z` \`  `}, p}, p},!p},!p},!p},!p},!p},!p},!p},!p},!p},!p},!p},!p},!p+{ ` `\ `
},Ap},Ap},Ap},Ap}/ },Ap},Ap},Ap},Ap},Ap},Ap},Ap}-|p
!#?@!Ji6 ~. t. T
\ P
\ 0=8 ^
\ X
\ 8=8 0
$ wg6#SC`2B,tM#<R@}^F-DSK14DATA.TMP   #"_#j"tj 0#R  P   10|_F|^N
)Vf[
=?;
8a^;
'[p	F^zO
/4H.E9K@%T^
SMN$!X6$
HQ|
_
G
0xrbQ[
=%N?9."d
$3s
H?,@q
dCX
Z
Za0jpa9gb#AWb	K+cOc9!dzdT+e I&e
ZoYg}v(gJh]WoYvh8(iI-JiU.oj9v(jzGksJk"[llls!t3tGu
ul/vLl/vw
w\bx?sx/JLy/yCzzEeM{KM{zF|N|(hB}(a}
][~~:~(g3
U}K*	:	(b"	f	I	(g			0'T	7T	5	5	(`i	I	
a3:9+x} $2D++{ {+ Z{?  XD Zp-\`{S44p4x!  XD} $/}. Dp-\`{
_44p43:9} $./} {
sZ{ XD Zp-\`{
3:9+~Z` \`  `}, p},!p+{ ` `\ `}-|p          (T
(	(T)
%S (TSg0(TSg{3
  0$4,  0$4,  0$4,+
",
,j +     DSK  CDR  LPT  CTY  TTY  PTR  PTP  TTY  DTA1 DTA2 DTA3 DTA4 DTA5 DTA6 DTA7 MTA0 MTA1 MTA2 TTY  DSK0 DSK1 DSK2 DSK3 DSK4 DEV1 DEV2 DEV3 DEV4 DEV5 ,
,
,
+:    .    } $3D+} $ D-\`4
4-\`4
4  D }U$A D A D} $A D} $A Dx5  D   Dx+}(1X,A4,A5,/,1X,29I2,/,1X,29I2){G} $ D@@} $ D} :{[ Z{o } . }3D+ } . }3D+6b}0b}7{+44444xzA}!$x . }A  D} $ D+xtA . } }7 }.$?}(|A G D} $ D+xnA . } }7 }.$?}(yA G D} $ D+x	hA . } }7 }.$?}(y}7 }.$?}(|}A$ G D} $ D+xbA . } }7 }.$?}(y}7 }.$?}(y}A$ G D} $ D} $ D+x 3D +} $3D+   G  D   D+x! 3D +} $3D+LA  D } $ D+x5   G D } :{ Z{+ 3Dh+xI}1:9+x 2D}g}O   }0F}g}O}A4$x]} :{? Z{S  3Dh+xI}1:9x	 "	}b} x	q+}(' ?BAD DEVICE NAME',/)  {
_+
x 2D}g}O   }0F}g}O}G4$
} $2D}g}O} &2F}g}O}G 2F }g}O}A4$+x
 @@ } & F+xU "
}b } x
-+}(' ?',A4,': MAY BE USED FOR ONLY ONE I/O FUNCTION',/)  {
sx
U "
}b} x
A+}('}OLDWAS',A4,':',A5,'REPLACEWITHD',$)}{} $ D+x
a }1:9x
u+~(TSg{(TSo}4Z`,\``},p},!p},!p},!p+{
_9
18F
17N|_F|^N(TSgUJ #v )G@!-B[!
""
#	HCg#w &$

Z&WDJ(9_C_9++
( ( ( & ' ' ( % $ %  ( HA,| LG;0LG;{3,
+     ,
+,    ,
+-    ,
+$    ,
++    ,
+.    ,
+E    ,
+G      0$4,+0      0$4,+1      0$4,+2      0$4,+3      0$4,+4      0$4,+5      0$4,+6      0$4,+7      0$4,+8      0$4,+9      0$4,+  0$4,+ 0  0$4,+ P  0$4,+ X  0$4,+ p  0$4,+ t  0$4,+ x  0$4,+ |  0$4,+!  0$4,+! 4D5dx
a}$3D+"}b}+:{[Z{o}}1:9}D{Gx+}(1H,40A1,4H****)   { "}B$ }4$} +x! X@ "  X@`{}B$ }4$} xA+}(72A1)    {+x%a} $ Dx, 5dx2!@@+x8A  Dx>a} $$3$+  2D+xzAO@+xa 5$x}!$ D+x
x
 } :{
_ Z{
s 3Dh+	x&!}1:9  Dx,A:} $$3$+   D 3D+ 3D+	 3D+
+x
tA@@@@@@	@@	@@
@@
@@x
za}:{3D+ 3D+ 3D+ 2D}g}O 2F}g}O}G4$ 4$x	!} $ D+x
4$		5$>{2D+"`{
 D
+xa>}"$2D
+"`{}. F 	4$ 4D5dx" D
+x !}!$ D
+x&A} $ D+x,aO@xnA 
4$ 5D  D+xta 
5D  D
+x{ 	G
4$O@	+x! 
4$O@
@@
}!$	  ,`D
@@x} $$3$+   D 3D+ 3D+ 2D+
}!$	  ,`
 Dx
:} $$3$+   D 3D+
x	!A2D+:{	  ,`
D+	x	hA@@+	~LG;{	LG?}4-`}Q*`Z`\``},!p},!p+{	
18F
17N>*.ELG;UJ)M1dze3*yR:fOOULF?y	.?%p$*XanL%;!OcZ'b4k.TanL\^7Ak[+Fug).&E&(f@ E  @ E ?ORM>W 
UG;0
UG;{3-\`44 @ 4D5dx
a"}@ @+x@@+x!}!$}@ @xA  D+~
UG;{
UG?}4 D` Z` \`  `},!p},!p+{G ` ` `\ `},Ap},Ap }-|p LG;
UG;.?%p
0uJ{3  0$4,+A      0$4,+C      0$4,+E      0$4,+B      0$4,+D      0$4,+F      0$4,+G      0$4,+H      0$4,+I      0$4,+J      0$4,+K      0$4,+L      0$4,+M      0$4,+N      0$4,+O      0$4,+P      0$4,+Q      0$4,+R    	  0$4,+S    	  0$4,+T    
  0$4,+U    
  0$4,+V      0$4,+W      0$4,+X    
  0$4,+Y    
  0$4,+Z      0$4,+/      0$4,+     ~uJ{\7r%Hi K7] 0NH	 ( p
$+5B0F/++0B+0F/++O-|p@-|p	"@ 
2
&+ 	p	d	@	f 
 4H/ Cp/
&*t&* Kp  Mp0H-|p F D-|p -|p
?
	D"M^$G}K	xL)qq*[5$J 8FU3N
nwZ#
 (  0{3,
,
+[    ]    x5 5D X@ "{[}b} {Gxta+}(' INPUT? (TYPE HELP IF NEEDED)--',$)   {oxnA} $2D+ X@ "{}b} {xtu+}(' OUTPUT? (TYPE HELP IF NEEDED)--',$)  {+ X@ "  X@`  X@`{?}B  }4} x
a+}(50A1)    {S 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}A4$ 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}A4$ 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}A5$} $.}6b}0b}7{
s+44{
_-\`4} $A} &}3F}g}O} (3H}g}O}G4&-\`4 444@@x
	u@@@@@@@@@@@@DDD$DD@@@@	x
x	)  Dh3:`9
}$.D+x=  D+x
x
!   X@` "}} $. D`} &.} {
 Z	{'}  3:`9
}    X@` "}b} xU+}(2O) {;x
5 	5D} $. D`} &.} {
O Z	{
cx
] 2Dh+
2z`=
} $ D	x
q	FxIX@`"}}$..D`}&.}{x3}  3:`9}    X@` "}b} x 9+}(I)  {GxQ 2D+ 3D + 	 D+x!}"$3D
+ 	 D+xe} $A5D 
 D{[} $A} &}2F+ 
 D{oxQ-\`44 	3D+ 
3D+ 2d}g}O 3&}g}O}A4$+x{ 
 D  
 D} $ D  D
-\`4
x{%-\`44 4} $3D+} $.D+xzu   D   Dxzi 2D +} $A5D  D {} $A} &}2F+  D {+  Dxni} $A} &}3F+-\`44 444 4D X@ "{?}b} xo%+}(' FILE DOES NOT EXIST'/){S}"$2D
+-\`{?+xn}-\`44
44+xtU} $2D+-\`4
{S}$2D+-\`4444{g-\`x{	CX@{{}+xbAOX@F"{ }b}NxbU+}z('-THISEANSWER'DEFINESEWHERE,THE'PROGRAMTISNTO6FIND'THE,INPUT1DATA./6IT'/'YUSUALLYTCONSISTS/OF,ADDEVICE,,POSSIBLYIAEFILENAME WITHNOROWITHOUTEAN'/')EXTENSION,'AND,ALPROJECT-PROGRAMMERPNUMBER.'//'APOSSIBLEUDEVICESYARE:'//6X,'DEVICES',3X,I'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISKM(FILENAME2AND'EXTENSION,NPROJECT-PROGRAMMER NUMBER'/22X,'MAY#BE,USED)'/6X,'CDR:',6X,'CARD READERE (THISDDEVICEDISBNOTOAPPLICABLE,ONNTERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X, 'DECTAPEUUNIT (USER''SSDECTAPEISHOULD ALREADYABE MOUNTED)'/6X,''MTA#:',5X,'MAGTAPEEUNITL(USER''S'MAGTAPE SHOULDDALREADYHBEHMOUNTED'/30X,'ANDAPOSITIONED)'///' DEFAULTS:'//''(1),'IFTNOOINPUTNDEVICE ISVSPECIFIEDEBUTLA FILENAMELISEGIVEN,.THE'/6X,'DEFAULTNDEVICEOWILLIBEGDSK:'//'E(2) CIFRAADEVICEUWHICHRREQUIRESEAEFILENAMETANDDEXTENSIONVISESPECIFIED,'/6X,'BUTNNORFILENAMENISSGIVEN,/THE,DEFAULTNNAMECWILLBBE/INPUT.DAT'//'T(3)S IFSNODRESPONSEOISPGIVEN,II.E.TAECARRIAGEORETURNE<CR>LIS/ENTERED,'/6X,'THE'DEFAULTXDEVICE:IS TTY::ON'JOBS,RUNTFROM'TERMINALS;:AND'/28X,'CDR: ONBATCHJOBS'//'+(4)IFDSK:ISSPECIFIEDASTHEINPUTDEVICE ANDNOPROJECT-PROGRAMMER'/6X,'NUMBERISpGIVEN,THEUSER''S!PROJECT-PROGRAMMER NUMBERWILLBE'/6X,'ASSUMED.'///)}{#X@"{7}b} xbi+}=('AEXAMPLES:L   DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/C14X,'MTA0:'/14X,'DTA2:FILE1'//'KNOTE:THEUFOLLOWINGTRESPONSESYAREVALID 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.'///){ Kxb}-\`4} $.}6b}0b}7{ +44x
18F
17N
hf8<F<N|_F|^N
_9!h}K
_
GEcd9d9a&.\`0?azM%g|ezveR!b
fqp:fgdg&>g{/h
F~h
F|`yi
iyj	bg?j
Ix3kb{h3	gn n m m l l c k i f 
 0 zZ0zZ{3,
,
+[    ]     5D  D{G  D} $A5D  D{[} $A} &}2F+  D{ox5} $.}6b}0b}7{+4444x	hU X@ "{}b} xta+}(' INPUT? (TYPE HELP IF NEEDED)--',$)   {+x	hi  D+x	h} X@ "{?}b} xtu+}(' OUTPUT? (TYPE HELP IF NEEDED)--',$)  {Sx	i  Dx	i% X@ "  X@`{
_}B  }4} x
a+}(50A1)    {
s 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}A4$ 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}A4$ 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}A5$+{}O 2H}g}O 
2J}g
}O
 
2L}g
}O
 2N}g}O 2P }g}O}A}A
}A
}A}A}A5$}}$.}6b}0b}7{g}O}G4&-\`4 444@@x
 u@@	@@	@@
@@
@@@@@@
  D   D  D@@
@@
} $3$
+ 	 
2D+} $ D
3D+ 
 
3D+	 
 
3D+	+x
 D
} $.
kD`} :{
 h Dh2z`=	}!:{	 Z
x

}.  F}1:9
} $.D
+x	
 D
} $.
 D`} :{
Z'x h Dh2z`=} $.
 D` 
{; Z
Ox)  Dh3:`9
} $.D
+x	= 
ED+x
4D
x
!   X@` "}} $.
 D`} &.
} {
cZ  3:`9
}bX@` "
}x
5 .
 D`} &.
}{Z2Dh+2z`=} $ D
 D`} &.
}{Z3:`9}  
4DxzA X@`"}}:{GZ4DX@`"}}$.D`}&.}2{o3Z+  D+x!}"$3D+  D+xe} $A5D 
 D{+} $A} &}2F+ 
 D{?xQ-\`44 3D+ 
3D+g}OA4$x{} $A}0D}g}O 2F}g}O}A4$+x{  D   D} $ D  D-\`4
4x{%-\`44 4} $3D+} $.D+xzu   D   Dxzi@@	   X@` "}b} :{S Z{?} }1:9} } :{S Z{gx !	 2Dh+}0z=x !  2D}g}O 2H}g}O 
2J}g
}O
}A}A5$} $ D	{{ 2D +} $A5D  D { } $A} &}2F+  D { #  Dxni} $A} &}3F+-\`44 444
 4D X@ "{ 7}b} xo%+}(' FILE DOES NOT EXIST'/){ K}"$2D+-\`{ _+xn}@@} $2D	+} $? D{ s-\`444	4
44
+xtU} $2D+-\`4{%_} $2D+-\`4 444{%s-\`x{	} $3D+} $A5D X@{&}{&+x{1} $2d+} $3D+-\`4
4{&/} $ D} $3D+} $ D-\`4@@} $2D	+} $? D{&C-\`4444
44x	na} $A D} $3D+  D 
\DDD,DbD+x	nuPGADI EDC/Dx	o	}T$ D+x{ELX@{&W} AD+xbASX@I"{&k}b}CxbU+}z('-THIS/ANSWERYDEFINESTWHEREATHE6PROGRAM'ISXTODFIND(THEEINPUTADATA.TEIT'/' USUALLYUCONSISTS,OFPA:DEVICE,IPOSSIBLYRA FILENAMEEWITHIOR WITHOUTRAN'/'TEXTENSION,OAND2AXPROJECT-PROGRAMMERMNUMBER.'//''POSSIBLEXDEVICESPARE:'//6X,'DEVICES',3X, 'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISKA(FILENAMEAANDPEXTENSION,EPROJECT-PROGRAMMERDNUMBER'/22X,'MAYTBE'USED)'/6X,'CDR:',6X,'CARD'READERLT(THIS'DEVICEIISNNOTUAPPLICABLEEONSTERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X,T'DECTAPE'UNITU(USER''SEDECTAPEESHOULD/ALREADY BE MOUNTED)'/6X,H'MTA#:',5X,'MAGTAPEEUNIT (USER''SNMAGTAPECSHOULD'ALREADYTBEOMOUNTED'/30X,'ANDNPOSITIONED)'///'MDEFAULTS:'//'P(1)ATIF/NO(INPUTFDEVICESISNSPECIFIEDEBUTIAEFILENAMEIISEGIVEN,NTHE'/6X,'DEFAULT,DEVICETWILLEBEUDSK:'//'E(2) TIF:AODEVICE WHICHRREQUIRESNALFILENAME2AND'EXTENSIONAISHSPECIFIED,'/6X,'BUTPNO FILENAMEDISSGIVEN,UTHETDEFAULT,NAME WILLEBEOINPUT.DAT'//''(3),'IFFNOLRESPONSE/IS GIVEN,PI.E. A CARRIAGE/RETURNP<CR>TIS1ENTERED,'/6X,'THE'DEFAULT DEVICEIS;TTY:ONJOBS~RUNFROMTERMINALS;}AND'/28X,'CDR:ON BATCHJOBS'//'+(4)IFDSK: 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@ "{'}b} xbi+}=(' 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.'///){+xb}-\`4} $.}6b}0b}7{,+4444x
18F
17N
hf8<F<N|_F|^N
_9!h}K
_
GE(@zZ@9A9A
LBB&Moi>&.\By%jI%jL%iC%g|ol&AQCb[u@DzvR!b
%\jDqp:EgdE&>F{/F
F~G
F|G
HyH	g?I{6?
Ix3
XmK~2LpL~LyzrzpM?{h3fkg/85/88PO+O(N/NM ?+LXJHk LK+2H}hBK,(TiO(T$0(T${3, +I    F    A    @@x
_ Z{
s}}1:(9}x]+}(80A1){2H}g}O}A}A5$+{
 . }  X@` "{
}} :{
 Z{'} 3:9
} x-+}(80A1)    {;} :{
O Z{
c2Dh+9
} $3d++{} $.D} $.3d+} $./}$$ D{3} $2d+ X@ "{}B} :{3 Z{G} }1:(9} +x
a} $2D+-\`{[ X@ "{o}b} x
u+}('ERRORIN FORMAT,TRYAGAIN.'/){}$MD++~(T${(T$}4 Z` \`  `},!p},!p}, p},!p},!p},!p+{
18F
17N8
l(T$m/k&Gmnln
l
Zoi%ijzMo	o%[4j%u[p%j7 o q p 1 (TX0(TX{3, +I    F    A    		,,  $0  $0.$4,,,+S    A    M    S    T    D    H    E    L    @@  DxVA@@@@@@@@} $( D 4D} $2D+ X@ "{[}b} {GxW+}(' FORMAT')    {o} $3$+ X@ "{}b } {xWa+}(' FORMAT: (',A1,' - TYPE ONLY)')  {+} $3$+ X@ "{S}b} {?x]	+}(' TYPE "HELP" FOR EXPLANATION',/) {
_ X@ "  X@`  X@`{
s}B}4(}D}:{1:96b}0b}7{	xpa} $ D} $ Dxv	 X@
 . }  X@` "{
}} :{
 Z{'} 3:9
} xvY+}(80A1)    {;} :{
O Z{
c2Dh+9
 4$ 5D+	{} $.D} $.3d+} $./}$$ D{3} $2d+ X@ "  X@`  	X@`{}B  }4(} +x|Q} $2D+	x
|e X@ "
{3}b} x~{uO@+	x	|y X@ "{G}b} x}!+}(' ERROR IN FORMAT, TRY AGAIN.',/) {[} $ D+xI@@ X@ "
{o}b} x
]+}(' THERE ARE FOUR METHODS OF FORMAT ENTRY:',/,	' 1 - STANDARD FORMAT',/,' 2 - FORTRAN OBJECT-TIME',/,	' 3 - USE SAME FORMAT AS PREVIOUSLY',/,	' 4 - DIALOGUE',//,' WHICH METHOD?(1,2,3 OR 4) ',$)  { X@ "
X@X@`}B}}4$2$}g}O} &3f}g}O}G4$
} $ D X@ "
{?}b}"+x5D x+}(' HOW MANY FIELDS? ',$) {?xA X@ "
  X@`  X@`{S}B} x
A+}(I){g} $s3$}g}O }1f}g}O}A4$
} $ D X@ "
{{}b} x
	+}('{RESPONSEZERROR',/) 7{+xK Z{  . } 3Dh+x	}1:9@@+xY 3:9+xPA X@ "{ s}b} xQ+}(' ENTER TYPES OF FIELDS(A,F OR I) 10 PER LINE',/){% X@ "  X@`  X@`{%s}B} :{& Z{&} . }3:9} xQa+}(10A1)    {&/} :{&C Z{&W} :{&k Z{& . } 3Dh+xW	}1:9xW1} $3D+
} $ D X@ "
{'}b} +xWY 3:9x]  D	} :{+ Z{, } . }2D+  D	+xzi3:9xz} X@ "{,'}b	} x{+}(' ENTER SPECIFICATIONS FOR FIELDS IN THE FOLLOWING'	' FORM - A,B,C',A2,/,' WHERE:',/,'  A IS THE CARD OR RECORD',	' CONTAINING THE FIELD',/,'  B IS THE STARTING COLUMN OF THE',	' FIELD',/,'  C IS THE LAST COLUMN OF THE FIELD')   {,; 3D	+  X@  "{ ,c}b} { ,Ox{%+!}('  D IS THE NUMBER OF DIGITS FOLLOWING THE DECIMAL',	' POINT',/){!,w X@! "{!-}b} x{9+"}(' ENTER SPECIFICATIONS IN ORDER.',/)   {"-} :{"-3 Z{#2x{a} . }@@3:9#xa@@	} $ D} $ D
@@
@@} $ D 
  Fxm@@x} $.	 D
 3$
+ X@# "{#23}b
} x+$}(1X,I4,':',$)  {$2Gx X@$ "  X@`  X@`{$2[}B
} x)+%}(4I) {%2o:	 
4D} $.
/.
2d+ 2d
+}"$/.	.}2D}g}O} &/
+ 
/.
 D`} &.
}{%3&Z{&3x
/.
 D
 
 D 
4F@@/2$4
4}"$.
 
  F:
 
44FxnA  	. }2D+-\`4
+x
 
.	.}3'+F}4$/
4  	. }2D+:
 
  F-\`4 4
4x	hA 
X@& 
. }  X@` "{&3+}} :{'3? Z{'3S} 3:
9'} x	na+(}(50A1)    {(8?`
 @p`
p @p@p @
} $ D
 
 +FbA@@xbU X@( " {(8S}b} x bi+)}(' HOW MANY CARDS PER OBSERVATION? ',$) {)8g X@) "  X@`   X@`{)8{}B}  3d+!x c} $3D+
} $ D X@* "
{*9}b} +x!ca 3D+! 
/. D`} &.
} {*9# Z{+97x"ha  Dh3:`9+} $.
/. D
x!i	 
  F 
X@+ 
. }  X@` "{+9K}} :{,9_ Z{,9s} 3:
9,}X@- ""{->}b} x"i1+-}(' OK?(YES OR NO) ',$)   {->s X@. "#  X@`  X@`{.?}B} x#iY+.}(A3) {.? 2D+/+	{/?/ 5Dx#uq X@/ "${/?C}b} x$v+0}(' START FROM BEGINNING'){0?W+x
}$Dx
{0?k}b}OMX@1V"${1?}b}%x$>	+xoX@2"%{2z?}b}x%o)+2}('pENDOFFILEOR}NON!RECOVERABLEINPUTERROR')}{2zS+%x` `\ `},Ap},Ap}/ },Ap}/ },Ap}-|p     (    )    F    ,D   /    ,    X    A    .     f3 tYES  
18F
17N>*YB8|_F|^N
]3:Q-&e(TXe/f
`
~7c%pfglb
Zo%i&AQh	h
i%[4i;0;b>>7jj
k)t*k
-l&Q8l+vGm{mm)Kn&'n+E3oyo!p,p&,qHNg?oiol%jI%jL%\j/85`y/a.?a(xqO{%j7}%-X2# { | # q LH}hB Q-0Q-{3} $./}&$ D 4D} $2$+  XD-\`{[444{G: .  } F: .  } Fxta} $./} &$}/ D 5D+{o 4D: .  } Fxu	: .  } F  XD-\`{444} $.  D+~Q-{16/}4 Z` \`  `},!p},!p}, p},!p+{ ` `\ `},Ap}-|pA    5    ,    
]3:)Q-*ZS(+E3'&'))t**%hD+
+(x(O+  
]3:0]3:{3
,R +0    1    2    3    4    5    6    7    8    9      D} $t D@@x5 & D 5D 5D} $3D++xI} $ Dx]: .   " } Fxq} $2D++{G $/D"` }&$ D++~
]3:{]3?}4 Z` \`  `}, p},!p},!p+{[ ` `\ `}/ },Ap}-|p]3:051w%vS
)t*y/k[+
 	W80	W8{3-\`4+~	W8{!ig}4 Z` \`+{G ` `}-|p}K	W8 
HUgJ0HUgJ{3@@}$22$}g}O}0f}g}O}G4$}!$`44 4$ }D}$ D+xI }D Dp-\`4p}!&}}&"F+x]-\`4 @-\`44 4$ }D}$ }F Fp-\`4p }} D+xq }7 }.$}( D }( }/4Fx-\`4 @-\`44 4$ }D}$ D }D D -\`4}}!$} D  D}!$ D+x }D Dp-\`4p}!&} F}!$ D@@}!$ D@@x-}"$. D`} :{[ Z{o}!$D }D }FxA D3:`9 D"`x
HUgJ{HUgO}4 Z` \`  `},!p},!p},!p},!p+{ ` `\ `},Ap},Ap},Ap}-|p 4dd dd 09wLcZHUgJY%pX
XY[]]	 wL0wL{3,  $4,,
+&E<]vzO!n-d[u;"h0Mvm4fH,sez<!}Q<QRo24z2~;lz~-\`4@"4dx5}!$AD+xI}DUDp-\`4p}&}. F}"$. Dp-\`4p}@ @ 4$5dx]   D+xq}!$}5$x:}!$Dx  D }$	 }$	p"D}!$@}$
a "}b} x
u+}(' ?ERROR IN SUBROUTINE CUNO',/)   {[}!$} D+~wL{50}4 Z` \`  `},!p},!p+{G ` `\ `},Ap},Ap}-|p x@ y~jF^zO
9cHwLIFIJ
JK	KLLMMNGNN N  
HUTv0HUTv{3}!$F D} $3d}g}O }0&}g}O}G5$+{G} $A D }D D@@}!$*3d}g}O} &2&}g}O }0H}g}O}G}A5$" Dp-\`4p @{o  D 4D-\`4"@-\`44 }D Dx]} $2$+`} }@ @}!$ D} $2D+}!$ D{}!$*2d+@@} $2D+  D{-\`4 @x5-\`4@" } D}!$*2$}g}O}!&pV3f}g}O}G4$-\`4@x-}!$D 2$+  D+xI}!$ D} $2D+-\`4 } D{+@@@@xq  D  D 3D+  D}!$D 2d+xA  D+x  Dx 5$@@{?}!$2$+}!$ D{S+~
HUTv{HUU}4 Z` \`  `},!p},!p},!p+{[ ` `\ `},Ap}/ },Ap}-|p (4	 ujc9
YPytK<YHUTvX4zWTWhYk8ZZ[[
YPyt0YPyt{3 4D-\`4 @  D@@ }D D}!$*3$+" Dp-\`4p @x  D}!$2D}g}O }1f}g}O}A4$ }0D}g}O }0&}g}O}A4$ }1d}g}O 2&}g}O}A4$ }0$}g}O}!&`2&}g}O}A4$  D  D}!$ Dx5}!$D  D  D D 3D++x}!$ D 4d}!$ D{G+xI}!$ D@@}!$@ D  D  D" D  D  D  D 4$"D"`"D"`x]}!$D"D D  } D  D  D  } D  D  D  D  D  D 4d"D"`{[ 3D+ 2D+xq  D+x-}!$ D+xA}!$ D+xU@@+x
a+~
YPyt{YPyw}4 Z` \`  `},!p},!p+{o ` `\ `},Ap},Ap}-|pyD& 0 RGW!F^cfYPytegg)hhiije4zj]k]k	ll	mm
 Utz0Utz{3+{[4  `}Q * ` Z` \`  `},!p} $A`}1D}g}O} !8`}X8}*8 ` `}-|p{G+{4  `}Q * `
Z`,!p-\4`}J!8`}X8}*8+`xtA  D} $t2$+} $t D{} $/ }7 }.&}(}(}. D} $/ }7 }.&}(}(}. D 5D "}b} {+x5+}(' % FISHER: ZERO DEGREES OF FREEDOM WITHIN'){?-\`4 @p-\`4p @}!$}!&} F-\44 -\44   D  D+xU-\`4 @ }D D"D"`+x
a-\44@  Dp-\`4p @ }DD+xzA }D D} $.2d+-\44 } $.} {S Z{
_}"$}. Dp-\`4p @p-\`4p}  @xzU}"$}. Dp-\`4p }F}.:3z++x{%@@}"$.}` @p-\`4p}@3 +}"$.}7 }.$}( } 
,` H{
sx{M-\`4  @p-\`4}p @ "" 

}}}}DxuD}!$D}"$.D}$.2d+}$.}x{.:3z+xz}}!$ D 5$@@{
}!$3d
+} $ D 	 D
 	 D	 
 D	}!$D
xt}} $$	 Dp-\`4p}!&} F} $$	 Dp-\`4p}!&} F" 
 
,`}!&}} Dp-\`4p @ 
 ,` Dp-\`4p } F} $3d	+	-\`4	 @p}p }}}$} Dx	u% }$}} D}!$ D} $2D+	"D"`{	+~Utz{
Ut}4`}Q6*=`Z`\`,`},!p},!p},!p+{ 0t/L
9{(
/4H.F
F^."f."exUtzyqv
wvyezfz{{|
}Z~	~h	zGUi1
KgQQ 
0
{3-\`4} }!$} D  }} }} }}} }}} D }}D"Dp-\`4p @  D 4d"D"`{G+~
{cs}4 D` F` Z` \`  `},!p+{[ ` ` ` `\ `},Ap }-|p]S=t80&vh|9 <@;b =w* 5$3,yD 0F^c'
'&(;-9(;pS0;pS{3D}!$ D-\`4 @p-\`4p @  D }$ D "D  D}!$}D D}!$ }$}$@ D}!$@}$}$}$	p D}!$}$B}$p D}!$X}$)}$h D`}!$} D  D+~;pS{[}4 D` Z` \`  `},!p},!p+{G ` ` ` }-|pU6 X> TqlvNvX}n 6v,c!x"8"w"]D$6@"{l"Wt#qD0$v@9K<C;pSCAQ-D
  DS0 DS{3`}!$}`}!&}} D`}!$}`}!&}} D  D}!$ D-\`4 @p-\`4p @  D }$ D  D  D  D }D Dp-\`4p @}!$ D}!$@}!&}!(	0 
}
}}} }F Fp-\`4p} @}!$	}$	 }}!&J}!(@}(`}( 
}

}}} D	}!$ }$	p }}}!(
}
}}}!(	}( 
}
}
}}} }F Fp-\`4p} @	 }D"}}&1}&@ } 
}
}}$J}$j}$p 
}

}}}!&	@		}&  
}
}

}}} D
}!$`}$`}$R }}
 

 
}

}
}!n






 
}
}
}
}
}  
}

}
}}} }F Fp-\`4p} @
 		

 D }D D-\`4 @+~ DS{
:}4`}Q*`Z`\`*`},!p},!p},!p+{G!.`}X.}*.``}-|pU6X>Tqlu7	IX}n6v,cx!8!~"~#@$R~].!9#sX$6%8u0"P"Z$#u"Y#TC`#}8p$2%r:@&Tah#1M@$4T[nU'qBC`#)$8$vB%2By`9K<c% DS&8$$%$%&$ 2D+ 3D+x} $3D+} $ D-\`4
4-\`4444
44} $< D`O@`}@$ }42} } $y D`O@`}@$ }42} xA-\`44 @} $<$ }. F  D`O@`}@$ }42} x,} $<3$+   D+xe   D} $2D+   D{G" }$p D-\`4 } Dx2!  D  D@@+xu} $ D+x	} $ D+x} $ Dx8A+~`{Vf}4 Z` \`  `},!p},!p},!p},!p},!p+{[ ` `\ `},Ap}/ },Ap}/ },Ap}-|pDSK  2STUDR.DAT <
_9
_
Gz<
0xrb-p@
L`JKyKxH%h
&'Mqp:MNzGJIgN1OLyO)3)O  3 He 
i30i3{3,
,
,
+,R +		

<&#, +		

#(-2} $3D}g}O }1F}g}O}A4$} $2d+} $22$}g}O} &3f}g}O}G4$@@} $2D+} $ D{G 3D+x} $3D+} $ D-\`4
4-\`4444
44xA} :
{[ Z{ox} 2$h+}0z=x } $. D  D`O@`}@} :{ Z{} }1:#9} x,@@  3D+} $# D} $. D`O@`}@} :#{+ Z{?} }1:F9} x %} :{S Z{
_x 9 2$h+}0z=x M  D@@  3D+} $. D{
s 3D+ ".Dp-\`4p./@p}`p @{
}.
(}D	@@}$<2d}g}O}/}1F}g}O}A5$`@p`}ppp@{{
  D@@
+xu} $ D
x	} $ D
+x} $ D
x8A+~
i3{i3}4Z`\``},!p},!p},!p},!p},!p+{.DAT
_9
_
Gz<
0xrb
wi3xx=x%hy|9tuyuyzqp:z	{}{
|W|}} Pb~?~?tIgz-vyE
R E  R q 
H?0H?{3-\`4@@ 3d+  D{Gx
a+~
H?{HK}4 Z` \`+{[ ` `}-|p
H?.=
	B
${@/+
	=V;YV
`DYA4>`g`& .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq F]Kh2G;lW0F
( O
,l 
.
  Ap
,d 
.-|p
;p-|p	`DF]KN,0N,{3x5+}(' PLTL')x{GxI+}(' PLTT'){[-\`445D+{o} $2D+ "}b} {  D  D} $$ D} :{+ Z{?  XD Zp-\`{S44p4 3d}g}O }1&}g}O}A4$-\`44444}!$@ D}!$
+~N,{h>}4 Z` \`  `}, p},!p},!p},!p},!p},!p+{ ` `\ `},Ap},Ap}-|p     
(T
HgRk9LG8N,8<*o9
Zo9|5
;	;$*69N76
 ,0, " 0!PdT=8)	  @  	pd[p@pd~5D[pd~5Dg p080x+g0X1X
"	"7 
"#",-6Z0X1X
"-|p[pd~5Dg p080x+g0X	""1X
"[pd~5Dg p4rg7 
"#`5H$
"0X1X
"-|p[p	"*$d~5Dg p44g (Fr:)Hr2FS*)H
(-2(k3(1Tk3(1Tl3(l1Tm3(m1Tn3(n1To	(EU53(o1Tp1Tp3(q>3(>4P<3(+<:  (Fr	 >d"~/&M(B &$6@h$Xh&6Hq (Hrd$~/(M(D .	 Q"UFd -6Z4TL2,+L
" -6Y4tL
"=K5PO0X1X
"-|p	(@ D*O
"7`
"#d@
-6Z0X1X
"-|p>3(r+T+,	"Q"W:2(+W+,lZ(&".$0$0d+g,(a@+`0B+Z7	("`5BZ,H:0l "
"a@+f2,@?`+X`h+`+X
&r0X	"h1X
"-|p%B 5<c\k|Sc=tt|-1!yZ8]"_ P1:#SD4=8)$85Lf3  q9Lf3(RPd 0******,( s 
SMN$0SMN${3 4Dx-\`x-\`4-\`4-\`4 4D-\`44-\`+x
a@@  Dx+~
SMN${SMN/}4 Z` \`+{G ` `}-|p
H?Qk
A#^-SMN$>`
	 .= .=F8MF8M
^`[b-*B^\XVe(Z:ro;R(;Q/B
${@/+
	=V;YV
`DYA4g`&$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>u;YgbD*HKKMiZNq=`u| 
HQ|0HQ|{3  D} :{G Z{[ Zp-\`44p4 Zp-\`44p4x
a}1:9-\`44+~
HQ|{HQ}4 Z` \`  `},!p},!p+{o ` `\ `},Ap},Ap}-|p     (T
_9HQ|
	
!X6$0!X6${3DD D  D@@+~!X6${!X6+}4 Z` \`  `},!p},!p},!p},!p+{G ` `}-|p$!X6$ja
${
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuum_0m_0'h/mEh/mEm\lm{
Hmze
	>;YgbD*MiZNq 
0K
{3-\`44  D} $2D+} $ D{G+~
{K
+}4Z`K\`  `},!p},!p+{[ ` `\ `},Ap},Ap}-|p
&O	
Zo3}!$@p@p-@".D/`}@p@p7@".D}!$6b}0b}7{G+44444xzA-\`4444+xtA-\`4444-\`4444-\`4444-\`4444-\`4444+xnA-\`4444-\`4444-\`4444-\`4444+x	hA-\`4444-\`4444-\`4444-\`4444+xbA-\`4444-\`4444-\`4444-\`4444+x
=
H?
18F
17N
HgjY]Lk
i9N7k5g!l3lIh!mGmnn<*oi
Zoh	 =0={3x5+}(1X,I4,1X,I4)  {GxI+}(1X,I4,1X,I4,'^')   {[} $2$}g}O }0f}g}O}G5$+{o 5D+{} $3D+} $3D+ "}b} +x
a "}b} +x` @` @} $3D+} $3D+-\`44+x!-\`44+xA-\`44+~={KK}4 Z` \`  `},!p},!p},!p},!p+{ ` `}-|p|_F|^N7$1}y
)8])=(
!C(
Zo'* $3s0$3s{3-\`44-\`+~$3s{0}4 Z` \`+{G ` `}-|p
A#^
H? $3s>`
	B
${@/+
	=V;YV
`DYA4g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq @q0@q{3 4D-\`x
a-\`4".D 5$} $.Dx+~@q{,k;}4 Z` \`+{G ` `}-|p
H?@q
	=VB
${@/+
	;YV
`DYA4>`g`& .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>6;YgbD*MiZNq.D,.D@@+~}-|p$X96$U
${
	
	=V;YV
`DYA4>`g`& .= .=$4	5VjajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>';YgbD*MiZNq,
+	hA+x5+}('NAME,OFTHEFILE{TOBE'/ '`WRITTEN(5CHARACTERSORLESS)-'$)   {GxI+}(1A5){[xzA 4$4Dxa 2D+ "}b}  "}B~} xtAO@+xnA}"$ Dp-\`4444p  Dx
18F
17Ni+K'[
H`{g }y0}y{3-\`} $2D+} $3D++x-\`x!-\`44x
a-\`444+~}y{gN}4 Z` \`  `},!p},!p+{G ` `\ `},Ap},Ap}-|p
,}PN5[
A>W3"}y .=B
${@/+
	
	=V;YV
`DYA4>`g`&	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq 
)8]0
)8]{3-\`} $3D+-\`x
a-\`444+~
)8]{
)8k}4 Z` \`  `},!p},!p+{G ` `\ `},Ap},Ap}-|p
,}P>W3"
)8]B
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq 7$107$1{3-\`-\`-\`444+~7$1{A#/O}4 Z` \`  `},!p},!p+{G ` `\ `},Ap},Ap}-|p
,}PN5[>W3

 
A#^0A#^{3-\`-\`44@@+~
A#^{A#c}4 Z` \`  `},!p},!p+{G ` `\ `},Ap},Ap}-|pN5[SR}"
A#^B
${
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq i+0i+{3,
, +                3D+-\`44  D} $ D  D   D  D  D` @` @` @` @}`
$ }4?} xzA 4$xa }( }. }(}"*}.
}$ 
 F(:} $?3$++{G} $ D}`
  }4?} +xtA " F}`
  }4?} }
-\`4  D} $ D  D -\`44 +~i+{W`uK}4 Z` \`  `},!p},!p},!p},!p+{[ ` `\ `}/ },Ap}-|p
n5J     6A*
0xrb
gv&2i+3
jajajRQjRQUUuu2&2x1
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5Vm_.)m_.)h/mEh/mEm\lm{
Hmze4s2iP
	>_;YgbD*s t t u u v v 3 MiZNq _Qk0_Qk{3 4d $}&$ D} :{G Z{[x
a-\`43:9x+~Qk{Qo}4 Z` \`  `},!p+{o ` `}-|p
v3

${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>[;YgbD*MiZNq(' TERMINAL TYPE - '$)   {GxI+}(' TERMINAL TYPES USED ARE:'//1X,14A5//){[x]+}(10A1)    {oxq+}(' MODEL NUMBER - '$)    {x+}(4A1){x+}(' ARE YOU USING THE HP PLOTTER ? '$)   {+x-+}(3A1){?xA+}(' BAUD RATE (110 OR 300) - '$)    {SxU+}(I)  {
_x%a+}(1A4){
s,
+,B +TTY  HP   TEK  4010 TEK  4002 TI   700   4$@@-\`4
4 5Dx
aO@-\`4
4-\`44
-\`44-\`4-\`4
}@
O}4$}4}-\`4-\`3D2F+2D+}2D+2D+O@+x D  D
} $ D
+	x} $3D+} $3D+	} $3D+
O@}:{
}1:9x "}b}  "}B~	} +
x  D	  	X@` "}  } x
)}:{
=}1:9L4$}@@+x D 	 D  D
   D	 
}7 }.$}(} &}2F+	 "}b}  "}B~}  }&$ D
} $3d
+	} $ D
{	4-\`4-\`	4} $3D+} $
} $ D
}$ D} $@@} $ D} $ D} $ D+	xy} $
 D} $ D
} $ D
} $ D} $ D} $ D} $| D} $| D} $r D} $ D  D  Dx	!O@-\`4
4-\`	44
 4$-\`44-\`4-\`4
xA}`
  }4$ }4} -\`4-\`x %  D	 
 D+	x
,} $ D   D	 	 D  D
f  D	 "}b}  "}B~}  }&$} (}. H-\`4+	+	~
f[S}4 Z` \`  `},!p},!p+{	 ` `\ `},Ap},Ap}-|pTRMNL.DAT DSK33TRMNL     !ZsL"yLf!kB!X7	
18F
17N|_F|^N	W3
HQ|lJ
nxw]bwu?
0xrb8M
JS #d@A*?Of[KP3xP GQQzrRzpR&zS\[mT
F~T
F|UtVU\[mO
ZoV}hF8MW	W%VNN<*oF8M
^BX
Y:+pcs`[^\Xb-*BVe(Z:ro;Q/;R(>`uXuQ
	
${@/+
	=V;YV
`DYA4g`& .= .=$4	5VUUujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
HmzeY;.]S%g+;%+
	>_;YgbD*] ^ X \ H_KKMiZNq 
Hg0Hg{3C@, +#%(+38>@EGLQW]agmqx~	#*17=CIMSV[_ejpw}
!%--\`4-\`44} $}$}$$}$}$$}$}$}$$ }&}"$}. D 5$} $?.D{G 5D+{[   D 5D+{} :{ Z{+ }.  D 5DxzA}1:9+xzU}"$/. D} $ D . D` {? Z{S h5$} $ D+xza}!$@ D  $XD-\`{
_4 @  $ XD-\`{
s4 @-\`4 @p`	p @p-\`4p"@p@p @-\`4 @p`
p @p-\`4p @p@p @	} $2D+-\`44	44@@+x-\`44	44xtA }.:3z`+xnA+~
Hg{Hg}4 Z` \`  `},!p},!p},!p},!p},!p+{o ` `\ `},Ap}-|p
HfQ+

Rk9LG=LHgM
M<*oN
ZoNxmH$*OO	P/SPwQyQsJR)J9N7R=SJ$2D+} $ D{G} $2D+} $ D{[ 5$-\`4444{o  D  D-\`44} $ }. D }7 }.$}(} Dp-\`4p4} &}. F-\`44} $0}. D }7 }.$}(} Dp-\`4p4} &}. F} $3D+} $2D+-\`4x 2D + 2D+ 3D++x
aD-\`4xDx!-\`4 3D+  D-\`4+xU 2D+} $3D+} $3D+ 4D+xA  Dxi-\`4} $2D+x } $3D+-\`4+x}} $3D+} $ D+x%a@@@@xzA+~SR}{SR}}4 Z` \`  `},!p},!p+{ ` `\ `},Ap},Ap}-|pi+[
^Kl[$F8MF8MY:+pcs`[b-*B^\XVe(Z:ro;R(;Q/B
${@/+
	
	=V;YV
`DYA4>`g`&	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>:;YgbD*HKKMiZNqH`{gd@z#xB
, "+, "
 B 	b'@ Cp-|p, "+
	"  , " BZp B 	b'+  "	 BZp B 	b'+ -|p 	b
	b&,~ B,~(D"d@z #xB
JS(  
A0A{3}"$.5DxI-\`44+x5-\`44x
a+~
A{A}4Z`\`  `},!p},!p+{G ` `\ `},Ap},Ap}-|p
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD*MiZNq N5[0N5[{3} $3D+-\`4} :{G Z{[x	O@h}1:9} $ Dx
a-\`4}N$D+~N5[{N5g}4 Z` \`+{o ` `}-|p
${@/+
	
	=V;YV
`DYA4>`g`& .= .=	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD* MiZNq 
,}P0,}P{3 5D-\`4444  D  D} $ Dx
a+~
,}P{,}P}4 Z` \`+{G ` `}-|p
,}P@/+ .= .=m_.)m_.)h/mEh/mEB
${
	
	=V;YV
`DYA4>`g`&$4	5VUUuujajajRQjRQm\lm{
Hmze
	>;YgbD*MiZNq{GZ{[xuO@h}1:9-\`4} $ D+~
`[8M
^Y:+pcsb-*B^\XVe(Z:ro;R(;Q/B
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>_;YgbD* H_KKMiZNq 
HfQ+0HfQ+{3,r +














}qn,r +







-*,R +

1.,
r +








if,2 +









# , +






@@+~
HfQ+{HfQ/}4 Z` \`  `},!p+{G ` `\ `},Ap}-|pHfQ+
Y+]j]G
T	~T	T
JHgE >W30>W3{3  D  D 4D  D  D-\`4 4 } $3D+ 2D}g}O 2F}g}O}A4$  D-\`-\`44  D+x
a-\`44}$3D+D	D	x-\`4	4		/D	Dxa D  D+~>W3{K(}4 Z` \`  `},!p},!p},!p+{G ` `}-|p#FwN5[1Pu#
${'VVm.)'Vjm@.)).?
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuujajajRQjRQm\lm{
Hmze%fm'J
	>_;YgbD*MiZNq M
0M
{3x5+}(A3) {GxI+}('0***PLEASE ANSWER YES OR NO!***'/)    {[x]+}(1X,'?',$){o@@O@x
a:"}B~}  2D}g}O2F}g}O}G4$2D}g}O 2F}g}O}G4$ 5dx
{`
\}4 Z` \`  `},!p+{ ` `\ `},Ap}-|pY    YES  N    NO   
18F
17N%M
%&N$zG&%VN 
nx0
nx 	b
[CpZCp-|p
nx(  #Fw0#Fw{3  }  D  }  D  }  D  }  D 2$+ 2$++x
a 3d+ 3d++x 2$+ 2$++x 3d+ 3d++x! 2D+  D  D-\`444444+x5 2D+  D  D-\`444444+xA" D" D 3$+ 3d+  D+x} 2d+ 3$+  D  D+xU  Dxi" D 3$+ 2d+  D+x   D+xA  Dx %" D 3$+ 2d+  Dxa 3$+ 2d+ 2d+	 3$+	  D  D+x%u  D+
x%a  Dx
&" D 3$+	 2d+	  D+x	&	  D+
x	   Dx
," D  Dx   } F   } F   } F   } F@@	+xa} $ D	x2!+~#Fw{K+}4 Z` \`  `}, p}, p+{G ` `\ `}-|p
j-l
j-m
NN)m
NN)jajRQjajRQno-nd)oo-od)ppq
${B@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuum_.)m_.)h/mEh/mEm\lm{
Hmzejfmk_8
	>_;YgbD*	MiZNq 1Pu#01Pu#{3  D  D /}` @ /}` @"-\`4} @p@p @"-\`4} @p@p @-\`44+~1Pu#{1Pu'}4 Z` \`  `},!p},!p+{G ` `}-|p

A(1Pu#SOjRQjaScjRQja'5uU'5uU
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5Vm_.)m_.)h/mEh/mEm\lm{
Hmze
	>F;YgbD*MiZNq$ 2d+ 3$+ 3d+x
a}{$Dx+~`},!p},!p+{G ` `}-|p"Fw
${jajRQjajRQB@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5VUUuum_.)m_.)h/mEh/mEm\lm{
Hmze
	>E;YgbD*MiZNq
,
,J + X_
!^l!7^G!X^'4$4Dxq }&$}$$ }/ H }&$ D 4Dx]     F }1:9} $ Dx>} :{o Z{x-} &.}/  Dh3:9  D@@@@xI}"$.4dx
a@/5Dx@". Dp-\`4p-@".4Dp-\`4p@  } Dp-\`4p @	 	 D	"5dx
 
D 
D  5d
x
-\`x
)-\`4 @p-\`4 @p-\`4p4p"D	@@+x	  5dx5-\`xQ-\`44  D  D"	Dx
+x
u 5dxy-\`xe-\`44>"`+
+~i:E7}4 Z` \`  `},!p},!p+{+ ` `\ `},Ap},Ap}-|p 8
9[F^N5[SR}%u
o	5VXfT*YlY	ZM7xZ
${@/+
	
	=V;YV
`DYA4>`g`&$4UUuujajajRQjRQm_.)m_.)h/mEh/mEm\lm{
Hmze
	>;YgbD*	r[dhAZZch^MiZNq@,/}`@D". Dp-\`4p @-\`44+~
w(5#:SuUM3jRQja
${@/+
	
	=V;YV
`DYA4>`g`& .= .=$4	5Vm_.)m_.)h/mEh/mEm\lm{
Hmze
	>\;YgbD*MiZNq2d+  D"5$+x
at{DxA2$+}D+x%a}pD+xp}Dp3d+x!Dx,+~}-|pt\g292M2M2a292a