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 ` ?x kB$ Kb)C}2tC` INX Q F: { A) '[{B E@I (#sX y A
_4 l-\ !c4
_4 `-\ !c4
_4 a n5D ;-\ !c4
a4 b"$ 2D n+ >-\ !c4
_4 bO@ k $ D k kX@ A " Bb + H(1X, 'WMU'/1X, 'FILE UPDATING AND RECORD RETRIEVAL'/) kX@ I " Jb + L(/' *',$) kX@ M " OB Q + P(A5) cA QG$ 2D cg O d2F Qg O d2H Qg O
e2J Qg
O
e2L Qg
O
f2N Qg O f2P Qg O g2R Qg O G G G
G
G G G 4$ e+ w f3D Qg O g3F Qg O A 4$ " f3D Q+ e3D Q+ e3D Q+ g3D Q+ cA QG$ 3D c+ d3D Q+ . f3D Q+ $ d3D Q+ 8 kX@ y " zb + ~(' UNDEFINED OPTION-TRY AGAIN.'/) -\ !z4 k+ H j4D k $iXD k $iXD l $iXD l $iXD -\ 4 4 4 4 $ D j@@ 2@@ 2@@ R@@ Q@@ r kX@ " b + (1X,'WHICH FIELD IS THE KEY?'/) kX@ " B s + (I) : Z m g Dhq1: 9 s h Fq@@ p-\ U4 4 h4 q4 -4 p4 `4 m4 n"$ 2D n+ "-\ %g $ 2D n+ $-\ %g@@ u@@ v : Z m $ .h,&$ hu. Hhu3: p9 & $ p.- F j&$
j(u. H s-\ <4 `-\ $74 `@@ q a2D m+ 8 kX@ 4" 5b l + 8(1X,'ENTERRECORDS.'/) $ lX@ ;" Q" 8m FX@ fB : Z n 43: s9 <p a2D m+ E` ,: EZ nM 43: s9 BE : q+ 8 kX@ G " Ib q + O(1X,'THENO. OFRECORDSINlMASTERDFILEISl',I6,'.'/)-\ q5D P-\ %g lX@ Q q D r$ A q5D V$ . qD r rD t qD o $ A q5D [ $ . q D o $ d. o( D 4-\ %
l $iXD
-\ o4 4 4
4
@@ Q $ 3D R+ A+ H $ D 3 $ D j k $iXD k $iXD l $iXD l $iXD -\ c4 4 4 4 @@ 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 $ D 3 k $iXD 5 k $iXD 6 l $iXD 6 l $iXD 7-\ 4 54 64 64 7+ H k $iXD > k $iXD ? l $iXD ? l $iXD @-\ B4 >4 ?4 ?4 @+ H k $iXD G k $iXD H l $iXD H l $iXD I-\ 4 G4 H4 H4 I i D T-\ C4 a4 `4 p4
T4 `4 `4 i-\ C4 `4 `4 p4
S4 `4 ` : Z m@ : Z p 43: s9 T m " Q" 8b : Z p 43: s9 Y m 3: r9 R-\ 74 `-\ 74 a-\ %g-\ C4 `4 `4 p4
T4 `4 `@ q r r s 2 2 4 so 4 8 po @ !: Z m u1: <9 k qD o$ A q5D r$ . qD o-\ %iXD l $iXD -\ =4 4 4 4 + j $ D 3 k $iXD k $iXD l $iXD l $iXD -\ o4 4 4 4 + H kX@ " b + (1X,'CANNOT USE ''EXIT'' AS FIRST OPTION.'/) -\ !z4 k+ H kX@ " b + !(1X,'TOO MANY RECORDS'/) -\ !z4 k+ H kX@ $ " %b + ((1X,'WHICH MASTER FILE?'/) r D t kX@ + " .B j4 -\ {4 j+ /(A5,A1) T2D qg O T2F pg O A 4$ j $ 2D j+ > k $iXD < k $iXD = l $iXD = l $iXD >-\ 4 <4 =4 =4 > T D p T D q@@ j-\ " 4 S4 n"$ 3D n+ M n5D H-\ " 4 T4 n n5D U+ ` kX@ I " Xb S S -\ !z4 k+ " kX@ N " Ob + S(1X,'NAME IS INVALID. TRY AGAIN.'/)-\ !z4 k+ " kX@ V " Xb T T + ](1X,'FILE ',2A5, ' DOES NOT EXIST.'/) + "-\ %g+ + 0DSK TTY LIST OUTPTPTRECDELETMODIFINSEREXIT NEW A I 8.NEW 6 (1X, ) X@ f " [b : Z 1: 9 X + \(10A1) $ D : Z 2Dhg O 2Fhg O G 4$ e: 1: 9 ^ SX@ f " [ : Z 3: 9 g $ / D : Z 3: 9 l TX@ f " [ : Z 3: 9 r $ / D : Z
3: 9 w + ~4 Z \ , p + U -|p . . R A N P T K q7 .$ ( & . F } } D ~ } D r@@ ~ $ d. q D w : 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 0D g O . y '0F g O A 4$ o r( . y"'. F } r( }3F + d r( " . F . z } F r( . z"'. F } r( }3F + o r( " . F . y } F> 5D q+ v+ S+ v4 Z x \ x y, p , p , p + x x-|p $ A q5D $ . q D
\ u r.
X2d + + q D
\ u t.
X3d + t.
X3D + t.
W D
\ $ D
] t D
]
\ D t
\/
] D
^+ #
R t.
Y2D + R6b 30b 7 +4 4 V4 g4
4
t.
Y P F+ e t.
X D
\ $ D
]+
\0D g O
\2&
]g O
\2(
\g O "* 2J
^g
O
, 2L
^g
O
G
G G G 4$ 0+
\4D H $ 2D
]g O
\2&
]g O
\2(
\g O A A "& 2F
^g O G 4$ <+ T u t.
X3d + X6b 30b 7 +@4 C4 y4
4
;4
;: t t.
W
\ F
].
W t F+ d $ 3D
]+ O6b 30b 7 +K4 N4 y4
4
;4
;: t+ b6b 30b 7 +P4 S4 y4
4
;4
;: t+ E $ 2D
^+ h u t.
X3$ + [ u t.
X2D + h+ 6b 30b 7 +]4 `4 y4
4
;4
;: t t.
X
\ F
].
X t F t D t: 2
XXD g-\ 4 g+
P $ 3D
]+ p
\.
X 4D s u t.
X3d + } $ 2D
]+ :+ >
\.
W 4D
+ l6b 30b 7 +t4 w4 y4
4
;4
;: t t.
X
\.
X ' F
\.
X t F+ d u t.
X2D + + $ 3D
]+ 6b 30b 7 + 4 4 y4
4
;4
;: t t.
X t F+ b
\.
W D t+ 6b 30b 7 +
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 D t+ 6b 30b 7 + '4 *4 y4
4
;4
;: t t.
W t F+ d t.
X 4D 3 t D
\ t.
X D t+ 6b 30b 7 + 44 74 y4
4
;4
;: t t.
X t F+ d
\.
X D t u t.
X3d + ?+ L u t.
X2D + B+ 6b 30b 7 + D4 G4 y4
4
;4
;: t t.
X t F
\.
X t F+ d t.
X 5D N+ 3 t D
\ t.
X D t+ <6b 30b 7 + S4
+4 v4 f4 f4 e-\ C4
S4
S4
^4
T4
S4
S4
U " \b u + e(' YOU ATTEMPTED TO DELETE A RECORD PREVIOUSLY DELETED.'/,' THE KEY IS ',I10,' .'/) +
P-\ E+
P-\ C4
S4
S4
^4
T4
S4
S4
U " mb u + 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 " b u +
(' YOU ATTEMPTED TO DELETE A RECORD WHICH DOES NOT EXIST.'/,' THE KEY IS ',I10,' .'/)+
P-\ C4
S4
S4
^4
T4
S4
S4
U "
b u +
(' 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 "
!b u +
*(' YOU ATTEMPTED TO MODIFY A RECORD PREVIOUSLY DELETED.'/,' THE KEY IS ',I10,' ,'/) +
P-\ C4
S4
S4
^4
T4
S4
S4
U "
1b u +
:(' YOU ATTEMPTED TO INSERT WITH A KEY WHICH ALREADY EXISTS.'/,1X,' THE KEY IS ',I10,' .'/)+
P-\ C4
S4
S4
^4
T4
S4
S4
U "
Ab u +
J(' YOU ATTEMPTED TO MODIFY WITH A KEY WHICH DOES NOT EXIST. '/1X,'THE KEY IS ',I10,' .'/) $ D R+
P4 Z
V \
V
W, p , p , p , p +
V
V\
Y-|p D MESFIL. 6 2. q D + $
$ d2$ 2+ -\ C4 $4 $4 ,4
%4 $4 $4 & "
jb u + + (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,' .'/) $ D R+ " t D hO@ 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,' .'/) $ D R+ "4 Z ' \ ' (, p +
_ ' '-|p MESFIL. 6 t D hO@ g@ : Z M 43: s9 / H2D mg O I2F mg O G 4$ > lX@ 9 " Q" 8b : Z M 43: s9 : + G lX@ @ " Q" 9b : Z M 43: s9 A + =+ G4 Z I \ J+ - I J-|p TTY LPT -\ C4
74 s4
=4
S4
84
8 q D
= $ A q5D U $ . q D
=
=. 2/ 2 D
> $ D t $ D
> $ D
?@@ 3
=
:2$ + ^ $ D
>+ ` $ D
?@@ t+
$ 3D
?+ c $ D
?+ k
>.
; t F
= t.
:2$ +
:
> t.
: D t+ ` t D
@ t.
; D t
8 t.
<3D + q-\
\
>2D 3+ s+
6 t.
; 1D g O
=3h g O A 4$ t.
; 5D l $ 3$
?+ ~
@ D t+
@ D t+
:
? t.
; D
@+ l: t
= t.
:2d +
$ D
? $ D
>+ c
8 t.
<3D +
-\
\
>2D 3+
+
6+
$ 3D
?+
&+
*
8 t.
<3D +
-\
\
>2D 3+
+
6 $ 3D
>+
>
>
>.
; D t
= t.
:2$ +
+
$ 3D
?+
$ D
?+
& $ D
?+
*
8 t.
<3D +
#-\
\
>2D 3+
%+
6: t+
= t.
:2$ +
. $ D
>+ `
= t.
;2$ +
. $ D
>+ ` $ 3D
?+
$ D
?+
*+
64 Z
9 \
9
:, p , p , p , p + N
9
9-|p D : 3 $ A q5D
D t3D r+
U t D hO@ g@ : Z
d 43: s9
G
_2D mg O
`2F mg O G 4$
U lX@
Q " Q" 8b : Z
d 43: s9
R +
^ lX@
W " Q" 9b : Z
d 43: s9
X +
^4 Z
` \
a+
A
`
a-|p TTY LPT o D o D !+
h(A5,A1) k-\ {4 -\ " 4 S4 "$ 3D +
p "
qb +
x(1X,'THIS MASTER FILE NAME ALREADY EXISTS.USE ANOTHER NAME.'/) kX@
y "
zb H + STER FILE NAME WOULD YOU LIKE?'/) kX@
gB 4 +
h kX@ +
(1X,'INVALID NAME-TRY AGAIN.'/) +
x@@ T D p T D q-\ C4 4 4 4
S4 4 4 $ A q4D 9 43: s9 ` 9: EZ ' 43: s9 " b s 4 + (1X,I10,' IS A KEY WITH A DUPLICATE.'/) + 4 Z \ , p , p , p , p +
e -|p 6TTY $ 3D Q+ H-\ C4 v4 s4 4
S4 v4 v-\ <4 v $ 3D 3+ w2D m+ - kX@ , " -b + .(' #',$) lX@ 2 " Q" 8 CX@ f wX@ gB : Z 43: s9 3 r D t s 4 D u u4D l |XD > }XD ? }XD ? ~XD @-\
L4 >4 ?4 ?4 @ $ 2D R+ B+ t+ )-\ 74 v-\ 74 l $ 2D 3+ G t D r+ t-\ C4 w4 v4 4
T4 v4 v@ : Z 1: <9 L @ : Z 1: <9 P r&$ D : Z @ $ $ D z"& . $& ( . Z
.
} /
.
~ /3: z9 Z 3: 9 T $ $ r3F + k@ $ $ & . Z . } ' . ~ '3: r9 f -\ 74 w+ #-\ C4 x4 v4 4
x4 v4 v4 z " 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 D t D u u4D l $ D 3 |XD }XD }XD ~XD -\
L4 4 4 4 $ 3D R+ V-\ C4 w4 s4 4
S4 v4 v t D hO@ g@ : Z 43: s9 # -\ 74 w 4D W kX@ ) " *b + 0(1X,'ENTER FIELD NUMBER FOLLOWED BY COMMA AND VALUE.'/) : Z w2D m+ 5 kX@ 4 " -b lX@ 8 " T IX@ fB 4 3d pg O 0f g O G 4$ L s3D + L u/u D : Z .u h F43: 9 D 3: 9 1 }XD J-\ 4 J $ D 3+ 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-\ C4 x4 v4 4
x4 v4 v4 z " jb + m(1X,'INVALID KEY FIELD N0.'/) -\ 74 x+ + t4 Z { \ { |, p , p , p , p + ! { {\ ~-|p TTY MESFIL. 6 r&$ D K : Z K@ $ $ K D D"& . K$& ( . Z L
.
G /
.
H /3: D9 K 3: K9 $ $ K r3F + $@ $ $ K & . Z L . G ' . H '3: r9 : Z K@ $ $ K D D"& . K$& ( . Z L
.
F /
.
G /3: D9 * K 3: K9 % $ $ K r3F + ;@ $ $ K & . Z L . F ' . G '3: r9 6 -\ 74 C+ A4 Z E \ E F, p , p , p , p +
- E4 E\ H-|p $ 3D Q+
p4 4 4 ` q r r s 2 2 4 s 4 8 p ` !: Z u1: <9 Y r&$ D : Z ` $ $ D "& . $& ( . Z
.
/
.
/3: 9 d 3: 9 ^ $ $ r3F + u` $ $ & . Z . ' . '3: r9 p : Z ` $ $ D "& . $& ( . Z
.
/
.
/3: 9 { 3: 9 u $ $ r3F +
` $ $ & . Z . ' . '3: r9 -\ 74 -\ 74 + 4 Z \ , p , p , p , p + L -|p 6 $ 3D Q+ 5-\ <4 i j2D m+ % kX@ # " $b + %(/' #',$) lX@ ) " * 3X@ f YX@ gB u + +(I) r D t mXD 1 mXD 1 nXD 2 nXD 2-\
L4 14 14 24 2+ -\ 74 l+ g-\ C4 j4 i4 o4
T4 i4 i@ : Z p p1: <9 9 @ : Z p p1: <9 = r&$ D q : Z p@ $ $ p D k"& . p$& ( . Z q
.
n /
.
n /3: k9 G p 3: q9 A $ $ q r3F + X@ $ $ q & . Z q . n ' . n '3: r9 S -\ 74 j+ kX@ [ " \b + b(1X,'?INVALID CHARACTER IN YOUR RESPONSE. TRY AGAIN.'/)+ !+ g4 Z k \ l l, p , p , p , p + k l\ n-|p TTY $ 3D Q+ 7-\ C4 I4 I4 R4
T4 I4 I4 J` q r r s 2 2 4 s 4 8 p ` !: Z S u1: <9 r&$ D S : Z S` $ $ S D M"& . S$& ( . Z T
.
Q /
.
Q /3: M9 S 3: S9 $ $ S r3F + ` $ $ S & . Z T . Q ' . Q '3: r9 r&$ D M : Z S` $ $ S D N"& . S$& ( . Z T
.
P /
.
P /3: N9 " S 3: M9 r&$ D S r&$ $$ r3H + 5` $ $ S & . Z T . P ' . P '3: r9 0 -\ 74 I $ D Q-\ <4 J PXD < PXD = QXD = QXD >-\
14 <4 =4 =4 >-\ 74 l-\ 74 K-\ !c4
K4 L+ G4 Z N \ O O, p , p , p , p + r N O\ Q-|p 6 DSK $ 3D Q+ -\ C4 24 24 <4
T4 24 24 3` q r r s 2 2 4 s 4 8 p ` !: Z = u1: <9 a r&$ D = : Z =` $ $ = D 7"& . =$& ( . Z >
.
; /
.
; /3: 79 l = 3: =9 f $ $ = r3F + }` $ $ = & . Z > . ; ' . ; '3: r9 x : Z =` $ $ = D 8"& . =$& ( . Z >
.
: /
.
: /3: 89 = 3: =9 } $ $ = r3F + ` $ $ = & . Z > . : ' . : '3: r9 -\ 74 2 $ D Q-\ !c4
34 l-\ C4 l4 24 <4
44 24 2 :XD :XD ;XD ;XD !-\
14 4 4 4 ! $ A Q D > >7 .$ ("& . F ?-\ 74 l-\ 74 5-\ #4
64 74 24 ?+ 04 Z 8 \ 9 9, p , p , p , p + T 8 9\ ;-|p 6DSK NFS. NFS $ 3D Q+ ]-\ C4 4 s4 4
S4 4 -\ <4 -\ <4 2D m+ L kX@ I " Jb + L(/' #',$) lX@ O " Q ZX@ f X@ gB u + R(I) r D t XD W XD X XD X XD Y-\
L4 W4 X4 X4 Y+ F-\ 74 -\ 74 l-\ 74 l+ -\ C4 4 4 4
T4 4 @ : Z 1: <9 b @ : Z 1: <9 e r&$ D : Z @ $ $ D "& . $& ( . Z
.
/
.
/3: 9 o 3: 9 j $ $ r3F + @ $ $ & . Z . ' . '3: r9 { -\ 74 + A kX@ " b +
(1X,'?INVALID CHARACTER IN YOUR RESPONSE. TRY AGAIN.'/)+ H+ 4 Z \ , p , p , p , p + ? \ -|p TTY \5D l D ] ] D l $ A Y5D m D ] $ A Y & 2F + $ m D ] $ . Y6b 0b 7 +&4 )4 14 04 8 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) A2D kg O A2F jg O B2H jg O
B2J ig
O
C2L ig
O
B2N hg O C2P hg O A A
A
A A A 4$ M A2D kg O A2F jg O A2H jg O
D2J ig
O
D2L ig
O
E2N hg O B2P hg O A A
A
A A A 4$ T E2D kg O C2F jg O B2H jg O
F2J ig
O
C2L ig
O
F2N hg O G2P hg O A A
A
A A A 5$ t+ ? A2D kg O A2F jg O A2H jg O
G2J ig
O
H2L ig
O
D2N hg O A2P hg O A A
A
A A A 5$
$ . Y6b 0b 7 +4 y4 >@@ ^-\ 74 ^ $ A Y & 3F g O ( 3H _g O G 4& -\ #4 4 H4 I4 @@ _@@ n@@ _@@ `@@ `@@ a@@ a@@ b A D Z A D Z A D ]@@ b@@ c: b $ 3$ b+ @ I b2Dg+ ! $ D c J b3Dg+ ' J b3Dg+ 3 K b3Dg+ ?+ $ . b D ` $ . b D T : Z c he Dhg2z T= +!: Z c b. A Fg1: 9 . $ .D b+ $ . b D ` $ . b D U : Z c hc Dhg2z U= 7 $ . b D U b Z c A Dhg3: U9 ; $ .D b+ b D a+ `4D N X@ f " > $ . ` D V & . ` Z c g3: V9 F X@ f " Mb a b + N(2O) c5D W $ . ` D V & . ` Z c A2Dhg+ V2z V= R $ D c c I Fh ZX@ f " > $ . ` D W & . ` Z c g3: W9 \ `4D f ]X@ f " > : Z c g1: 9 c a4D s X@ f " > $ . a D W & . a Z c g3: W9 l X@ f " rb + s(I) A2D ]+ A3D Z+ w K D ]+ "$ 3D n+ z L D ]+ $ A Y5D } L D ] $ A Y & 2F + M D ]-\ !c4 ]4 ^ K3D ]+ M3D ]+ M2d ]g O N3& ]g O A 4$ $ A Y0D g O L2F ]g O A 4$ Y+ h N D Z O D Z $ D _ ^ D d-\ !c4
O4 ^-\ "4 ^4 Z4 d $ 3D d+ $ .D Z+ Z D Z D @@ n ZX@ f " >b : Z e g1: 9 : Z e A2Dhg+ &0z = # P e2Dgg O C2Hgg O
Q2Jfg
O
A A 5$ / $ D n A2D Z+ 7 $ A Y5D 3 Q D Z $ A Y & 2F + 6 R D Z R D Z $ A Y & 3F + F-\ "4 ^4 Z4 d4 a4 b d4D F kX@ ? " @b + C(' FILE DOES NOT EXIST'/)"$ 2D n+ E-\ %g+ $@@ f $ 2D n+ I $ ? D f-\ C4 ^4 f4 _4
Z4 a4 b+
$ 2D _+ O-\ 74 d $ 2D _+ S-\ #4 4 H4 I4 -\ %g $ 3D ^+ v $ A Y5D X ^X@ X + h $ 2d + h $ 3D f+ ]-\ !c4
O4 $ D f $ 3D ^+ v $ D ^-\ 74 @@ f $ 2D n+ e $ ? D f-\ C4 4 f4 g4
S4 P4 P $ A Y D g $ 3D g+ r a D b D ] D m ^ D l Z D o Z D o+ u Z D Z D ] D m $ 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.'///)-\ 74 k $ . Y6b 0b 7 +;4 )4 14 )4 1 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 Z X \ 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 D p@@ m@@ p@@ m@@ q $ ( D q l4D $ 2D l+ 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 ( : Z r : Z r h & $ . r2D -+ 51: 9 -6b r0b 7 +34 ?4 >4 m r1: 9 , $ 3D q+ B : Z r a3Dh + = a2Dh + `+ @3: q9 9 $ D m+ \+ \ $ D s $ D q qX@ E s. j X@ f " I : Z r 3: q9 F + K(80A1) : Z r a2Dh + N: p b2Dh + P> p3: q9 L p4$ ` p5D S+ \ $ .D s $ . s3d p+ Y $ . p/ s$$ D q $ 2d q+ ` kX@ ^ " I DX@ f eX@ gB 4 ( + B $ 2D o+ e kX@ c " /b O@ m+ \ kX@ g " hb + l(' ERROR IN FORMAT, TRY AGAIN.',/) $ D o+ @@ 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@ gB s $ 2$ sg O & 3f sg O G 4$ 6b s0b 7 +4 >4 4 ?4 $ 3D o+ b $ D o kX@ " /b + m l5D 2@@ o kX@ " b + (' HOW MANY FIELDS? ',$) kX@ " " $ DX@ f *X@ gB l + %(I) $ s3$ lg O l1f g O A 4$ 2 $ 3D o+ b $ D o kX@ . " /b + 2(' RESPONSE ERROR',/) + : Z r : Z r r. k 3Dh + 91: 9 4@@ o+ ; r3: l9 3+ Y kX@ < " =b + C(' ENTER TYPES OF FIELDS(A,F OR I) 10 PER LINE',/) kX@ F " K DX@ f RX@ gB : Z r . k 3: l9 G + L(10A1) : Z r : Z r r. k 3Dh + W1: 9 N $ 3D o+ b $ D o kX@ V " /b + ; r3: l9 M a D t : Z r b . k2D + _ c D t+ `3: l9 Z kX@ a " cb t + 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') a3D t+ ~ kX@ } " ~b + (' D IS THE NUMBER OF DIGITS FOLLOWING THE DECIMAL', ' POINT',/) kX@ " b +
(' ENTERSPECIFICATIONS IN@ORDER.',/) : Z r . j@@3: j9 t D w l3$ w+ z kX@ " b w + (1X,I4,':',$) kX@ " " % DX@ f 5X@ gB w x x y + &(4I) : t w4D 7 $ . u/ v. w2d j+ L v2d w+ 7"$ / v. x0d s+ 7 x2d x+ 7 $ / x. x t. k D b t. k2D g O & / x. x2& yg O A 4$ 7 v3D w+ H u/ v. w D g & . u Z r c Dh {3: g9 ? $ . u/ v. w D u w D v u d F {@@ v x4D z v2$ x+ 7"$ / v. x D y y4D T-\ r4 {4 u4 y"$ . x D v: u u d F {: u u d F { e t. k2D + Y-\ Q4 x4 x4 {4 u+ h: u u t. k ' F { $ / x. x D z $ 13$ z+ 7-\ r4 {4 u4 z b t. k2D + h: u u e F {-\ r4 {4 u4 y uX@ l u. j X@ f " p : Z r {3: u9 m + q(50A1) ` u f @ n` u f n @ n@ n @ u $ D u u d F { x D v+ @@ o kX@ | " }b + (' HOW MANY CARDS PER OBSERVATION? ',$) kX@ " % DX@ f X@ gB z v3d z+
" /b + z v3D z+ u/ v. z D h & . u Z r c Dh {3: h9 $ . u/ v. z D u u b F { uX@ u. j X@ f " p : Z r {3: u9 kX@ " " #b + &(' OK?(YES OR NO) ',$) kX@ ) " + DX@ f DX@ gB { + ,(A3) g2D {+ .+ \ n5D d kX@ 0 " 1b + 4(' START FROM BEGINNING')+ $ 3D o+ b $ D o 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') $ D m+ \4 Z h \ i i, p ,!p , p , p ,!p ,!p ,!p ,!p +
h i\ m,Ap ,Ap / ,Ap / ,Ap -|p ( ) F ,D / , X A . f3 t YES I F A S S H A T E M D L $ . [/ [&$ D ] ]4D @ $ 2$ ]+ ; \XD :-\ r4 :4 \4 ]: \ \. \ X F: \ \. \ X F $ . [/ [ & $ ]/ D ^ ^5D E+ U ]4D I: \ \. \ Y F: \ \. \ X F \XD M-\ r4 M4 \4 ^ $ . ] ^ D ^+ U4 Z Y \ Z Z,!p ,!p , p ,!p + 3 Y Z\ \,Ap -|p A 5 , { D | $ t D }@@ } |& } D ~ ~5D g }5D g $ 3D }+ g+ k $ D }: { {. z ~ ~ F $ 2D }+ m+ v }$ ~/D |"` | }&$ D }+ b+ v4 Z y \ y z, p ,!p ,!p + _ y y\ {/ ,Ap -|p 0 1 2 3 4 5 6 7 8 9 \ h @ i< p0< 0| + 1\ + ,>p Z p + p @ h 4@ p 4@( N@0 X@ x ;@ ;@8 Z@( H@ P R@ P S@ h 4@ @ @ 4@ 4xp G[ (/< 0"` S<p X< 0 p 3@ q+ *| -< ~ Z` + G! @w+ < r p 7 p + 4,> ,> ,> &w p , /,& .< 7@p + - p , /" r `.< p ` s w,& ,& 5 .< p d s: ." Q ,& p ,& >` 9 *.< 9 @@ ,^ ,^ ,^ + 4d @ @ & 0b ." ." )B}5@ 0,~ m< !< P\ d< r p [ p l< 0@X + :Z p .< / p Q \ e+ =@@ e!< P\ d7@ g+ @ < h \ f@@ g!< P\ dX X\ 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+ D7 w x \ e @ WX Q< \ d y \ e+ D [`x i, x + _Z \ d@@ e@@ e< r \ f+ D7 g fX\ @@ g@@ f+ F >x ! Z @
& yU` eB + o@ )@ G
" + l
& }+ !6$ 1 ,> %i. @
p .4 6$ {X ^.
.4 e. dSEQIN @ vSEQOUT @ w@ W
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + ~ + Z . \x <x *<x .-> !Lez+ !" b + " b + Z . h + gg M?Th
& b + ~,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* 3** ,^ ,~ * x ,> < 3*< 6 p Z@ )@@ *@@ * j`|+ P w,~ "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 )*\ X7Ap X" p B )/& p d"~ l" B )*\ X/& p d"~ l" $ B )*\ X/& p d"~ l"
B )*\ XSp *\ X/&Xp B 2@@ 3 q B )*\ X/& p d"~ l" B )RF ) < ), + EV4i91 ,> %i+ eS ,i@1 ,> %i+ e_ ,i@1 ,> %i+ eK>2 1 ,> %i+ eK>40 1 ,> %i+ e[<I71 ,> %i
& r w @ )@ .
" 5B g
& x,~ ` .
.4 SEQIN ^ 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#p 5@ !/#p !" X#p + ! \p + ! a.9'1 ,> %i,> ,> O@ !6+ ! ,>
6 + _ 4` !"` Q@ ,> < !8, ,^ ,> < !;,
,^ *b !+ ! ,> < !<, ,^ 7@ !6+ !,> < !?,
,^ + !,> < !A,
,^ Z 5" ! ,> < !B,
,^ , 7@ !6,
,> < !D, ,^ , ,> < !G, ,^ ,> < !J,
,^ (@qd 1@ ,,
1@ #+ !+0@ *+ ! ,> < !K, ,^ + ! ,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X !3 p X !4 p !5 p !6 p X !- X ~ !2 p x !$h X$h @@h *% " !S Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> %iZ .@ 6kp 2j8 M+ !t !p Q A` !m\$}
4L !k/, L 8$ !i.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& !m < !s,
iSN ,> %i@Ap O
, 7 OAp ,~ I5r1 ,> %iO@
, 4" !~, "Q`` ,~ < " ,
4 4 "4 ". KbN=1 ,> %iO@ ". p 4B "
, "Q4@ "
9 "9 "
KbN= 1 ,> %i@@ ".!$Lu ` @Ap `` a` + ",a` + "- D "A (` "/" #B "@@ " !p X@ " ,> < " , "4,^ 7@ ".+ "OAp + "- #p Q"A` $ 1@ + " 0` =d "! H: @ "@@ "a|+ "$[ p d 0@ + "([ p d 0@ + "(+ "'_ w6@ "._ w#` 1 + "(Sp Xp @ "
"+ "+@ "+ ",+ "-
& "/+ "- Ap ,~ ERROR ON OPEN!
H H "3H "3 G.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 + "D 1D + "G1$ + "D1d + "P0$ 0d -+ "D $ D "2+ "K" "m, "z0@ + "i p 4B "lL ad+ "h`b+ "i $ 0d "+ "l&$ $& (&}Z .G "n.& $ .$ 7F + "_ ,~ A$ &$ (D G$1$ ((D (D
` 5@ "k .2b M+ "g L.& 7D !$Lu+ "j2" "n+ "d &p , "r ` ,~
& "o < "r,
.p M}ILLEGAL DEVICE NUMBER!
" "y, "z ' Q&A` "z@ 1x ,~ 18 0.8 X =` "u,~ . H a|+ "~0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> %i, $I+ # @ , #s, $E+ # Z" 6Ep " B` " b #& $ 7cp $ 1B $ d #', # , $+ # 6cp 0b " b #'$ #S ({." XB` &$ @6@ .$ .$
a|+ #[p d p0B + #+ #_w#` 1" + #6cp 0d $QD` , #\+ , $P ,~
& #(+ #
& #*+ # @b -p . Q,A`
#, 4P #&1P + #-/0 P =n #",~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
#-+ #"YC G aS a3 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` DX Z #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 &. .0 P `bp + $>d
@ #N, $P+ $B`L+ $< #N+ $H ( !*Lu@
, $P
,~ : x ,~ " B $`O@ #PO@ #Pg " ?$ $`+ $X d 5D $L $`(D D#P+ $H,> e` p+ $T7 #P+ $Wl! #P+ $U7 #P+ $Wl! #P: +@ > ,^ + $H
& $y,~ "
& ${,~ "
& %,~ , $_
& %
& , $_ b ( % + $\
& %
,~ @ ;` #O+ #`+ $Z 6@#4 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( $d+ $\`` ` P $` h :#R
X HX a` ,~ !" GB` + $2 @#X6$ #S
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
C2d;y1 ,> %i6#p 0b + %X@Ap %` $ b 2+ %F "6@ &Z &." p 4D %;.$(B{(D{0d + %X B %_ D %_ ( & Q& f 2+ % 4& % 1( ~9 % H %^3H %_+ %)2( %_+ %1.( 3( %_ %_ H %^@@ %`@@ %=S"xZH%>: %=.( 3h %_*b %#!$ 6@ %`GD %> %a d 2+ %+3h %_+ %" %_(F + %V6@ %`+ %-O@ %`+ %%OAp Z %>3b %^+ %X/" * %^ B %_+ %1@Ap %_: !& @@ %=!"x H%>: %=GF%>.( 3h %^*b %4 %a d 2+ 3h %^+ %36Ap + %X+ %)Z b + @gp + %W 6@ &+ %KZ .$ 1$ $ ! d + %X $ QD &, %Z p Z aD $ %a f Q& [ [ &.& ." `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* +