---------------------------------------------------------------- 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 --| 	ss
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?IrqD
a./$ "6ruj(u(utu0)LJd	LC
NF ubqObGfW9b
*$
@|"axD"H>z`/>"(>zD B*bB:
GMT&Tt"	G
tFBF>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6N6
 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&ut
ub0 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!+HzCb4
O,0
OU /a ugbT%rb$k_Y+!,j5&Uu!.
vbrH/a-q/rK&D<k:	t /OrLNrOOrLdO&G
l=S8Qz0
uISi3DS
[Y'Ubo7bozrbzbXzrW6rMHd[.'SnJtKU^<J
n
`
Hnw0l	z
<(axr(/'"ok=
,V^ 	l
|?	{DDb("H?\S2j
t

n

n{&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	LCsscw
lq!.rH/]s" nF/issb /Cq$hx	wB*s"r /Lx$ ufd7
uVJFH/U .& Ffhx7x"t(/br" 
~qoKdhkjyc(Yz!rfh$0
lr5
vw&~&}&
C	GJf%*K	HC
I@J /1
,K

lLDP1	,M(?1N#cO /1,P	<g3J
QBRb		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