Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/update.exe
There are 28 other files named update.exe in the archive. Click here to see a list.
?p`?xkB$Kb)C}2tC`INXQF:{A)'[{BE@I(#sX	yA
_4l-\!c4
_4`-\!c4
_4a n5D;-\!c4
a4b"$2Dn+>-\!c4
_4bO@k $ Dk kX@A "Bb +H(1X, 'WMU'/1X, 'FILE UPDATING AND RECORD RETRIEVAL'/)   kX@I "Jb +L(/' *',$)  kX@M "OBQ +P(A5)  cAQG$ 2DcgO d2FQgO d2HQgO 
e2JQg
O
 
e2LQg
O
 f2NQgO f2PQgO g2RQgOGGG
G
GGG4$e+w f3DQgO g3FQgOA4$" f3DQ+ e3DQ+ e3DQ+ g3DQ+ cAQG$ 3Dc+ d3DQ+. f3DQ+$ d3DQ+8 kX@y "zb +~(' UNDEFINED OPTION-TRY AGAIN.'/)  -\!z4k+H j4D	 k $iXD k $iXD l $iXD l $iXD-\4444 $ Dj@@2@@2@@R@@Q@@r kX@ "b +(1X,'WHICH FIELD IS THE KEY?'/)     kX@ "Bs +(I)   : Zm g Dhq1:	9 s h Fq@@p-\U44h4q4-4p4`4m4n"$2Dn+"-\%g $2Dn+$-\%g@@u@@v : Zm $.h,&$ hu. Hhu3:p9& $ p.- Fj&$ 
j(u.Hs-\<4`-\$74`@@qa2Dm+8kX@4"5bl+8(1X,'ENTERRECORDS.'/) $lX@;"Q"8mFX@fB:Zn43:s9<pa2Dm+E`,:EZnM43:s9BE:q+8kX@G"Ibq+O(1X,'THENO. OFRECORDSINlMASTERDFILEISl',I6,'.'/)-\q5DP-\%glX@QqDr$Aq5DV$.qDrrDtqDo $Aq5D[ $.q Do $d.o( D4-\%
 l $iXD
-\o444
4
@@Q $3DR+A+H $ D3 $ Dj k $iXD k $iXD l $iXD l $iXD-\c4444@@Q+H k $iXD! k $iXD" l $iXD" l $iXD#-\+4!4"4"4#+H r4D k $iXD+ k $iXD, l $iXD, l $iXD--\4+4,4,4--\%g $ D3 k $iXD5 k $iXD6 l $iXD6 l $iXD7-\45464647+H k $iXD> k $iXD? l $iXD? l $iXD@-\B4>4?4?4@+H k $iXDG k $iXDH l $iXDH l $iXDI-\4G4H4H4I i DT-\ C4a4`4p4
T4`4`4i-\ C4`4`4p4
S4`4` : Zm@ : Zp 43:s9T m  "Q"8b : Zp 43:s9Y m 3:r9R-\ 74`-\ 74a-\%g-\ C4`4`4p4
T4`4`@qrrs224so48po@!:Zmu1:<9kqDo$Aq5Dr$.qDo-\%iXD l $iXD-\=4444+j $ D3 k $iXD k $iXD l $iXD l $iXD-\o4444+H kX@ "b +(1X,'CANNOT USE ''EXIT'' AS FIRST OPTION.'/) -\!z4k+H kX@ "b +!(1X,'TOO MANY RECORDS'/) -\!z4k+H kX@$ "%b +((1X,'WHICH MASTER FILE?'/)     r Dt kX@+ ".B j4 -\{4j+/(A5,A1)    T2DqgO T2FpgOA4$j $2Dj+> k $iXD< k $iXD= l $iXD= l $iXD>-\4<4=4=4> T Dp T Dq@@j-\"4S4n"$3Dn+M n5DH-\"4T4n n5DU+` kX@I "XbSS -\!z4k+" kX@N "Ob +S(1X,'NAME IS INVALID. TRY AGAIN.'/)-\!z4k+" kX@V "XbTT +](1X,'FILE ',2A5, ' DOES NOT EXIST.'/)   +"-\%g+  +0DSK  TTY  LIST OUTPTPTRECDELETMODIFINSEREXIT NEW  A    I    8.NEW 6(1X, )            X@f "[b : Z 1:9X +\(10A1)     $ D : Z 2DhgO 2FhgOG4$e:1:9^  SX@f "[ : Z 3:9g $/ D : Z  3:9l   TX@f "[ : Z 3:9r $/ D : Z 
 3:9w +~4 Z \  , p+U  -|p.         .    R    A    N                             P    T    K                              q7 .$( &. F} } D~ } Dr@@~ $d.q Dw : Z .y@@ .z@@3:w9 ~7 .$( D ~. D ~.~ D .y  F .z  F $3D+*  D~+ r3D+L" .z. D $3D+I $3D+> $3D+B 7 .$( D . D .z  F .z .z ' F  D~  D~+ $. D .z  F+I $. D .z  F $. D} .z } F .z  D+* r( r.y"'. F} r.z } F"$.r D .z 0DgO .y '0FgOA4$o r( .y"'. F} r( }3F+d r(". F .z } F r( .z"'. F} r( }3F+o r(". F .y } F> 5Dq+v+S+v4 Zx \x  y, p, p, p+ x x-|p $Aq5D	 $.q D
\ u r.
X2d+ + q D
\ u t.
X3d+ t.
X3D+ t.
W  D
\ $ D
] t D
] 
\ Dt 
\/
] D
^+# 
R t.
Y2D+	R6b30b7+44	V4	g4
4
 t.
