-------
TABLE C-l (continued)
00000573 IF c t Q ;• E 3 *«OuC«09? T H E. \ PEQ3 = Oil
OCOOC5S3 * ... S02 DEFAULT CCMRCw C3i"E.
oooecso: IF S-.FF EU ::o TUL'< 33 TC M>ECK
0003C6K IF SLG4 E3 ««aoCtOi^ T^rN S15A = C13
COOOOC2r lc iE3r E3 »»CC:»07^ THL\ S'-Q^ = 313
OCOOOfrtC '.CntCK!
30000653 IF ,tFF LS no T'-tf, 5& TO hCdECK
acoo3f.tc IF ..to. EI .ico:fo'jv T^-EN -ILGA i ci:
3COOCF7: IF it05 E2 •»i::«3vS THE', '(i1;! r 013
330036PO » ... «.:. C-^iULT.
ooooot7r I-CHLCK:
0003!J7C? IF rt_FF LQ T'. 3 Tt-c.N jC T" CCTiCK
3300072'' IF I-L3: E3 •»CCr.O"lr. T"- '.' H-.Q^ r :21
0000073" • ... C.'. 0-tA'lLT.
330037«r i-ChiCK:
COOC075: IF CEFF i£ : ;• C, T-t.'. 33 T'. DO1.;*;
0000"781 *
330007^: L0'..«::
3C03CfiOC •«••* Ct-'.CK 'J. ' ••»••
0:00:ol" IF l-LQi \3T ..UM-'IC THL '
a:oco>)2: F t c. i = 03-
ococ:f2o crcp ; cc:
3300:>"iC ;F rLGh ' CT ..UKZ'IC TrO.
ocoo;pt: ?f-.E = o:j
C3093K7C IF a^St .37 iUv >1C Tni'.
cooo:u8r «r"t - ooc
OC3CCP?C tLFF : OCC
C0309-K: IF St&E -CT .UCLfiC Tut.'.
00033^13 Sc."t = CO:
03003S2C 3tFF = 303
30003^3: IF i£t\ ' CT '.UK-.rvIC Tnt'
coooc"*' :.' s jo:
33303=;: > •.Ft- = oc:
OCOOC^t: IF '.Gib .1 '.UML- 1C Tn^-.
3ooo:ct: -LFF = CT:
30003953 IF >.;iJ .CT .U^rl:lC TH;'.
ooooi:c: »^:t - coo
3C301C73 «L"f - 333
33001710 HuFF : COO
OPOQir-1" IF C^GA '.uT i.UT^IC THt'.
00001:6c ct'i = :o:
orcoioto IF i'.3B V;T \j*.c*iz TIE.
coocic?r cr.re = :::
3 OC:il 30 C'.FF = CCC-
ocooiii: •
3COC112C IF FILE '- U CILL
OCOD1130 "ULCERS
rrr. nii^n *
ccociib: r CT«J:
030C1173 IF C0»%o N3 5 Th'.f. i'. T. i.LiT«5
00001180 IF FALL.. l-:T f.JftRiC T-t.1! =ALLJJ = •
168
-------
TABLE C-l (continued)
o:cci:-: ;r SALL:J LOT i.JN.mc ~ni-i SALLD* =' *
:::::::? :r '.AILC. NV.T Nurcsuc tht..1 'itLL?u - -
CCODi:!^ IF t.aL'A f..T M'f-C'UC Tntf; HALLOW = «
crccn;: IF CALL^U HOT NUMERIC TK£»I CALLOW = *
:c:cii30 *
cc:;:r«: IF FILE ii FILE
0:00155: SUCCESS
c : c c i : c : •
•: : c o i : 7 o • • c T - ; :
.3cc::°: i? CC*NO NG s THCN so TO MCT*S
::c:i?oi :F FUEL £c <*.«•..».> OR FUEL EC ( «•*«••> OK FUEL EO * THEN
toc-ii?: FUC.L = ::ocooo
oocnrsi kOT*^:
:ooei:c: •
C70C131C IF c:«Ni NO 2 TKEh GO TC NOT*2
:coc:3:c :F FILE -^ FILE T-EN
c:::i:3: OLLO = ou-
c:c:i:»" ...... CHECK <;T;CK Ti1-'3. *-.o Fi" DIAMETER FIELD.
00:C1"'5: IF T-.l'P LT 7; Thi.t TE^F Ea 7C
tCCCi^i' IF hEIO-TA = *»3 OR nSIJhT* i.OT NUMERIC ThCN ii TO hOT*2
orrci:.?: IF CIAC.A = .,o in anii %OT i^uyimc THLW 33 TO iiOT*2
CCCOljt-C •
:o:::i?: - ... SKIP 31::'. CHECK IF 3 < I/S*M
::;ci'.o: ;B FILE £.Q F:LE TI-E'.
r::::"4; • :. ,x i; V;LUI CF TE;ix a 9
o::::::". IF FILE ;s FILE, t^r-,
c:r:: = :~ ji-.- - i: x o;-':x + "Er.tn
:::t.c:: - ~ = ::.r (L<.:LJ J.IVE.- J.C,-;AA) Mc.iihT-23 SOLO-:: oiAM-3S ovi*-tc
169
-------
TABLE C-l (continued)
:oc:3"sc /* PUT CF L-VH." F ^ i ;i ci'criTK <,? TI= C^IT;:OU P'.LLUT-IT,,.«/
3ccoai2C /• TM^JT •/
/• FILJ. ";T T:S - CUTL ':IT.\IDS •-.
ictjcnsr /* .•>>. ''-.K.": !sn ^L: rsF.^,2, .»«i-.c,c
-roci2ic /• F;c:uiTr ii •$• L:CT:-J«.
2000022: /• thtr< JILT 1 :,T .1-/-..UL. Iv-jT ;.^ LI'.i IF • ,JI L
;CCCC230 /...».....*.«..«...*... ««...«............i
joccrr?,' ':;_;L" (it'.:) c- M--> ITHII. -:\T,
::cc'2 = : •.•u^"_:i Hf-\. -i (in if^Tic nit
:u"r:27: •"'-•_:l-r c-i'-o.") ST'Ti>. L* r.
coco??':: •-^ctTtiT) FU;r: LI-.(?:J ITUI'. -"»T I,:TO,
TC:rIi: -^--'-l-) Ci.--<3> 3TJTIC «T;
r » n r, "; ^ 2 " ""CL-^-
'cacci" _ .':>!' rit; i .-JT --;;-o,
•CIC'lf1 '^T-^T rlLr cUT-'jT fFT.T,
rcccrib-1 (i i. T -. j,
:CC^:37r' >-Lwi.T) fiLr 1 .-L'T ^Tut.-i
. Ji_- .Ltd) C^i< '2> Ivi
•:T.T~_ ,ui;r >.
-•?c3o*e: ;T4it.~r tL(.:.t". i.
ooo""':: -1 »_CT_T! K i>
j?nOCr.ir " *_l-T. T''_". "i Pl>
:coo:t2: ;:..TL ;«A--(»),
:?nc:r;: :'T-_ .Jiwtr..
• « n n ^ c ft r
?ic?::(c T :"?_:.'^t t-ti'is") ii- Tt«e
:aonocl': i TCi'?»
OCCOCl?" 2 T S. T A T • rlC'S1?'.
DCCOCflC 2T^',T1' ^IC'ZZ'.-^*,
170