PAGE	72,128
 	TITLE	CONVERT - Convert User File Records
 	PAGE
	.XLIST
 	INCLUDE	CCBBS.MAC
 	INCLUDE	CCBBS.DEF
	.LIST
;-----------------------------------------------
;CODE SEGMENT
;-----------------------------------------------
CSEG	SEGMENT PARA PUBLIC 'CODE'
	EXTRN	CRCCLC:NEAR,MOVSTL:NEAR,ILINEB:NEAR
	PUBLIC	USRCNV,MSFCNV
 	ASSUME	CS:CSEG
CONVERT	PROC	NEAR
;----------------------------------------------------------
;CONVERT USER RECORD TO NEW FORMAT
;----------------------------------------------------------
USRCNV: CMP	WORD PTR [DI+UEVERS],0	;BASIC FORMAT?
 	JZ	USRC20	 	 	;YES
	MOV	WORD PTR [DI+UEVERS],0	;RESET VERSION
USRC20:	CLC
 	RET
;---------------------------------------------------------
;CONVERT MESSAGE HEADER TO NEW FORMAT
;---------------------------------------------------------
MSFCNV:	MOV	DI,[BP-4]		;BUFFER ADDRESS
MSFC20:	RET
CONVERT	ENDP
CSEG	ENDS
 	END