Y P F+e t.
X  D
\ $ D
]+ 
\0DgO 
\2&
]gO 
\2(
\gO"*2J
^g
O
 ,2L
^g
O
G
GGG4$0+
 
\4DH $2D
]gO 
\2&
]gO 
\2(
\gOAA"&2F
^gOG4$<+T u t.
X3d+X6b30b7+@4C4	y4
	4
;4
;:t t.
W 
\ F 
].
W t F+d $3D
]+O6b30b7+K4N4	y4
	4
;4
;:t+b6b30b7+P4S4	y4
	4
;4
;:t+E $2D
^+h u t.
X3$+[ u t.
X2D+h+6b30b7+]4`4	y4
	4
;4
;:t t.
X 
\ F 
].
X t F t Dt:2 
XXDg-\4g+
P $3D
]+p 
\.
X 4Ds u t.
X3d+} $2D
]+	:+> 
\.
W 4D
+l6b30b7+t4w4	y4
	4
;4
;:t t.
X 
\.
X ' F 
\.
X t F+d u t.
X2D+	+ $3D
]+		6b30b7+	4	4	y4
	4
;4
;:t t.
X t F+b 
\.
WDt+	6b30b7+	
	4
;4
;:t t.
W 
\.
W ' F 
\.
W t F+d u t.
X3d+	+	 u t.
X2D+	+ $3D
]+	
+s $3D
]+	 +	- t.
W 4D	& t D
\ t.
W  Dt+	6b30b7+	'4	*4	y4
	4
;4
;:t t.
W t F+d t.
X 4D	3 t D
\ t.
X  Dt+	6b30b7+	44	74	y4
	4
;4
;:t t.
X t F+d 
\.
X  Dt u t.
X3d+	?+	L u t.
X2D+	B+6b30b7+	D4	G4	y4
	4
;4
;:t t.
X t F 
\.
X t F+d t.
X 5D	N+	3 t D
\ t.
X  Dt+	<6b30b7+	S4
+4	v4	f4f4	e-\ C4
S4
S4
^4

T4
S4
S4
U "	\bu +	e(' YOU ATTEMPTED TO DELETE A RECORD PREVIOUSLY DELETED.'/,' THE KEY IS ',I10,' .'/)  +
P-\E+
P-\ C4
S4
S4
^4

T4
S4
S4
U "	mbu +	v(' YOU ATTEMPTED TO PRINT  A RECORD PREVIOUSLY DELETED.'/,' THE KEY IS ',I10,' .'/)  +
P t.
Y 
R F:2+
P-\ C4
S4
S4
^4

T4
S4
S4
U "	bu +
(' YOU ATTEMPTED TO DELETE A RECORD WHICH DOES NOT EXIST.'/,' THE KEY IS ',I10,' .'/)+
P-\ C4
S4
S4
^4

T4
S4
S4
U "
bu +
(' YOU ATTEMPTED TO PRINT A RECORD WHICH DOES NOT EXIST.'/,' THE KEY IS ',I10,' .'/) +
P u 
\.
X3d+	
+>-\ C4
S4
S4
^4

T4
S4
S4
U "
!bu +
*(' YOU ATTEMPTED TO MODIFY A RECORD PREVIOUSLY DELETED.'/,' THE KEY IS ',I10,' ,'/)  +
P-\ C4
S4
S4
^4

T4
S4
S4
U "
1bu +
:(' YOU ATTEMPTED TO INSERT WITH A KEY WHICH ALREADY EXISTS.'/,1X,' THE KEY IS ',I10,' .'/)+
P-\ C4
S4
S4
^4

T4
S4
S4
U "
Abu +
J(' YOU ATTEMPTED TO MODIFY WITH A KEY WHICH DOES NOT EXIST. '/1X,'THE KEY IS ',I10,' .'/)  $ DR+
P4 Z
V \
V  
W, p, p, p, p+ 
V 
V\ 
Y-|pD MESFIL.   6 2.q D+ $
 $d2$2+-\ C4$4$4,4
%4$4$4& "
jbu+ +(1X,'THE MAX. NO. OF RECORD INSERTIONS HAS BEEN REACHED.'/1X,'START OVER BY ENTERING THE "NEW" OPTION. THE FIRST RECORD '/1X,'NOT INSERTED HAS KEY ',I10,' .'/1X,'THE TOTAL NO. OF RECORDS ','IN YOUR FILE IS ',I5,' .'/)    $ DR+" t DhO@g` : Z, 43:s9  t.( u F+"-\ C4$4$4,4
%4$4$4& "b +(1X,'YOUR FILE CONTAINS MAX. NO. OF RECORDS(3500 ) ','ALLOWED BY THIS PROGRAM.'/1X,'THE FIRST RECORD NOT INSERTED ','HAS KEY ',I10,' .'/)    $ DR+"4 Z' \'  (, p+
_ ' '-|pMESFIL.   6 t DhO@g@ : ZM 43:s9/  H2DmgO I2FmgOG4$> lX@9 "Q"8b : ZM 43:s9: +G lX@@ "Q"9b : ZM 43:s9A +=+G4 ZI \J+- I J-|pTTY  LPT  -\ C4
74s4
=4
S4
84
8 q D
= $Aq5DU $.q D
= 
=.2/2 D
> $ Dt $ D
> $ D
?@@3 
= 
:2$+^ $ D
>+` $ D
?@@t+
 $3D
?+c $ D
?+k 
>.
; t F 
= t.
:2$+
:
> t.
:  Dt+` t D
@ t.
;  Dt 
8 t.
<3D+q-\
\ 
>2D3+s+
6 t.
; 1DgO 
=3hgOA4$ t.
; 5Dl $3$
?+~ 
@ Dt+
 
@ Dt+
:
? t.
;  D
@+l:t 
= t.
:2d+
 $ D
? $ D
>+c 
8 t.
<3D+
-\
\ 
>2D3+
+
6+
 $3D
?+
&+
* 
8 t.
<3D+
-\
\ 
>2D3+
+
6 $3D
>+
>
> 
>.
;  Dt 
= t.
:2$+
 +
 $3D
?+
 $ D
?+
& $ D
?+
* 
8 t.
<3D+
#-\
\ 
>2D3+
%+
6:t+
 
= t.
:2$+
. $ D
>+` 
= t.
;2$+
. $ D
>+` $3D
?+
 $ D
?+
*+
64 Z
9 \
9  
:, p, p, p, p+N 
9 
9-|pD    :3 $Aq5D
D t3Dr+
U t DhO@g@ : Z
d 43:s9
G  
_2DmgO 
`2FmgOG4$
U lX@
Q "Q"8b : Z
d 43:s9
R +
^ lX@
W "Q"9b : Z
d 43:s9
X +
^4 Z
` \
a+
A 
` 
a-|pTTY  LPT   o D  o D!+
h(A5,A1)k-\{4 -\"4S4"$3D+
p "
qb +
x(1X,'THIS MASTER FILE NAME ALREADY EXISTS.USE ANOTHER NAME.'/)    kX@
y "
zbH+STER FILE NAME WOULD YOU LIKE?'/)     kX@
gB  4 +
hkX@+
(1X,'INVALID NAME-TRY AGAIN.'/)    +
x@@ T Dp T Dq-\ C4444
S444$Aq4D943:s9`9:EZ'43:s9 "b s4 +(1X,I10,' IS A KEY WITH A DUPLICATE.'/) +4 Z \  , p, p, p, p+
e  -|p6TTY   $3DQ+H-\ C4v4s44
S4v4v-\<4v $3D3+ w2Dm+- kX@, "-b +.(' #',$)   lX@2 "Q"8  CX@f  wX@gB : Z 43:s93  r Dt s 4 Du u4Dl |XD> }XD? }XD? ~XD@-\
L4>4?4?4@ $2DR+B+t+)-\ 74v-\ 74l $2D3+G t Dr+t-\ C4w4v44
T4v4v@ : Z1:<9L @ : Z1:<9P  r&$ D : Z@ $$ Dz"&.$& (.  Z 
.
}/ 
.
~/3:z9Z  3:9T $$ r3F+k@ $$ &.  Z .}' .~'3:r9f -\ 74w+#-\ C4x4v44
x4v4v4z "rb +v(1X,'KEY IS ZERO AND NOT ALLOWED.'/)    +' kX@x "yb +(1X,'?INVALID CHARACTER IN YOUR RESPONSE. TRY AGAIN.'/)+' kX@ "b +(1X,'ENTER KEY AND NO. OF FIELDS TO BE CHANGED.'/1X,'0 IF WHOLE RECORD IS CHANGED.'/) lX@ "  CX@fB +(3I)  r Dt  Du u4Dl $ D3 |XD }XD }XD ~XD-\
L4444 $3DR+V-\ C4w4s44
S4v4v t DhO@g@ : Z 43:s9# -\ 74w 4DW kX@) "*b +0(1X,'ENTER FIELD NUMBER FOLLOWED BY COMMA AND VALUE.'/) : Z w2Dm+5 kX@4 "-b  lX@8 "T  IX@fB 4  3dpgO 0fgOG4$L s3D+L  u/u D : Z  .u h F43:9D 3:91 }XDJ-\4J $ D3+ kX@N "Ob +T(1X,'?YOU ENTERED AN INVALID FIELD NO.'/)    +1+V(I,16A5)  @@R+ kX@X "Yb +\(1X,'ENTER RECORD.'/)     lX@^ "Q"8B : Z 43:s9_   s3D4+I-\ C4x4v44
x4v4v4z "jb +m(1X,'INVALID KEY FIELD N0.'/) -\ 74x++t4 Z{ \{  |, p, p, p, p+! { {\ ~-|pTTY  MESFIL.   6 r&$ DK : ZK@ $$K DD"&.K$& (.  ZL 
.
G/ 
.
H/3:D9 K 3:K9 $$K r3F+$@ $$K &.  ZL .G' .H'3:r9  : ZK@ $$K DD"&.K$& (.  ZL 
.
F/ 
.
G/3:D9* K 3:K9% $$K r3F+;@ $$K &.  ZL .F' .G'3:r96 -\ 74C+A4 ZE \E  F, p, p, p, p+
-E4E\H-|p $3DQ+
p444`qrrs224s 48p `!: Z u1:<9Y  r&$ D : Z` $$ D"&.$& (.  Z 
.
/ 
.
/3:9d  3:9^ $$ r3F+u` $$ &.  Z .' .'3:r9p  : Z` $$ D"&.$& (.  Z 
.
/ 
.
/3:9{  3:9u $$ r3F+
` $$ &.  Z .' .'3:r9 -\ 74-\ 74+4 Z \  , p, p, p, p+L  -|p6 $3DQ+5-\<4i j2Dm+% kX@# "$b +%(/' #',$)  lX@) "*  3X@f  YX@gBu ++(I)   r Dt mXD1 mXD1 nXD2 nXD2-\
L41414242+ -\ 74l+g-\ C4j4i4o4
T4i4i@ : Zpp1:<99 @ : Zpp1:<9=  r&$ Dq : Zp@ $$p Dk"&.p$& (.  Zq 
.
n/ 
.
n/3:k9G p 3:q9A $$q r3F+X@ $$q &.  Zq .n' .n'3:r9S -\ 74j+ kX@[ "\b +b(1X,'?INVALID CHARACTER IN YOUR RESPONSE. TRY AGAIN.'/)+!+g4 Zk \l  l, p, p, p, p+ k l\ n-|pTTY   $3DQ+7-\ C4I4I4R4
T4I4I4J`qrrs224s 48p `!: ZS u1:<9  r&$ DS : ZS` $$S DM"&.S$& (.  ZT 
.
Q/ 
.
Q/3:M9	 S 3:S9 $$S r3F+` $$S &.  ZT .Q' .Q'3:r9  r&$ DM : ZS` $$S DN"&.S$& (.  ZT 
.
P/ 
.
P/3:N9" S 3:M9 r&$ DS r&$$$ r3H+5` $$S &.  ZT .P' .P'3:r90 -\ 74I $ DQ-\<4J PXD< PXD= QXD= QXD>-\
14<4=4=4>-\ 74l-\ 74K-\!c4
K4L+G4 ZN \O  O, p, p, p, p+r N O\ Q-|p6DSK   $3DQ+-\ C42424<4
T424243`qrrs224s 48p `!: Z= u1:<9a  r&$ D= : Z=` $$= D7"&.=$& (.  Z> 
.
;/ 
.
;/3:79l = 3:=9f $$= r3F+}` $$= &.  Z> .;' .;'3:r9x  : Z=` $$= D8"&.=$& (.  Z> 
.
:/ 
.
:/3:89 = 3:=9} $$= r3F+` $$= &.  Z> .:' .:'3:r9 -\ 742 $ DQ-\!c4
34l-\ C4l424<4
44242 :XD :XD  ;XD  ;XD!-\
144 4 4! $AQ D> >7 .$("&. F?-\ 74l-\ 745-\#4
647424?+04 Z8 \9  9, p, p, p, p+T 8 9\ ;-|p6DSK  NFS. NFS   $3DQ+]-\ C44s44
S44-\<4-\<4 2Dm+L kX@I "Jb +L(/' #',$)  lX@O "Q  ZX@f  X@gBu +R(I)   r Dt XDW XDX XDX XDY-\
L4W4X4X4Y+F-\ 74-\ 74l-\ 74l+-\ C4444
T44@ : Z1:<9b @ : Z1:<9e  r&$ D : Z@ $$ D"&.$& (.  Z 
.
/ 
.
/3:9o  3:9j $$ r3F+@ $$ &.  Z .' .'3:r9{ -\ 74+A kX@ "b +
(1X,'?INVALID CHARACTER IN YOUR RESPONSE. TRY AGAIN.'/)+H+4 Z \  , p, p, p, p+?  \ -|pTTY   \5D l D] ] Dl $AY5D  m D] $AY &2F+$ m D] $.Y6b0b7+&4)414048 kX@* "+b +0(' INPUT? (TYPE HELP IF NEEDED)--',$)    l D^+9 kX@3 "4b +8(' OUTPUT? (TYPE HELP IF NEEDED)--',$)   l D^ kX@< ">  MX@fB h4 +?(50A1)     A2DkgO A2FjgO B2HjgO 
B2Jig
O
 
