2  7601
00563  5777
00564  2000
00565  0020
00566  0017
00567  7767
00570  0230
00571  0040
00572  7763
00573  0273
00574  7766
00575  7775
00576  0177
00577  0337
       0600  *600
00600  7300  NPAGE,CLA CLL
00601  6131    KSF 100
00602  5201    JMP .-1
00603  6136    KRB 100
00604  0377    AND (177)
00605  3023    DCA PAGES
00606  1023    TAD PAGES
00607  1376    TAD (-60)
00610  7440    SZA
00611  5216    JMP .+5
00612  7200    CLA
00613  1375    TAD (BUFF1)
00614  3022    DCA BUFFER
00615  5774'   JMP START
00616  7200    CLA
00617  1373    TAD (BUFF2)
00620  3022    DCA BUFFER
00621  5774'   JMP START
       0700  *700
00700  7200  BLANK,CLA
00701  1030    TAD POINTR
00702  3020    DCA TEMP
00703  2030    ISZ POINTR||HQ@
@p@@
  TAD (1000)
  DCA BUFFER
  TLS
  TAD FLAG
  SZA CLA
  JMP START
  TAD (-5200)
  DCA CNT
  TAD (BUFF1-1)
  DCA 12
  ISZ FLAG
CLEAR,CLA/CLEAR THE BUFFER
  TAD (40)
  DCA I 12
  @Yl
^,~"(}{|"({{
Lz0@#
U`=FS+0:@*5`T=aS*1;@#5U`=FS+1:@@5(`T=aS*1;@#K2U`=FS+1:@S5
`d}a0*@^5`d=aS0*7,<)MOjV`=FS18.7,<iMOv(V`=FS01+s0K@#2V`=F.u-p@b[~bZ}bZZt[J@|bh{Bi|BZYl^,zZ!Z@yb!ZbHzxZ& Zw2 1zdZbZvb!Zb`!{vZ&!Z3u /!>:3@6btY7btYs8rtY9btYr:rtY;btYqj|}0`=EqL@h5(`4}x\@co
[`=E11Mvu8676f?s5T_<=U6V7y_:&;&&~& }c|}	
L{	l
zI

<.	,
zI6@
@b*	lI@BD
b	
Lz6`HL*
EFVTp
zI

zI
zI
zI	
Lz	zKX
m`=EuMO^m`}EsMOem`=E4?@k6(`T}4]Mqv
`d=x]Mwv`d}s\M~v`d@~f6
n@b[~bZ}bZZt[J@|bh{Bi|BZYl^,zZ!Z@yb!ZbHzxZ& Zw2 1zdZbZvb!Zb`!{vZ&!Z3u /!>:3@6btY7btYs8rtY9btYr:rtY;btYqj|p02C*5j*N2:j&2j*1zk(&i?O@2`$BwA@w?s5To<=f6f7yo>&?&&~& }c|}	
L{	l
zI

,.	,
zI@0
)&	L@ 48*
zI

zI
zI	
Lz	zKp
EFVT1j*1zjh#iOj7j*h)=+hp)J3j*(imC4*jN#(#iM_2`2B}|h)*#hi=*2j*(imX1*j(&)?o@7@~f@
~ .-1
  TLS
  CLA
  TAD (212)
  TSF
  JMP .-1
  TLS
  JMP LINEFD
*400
CHAR, CLA CLL/GET NEW CHARACTER
  TAD (337)
  DCA I POINTR
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA i 9"`8b
++tr/ 
p@nr	@Bb("rjb5a1v 8.` `?E
!p
$P
@@^_4!R*2#\p)W(q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!rb&l /~"}b
d|b
t@.h,iB{k@Yl^,zy"(x{w  0zY&J^v@Fnb{kY0J^v@Fnub&{>|'jBtb[jsbnr#q(/po2YRJXJ!RJ&DYJ$G.n!,]&,mb!bJ&DJ 
bDf.H
p @`@2
v
 
R@bY|^,~}"(Mz|"({{z" zy'x2w /3y"rv(&!.v*jub&@tb/.s&"r /Cy"rq&p" zo&"tt" zs&y"j|	
Ln3: /sKdB21 fb(pz-f&#
,pb~ug"cH/FnR
o
{@w s;pv}_@Yl
^,~" z}b|k{b|kPnd&	B a'
K= ^@.]/+\"P`b t 2[[mE`C XQS%mLA1bdz (Ozy2(Cz&x2!b(/|6w]:{(/`U"P3TQS2(QzRT)`!" r(s{g"VnbQFb`[0M`?Pp6	blp"FMBc(z(/4n('L"HzKs
K{k<zsz
ZzRzRzeRzzqzD9zvwz}<znJ*I6)H"6K ?	, Gg!HJF2E&nD6KC&X	lq
|n
B"(jzQ$6 bc6 *AJQ@*O$sQ"66)nK8rc(gz6{AD (5777)
  DCA POINTR
  JMP CHAR
END,TAD (40)/FETCH AND STORE BUFFERS
  DCA I POINTR
  6152
  CDF 10
  CIF 10
  JMP I (200)
*600
NPAGE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AN**********CRUDS7 ************VERSION 4/12/74*****PAGE*2******** MARITALS STAT.:___________________                             R
  DCA TEMP
  ISZ POINTR
  TAD POINTR
  AND (77)
  SNA CLA
  JMP BLKFIX
  TAD I POINTR
  TAD (-40)
  SNA CLA
  JMP BLANK+3
  TAD TEMP
  DCA POINTR
  JMP CHRKP+6
BLKFIX,TAD TEMP `                                                                                                                              
  AND (177)
  DCA NEXTC
  TAD NEXTC
  TAD (-123)
  SNA CLA
  JMP I (2600)
  TAD NEXTC
  TAD (-122)
  SNA CLA
  JMP I (3200)
  CDF 00
  CIF 00
  JMP I (200)
NEXTC,0
$$$$$$$$$$$TR
  TAD (-777)
  SZA CLA
  JMP CHAR
  TAD (BUFF1)
  DCA POINTR
  JMP CHAR
  TAD CHEK/DISPLAY CHARACTER
  DCA I POINTR
  ISZ POINTR
  TAD POINTR
  TAD (-6000)
  SZA
  JMP CHAR
  TAD (5777)
  DCA POINTR
  JMP CHAR
END,TAD (40)/FETCH AND STORE BUFFERS
  DCA I POINTR
  6152
  CDF 10
  CIF 10
  JMP I (200)
*600
NPAGE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA PAGES
  TAD PAGES
  TAD (-60)
  SZA
  JMP .+5
  CLA
  TAD (BUFF1)
  DCA BUFFER
  JMP START
  CLA
  TAD (BUFF2)
  DCA BUFFER
  JMP START
*700
BLANK,CLA
  TAD POINTR
  DCA TEMP
  ISZ POINTR
  TAD POINTR
  AND (77)
  SNA CLA
  JMP BLKFIX
  TAD I POINTR
  TAD (-40)
  SNA CLA
  JMP BLANK+3
  TAD TEMP
  DCA POINTR
  JMP CHRKP+6
BLKFIX,TAD TEMP

Note: Lines longer than 256 characters were wrapped