BEG704,	L7775
	DCA SS
	TAD I USRPT2
	DCA I USRPTR
	ISZ USRPTR
	ISZ USRPT2
	ISZ SS
	JMP .-5
	ISZ USRPT2	/SKIP OVER USER NO.
	ISZ USRCTR
	JMP BEG704
	JMS I (BEG003
		BEGM6A
	JMS I (BEG001
	TAD (-"Y
	SZA CLA
	JMP I (BEG002	/OH NO--ALL THIS JUNK FOR NOTHING!
	JMS I (BEG003
		BEGM6
	JMP I (BEG750

BEGPRNT,0
	DCA BEG705
	TAD (-12
	DCA BEG706
	DCA BEG707
	JMP .+3
	ISZ BEG707
	DCA BEG705
BEGPR1,	TAD BEG705
	TAD BEG706
	SMA
	JMP .-5
	CLA
	TAD (60
	TAD BEG707
	TLS
	TSF
	JMP .-1
	KCC
	ISZ BEG706
	SKP
	JMP I BEGPRNT	/WAS SECOND TIME THROUGH
	L7777
	DCA BEG706
	DCA BEG707
	JMP BEGPR1
BEG706,	0
BEG707,	0
BEG705,	0
BEG604=SS
BEG605=USRPTR
PAGE

BEG750,	CDF 20
	TAD BEGCOR
	DCA I (BGCORS
	CDF
	TAD I (MLOOKE
	TAD BEGUSR
	DCA I (MLOOKE	/CORRECT FOR NO. OF USERS
	TAD I (MLOOKE
	CIA
	TAD BEGUSR
	DCA I (MUSER	/SETUP FOR NO. OF USERS
	CDF 10
	TAD (BEGIOT-1
	DCA BEG604
	TAD (INTRPL
	DCA BEG605
	L7777
	TAD BEGUSR
	DCA BEG60X
	TAD BEGUSR
	DCA USRCTR
BEG75Q,	CDF 20
	TAD I BEG604
	ISZ BEG604
	CDF
	ISZ BEG60X
	JMP .+4
	CLA CMA
	DCA BEG60X
	TAD (CLA-6006
	TAD (6006
	DCA I BEG605
	ISZ BEG605
	ISZ USRCTR
	JMP BEG75Q
	CDF
	TAD BEGUSR
	DCA SS
	ISZ SS
	SKP
	JMP .+3
	CLL CML RAR
	JMP .-4
	IAC
	DCA I (AUSER
	CDF 20
BEG75X,	TAD BEGCOR
	CLL RTL
	RAL
	TAD (CDF
	DCA BEG756
	TAD BEG756
	TAD (-6221
	SNA CLA
	JMP BEG760
 	DCA BEG751
	DCA BEG752
BEG756,	CDF 30
	DCA I BEG752
	ISZ BEG752
	JMP BEG755
	L7777
	TAD BEGCOR
	DCA BEGCOR
	JMP BEG75X