C2Lig
O
 B2NhgO C2PhgOAA
A
AAA4$M A2DkgO A2FjgO A2HjgO 
D2Jig
O
 
D2Lig
O
 E2NhgO B2PhgOAA
A
AAA4$T E2DkgO C2FjgO B2HjgO 
F2Jig
O
 
C2Lig
O
 F2NhgO G2PhgOAA
A
AAA5$t+? A2DkgO A2FjgO A2HjgO 
G2Jig
O
 
H2Lig
O
 D2NhgO A2PhgOAA
A
AAA5$
 $.Y6b0b7+4y4>@@^-\ 74^ $AY &3FgO (3H_gOG4&-\#44H4I4	@@_@@n@@_@@`@@`@@a@@a@@b A DZ A DZ A D]@@b@@c:b $3$b+@ I b2Dg+! $ Dc J b3Dg+' J b3Dg+3 K b3Dg+?+ $.b D` $.b DT : Zc he Dhg2zT=+!: Zc b. A Fg1:9. $.Db+ $.b D` $.b DU : Zc hc Dhg2zU=7 $.b DU b Zc A Dhg3:U9; $.Db+ b Da+ `4DN  X@f "> $.` DV &.`  Zc  g3:V9F   X@f "Mbab +N(2O)  c5DW $.` DV &.`  Zc A2Dhg+V2zV=R $ Dc c I Fh  ZX@f "> $.` DW &.`  Zc  g3:W9\  `4Df  ]X@f "> : Zc g1:9c  a4Ds  X@f "> $.a DW &.a  Zc  g3:W9l   X@f "rb	 +s(I)   A2D]+ A3DZ+w K D]+"$3Dn+z L D]+ $AY5D} L D] $AY &2F+ M D]-\!c4]4^ K3D]+ M3D]+ M2d]gO N3&]gOA4$ $AY0DgO L2F]gOA4$Y+h N DZ O DZ $ D_ ^ Dd-\!c4
O4^-\"4^4Z4d $3Dd+ $.DZ+ Z D Z D@@n  ZX@f ">b : Ze g1:9  : Ze A2Dhg+&0z=# P e2DggO C2HggO 
Q2Jfg
O
AA5$/ $ Dn A2DZ+7 $AY5D3 Q DZ $AY &2F+6 R DZ R DZ $AY &3F+F-\"4^4Z4d4a4b d4DF kX@? "@b +C(' FILE DOES NOT EXIST'/)"$2Dn+E-\%g+$@@f $2Dn+I $? Df-\ C4^4f4_4
Z4a4b+
 $2D_+O-\ 74d $2D_+S-\#44H4I4	-\%g $3D^+v $AY5DX ^X@X+h $2d	+h $3Df+]-\!c4
O4	 $ Df $3D^+v $ D^-\ 74	@@f $2Dn+e $? Df-\ C4	4f4g4
S4P4P $AY Dg $3Dg+r a D b D ] Dm ^ Dl Z Do Z Do+u Z D Z D ] Dm $ D\+? 	X@w 	 D^+h kX@{ "|b +w('-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.'///)     kX@x "zb[\ +8(' 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.'///)-\ 74k $.Y6b0b7+;4)414)41 kX@? "@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'///)    +8+?4 ZX \X  Y,!p+ X X-|p     H    S    I    N    F    E    M    A    U    T    O    C    P    L    .    :    [    /    DSK  TTY  CDR  LPT  DTA0 DTA9 OUTAAA.AAADSK  K    B    INPUTOUTPT.DAT TTYDAT.TMP[    ]    @@o j Dp@@m@@p@@m@@q $( Dq l4D $2Dl+ kX@ "b +(' FORMAT')     $3$l+ kX@ "b l +(' FORMAT: (',A1,' - TYPE ONLY)')   $3$l+" kX@! ""b +&(' TYPE "HELP" FOR EXPLANATION',/)  kX@* "I  DX@f  `X@gB 4(  : Zr : Zr h &$.r2D-+51:9-6br0b7+34?4>4m r1:9, $3Dq+B : Zr a3Dh+= a2Dh+`+@3:q99 $ Dm+\+\ $ Ds $ Dq qX@E s.j  X@f "I : Zr 3:q9F +K(80A1)     : Zr a2Dh+N:p b2Dh+P>p3:q9L p4$` p5DS+\ $.Ds $.s3dp+Y $.p/s$$ Dq $2dq+` kX@^ "I  DX@f  eX@gB 4( +B $2Do+e kX@c "/b O@m+\ kX@g "hb +l(' ERROR IN FORMAT, TRY AGAIN.',/)  $ Do+@@o kX@o "pb +(' 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) ',$)   kX@ "$  DX@f  X@gBs  $2$sgO &3fsgOG4$6bs0b7+4>44?4 $3Do+b $ Do kX@ "/b +m l5D2@@o kX@ "b +(' HOW MANY FIELDS? ',$)  kX@" "$  DX@f  *X@gBl +%(I)   $s3$lgO l1fgOA4$2 $3Do+b $ Do kX@. "/b +2(' RESPONSE ERROR',/)    + : Zr : Zr r.k 3Dh+91:94@@o+; r3:l93+Y kX@< "=b +C(' ENTER TYPES OF FIELDS(A,F OR I) 10 PER LINE',/) kX@F "K  DX@f  RX@gB : Zr .k3:l9G +L(10A1)     : Zr : Zr r.k 3Dh+W1:9N $3Do+b $ Do kX@V "/b +; r3:l9M a Dt : Zr b .k2D+_ c Dt+`3:l9Z kX@a "cbt +z(' 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')    a3Dt+~ kX@} "~b +('  D IS THE NUMBER OF DIGITS FOLLOWING THE DECIMAL',	' POINT',/) kX@ "b +
('ENTERSPECIFICATIONSIN@ORDER.',/) : Zr .j@@3:j9t Dw l3$w+z kX@ "bw +(1X,I4,':',$)   kX@" "%  DX@f  5X@gBwxxy +&(4I) :t w4D7 $.u/v.w2dj+L v2dw+7"$/v.x0ds+7 x2dx+7 $/x.x t.k D b t.k2DgO &/x.x2&ygOA4$7 v3Dw+H u/v.w Dg &.u  Zr c Dh{3:g9? $.u/v.w Du w Dv u d F{@@v x4Dz v2$x+7"$/v.x Dy y4DT-\r4{4u4y"$.x Dv:u u d F{:u u d F{ e t.k2D+Y-\Q4x4x4{4u+h:u u t.k ' F{ $/x.x Dz $13$z+7-\r4{4u4z b t.k2D+h:u u e F{-\r4{4u4y uX@l u.j  X@f "p : Zr {3:u9m +q(50A1)    `uf @n`ufn @n@n @u $ Du u d F{ x Dv+@@o kX@| "}b +(' HOW MANY CARDS PER OBSERVATION? ',$)  kX@ "%  DX@f  X@gBz  v3dz+
 "/b +z v3Dz+ u/v.z Dh &.u  Zr c Dh{3:h9 $.u/v.z Du u b F{ uX@ u.j  X@f "p : Zr {3:u9  kX@" "#b +&(' OK?(YES OR NO) ',$)    kX@) "+  DX@f  DX@gB{ +,(A3)  g2D{+.+\ n5Dd kX@0 "1b +4(' START FROM BEGINNING')+ $3Do+b $ Do kX@9 "/b  kX@; "<b +C(' SPECIFICATIONS MUST NOT OVERLAP OR BE OUT OF ORDER',/)   >t+ kX@E "Fb +L(' END OF FILE OR NON RECOVERABLE INPUT ERROR')   +T kX@N "Ob +T(' STORAGE CAPACITY EXCEEDED FOR FORMAT')     $ Dm+\4 Zh \i  i, p,!p, p, p,!p,!p,!p,!p+
 h i\ m,Ap,Ap/ ,Ap/ ,Ap-|p     (    )    F    ,D   /    ,    X    A    .     f3 tYES  I    F    A    S    S    H    A    T    E    M    D    L     $.[/[&$ D] ]4D@ $2$]+; \XD:-\r4:4\4]:\ \.\ X F:\ \.\ X F $.[/[ &$]/ D^ ^5DE+U ]4DI:\ \.\ Y F:\ \.\ X F \XDM-\r4M4\4^ $.] ^ D^+U4 ZY \Z  Z,!p,!p, p,!p+3 Y Z\ \,Ap-|pA    5    ,     { D| $t D}@@} |&} D~ ~5Dg }5Dg $3D}+g+k $ D}:{ {.z ~  ~ F $2D}+m+v }$~/D|"`| }&$ D}+b+v4 Zy \y  z, p,!p,!p+_ y y\ {/ ,Ap-|p0    1    2    3    4    5    6    7    8    9     \h @i<p0<0|+1\+,>pZp+p@h4@p4@(N@0X@x;@;@8Z@(H@PR@PS@h4@@ @4@4xpG[(/<0"`S<pX<0 p3@q+*|-<~Z`+G!  @w+<r p7 p+4,>,>,> &w p,/,&.<7@p+- p,/"r `.< p`s w,&,&5 .< pds:." Q,& p,&>`9*.<9@@,^,^,^+4d @@& 0b.".")B}5@0,~m<!<P\d<r p[pl<0@X+:Zp.</ pQ \e+=@@e!<P\d7@g+@ <h \f@@g!<P\dXX\d t7@fD<7@gA< \e <d[`x i,x,^x h+ Q< \d:  \e<t p`|u < \e@@f+D@@e Q< \d<t p`|u+D7w x \e @WXQ< \d y \e+D[`x i,x+_Z \d@@e@@e<r \f+D7g fX\@@g@@f+F>x! Z @
&yU`eB+o@)@G 
"+l
&}+!6$1,>%i.@
p.46${X^.
.4e.dSEQIN@vSEQOUT@w@W
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+ 	~+ Z. \x <x*<x .->!Lez+ 	!"	b+  " 	b+Z. h+ggM?Th
& 	b+~,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* 3**,^,~*x,> < 3*< 6  pZ@ )@@ *@@ *  j`|+ Pw,~ "p h a`~+ #h  ``~+ $$ k! %d k/"+ P,~@@@ @@0@x@@@`edX91,>%i,>Zp @ )\` ) < ),,^,~SMI 1,>%i,   m B )+ M_MI 1,>%i,   n B )+ MI5R1,>%i,   p B )*\ X7ApX" p B )/& pd"~l" B )*\ X/& pd"~l"$ B )*\ X/& pd"~l"
 B )*\ XSp*\ X/&Xp B 2@@ 3  q B )*\ X/& pd"~l" B )RF ) < ),+ EV4i91,>%i+ eS,i@1,>%i+ e_,i@1,>%i+ eK>21,>%i+ eK>401,>%i+ e[<I71,>%i
& r w @)@. 
"5B g
& x,~`.
.4SEQIN^ lSEQOUT^ mRANDOM^ oSEQINOUT 2
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>%iO@!6+ }gR~@1,>%i@@!6,>,>@6 w+!	"!70B+!!"A`X#p5@!/#p!"X#p+!	\p+!	a.9'1,>%i,>,>O@!6+!	,>
6+ _4`!"`Q@,> <!8,,^,> <!;,
,^*b!+!,> <!<,,^7@!6+!,> <!?,
,^+!,> <!A,
,^Z5"!,> <!B,
,^,7@!6,
,> <!D,,^,,> <!G,,^,> <!J,
,^(@qd1@,,
1@#+!+0@*+!,> <!K,,^+!,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX!3p X!4p !5p !6p X!-X~!2p x!$hX$h@@h*% "!S BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>%iZ.@6kp2j8M+!t !pQ A` !m\$}
4L!k/,L8$!i.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&!m <!s,
iSN,>%i@ApO
,7 OAp,~I5r1,>%iO@
,4"!~,"Q``,~ <",
44"4".KbN=1,>%iO@". p4B"
,"Q4@"
9"9"
KbN=1,>%i@@".!$Lu 	`@Ap``a`+",a`+"- D"A (`"/"#B"@@" !pX@",> <","4,^7@".+"OAp+"- #pQ"A` $1@+"0`=d"! H: @"@@"a|+"$[pd0@ +"([pd0@ +"(+"'_w6@"._w#`1 +"(SpXp @"
"+"+@"+",+"-
&"/+"-   Ap ,~ ERROR ON OPEN!
HH"3H"3G.t21,>%i@@Ap! A`.!p @"1 "1 @"2@@"3@@"3 & ""1<1D+"@-"K=b";"1<0D+"HO " "2 @"2"1<-"K=b"B7@"3OAp !p<, "3, "3,~<&"D"11D+"G   Ap+"D1D+"G1$+"D1d+"P0$ 0d-+"D $D"2+"K""m,"z0@+"i p4B"lLad+"h`b+"i $0d"+"l&$$&(&}Z.G"n.&$.$ 7F+"_  ,~ A$&$(DG$1$((D(D
 	`5@"k .2bM+"g L.&7D!$Lu+"j2""n+"d &p,"r 	`,~
&"o <"r,
.p M}ILLEGAL DEVICE NUMBER!
""y,"z 'Q&A` "z@1x,~180.8X=`"u,~.H  a|+"~0"0b/ ,~0B1B,~0B/ ,~aJMm1,>%i,$I+#@,#s,$E+#Z"6Ep " B` "b#& $7cp $1B $d#',# ,$+#6cp0b "b#'$#S ({."XB`&$@6@.$.$
a|+#[pdp0B +#+#_w#`1"+#6cp 0d $QD`,#\+ ,$P ,~
&#(+#
&#*+#@b -p .Q,A` 
#,4P#&1P+#-/0P=n#",~`
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH . 
#-+#"YC GaSa3 S;YC&<G<aS<a3&<E$;w|x#4 P#/ B`1T!"L	b@XB`O@#O $a #N@,$P
+$Y!,2,$:@!.~,$P`+$a""1T""QB#M,$P	f+ 1$9#m+$H 8#4@`#4 $c*(#L $d	n@`N+$i 6`
 $j1T $j B` " B`\"
	b@ B`\"k	b!"Z(Brb$k	b
 B#O	b
+"	B`!"2	b`b`b+$l+$m	d!$LuGB#ND#N,~@@#Q,$m*(#X B#R D#R@BX,B` DXZ#P(D}	d ` D#Q DX "2D`b$nd  "b$n,$P@#Q+$o #X BX@@#X $q	b$+$!!"#YX"X*"X!"`
+$4!,2,$:B,$P"X
#R #S,$P +$4 JX,$P +$H
&$r "b$na`+$2+$a`+$2,$P #Q+ +$2 	x H$B	h	&(2 
P#/ $x.#O &..0P`bp+$>d
@ #N,$P+$B`L+$< #N+$H (!*Lu@
,$P
,~:x,~ " B$`O@#PO@#Pg "?$$`+$X	d5D$L $`(D D#P+$H,> e`p+$T7 #P+$Wl!#P+$U7 #P+$Wl!#P:+@>,^+$H
&$y,~ "
&${,~ "
&%,~,$_
&%
& ,$_	b (%	+$\
&%
,~@;`#O+#`+$Z6@#40CMQ Cannot do MPB QUEUE on GALAXY system. ($d+$\`` `P$` h:#R
XHXa`,~!"GB`+$2@#X6$#S
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0NO FREE CHANNELS!

% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!

% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMRCNC Can't CONTINUE -- try REENTER
C2d;y1,>%i6#p0b+%X@Ap %` $	b2+%F "6@&Z&." p4D%;.$(B{(D{0d+%X B%_ D%_ ( & Q&	f2+%4&%1(~9% H%^3H%_+%)2(%_+%1.(3(%_ %_ H%^@@%`@@%=S"xZH%>:%=.(3h%_*b%#!$6@%`GD%> %a	d2+%+3h%_+%" %_(F+%V6@%`+%-O@%`+%%OApZ%>3b%^+%X/"*%^ B%_+%1@Ap %_:!&@@%=!"x H%>:%=GF%>.(3h%^*b%4 %a	d2+ 3h%^+%36Ap+%X+%)Z	b+ @gp+%W6@&+%KZ.$1$ $!	d+%X $QD&,%Z pZaD $ %a	fQ&[[&.&."`b+%X!."!`aB	b:p	d+%X/'p.& Gp,~OAp,~G3]x1,>%i@	`+%],~
&%b	` %=p 
Cannot write-enable high segment data area.
KbN@1,>%i,
,~%jY\%kQ<X\%l*+