perm filename CSREPT.SAI[USE,CSR]38 blob
sn#645889 filedate 1982-03-10 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00021 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00004 00002 Declarations
C00013 00003 I/O preparation: ttin,lookupfail,enterfail,renamefail,inuse
C00017 00004 Procedures for input: inscan, resp, ynresp, cresp
C00021 00005 Forms: textinfail, invout
C00029 00006 Procedures onhandin, onhandout, new_report for onhand file input/output
C00034 00007 Procedure rdaddr, buildtree, and addfilin for address file input
C00041 00008 Procedures wraddr, untree, addfilout for address file output
C00045 00009 binary search tree maintenance routines: search,insert,delete
C00050 00010 Procedures to access the address file: unpack,display,find
C00054 00011 Sub-procedures for update actions: zipcheck,gethash
C00058 00012 procedures for update actions: look,ins,mfy,del,update,shorten
C00064 00013 The procedure which records orders received
C00073 00014 The `receive' procedure, which handles virtual money
C00079 00015 Procedures for making labels: lab,emitlab,endlab
C00083 00016 The MAIL procedure and its subprocedures abst,invo,inv,status,scanorders
C00103 00017 The `send' procedure, for isolated orders
C00122 00018 The `adjust' procedure, to adjust the inventory
C00127 00019 The president (chief executive)
C00136 00020 The program starts here (sets string constants, including HELPs)
C00147 00021 Set breaks, open channels, call main procedure, end gracefully
C00151 ENDMK
C⊗;
comment Declarations;
begin "report"
comment This is the CS report system coded by D. Knuth, October 1976,
modified and extended since then by Jim Davidson
Cheshire labels fiddled by Les Earnest, March 1980;
EXTERNAL PROCEDURE BAIL;
require 200 system_pdl;
require 30000 string_space;
require "⊂⊃" delimiters;
define # = ⊂;comment⊃l~∃IK→S]JA
aYL@t@ PNDjLNbHR"`,hS∪↔≠Ns∃β∂⊗c→I↓jA!≥ )→
E⊂1≥EII l4+&+∪';*β'∂IβiA≥ (El4T#↔≠'v)β'πg!↓uα9E]T X4+∪.3';∃εK≠→↓hA≥E! l4+&+≠';*βπO'V)↓uβ eA@
↓¬β7∂C'7Whβ;W7⊗+Iβ?2βπβ∪⊗+OO↔~β'9β&C∃β7∞K3';8β3'O#X4+∪.3';∃εc?∨π≡Kk∃↓jAED
↓
β7/≠Qβ *β↔GW∞aβS=β ↓-β6c??IFc≥βπ≡Kk∃%Xh+∪↔6K;∃β↔≠'k∃βiAE3↓@E↓~β7πcNkW5βw+7 ↔∩β?→β⊗+C?K'→β'9∧z:"εt!:∩NZβ≠'3+X4+∪.3';∃ε≠G'k*↓uA ↓A@Eα→β7πFK7W5εsW7 /⊃β?→ε≠WOS}k↔KMε3?Iβ
βO';>c∃β7∞K3';;X4(4T#↔≠'v)β∂[~C%%↓jA#'2β%qEαβS#↔r↓↓A ↑Iβ↔3≡)↓!
⊃5EAJ[%$Eα→β↔;≤{∪↔LhP$$'≡kπ31εK;S↔>+Iβπ~β¬βONs∨3∃ε≠#πK∞≠S↔Iαi5β∪N;'Qβ␈⊃β3↔'#↔IlhS∪↔≠Ns∃βW>+S→#6 13∂F 93π&!%↓u↓β[π1¬yβ∂?&)!≥A;→AAAβ↓AAAαY≥QAβ↓AAAαS∂#πrcπ∪⊃Iλ4(%~βWO↔"βS=β≡['Aβ&yβS#*β↔;⊃ε{→βSF)α2>:β≠'3*β←#↔rβ;↔∂/≠OπKKX4(4V#↔≠'v)β S"↓uA ↓
β↔∪↔π/& 3∃ε3?Iβ'#'9lhS∪↔≠Ns∃β 633→↓jAHEα→β K. -β?rβ≠?Kn3↔↔⊃αC↔;⊃πβπ∨∃Jβ?IβfK;↔≠.+⊃↓#.s⊃β3Ns∃%lhS∪↔≠Ns∃β f1↓uβ_E↓
ε∪K↔πZβ?9βfK;↔≠.+⊃l4V#↔≠'v)β π↔→↓uβ E↓
ε∪K↔πZβ?9βcX4+∪.3';∃ε∪πOQβiAT
↓
β ⊗+π-β}q↓)lhS∪↔≠Ns∃β 61↓uβ0E↓
ε∪K↔πZβ?9β6{K7≠.+⊃l4V#↔≠'v)β C∂⊃↓uβ8E↓
ε∪K↔πZβ?9↓KX4+∪.3';∃ε∪OA↓jA`Eα→β K. -β?rβOCπ≡)↓#?∩βSπ KX4+∪.3';∃ε∪∂!↓jAdEα→β K. -β?rβ;?9n∪3π;[X4+∪.3';∃ε∪3≠∪}c3πIβiAE↓ ↓
β↔∪↔π-ε{9β32β?I↓∩! l4V#↔≠'v)β [∂⊃↓uβ DE↓~β[πKN 3∃ε∪K↔πZβSπ f)1βO/!β∪gv 7'∂∞c3elhP4+ }{3↔πrβ↔?→α→β↔;"β?→β6K3∃βNs∪'∂∂#?IlhS ??f+π9βf{∨WO.!1βK/β↔πSNs≥↓
ε K∃β>)βWONs≥β'wβWQβ7∪?5β
β≠'3*aβπ≠&+Iβ¬π≠gOS.iβ∂K∂≠!⎇↓Xh+';&+∨↔Iε∪K∂#∂⊃↓
β↔∪↔π-ε≠#πK∞≠S↔IXh+';&+∨↔Iε33π≥α→β';π+Q7?/#CWQε33π≥Xh+';&+∨↔Iεc';↔≡sQ1β≡CπK∂w!↓
β&C∃β;.k ↔K~β?→βfK;↔Mε ;⊃β≡CπKMεs?QβN+QβO∂3↔⊃β}qβS#*α2>≥ε3'3∃Xh+';&+∨↔IεK∂#πr↓
β∂F ;;↔bβ≠?IεK;CW#X4+∂}k7↔;"βS#↔⊗)βWO.!βS=ε∪∃βS>yβ∂#∞s;↔3~β#↔K*aβ'∂F 9↓→εK'∂#∞q1β≠␈⊃β∂#∂∪π∂S/⊃β';π+P4(N ;⊃β∞#∪K↔∨→β≠'f)β';π+Q1β⊗+OC↔∨#'[↔gI9↓α&C∃β∂F ;∨∃ε{→↓E∩yEE=;9β? 6KπS↔"βS#'≠X4+'w#↔∨↔∩β?∂#∞q1β?}≠#π9bβ???≡Cπ9↓~β∂#πvs↔3Mε3?Iβ␈+SCW#X4+∂}k7↔;"β?∂#∞qβ'Mπ+O↔⊃ε3?IβNs[?'≡+M1α|r"ε:"r∩N-ε3'3∃bα>J∩-∩Mβ≠Nc∃84PK??∂F 9β∨/#MβSF)ββ∂}kCK↔∨≠↔⊃≥π3↔KON{9β?2βS#∃εK;[?N≠↔M8hP'??}≠#π9εKMβW≡+⊃βSzβ←K'&)β?W"βS#∃εs↔]β6+KO'}qβ?→π##∃β∞#∪K↔∨→β≠'f)l4+NsS↔∨/⊃β3∂F 9↓
ε≠#π;v+1β≠␈⊃β7πNc';≥εcπ ↔bβ?WSπ+Ql4VK;S↔>+Iβ ≡Cπ9↓~βWO↔"β≠?Iπ##∃αdz≥β≠Nc∃β?2β∂?7n ;∪MXh(4+NsS↔∨/⊃β
3"c%3)fY353αcE3Qbβ∂#Iα→β7'≡≠↔33∞s↔?W~βS↔7ε{KπKJβ';S.;↔KMbβC?'w#↔KMbβ↔S
sX4+O'∪';≥π→3OQg≠SQ3∨#I↓
εk'O∂.c3π;.{WMβ&+7C?⊗ Keβ∨#K';?→l4(hSOSKNs≥βSOβ↔'9α→β';π+QβK/#WK;.!β eπ#S'9bβ↔;∪~β←'SBβ∂IlhS';S.;↔Iβ≡≠π3∃α→βO∂∞c∃β≠∞≠S?Iπ∪↔SW⊗s↔⊃β↔Iβ';≡≠π9lhS';S.;↔Iβva↓
βw+7 ↔∩β?→βfK;↔Mπ∪↔SW⊗s↔⊃β↔IβW;ε ∂-lhSOSKNs≥βπ↔∪πeβfs⊗mAS2u↓
εK;∪'6K∪Wπbβ3';-→β?→ε 9βπ&#K↔O≠X4(4VK;S↔>+Iβπ↔∪πeβo#πC⊗[↓iFUα→βWO.!βS=ε≠π31π##∃β/β∪πS*α6Rε∧)αVVzaβS=π∪↔O↔"βC?'w#↔KMXh($4VK;S↔>+Iβπ↔∪πeβfc';-g∪3';Zc/↔ef∪π3πv≠⊗mAV O'k-i↓
β⊗K;πKJβO↔π⊗≠!βS⊗+∃βO'∪W∂S/∪∃l4PK∂?7n+;Qβ&C∃βπ&#K↔O~β≠'3*β'Mβ␈∪∨π;MS↔⊃β∂→β¬β⊗K;πKJβSK↔*p4('↑+foBjβ'Mβ&C∃β#∂≠#∂?&)1β'rβ ';∂∪eβ≠␈∪51β}1βS#*βπ∪∪⊗+OO↔*β←#?≡(4('≡+K'πbβ;W7⊗+Iβ'~βA9β⊗ 3π;≡*gBuεKMβSF)β;Wn∪↔Iβ}1βC↔vs'↔MεC∃β?>+M84PJW;W≡+⊃βC␈≠'S'}sMβ?2βS#∃π#π 3*βπK∃ε#?W gI73'v[↔⊃βNsS=β∞qαεZ J1β3O≠P4(O;#?O*β#↔π"β'Mβ∂!βC?≡KS'?r↓A9α∨+∂!β.sSK'/→β#π6)β/↔KiAl4W≠SK'v9βπK⊗ eβ;nc';∃fc';↔≥YAkπ≡Kk⊗uα→β;7fK;⊗o¬iβ'Mεc';∃β β?→ε 9βπ&#K↔O~`4('.s∪';:β←'SBβ∂K32qβ3'v+NoBjβ∂?;& ';Mπ##∃β⊗+OQβ}1βS#*βπ∪∪⊗+OMβNs≠?Kn S'?r`4('∂→β≠?fc?←MRα3↔Qπ→w3'v+NoBjaβS#.p4($O~mEβ&y↓FuεKMβSF)β7πNc';≥ε≠πS↔>{Ke↓B∩
1∀1 1
⊃1
9∩a
5 bβ?I
∩⊃$4(HKNmIπ#=↓Zjβ'Mβ&C∃βkO↓β∂?&)β?Iε≠?W;'∪e1β␈⊃α&∩l
%1α
*R>5bβ↔S
ph($'≥Y]βSz↓EbuεKMβSF)βπ∂&K['SJβ∂?∪*β≠?IεcπOQβ Iβ7∞K3';?_4($HI!A1
a999cI2¬2∩a999ε3?I↓αa↓E1αq991βI1↓Eαa↓EEb↓998hP$$'␈∪∪↔K~aβ?I¬Qβ'→π##↔K*β←↔K*β π∂Zk?K∪/∪M$4PH'Nm IβS=ruβ'~β3';/→↓I1~aβ↔S~qβ?→π##∃β∞#∪K↔∨→1β'v≠3W∪Ns≤4(HH'∂π↔∪'π∨*βK↔S/∪;Mβ∞s⊃β3Ns∃β≠.+∪Mβ↔+Qβ;␈!αVMπS'Aβ≡{∪∃lhS';S.;↔Iβ'∪??Qα→βS#*βK??"β?→β&C∃β7∞K9β NsπKeπ≠↔πK≡AβSK.)↓#∂}sSπ'w→βS#*4($N ∪∪K/≠O↔Mε{9βSF)β7πNc';≥εc'OQKX4(4VK;S↔>+IβK.≠⊃↓
π#?Sπbβ7?;/I↓#'rβ∂↔;'→%βK.≠↔'[.!β'9π#?∪πJ;MβS⊗ ;Oπ∨#'?;≠X4+'w#↔∨↔∩β≠'c"↓
βS␈#π1β∞≠∂?Ww#';≥ε ∪+W∨#7↔;'→β'9π#?∪πJ;MβS⊗ ;Oπ∨#'?;≠X4+'w#↔∨↔∩β∂#∨"↓
βS␈#π1βn{;↔eε≠#πK>+⊃βSzβπ∂∂␈+;SMεK9βS}#πe∨~βSKπw≠π∂SN{;MlhS';S.;↔Iβ≡ 3K↔≡!↓
β&{Sπ1ε 7?Ww!β?→π∪↔∂↔OβSMβ7∪?5α≡ 3'≠␈∪;'¬π∪↔O'&+;SMXh(4+⊗{?3↔∞qβ7πNc↔⊃↓~β#πM∧jε&1ε 3K↔∞#eβO/!βWAε{WSC/!βS=ε∪∃βOε{?3↔#yl4+⊗{?3↔∞qβO↔v#↔⊃↓~β#πM¬~⊗:⊃ε 3K↔∞#eβO/!βWAε{WSC/!βS=ε∪∃βOε{?3↔#yl4+⊗{?3↔∞qβπ≠≡Cπ;∨.!↓
β≡C?W3"αε∩∩4J1:∩≤Yβ ∃π;K'S&+9β?/!βπ≠&+IβC⊗{∂↔O≡K;≥⎇Xh)4W≠SK' date,invoicedate # today's date in form dd MON 19yy (for invoice, MONdd19yy);
string mon # month whose orders are being processed (3-letter abbr);
string lf,ff,tab,nulls,cshelp,findhelp1,findhelp2,codehelp,updhelp,ordhelp1,ordhelp2,
yesnohelp,blanks,mailhelp,acthelp,sendhelp,onhandhelp,splithelp,rhelp,
namehelp1, namehelp2, onhand_filled_msg;
comment constant strings, see page 16;
string array canned[0:31] # text used to write invoices;
preload_with "JAN","FEB","MAR","APR","MAY","JUN",
"JUL","AUG","SEP","OCT","NOV","DEC"; string array months[1:12];
preload_with "Y","N"; string array yesnoopts[1:2];
preload_with ""; string array nullopt[1:1];
preload_with "UPD","ORD","REC","MAI","SEN","ADJ"; string array csopts[1:6];
preload_with "C","F","N","M","A","B"; string array codeopts[1:6];
preload_with "INS","DEL","MOD","LOOK"; string array updopts[1:4];
preload_with "AVE","CHE";string array labelopts[1:2];
preload_with "ADD","CHA"; string array ordopts[1:2];
preload_with "ABS", "REP"; string array mailopts[1:2];
comment I/O preparation: ttin,lookupfail,enterfail,renamefail,inuse;
procedure ttin;
begin comment sets typein to the line typed in and echoes it also on
the PRINT file, then gets rid of leading blanks;
integer I;
label retry;
retry:
if ¬repeating then begin "interactive"
typein←inchwl&icr; comment alternate for ttyin(btt,brchar);
setpRint(null,"I"); print(typein,lf); setprint(null,"C");
out(bchan,typean&lf);
life@
]i?Y%]KG]PVbv~(@@@A
QCeG9i?GQ¬eG]h-YK]OQPQisAKS\R,bv~∀@@AS_AYS]∃G]h:β U⎇∧≠#πK≡sPuU#↓βS#.qβ ↔>K94PI↓↓↓ε≠?77,¬g"εmJW∞B∞Mε*ε,Xf6/%Dπ&@h→;N><Y(∞<=Z0↔→P7s⊂≥42ybH64w2\]FE∧H⊂⊂⊂7]z⊂11Z0s⊗7≥v69mJ1t0y_w:∃@1) to 640]$r~∀∩@@AG=[[K]PAkaI¬iJAa=S]iKHACMH↓QKCI∃dAS]→←eKCQS←\A→←dAY=JAMS1J~∀∩$QI←KM\OhA!CaaK8ACki=[CiS
CYYr↓S\Ae∃CH@7∞cS↔I∧k?∪∃KX4(¬α↓↓β%¬yβ∂?&)↓!↓B9A]Iβ↓A- ,6F∞d G=λ
*%∀≠_z∧ε.
+
↑_<⊂∩Vβ0]);
↓ linecnt←charcnt←0;
end≠
end "interacTive"
else begin "inpqt @→` ?5∧3'3∃⊂h)↓↓αβSgC,¬⊗u}≥nπ/" ,6F∞eL&f2∀∧2ε>↑Dπ&FT
f/GD
FNvTλg-{(≥
(→R-L.c"D∧λλ~,@⊂2w`& theN begin
comme@9hAQCYJAG←5JAi↑↓iQJA∃]HA←_AiQJ↓ISYJ8AeKmα+@↔"∞Mr¬%K∀εNw∞↑CHh!~&/ε\≡FNvt r∧4→J4+XQ!↔.y=→E
+_Xm 9K ¬∀λh≤m=<λ≥
t→;Y∧
yH⊃M≥→+λ ,9[|LT≤⎇_..~;Yd
⎇=≤∞↑∞c"A≡≤Z;NE_|[ FKλB*:r5⊂i 3Q`λλ0rh
Ih∃⊃*)23P)D⊂3T
Z HC >[→LE↔c"B,⎇⎇≠h∞,=≤↑'1"Hλ∧∧→;Yπ1"Hλ∧∧≤≤Z-n
≥≡. :;J'1"Hλ∧∧≥≡< ];S⎇∂≡→:3K6(≥≠d↓K,7$∧h≤u∞
<λ≠lLH≠⊃G⊃"Y;LDλZ;N∞=λ⊃N
{(⊃M≥→(NaQ]z~-L(≥≡. :;HπTλHλD ≠h~+⎇≠|
∞O<→2-e,c"L]Y∞c!! X[m⎇→8;D∞≤[xl\≥<Y$
≠{zn↑→X:-E~;] \y<H =_;Nd∞⎇≤Z-lh→Z-L*.c!,Y9z-d_{∪n≤*_z ≥J.h
M{z⎇.¬_z_-e→Z3 U→[_,u.c"M≤H→[ ≤h≥~ ]H≤≤M≥]
_n-→KλJ⎇≠x+∧ (_x-d⎇λ→M≥YλλELZ;→%DKλ≤mt∩){$∞⎇≥8m5HK_n-→J.aQ\Y=∞↑[J→ML9j.aQY;Yπ1"C"L-{{→,≥H≤≤M|y9≥.,(→;NL<YX-≥
~;NL9y<D z_;G4≤⎇≤M≥Yh→M≥→*.aQXY9m≥H_{
}y*_m ;J.d ;]→.%_z_-e→Z; U→[_,u.c"M≤H→[ ≤h≥~ ]H≤≤M≥]
_n-→KλJ⎇≠x+∧∞}<⎇ ](→<N-|H≥∞/:;Yd∞≠h→-n→<H∧%→Z; Uβ"B$%λ≤{d ){(∞>≥8zedK_|MLJ.c!.Y=≥.-J→[ ≤j.c!,;Y∞aQC"XM⎇{→8-d≤≤[l<9≥<LT≤Y;L≥99X-≥
~;NL9y<D z_;G4≤⎇≤M≥Yh→M≥→.h
≥]→9l↑H≤≤Mwh≤Y,l<Y;L<(~;NL9y<D [_9e↔c"XL\z;H ={;9-nλ≥~ T→Z; T≠|→-d≠{Hλ9⊂3H
≡h≤Y-l;99∧∞≠h⊃I→⊃+λ∞⎇=~λ∞∞[⎇→,>~;{D
∀SnaQ\Y;L≥9*_m ;K→M≥→+≤∞-k→[ ≤j.c!-9H→ML9h≥
;H≤∞-;]
>[→K∧*z≠x%D→<\M}H~;D
Q3P)X(≠yD∧Kλ→M≥→+β!!""(∧∧λKλ∞=h≥~ T→Z; ↑h≠:,⎇≥λ~ ≡Y(≤nNX;YlT≠X;,↑kHK >[→J'1"\Y.N<[J m_9j'1"Y;LGc"C!,[{{ \;H≤∞-xy9∞↑Y(~-n<y*∞>≤Z;Lt→Z; U.c"L={;9-nλ_(
=≥9→lT +( =→8zn4≥≠h∞<9(~,d→Z; T~<h
≥H≥<lUH {m|z_;Dt~<h∞↑y9λ ≡h_(∞L;<λ =_;[L]∞c"L,9z;D
≠{zn↑
≠{l=_;K m;→+ m_9j'4→;] ↑J≠{l=_;K m;→+ m_9j'1"Z9D¬→[_,t≠_;LD l εε
fvmmme↔,h≥
;C"D∧λλλ∞∞Z;]¬ |[→EDT{{,]{Y( ]≤y(
≡h≥<m≥Yh≥
(≤≤M||X;%D≤{h ∀{(≤nN8zkD%_|[ e.c"L=≠|y%
{xz ≥J.c!.Y=≥.-J→[ ≤j.c!,;Y∞aQC"@↓L{{;,]]λ∀∞-xy9∞↑Y<h m|H~-n≥=∞D
;\xl≥Kλ≤L↑| λ∂≥\Y<n¬λ_|L↑|∞c!!"Z;NL9y<D∞≤[xl\≥<Y$
;\xl≥Nc"L,9z;D {{;,]]λ≤L↑≥<[N4~;] \y<H ={]→-n≤h≠ld≥≡< ];Kλ
≤{[|M≥Yh≠M⎇Y~9m≡≤nc!,{{;,]]λ≤l↑≤h_N,z_<D∞≠h≠ ≡⎇λ≠M⎇Y~9m≡ λ≤l<;→(∞Mh≠[ed≠yH M9z=∞4_9] ↑HλKD'c"Z-n→9y.$≥ →π4β"] }xx; [l∞h .Xz_.+l∞c!.z~; T≥≡< ];Fz,>H→≠aQB8Y,⎇;H→ ⎇≠|
∞O<→:-e.c"A≥9H→βTLλH ≥Yλ→βDN(H∞M→;C!!"8Y,⎇;H≥ v,
]¬< (L∧'c"B!≥9H_N,z_<GTKHH∞M→;H∞<x;→+}xx; Ul.c!!"9;LA"B9-Ny(_N,z_<K|∞c"A≤;Y∞aQ\Y=∞↑[J≥¬↔c"Y-l∞c"AQZ;] \y<H∞∞[xy,N<Y(∞,<|
∞>≤Z;Lt≤.h∞,9Y<L]Xy(∞>≤Z;Lt~∞h∞>≤Z;Lt_<\L∨(≠|∞Nj.c!,Y9z-d_{{-\;]λ∞∀~<h∞M→(≤.\<⎇~-⎇H_<m<9λ≠ld≥~→$∞<y<ED~λ~.4≥~→$ ⊃3∀∧∞⎇≤Z-lkλ_-lλ≠|∞Nc"B-M<⎇≤d∞~→(
≥Z=~,≥λ_z ≡X8⎇ ↑\h≠ld_;≠
}x8[ T≤Y<n
{\y.7c"Xm⎇;9;ND≥~→$
⎇=≤∞↑λ~<dελ~9D∞~→(∞,<|≠mny(≥l≡h∂_n'Kλ≠nM→<]m≡y(~.D~<h∞M→#"A≥;Y→/∧≠yH∞M→(≠n∞~;{D∞≡<→,Gc"Z-n→9y.$~.c!.z~; T≥≤],T→≠c!!8Y9m≥H≤≤M≥]
≤%↔h≥≥
≥Nc"A≥9H≥∂≡→:;G]8|H∞M→;H∞,=≥<Me
.aQB:9D∞≡<→-≥FhOd$≥~→-a"B",,9z;D
9H→.≡*≥≡. :;Vf∀≥≠hεK+λRλY∀λJ$∞~→;AQB"",,9z;D∞≤Z;NE_|[ e~ _n-→K_n-→J.l={]~-n9.c!!""9-l∞c"A⊃9[|D
7l(∞>→<λε∀≥;]
≥λ_<N-;Y[e
|≥≤eFJ(→
q"B"!≥9H→.≡*≥≡. :;Vf∀≥≠h
L;Y⎇
¬≠|≥∞;z7*+U≠|≥∞;z7*!QB"".M→;H∞,=≥<Me~*.aQB"9-l∞c"A≡≤Z;NEλOu
(≤Y.>≠{\l↑h∩( <;H≥-l→<\nL;Yλ ≡λ≥~
≡h≤≠m≥]λ_.,.HK >[→J'1"B9M}H~7f∀≤⎇→.∧ (≥-n~;λ ≡\Z;Lmj≠|∞Nk J$ ≠c"A⊃<≤Z-n
≠|∞Nvz7%DKKKEDJ.c!!<≤Z-n
_|MLKλ[n$∂_|Gd
≥≠d y=λ
}=λ≠ld≥~~.4≠≠{n¬+λK >[→J'1"B<∞-;]
∧-|H∩λY∀∂_n'H
→M}H≠;n,(~;Lm|[8.M;{J%dK_|MLJ.c!!9;Yπ1"Y;LGc"C!-;]→,|<H≤∞-xy9∞↑Y(≡-nY<|¬∞⎇≤Z-lh≤*'1"\Y.N<[J∞,<|
∞∀HH
∀≠|H e(λK∂≤<{[m ;≤ ∂≤<{[m}≥≤j%↔c"C!-;]→,|<H≤∞-xy9∞↑Y(_n,<|
∞>≤Z;Lt≤*.aQXY9m≥H_{m]9;]∧∞(_<m>h→[n$_(≤L↑|≠{N<(~;D ≠{≠ ≡\h_-lλ_y-n≤nc!,{{;,]]λ≥
<h≤∞-xy9∞↑Y(≤L↑≥<[N4≥~→$ ;;⎇-nλ~;D y;]∞5λ≠|D¬,(~,d≤Y<n
{\y$
<h~N↑⎇λ∂ >ONc!,{{;,]]λ_-N{h_N,z_<D
<h≤l↑λ≥≠d∞~→(
L<⎇λ
m{Y~,⎇=λ≥∂≡→9∞aQZ;] \y<H 7c"]m
;→(∞N]9( Mc"B,,9z;D∞≤Z;NE≤+λDDJ.h∞N~;NaQB:9D∞≡<→-≥O:8n$≥~→-d≤Y=∞↑[J &∃.c"A≤wz;N<x;NaQB:9D∞xx; W,H≥
;H≤L↑≥<[E j.c!!<≤Z-n
λOi∀≥x;NL9λ≡-}(≥≠d∞≡<→$ (→≠mM_<\e\;Y ,<;]≤d
];8L↑H≠~-<( kF⊗∂_|GdKβ"A∀K++%TK_|MLKλT
L8<y$∞≤↑( ≤x:;ED≠|H
.<⎇λ∞O<→(πL|OH∞Mh→y.D≠⎇=∧
yH≥
<kHEL|[→E↔c"B,]Y∞c!,;Y∞aQ@ comment Forms: textinfail, invout;
boolean procedure textinfail;
begin comment the canned text for invoices is read into memory;
if lookupfail(ichan,"FORM.DAT") then return(true);
do st←input(ichan,bfflf) until equ(st[1 to 7],"INVOICE") ∨ eof # bypass directory;
if eof then
begin print("Whoa, file FORM.DAT has been clobbered, so I'm stuck.",crlf);
returf(true);
end;
for i←0 step 1 until 31 do canned[i]←input(ichan,bast);
comment for the desired form of FORM.DAT, see the example in the
user manual and/or the procedure invout below;
return(false);
end;
procedure invout(reference string send,sorry,name,addrlabel;
integer oldbal,charges, handling; boolean Calif);
begin comment outpUts an invoice to ochan, and a compressed version to oochan+
string procedure short (value string reptlist);
comment returns a compressed version of the report list, with the names deleted;
begin "short"
string shortlist, name;
shortlist←null;
name←scan(reptlist,bpar,brchar);
while brchar do
if ¬equ(name[5 to 12],"Shipping") then begin
shortlist←shortlist&name&crlf;
scan(reptlist,blf,brchar);
name←scan(reptlist,bpar,brchar);
end else scan(name,blf,brchar);
return(shortlist);
end "short";
integer newbal; string str;
out(ochan,canned[0]&date&canned[1]&name&canned[2]) # heading, salutation, ret. addr;
out(oochan,date&crlf2&(if ¬equ(addrlabel[45 to 50]," ")
then addrlabel[1 to 50] else addrlabel)&crlf2);
comment what's this for?;
if sorry≠0 then begin "sorry list"
out(ochan,canned[6]&crlf);
if equ(sorry[1 to 2],crlf) then out(ochan,canned[18])
# crlf at the beginning means that one order had to be split -- say so;
out(ochan,sorry&crlf&canned[7]&crlf);
out(oochan,canned[6]&crlf&short(sorry)&crlf); end "sorry list";
newbal←oldbal+charges; str←cvf(abs(newbal)/100) # notice that str is always positive;
if send≠0 then begin "send list"
comment modification here September 1979. Check to see if there's any
charge, and if not, print 'packing slip' instead of 'invoice';
out(ochan,canned[3]&(if newbal>0 then canned[4] else canned[5]));
out(ochan,crlf&send&crlf);
if Calif and charges>0 then out(ochan,canned[17]&crlf);
out(oochan,canned[3]&(if newbal>0 then canned[4] else canned[5])&crlf&short(send)&crlf);
end;
if charges>0 then comment print account status, dep on old and current balance;
begin if oldbal=0 then out(ochan,canned[10]&str&canned[11])
else if newbal>0 then out(ochan,canned[12]&str&canned[13])
else if newbal<0 then out(ochan,canned[14]&str&canned[15])
else out(ochan,canned[16])
end
else if oldbal>0 then out(ochan,canned[8]&str&canned[9]);
out(oochan,"balance= "&cvf(newbal/100)&crlf2&"*******************************"&crlf);
if newbal>0 then begin "actual invoice"
comment if there's actually any money owing, print a real invoice;
comment 19: INVOICE ↔ invoiceno:. 20: ↔ DATE:. 21 : ↔ customer no.:
22 : ↔ P.O. no.: ↔. 23 : (header) Descr , Price ↔. 24 : ↔ sub total
25 : ↔ previously due. 26: previous credit. 27 : ↔ shipping. 28: ↔ taxes
29 : ↔ total due. 30,31 : ↔ all the rest;
string rept;
out(ochan,crlf&canned[19]&invoicedate);
out(ochan,canned[20]&date&canned[21]);
comment print reference no., if applicable. Get it from the addrlabel.
Only '9999's won't have a reference no (hash code);
if addrlabel[45 to 45]="#" then out(ochan,addrlabel[46 to 50]);
out(ochan,canned[22]&addrlabel&crlf);
if charges>0 then out(ochan,canned[23]);
comment now print out the list of reports in SEND, one at a time, with
the price right-justified on each line;
brchar←1;
while brchar≠0 do begin "one line"
rept←scan(send,blfdollar,brchar);
if brchar="$" then begin
comment print the cost, after right-justifying;
if equ(rept[1 to 4]," (") then comment multiple copies;
rept←rept&scan(send,blfdollar,brchar);
out(ochan,(rept&blanks)[1 to 74]&" $"&scan(send,blf,brchar))
end else
comment no price included: free, or specified on next line;
out(ochan,rept&lf);
end "one line";
comment have printed the whole list -- now print the totals;
setformat(6,2);
comment handling charges (if any) have already been added into CHARGES.
For printing, subtract them out again, tk be printed separately;
out(ochan,canned[24]&cvf((charges-handling)/100));
comment next two lines print previous balance (due, or credit);
out(ochan,if oldbal≥0 then canned[25] else canned[26]);
out(ochan,cvf(if oldbal≠0 then oLdbal/100 else 0.0));
if handling>0 thenout(ochan,canned[27]&cvf(handling/100!);
out(ochan,canned[28]&(if Calid∧AiQ∃\@E∪9GX\D↓KYgJE≤]α8DRRv4∀@@@↓←khQ=GQC\1GC]]∃I6dstMGmL!]KoE¬X↑b`@RMGC9]KI6La2MG¬]]KIlfc:Rl~∀@@AgKi→←eKCPP`Xd$r~∃K9H@EC
i`↔πbβ';[|¬⊗≡*!Q&.g<Tε␈/E
v≡F≥eF∨⊗Ldff2mH Dl9→≤ML8Y;∧lYJ.aQY;Yπ1"@↓L{{;,]]λ∀∞-xy9∞↑Y<h
⎇Z_;LM;Kλ
⎇Z_;LM⎇= ∧
Y=f∞,<≠tND→[tD
{Z_-lλ→Z-L(~;N∞= {n↑≤≥=π1"C"L-{{→,≥H≤≤M|y9≥.,(≠{M ;Y~-d
≤⎇∞-;Yh ≡\X>$
{→≤L↑ ≥~.M→.h
≥]→9l↑H_<N,>(≠mm_;Y
¬≠{Z ≥Y≠+ =|⎇∞aQB"".,9Y<L]Xy(
≥]→9l↑H~;,∨
.c!,{{;,]]λ∀L\9≤h N[{(∞M→(∪ii⊂3Q¬h∀rh m;→+∧ ;Yλ∞<=≤h∞↑λ≥~ T_8\L∨<h_-lλ_{n]]∞c!,Y9z-dλ\Y,≤λ≠{M ;YλAQ\⎇≤M≥Yh≤nGc"Z,d≠≠{m≡<→P-≥
~0m ;KλIyR⊂3HEQ∀rd%(≥~ ]H≤Y.N<[H¬ X;≤lU.c"M≥8:↔eV.c"Lmβy⊂4WX⊂9z→x⊂_@ until bsize-1 Do
begin do st←input(ichan,bffhf) until lop(st)="*" oR eof;
if eof then done;
oldrep[i]←scan(st,babs,brchar);
if equ(st[1 to 4],"SAME") then tithe[i]←"" else
begin title[i]←scan(st,babs,brchar);
typein←scan(st,babs,brchar)&icr; onhandh[i]←inscan;
typein←scan(st,babs,brchar)&icr; onhandm[i]←inscan;
if st=0 then
begin print("Bad entry in ONHAND.DSK file for ",
oldrep[i],crlf); st←"$.00"&icr;
end;
typein←st; cost[i]←inscan;
end;
imax←i;
end;
print("I have found ",imax+1," records about old reports in file ONHAND.DSK.",crlf);
close(ichan);
return (true);
end "read onhand";
boolean procedure onhandout(string array oldrep,title; integer array onhandh,onhandm,cost;
value integer imax);
begin " onhand"
if enterfail(ochan,"ONHAND.DSK") then return (false);
for i←0 step 1 until imax do
begin out(ochan,"*"&oldrep[i]&"|");
if title[i]=0 then out(ochan,"SAME"&crlf)
else out(ochan,title[i]&"|"&cvs(onhandh[i])&"|"&
cvs(onhandm[i])&"|$"&cvf(cost[i]/100)&crlf);
if i mod 55 = 54 then out(ochan,ff);
end;
close(ochan);
return (true);
end "write onhand";
boolean procedure new_report(string name; string array oldrep, title;
integer array onhandh, onhandm, cost; reference integer imax);
comment Adds a new report title to the ONHAND.DSK file;
begin "new report"
k←imax+1; oldrep[k]←st;
title[k]←name;
cost[k]←cresp("What is the price of hardcopy? ");
if cost[k]<0 then return (false);
print("How many hard copies are on hand? "); ttin;
if typein=icr then return(false) else onhandh[k]←inscan;
print("How many microfiche copies are on hand? ");
ttin; if typein=icr then return(false) else onhandm[k]←inscan;
imax←k;
comment if this is has another name (e.g., an AIM number), write a SAME line;
j←resp("Does it have an alternate number? (Y or N) ",namehelp1,yesnoopts);
if j=1 then begin
if resp("What is the alternate number? ",namehelp2,nullopt)=0 then return(false)
else begin imax←imax+1; oldrep[imax]←typein[1 to ∞-1]; title[imax]←""; end;
end;
return (true);
end "new report";
comment Procedure rdaddr, buildtree, and addfilin for address file input;
integer prevk # previOus key read by rdaddr;
integar procedure rdaddr;
begin "rdaddr"
Comment reads and stores the nexp valid address from ADDFIL.DSK,
returnang the sarial number, or 0 if the end of file iq sensad;
comment @⊃keC]≤AiQSLAae←
KIke∀XAgh↓eKae∃gC]iLAiQJ↓MSYJ↓YS]J↓[←gh↓eKGK9iYr~(∪eKC⊂AEkh↓]←hAeKhAI%OKgi∃Hv~∃
←[[K9hA)Q∀Aβ →∪_] M⊗AG←9iCC]LAk`AQ↑Aio∃]irA∃]ieS∃bAaKHAaCO∀\@A ¬GPAK9ierA KOS]L~∀∪o%iPAB↓YS]J↓S\Ai!JAM←I[Ch~(∩∩Uπi5555qββββ¬ββββ¬βαG⊃!⊃⊃⊃πM''&I β_yGIYL|~(∪oQKIJAε{
CiKO=erXAi5554uuSaG=IJXA¬ββββ¬ββββ¬α{CGQSmSidAG←I∃fX~∀%⊃⊃⊃⊃ {QCgαC∂?∪*aαNN≥~MwO,ε&N∞Dλ N]8Y4ED⊂P3π\≠{≠ ≡H_X-L8π1`% due
(preceded by - if negative). Then comeq 2 To 5 Lines ob the
address( each oF which should Be admost 34 characters wide
in most cases;
comment most of this code i@LAIKm=iKHAQ↑AgS5aYJA∃ae←d↓GQKG-S]Nv4∃G←[5K]hA]QK\A]JAK]QKdAi!SfAe=kiS]∀AKCG AiS[∀@QKq
KahAQQJAM%aghR0AghA%fACYIKCIr↓gCh~(∪i↑AQQJAM%aghA1S]JA=HAiQ∀A]KqPAK]iIrT@AQQSfA%bAEK
CkgJ↓iQJAMsgiK4AQCf↓CYeK¬Ir~∀%eKCH↓iQCh↓YS]J0Ai↑A⊃KiKGβ!βS#*β↔;⊃ε{⊃βSF)βCK/3'?W~β↔;S↔Il4+∨#C';8β↔;Qd¬f∞nUL⊗&''4εNwL\v/∩
Iv~f74εf∞,YBπ∨L≡'#XQ-6/M6 U{ 4
fnf≥lU[¬[t$fO>Mε.∞D$f∨⊗β→NaQ\⎇_..∞C"L={;9-nλ~1D∞~→( m;→(∞|<h~-d⊃(→,M=≠tD Y|[,≡ λ⊂__yyP']2y⊂ 4he i@9IKpAACGJX↓C]HAACOJA5CeGKβ∪El4W;#'3*βOQZ↓∩R$λFxh!≥⊗"ε]xbπ& Ybπ⊗↑NW⊗rε¬∩ε.N8 $∞⎇↔z-n≥=
≤z_;ELYYS E.c"L]]↔|nG{X;,[z;\∞↑
~8m ;K_Ll[→J'1"X9 NWz;N∞=
~,=_;K ,Y[→E↔c"\nKx9→∞+l(≥
t 7.aQX{{-\;]λ
m⎇h→-n ≠X-\+_9 NH_<LT≥~→$ Z<\nD≥~≤L\(_9 NY<|d
~;Y.7c"Xm⎇;9;ND≥~~.4≠Y>∞D≠≠{n∧→{≥,↑h≥~ T≤Y;,≥;Y→.$≠yH∞M→(_,L≤Y<n4≠{]
t_9→∞'c"]m
;→(∞>λεh∧%HH_-lλ≤⎇∧βhλHd$→≠c!!8Y9m≥H~9D
→;YnM
≤⎇¬↔LH≥
;H_,L≤Wx,L≤I\nDλh∩$⎇(≠[nD≤⎇<LT≥z_.D≥~~.4_z→,=|h→M}KC"A∀λλλ ∀≥~~-mh≥~ ≡λ H
≡h→\M⎇(≥~ T≠→;L}~λ≠ld_|[ eλ_].D≥~→.,)|h ≥≤{h∞M→(→L≤⎇λβ!!(λλ∧∞~_=∧∞⎇λ≥l≡h≤y.D≥≠h ∀≤z;L⎇→(_m <X8nL<H_L\[|Y$ ;]→.-;Yh
<Y.aQB:9D ;yH∞M→;H M{Y.aQB<⎇ ⎇;\≥.E~8z ≥K_YLm→J.aQB9;LGc"[
|wx⎇LE→;] 6Mh≥
t l7%∀λh≠
|hλ≠M}h_{mn_:;N4≥~→$∞y<Z,≥λ≠]-\Y<NaQZ9H
MxoX.=>Y(∞M→;C!!8Y9m≥H≤≤M≥]
_n-→KλH_⊃⊃R)EQ∀rd <\[n%λ≤y.-8;λ
n;8Y.$≥≠{d Z9kEeC"B$∧λλ≥
(→[mM≠⎇z-lh≠X-\(~_.4_Y9-d→→; ↑→9λ n[{(∞M→(→M≥→.HEL|[→EMX;9%L|[→EA"B(∧∧λλ\m≥Xy(
≡λ~_,D_(≤l↑Z8;∧
];8L↑H≠yD∧K≠≠l5λKHEL|[→EA"B(∧∧λλKEeU~→$∞Y<⎇∧
yH≥
(→→-L=→9∧ Z;→$ ;]≤O∀≥x<g$K_|MLK→;NE_9→∞%.c"A≤{h≥
t≤⎇_..∞c"A≤;Y∞aQX{{-\;]λ∞M→(~l←(_<N,>(_m⎇]_:-nh≥~ T~_<m∧_{y ↑nc"M≤H~y/≠{≠xkSlλ≥
;C"A≤Y9z-d≤≤Z-n
_|MLKλP(H⊃R3¬h∀rh ↑\[|ED≥≥{d∞→;|
L(≥z.Mλ≤x-\(≤y.-8;λ
n;8Y.%KKC!!(λλ∧∞~→( m{≠≠n⎇;Yh
l;9(
<h_L\;H→ ]→=→,D→\[mT≥~→$ Z;→'$K_|MLK≠X-\+β"A∀λλλ∧.z;XlT~=λ
9λ∃
(≤x-\(≤y.
8;λ
n;8Y.$_<nD%_|[ e≠[;
≥Y6{
|w+β!!(λλ∧∧KKKJM→(≤L↑⎇λ≠ld≥~→$ →;→.L9λ→M≥→(→-n≤↑(∞|<nHEL|[→EL;] ≤→≤B'4β"B,⎇h≥≠d∞⎇_<NGc"B,]Y∞c!,{{;,]]λ⊂⊃[w;2i≥⊂:42H40ydλ5r|P≥5P4g≥2y70[⊂37y≠pz⊂∀~w:2sYy∀]FB5oq{_yqT2[:-Y→λ:7P→
,T]FB4s⊂5H∞⊂89→{5P:~2wεEαq2st[⊂894[:∀1i≠3⊗⊃ Q"#$f )eP→y97y ⊂40yZ⊂1wr→yP77]⊂4w1\2pyt[3W↔↔βEP⊂λ⊂:42H37v6≠{tw3H70vrH40yP_2rw⊂→2v2z→r⊂39≠vP:4→P34v→]⊃⊗1\63⊗7_vrVεB∧P⊂⊂λ⊃9tw_rP4z≤P40yZ⊂1wr→P;pyH77z⊂→y2pz→y⊂:4_w⊂:4→P892Xrr4w→P7w2K⊃⊗1y≠3⊗εEαP⊂⊂⊂λ↔↔↔*~2P92\z⊂7sλ:42P→2v2z→r⊂34[2P2w≥9<P;Xy]⊃⊗_y63⊗→w:⊗0Y29∀]CE∧swH:7P9]0y:
CE∧rw→≥FE5Y|mv /c]←k; prevk←k;
rlink[llink[loc]]←rlink[lkc];llink[rdink[loc]]←llink[loc] # remove fRom AVAIL;
nmline[lOc]←name3
lines[loc]←ent[2 to 7]&ent[9 to 20]&addr ! zip, activity codes;
Typein←ent[33 to ∞];balance[loc]←inscan;
if ent[33 to 33]="-" then balafcEYloc]←-balance[loc];
i←i+1;
return(loc);
end "rdaddr";
recursive integer procedure buildtree(integer m);
begin "buildtree" comment Builds a somewhat balanced binary search tree of up to
2↑m-1 nodes, returninga pointer to the root;
integer root,subtree;
if m=0 then return(0)
else begin
subtree←buildtree(m-1);
root←rdaddr;
if root=0 then return(subtree) comment end of file reached;
else begin
llink[root]←subtree;
rlink[root]←buildtree(m-1);
return(root);
end;
end;
end "buildtree";
procedure addfilin;
begin "addfilin"
comment inputs the address file, assuming that it is on ichan;
for i←1 step 1 until asize-1 do
begin key[i]←0; llink[i]←i-1; rlink[i]←i+1;
end;
key[0]←0;llink[0]←asize;rlink[0]←1;
key[asize]←0;llink[asize]←asize-1;rlink[asize]←0;
st←""; prevk←'400000000000;
i←0;
troot←buildtree(logasize);
print(crlf,"The address file contains a total of ",i," entries.",crlf);
end "addfilin";
comment Procedures wraddr, untree, addfilout for address file output;
¬
@%]iKO∃dAi←QECX@ Ai←i¬XAEC1C]GJQ←oK⊂Ai↑AUfRAMI←ZAC1XACG
←k]iLAS\AQQJAM%YJv~)∪]iK≥KdAG CX@F↓i←iC0AGeK⊃Sh@QAeKaCe[K]h↓ErAkMKefRl~∃S]QKOKd↓WLYW8YWZY-BYWDFAi←QCXA]U[EKd↓←LAK9ieSKLA←LAYCeS←UfAGCQKO←e%Kfv~(~∃ae=GKIkIJAoe¬IIdQ%]iKO∃dA`Rl~∃EK≥S\AG=[[K]PACaa∃]IfAQQJAC⊃IeKgLAM←d↓cCeS¬XA]k5EKdA@Ai↑A
keeK9hA←kQakhAACOJX4∀∪C]⊂A←kiAkifA%HAiQ∀AaCO∀ASfA→kYXRl~∃G←5[KMh↓CYg↑↓OCiQ∃afAgQCiSgQSGfA¬E←kh↓iQJA→SYJV4⊃G←[5K]hAα OOWn+@~πM ↔"ε⎇yv≡F≥`εO~ ≡G&∞= V"πMtπ&FTλfNfTλ∀$$i→Bu$Zπ0hW>N&Nvt∞2g#1Q'%↑M≥f/≥> SXh-}W"F⎇yv≡F≥eB%HJ.d
⎇=
⎇{xr ≥K≥⊗f∀≥≠hεK*.h
}=
≠m⎇xz_-eλ←λE↔h≠u.E≠{sl=_;C∞Kmh⊂~≠P_\.J]FE']z⊂7`/ochan,"#")8εA←kPQ←←←
QCLY
mgid!WKs7A:RRv4∃gKi→←eKCPPjXd$p
β?/!#/?|≠#π9d≠[M#αI%mβ≤+S≠∨⊗kπQ!αaI%M∧≠?77,¬g"εmx D∞y<Z,≥λ≠]-\Y<FaQYy=¬
{{pm ;KλDDJ.h
}=
≠m⎇xz_-e_⎇QE X;_-ly2| UβXX_
T]P /ut o@=←GQC8YGeY_Rv~∃=kh@#|¬v}≡ ≥bfVβ;⊂∀[2mx.J]P7j]∀7w`/chan1i6br↓iP≥ui%mβ≤{77↔w!β/W'βWQβ∞#∪K↔≥→l4+L1β πd ;∂⊗β>¬ks∧
FF.d
F␈&,≥E␈&}L&∞bαxX-L8π1`%Xπa:A∃YgJA
ECY?
ECHW CYC]
K7a:l~∃W∨,Vbf~)SLAhlEεDAQQK\~(∪EKO%\ASL↓hrE λAiQK8AWM?-LVb~(∪KIg∀ASLAPzEαD↓iQK\↓WC?W∧Vb~∀%KYgJ↓SLAhtA∧DAQQK\A-E?WD,b~∀∪∃YgJA%HAhz ≤DAi!K\AW9?W\VD~∀∪K1gJAS_AhzE4DAiQ∃\AW[⎇WZVbl~∀∪K9Hv~∃%LAVA5←H@d@@z@`↓iQK\↓←khQ=←←GQ¬\YML$v~∃K9Hv~∀4∃eKGUegSm∀Aae←
KIke∀Ak]iIKJQS9iKOKHA`Rv4∃EKO%\AG←5[K]h↓←kiaUifAi!JAES9CerAMKCeG AieK∀Ae←←QKHACPA`AS8A←eI∃dAEr↓WCrv4∃SLA@6`Ai!K\
∀%EKOS8Ak]iIKJQY1S]W7A:Rv~(∪oeC⊃IdQ`$v~∀∪U]ieK∀QeYS9W7a:$v~∀∪∃]Hv~)K]Hv4∀~¬aβ∪?∂↔'+K∃β∞#∪≠'f{WQlhS ↔∨Nqβ∂?nk↔;Q∧{WSC/#EβSF)β↔;&KK∃β∞#∪K↔∨→β≠'f)βS=∧{??∂F 9l4VZ␈/~}[ε␈/u{/6␈&{S πe{∂ πeyAl4W+;SK.)#SK}{Q%LhSCK'w!#∂Kf11
SF)βπ∪'∪↔OMε3'3∃εs?]β≡{;SπNsM⬬#?Sπbβ?→↓∩c-1 ε+;SKN+E04VK;∂3.#';≥π##∃β4{33?>K;≥β∨β↔∂'∞aβ∂π&+∨?KN+Eh4T1↓u↓∩c/→1∩α¬↓uα⊃3/¬b⊃α ↓h↓ 3/∩a α9βi↓ 3↑q1 αj↓u↓ f[51 b⊃3∂Kf104)∃##∃β&{Sπ1ε∪π3πv≠∃β?/#OSπv#';≥εKM↓⊃∩c∂[→G#?S ∞a=EAαI1 1∩c∂K32`4) ∞s⊃βSF)βS?& 1β∂⊗+∪'QπβK↔C∞K⊃β Jβ∂WO&{7↔K~β'M↓"⊃3∂[2Cπ MF≠ π1JyEAAJa 9 f≠K3→KX4+'2βπO'V)7-q+↓βS#.qβCKNsQ!
Jβπ5β∨+KK↔w#3eβπ∪?∨K∞k7↔⊃π#=β#∞s∪3∃π+AβSz↓ 04PKπO'V)1 β.sSK'/→β7πFK7W5r⊃3∂Kf1%l4V≠3?O*C???≡Cπ9%Xh+↔;#X4(3∂?nk↔;Q∧∪';π↔IβO↔∂∪∂!β'∪↔∃βn ';S.sπ;∂*βK?W&K;↔MRβO↔π⊗≠!3'w≠↔KQf#↔3↔&)l4(hS';S.;↔Iβg↓↓
βf OQβε{O'SN{9βWw≠W∂∂/≠O≠WfceβC⊗{ ↔⊃εK9βO. K∂!π∪?WSNs∃l4Ph+';&+∨↔IπβK?∂.#WK∃π≠↔πK≡A#';&+∨↔IεY%l4V∪↔∨'rβ∂?7n+;Qβ⊗K;πKJβO↔π⊗≠!1β⊗+SGKw→βO↔⊗Kπ1βw+7 ↔∩β?→β∞#∪K↔∨≠↔∃βF [';:β/↔eh(%#F O!β≡{∪∃%εY1β?∩↓Aβ'2β;?QεK9βSF)βSπ⊗c∃l4V≠?77.sQβSFKMβπ∨≠W7↔~βS#π βS#∃ε∪';π↔IβSK.)β'Mπ≠?KS.!β eεCπO!ε≠?∪∃r↓α;?&)βS#∂ 4)↓α↓β;?&C';≥εK9βSF)β∂?w≠SKW∨#'?9ε{⊃βSF)βSK.)β∂π/≠↔MβO!βS=ε∪∃βO␈∪S↔⊃αi5β←(h)↓↓αβK↔3Jβ?9β&C∃β≠∞≠QβSF Qβ'"β←πMπ;K'S&+9β?/!β'9π≠?KS.!β?K&+I1β∞s⊃βSF Qβ'w≠↔KSN{;L4R↓↓↓βπ∪↔O↔↔3∃βSF)βO?↔#↔∪;/≠Ml4VK;S↔>+IβAXh+B␈'∪??QZβ3B⎇βYβ/↔MYBv␈[X4+←FK3∃βY[/↔f←αuβ∪xh(' .;'9βeα␈AlhP''→εYs/↔M[Buβ&C↔9β¬{33'vZoBuε+3O∃πα␈K3Ns.oBkX4('.s⊃l4W∪↔SW⊗q#A%Xh+↔;#X4(4VK;S↔>+IβC⊗{∂↔∪/∪∃β'w≠↔KQG∪↔≠↔⊗+;∂∃π≠SK'v9β;πn)3↔;#YβOS⊗K;≥βF O!mεK;S↔>+Iβ ∞a%l4V∪↔∨'rβ∂?7n+;QβNsO↔K'→β;↔:βπ∪∪⊗+OMβ6K3∃β.sSKeεK;S=ε 9βπ6 '3π⊗c∃βCf ∂∀4PKπ;⊃π∪↔SW⊗sMβSF)β[πg+∃β?2βS#'~βC3π≡)↓#%v)9βSF)βO↔⊗Kπ1βw+7 ↔∩Il4+≡{77↔w!βπO∨+7∃β&CπQβ&C∃βC}K;S↔∩β3AβF Mβπg∪↔π∪Jβ ↔↔rβO↔Qπ#=βSF)β∂3␈≠↔OQεc↔π→bβS#K␈+∨ 4PKS#∃ε≠π31π#?αN,
J∞!:β≠K?jβ';ON#∃βα<*R"ε≤A≥l4V≠?77.sQβSF)β↔;'∪eβ'~β';O/∪S↔⊃εK9β¬πβ3π∂*β←#'≡AβCK/≠↔K[/→βS#*β?K∪/∪';≥Xh+';&+∨↔Iπ↓3-lhS.␈∂6 O
#F O!%Xh+B␈⊗c';.[αu↓
ε;↔Qβ∂3π'3∞∪3∃βf{∂πSN{9l4VK→βAk↓βS#.p4('⊗+∨'9πβK';"A
S#*β7π'fK;≥βfKOQβO→β;?:β∂?7εc↔S↔gIβ≠Wfa1βOzα%β∂∞q∨Q↓∩`4(%α↓↓↓ NsO↔K"βS#∃ε+;SKJβ≠?Iπ##∃ f≠K3→b⊃β≠?fc?←'v9β;πn)i↓ fsπ7∃`h(%↓α↓↓
Szβ';∂⊗+πO∃π##∃β& 3∃π≠'k∃ε{;∃βn eβONkC3eπ∪↔∂?oβ'3∃∧~NJ⊗¬! 3∂⊗c→04PI↓↓↓α∪←'SBβπO'V)βπ;"β3?∨∂≠'k∃ε#↔≠'v+⊃β3∂∪∨↔Ir4(%α↓↓↓"↔+Qβ∪zβ←∃β⊗+π33Jβ←π;"βOW∂Bβ¬β N9β7πNc';≥εc'OQzI 3∂⊗c→%lhP'K↔'+K9!αIl4(N+;⊃lhSK3'vZmBv␈∪3';][Bumεc3';][K3'vZoBvmyA↓
π∪↔7?6)β≠K}iαεZ J1β3O≠Ql4Vs73'v*oBv}sπ7∃Zβ3';/~oBv}+;Qmε[↔fo¬j␈-mε∪π3πv≠⊗oBm{ π1Xh+33Ns.oBm{K3'vZoBv{↓l4+6Kc∩␈6Kc⊃7⊗ 1l4VK→β-f[↔fogαuβSF+9β3fK;.ogαv␈Aε+3O∃π∪3';][3Bv␈↓l4+⊗+SWKrCA%lhS↔;⊃Xh(4+π∪?∂↔'+K∃β&+3↔S*C';S.;↔IβZIl4+⊗+∨'9ε≠?77.sQβ∪.c↔S↔~β↔;S↔Iβ←'&Aβ/↔Jβ-β≠⊗{5β''→βC3∞≠∃β'rβS#∃ε ∪∪K/≠Mβ≠Nc∃04PKWO'v9βS#*βOSπv#πK⊃ε 3∨?⊗KS#5Xh+';&+∨↔Iπ↓3E3∪X4+B␈≠↔πK≡A#-%Xh+'→π↓uAβ&C↔84PK ↔∨NqβCKNsQ!
Fk599rαO?7/##';:β←↔;"β←K?v91α%εSWOQε SS↔oβS↔⊃π#=↓ `h(% &+3↔S*β¬β;}s↔c'∨#↔;Qε[↔e9∩c∂K32ImβK/#WK9Xh('↔v!l4+≡{77↔w!β;↔:β∪↔3/#∃βAε3K?5εKSMβ∨+ SK.)1βgN+3∪'v9β¬β∨+ SK.)β←'&AβK?␈!βElhS'→βfc';.←αuuAπ##↔9π
␈K3Ns.oBhh+↔3≡)β'→π∪3';][BuuαβS#↔rβF␈3fK;.o¬h4+↔g≠∀' .;'9β
{K3'vZoBuXh(''2β33'vZoFuk↓βS#.qβ33Ns.oFm{33'vZoBthP'↔3≡(' ↔>K9β∪zβF␈3fK;.o∃{Fuβ.sS'1εc3';][FuuβX4($Nc3';][Jv␈⊗c';.←
umβfc';.←
v␈3fK;.o¬imβKfK;.o
j␈K3Ns.oBkX4($N+;⊃lhP'↔;#X4+∂}k7↔;"β;?]ε ∪+W∨!βS#*βWCC/⊃βCπ↔!β?→π##∃β'∪↔∃β∞s⊃βSF)αεZ J1β3O≠Ql4VK→β3βiAβSF+9βS⊗{?R␈λh+↔3≡)β'→εYs/↔M[3Buπ##↔9εc3';][3Bv␈ β↔3≡)βK3Ns.o3¬j␈ElhSF␈KfK;.m¬imβKfK;.o¬j␈Emεc3';][Fv␈βYβ33Ns.oBmyAmβ⊗c';.[αv␈AXh+∂?nk↔;Qπ##∃βv+cQβNsO↔K"β←'3bβ∨=βNsS=βf{∂πSN{9βAε ∨π'r↓#S#O→βCK␈β↔KSHh(''~βWO↔"β'9β&C∃βWε#πS∃α∪7≠e∩βK?W&K;∃%Xh+/↔M[Bv⎇βYβ;7fK;⊗o¬j␈3'v+NoBmy lhS≠'c%{≠'c"[ π3∞s∂⊗o¬imβ ∞cπ;∂-[Bv⎇βX4+↔v!l4(3∂?nk↔;Q¬βK?∂,#WK↔~βS-β∞≠∂↔O~βS#∃ε ∪∪K/≠Mβ≠Nc∃iβ.sCπ∂Zc∪'Oεcπe36K;⊃lhP4+C⊗{∂↔∪/∪∃βWwβπ∂-FK;S↔>+IβAKX4+ .;'9β≤{77↔w!βSπ↑+Mβ↔w#Keβ7∪?5β∞#∪K↔∨→β≠'f)βC?≡KS'?rβAβπv!βOS␈∪↔MβO 4('Nqβ3;-YBu1εc;⊗m
i1↓9rq1β3v*o;2kX4+O'∪';≥ε+;Q3VKAl4Vc;⊗m
j␈;7dK;⊗o¬i↓
β∨+OS?n+Iβ;∞k∃l4Tc;⊗m¬j␈3'v+NoBmYEβSz↓Ebuα→β';≤cWβ↔~β∂πS.;?Kebβk'Aε{Aβ∂⎇+;SKJaβπ∂&K['SJβ∂?∪/→l4+.sR␈3Ns↔No¬jmEe∧εFzkTα
ε≥l6g9→<d∞Y;8-≥Y→<D
yH_,L≤Y<n7c"YM}H~Wf$≤⎇→.∧ (∃-n~;λεd→≠c!!8Y9m≥H≠∪L[zW7n<x;J ]] ⊂MLK_\L=_8B'⊃"B:,D→;]πVλ≥~ ]A"B!≤Y9z-dnd;
zip←lne[0][2 to 6];
if zip≤"9" then lne[nl]←lne[nl][1 to ∞-2]&" "&zip&crlf;
end;
procedure display(integer p);
begin commeNt types an address entry;
string ent,s;
unpack(p);
if equ(lne[0][2 to 6],"IDMAI") then lne[nl]←lne[nl][0 to ∞-2]&" IDMAIL"&crlf;
for j←1 step 1 until nl do
print("LINE ",j,": ",lne[j])9
print(αhashcode=#",cvstr(key[p]),", category=",lne[0][1 to 1],
", sarial9",P,
id equ(lne[0]S2 to 6],"IDMAI") then", IDMAIL," eLse ",",
crlf,"krderinghistory=",lne[0][7 to 18],
", current balance=$",cvf(balance[p]/100),crlf);
end;
integer procedure find(string s);
begin comment interactive specification od∧ABAQCEYJ↓K]iedX~∀∪]QKeJ↓fASf↓aCeh↓←LAi!JAae=[aiS9NA[KMgCOJl~∃S]QKOKd↓VY`Y YHv~)oQSY∀Aiek∀AI↑~(∪EKO%\ASL↓eKg` E)sa∀AQCg!G←IJDMfLλt@FD1IS]I!KY`b1]kYY=ahR@t@`Ai!K\Ae∃ice\ `Rf~(∪SL@!a?gK¬eGPQ
mCgF!isaK%]6bAQ↑@k:$RR6`↓iQK\4∀∪GCMJAs]IKg`P ∪fAi!JA]C5J@DM9[YS]∃7a;6DAi↑@8Ze:Lλ}DRA=L~∀∩%EKOS8AG←]QS]kJlAeKiUe\Q`$v@v~(∩∪K]⊂~∀∪K1gJ∪E∃OS\A%HAeKM`PE'=eerX↓iQCh↓QCgQ
←IJA%g\Oh↓S\Ai!JAMS1J\D~(∩∩LD↓+QCh↓SfAi!JA]C5J}@D1IS]I!KY`d1]kYY=ahRz@AiQK8AG←]QS]kJl~∀∩∪QsaKS9?isa∃S]6b↓i↑@≤4c:vA⊃?YK]≥iPQieaKS\$v~∀∩%G?isAKS\V↓gKiEIKCVQ mCdY Y]kY0XE∪$λRv~∀$∪aeS9hPE⊃∃eJACIJACY0AiQJ↓K]ie%KfA[¬iGQS9NAiQ¬hA]C5JtDY
eYLRl~∀∩∪→←dAR↓>@bAMiK`@DAk]i%XACg%uJAI<ASLA-Ks7St6`Ai!K\~∀$∩∪EK≥S\AgQi?][1S]K7%:v~∀$∩∪oQ%YJAiIkJAI<~∀∩∩$∪EKO%\AgG¬\QgiPYEmCHYEeG!CdRv4∀∩∩∩%SLAEIGQCdt`AiQ∃\AI←9Jv~∀$∩∩∪S_AKcj!gii6DAi↑A⊃:YisAKS\R↓iQK\4∀∩∩∩$∪EKO%\Aae%]hPD DYGmMidQW∃s7S:$XDt@λY][Y%]K7StRv~∀$∩∩∩∩@@@@↓I←]Jl~∀∩∩$∩∪K]⊂AKYg∀AW?Y=`QgiPRv~∀$∩∩∪K9Hv~∀$∩∪K]⊂v~∀∩%K]H~(∪K]H4∃K]Hl~∀~∀→G←[5K]hAMkD[aI←GKIUeKfA→←dAkAICiJ↓CGiS=]ftAiSaGQ∃GVYO∃iQCg v~∀~)gieS9NAuS@YQCg @FAe∃ike]∃HAEr↓uSaG!KGVA¬]HAO∃iQCg v~∀~)E←←Y∃C\AaI←GKIUeJAu%aGQK
V@QE=←YKC8A]KoiS`Rv4∃EKO%\@Eu%aGQK
VD~∃
←[[K9hAEK→←eJA]eSiS9NAC\↓CIIe∃gfAS9i↑Ai!JAMS1JXAo∀A]KK⊂Ai↑A
QKGV↓Sif~(∪uS`↓G←IJ↓M←dAYCYSI%irtAQQJAM%eghAQQeKJ↓GQCe¬GiKeLA←LAQQJAQ¬gPAC9HAiQ∀~∀∪u%`AgQ=kYHA¬OeKJl~∃G←5[K]h↓iQSf↓ae←G∃IkeJ↓gKhAiS`Ai<AiQJ↓IKgSIKHAu%`AG←⊃JAC]⊂AgKiLAisa∃S\Ai<~∀∪i!JAGY¬ggSM%GCiS=\AGCQKO←edXA←d↓eKikI]fAM¬YgJA%LAiQ∀AkgKHAoSg!Kf~∀%i↑AM1kgPAQQJAC⊃IeKgLv~∃G=[[K]PAShA¬Yg↑AIK[←m∃fAiQ∀AuS`↓G←IJ↓Me←Z↓iQJA∃]HA←_AiQJ↓CIIe∃gfXA%LASh↓Sf~∀%BAeK¬XAuS@v~∃S9iKOKHARYVl~∃giQ?Y]Km]Y;6DAi↑@8Ze:Lλ@@@@λvAW?1K]Oi Qgih$Zjv~)oQSY∀AV|`↓C]HAMii7V↓i↑AWtzD@D↓I↑AW⎇VZbv4∃G←[5K]hA→S]HAQQJAG!CeCGQKefA¬MiKd↓iQJAISOQi5←ghA YC]V0AC]H↓gKhAiS`Ai<AiQJ↓MSegPAMSm∀v~∃o!SYJA,|`AC9HAgiQ7VAi<AW:6λ@DAI<AW?V4bv~∃iSa?gQi7VVDAi↑A,Vk:v4∃oQS1JAV|@AC]H↓gii7,Ai↑A-:zD@λAI↑A-?VZbl~∃SL↓]Kou%`AiQ∃\~∀∪AeS]h E∩AI∃IkGJ↓iQCh↓iQJAi∪ AG=IJA←HAG←k9ierA%f@DYiS`XDlDYGe1LX~∀∩∩DA%LA]←PXAaY∃CgJAIKUKGPAiQSLAC]H↓ierA¬OCS\8DYGe1LRv~)GCgJ↓eKg` E)sa∀AiQJ↓GYCgMSMSG¬iS←\QεY 1≤Y~Y∧XA←d↓∧RXA=dAisAJ@yGH|Ai↑↓eKUK
h@D~(∩LEi!SfAK9iertDYG←α#↔#↔g↓3∂?&+?CS~Iβ?→ε∪↔∨'ph('K/#WK→F3π3O*Il4(N≠?77,sQβ∂F+∂/Mε3?Iα∞k↔K'≡ 9αjM↓β∂?&)↓#O}k↔S'n+Mβ≠Ns∪Mβ6 3O∃εC'SMJ`4($N ;⊃β⊗+7?[/→βS#,iβ≠K}iβ↔; β?→β∞#∪K↔∨→1βSzβ/↔↔αβS#↔hβ?84PH'S#*β≠'K≥!β3'v)β?→π##∃β,sSKeXh('∂}k7↔nDπ&F≡4εF∂4∞Fzε,Tπ&FT
F∂∨D∞ε∂↔D v2π-≡ε≡F\=2bπ=≥f≡*
}FF/$
&␈/M≥f/_Q!∩αα∧ ↔∨∨]\Rπ& ≡Bπ& Tε≡f≡>66N<≡FN}d∞&.n≥≥g~ε≥dπ'O Y⊗sXQ!⊗N2∂-↔↓b'∀"ε␈$λW∂*∂-↔αb)_Dl ∀%∩π& ]bεfl[6ve[}7'%6∀π&Z
;R6∨-Lbα~λ70hP≥≤bπV≤βB∪J$
w∩ε↑≡RGV≡¬B∀LIX∀J∩∀∞FF.d
Fv-=mEm␈>NE[
∞Mrε]Tl7εfd∧2∧31Q OV≡ r∀|j+¬B∩∧4∧sXQ!↔VO t$$
*λ∩∩α4 SXh!∨&O¬t(∃-$yT"α~λ↔0hP∨-↔¬z(~U$|d$α
∧'1PPN]lCXh.,W'∂-eπ'↔\U∪Xh,]f"α/-↔ε≡ \6J∪1Q hW∞-v≡.N↑&*ε|↑FF∂=π0hV,\vNr∧,v/& ≡6B⊂Q(6}n\X ND≤y=∞∀~_<m∧≥≠h ∀~_<m {y→$
[⎇λ ≥≤Y8,O(~;D∞~→(∞L8[→%A"B8L\z;[M≥Yh≥m≡~λ≥
(→R..⎇λ≥
∞Y9( =_8X,>→<\d
yH≡M≡∞c"M≥]→9l↑H~K
5_k→π1"ZwmL9Y⎇
¬≠≠Y+67*.d
Wzh M=H g∀~wlE-Nc"LMb8Y,⎇9H_k⎇≠Y6f≠6zH∞MβP5.NP5/u X]FEαrs2⊂≥w:4vλ∀1NQ⊂Q⊂0w→⊂1N⊃⊗⊃∀P7\⊂5≡X∞FE4sλ1↑⊃ H⊂7y⊂_←⊃-⊃λ:42wλ1oQ,λ≥FE2≠Dq2sZw⊂2/[72mXWmuP:≠P5n]H5ouVL]FE∧Yw2⊂:[:4v⊂
2∞Q H⊂0w2λ2∞⊃-λ∀P7iλ5↑X≥CE4s⊂~↑X⊂:~2w⊂2↔Q%⊃
CE;t4[2P:9≥rP27CE∧q2Ytw⊂4_yt/⎇~x-XP≥7P→nI1S2≥H5oq{_yqT4_yt∀]CE∧tsλ9rpy_t∀5TOX⊂:4→w⊂27[2]FEαts⊂2εQ-⊃⊂≥42w→/r∃XCE∧rv≤rDq2Ytw⊂2↔Q Q≥CE∧DtY⊂1MQ⊗⊃⊂:4→w⊂1oXUXP"[9rP1WQ Q≥CE∧Dr[2≥FEαrw2⊂λP;tv≠⊂67w\⊂37i→{2y⊂~s⊂∪≠M⊂82w\62P;Zz4⊂9XvrP=~x-XP≥5P→nNFE2w→⊂⊃3r]40ydλ≥FEβ1wvvYw:⊂(≤7qrr≥y2yP→5y⊂:\20z2H0qz4[w9]⊂≠7wuV~w9V6Y<V22[⊗:x2_z2V9Z7y:2[≥FEεB897qYr:y2H67wuNFE4s
8/s4[2∀⊃7Y⊂2w:≤<P:7H12P2~yx6 ↑rr⊃∧J↑X⊂*~2w⊂)→z:y7βE2v)YP24y\60tT≤∀YFEβE897Xrr:`2e shopp K\αC';S,;↔Iβ ¬∪@1"\⊂→~w:∀"That↓YSMJ↓oCf@λYHHDαβ∂#πα,⊗∨&↑$"bε≤dε#k∀
FF.d∧"αε]H lTλ\hEA Hλ∧∧λλλD∞≠{h
M{Y` M|H∪n↑H≠8-≥~;Yd
_8Y-NiC"D∧λλλ∧∧∀≠⊃,≡y(≤m
|]→-d~= D%_|[ e,¬FEβE897Xrr:i→P4w9NFE12Ytw⊂1[vvr`.t interactive insertion od new address;
integar i,c,p; string ent;
print("Type the new Address, two to five line@LAY←]≤tDYGIYLRv4∃]Y>@vAM←HAS>b↓ciK`bAk]QSX@j↓I↑~∀%EKOS8AYCE∃XAae=[ahv4∃ae←5aht∪AeS]h E→S]∀@DYR0Dt@D$p
βS&K9l4PK' β'KC↔'sk'∂Iπ##↔9ε#?;∃Xh(''2β3↔;?#!#SMβ↔'9KqMEβ&C↔8∀PH' ↔>K9βOF{CC↔pC3↔≠?#!#SMβ↔'9JiMU%Xh($'>yβS=¬βC?7π!`_h!⊃⊗.vG1PPNMlUNMYzGOε]→b6fe0λ
m↔z.aQ@9;LGc"R,D≠[∂&∧≥~→-d≤Y5∞↑YJc!-9H≠MG,(∃
;C"A≤Y9z-d≤≤Z-n
λV-}(≠Y,\λ_;M}~→<D
~;Y'4≥≤↑$ 9x:-eHK⊂⊃\43∀]H92z:\7→FEαrs2
CE4s⊂≠7z⊂=~x1t2XuT:9≥rTP*~2w⊂9→z:y7∞FE1w[vrw:λ=4x1Z2quP≤pz9P⊗$h⊂0[2⊗⊂ )d necessary( the last line of LNE;
c←lop(typein) # C, F, N, M, A, or B, left over from zipcheck;
gethash;
ent←c&zip&"NNNNNNNNNNN0";
for i←2 Step 1 until nl do ent←ent&lne[i];
if(p←inseRt(lne[1],ent,hash$0))=0 then return;
afchanged←true;
print("OK, I'vE inserted it; hash code iq #",hash,", sepial number is ",p,crlf);
end;
procedure mby;
begin comment interactive modification of an address;
bgolean zch # if zipcode could not havE changed, avoids a typeout;
string ent;
integer b,j,jmax,p,k;
if (p←find("of entry to be modified"))=0 then return3
display(p);
zch←false;
while true do
begin jmax←nl+1; if jmax>5 then jmax←5;
print("Type number of a line to be changed (1 to ",jmax,"),",crlf,
"or <cr> if modifications are complete: "); ttin;
if typeiN = icp∧AiQ∃\AI←9Jv~∀@@AU⎇isaKr j>jmax then print("Invalid line number.",crlf)
else begin label prompt;
prompt: print("New line ",j,": "); ttin;
if typein=icr then
begin comment deleting a line. Make sure that it doesn't
reduce the address to one line (causes problems later);
if j>2 then begin
nl←j-1; zch←true;
end else print("Can't have an address that short. Try again.",crlf);
continue;
end
else if length(typein)>35 then
begin shorten(length(typein)-35);
go to prompt;
end;
lne[j]←typein&lf;
if j≥nl then zch←true;
if j>nl then nl←nl+1;
end;
end;
if not zipcheck(zch) then return;
afchanged←true;
ent←lop(typein)&zip&lne[0][7 to 18];
for j←2 step 1 until nl do ent←ent&lne[j];
k←key[p];b←balance[p];
if not equ(zip[1 to 3], lne[0][2 to 4]) then
begin delete(key[p]);
gethash;
print("Hashcode changed from #",cvstr(k)," to #",hash,".",crlf);
insert(lne[1],ent,hash,b) # it goes into location p again but relinked;
end else
begin comment hashcode did not change;
nmline[p]←lne[1]; lines[p]←ent;
end;
print("OK, the modification has been made.",crlf);
end;
procedure del;
begin comment interactive deletion of a table entry;
integer j,p;
if(p←find("of entry to be deleted"))=0 then return;
display(p);
j←ynresp("Do you really want to delete this?" 9
if j≠1 thenretuRn el@MJ~∀∪ KOS\↓IKYKQJQWKe3a:Rl~∀∪C→GQC]≥KI?iIkJf~(∪aeS9hPE∨,XA∩Aα#'⊃βM!1 3∨∪3→%Xh('↔v!l4+.s⊃l4Ph+CK}≠↔∪W⊗)βWC& S∃↓~β7π'pβ∂?;'∪?1β⊗{WS'v)β≠?∩βWC∪∂#∃β3|{Al4V∪↔∨'rβ∂?7n+;Qβ>C↔9β&+ W∨>K;≥1ε≠π31ε∪π'⊃∧C↔K∃Xh+←#Nc∃βS↔+∃β∪xh('∂∂≠∃βK/≠A!
-α∩εR+Qα&:~aα∩⊗baα6>"aβ?I∧b>.-z↓ 3Wε##↔3αcWC∪␈βSM%∧¬v h!⊃⊗⊗.⎇≥bε&⎇lS↑Nn76&.G=V7Kα{∪m⎇nc"A⊃9;Yπ1"Y;LGc"@↓L{{;,]]λ∃
(≤≤M|y9≥.,(≥z
≤zλ∀L\{|Y∞4≠|Y ↑\h≤L\y:5L\∞c"AQ\≤[l<9≥<LT≠|Y ↑\jc!,Y9z-dλ[tLL<\hAQB8{m]9;]∧∞~→( m;→<d tQ⊃**kP ,⊗⊗⊂;t→y2P,⊗,⊂4yH0P6w[:4⊗εB∧P⊂⊂λ1ww9Zyz⊂'Y⊂0P'≥vq2yλ7s⊂&~w2yP≠s⊂:4→P37i≠PεE∧BP⊂⊂⊂λd$$$∩⊗)aiTi]""⊃":0q⊃ j"a\63εEαP⊂⊂⊂≥t2y2H$ $$∩⊂4yP≥42P4_yt1gY2P∀4Yw7y2Y⊂4w⊂≥42P8≤7qri\ts3DKεA∧Pλ⊂⊂)iTiiP4\P:42H9ry4Xv⊂7:[q2y⊂≤αight-justified to seven digitq,
DDDD iq a varaable-lEngth listob report-order digits
0,...,9,A,B,..., and DATE is the date oF recording this order in the file;
integar flag,j,p;
integer imax # number of entries in the file when we start;
α procedure add εAkg∃HAi↑↓akhA9KnA←IIKef↓S]i↑↓iQJA→SYJv4∀@@A KOS\ACIHλ~∀@@@@@A
Y←gJ!SGQC8RvAY=←Wk`!SGQC8XE←e⊃Kef\λM[←\1MYCN$v~∀@@@@@↓S[Cq|`v~∀@@@@ASLA∃]iKe→CSXQ=GQC\0E←eI∃ef\D→[←\R↓iQK\↓eKikI\v~∀@@@@ASLA→YCNAQQK\~(∩@@AAeS]h E≥↑A=eIKeLA←\A→SYJA→←d@D1[←\XλXA∩A]SYXA
eKCi∀ABA]∃nAMS1J\DY
eYLR4∀@@@@@AK1gJAE∃OS\@4∀@@@@@@@AaeS9hPE∩↓oSIX↓CaaK9HAi↑↓KqSgQS]NA=eIKeLAeKG=aIKHαβ?9β4¬⊗f* z$$
*5b∩f]x EDKHC >Y→J'⊃"B(∧∧~Wl∧∧h_sn]]λ⊂~~2P7:[q2y ob eNtraes se Read In;
sTt←input(i@
QCLY MMYL$v~∀∩@ASL↓KcjQMii6b↓iP≥↓ αu1
≤z6&⊗u!Y↓⊂IβS#,¬`hPα"(∧∧_Y9m≥H≥z
≥→(_N z_<C=9YH Mh≤⎇∞Kβtw8≥z⊂4`#haf,bff) # skiP directory page9
sTt←input(iChan,Bfflf);
end;
do begin
Out(oChaf,Stt ∩v~∀α∩@AU?(Vbf~(∩∩@@↓gii?%]akh!SGQC8YEMM1H %LhP$%↓αβ'→β∨#Qg≠2βS#↔p∧π>≥↔p∀[8:z∧~qt0w 133&→α)0⊗~(∩∩@@↓K]H@4⊂∩@@↓k]iS0AgiHβiAl4PI↓↓βL¬V∂E⎇'0hPα(λ∧∞≤Z;NE~;8/¬λH⊂∩[894`%pεAM←β+;⊃βL¬b∧⎇(HU∃~ h
-L+H@⊗_y0 f);
α end;
λ j←0 # @]SYXA JAkgα+⊃βSzβ∂?Ww!βC#*β;G\,W$≠yH
}Y→4NP0r2→p∧ dup¬S@;8∧π&F≤4π<αyy`)on0⊗~(@@@@@AoQ%YJAiIk@∃β&yβ ↔>K9↓ v+c@" 8
.z7vr\α"~∀$@@@@@ASL!a0∨≠L¬f"B-x D∞→<\m⎇H≠p→→2y4g→β"))=0 then doNe;
if resp( ¬%Kaα{@↔≤h⊂↔\αdered: " ordhelp2,@9kYY←AhR`5α∧π&F]`λ ={]~-n9.c!!(λλ∧∧λλ∩K⎇Jl&aQ@∧P⊂λ⊂⊂⊂⊂≤p¬tfOp¬P↔π A]!IKX4(∀∧ααα∧∧ε␈/E
v≡F≥aB$hIP⊃]9z1∧~p|mx↔TS⊃ελα"cvS(p ∩LλpDMieaKC]lbAi↑≤Zc:4⊂∩%α↓↓↓↓α↓≠Cπ⊂3∪πS*3∂KLe∪Xh!∀ααα∧∧απ≡↑Lf␈⊗β8=¬ελε→∀Nβ
α efdAP≠↔G!β∂W≤εF}n↑ #Xh$∧ααα∧∧ε≡f}8RF↑= ⊗rK1Q"αα∧∧ααπ∞-⊗wα
%B$≠Y5d
βy22\αs writteN onto ORDERS ≤Dαc7?9b⊃β≠∨⊂∧ε
πMzF∞b
x D∧K~3,∨λzK∧%HK⊂⊃\αhf);
end "a`d"l~∀4R↓↓βC⊗{∂↔∪,ε&*ε= rα~∞Z6."∞Mrεnβy~,O(≥~ T≠|Y ↑H→P↔\α one kf @QQJAGβ+OS?n+KMβ∞c@⊗.≤O∩εNd
FF* h
-L,c"D∧λ_Y,@tp∞ "change"
habel reStardl~∀@@@@@A%]iKO∃`ACeICrAgα+C+WmYEk∂≤¬↔V-W0π∨'-≥f:ε≡.&∂J∞M6/JN,Wε␈.N2f'L[3 V>9↔V-W1PRα∧∧ααα =F␈≡U
⊗≡F≥e∪@4≠≠{m><
~,=_;K∧
|Y→..kHIM]{K→ML9j.aQHλλ∧∧λλ~,D→[⊂,T≥~→-d_Y9m≥C"B$∧λ≤≤M≥]
⊃∪7P7i→2y9P≠w⊂3$[2P3'\⊂⊃⊗6[w⊗⊃⊂≤wP$P_pw∪zλ1t0w→rP0w≡z44w→W⊃⊗!\63∀]CE∧P⊂λ92z:\7≥P2[2≥FEλ⊂⊂⊂⊂λ⊂1wv[rw:⊂_v67{H:42P≥yry⊂≥7P6wY4s<P≥42P7\22y⊂→4v2]CE⊂⊂⊂λ⊂⊂⊂1[vvrg≥⊂34i≤z⊗⊂)→pr⊂4[⊂:42H34v2K⊂0w2λ9z7y→P4z⊂~w⊂:4→P0y9_|y]FB⊂⊂⊂⊂λ⊂⊂9z≥/tw8≥z∀4qZ0w⊗1→363∀NFE⊂⊂λ⊂⊂⊂⊂~s⊂2x]T9z:⊗XP:7H_X.Vλ!gffQg*⊂ λ⊃∀P:~2w⊂1→stwεB∧P⊂⊂λ⊂⊂⊂;Z4v2P_91t0\
ts3λ27P9]:/tw≤:z∀4Xt0w⊗_33∀PλP9ut\⊂24y→qz7y≡P80sY]FE∧H⊂⊂⊂⊂λ⊂9z:↔tw8:]∀4qt_w⊗13→63∀]CE⊂⊂⊂λ⊂⊂⊂2[2≥FEλ⊂⊂⊂⊂λ⊂37yλ4oXP≤z2x⊂ P:w:~v⊂1yZ⎇2P2≠P12sZw⊂⊃9→pr⊂7\22y9H34v2HεE∧Pλ⊂4s⊂_91t0\≡X⊂:~2w⊂2≠w2]FB∧P⊂⊂≥5r|mZnoyz≥-Y⊂:≠P≠.]CE∧P⊂λ9z:/\z:-\λ:7Pπ↔]FE∧H⊂⊂9r\7:vmZnotw≥9qpw
9z:⊗_91t0\∀]FEαP⊂⊂9→x7y:≤mtno\qpw∀≤z:⊗1≤x⊗19_t0y∀VY⊂:7Hπ.]FB∧P⊂⊂≤qpw∀≤z:⊗1_t⊗19_t0y∀NFE∧Pλ⊂2:2Vtnoy]:-XP≥7Pπ⊗L.]FEαP⊂⊂9]:/tw≤:z∀4Xt0w⊗_3363
]FE⊂λ⊂⊂⊂⊂λ2w2⊂λ92prλ7y22\9P34[2Q≥FB⊂⊂⊂⊂λ⊂⊂4sλαrwsλ:42wλ12st[εE∧Pλ⊂894[:∀⊃+Z7wx9K⊂*42H7y22\⊂34v→P4yP≥7wP1~sP37\⊂6rP≥7P6wY4s<Wλ⊗1y6→⊗εE∧BP⊂⊂⊃⊗wzSv≠⊂40{→P:7P≥yrP"K⊃⊗1y≠3∀]Pλ92z:\7≥P⊂→w2≥FB⊂⊂⊂⊂λ⊂⊂4vX|/tVL]FE⊂λ⊂⊂⊂⊂λ894w≥∀4vp↑⊗⊃⊂2[:94r\P37z[2⊂4wλ'i""T)P34[2W⊃⊗_y63∀NFE⊂⊂λ⊂⊂⊂⊂_wvvr[:⊂40]2P92Xr⊂4wλ:42P→4v2Vλ77{P≠2z⊂:~2P:yYy⊂6wY4s<P~z≥FEλ⊂⊂⊂⊂λ⊂4s⊂→w:2y→0tv∀≠qt0w ⊃7y2→y9W⊃ 6ww∀H:42wλ92z:\7≥FEλ⊂⊂⊂⊂λ⊂1wv[rw:⊂≥44yP≥yrr⊂≥7P7qXzy⊂2Xy64r\⊗⊂12Y7y2P≥42P3~v2P;XyP92Xr⊂4w ⊂⊂*4→P92y]v:⊂;XyFE∧H⊂:40]⊂4s⊂≥42P3~v2P;XyP4wλ30qzλ:7wP_4sV⊂≥42P9≠zz4w→P:7wZP:42H2y97\⊂92z≥y7⊗εB∧P⊂0[2⊂:4→P9zq≤rxzr[:⊂1v≠yzy2H7s⊂:~2P1t_w72vλ6rpw≥⊂:40]⊂0w⊂→vx:<H34v2H;pyP≥y4z:→w≥FEλ⊂⊂⊂⊂λ⊂5/X∞P5oX∞P1wv[rw:⊂≠:vq2\⊂7s⊂≤2x7y≥9P1t_w3rrλ0w2⊂→2v2z→r⊗⊂9→yx2q]4{2v≡]FE⊂λ⊂⊂⊂⊂λ;t4v→P:9:YP27P_2stwλ⊃72|≥⊂1zy]7vryλεE∧D\z94w→P1wr→]P60X2v⊂3≠zw2≥CE∧DtY⊂92y\∀⊃"w≥2y⊂4_yt⊂1[r2P7Y⊂1zy]7vryλ:7P1→P6wr~s4rr∞⊂⊃Q⊗βE∧DDH⊂⊂7y→42v8 ⊗7:v≠7x:∀OX⊂⊂⊂λ⊂⊂⊂⊂≥42w⊂→7w2]CE⊂⊂⊂αP∧qwY2oz<\2tw-LP:7P
n]FEαDs7yλ4oXP≤z2x⊂ P:w:~v⊂4vX|⊂27HεE∧DH⊂⊂⊂4Y⊂2xzJ:5r|VtnV1[r2TP≥42w⊂→wz7P→7zw2∞FE∧D\94w:
⊃*40]⊂1wr→P4yP≠7z⊂4[⊂:42H34v2K⊂*9<H0spt[↔⊃⊗1\63∀]CE∧Dq[w:4w≥r]FEαs7zw→≥∧tsλ<w92\x∀⊃$\P:42H70vrH⊃∪76[4w2m\ry7:[mtnnVXP*'Hπ⊗Y.I⊃∨Q∀FXP:4→w⊂1g[:4w:Y]FE∧Bx94w≥,ordhelp2,nullopt)=0 then begin
reports[i]←null; k←k+1; end
else begin reports[i]←typein[1 to ∞-1]; dte[i]←date; j←j+1; end;
end "next customer";
print(j," records changed in ORDERS file.",crlf);
if k≠0 then print(k," records deleted.",crlf);
comment now write the file back out again;
setformat(7,2);
for i←1 step 1 until imax do
if reports[i]≠null then
out(ochan,"#"&tkey[i]&","&cvs(sernum[i])&":"&reports[i]
&tab&dte[i]&crlf);
setformat(0,2);
close(ochan);
end "change";
j←resp("For which month? ",ordhelp1,months);
if j=0 then return else mon←months[j];
while true do
case resp("ORDER: ADD or CHANGE? ",ordhelp2,ordopts) of begin
done;
add;
chg;
end;
end "orders";
comment The `ReceiVe' procedure, which handles virtual money;
procedure receive;
begin coMment interactive processing of receipts;
while true do
begin label prompt; integer amt;
`←find("of account to credit (or 99999)");
afchanged←true;
if p=0 then done;
prompt: print(αAmount rec'd (or amount + or -, if accoUnting adjustment)? $");ttin;
amt←inscAn;
if scale≠2 then
↓ begin print("Type amount @→←YY←]KHAEd@qGdxXAJ]≤\X@j8d`yGH|XDY
eQLX4∀∩∩@@@ES_@@j\H`AQCLAEKK8AeKG∃SmKH↓S\Aa¬s[K]PAM←d↓iQSf↓CGG←U]h\D1GeYL0~∀∩∩@@@EQsaJA¬[←k]PAM←Y1←oKH↓Er@ZqGd|A%HAiQ∀ACGG=k]hA CYC]
JASf↓i↑DY
eYLX4∀∩∩@@@EI∃GeKCMJAEr↓iQSf↓C[←k9hAEkPA]↑AACs[K9hAQCLAEKK8AeKG∃SmKH8DYGe1LX~∀$∩@@@E)sa∀AC[←U]hAM=YY←o∃HAErVyGdxASLAQQJAC
G←k]PAECY¬]GJA%bAi↑λYGeY_X~∀∩$@@@@ S]Ge∃CgJA rAiQ%fAC[=k]h\↓∃kgh↓isaJyGd|↓i↑AY∃CmJAQQJAC
G←k]PDYGe1LX~∀$∩@@@Ek]G!C]OK⊂\A!K=aYJA9←hA←8AiQJ↓[CSY%]NAY%ghAQ¬mJAQ¬gPAG=IJ@Fdrrrr8DYGe1LRv~(∩∪O↑↓iVAaI←[ahl~∀α∪∃]Hv~(∪SLA eGQCHzDZD↓iQK\4∀∩∪E∃OS\A→SqI?→SqHW¬[hvA CYC]
K7a;⎇ECYC9GK7at[C[hl~∀α∪∃]H~∀%KYgJ↓SLAEIGQCdt@VDAQQK\~(∩∪EK≥S\AMαKc∩␈6Kc⊃7∞kQmβ⊗ 3π≠≤*gBv}∪π3πv≠⊗oBj[π7QXh($'.s⊂4(N+3O∀L∪↔∨'rβ3π .aβ;?& amβN1β K≡CπHm∩q βSF+84(HH' ↔>K9βC⊗K;Q!∀K;∂?↔∪↔∂Qε3?K5bβSKeε ∨π'rq 3∂⊗c→%lhP$$'>yβS=πβK?7π!l4(HH'↔;#X4($NK⊃β//JoBun≠[πO~A eeKIe %¬##↔8hP$$'⊗+∨'9εK→βgw∪↔OAB∩∂π3N3?K;L βK↔≡K∪↔;#y $m
βS#↔pβ∨=β&yβ;∨& al4PH$'↔v 4($N+3O∃εK→β//JoBuf≠[πO~A eAβ↓A %ε{Iβ//JoBtn≠[πO~A eY;↓A %π##↔8hP$$'>yβS=εs?SπCX4($N≠?77,sQα←*β7WO"βCπeπ#πaβ}qα∂πfK≠?KvK¬βK/≠'∪↔w#M1β&C∃βS∂Aβ←π_h($$LK;∂3.#↔⊃βNqβS#*βCWK≡CπO∃πβK'∂+X4($N≠π3K.≠∩␈∂∞cK↔∂"[π7QXh+;?& ah$N∪π3πv≠⊗oBm{ π3∞s∂⊗o¬i7π7#YβK↔≡"␈K↔≡!/π7#X4($N+;⊃lhP'↔;#X4+↔v!l4(3∂?nk↔;Q¬βK?∂,#WK↔~β≠ ?$
V∞↑≥lrεF≤,Vg≠$
F∞∩L]VO&L≤"f.lMF∞∪1Q hV≥nF.>↑$εg'≡ Rα~ε∧ε6␈$λ∃4-+∀εf∞,]G
bε∀ε6␈$λ4D
9 ∃∀+1Q&NwL\v/∩
H7"α4
V}"ε4ε≡␈]nF/∩ iwα∧9λU≤D~(Rεf≤,Vbε}↑Gπ∂G1PW∨N-⊗v: ≡',>(⊂MMY6d'&7(λdλr⊃4i 4Q(
L8Y;∧ ]9QL↑Lc"AQ\⎇≤M≥Yh≤∞-xy1∞↑Y(≠ ≤J~;NL9y4D∞ ≥fd Y{{ \;H≠∞n;\_,=y9β nY9*'1"XY,]9H_m⎇;90↔≥⊂6puYyP0@
Vv4w→P60q→v⊗⊂ 7 characterpεAoS⊃JXAM=dACI⊃eKgg∃JACH4∀∪gKISCXA9k[EKHA`XA∃SiQKHAYKCYS]NAQQJAe∃gkYh↓S\AYαs⊗mFjβS#K*β3+⊗[*t4(JC'→βg3W;C∞≠/↔⊃εKEβS↔+∃%β⎇⊃β∪↔d¬↔6/-≥f:ε≡Dε∂~ ∀π∨'-≥f:pQ!∀N2 j&.+↑N'.*D∞FF*∞⎇w⊗"∧%∧5∀XU∩∩ε≡4εNw<Z'&.D vrπM Rπ≡\8 mlλ≠∩-l#"B.⎇→;@ ≡≤≤[n∞Z8= Wc"P⊃[vvr`.t liNes are padded To fuLl width;
unpaci(p) ! puTpεAiQ∀ACIIIKgfA%]i↑AQQJACIeCrA1≥αv~)MP∨I∧J⎇Eβ∨#↔A↓λβW;SLaβ;1∧#<4(N∪↔∨'rβ@∨'KyFv-=≠U[
∞MrrV+R6⊗β_;M≡hλh∞ 9λ≠n↑λ→8,=λ≠∩-l(≥≠d ];⊂⊗λ;tr:~≥FE∧[52mtWoyz:⊗XP:7H;R[.I∧E∧T~s⊂4↑LP:42[⊂⊃⊃Q 1{9j≤∀5rlVx.TP_wvvr[:⊂8:]⊂4w~0yt_wr2]CE∧rv≤pP4cλ392rH0s2~↑Y⊂0[2⊂67→mX ≥≠ C" then "(FREE)"¬
else stt[w-5 to w])&crlf;
end;
for i←nl+! step 1 until 5 do lne[i]←
↓if lvunpacked then blanks[1 to W]&crlf el@MJAGe1Lv~∃%HAYmU]aCG-KHAi!K\Ae∃ice\ DDR~)KYgJ↓eKikβ∪9#3v*mFu6c;⊗m∃i≠3;-YNu≠d¬f-[KPffV[6Uj6>-F2Kat a qixth blank line was returned;
end;
procEdure emitlab(integer p,free) # outputs One lAbel;
λcasE ltype of
beGin out(lchan lab(p,34,False,dree)) # AVARY labeL9
begin # CHESHIRE label;
lab(p,31 true,free);
for i←1 step 1 Until 5 do
case lct of
begin
blne[i]←lne[i][1 to 31] # lct=0;
blne[i]←blne[i]&" "&lne[i][1 to 31] # lct=1;
blne[i]←blne[i]&" "&lne[i][1 to 31] ! lct=2;
out(lchan,blne[i]&" "&l@9K7S;lbAi↑fc:L4∀∩∩∩$∩PNbTLD&D$R@FA1Ghzfl~∀α∩$∪KMHl~∀α∩@@AS_@QYGQ>QYGPVbS[=H@hRt`AiQ∃\A←kPQQGQ¬\XNbTLD&D$r~∀∩%K]Hv4∀∪K]⊂v~∀~)ae←G∃IceJ↓K]IY¬Dv~∃ KOS\↓G←[[∃]hA←UiakiLAiQJ↓YCgh↓YCEK1bXAS_ACMrl~∃CL↓Yasa∀@z@B↓C]HA1Gh6`↓iQK\αβ?WQFc∂#πpc 3;-YFu→B9E@*d"2αJl-Fv-6+R2Bv⊗R2⊃4!∩0h!≤&f@Y2dkTJ d&THDhE∀X[≠L[m↔!E∧l-)DαhJ)L-≠Y6f[)J f⊗αS⊃ H∀T]FB1v7yYT61t_w∀]FB894w≥∀⊃*4→P6pt[4w3@ labelpεAQCYJAEK∃\Aoe%iaK\αβ?;Szβ∪'3*α2ε
,bM*Rm↓94U#=βC⊗K;Qβ&C↔51π≠↔∃βNsOSK,≠S'?w→β'9¬##∃β/≠↔Iβn ;WπcYβ ∃π≠WK∃∧εFzεLYF/&QQ'&F≡4ε -9→( ≤β:2i≥py29K⊃⊗1i≠3∀]FB2s2;
comment The MAIHλAaβ∪?∂↔'+C∃β∞s⊃β'αN2π∨\.π-βqr`$ures abst1S]m↑1S]lYβ≠SπSαX eNxx;M}Y→0→≤β;
λ¬ae←α≠↔'↑,Rε@8:0⊗∞β
αbedπS@9∧∧6}nβ90↔≥⊂:0uYyP1`!pe o@_ACEGβ#@⊗∞>@λ ≥Yλ⊂∀[8ε`∨Sα≠∃β7∞K3'l}3Hh,8 m]9;]∧
~→( @4πll@=oS@;8∧ε∂↔,∨↔4_8Y$ 8ε6 /cateD h∂]YβIβO'&C'9αl
&!lhS';S,;↔Iβ∂∪@⊗∂∀λ l]Y ∀m}\X mL≥0q`)ze] # rec@=` ⊃β|∧bε←,LW.h≥~ ≡λ_p⊂[⊂0w2λ1pwβ]⊂12P→αidl@∃Hv~∃αK;@&\|W$_8\L∨(≠<mmX∃~ ,¬ # the Bit c@=` K↔≤εε}vM→f 4≥≠h ∀≤Y4
}] λ
≤β⊂:4_z⊂92\7y2εB∧pp 0ears on the cuRp¬K]h↓[←]i OfAY%ch@QMK]HA¬]HAg=` Ke∧εW≡(≥~ ↑y(⊂M≡λ_p↔Y2yT]CE9z9~w3P \αray qtabname,@IKai]¬[C -βQQJ@T∧2εNLX NM9Z0∩\β a @IKa←EPp 4 L¬g&.|X D <X 0↑P9z7XuP f@%YP∪↔ ¬G.vi0 πε W ⊂λβ on↓QC@; ¬Bπ⊗↑≡V/∨N4ε&NMH ,Eλ≤Y.≡9<p~≤β unfilleD9
iNtege@HACe@⊗ eβK-βS∂?≥"`≠β&@ KTλh⊂_≤αice o` Ae∃aWe@ ∧εNr∞λVv@X∧r`39
αi@9iKOKβ⊃β'\∨αα~
\↔FNβ=;$∞Y<⊂↔\αpλA]U[EKdβX4+∂|¬Vn8π: The @¬` KπLε2ε∂,Tε&Nβ90↔≤βi`∨]∃HA@Hβ⊃≥β ,∧6∂/<Tπ&F↑,RεO4 ∩β:↑ F∞≡Tλv∂α
→bπε ThPα;]-\Y<Z-lh≤v.>→; ⊗λ12z;Ypp∞ dicits a`≥Hαβ3↔SαLW.iHλλ≤⎇→0-M≤∧V⊂≠w2<P Xε reports can
λ be ha`≥I1K@ASαqβ¬β≤¬⊗v>LTεn∞≥H
-lkH⊗h≤⎇≥0⊂[68 , it'c only 34$ @ KGCKβ≠∃↓@hP''Op;QβW≤∧V"εmx D
];8L↑X;YkWc"P⊃[vvr`.t The 7-place gap caused↓BAgGIKok`↓←\@nβI5]≥≠ 1β .≠πWO*β'Qβ≥;'S∂F+EβSF(4('}#⊃?↔6+9βC∂∪'Se∧∧f␈∩
↔⊗&=x ∂∃{:8n-yZ0m +Hλ
M→(⊃IzH≠⊂↔[x9P4_{2P:≠P12FB∧qt0[3rr acain to Rectify the bug≠
¬
recursive proceduRe abst(integer p) # emits mailing labels in symmetric
order (i.e., in order by hashcode) for tree rooted at p;
if p≠0 then begin
abst(llink[p]);
j←lines[p];
if j="C" or j="F" then eMitlab(p,true);
abst(rlink[p]);
end;
integer procedure status;
begin comment prints a status report for the user, and returns 0,1,2 according as
the verdict is to start over, go ahead with shifting, go ahead without shifting;
print("I have read through all the orders, and here is how things stand:",crlf,
"(hardcopy) To be Unfillable (microfiche) To be Unfillable",crlf,
"Cost On hand sent requests On hand sent requests",crlf);
for i←1 step 2 until imax do begin
print(starname[i]);
j←cvc(i)-"1";
print("$",cvf(reptcoSt[j]/100),tab,stock[j],tab,fiLled[j]( iCλYk]MmU:Yi¬DRv~(@@@@@AU?
mFQR,bRZDD@v@~(@@@@@Aae%]hQi¬DYiCλYgi←
P∞o*jcSπ f3'33."o*Ug#π 3.s~o*jc∂K32Il4)α↓β↔;#X4)↓αβCK'w!!
Cf+πO∃ε≠#↔∂ZβS#'~β∂πK.3W33Jqα'→π##↔K*β#πMε∪↔↔9π≠?7∃ε+CK?∩a 3∂⊗c→04R↓↓↓↓α∪SgC*↓s∂IrβS-β/C'Qmε∪WQβL1β'Q?→βπ3bβK'∨G!βS=ε;=βπF+π" ≥f"π∞-⊗w"∞Mε*ε≥nf}N<Z2b∩L>&f2AQ"αα∧∧α↔π≡λR¬KL>#rε≥lB∧J∞⎇⊗f@λ≤≤L↑_<Y$∞~→;'$λJ.d∞≥~;G1"Hλ∧
9H∃∂≡→:3Dπ(λV$$≥~→-d_Y9m≥C"H∧∧λλλ∧
W|Y.≡λλSi5λ∩(∞⎇9≠λ ,9z;D∞≠h≥m}Xh∪md≥~→$
;][m≤y<kD$X|[ dβ⊃"7H<wp∃ want the"&
↓ " activity codes to Be shidped? (Y Op N) ",acthedp,yasnoopts);
retu@I\QTRl~∀@@↓K]HA∃YgJA KOS\4⊂@@@@@AaIS]hPα∩>-⊃∧Iβ←'faβ;∨ βCK'w!βS#⎇≠∃β'w3?'∂-→1βCd+πO∃¬#@↔J ≤v∞NβK@EL|[⊃E↔c"H∧∧λλλ∧∞Y=≥.
J
'FE⊂⊂λ⊂⊂⊂⊂→w2≥FB⊂⊂⊂"[2≥FEβE⊂⊂⊂≤97qbY8y2P≤qpw7\22y9NFE⊂⊂λ12st[⊂⊃9qXw3y2→y9Q_wvvr[:⊂92Xp∧ through all ordeRpεXAC9HAgKPAc`AQQJAAβ≠↔;⊃8↓→ββ≤{@↔↔∀pε∂↔,∨↔ XQ$ααε<[∃K¬[vβXh$∧απ∨LKvNw∞↑BFN= ⊗rf,hff2↔1PBα∧ ⊗ $→<=%∞⎇≥⊗f∀≥≠hε⊗↔+λH→pεfbSαT ⊗ ") then¬
bedπS@9¬;#'3*β K∂F @o'61β∪=π≠SR␈NsCWQFK∂#πpc ≠→J↓
βO↑KAβ∪O∪↔∂S⎇∪eβC∞;∃l4PI↓↓β≥#Ro'wβWQ#L∧6F∞eL&66Le∪Xh!∀ααε]lCXh$∧αε6} λ
≠l(⊂→]2x⊂_H8p∞til ac@%uJAI<AgK]⊃0∂&@[vβXh$∧απ>
→F*πN.V*εMqPRα∧∧ααα ,V =8π⊂&_q2v⊂≠2|:6~w2U@~w:2sYy⊂9`%ndp,sorri@@v~∀@@@@@↓SDAKα{⊂∩πM VrεMyf+XQ$ααα∧∧αεNd
7'βT 2$≥~→-d_Y9m≥A"B$∧λ≤↔l>Y
≤nNα-T≥4π !∀]) # e` hAβ##∃β≤+@⊗N≥Dεw.β8Y.⊂37`2 thi@LAWeI∃`v~∀$@@ASα1βA{∂≠'k∃∧{@∩ε<[∃@>↔+$∧∞~→0↔βE CGMMEJT Potentiad @MGeKoU`AQKIJZ[S_AiQJ↓Gkgi=[@↔I∧CπMβ⊗+↔9β&+3↔S.!1β' h(%↓αβ'Mβ∧{@∨≡≤-F*πM ↔"π=yV.}lTεF∂4
&.≡]_
L\λ≥~ T≤x;,T≤y0→~pr⊂ .umbeR,
α especially when the fi@1JASf↓GY←g∀Ai↑A KSMN↓IcIX8@A)Q∀AKMMα+∂QβF+C∃βLε0hPα(λ∧∞~_=∧∞~→(∞∨<⎇→-T_[~.M→;⊗$∞≤]<nNh≥~ T≤y0→~pr⊂'≥vq2i ⊂0w2λ72{2\α checks
The c@=` K↔≥#;↔O~β?2∞Mε*ε ≡6Bε=x Tλ∧$P≥44w5JU⊂⊂*~2P1`5re i@LAi↑AAkhAS8AB4PI↓↓β≤C↔∂-∧∧f␈∩
↔∞B 9v&+1Q Jα∧∧ααα ,V =8π⊂8≤4w:∀λ$P4`'nkreD the orde@H@DYgQhX~∀$∩@@@@@@EMS]GJ↓iQCHαβG/-≤⊗bεn]V⊗/$λ
.P77P≠5w3r\α inthe File.",crlF);
go to nextline;
end;
commeNt check this customer#s balance fIlper out People who owe a lot 9
if badance[p]>4000 ∧ key[p]≠cvasc("99999") then↓EKOS8@EQS≥PAEC1C]GJλ~∀%α↓↓↓↓αβCK'w!!
;⎇#∃iα&C'Mβ≥+OS?n+I1↓∩c;73Ns⊗oBmYEβSz95Jha∪R∧∧"f∨n:G%~y>+≡↔*+↓Q@""$⊗⊂1z\92w:≠<P7`7es us $" cvf(balance[p]/100),"." crlf);
if ynresp("Do you Still want th∞Ag∃]HAQ%ZAiQ%bA←e⊃KdnDαHmEβ&C↔9hP$%↓α↓β∨=¬#=β;,ππ&@~;Y'1"B(∧∧→;Y∧∧X~0∪Z⊂10v_w1rQ∞FE∧Pλ⊂9z/\z:-XMα to ∞Y # actual list of orderpεAM←HAiQSLAaKeM←\v~(∩@@AMK]Ia⎇gK]Ima:vAM←eeSA?g←eIs7a:l~∀α@AoQS1JAghtDbDA⊃↑~∀∩@@@@AEKO%\AU?1←`QgPRRDbλv~∀∩@@@@AG←[5K]hAαs?S∃π##πQ¬##∃β≤¬ε.≡4 f␈∩ Z4Zε]I⊗nNl≡F/~ 9ε∂⊗≤>F/↔1Q HJ∧∞vFN=∧π>␈]LBε6≥MBεNnMrπ& Tε>∂∧ &/"d
g.o4∧bεf↑NF/↔51PPJ∧∧ααα∧
⊗ $~OMε$≠|H
↑zvzKW,λ∃
;C"A⊃(λλ∧∧λλ_L\z;H∞∞Z;]¬∧R(~,⎇[|Y,D≥~→$
;]X-M9λ≤L↑≠|]∧ {y→$∧IC"A⊃(λλ∧∧λλ
%hL(E∃λH⊂≠Z4qt_x82`\9P4gλ:42P→5v67]ts3@ ordeR8∧DX~(∩∩@@@@@A
` 3→ent @]JOmJ↓H∂?Q∧∧Vv←\⎇ααjT
6.vDλ ml,c"A⊃ ∧P⊂λ12st[⊂34`,led[j]←fi@1YKI7):Vbv4⊂λ$⊃∀ααπ<X LN↔xq-l≤λ⊂⊗≠y⊂6yZβ[j]≠
∩∩$@@AKαs⊂$λHI↓↓β,¬G∞(_p↔[vrw:λ4ε`∨]∀AQKMβ!↓55∧ε6∂J∞|R?⊗T
6␈↔,ε.aQ@∧DDH⊂⊂12Yβi`≤AU]M'Uu?kMMmP
`*4∪0hPα""$∧λ≤p↔\αry`←qorryp lo@HAP↔O][ ∃@,¬FEαD@ e`≥HβX4(⊃∀ααε]lC@1 ¬∧Pλ⊂⊂⊂⊂λ2p∞dl~∀%α↓βO↔v"`∨¬Xπtl]Y_∞nwy1<Vβp]@?β≠?KKβ_ πFA∧Pλ⊂1w`-m` @; β@∨&|,Rπε T¬≤,h@λ ≥Yλ∀iZTV(∞ 8{p→→9P4`.th∞Ai!JAC@∧επ&*∞λ ≤y(⊂∪≠y
thipεAkgα+@∩αα≥z-Mα⊂12H84q`+e`λAkβ↓βO#,¬bπy(⊂_≤αift↓S]m←αK∂/5↔0hPα(λ∧ 8π2;
`≥KβCS &≥lS@.⎇_
/Zw8:`4(ichan,bfFlf);
λ∧@@@@@AKαs⊃l4R↓↓β↔v!↓ O≤∧⊗v␈,LW.hNc!∧@
pro@
KAke∀ASMl!S]iK≥KdA`lAE@?|¬F.∞d
6FNn@
'FA⊂⊂λ12st[⊂⊃4g≥⊃⊂1`/mment pro@
KggKβ→↓#7∞[↔Mβ-↓β'≠6{'∂↔~βπ;⊃∧cπ ↔bβ∪/IJβS#∃ε ∪∪K-≠Oπ∀hP'←'&AβO↔⊗Kπ1βw+7 ↔⊂∧πβXQ!PRα∧ ⊗w&\|Wαπ,Zπ Z∞,Wπ≥v∧αα~∞Z6."∞Mrπ⊗\=wε"∞Mε*εn]V⊗/$ v $→~9LD≤Y<∞Nh≠|LL<Y9∧ ↑(∃
<c"A≤⎇<⎇
⎇9<H
≥H≥~
≡h≠8-≥~;Yed∃|Z.N→;@
}=λ⊂.4≥~→$
_<⎇∧ 8⎇~.m=≡( =y→+∧
9C"A~r∩1JD~<h∞N]9+D [⎇→$∞~_=∧
=;≥
≡≠→( =|~9.4≠=<nD_Y(∞<;]λ∞⎇=~λ
83Q ∧
[⎇λ X23∞aQHλλ
≤H≠∩-l<v| ShPhD ;Yλ
M;Y4k>↔&hHdH_;LD≤z~,nλ≥~ ]H→0⊗Zz60q
8⊗30[9rTFB∧qwv[rs:⊂≠purP≥x⊂60X2v9P→5y⊂0[6⊂0z]7vpz~qP8"[x62]λ V⊂! ⊂&V⊂≠y⊂'≥CE⊂⊂⊂→v9rP~s⊂9r[2-x.FX∂yw\9<mx↔MX∂T≤t4s:↓10v0[1rex↔←_α2\zT64[2ymx↔mX[P≥5P_\↔T∧"00")) then
coMmeft if this customer has ordered something, or owes us money;
comment @QQJ@D@`DAK9gkeKLAiQCPAGkgβ#?7↔↔→βπK,q∨Qβ↔+↔∂↔ ∧ε -βy⊂ -oney owing
∩∪U]aSX↓iQKr≥mJAE∃K\AcUSChAα3?Iβ';=β7∞K3'≠8∧πε/-_ lNnc"D∧λλλ∧∧_{s-\8π:⊂⊂v9wVλ9rP'[4<P!≥qP82[x62P~q⊂:4~yP4iH0P∪y→pr∪@ mailIng--id shidp i@LAiek∀r~∀@@@@@↓EKOS8AG←[5K]hAβ≠↔Qβ/↓βS#*β3'O β? β⊗+C?K'→βS#∂!βO∃?∪∃β∨|K;≥β&yβO↔v!l4)α↓↓↓↓αβOSKNs≥βπ&#K3π∩cG↔≠'→3O?↔∪gMmεK;S↔>+IβQdQ3S ∞al4)α↓↓↓↓αβO↔≠'~␈O?↔∪gN⎇⊂⊃`~πL,⊗e␈,↑π≥{¬1PRα∧∧ααα
_bπ≡]lE←¬S6απ& Y`hPα(λ∧ {{;,]]λ∃.<(≥~ T≤y3LD_Z=∧∞Y8⎇
}Kλ∃
t≠8:lT≥<λ∞M→(≠
≡⎇λ∪lD≠X;,↑c"B!≥yH∀L↑≠|]∞∀≥~_.D≥y)n,(→{m≥Yh∃
t≤y3LGc"B$∧λ_sm]9;]∧∞~~4d∞x<h =_;Yl\ λ∩N]≤( '⊗n+λ∞≥h≥~ ≡λ≥~ T≤Y<
}]_h∞⎇⎇;→↓Q@∧Da[vrP$[⊂7y2→y⊂7`& hardcopy firs@PXAM←αc3/←.!β e∧3'∂#*q↓αC⊗+['?-≠3d∀PH'S#/Iβ#π"β ↔↔rβ3'O&+⊃β'pβGSK∞K↔#QεsW7↔⊗K
β?⊗#↔I9ααS#∃ε≠#π≠>(4(∧NKEβSzβ7π/*βS#'v;Eβ↔∂≠'↔Iε3?Iβ&C∃βC,{C3∃π≠SW≠4K;≥β&C∃β↔w3↔3?ε+El4PI↓↓β≡{77↔w!β∂#∞s∨↔⊃ε ∨π'r↓Ue=ByE!β&yβ∂?↔∪↔∂Qε β W8β';∪.≠↔⊃β↔IβS#*↓]'Cd ∂∀4PI↓↓↓α↓↓β∨∂↓β'9∧≠#πK∞≠S↔K~q↓α;|εF*πM ↔"πM Rε>≡∧π>␈]LBε∞N|↔O~ ,Rεn≡>6. Q!∩αα∧∧ααε,\6∂/<T∧m≤4
↔~β∧ f␈∩∞Mε*βt 6F∂.4εNr∞Mε∂"∞,⊗v>UDε↔/D
FF*λiu∩εM⎇wh!∀ααα∧∧απ∨L↑π~ε≤-w.vD
↔"ε≥o↔>∂↔1PPJ∧∧ε⊗.⎇≥bπ%}8 -l⊗|↔'1"B(∧∧→[p→λ5⊂/P ⊂9z2\⊂→⊂*[:4v⊂∞⊗⊂_[H9z2xλ→⊂:w≥4r⊂~ VεE∧BXP9z→x⊂→ unti@0@n@1β P∩π>LWαβ$λ
-n~;λεFH→≠aQ@∧P⊂λ⊂⊂⊂$Yα mskYjP~A1C]HAβ!m↓αβS#↔p∧ε⊗.⎇→`hPα"(∧∧_{p⊗[p¬`≥h↓`∂.βY⊂≥44qP≤2x7`2t;
@IKag∨β∪↔CMXε∪@1"B"$∧λ≤p∩[29`∨@MK]IF→` ↔C&sπ7⊗β=%kXQ!⊂Jα∧λλm⎇990↔≥⊂4s⊂→4πes@8OhAO∃hASH↓H K↔*aβCKL¬g"πM Rε≡|∧uπFA∧DH⊂⊂4cλ44w2\β[p@:l@
∧¬w$≤Y0_≥1wp∪TXπU 5βRαπε X AQ@∧DPλ⊂9r`.ds←c@∃]IfMα≠@⊗@→C"A⊃(λλ ]≤y(∧∧λ_Y,@tp∞ @QEC@2⎇# πE>&/πL9w>⊗zW'FE∧DBP⊂⊂)Yw20∪←pπC@;'→→ ↓α↓↓↓ 4∧762∞,Wπε=x nKzW+f⊗
)L>Xε3≥CE eNd;
Id∧Qi?β!βc?∩β7O.↑Ru%uαβS#↔p∧ε&}lW0hPα"(∧∧→;Yπ1"B(∧∧→;Yπ1"Hλ∧∧λλλ
≤H≤sn9<mx↔MX⊂*~2s⊂![vvr`.t seT qp @QQJAYαKGQβ|∧bπ⊗↑λ n8∧s @QQChAβ;∃∨K*β?WQ∧¬v 'c"B$∧λλλ∧∧_Y1m≥H≥↔n=|\↑+≡↔*c!↓(λλ∧∧λλ⊂∪≠y⊂5⊂↔P_⊂)]2x⊂→λ8p∞til 8, 10∞AgQK`@DαβW;SL¬Bβ#∃AP@H∀∧ααβ∀λ nL<λ D∞8π:4[⊂≠V⊂ Xε sTep "↓k]iSαa↓QI∧∧Fxh!⊃∩αα
_ D
αyumZ,¬ l@¬]HAh6@`Aβ##↔→ε∪↔∨'ph $¬α↓↓↓↓αβ∂?7n+;Aβ≤ eβSF Qβ←*β∂π9?!βO↔v!βC#Lε2ε}lW0hPα"(∧∧λλλ∧∞Y<∀k}Y<≤e6,c"A⊃(λλ∧∧λλ≤m}\Z0→Wywy9≡yS92\:70vYmu.S_y23≥CEDPλ⊂⊂⊂⊂λ4s∀:↔z⊂<7\⊂6yuVu*T↑L⊂:42[⊂27w→]FE∧BP⊂⊂⊂λ⊂⊂2w→≥FE∧H⊂⊂⊂⊂λ⊂2w2∞FE⊂⊂λ⊂⊂⊂⊂_p∧dblab←lAb(p,50,falqa,fAlse);
Comme@9hACGQkCIYdA[CW∀A`↔A∧εFF*
_ Nmz8p∩H33y this perc@=\v~∀@@@@ASMm=khAgα+;∪Me≠?KKβ_ eMXεv )neSp],addrlab,@ CYC]
K7a~αcS πbaA04PI↓↓↓α↓↓β/,π∃@>↔'8nl<xj∧≤X⊂_ ⊃∀P !nd key[p@:βc∂[πα8λe∧L∧[≠L_⊃∀TNβ
∀@@@@@↓K[@'&cπ #αc⊂⊗∞β_ `%);
balAnce@7A;?EC1C]GKma0∃/&∪π1lhQ↓↓↓α↓↓β∂F;∩`>= v"←L,⊗cXQ$ααα∧∧αε.βY≥CE⊂⊂⊂≤βt←l@%]Kg↔A:v~∀@AG←αk7.β] ≤α5:i]⊂:42H0qz4]4z4P_wr2P→αh∂dAβ##'M∧≠WOS|¬V/∩Dλ
t~;XmNαr2P≥44qP≠ppv )ng&
The last↓G←Y@,k9β←L¬Fbε,Tε -8ε6 %d wi@QPAGmα→#K↔∧ε2KXQ$ααε≤dπ=~9P~λ842`. hinepπ7am{@∨%4⊂λ∞MβP⊂⊗]&st[`Aa↑@Dq0∃≠≤εf~G,X ∞∃)\p~⊗β10∩Aβ#=:βQP@$λλ⊂∩[9rP )d∧AeKββ@~βdεαπ~→0↔λ12st[∧@
commenp i@9GeKCMJAiQ∀AP≠Wn∪↔Iβ|∧bπ⊗↑λ n8∧s @=` ∪↔⊗+⊃β'p∧π&FTλ ≡⎇λ⊂_→y0 o@⊂r~)α↓↓↓↓αβR`?>K3 B∞Mrβ α⊂∞@- ∧`Dv4⊂ ↓↓α↓↓↓βL∧bπ∂J(∞M→;@⊂≥,πt-\p 4$∧ααα∧∧εfNβY0→Vβp]@?β≠RmE∧εFzβ⊗{R6∨l5π"←,X ∞TS9`4Xεb`%∧εFzhπ ≥CE⊂⊂⊂λ⊂⊂⊂ %nd;
e@9Hv@E%]`→ Xh ⊂@ ¬⊂⊂λ92q`5p¬gS@4∧Rππ-xλl\α:y2H4p∞v@<QS@;&+⊂≡<H⊂_∞βb`∨←αc↔πdλ m
9]∀Nβ
∀@AEKO%\AG←αk7.β]⊂_pp l@LASMl↓H ?$λλ-Mα⊂0r→92y`3es i@8A`OF↓`∂W '∪↔¬1∧ε7Nnβ90~≤αic @=` ∪↔⊂∧αFNβ[p→→2y∀]CE⊂⊂⊂~pε p≠0 then ∀∩@AEK≥S\ASαs[-βd¬FNvαv| Uα9t4YαpλBw%]dQ`1`∂#'4εBK↑≥nfzG-H
-mv|↔%Nz~0∪≥∀X
@∃]Hv~(@@AK9Hv~∀4⊂ ∂?nk↔;Q¬##∃αl
& "∞λ M|y9≥. (≤Y,≥≠≡(∞z0p∩tpεAQKβ∪∃l4T¬⊗ $≠8:-L9λ⊂~~2p∞
begin prinp "Sorr`20AEkhαβg?U∧∧6∞r|@λ∞↑y(∪(→3λ⊂,\8;@ ≡λ≥~
≡h≤p∩\βsioN8εDYGIYLX~(∩@@@@@@@@@@Dα↓↓βG⎇)β#π4∧Rπεtλ n
{{λ∞M→(∪n↑≤≥0~λ397fH844`3 ses@MS←\Aα3'KO q 3∂⊗c⊂∩Kαc"A≡Y=≥.
L¬FEαpp∞dl~∃@'2β↔;S-∪⊂⊗∞α;
Lz_;EDS⊂0HYα)W*∪h⊃∀P≥42w p¬KiKβ∪9l4T¬⊗ $λ∧6 4ype@?β∪↔OA@∩6ε&bβ@∨.,∧p≤\βtemhAβ- I2A←@∩α≤DX∧r ~Q(⊂⊗_q2v)OP⊃⊗ -ai`→Q∃Y`@3d ↔∪⎇βSM¬hε∩Hh!↔Bβα∞Mε.r∞,W'<[@≥CE0 f lp `'αλ 'V(≥~ ]H≠p~]∀61d_w⊗⊃ DIIIIDIIIIDIIIIDIIIIDIIIIDIIIIDβ∪∪∪∪⊃∪∪∪∪⊂ε&&&L LL→_@→→24"0@"B(BIIIIDβ∪∪∪");
@
CgJAβ∪↔OA@∩6ε&bβ@∨.,;↔∨&]P∞D
y;Y
≥Yh⊂⊂X9z90Xz9P /p∧AeKA←ei@≠y↓ 3n '3#,¬Gαf\≥⊗f@|≥≤e∀≠yH ,9z3AQ@∧p∩etp e\βX4(≤,V =8π⊂⊃H0q0∪@Q` π∂'→d4λJ↓↓↓β∧ε&NwEλI@eP I'm mahπS@;8∧π&FTλ ≤Y;⊂→H30∂b↓s←j\αq0∩∩L8 MLJ.c!∧P⊂⊂λ0q0∪@PQ`∪K|¬w"Kαc"A≤αp∞dl~∀'⊗+⊂≡NβHλd∞Y<⊂↔\αp f@Xh ⊂J∧∧αεNdλ
←≥~0↔→αa`∪X↓iQK\αβ@⊗/L¬0→≠≥FE∧H⊂⊂⊂ *←res@@PE
←β⊃β@>
_λm∧≠;p↔≥4∨P⊃ 4¬ai@1QK@3αc7?;&C@~Kαc"A∀λλλ
≤β⊂5≡L⊂:42[⊂92`4ur`≤Aα+3O∃∧¬V}u⎇]vwε∞;6@+αX
i` AYα{?/W∧∧f∞Nβ
~,=_;@⊗λαORDERS ≤Dα37?9JβS#↔p∧π,=_
`2n;
@%H β↔w#↔K≠∞K1#?≤¬ε∞rD)∀`*Sr0e@*"`⊂") then re@Qke@9β1P@!(λλ∧
9H⊂∩[8∧erfai`_Q=←GQC8XE∪≥Y_∞%⊃u"6A JβS#↔p∧π,=_
`2n;
@
←[@7,¬g"εmx
d y=⊂≤αepo@IhAICQBv~∀$@@@Aββ@⊗Nβ]∀λαI nee`λAi<AW]←β9βO?n)βC#L¬f >h→P→≠vP:4_z⊂0q≤z90q]⊂64`3t.",@
` &e↔0hPα(λ∧∧→[p→λ5+X⊂≤z2x⊂ P:w:~v⊂∩2 do @5`∂.oUj⎇AlhP%↓↓αβ'7πβ sβXQ!∩αα∧λ M}H~7f∀≤⎇→.∧ H⊂~[84v⊂ X¬ do
∩∩@@AE∃H∂'dλ ≤Y;λ∞2yz0\αp;
reStar`(βQ↓↓↓α↓↓↓↓αβ'2∞,W>λ∧⊃(≠2pqbH2s:2\⊂)`∀AN- o@HAβ∪~4AWdA!! @5∧sW7 ,ε"ε↑dλ L↑≠|]∞P⊃εEαD@ &cvc(i)&" @¬]H@Dα3∂[
FI-E%2⊃1 ≠≤ε&f2d λ @5v6 /wad @ r@@*
*R"≡∩bR&Rd)↓0Q!⊂HJ∧∧ααα∧$αF␈$πF∨∪d ⊗ $→≠{LUλ⊂5)~∂_tGd≥≠h ≤[|]¬↔HIPn-→Kβ!!""(∧∧λ≤Z ]≤ ≠N]≠≠|∞E( ε∧≥~→-d→≠{LWc"B!∀λλλ
≤H→0_]T:<h→tw ≠1 to 4](λE#U∪ DR↓iQK\αβ@⊗/NX Mgc"B!∀λλλ
+βq{1J4TVA Q_ k←cvc(i+1)- 1";
str←starna`≠KmS;/ieaKS\→YLv~(∩∩@@k]&stp¬6bAβ#=9hε%kXQ!⊂Jα∧∧εN∩∂≥g⊗/>¬α∃& ≥fO~βH⊂l≥H∩( ≡|⎇3,T≥~_.D≥~→$
8π3 /p¬P↔π&K?9βL{Uβ+αZ7"ε|≡f*α$aP@H⊃∀ααα∧∧αε6} λ∞M~8h∞ <≠p→≥⊃∪1`2lf&"ipεAG←β∪@⊗.>@λ ≥Yλ⊂⊃[vx6 %te0≡DαHmEβ&C↔8Q!⊂HJ∧∧αε⊗\⎇⊗rπ∞-⊗wα∧*FF.βH∪ ↑ |h∞N↑(⊂⊂Yppwπλ⊗1y6→∀X
∩@@AO↑↓iP≥β⊗+GSπ↔!l4(HH%↓↓αβ↔;⊂hP$%↓α↓β↔3≤∧Rαα∧ &.>≥`εo≡;=%m{∀λ ∞t⊂λi-1); Mqk[k]←1 l@MPARv4⊂∩α∩@@AS5Cq?Rl~∀$HI↓↓↓∧+;⊃lhP$%↓α↓β↔≠ π0hPα(λ∧∧≤≤Z-nλλSi5λ≠[nt⊂∧SvH47wuZw3P ]⊂:42H5y22\9S↔πλ⊗1y6→∀X
qcanorders;
casa status of
begin returj3i@9mVQiI←←hYQa`↔∃K[';[zCSK?|εBf6≥J6*Kαc"A⊃(λλ∧ {{;,]]λ⊂↔≠z2P*~0z⊂ &or e@¬GPA[¬SYS]≤XAoJ↓iP∨W⊂βS#∃∧+;S'⊗)βCK,∧RbπMqPPH⊃≡6FNn@λ∞M→(⊂,>~=Z.O(_p↔Y2P3 /p∧AKC
PAGkMiW[Kβ⊃`_h!⊃∩αα∧λVv#1Q Jα∧∧ε≡f|8 %
βqt0[∀X @¬H ∂#∞s↔.Kx
∞8¬e 64⊂λ%↓α↓βCKL¬g"B*Mε*ε≥nf}N<X eD_Z0⊗≠9P7`& h CI%]NHAα ;⊃β'+; 6α;Yd
α2z:→y9P (ave ",λ
∧∩$@ ↔,¬bπ|Z0~≥2p∞"1Ge@32a⊗@{]≠d X∧v % IN@-=∪ε@:αIUαrλ¬≠d∞≤Z0↔≥⊂:42[T∧ do ∧X~∀$∪GeYα13@&≤ ∞L8KλK
h∩3J@'` C.TMP/NLπ⊃ β⊂@YGe1H 04PH% πv!βπ≠&+@∩π>Xλl<αyy`&ul c@=[aYKβ#'?9∧¬v $≥~_.D→≠hEL|[⊂∪ 8∧ab1iCDX4⊂λ$∀(D,@λ∩3JIp∧aW∃&h↔",crl@_XE)Q∀AM@'d∧W4⊂πi"⊃i)W",h @?p¬B$_;Y∧ 3P 'RR⊂∞TMP ",
λ ∩E
←]iC%\AgQ=` @&↑ λ∞2qw`2ds oF ∧YGe1HXEI!JA←E⊃KefAβ∪↔GW,ε7&.Dλλ-lλλ@⊗βE "the @%]eOSα≠↔Mβ∞≠S@.≥H ∂∀≤y0↔≥⊂⊂3 /p∧Ac←U`AaKβ∪7πlX NDK_tMLKβ"A⊃(XY,=|Y≤e∃H⊂
4→yrP)Z5zv $ ad`'<AEJAa'a←←αc↔⊃β∞s⊃βSF+9α∩,c↔S↔ ¬b∩f>-F"Kαc"A≤8π2;
end;
endh CDβX4+\≥⊗f.KzG.9*c!,;Y≥CEβ1wvvYw:⊂*~2P0 3end' procEdqre, forisolated orders;
procEdqre s` ]HβX4+ .;'9↓↔≠↔;⊃⊂4+O'∪';≥∧ CKπJβ?3∪⊗+A3SM#3⊗@6π&↔≡∨,Ujα4λλm⎇]_:-d≥~→$ 8X\L↑X8=
≥{H⊂-lλ≥~.Mα2P'Yα each re@Ahv~∃αK;@&\|W$_8\L∨(≠p↔~0p∞dh,knhandm,@
←gi6@p OLπ&-j∧4π∂.≥nFO&≤X d
{H∩ ≥Y λ ≥Yλ⊂⊃[yz⊂ /d∧AaFl~∃G←αk7.β]⊂~pε the fi@1JA>tBε 4EhE≤Z 8 mnα0t`.pεABAαc';∃∧¬FN↑Tλ
<h
εB⊂⊂⊂⊂
!iQ49x '$
16∞~iU@"β( 49*KNUTH →⊃=(
αizB¬$βh∀JYβ⊂ @ @π⊂≡YY∃%$X[C∪↔F∂B#~βH
XβE⊂⊂⊂λ:42`. the inte@I]C@1∧ε&/π,↑6.wL≡FN}d ε∂~
x NY<⊗m≠/(Pj6M∞(ED≥~0~≠2h i]=
∀@@@E'Qβ≤\\9)⊗∃⊂¬Bε}m ⊗v& =∃kk& αFF≤∧Y =|≡(
⎇H~_-lλ+λ
⎇X∧0w→4itnOX⊂
@
←gi7%:zfJ@X απ2βS#∃∧¬FNvTλ md≥~→$ X∧v % is "*AIMDdg`2≤
6∃ ∧εFF.βC"D∧λλ∪mL≤Y0_⊗βiP~@h∧$ LT∩#~∩Dλ
≡≠→6m≠,εQ", and it @5KCMf↓iQJAMC[JAα @~π,X
}]λ⊂∀KXX
inte@≥KdASαkπaL¬_L≥λε0v]⊗1w`0i` f@X∧ε⊗↑⎇H ,≥H→P∀Xt2P≠
λ¬SMi∃H∂/$λλ.90p→ bp MPαc G≠h¬F≡␈]nFBf=x
-n≠(⊗fπLhλ.H⊃P8 ,aces th∞AkAICiJ↓←]@#∞s∪!Dλ mm_;Y
T_8 9_|yP≠
λ¬G←[5K]hAαs?S∃∧εFF*
H
-]=λ⊂↔Yα 3 orde@I`
βπ ∧ε
πM→V*π X D ⎇<p~≠vry
CE0 ntecer↓aPIAαi↓
β≥#π∂-¬β?'≠&+CMβ4{@∩ε,X D 8π2 count ar`%¬sfv~)S]iK≥KdAQ¬]IYS9H
↓
∧ 7?Ww!βS#∂!β@>T}&*ε= ↔⊗>≥lrε6β|@⊂≤βhi`Ping/@!C]IY%]NHAαK⊂∩ε≥o∩`HαHλ∧∧λ≤∀M≥]→1∧∞y<⊂⊂\αate@1rA←\αβS#∃∧¬⊗w⊗⎇_λlU,¬FE≠0q2`, res@QCehX↓H '≠Lε6CXQ!PG∨N-⊗v:∞λ M|y9≥.,(≠=-N~<⊂⊗→T4w:→pπer↓G←aSα+@~Kαc"D∧λλλ∧∧λ≤Y.Nαy7∧_y0 f& ∧@@@ @ ≠∂4ε2F≡|∧∩,↑h∧S⊃λ1wp⊂@%Kf@%⊂¬∪@1"C"N≥8εx&→P897Xpr2`2e obder(i@9iKOKβ⊃βπKα,↔Jε,¬0∪ ⊂1w`5nt; @IKEKe∃]GJAαK;@&\|W$≤≥≤GP4w:→pπer↓ckC]PRv~∀@@@@%G←[[∃]`Ai<ACIHαβπ9β|ε&&/$λ
t≥~→$∞α2vx≠y0q<H44q`4 (may be @
C]GKαc3↔⊃∧∧'JπM Rπ<y0→
]FE )d∧AaiH@p→↓α6απ~→0↔λ12st[∧¬∀∪ββ@⊗Nβ]∀_y0 f, ¬∩AGα 9?Dλλ,Lλ_;O∀≠;p→→P92`0ort`&↓iP≥β&C'Mβ|ε&&/%`λ¬∞z8
% res@Q` '∂&K?9%⊂¬F∨⊗β→K↓QHλλ∧∧λλλ∧∧λλR,@⊂8 o@TAgiSαc1β#∂3∃βO|¬V*πα;p~H8πant p ↑Aβ≠↔;⊃∧εFzπM
↔4_⎇0→]4πme@HXAU@-≠Qβ↔w#↔I d∧7-α3⊗εBα ¬QS@~β#πOF≠?&Tλλ,@pp n0AC@; ∧εn∞αy( ≥Xπr4→y⊂7`2der.λYGeYα1%l4PK⊂≡␈Mtε -8π4`3h; e@9H⊂∀,X ∞p¬ bedπS@8hP' W5[C@'+[v@7h_p↔]w:-x≥9(
@?β Wπn@∞d∞≥_ /\8∧r+Dp 4,X LGc"C!897`#e` ke∀AEkYα[@⊗∂LTαFNβ]→,@p¬r @
←aSKβ→%l4T∧6}nβ90↔≥⊂*44\β makes adh¬`↔O&k↔;Sα4εv.<X npy0→ d¬P∨I∧εf}g]\Rε&\≥G4λεV@ p¬KI@,∧6NvqQ O& Tππ⊗α8p∩K⊂7p∩↓C@∪∪L¬f 4_(⊂∀_w26 )ng c@!CeOJZP∃β∞s⊃β∂∞c∂WL≡F/~∞Mε*πMx
≥≤h
FBαbegin "bulkrate"~∀@@ASαsS↔∨,ε"εF≥lFfNβY`_K⊂1w`3t10⊗~(@@@Aα≠πO∃∧π⊗w⊗↑8 ¬∧Uy( ≡Y(⊂→Yw24`.dε@DMα≠[M 8 n
9<j$dH_p↔\4ryP≠pε "→←YI@⊗+Bo.βP D↔⊃∪ #p¬P∪→0h ⊂Hα(λ∧∧λQ≠d∂8πp∃ wish↓iP≥β≤¬ε∞v|Tπ&FTλ ∞4qrP≤2y⊂ #opp∩}λRA←L↓EKOSαp4(∀∧ααε⎇x
t≤Y0→]0y0∀l~∀%α↓↓β∂|ε7#
βxp→→yx∀"List↓ae@'≤∧RεO4∧B$β1{ &(co`'β"`≡]Uv∪βαα)HE@⊃∪1`2lf&
∩@@@E/!ChASβ→β@& Tε∞∨L¬0⊂[⊂894Xp¬ to be @
QCeO∃Hp≥↓⊂¬∪@1 ¬∧Pλ⊂⊂1`/pπhc?α≠?OR↑Zul4PK↔;⊃Xh ∩α∧∧εNH_p↔\βt1<0 p QKαqβK↔'+@⊗@L¬FEλ⊂⊂⊂ !mt←c@=aSKf)G←ghβ `_hαHλ∧∧≥_X-Kβz10[∃pvz∞β
∀@@AG←αk7.β]⊂_wyz is p@IS]iKα!β ?↑@λ
<Y.aQHλλ∧∞⎇↔p→]⊂ε" @ λDMα≠[→#≤¬w> +l&ελ∧S⊃∞α $ ∧@≠∂4∧bF∞β=βf⊗
.aQHλλ∧ x8 `% y`≥e∃`∂A∧(Fzπα;p~H8πic@ A`∪=∧∧⊗&" ⊂λ =_8 3YP37`2 shi@AaS@;8∧α2ε ≥f&F≥lsz∩∀λ l@⊂12`'in~∀%H∂?SzβC↔O& @↔∞c"A≤Y9z-aαA∧Pλ⊂⊂40[264`.dεc ?≤ε&/∨¬λJ@t0p∀↓SfAi!JAgQ%aaS]≤X∂#πv#3'lpλ =_8 3Y←P⊃)8ε~∧∩@@ASα1β#πv#3'lp 'Fλ≥~ ]H→{nMβP92\z0q:βE el@MJAEKα;'8Q!⊂NF≥lFfNβYwm 8π26~w3Ut_w26 )ng1 # potal handhing chg↓H ?$λ
<h⊂n↑⎇≠s. ,c"A⊃=_X-Kβz10[∃t0w→64w3L]FE∧Byz/i]⊂εcrld D@A'QSββC'lpλ ≥Yλ⊂∀_w26 )ng $ "cv@_QQC]⊃YS@;8ε∩`6,
'⊃"B",={;9-nλ≤r
≡λπt0[262P_t0q3YP⊂4`& afy) is Indicated On a @MKaC@⊗ S∃βd¬⊗v+1Q Jα∧∧ε.vG1PPN]lCJβ1Q"αα∧λVv#1Q&.vD∧&↔∞M>&∂&T#0hPQ(
,@⊂9rg→2r⊂*~2sεEαq2st[⊂894[:∀⊃)[y90→, butyou Can'duse SEJD @¬KCS\↓ChAi!SfAg∃`∂O'|qe 3≥∪3→0hP$%↓α↓↓↓ L{Uβ#∂3∃βSzβ@∨ε⎇yBπ& Tε␈/Lλ
.D→\[mT≥~~.∀≤y4n=8πw⊂→αirs@PXDYGIYLRv4∀∪eKQkeLV4∀∪K]⊂v~∃S_AiKqQS]MC%XAiQ∃\AeKQkeL@ AeKC⊂AGC]9KHAi∃q`AM=`AS]Y←SGJ↓MWe[Lv~∃S_AK]i∃eMCS0Q←GQ¬\XE¬%→→&]Q≠ DR↓iQK\↓eKikI\v~∃%LAK]QKeMC%XQ←←
QC\X ¬∪→→LH])≠@DR@AQQK\AIKike8v~∃S_AK]i∃eMCS0QYGQ¬\XE'9 →β∧9)≠ D$AiQK8AeKiUe\@F↓MSYJ↓MWdA¬IIeKMfAYC KYfv4∃SL@∃←]QC9IS\Q=YIeK@YiSi1JY←]!C]IP1←]QC9IZYG=ghYS5CpRAQQK\AIKike8v@FAIKCHAQQJAM%YJv~(~∃oQ%YJAiIkJAI<~∀∪E∃OS\@ ]Kqh↓kgKdλ@~∀∪MieS]≤A]C[∀YCIIHYgK]⊃fYg←IesfYQQK]Kahv~∀%S]iK≥KdAe∃afvA ←←YK¬\AMe∃Jv~∀@@@@@ASL!a?MS9HPDQ=d@rrdrrRA→←dAa∃eg←\↓eKck∃giS]≤A←YH↓eKa←IifDR$z`Ai!K\AI=]Jv~(∪CMG!C]OK⊃?iek∀v~∀∪!C]IY%]O>`l~∀∪a!?a[>@v~∀∪%LAWKe7a:{
mCgF DrrrdrDRAQQK\~(∩∪EK≥S\AaIS]hP )saJ↓iQJA9C[JA¬]HAC⊃IeKgLA←LA
kgi←5KdX@λX~∀∩$EM←Y1←oKH↓ErAB↓EYC],AYS]∀tDYGIYLRv↓iiS\l~∀∩∪%HAisAKS\[%GdAi!K\AG=]iS]UJAKYMJA]C5K?isAKS\M1Lv~∀$∪iiS8vASL↓isaK%\{SGHAiQK8AG←]QS]kJ↓KYgJ↓CIIe⎇]C[J→isaK%\MYLl~∀∩∪→←dAS|fAgi∃`@bAU]iSXlAI↑↓EKOS8~∀∩∩%iiS\lASLAQsaKS8{SGd↓iQK\↓I←]J↓KYgJ↓CIIe⎇CIId→isaK%\MYLl~∀∩∩%K]Hv4∀∩∪o!SYJA$8lAI<AEKO%\ACI⊃e?CI⊃dMGe1LvAS⎇RVbv↓K]Hv4∀∩∪MIKK?s9eKg` E'Q←UYHAi!SfAGUgi←[∃dAOKPAiQJ↓eKa←IifAMIKJA←_AGQCIOJ}D$zbv~(∩∪K]⊂~∀βK1gBAMβ∪↔⊗␈fK;↔N←αtm
~⊃l4(L≠?77,¬g"ε= V≡Z∞MεO~ >W∨&⎇\W∩|h_L≥_;XlTλ→P∀[8∧erout @AK←aY∀AoQ↑↓←oJA∧AY←h$p 4(NK⊂∩ε,≥F∞v<[7¬kβM∧εελ↓
≤>6| Sx⎇P.<hλN'↔,.(E∀≥~→-d_Y9m≥HλZ
≤zλ⊂L≥_;XlT@εE∧Bx94g≥∀⊃'7]2X
This Customer c@UaeK]QYrA←β;↔Mβ-→↓↓⊃⊂¬Bh!⊃⊂N∨leε⊗∞L≥f≡
x step ~@λ∧π.wM_ ∧ελ→≠d
9H⊂∩\zT7`,drep[i],c@PRAiQ∃\∩∧∩$∪EKO%\AW|¬∪@4≥z~-L(≥~.Mα2`≠k]=0 @⊃↑AW|¬2k αc"A⊃ ∧swH:7P &oufdl~∀$HK↔;⊃Xh#+|Lf␈.l@∞A≡≤Z3NEλR( =⎇;⊃
d⎇λ⊂∪~w2⊂*~0z⊂ /ne i@8AiQJ↓ISIJ8DYGe1HR`,hP$'≤dπ⊗/>¬α∧∞nLW$~=≤d∞|→0nP4w≥42P &or`~AM)β≤Zαβ?Iα J5%β|ε"∧Eλ∧ -n;8Y.⊂⊃∪εB∧@P⊂λ⊃37`,lh∂oK⊂AEr@)β#)⊃=$Y)∪Q→α`)⊂∧f∨⊗β→K∞
→;⊂_ 4εul@1←ahRt`AiQ∃\AG←αsS';,)`_h!⊃⊗M},8
/,.h∃
≡≠→6m≠7y≡. :;Vf∀≥≠h↓e,7&aQ@∧DdYα imax≥bc@%uJZd↓iQK\αβ ↔∨Lqβ*⎇⊃YβCKNsQ#?vCπ;⊂F3'33, c /<p >Xε3∀Nβ end
∩∪∃YgJAαR␈g≠⊗+@∨ααλQ
t≤;p~H8πant po @∃]`∪↔⊂∧εO"
→g&@h≥~ T→Z0⊗→←Q∀]CE @
CgJAαQβ >dλλL\z;C!↓ ∧P⊂λ⊂1w`.tinuE # go kn To ne@ahAeKA←ehv4⊂∩α@@ASL ]KnaeKa←β∪Q#SM#3⊗O]i3?3'∪↔ALM↔&@→+∪mm_;Y
¬≠{Z ≥Y≠# =|⎇β
≥8:
!Q@"".M→;@⊂_ww:4[:rP⊂λP0r2λ:44`3 rep@=` @"∞Mrπ& Tε -9→.aQ@∧DPλ⊂⊂12Yβi`≤Aα≠?7↔,¬g"εMtεv␈Dλ -n→<FaQ@∧DDZαX∂s]IKg`P P≥βN{Uβ#∂3∃↓ 2C' β≤¬wεN↑7S
πM Vrα,⊂λ =|≡(AQ@∧DDBP⊂⊂2[9rP⊃→w3z`'h co@AS@↔M⊂I→ β|¬bεF≥lCz∩↔1P@H⊃_6∂≡Tλ
D
yH_L\z;C!!""(∧∧λ→{nMβP92\z0y:∞FE∧DBP⊂⊂⊂≠w00w→4-unWww40[26muWoXX_ ≥FE∧BDP⊂⊂λ7w40[24-uWoww4_w26mZβ]←0;
↓ End;
↓c@=[[K]PA≥KqPAYS]∀AcgKα!βS=∧¬'/∨Dλ⊗fF}pαFST⊂
%@⊂⊂!:]⊗⊂;t]4⊂:4→P4w;→w:7i≡FE∧DBP⊂⊂⊂_t2q`+ing Disable` _A%hGfAA←ggS YJAi!ChAi!JAeKA←ehAβ;'31∧∪∀4λHH%↓↓αβG.n@ε/6]`λ∞M≠y9m∧≥<p∩\α say's we're Out o@_AShv4⊂λ$∧LK⊂∩αα≠[nD→Z0⊃Z2TP !nd (not fRee) And ((j91) or (j=2)) then↓EKOS8~∀$HI↓↓↓∧∧6␈∨K=5m}>,W∂ααλUm =λ⊂∩≠pyP H1wp,H1wq`4? ");
∩∩$@@@AαK⊂∩ε=x nKzs'ε∧≥~→-d→{p~≠P92i]0y2;
∩∩%K]Hv4⊂λ$∀∧ααε]lCHh!⊃⊗.vG1PV6|¬3LG@"4nNUy~.Mα2`≠k]; s@Q?gGC8QgiDαc πO ¬F↔⊗= ↔%,¬FEαDqw`-m` @; αO?7*β∂#πv;↔Mβ>+C∃βn ∪∃βF+@⊗*D V∂⊗=λε↔,∧⊂⊃∞ BasicalLy(λAi!J~∧∩$@@@AαK;K↔w#?Ke∧∧6F.==⊗v:¬∞Fzπ<X $
9H⊂≠YP40{→P1w`0i` fAα{9β#∞s⊃%β> @~εM~6∞⊗LX ¬A ¬∧DH⊂⊂⊂ "ecae@MJAiQ∀ASMm∃]a←edAQCHαβ⊂≡}lTε␈/Dλ l@⊂20z→Tε The uSer i@LAiQkL~∀$J↓↓↓β⊗+3'↔ β?9βv{QβSzβSKe∧εFz¬8Yd"ε∀λ L↑≠|]∧∞~_=∧∞βrSy→P7rjλ4πf 64⊂∩βS_AMCG!JAiQ∃\AEK≥S\4PH$'πo"⎇Am¬≠R`?>@b%≠:0⊃\αh∂MSα≠#∃%α⊃≠OS⊂π0hPα""-,πonhandm[hπ:[Gα{C'↔≠X4(⊃⊃⊗≡}]\Vwα
MεO~∞Z6.λ≥≠d Y#"A⊃ ∧P⊂λ⊂4s⊂~∞X⊂ [2⊂5@<bsijE pheN krdep∧P@9p¬bKXQ!⊂HNα9H
↔_Xp∀↑2P:4→w⊂7`2der(bu`
@5d∧6␈.nMRgεUHλm}~90→J]FE∧Bp¬`≥Hαβ↔3O*β ↔∨L¬`hPα"",≥=↔p⊃[yz-uWU1w`0i` f@X∧π>↔x `4&"(hapdco@ArR@Dα3@∨''1P@! ∧D`*←onhandhKk]( G←ββ'/4εc!∧@ @
←[@7,¬g"¬M
↔4≥<p∩Y⊂:7P_2@
if @(:`AC9HAV@d∧'=>Y(∞M→;@⊂≠y22`2(...$p 4λHH''→∧¬3f↔=_∞LT≥~→-d≠x 2→y∀1:Yαh →Gα{W;S@¬GεBβ_p↔\4ryTNβ
α end;
λ∧∩βSα1β∂?αλ
,↑o(λ@ then↓EKOSαp4(⊃⊃⊗NH
≠M}λ→P→→pTPαλ∀0vz∂_⊂ @QQK@9∧∧&.≡≥aP@! ∧DD]10v/]10v∃Xvz≥FBα ∩∩%`∂R␈≤εB2∩∧∧B$β1{ &(co`'β"`≡]Uv∪βαα.c!∧@ commenpλASα1βC#,ε&*?4λλ$ {xp~ ⊂894[8∧ i@Pp 4λHH'.βY≥CE pπ@↔lN5␈≡]lG4\⎇∪_y0 f;
∩∩@@AGα{77↔w!αS#*βπ |¬P∩H10 o@
P
βW≤∧V"πMtε⊗*∞8
.90∂`+αs∪↔⊃∧∧'HhαB"!∀λλ⊂∀Yα j:β↓β@& X D Y9z-dλπ↔.,∧AK]⊂AK@3≤∧Rπ≡|∧\O≡wx `/p¬esF→`∂Q≠≤ε&f3αc"A⊃9;Y↓Q@∧Db[9rP #omee@9hA[k1iSaYα)β∂?∧K↔Mβ⊗+GW↔≤εF.β1Q HJ∧∧αε≡⎇]V.wDλ
,@⊂:42\2SqP_P1w`3t, BULKRATE wi@1XAG←αkC@/LTεO#1Q HJ∧∧αε≡⎇]V.wDλ
-l~8p⊂]2P6z[:4p ,e co@AS@↔M∧¬'/∨DλλO∀≤≤Z-n~;Yd∞~→(
mhπ⊂εB∧@D`#opieS on The nexpλAYαK;∃lhP$%↓α↓β∂?nk↔;Q¬;∃βW≤∧V"πMtε≡F\8
d∧XC _λ⊂4w the IF stateee@9hAQKβ∪∃l4PH%↓↓αβ' β'∪W*∞Mε.r ,V.NβH⊂m⎇;90↔≥⊂;rP_pw⊂#~v6⊂*~2P7`2der;
λ ↓ sT←st&MultiPle(cOpies)9
ib ¬@→aKJ@⊂ACKhx`AiQ∃\AEKαc ∨⊗≡LRF≡|
⊗/~↔1PPH⊃∀ααα∞8 -l≤stl]Y≤iN≡ XtMLLc"A⊃(λλ∧ 9Y⊂→v9rP_2stwλ⊃9x&~z⊃⊂εB∧DDa[vvr`.t not eno@UOPAi<AMSY0ABAG=[aYKQJAeKEkCgh↓I←d~(∩∩α@@A[k1iSaY∀AG←a%Kf\AMKJAS_AoJAMQ←kY⊂AgK]⊂AoQCPOfACYCSIC YJv~(∩∩∪S9iKOKHARv~(∩∩βU|[T@F↓]k[E∃dA←L↓G←aS∃bAoJ≥eJAg!←ehv4∀∩∩∪%H β)n≠?C'/→βS#,qβ&⎇∩β∂?7n+;Qβvyβ∂?εK↔Mβf+∪Q1π≠=β∪}q∨Qβ∂≠-l4PH$'↔g≠∃β .;'84PH$%↓α↓βCKNsQ!
&C∃β∂/≠S?7/⊃β#π~βK↔G,∧W∨&\@α∩6>n2F≡}
⊗/~∀d"ε≡}
⊗/~∧%@hP⊃⊃⊂Jα∧∧α⊗}d∞FFO4∞&/ε}.Bbε.ZBπ>T
ε∂6T
vvg∀∧"6∨n5ε≡␈
≤W~n%∃@hP⊃⊃⊂Jα∧∧ε∨⊗LeB∩α∧∧ε≡␈
≤W~ε⎇dεF∞lEb∩f>-F2K1Q HH∀∧ααε≠}&/∨¬∧%≡F}]F"∧∀
6.vD∞FF*
⎇f/~∞|RεF≡hSzα ∀ε␈∩ e∩α∩AQ HH∀∧ααα∧∞7εf≡Mε.g¬O⊗/≡m⎇wπ'5↔0hP⊃⊃⊗.vG1PPH⊃≤6∂≡T
∩ε}d &.>≥dα↔≡]lBε∞o↔r⊂h!⊃⊂Jα∧∧ε≡}nM⊗w.W1PPH⊃∀ααα ,V>Nd 6}n\Yg"π>
FO"∞Mε*π,↑↔./>EBε∞lDπ≡∞lDπ>F≡Dπ>*
↔6+1Q HH⊃≤6}n\Yg"εm~'∨"∞<W"πM Rπ≡}.'JεM≡7#XQ!⊂HH≡=w↔↔≡;v∨⊗Ldg≡␈./↔~7>Dfo.NM↔εfU
"J6>-F3XQ!⊂HH≡>E␈∨DmW.gM≡εf* =wεN↑5VRK1Q HH⊃≤6}n\Yg"εm}rε≡≥L7.f≡LRπ& Tε≡␈>EBεNd ⊗wK1Q HH⊃≥⊗"\j&.*Dε∞oGfαπ& ]bε↔]M7⊗∂LUε≡␈
≤W~n%↔0hP⊃⊃⊂N≡⎇]V.wD f␈:∞<W"πM Rεf≡>Bε}d∞&/ε}.G~πMtπ≡.lG0hP⊃⊃⊂O≡]lG≥␈<]f'~n>B6∨-LcXh!⊃⊂HN≤dε6N= Rπ& ]bε␈,LW∩F.\fjf=zVw&UNεjf=zεN/5]"Hh!⊃⊂HN]N6*ε},F/∩ .V6BL=w.wM¬GεBL=wεN↑5VRKαc"A⊃"(λ∧∧→;Yπ1"B"!∀λλλ ,9z;D {{;,]]λ⊃
⎇I⎇∞≤;Y ≥↑=~
≥Yh
∞|:=λ m|H≠-}Y(≠md~_;LE.c"A⊃""(∧∧λ≤{n∞↑<wn=|\↑.4\⎇ M↑;≥~.
→*_m}~9<e∀X|[ gc"B!⊃(λλ∧ ;YεaQ@"",]YλλN<9Y ≥↑/hG1"B"$∧λλ→-lλλ\n
~=G1"B".M→;Y/∞↔h]
(≠Y/∞λλNaQ@"1-lλλ[L←≥λ≤L↑≠|]∧πc"QM≥Z<rπ!:9H∂≥\Y<n¬λPY,m|Y( ∀≠8:lT≥<λ∞M→(~-n[z8lUλ≡;nTyλ⊂L↑≥→<D ≠⎇8ML8z→,=h≥~ T_8[nl+HIL>[→IAQ@(λ∧∧
~0∪λ9rw2≤MX⊂*~2w⊂⊃∃rP;t[4⊂12H9rw2~w3Q∪_y63∪≤p¬nds elsE "")&
↓ (if sorrys≠0 then "We wilh say that we are unablE to Send"εcrdf&sorrys elSe "" &
"IpεASh↓CYXAISOQh↓iVA[¬WBAk@AiQJ↓S]m←αK∂∃⎇⊂Im↓λ∧ααπM Vph!⊃⊗⊗.⎇→bππ-→g"B)y2bπ
HV∂≡T
G/(_9l≥8π↔↓ 1y6 &);co@9iSMk∀p∂.βY≥CE `!β∪';Q@∧$`9hε⊂$H0p
@5CWS]≤AC@9∧¬⊗wYz0⊃YP37`2 phi@LAGkgβ#?7↔⊂q 3∂⊗c⊂∩Kαc"A≡z~0⊗→P86@>0 do
λ ↓bedπS@9∧εεm␈
P &↔h~wl.αs6m\4h
64⊂∩β←9QC@;&j`≡]YyvvF≥lFm↑8π#,=⎇;]
[|≠7'FE∧DXwvvr[8∧ Dhe ne@ahAgi¬iK@7,¬g"π|≡2εNβ\p∩\αp KHαβ←#↔p∧π>(→~.pq6 %d invnp eR↓GQKGα[';≥Xh ⊂Hα:0∪λ4πnhandmKk]<0 @QQK@9∧¬vvF≥lFm↑8π7fπc"B!≤αp∞dl~∀'α⎇εNfTλ
πβ_⊂ $o
α begi@8AaQ|εεBk↔0λ
oq0∃@→Q7aQtp 4λHK?; ≥f&E=;U}}m ⊗v& =5j@8{p~[8∧hKphX
`,hP$'∂|¬Vn8π: The @9KqhAβ≠SπS,¬V.wDλ
l≡h~0↔≤β` e@&+⊃β←F+9β←*β∪'O∞∪3↔⊃∧¬⊗wXπ:9≡P1t2Xutw3Nβ
α i` A←αs#πlM¬@=w(∞_λ8∧he@8AP∨;F ;∪"β=5m{∧εc!∧@ e@9Hv~∀%G←[[∃]`⊃βn ≡(≥0_λ8∧he invo@%G@∃β4¬w$≥~~.P1z`3th∂[Kβ⊃`_hαB0∀Yα ke@e0∂Buβ\76∂<5α',∧\\NQ∀P 4he`≤@4⊂λ$≤8 m]9;]∧∞α44`3 see@5`
βSzβ ∃β&C∃β?vceβ∂∂≠∃β←F+@⊗*
_ Nmβzz dπ@↔Sα4εF@{→β!∧@ @=H βπp∧ε∞→_ 2\βs that hapπ\O@ ∧ε⊗.]`λ∞ 9→→,D≠x
`4 p ↑Aα3W31∧εvN≥~↔βE Lπ@→β≤¬w/↔<UBεODλλ-N{h⊂∩≠p¬sn≥hAQCYJABAαCπO!∧∧6}→(
FBα ∪Sαs[/W ¬π<αp∞ds,so`%Isf@3v 7¬3∞#∪I1αcS πbc#πlMFNvuH L≥≤y*!Q@∧r`,pπ@∃β⊗+⊂≡NβHβ!↓ 89 NU{⊂⊂X∀8⊗~L⊗30v≤β`
YMα 3O∃KX4(⊃_
-nβ3p∃@PQgK]⊃`
#O|ε'/<k∪M]~;Y+x.V !ddr,@ CYC]
K7a~αcS πbc#πlMFNvuAP@H⊃→6/M> Qn∨l≡6~B'⊗βββ∧
,≥Yλ⊂∃Y|mx.O1{0yXT⊃≤[
β00"$Rv~∀$∪CIII?YCDαCA1M ¬F ,8ε0∪@∀YMCYβ≠∃%@1Q HN=x -\αp∞t↓)QKe∀A`↔O,∧BπεtλλLT_{p∩→P42`2e to a` HAβ##'M∧ε6/"
x D∞Y<⊂↔\αp fAβ#=βSF(4(⊃∀ααα 8
.z7vr\α ∂fAα ∂S'4KSeβ≤¬v&* h n⊂:44\β maili`≥NαβC↔KL¬v#Pβ"B!∀λλλ∧∧λλλ∞Kβv4`.es[p]Xεb`!∧εFzβ↔ Rj∪∧ D∧~9H∞Gβ_ @QQK@9∧εE␈"β( @.
∩∩$AQS]∃`∞oBβ[vfNβY0→Vβp]@6β βC=β P≥jl8
L5≤Y0_≤β+t)&li`≥Kβ~`∨¬Y2∪JπMtujaQ HJ∧∧α¬&
~2πx8 P≤αeeo@YK@A ∃FVpBαaβO'v≠∃αX→∀bε≤∧h
mh≠⊂↔[3ry used0Ag↑Aβ;∀4!⊃∩αα∧λλm⎇Xy4∞Nαpv ,y have one hong iai@1S]NAββ↔K≥x π⊃ B",]Y∞c!∧qw`-m` @; `labels'↓QCmJ↓EKK\↓oe@'αNF.r
x NMβP:4→P34`,e SNDLAB.TMP&" crdf,
∩@@@E3=jAgQ=kYHAβ≠C??bβS#↔h¬FNr∞Mε*εmx M\9λ⊂≠X|W⊂*~2P80\2y⊂ #an then be cutα,crlF,
"and pasted↓←]i↑↓iQJA∃]mKY=aKf\↓ ←\OPAMOe≥KhAi<AIKYα+S∃β&C∃β≠Lc∃) d∧7ε@→J.aQY;Yπ1"X{
}y*≠ =_;B'⊃"X{m]9;]∧
Yyh∞,=|Z.L(≥~ T∪sRλ→Q Q
9h→Z-L.c"M≤H↓3mm_;Y
}=
≠mL≤Y<¬N~=≠ U≠{Z ≥Y~
⎇Z_;LM+_{n> ~;,∨
(∃
;H≤L↑≥<[G1"Y;LDλ\q-lλNc! ↓L{{;,]]λ∃
(_⊂,M]<⎇∧t≤≤[l<9≥<LUλ≥≠d 9~].>λ≥~ T~;]L]]≠|O↔c"C!.≤[xl\≥<Y$ 9~].>∞c"L,9z;D∧[{Z ≥YλC!,{{;,]]λ∃
(→Sn
8=λ
|H≥~ T∪sRλ→Q Q
9h→Z-L(~0→H22yq\4q2rλ4w⊂:~2P0)Yw2∪P≤97qrY:y2]CEεE9]94w3H:42w→|:≥FB4w:2Yry⊂4[p|≥FB9z94[3P0y≤0|P7[292x :4z6→mX≥1≤t⎇2nNFE4w≥2sryλ0y90↑P7w4_w24⊗≠w40w→6V1w\z-X≥_9t⎇2W]FEεB1wvvYw:⊂#~y9z⊂≠7pr⊂≥42P1]y92w≥⊂'g$⊂g"↔"∀eP34[2V⊂4[:7P:~2P0y≤0|y]CE4s⊂↓ww40[24w∀≠v292\⊗:4z≠2V7w~0w24 7w40[26V1[yz⊗4[p|∀P≥42w⊂≤2z:i≠≥FE:~2w2|≥/Q⊃≥CE1wv[rw:⊂_r5:y]⊂7w2H92x7\:⊂0zλ0P:4[r]FE≥t4v2H:9:rH27FEαq2st[⊂17w[2pw⊂→7zw2 ⊂34aZ2]FEαs7zg→/s4qZ2os0[9r]FB∧ts⊂≤2yx∀λ*<x2H9t7y≥⊂70vYP7s⊂λ⊂εthenext& repopt to be adjusted: ",
onhandhelp,nullopt)=0 thendone;
sT←typEin[1tk ∞-1];
if st[∞ for !]="F" then↓EKOS8Agi?Mi6bAβ#=9k
umβ6K∂#⊗⎇#K@.W0λ ]Y∞c!!=~→-l>≥↔d.~→(
l>≥λ∧≥FE∧Y5y⊂4Wtrp|λ9z2xλ⊗XP:[:4v⊂ ⊂27FB∧Dtcλ2xzT≠v292\-tnV≤z∀P*~2w⊂1→stwεB∧DDuWt]P+Z4v2P≥4z62Vβk]=0 do k←k-!≠ fouNd←true; done;
end;
if fkund the@8AEKO%\~∀∩@@@@@AG←5[KMh↓oJOm∀AY←G¬iKHAQQJAK9ierAMaKGS→SKH\↓≥WnA≥SmJAQQJAkMKdAB4∀∩∩@@AGQ¬]GJAQ↑ACI)kghAQQJAcUC]iSQrv~∀$∪aeS9hQiSQYK7WtYGeY_Rv~∀$∪SLA→SGQJ↓iQK\αβ ↔∨Np4(⊃⊃↔π⊗≥nBB∀n]V⊗/$λ l@⊂6tq\7s4aZ2P1`/pies on hand = ",onhandm[i],crlf,
↓ "Enter new quantity Od micrkfiChe c@=aSKfh@DRv4∀∩∩∪QiS\v↓SLAieaKS\mSGdAQQK\A=]QC]⊃[7Wm{';O≤∧⊗sXQ!⊂N.l@λ ]≤y( ,9z;AQ@∧DD\94w:
⊃':vX2y⊂ /d∧AQCIHAG←ββ'πM∧{9β#∞s⊃↓uα⊃3?;F ;∪"↑Zu &>-F2`Q!⊂HJ∧∧ααα∧(Vw→<@⊂≠2{P 1uantity oF hard copies: ");
t`)%\vAS_Ai`'∧∧VNq=_7$≥~→-d≠{Z ≥Y~⊗mnotg≤qpw
CE @∃]Hv~(∪CMHαβ↔3O*β ↔∨Lp4(⊃_λm⎇;90↔≥⊂0r2~w3P H52{@→w:1<H:7P 4he f@%YJ`,hQ↓↓↓α↓↓↓↓KCK'w!!
%∧∧6␈.LMb?" i⊗v"∞Mε∂"
yf*ε≥`π&FTλfNfU`"f∨-HbKXQ!⊂NNd
⊗n∂β\'=>Y+&$≥~→-d_Y1m≥H~Wf'h≤∀M≥]
≠mm_;Yβ Z;⊂⊗→rλλmse(crld)3 @∃]H~∀$∪K@3≤∧RεU⎇→g⊗/>¬α∧&t ⊗␈*∞|⊗wα∞Mrε.nLWαε≡@εNwMtπ&FTλfNfWt"KXQ!⊂N≡≡8 $
H≠p∪λ12st[εE∧DH⊂⊂⊂"≠w2]FB∧@P⊂λ⊂12cZw⊂1`/mment adding a↓]KnAα+;SKJβS :∞Mε*εm_ Wc"B!⊃89H∞,<|
∧(9]→.$~=≤d∞|→0nP4w≥42P#≠y0
STAN-↓←dAβ%~P∃↓∧{@∩∧λ
αjεn]V⊗/$!P@H⊃∀ααα∧∧α6∨-H DdY[s
Mβ{r`$ by *AQTHOR,TITLA0∀Dα3∂KLeG-→;⊂_ 5:v ,opt)=0
the@8AG←]QS]kJl~∀$HK;↔\G∪↔C?↔!#@'α8⊂∩Zw)X@ th∞@≤4c:Y←αc∪K↔αcS'Sd)3/;F ;∪!d¬vvF≥lFj@_{p→]⊗4vp↑∀@
∩@@@FA¬IHAi!SfAe∃aP∨K ∧π&@h≥~ T→Z0⊗→]FE∧BP⊂⊂⊂λ2p∞dl~∀$J↓↓↓↓∧∧6}wM→g.(λh M{I⎇∧ 9→⊂_w⊂2`.try -- us@∃` β∂F ;∨↔ ∧εFO4 VNvDπ0hPα(α,]Y∞c!∧rw2∞FA2g→≥FEεBαcomment @!CmJAαkπ&Tλ⊗f@λ_p∀_w3riH87P 4he ONHAND↓H '∪*qα;∨8∧π?⊗α8
2H4z⊂ /ut;
i` @ α{;#πv#?WQF{3∪K-↓3S'&c∃3?vCπ;∪@¬F}vα_;LM+_p↔\βt,iMax ∩Aβ##↔→αβC↔S,ε&sXQ!PF.l@λ∧5w40[2⊃≥FBβ1wvvYw:⊂*~2P8 2esidenpλ@Q
QSKL↓KqKGβ+S'[*I`_hαC"N∞Xπq`%dp eJ↓iQJ1AaKgSα#↔;QXh ⊗⊗\⎇⊗rα,Mε)G∞,W=9→0↔≥⊃⊂1`/mment The ma`∪\αβ∂?;'∪?1β⊗{WS'v)β≠|∧@⊂⊂βSREPLπ%(Aβ≠gOS,¬Rε7]l7&Nβ{\gFAεE_wvvr[8∧ a↓`∂/-_ .P7s⊂≤αevi@MS←]f↓[CIJ↓QKeJ0A∪↔~↓EE=8εrbπMtππ⊗βx )de betp Kdαβ π∂←+@ (αB0∪_qtv )ties th∞Aaβ∪?S↔≤εBε∞|≥⊗w∨Dλ o≡⎇→0⊗H3v4`4ches (a`≥Hαβ3 ?=_ L@P:0x→yP .
λ∧∪)Q∀AS@;¬+Qβ≠L¬F*αα⊂1λHβ$f↔⊃)` ) is no h ←]≥KdAoISiiKαqβ∪'α,V∨&Lε+D
X9~ ↑Kλ⊂~~2PεEαw2{@ ma`∪YαK;≥βd¬↔>λ~0→H8πri@QiK@9∧¬⊗w≠h⊂(Hα#$f αT@≠0AaQKαqβ@& Tε -8ε2`3 are pπQkMα33↔⊃ph ⊂MM∞W5λ≥~ T≤≤Y.m8πp∃@LA`≠↔↔≠'?9∧¬↔4_;⊂≠X|yP !p¬P∨Wv!βπM∧
∩$i→B`(Rp∞aQ@εE #om`≠KαsQαπp∧ε/GL,∩ε≡ XλmP37`2 a`≥←β##↔I∧εW<αy⊂ 7ill @!CaaKαqβπW&{7πSL∧6∞fM∃Bπ≡≥l6*πM Rε@⎇=≤∞↑β"B,@4p e (ADDFIHλ@:αIUαJ∞⎇⊗f@λ_Y$λαg""T2r⊂ !t the start, thus l@=GWS]≤AP∨W ∧ε∞fDλ nM→<C!∧{2`2pπS@?w→β >dλ
(≤⊂→≠pπram8ε~¬Sα1β↔nLW,X:0⊗
4πoo@
QC@9b∩ε∩∩4J1:Rm↓∩J∞Mε.r ,V =8πεEαx94g≥∀⊃)`/m` @?v)β↔L∧p∩H4¬us@PAEJAU`∂'lpλ∞M→(⊂_≤αh∂O@⊗ 5 2%Hλn4∧f);
∪@⊗+S@/-`∞aQY;YπF@
commenp f@%` OQ∧∧F/&↑-VNvTλ
,@⊂;rS\αe repeading;
backup # @≥KhAi!JAS]AkhAEUIMKdαβπ>≥_ GF@
`/!SYJAβ#@↔9(⊂∩≠P12`'in "rescanni`≥Nα⊂4)↓α↓β∂#∃{';∂G∪]l4R↓↓↓βL∧bε≡∞ ∂-LH≥~ ]H_Y,@tp∞ @1←@∨W≤∧V%@yX;∞p¬0⊗Aβ∪↔C↔∂#';≡|∧f∞g<W2ε&⎇lRα↔,X l<8π74[3Q≥@ end
@∃YgJAαK⊂∩ε=∞#j∪αh@⊂≥42w begi@8@EaCICZD@4⊂λ'∂|¬Vn8π: d¬P∨Wv!β¬β∧∧↔,8εr`4er -4ASIKαsS'≠Jβ'QlhP'OSα+vNv=∞vcZ↓Q O>
_ T≤⎇≤GTHλ@⊂→4π c@!`
`>Mx ¬∞⎇_ )8ε~∧∪αK⊂∩ε↑≡RG∨L∧Vf∀≥≠hε;+λPH_hJ(∞M→;@⊂_2st`. λ
(J↓↓↓βd¬v ><y0∩↔z90∃@∀p
βK,εε.∂M_ L@oz1:Y]P27[2P⊃9→yqpw≠4p∞gλp
β↔v 4(≤X ∞p¬ bedπS@9∧επ-8π:∧λαUfrecognized @ACeC[∃iKdAα{9αJ,qβ∂?nkπ;⊃R↓∩g>N"f∨-H E↔h≤Y.Nαy7; e`≥HβX4)↓α↓β↔l@λ∧80p∩am"0⊗~)K]H@ aKgGα ; 6≥lr'c"C!1wvvYw:⊂ .ow s@∃hAk`↓iQJA1_∞≥β4¬⊗f*Dλ
m
8z⊂≤αeco@IIfAi!JAG←αk7πlN2εO>8
,\∞c"M≤β⊂α`2epeating @QQK@9∧∪↔∂'p∧α,|Y0.L(∪∪htHβ"D∧λλ⊂⊃[vp
e@9hA←Aα+;'lpλ
≥H⊂ H4p∂de sonπt create @QQJAMαK3∃1¬≠=β←*β∪-βLεBεF↑,SHh$∧ααε=x -\8π:⊃4y1`4, check to see thad↓iQJA1←FAMαK3∃β&{↔O9?!βπL∧Y,≤α8 @∃qSghl~∀@@AQ←←-k`@#⊗≠#πeD$d|ujDmα%Hff∞u↔0hR∧∧αεNdV -α0s@≥42w begiN "should @ JAS\αβ π∂←+Aλ∀PKCKπw!!
SF)β≠'d)α2≡8¬e$m∧λ⊗g⊗\≤GJε←
↔∨'4¬πε␈>=⊗⊗g∀λ↔
πM Rπ⊗↑>Vgα
xbε
%H7⊗FeAPPJ∧∧αα↔?≡7&.T 7,<zα%@⊂⊂,w]P9t7]v2⊂ %itheR runthe program in@¬βπ↔U A[←⊃JXDY
eQLX4∀∩@@@DQi<AeKI<AiQJ↓ieC]MCGiS=]fAe∃G←eI∃HAS\↓iQJA CGWkde, by doing aLOOKUP then an ENTER;
if lookupfail(bchan,"LOG.TMP") then return # e.g., askedfor BACK@+@XAEkβ!β≠'f)β∪?/≠9∨Qε+c'O#X4+↔w#↔I#⊗≠#π→b∩2>≥u"6A d33π≥KX4+π2β≠ &≤pπ&F]`λ ,9z;D∞≤Z;NEλ]z
|+λ∩$ x;InD≠|→-d≥~→$ ∪q` M;→+D%_|[ e,h∀L↑≥<[G4→;Yπ1"C"M≤H≤Y. 8=~-lh≥~ ]H_Y,⎇9HλL=→8rd [|@⊂→4y2q]4πry page"
↓cTp¬7S]AkhAE
QCLY MMYL$v~∀∪%H β↔∂)#OS∃YEβSz↓EBub∩ε>YXTe"αdααJ∞Mε.r↓Q HO⎇
⊗f* .&≡F≤∧Fm≤YH⊃
t≤⎇≥ ⎇9\≥.E_Xr ≥K_YLE(_sm]9;]∧∞zz0_λ24y2Xz7y<H80srNFE∧b[9rP*\p¬ti(bchan,1) # comment @IKgKhαβS :∞:F∂↔Dλ l@⊂34`,e;
@∃]H@E
QKGVαβ⊂⊗@|H⊃
≡Y8p~≠y<P 0a`∂JDβX4(Q(λm⎇990↔≥⊂0p∀↓iQSF↓a←S]PA`∨∃∧Cπ[∃∧∧Vw→<Y,D≥~→$
⎇=≤∞↑λ→P∀[2W⊂&→p{2P~z⊂7`0en f@=` β←⊗KS'≠8¬@hPα8
7H2s9z\2P:4_z⊂77Kww2P→v9rP_92pu\β thru;
@
←[KKαsQβ;,ππ"b |W"πM RεNn∞W#XQ(
,@⊂67`/hπkaMα '1
_λm 8π⊗⊃⊂b"#$S↔")eHα) then retp e\βX4+C⊗K;A!∀C↔33z αC3, G*∞|⊗O" ⊂εnNβ]= T≥z~-L(∩(∞ 89⊂~w⊂:4→P0r2≤2yyP→4r2W ↔↔⊃,cr`→L$r~∃C⊃IM@'d¬⊗sXQ(λm⎇990↔≥⊂:42H1t0w≠2r⊂ ichan' wiLl be used↓ErA←β##↔I∧εε∂↔L∧h
|β⊂:4→P897Yβram0AM@?⊂∧εNw∞ZC@1 XY,<↔yR/ ↔xr @p∧←c@¬YeKG⊃>`v~)YS@;,∧6w¬|8
≡X{] v∞c"N⎇~;⊂∩H8∧re@∀AI↑A KGS\α4+∂∂≠∃βK,ε7αF>-F"HHλλii"h∪βRT @MsgiKαi`∩αλ⎇ε∂" 8λ-d⊂∧P $o fo@HAs@?αWrα∩L8 m 8ε0⊗_ywp 4pεRA←α04(⊃_&.>≥`λ M{Y.aQ@∧D`5pdade8ε~∀∩%←eIKβ∪@≠XQ!⊂O⊗\8 -≡Y*c!↓ ;8-≥∞c"A⊃<y0↔→≥FE∧Bpr5 5pπhv~(∩∪K]⊂p 4 ,¬f#XQ(
,@⊂0s #ha`≥O∃HAC]⊂AsMe∃`∂A∧)V∂J ∀π,8{p→→⊂0v , h∂LAβ#?&≤ε)nP:0∩ansac@QS←]f↓aKe[¬]KMi1rDL~(∩DA←αqβ≠≥H $λ1⊃⊃I→α⊂∞DSK?")=1 then ∀∪α∪↔∂'ph 'π&#⊂⊗NMx
.Dλh⊂≠\αite everything h∂kh↓iP≥α "∩4→Ee$m∧εc!↓8{p⊗[p¬`≥h↓]P∨]bβ@≡G\h ML(≥~ T→Z0⊗→yP @MCm@'v9β¬β⊗ ∂/WβX4(≤8 m]9;]∧
p23∧∞Y<=-≡Y<h∞M_8
w`
AI<ABAYα{?/Wαβ ↔≠|ε&*ε∀λ L]X;9'⊃"B0⊃[vrr`.t ne@\Aae←β#↔∂SL¬vrπ<X
∧∞≠h f&mh
L9→0~→P897]2qz, h
@=∧ε&.∞Ex
n4z2P_<P7`4her @Uc@↔Kα5∪Hh!_λm⎇990↔≥⊂34`2pπhHAα#↔3↔&)βC#*βCK↔4¬⊗␈/4λ&∞≡>↑αbε≤dε}vTλ /
<⎇≤g⊃"B0⊃[4πse(ichan); l@=←Wk`!SGQC8XEβ ⊃
∪_] ↔ DYα33π≥KYβ'→+⊂⊗@_9`⊂≥42w
∩∪αK⊂∩π,X L≥99P⊂Zv⊂λi@
QC@9d¬g.fEFαf6β_9e∀≥~→-d≤Y0~≥y0∞ # del@∃iJA←αc⊃β[,ε'=8πw;
∪Sα1β#?|¬7/εl≥⊗bF≤8
≥KλP(H⊃R3¬Hα)eA
P:42[⊂92`4ur`≤@Xh 'π2βC↔≠∞k↔ πLa#'∂F 91
"∩~&br∀]∧ ∧vMm`⊗→αh CNαIβC#,¬bπ⊗↑NWε@Hλh
⎇→λ HJp¬P H↔!%h∞FE∧dYα reNamefAil ⊃←α{?∂#∞q1
ε$"~&1t"N- b9I]]d∧ff∞u∀π&F]`λ∞2z2`2n # .TMP → .DSK9
@∃]H~∃α+3O∃πβC'≠"Aα;≥∧∧6F∞βYy.P6pr→P:7P⊂b"#$S↔")eH844`3 pime,∧DYGβ∪3→%Xh (αXp↔[vrw:λ P1`(ange made here, April 1980, s@<AaQCPAaQJ↓YP∨≥∧∧fNfTλ
.P9p{→p∧ i@8AC@3bβ∂πO,ε2`!α@
@∪@ ∧π/≡\@λ∞MβP9`]2r⊂ /nhp∩AαK⊂∩π|TεF∞DλλL\αs⊂ 2unfi@9H
β'p∧ε⊗∞=>Wαε]x Tλ∧4W→W⊗⊂ ,ocus@∃HR`,hS ↔∨Lq↓ O∂3∃β3|∧r@ ¬∧a[4πse(bchan);
looKup ⊃E
QCLX % !∨I(]→∨≤DYMYα ≥%Mh ''2↔≠L≤rπ& X AQ@∧DdYα renamefAil bcha`≤Y9kYXX@YMYC≤RAiQ∃\AeKQke@9α→β∪↔d∧W&*∞
&/2∞lW.z;sG1"B2,@⊂67gZβupf@¬SX@#⊗≠#πeD$d|ujDmα%∀π&F]`λ∞2z0∃@I\v~∀%S@→β⊗+;π\X L≥8ε∀1_t0w, ¬% ∧zJQ:dz≥ 18εβ 6hε3 ,a`∞@%∧εFF.βH⊂→→z:y7λ⊃P&'QTεTMP → @%∃!∨%(9→∨∞v4⊃KMHα↓↔≡≤h $
≠y`G⊃ B#!
9H⊂→→qr∃qXv92`#d+abs(f`∪@F!%/∂F;⊃`3∧λ
8πεE≤90 nt(crl@_XE',j6εJJβ?2∞Mv&∂∀}2ε6α;X-lz8;∧∞α90w≤βactions 44⊂ ↓↓α↓⊃ 3≤εf %≤Y0⊃Y↔XX_
T∧" @IKGKSβ3↔"
_ D∞_8 `-ent`&0~∀@@@@DYα≠[→#≤∧⊗g⊗\8 ¬@XX⊂∀K⊃⊂7`& p∂QSα≠!β←∂→β≠K|¬Rπ⊗↑8
,L9]≤d
βs⊂!Xv4s /p¬P≠≤⊃`hR∧∧ααα%HλnlJ→P∀↑2⊂∂100),"↓oCfAMkEi@⊗ ∂S↔ ∧ε .Y{ ⊂_qqw`5nts Du`
Ai<ACIUUci[KαsSMβ|ε hPα(λ∧∧→→0⊗→z4wg≤P397[P:42H4pt`,ing @1Sgh\4⊂ ↓↓α↓⊃ 3≥3⊃#∂F;⊃=Eβ↓%! ∧¬f/: 8
≡Yy4d∞βry2H9rw:λ4πut↓←\ASαs[/'≤∧W5β⊃⊗ #p¬P∪→KX4(Q( -lλλ]
&≤∀L↑z9→-nλNc!β1wvvYw:⊂*~2P8)≠sy0vH9z0y≥9P42\2P∀9Yz9P9]94w3H1ww9]0p∞ts, inclp IS9JA",bCM%Xh 4 &
⎇≥ d4+d2⎇≥E∪X4+≠5y≥EQXh(4 ≤+S≠?⊗kπQ!αaI%↓~β≠ ?-\↔"π=
w.fDλλ-Nx>4d Y(≤L↑≥<[L\λ≥≠d∞~~0→H4s⊂1Z0s3rY≥FEεB:/qp[4⊂_⊗λ ∧ATE ∧R`,hS∩␈Q∧k?⊃↓≠ ↓-↓ X4+⊗zCR␈Q∧#'Y↓≠ %β7|∧Bβ $¬3 XQ(F∂&Yxλnnj→∀I⊃⊂⊃∪≠ww:4≤mvnSλ⊂⊃∪!]9T_LM~∃P:λ24{⊂ Y∀]FB4w;7Zqrr0]2ovw[:49m[nS1`6s(d)&cvs(1964+t div 12);
¬
Mtape[0YP≡Aα≠[O'BAα≡≡$j>⊃ KYβ'S∂β⊗mFmy↓
E:↓~π<X
∧∞≠h∪,≥y(∃
(_<∞∞→(⊂l≥≠∞c!! []-M≤wifπh→Sn⊂4oXH9z2hλ_P:w≥4r⊂_L⊂27P≠:v69Ww:v ,q&nulls;
julLpπ?]k1Yg6b↓iP≥↓3!BuLhP4+ f ;/Nz⊃↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓↓↓↓α↓ l4V∪3πm>5}⊗L≥f←~l-F∞v>70hPQ(7∞F]J¬z∀ YFfZD
FFO4
↔
πα;⎇.$→\Z,]Y≠⊗$λttQ* tUλ∞∨<⎇→-UA"U
<Y( ≡Y(≤m∨λ~z-l≤h≠l@⊂:44[3yP$H0rP8≤5sy0[vrr⊂≥5P27H37y≡wzUεB∧jh"⊂j"Df≠wuP0]⊂0w2λ82y4_x9P1Z0w3rH:42P≠ptv$[3P64\z↔εEαgi""T∧c4f→P0sp↑P0w<H7y22\9P:4_z⊂40]2P12Yw⊂92Xrts"YεA∧DY5y⊂ H3t{2[⊂6ww≥4∪yP≠4yz↔βE∧i"Pbdk"Bi2qw\2⊂80↑vrw:≤P92qYt{2r ⊂7y⊂_p5:y]⊂0qq[zw:9KεA∧fPdf∧h≤2x0y→P6pt[4w3@ labelpεAC]⊂←←dA%]m←S
KfAC9H~∀∩%ESYYLA←LA1CAS]≤AMOd↓KmKee←]JAQQChA!CfA←IIKeK⊂~∀α∪IKa←eQfAMe=ZABA≥SmK\↓[←]i OfAY%ch\~(∪' ≥⊂∪!eKACeJA%]m←S
KfAM=`ASg=YCiK⊂AECG,[←eI∃dAeKEkCgiLX~∀∩%S]GYUISMNαβ?K∪/∪@~εn-vjπ X n
→(≠M}λ≠{D∞~→(
\:;∩-lh≠~.> C"A_1∩U*:λλ⊂m ;Yy$∞~→(∞,8{|LNh~;D∞~→(
≥]Y3NM|↑(
M<⎇ ∧∞≠h∀L\[→8nA B",=_;Yl↑h~3D∞~→(
n;8Y.∧≠yH =|~9.∀≠{H
;YβAQUz→-d∩(⊂.=hε⊂ ∃t0z can I do for yOu?', hqst type the FirstthreE hetters
ob oNe of thesE functigns afd↓QShAα≠πKKN ∨¬αα(U%-)`βf∨'abαE≥zRε≡≥`ε∞g=qPGπα8⊃$
9xY$∞~_;D∞~≤Y,T≠→5∞L<Xh
≤H≡;nT≥x;ND≥≠kE∀∃~→$∞<y4D}h≠8-n8; ∧∞z~0m↓ Xsmn_:;N∀≠;p→→P4w3≠y0
ation, is file BEPORT.TXT[DMC →πM%:\Dl~∀4T∧fNvM Vgβ≠t$Jε≥Pε =z;Yd∞≠h∃∞<P:7H4r2w≥4s<P_w⊂0r→92yyYrP3 /p∧As←T\A)sAJAiQ∀~∃MSYJ[GQ¬aCGi∃dAQCMPAG←α#∃β'2βg?U∧[;?]∧KQ1β⎇⊃βCG∧)↓eeKIeβ'2βS#∀hSπ&L∧Y.≡y9(
≡h≠[nD≠{@
}<H⊂⊗Xtp ine list and nodbeing inseppedinto it.
I` As=jAI←8OhAW9←nAi!JAQCMPAG←α#∃1β'KC∃αEBbba∧ ;⊃αJβ←'MDπ'↔∀λ∩εv≥\Rπ≡\≡&≡@Q( l@⊂:42H;t7`,e fi@1JTA∪_AsO@*βSgC*β#@/>@βf∨'`εv←uD∧Jπ⎇→Fbε⎇tε}r∞Mrπ≡⎇\W&F≥lphV]J6*Rλ∧r-ly(∩ ≡zλ⊂m|α2yP≤wvr`4imes change( yOu should @⊃←kEYα+∂#↔≤¬2πε QP@,9→≤L↑|y0∩H50vrH$P3 )nd i@8AGC@≤∧RεODλ
.P:42H9y7g→β pe@I`∂?9p⊃l4(hS⊂⊗NβY~ ]≤λ /HαI am pry@%]NAi<ASIK9iSMr↓C\AC⊃IeKgMKBAMα{@∩π≥zRr¬M_ T≥~→$
X;9!QXπp∩any part @=H βSF)β+πn)1βπv!α%β>K3 "∞9ε␈:∂→w*ε≥H ∧
X;9$
~;Y.P4w≥42P#~v2PεB9t4`#h co@9iC@'pβS#π ∧π<αxp∃@∃]GJA=H β∂F @⊗∞>LWπ~¬
⊗v≡LXFNvtλ&f∞βZ`⊂≤βpac@∃`
β'ph#C#*β7'∪&c∃β?2βS#∃¬≠↔GW,¬f≡*Dλ
,@⊂8w`5 p gJ↓iQKZαI0∩∧β[p~→P:40]⊂ @]SYXAβ≠↔πK≤@4+⎇mGJπM Rε6α<\nD≠~3LT≠yH \8z⊂_p∧d`%∃`∂Mβ|¬bπε Tεn∞≥H
-lh≠⊂∀\βt."l~∀4T∧6}ε] Vg¬t*GOεTπF∨∪βH⊂~≠P92`*ect @QQSfA∃]ier↓C]HAα33@/=λ
≡∞h⊂↔\α ti@AJAεYα≠@∪@H→P↔\αλ
+v{@⊗@8;λ ]]_ <K⊂#⊂≤@
`p→β4¬w$≥~→$ \Y0∩H44y`4, F 9α≠@∪@H→P↔\α the OFB↓YSghαaα5@L8 Gd→[p→βE:42Hall Opders)* To siMply @1←←VA¬hAC\↓K]iedX~∃IeaJA→=∨⊗\@↓)saJ↓←]YryGd|αβ←#↔p∧πN␈T
v∞wDλ
t≤=0∀]⊂:x"_z4w3K⊃≥FEβE3p∩dhedp1←"The ORDERS subsqs@QKZASβ→βGO,∧Bπ&tλ L\{|Y∧
|Y→.∞h≤Y,<88 %d from a
dπSmKαqβ'∨w#!∂M∧¬V∞Nβ~0↔→β li@Mh\A !JAS]→←e@7∂#'?9∧π⊗␈* X NL<H⊂∀\β re@
←eIK⊂AS@8hSS#∃∧∧fNfT u∀⊃0 )KαXX@0αβ←#↔⊗)αbbβεO~ (∀`%⊃Q0EDλπ↔., o`$↓ ⊗
p∧#HhαC"M}Y~→-N WhI≥H⊂1λD≠;p∩→T∧ y@=jAGC8ACIHαβ;↔]∧¬w,→<\d∞≠h⊂~~2P3 )le. In CHAL@∂
X↓s←j~)[←ISα3eβ¬∧επ,=Z0↔]yP2`.try @→←dABαβCKSL∧7.f≤ λ ><⎇≠m\αy⊗⊂_p∧diNdεA←@⊂β∪↔LX
≥Yc"N <≠p→≥9P3 2om hipεAYSMh\@Ae←jASα#↔;SL∧gJε∀λ ↑\{p↔λ1<P (is hapπQG←α#∃ 4T∧⊗v"∞Mε.r∞<↔Jπ⎇
⊗≡B∞,Wε@|Y≤d
→(∩ ≡h≠p→→2y2b α F@=` β↔F 7C3*aβ'→∧¬ε*Q(
l≥]_ P≤αepo@Iif@@λ¬CJ@⊂+λ ≥Yλ⊃eD≤∧w`5 can↓isaJbsβ∞αβ?I↓α_∀;JDλ .Lhπ⊃;
~∃αkπ'M Vg¬t*FF* X∀L@λ≤p~X9x `'β#↔5βLε2π<y0∩λ87P 0p¬KaCIJA[C%YS@;8∧εf∞,X ∞P0w2 wyεE~w;7`)c` fAα3?Iβn{;@&
H∞$∞Y<⊂↔\αpλAI%`∂SKL∧'/&≥x E@⊂⊂";[P5t`.ds o@_AP↔πL¬FNvtλ ≤Y;⊂→CE0p∩e pre@MK]iYβIβCK|εfN→9⊂→αh∂dt↓β ~⊗α+∩αC4¬⊂_t0p∩acters p∂SI∀XA←]∀AaeSαsS↔⊂hSπQβλ∧π&Nβ9*$ 8π2 @π⊃ ≤B&J∃αAMAβ≤¬ε∂⊗≤8
↑\h⊂≠Zp∧e @¬]HAi!aKJAA` '≠&+⊃βπα@λ
⎇Xy*%@∧¬∃/!K\A[¬SYS]≤ACLAα OS⊗ ∂QβdK@∨"Dλ
∂≡→(⊂()↑1i∂⊂0w2λ$P;t[4∧ pRepa`%∀AiQJ↓H '∪(h*2ε∀*2M~αIUαε=x NL8∧w4[3P6pZv4w3H4∧abels f@=` β↔4∧W/8πw2H7w⊂ 4he mailing his@P~∃Kq
KahAα≠?β↔~α11αh¬Bε←$λ∩bαλ⎇ε.r
\⊗Nf≥lrεNnivN≡↑4ε∞vDλ L↑≠x]∞T∧ type~∃I yGβ⊃yβπv!β∨'4)βC#*β;↔∂,ε7<<Z(
≥Y[p→≠pz4`/n about the re@1KmC]PAS@?w#!∂LhSC↔C|ε''~d∧¬&FT u∀∧X*2eE ε -8ε2P→αh∂dAβ##πQ∧¬V}wMλ∞⎇8ε6⊂_2P:`3e` to spe@
SEr~)CYXAα{C∪↔↔→1βπv!βC#*βπ∂SM3'SE∧ε&.≡|,G
εmx D 9≠λ ><⎇≠m\αy1P_y2P)Z4s:2Yε@
lEd¬`A←9JAa←β≠'S'|qβWmHW>h≡3nT≤Y4.\αyz otheRwise. ;
λ¬CGi!KYa> CGP↓C@∪∪α,W>y9(
<h⊂,>~9R.O(_p↔Y2yP)→x92yYw:4g→β the number oF orders
he made d`+β∪';≥π##∃βd∧↔∨"ε∩"εn≥→FNvt∞ε/⊗≥|G~R ≤bπN}Tπ'O T¬Kf>'bbπM PhW∞,W≡∞nDεn∞≥M⊗v:
≡2ε≡⎇n6N&↑,V"ε∀λ L↑h≠8-≥~;Yd∞→<Z-| Hλ ≤β⊂<w]P:<h→FE'<cr> op <cR>, the presant mailIng is consi`ered to be c@=[ES]∃HAoSQP~∃i!JAae∃mS←kLA[CS1S]NAAKeS←⊂\Df~(~∃gK9IQKYβα⎇
∨O3∃βSF)βO#⎇∪Qβ;∞k∃β?2β¬βK/β?KQ¬∪↔GW-≠S↔⊃bβ∃;≥pαεMIA9β?I∧
&5I≠Iβ/I∧BBA]9⊃0$ 4{3#?>+⊃β Jα→β'2β'QβM→β7π≥∪?≠'≡C∃1β*s≥)α≥→Ia↑2q↓α -!β'→εs=β7|ε&*Q( L↑≠|]∞∀_<Y$∞Y<=,↑⎇→9∧ ↑(⊂~~4yP!]yz7fYy⊗⊂%≥yz⊂*≡x2P≡_y∨↔↓∞FEεE≤x64j~2v8/H$s⊂<[zP:<\2P,Vλ$P;t[4∧ sEnd all the copies oF thiS rep@=` Aβ>C'∂!¬;∃β#∂3∀4 }qβ#πv!1β←LεFBε∀λ M}→(≠,]]~3mm9Y`⊂≥40z wa don't @!CmJAQQJAe∃ch\A%HAc←TAicA∀A≤
∃$Ao←\≥hAMSαc1βπwIβ >dλ
(≠p→→2y⊂∀~W2Wελ0yP$Yα we ware compLetel@dAWkhαβ? βLεBJ@β"P⊂[2⊂$S[4⊂9b[2⊂0@≤wy9<H4∧etter sAyi`≥NαβG=9⊂π0hPβ"P↔[40w2~2r8/H*42P⊂b%*iU⊂97j]4p∞e pπQ←k1HAEJ↓kgKHαβS :
\⊗↑
≥Fbε= ⊗v>↑4π&@h≥~ Q Z;Nl;]≠n<P3 )le, Since editing with E is riqkp∩\ααS-β≤¬ε∞v|Tπ&FT
↔.∞nM↔'Hβ"P∪≠y⊂0@ p¬Ka←β∪Q1βTεW∨" X NL<H⊂∀]9P9`(ort @9C[JX↓JUN\αα≥≠'
d
|H⊂)→(λ 39F~∃α{@∩∧λ∧∀εVβY↔ You @]SYXA JAae=[aiK⊂AMOdαβS#∃∧s↔]β&{SπDλ l@⊂1w`0i` fAα{9β#∞s⊃8Q)⊗"εmtεn␈,Tπ⊗/
x NNh_<LT≥≠h ,(≥< L=→9¬D~]<nD≥~4 T∂_tGeHNc!! ¬70[rpλe@1`c.E$AgC]PAi↑A-]WnAβ;#↔SF+@∩πM
↔
π,Zε␈↔Dλλl≥H_;∞≥h_Y$∞Y9P∩\αefc@∃HAEr↓BAIS→H ↔K,sP$-l⊗n*dλf␈∩ X∞ ≥<≠⊂∩K⊂9wfYP!iP∀2x7`2ts alqo have AI Memo jumbers. If This
repopp haq suCh an alteRnate na`≠J0Ai`'∧∧R¬LZ5Bε␈M Wπz<q$∞≤∧p⊂@∀A≥≡A=` ↓s≤ε#rr'1P@@ ¬70[ppλe@1`e =∃#gC∃∧εFF* ≥G&/-l↔&*
l⊗n(→P↔\α thipεAeKA←eh\α⊃d4(hSg/=mvF.N r∧∞n>v/∩λε1*5∀r4GL|O@⊂≠y⊂''K)`i≡_y≠⊂'\α so@5JACE eKmSα S'∨pq↓l4Ph#Kβ,¬G¬Z(≡Bπ&
_ d∞≠z0↔≥⊂ @9KCHAβ#=β/v{]βSF)β+πn+@~ε≥lBε@];8L↑\h⊂↔Yα the rep@=` @'5AP@-8π⊂ /p¬IKdαβS :
_ ]]~0∪≡P:42[P6r`!ni`≥O→kYYR↓←\Ai!JAS]Y←SGKβ→βC<hS ∃β?∪'SS,¬b`$⊂∧2`2e a`%∀AaQe∃JAKq¬[aYKβ→β >dλ
(→P↔\αh
A∩↓oCMh↓s←jAβ#=βSβ_ W@εE)U g⊗aTT[[⊗MXε2*KLUTH1)%β¬λA!β%⊃~P∩⊗
∩2eα$*P∀3λ∪hd∀⊂ 'QP ANGP β∂∃&~∃β%~P∃I@ε"U$≠→D`:K∀v)@*$"iRiP'cλ&`g$T*f j∪βR COLTROL PROGRAMS(THECIS)~∃!! @5αp
eV*TuλXR2`⊗∪`i*$Sα,A REP
∪ \A∨ A-→/→ ≤[¬β'∃λA!∀z∀dYPλ
9q∃R)HβFE'≠z2P 4hat @QQKeJ↓`∂#?,c⊃β *βπ9β∂≠S↔KM≠ ~αα_;LD≠[h∞x0q`%) be@QoCK\αβS#∃∧ε&/ε|.@hVβ];,,<H⊂⊂[2⊂:4→P0p∃@QQWdA9C[JQLRTA)!JAiSQYJAQ¬bAi↑↓EJAC EeKm%CiKHαβ@≡z∞Mε∂ Q( .l<↑0~~4s3@ d¬SiF↓←\A←αs∃β3L¬f*B X
L]H≥z ]H∩(∞≡8Xp~~z:z2H:42P≥wy2_∀6t`#p¬P∨≠L∧6F*∀∧phVmx D∞~→( ≡⎇→4M≡zk@ ≤β⊂:4→P92x≠y:⊂$\β a @QQKgSβ→1β≠|¬Ff←tλ
(≥~.Mα2P!≡P0∀*∩ ¬SIS)'&"≠
~∃α{;#πv c≠πd¬F.↓
↑6=z*⎇ε}␈∞4∩¬& T∧`9β$ g⊃↔")eH30v % is ApεAES≤ACfAαKQβ∂∞qβ∨↔ ¬Bπ≡t ∩π≡⎇`w @ ¬12H0q6"H87P"[82y≥44yP≤2x7`2t into the filE,∧@A)<ASMGβ∪↔πO*βS#∃π#π ∪*βG'k*4+∨v)β7πJβG'↔εceβK,∧6}o
_ T⊂ttHZ∃λ∃m≡~λ_N≥>Y( L9Z;L\λ≠⊂.,y<KD'c"@↓L{{;,]]λ∀l↑λ_\L\:|k∧
|→;D z_;Ml;≤k∧ x;≠∧
8:;D∞≤[pl\≥<Y%D→;Y∧ |X8l\];∪∂↔c"C!.y=_N,8:j .≥ ≠ e≠];
EλR4i4J(λd [|@∞N~;K∧∞≤X;N=_=→.4≠≠ul↑H_x.<(≥≠d∞<≤→.≥FE9Yz192XuP13→43⊗3→∪23⊗≠:v6⊗λ$`Q∧H⊃P37\⊂9qp[74w3H64w2\P7s⊂_t0q0Xz2y⊂→4v2yNFE9b]192pZT13# 33⊗7≥v6⊗⊃∩`Q∀PλP37iλ9qpw≠4w3@ pages qui@
SYrA khAG¬eKMk1Yrf~)g@↔S↔∪↔π-F∪3→3d13;Wda1
&
⊃%↓
ε3?Iβ≤≠π;;Ls∃β3Ls↔Mβ>KS#'pβ¬βC∞;∃l4U≠↔S ⊗+π-β⊗ M⊃↔a 3;.c11
M→ %↓~β≠/Iπ≠↔Cπ⊗ S';8∧π∂..:GεNl}2ε&]H
-]=→9∧ ↑(↔π1"\q.L\Y8-5_X<nEλJHEM];∪¬DR4hE∀λh⊃M}H≤q. <X=
≥Yh∀n\\⎇≤M≥Y|h L;~;-≡→9⊂_<P∃≥CE9rj_92puJ180y ⊃∀Qε≠:v6⊗λ$`Q∧H⊃P37\⊂9zq≤z94w→yP2w→4w3@≥tz4⊂
]FE9Yz192XuP19\⊗⊃⊂⊃ :0q⊗≠:v6⊗λ$iQ∧H⊃P37\⊂9qp[74w3H:7P!≠0s5@≠y⊂:0X≥FE9Yz192XuP11Z⊗⊃⊂⊃ :0q⊗≠:v6⊗λ,)⊃) # for scanning pas@PAEYC9SfAC9HAiC bv~∃MKiEe∃CVAE1MI←Y1CdXD⊂DMIL1]kYX0A∪&D$@FAM=` βO≤ ;;'v9β≠?⊂∧ππ⊗≤8Rε␈$λV}c1Q hV]xe{β1Q&␈ε]aεN≡ ≥e}>↑L6F∞eD$%≤4!Cαc↔∃CαcFVαf↔,=ε∂∩L]v %(λh =_;[L]λ→[n∧_z_. 8⎇→.$_;Y∧ 9→→M≥λ~3N∞=∞c!
|→3E
xz_-kyy5 =_;K∧ )eQ _∩_⊗ \V_⊗ ⊗2w`&) # Chafnel fo@HAGQCICGiKHAWkiAkhv~)←aK\αC??∂F :o∨-#∂#πpa∀¬94"cαF¬C JF¬Cαf]x E∀λh⊃M}H_X,=⎇<λ
≥][p∀XryP≠
λkpeN(kooChaf@?≥KiGQ¬\XE M⊗DX`0`Xbr0`X`Y∃←LR@ AMOdαβπ&Li⊗bε|↑Gπ=∞c!
|→3E
α1t0[,πgeTchan ¬↓'⊗λX`H`0brX`0`YK←α1%↓
∧≠#πmlVbεmx D
8:0⊗~w3P&_q2v⊂≠zz0 5t;
@=aKLQ GQC]⎇K@↔S≤Cπ91∀"N- c↓1I1λaQUAd∪@⊗≡ ≡"f.|e∩α~ iw$⊂ε'cH30 lE8ε~∧~)S@→,¬⊗w∂<Uα(⊂∧`f∪βG.@)5 DRAβ##↔dλλL\z;C!∧¬∃@≤∧W'π-→g"B(I∀ @⊂πc@.TMP"0@
KX4(Q( ,≥8ε2`$←sende`←afchange` ?Mα 3O∃β1P@!α@
`)!J1ae∃`∂'∪,¬g#XQ!P@.≤Z0↔≥∀1y6→α,"S@∃JA`'|εRε@_8
2\↔⊂!2H9zy2H87P 8pπa←←αaβ¬β≤¬wπJ
x Dλα ALLπ∞M$jA1 d∧7-α3⊗εBα "which↓` ↔∂|ε&'~∞⎇ε∂"
↔πε]lV"πMx ∨+H@∀Nβ
α
pπ@↔Sαλ M≥]
≠N]≠ λI@⊃∀]@ commenpλAGαc?O↔~βS#∃∧#'πMx d X∧v %8ε~+≤¬F␈≡U &≡F≥`
$∧h_p⊗≠yrP 4he LOG fi@1J@@#>C'∂!∧¬↔4≤[p⊃≥yz⊂ )n case of pπsgi∃ZAGe¬`∂!↔1P@!α@
c@1←gJQ%GQC\αI`_h,8
}y*≠l=_;@∀Nβ cl@=`∂*
x l=_;@∀Nβ cl@=`∂*¬
v}}= ⊗rKαh⊂⊃[4πse(lchan) # @)kghAαK9β∂∂≠∃α∀λ M}Y{p~∞β
∀~)K]Hv4⊂ ↔l@
.Y<⊂↔\αpλDv4⊂λ