Directory of image this file is from
This file as a plain text file
---------------------------------------------------------------- MILITARY SER.: ____________ EDUCATION: _______ ______________ ______________ POLICE REC.: ___________ BANK: __________ _____________ LOANS: ________ AUTO REG. #: _____________ DRIVING REC.: ____________ _____________ FRAT. ORGAN.: ___________ ______________ RELIGION: _____________ BUFF2) DCA BUFFER JMP START CLA TAD (BUFF1) DCA BUFFER JMP START CLA TAD PCHEK AND (1) SZA JMP ONE KSF 100 JMP .-1 KRB 100 AND (17) RTL RTL |@@@@@*:5< *4*:91*//E/>8??>/??7 ?3?6?=?,F;1*1?>< *:=/<:;/<G;??H\p-INT THE BUFFER TAD (40) DCA I POINTR 6152 TAD BUFFER DCA POINTR JMP NEWFRM LINEFD,CLA TAD (-100) DCA CHRCNT CHRKP,CLA TAD (200) TAD I POINTR TSF JMP .-19"`xo'=hsd1G0 "
$0 @Z JwvHap{08.`@p#@AePo\~/UBkR{pp~`trmI0p --| ss m @(M(b^3q]q0@^x>X6k\`sdf ? b&l /~"bbn}'D@.h,iN&|@>YJ^{@bz(/y@>x 4zY*J^w@nb|k@Yl5^,wnv"|k}bj|&u&\.t&sbY<SX,!,S&,DZ*LJrb!^J&Nq!,c&,Ij"jjx" k{| @{ vp R@bY|^,~}" zL.|" z{>z" zy'x>w" .zy'v"@nu"ztbjbs /A.y'r"bq /.p&.'Bu /t"jybj|o2@Vze$&dhvcde)c"H{|[by 0fD.Xfdv/.4w s@pv},@Yl^,~" z}b|k{b|k`(/_"&_&`&~&%I''J f'Ga& f`"(Hz1 "(Nz|(/H{"(?zz /I$^"k)QJw&Xc nk)(/F$`2(Fzy(/Dx" Qz )b)Qj~ c(hz&ca`{wo&v&&ell9l mqr(|OiwPp ************ CRUDS4 ************* VERSION 2/25/74 ** PAGE-1 *** ************* CRUDS4 ****** VERSION 2/25/74 **** PAGE-2 ******* 600 BUFF1,0 *3200 BUFF2,0 *5600 3000 $$$$$$$$$$$ $$$$$$$$$$
~|11+++40> +1,++,+,*8!+?+,*; ((/2o0?61?9?? ??,=608!< p;?> .1.*>1(881)?.q>2.r > 600 MORECS=2160 K5000=6765-DIFDIF C1=7157-DIFDIF C2=7160-DIFDIF OUCT=7166-DIFDIF OUCTLW=7265-DIFDIF O7=7374-DIFDIF I2=7566-DIFDIF I3=7567-DIFDIF *MORECS -OURECS+1 *K5000 OUCTL@|@}nAo?`@?|ps` / i p
Znx_ +mT!;!@ FUr&,S*D}c!\=~(!%\pX-a8L>d>D=,+D*)D(@r67oo{w8+!OC7 GtbpP"!u&<6M&JHd$;b=SrTnryr5R5uwQb\&K)i4@.3/i.K/ww&Sw
DI)iSau(/wu&w .u@/avuH/aIS=2aEAICKDLNPRJFTMGSYQB_# DvSS4cHfz!Db YzS#SScSSkSNSS6KF.K.S*2"X1A;_=V"1DDD# }2\$K?IrqDa./$ "6ruj(u(utu0)LJd LCNF ubqObGfW9b*$ @|"axD"H>z`/>"(>zD B*bB: GMT&Tt" GtFBF>nt nGBkf\H/ "BT+fY fff UzfW*Fr ,
<aabJ n uj Ffa BBb(/ff4B "fh3'1`C1*&"(o{r(/o;$W6>*d6@Ob}/aR u0)Lvbrr&uq& LCaacL|v(J8od>q.(axu nv6bMJd@ou Hzr!.vudu!.rH/au0L lL
6N6 NFubqud/5jckj)oD2 /\v$H@+-O D&?uqrD5)O&G)i9:9w9)":>?v1w2 o{wuFH+bO@k,$>0D,i("5D0!@oa K.rH/aP+ ,I< IvK'JI+Ovwu&F&RF&E@nu@/ST"GEjE@Nuub@oB.EQ"6FF:Jo000( pDHb(U{9s$DM)U2Ms!_*M) xIHU{"_*"_*J(/fs"'@/ts&M)sxJU,9$<b=OrGf).*1kY
J\B(k{^K}p;b " "$HdZpa`"`#30-K@;(/k<2 -{-L-}?t~HXBM2iM) zC(OoX2M b- lx@M-M!,So+!VJHZiAn.'a[".ur(~!Ef-o'.&uwfJAjQV:EhJTqf7o'o24 +,-./<=>"$:qu(/qu&utub0
Ff/91E2!wbH'z{ .wh/aE0v{b0uw0)w lvK6uv7wu7Kw'oKr\l!C2{!ObG /H(/*C25E lOEsGbJ _z Gf bEct*K XzEYzH.A >FWi(/lD"IFd"D:iIB+u!.wH/auEwb{8k4h683144!+HzCb4O,0OU /a ugbT%rb$k_Y+!,j5&Uu!.vbrH/a-q/rK&D<k: t /OrLNrOOrLdO&Gl=S8Qz0 uISi3DS
[Y'Ubo7bozrbzbXzrW6rMHd[.'SnJtKU^<J n `Hnw0l z<(axr(/'"o
k= ,V^ l|? {DDb("H?\S2j tnn{&l!.J6)!6)6){<"6=jk0CA {XM&>H?]l9o}6b|&o{& nEpm#mrs[sc{l{H`+,V^ I q!le#(%{6gSc>e^}t7n{o&}o'|b&B FULL '"{UO0{!l#*"6{6!^lmaq0+lm9!4J7o'oG3(axlCBy~uBk_w+lqD2t%qlD,@.O}"TzO!.W"wVk4p +O&rqfpokrC n{ph6q<`h,on{7_s p~ @lpv|ENKHl / z"vybqb6J)9@vJ vfD"
zq.qb!ybtgt(/]h(q0)Lxf LCsscwlq!.rH/]s" nF/issb /Cq$hx wB*s"r /Lx$ ufd7 uVJFH/U .
& Ffhx7x"t(/br" ~qoKdhkjyc(Yz!rfh$0lr5vw&~&}&C GJf%*K HCI@J /1 ,K lLDP1 ,M(?1N#cO /1,P <g3JQBRb cSt;@*CCG@C BLVpxqx@^?P?|_(j pB+<eRmtbWo&mF.nMWWWbPub0vzs%0Z{y
?$CxH+&;iK%F^U/PART OF CRUDS WHICH RESTORES BUFFERS MQL=7421 MQA=7501 BSW=7002 FIELD 1 *3200 A, CLA CLL /DISPLAY A NAME BUFFER TAD (-7) DCA CNT TAD (BUFFER+1) DCA DPOINT TAD (3000) DCA I DPOINT ISZ DPOINT ISZ CNT JMP .-4 CLA CLL TAD (BUFFER) 6150 TAD (10) 6151 TAD (BUFFER) DCA DPOINT A1, KSF 100 JMP .-1 KRB 100 AND (0177) DCA I DPOINT JMS FIND ISZ DPOINT CLA CLL TAD (BUFFER+7) CIA TAD DPOINT SPA CLA JMP A1 TAD (BUFFER+6) DCA DPOINT JMP A1 FIND,0/ACCEPT A SIX CHARACTER NAME TAD I DPOINT TAD (-54) SZA CLA JMP F1 CLA CLL CMA RAL TAD DPOINT DCA DPOINT TAD (BUFFER-1) CIA TAD DPOINT SMA SZA CLA JMP I FIND TAD (BUFFER-1) DCA DPOINT JMP I FIND F1, TAD I DPOINT TAD (-15) SZA CLA JMP I FIND JMP COMPRS BUFFER,0063 0 0 0 0 0 0 0 COMPRS, CLA CLL/COMPRESS SIX CHARACTERS INTO THREE WORDS TAD BUFFER AND (77) BSW DCA TEMP1 TAD BUFFER+1 AND (77) TAD TEMP1 DCA NAME TAD BUFFER+2 AND (77) BSW DCA TEMP1 TAD BUFFER+3 AND (77) TAD TEMP1 DCA NAME+1 TAD BUFFER+4 AND (77) BSW DCA TEMP1 TAD BUFFER+5 AND (77) TAD TEMP1 DCA NAME+2 6152 JMP I (3400) TEMP1,0 DPOINT,0 CNT,-1000 *3400 TAD NAMED DCA D1 TAD NAMED+1 DCA D1+1 TAD (7201) DCA D1+2 TAD (NAME) DCA D2 DCA D3 TAD I (7746) AND (7776) DCA I (7746) CDF 10 CIF 10 JMS I (7700) 10 CLA CDF 10 CIF 10 JMS I (200) 1 D1,0 0 7201 JMP ERR1 CLA TAD D1+1 CDF 10 CIF 10 JMS I (200) 2 D2, NAME D3, 0 JMP ERR2 TAD D2 DCA D6 CDF 10 CIF 00 JMS I D1+2 D4, 2300 D5, 1000 D6, 0 JMP ERR3 JMP DONE ERR1, CIF 10 JMS I (200) 7 1 ERR2, CIF 10 JMS I (200) 7 2 ERR3, CIF 10 JMS I (200) 7 7 DONE, CDF 10 CIF 10 JMS I (200) 11 CDF CIF 00 JMP I (200) NAMED, DEVICE DTA0 NAME, FILENAME PATBUF.SV $
6 6506 6163 TAD (4000) 6506 6506 6161 AND (7700) SZA JMP .+2 JMP .+4 TS1,CLA TAD (1) HLT ISZ COUNTA JMP .-11 CLA TAD TIDR SZA JMP .+4 TS2,CLA TAD (2) HLT CLA TAD TEDW SZA JMP .+4 TS3,CLA TAD (3) HLT ISZ LOOP JMP START ISZ BLOOP JMP START CLA HLT *400 CLA CIDR,6160 AND (1000) SNA JMP CEDW 6163 CLA TAD (7700) DCA TIDR JMP EXIT CEDW,6160 AND (2000) SNA JMP EXINT CLA TAD (7700) DCA TEDW 6167 JMP EXIT EXINT,CLA TAD (7777) HLT JMP START EXIT,CLA ION JMP I 0 $$$$$$$$$$
Note: Lines longer than 256 characters were wrapped