Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50126/chgval.sav
There are no other files named chgval.sav in the archive.
h '0 + x -0 x . 8x? )p@ (
~ ( @B + : pR A ,@ HW h6S:e ( Z[
. SO%S C ( pn f|` `yD SJup .8ySC%wp(G")rMI `+
K 0 ( 5p- H pKaJMmM&dP `M
n P H @XxPH pmG")r?.@ xp
pq 0 ( zpr H x H 5
H 0z " b +
< X-> -8 : -< + gg ge}g# G gg G")rgg INX G")rYO gg G")rgg 7 {@6@ > O@ \ 8 @,
~ @ [M` ,
~ , : Z*( * Zj [* [j \* \j ]* ]j ^* ^j _* _j `* aj a* bj c c ( ),
~ @ h,
~ B h i j0@ + .+ { j1@ + 2 k1@ + 2 @ l @ t+ * t1@ + 5 @ u+ F,
~
@ v @ ~ @ @ @ @ ,
~
@
+ =,
~ @ @ ,
~ @ @ @ ! @ & @ * @ . @ 2 @ 6 @ 9 @ @ @ C @ H @ I @ J,
~ 4 ,
~ B K K,
~ L0@ + K+ { M0@ + M+ M M0@ + Q NU( AH + | O0@ + S+ C O0@ + V@ + 5+ F @ U @ V+ F,
~ * Wj W@@ 5 f X+ \ X+ p d Y7 + ^ Z+ h,
~ @ _,
~ B _ ` a0@ + d+ { f a7 + f+ g
J V+ p
J U,
~ @ g B h h i0@ + m+ { j1@ + o+ ^
U J V,
~ $ j 4 A ; ;1` + u @ p @ q+ F 0 n q0@ + x+ } @ v B v w d x+ }
J @@ @@ @@ ,
~ " x0@ + " )* yj z ( ),
~ $@ + } z0@ + + + ! 2B V+
{0@ +
" n @ } ~ @ @ @ + F 2B V+ 0@ + @ + @ " n+ ^ 0@ + @ + @
@ " n+ F
+ @ + % @ @ @ @ " n+ F@ + @ + % @ @ @ @ " n+ F,
~ &
+ %@ + + + &+ : 0@ + /+ )@ + } 0@ + ++ ,+ ( " n @ @ @ " @ #+ F@ + + 2@ + } #0@ + 4+ 4+ 1 @ ( @ , " n ,0@ + 8 " )U( AH T ( )+ `,
~ ( -0@ + E@ + %+ ?@ + } -0@ + A+ A+ > " n @ 0 0 @ 1 @ 3 @ 4+ F@ + + G@ + } 40@ + I+ J+ F " n @ 7 7 @ 8 @ : @ ;+ F,
~ * 0 K @ @ B A A B0@ + R+ { C1@ + X C1@ + X D1@ + X D0@ + Y+ H" E F3B + e" G G3B + e" H I3B + e" J J3B + e" K L3B + e" M M2B + g* Nj N@ + 8+ i @ Q " K+ M R0@ + k " )* Sj S ( ),
~ ,@ + }" T U3B + r" U V2B + u V W X@ + 0 Y0@ + w+ w+ l,
~ . @ ^ " K @ _+ F,
~ 0 B _ `,
~ 2 a0@ + + { a1@ + b1@ + b1@ + c0@ + + H d+ e+ @ j+ z j+
k+
@ p+ z p q,
~ 4 @ w B x x y0@ + + { z1@ + z1@ + {1@ + {0@ + + H" | }3B + $" ~ ~3B + $"
3B + $"
3B + $"
3B + $"
2B + $+ % @
+
0@ + ' " )*
j
( ),
~ 6@ + }"
2" + /
1@ + /+ )"
3B + 3"
3b + 7"
3B + 7"
2" + 7+ 8+ A"
3B + <"
2B + ? @
@
@
@
0@ + A+ A+ ),
~ 8 @
+ F,
~ : f
+ F
+ e d
+ H @
+ Q f
7 + K
@
& B
'
'
(0@ + N+ {
)0@ + P
)+ e @
-,
~ < B
-
.
/0@ + U+ {
/1@ + \
01@ + \
01@ + \
11@ + \
10@ + ]+ H f
27 + _+ `
2+ e
J U @
8 B
9
9
:1@ + e @
=+ Q
>,
~ >
?0@ + h " )*
@j
@ ( ),
~ @@ + }
A+ p
B0@ + o
B+ p+ r @
E
F @
G @
H+ y
I+ w @
K
K @
L @
M
N @
O+ y
O0@ + y+ y+ j,
~ B @
P+ F,
~ D, 8,
~ F D )+ " )*
Qj
R+ "
S
S2B + +
# T. #@ T# T1` + + +
&
T T
+ }*
Vj
VS(AH # T0@ + + },
~ H
J
W*( @@ T@@
W*( ,
~ J4 ,
~ L
J z F n
J z F n ,
~ N # T. #@ T# T0` + &
X d + @@ T+ #&
Z T
F n + ,
~ P4 ,
~ R
\*(
V J
\*( @ + ,
~ T4 ,
~ V
]*( @ + ,
~ X4 ,
~ Z H Ki@ d
].
^`
^1` + 6@ + 8,
~ \4 ,
~ ^ d
_.
_`
`@
`"
aH
a`
c
c
d H Kh
e D X
f*( ]
ef
f H Ki@
g0@ + E+ Q
g0@ + G
j
k0@ + I
n
o0@ + K
r
s0@
+ M
v
w0@
+ O
z
{ H Ki@ ,
~ `
| H Ki@
} H Ki@ ,
~ b4 , <G>{ #p W WlY 00 00 00 0 0 00 0 00 0
0 0 0 < `$ < b H
@o*X*X*PNEEDLHELP?HTYPEHINMYEORXNX H dH@8PH PH 8< < < RS H@kINTORDERLTO=EXECUTEATHISNPGMEYOUAHAVE TOVTYPEVINDYVORONMFORAHELPEMESSAGE HD@l< *H H uIN H@vNUTOEEXECUTE THISBPROGRAMRUSE3THEPFOLLOWING COMMANDSOANDHACARRIAGET HDIwERRETURN:MH@P~ON H@ *<E =TEXITVTHEVPROGRAMN HA8ONHY= TYPE.OUTTHISPMESSAGE HAXNUIB=R(NOT AAVALID COMMANDEATUPRESENTOTIME) INSERTHCPHIXXXXXXT=EINSERTRANTEMPNCHARGEONUMBER HB8ANDSYI=GFIRST HCh:/1/2/3DIGIT OF CHARGE@NO)HAHAH VXXXXXX=VALIDATE<CHARGE NUMBER XXXXXX HBHD$H H@I* H JH@8PH PH 8< < < < H 0< < ***<NOTUA VALIDNCOMMAND;TPLEASE REFEROTO HELP(MESSAGEHC8P*2 H V< < V< 0< H 0V< 0< H 0U***<TYPE*IN DESIRED CHARGE NUMBER.-S H0[H@8PH PH 8< H 0* **HCHARGE NO<NOTNUMERIC,ENTRYERRORH? (Y-N)-: HbH@8PH PH 8< < H V*O* *=CHARGENUMBERHASLEADING SPACES - REJECTED HCk*G H p< V*B* *0DESCRIPTION FOR THIS CHARGEP# =N H0rHA@PH PH@H@< Ttpy< y< T< T< V***<CHARGE NUMBERH {H VH 0PH 0P"DELETED H@@* H < V* * *$CHARGE NUMBER ALREADY EXISTING HB < V* * * CHARGE NEMBQR NOT FOUND HAh * H H H 0V* * * CHARGE NUMBER H
$H ( $H
$H * $H
$H * * * INVALID CATEGORY HA0
< Ty
<
< T< < < T< < < < < 0 < 0 C2` $H
$H < H 0
H H 0PH 0P H
H H@PHA@P< T* H
< 0< 0 0< 0* * * TYPE IN CHARGE NO (6 CHARACTER) - H@
< 0< H 0U* * * CHARGE NUMBER NOT NUMERIC; ENTRY ERROR ? (Y-N) - H8
!H@8PH PH 8< < H U0 0* * * KEY IN CHARGE NO - HH
*H@8PH PH 8< < < < < < H 0H 0 0* * * CHARGE NO NOT NUMERIC ENTRY ERROR? (Y-N) - H
3H@8PH PH 8< * * * KEY IN CHARGE NO - HH
;H U0 0< Tz`
?<
?< TH 0 0< TH 0 0* * * CHARGE NO H
C0 H 0PH 0P NOT FOUNDH@P
GH 0 0 H 0
JH H 0PH 0P H
MH H@PHA@P< T* H
P <
Q< T~ $H
R$H 5H T 4 $H 5$H 3 3H T 4 H @ T 4 2 38 2PH SH SH SH RH RH RH P> H P [ T I
bH SH WHPX ; X T ]< U< UI4[a6-m ]Vl)9f}k H
jH
h<pc< U[Mm]t9 ]Vl)9f}k H
nH
l<pc< UaJ|M1i&}`k6\Y>uN H
rH
p<pc< UkN. Lm6E0]3H H
vH
t<pc< U_Z.*Cm6E0]3H
zH
x<pcH bHPXH mHPXH xHPXZ x < .\x ,~ + p x $$p +