STORE SPACE(10) TO HG
DO WHILE .T.
CLEAR
STORE 'ADD/EDIT TENATE' TO TOP1
DO TOP
STORE DATE() TO RRR
STORE DTOC(RRR) TO MDAT
SET DELIMITER TO '[]'
SET DECIMAL TO 2
SET FIXED ON
SET TALK OFF
SET INTENSITY OFF
*SET CONFIRM ON
SET DELIMITER ON
@ 21,0 SAY 'Enter  L  to LIST CODES'
DO WHILE .T.
@ 4,0 SAY 'ENTER THE HOUSE CODE - ' GET HG PICTURE '!!!!!!!!!!'
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF SUBSTR(HG,1,3) = 'L  '
 @ 5,0 CLEAR
 DO HLIST
 LOOP
ENDIF
EXIT
ENDDO
IF SUBSTR(HG,1,2) = '  '
 RETURN
ENDIF
@ 5,0 CLEAR
SELECT 1
LOCATE FOR TRIM(HCODE) = TRIM(HG) .AND. ACTIVE = 'Y'
IF EOF()
 APPEND BLANK
ENDIF
IF DLEASE = 0
 DO LOCKWAIT
 REPLACE DLEASE WITH 365
 UNLOCK
ENDIF
DO LOCKWAIT
IF NAME = 'VACANT'
 REPLACE NAME WITH SPACE(10)
 @ 19,0 SAY 'THIS HOUSE IS VACANT '
ENDIF
IF PDUE = 0
 REPLACE PDUE WITH 5
ENDIF
STORE NAME TO MNAME
DO WHILE .T.
@ 6,0 SAY 'NAME .......... - ' GET NAME PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 7,0 SAY 'PHONE ......... - ' GET PHONE PICTURE '999-999-9999'
@ 8,0 SAY 'DATE IN ....... - ' GET DATEIN PICTURE '99/99/99'
@ 9,0 SAY 'OLD RENT ...... - ' GET OLDRENT
@ 10,0 SAY 'NEW RENT ...... - ' GET NEWRENT
@ 10,40 SAY '<< NEW RENT INCREASE/DECREASE'
@ 11,0 SAY 'EFFECTIVE DATE  - ' GET EFFDATE PICTURE '99/99/99'
@ 11,40 SAY '<< DATE NEW RENT TAKES EFFECT'
@ 12,0 SAY 'DEPOSIT ....... - ' GET DEPOSIT
@ 13,0 say 'WATER BILL (T-tenate pays, W-we pay (includes $125 extra in rent)- ' GET RUTIL PICTURE '!'
*I increased water amount from $100 to $125 on 5/25/2021 
@ 14,0 say 'Make sure you add $125 to the rent if we pay the water bill'
@ 15,0 SAY 'PET DEPOSIT ... - ' GET PETDEPOSIT
SET COLOR TO 2*
@ 15,50 SAY '<<< NEW FIELD'
SET COLOR TO 2
@ 16,0 SAY 'WORK NAME ..... - ' GET WORKNAME PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 17,0 SAY 'WORK PHONE .... - ' GET WORKPHONE 
@ 18,0 SAY 'RELATIVE NAME . - ' GET PARENTNAME PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 19,0 SAY 'RELATIVE PHONE  - ' GET PARENTPHONE 
@ 20,0 SAY 'PAST DUE DAY .. - ' GET PDUE PICTURE '99'
@ 20,30 SAY '<< # DAYS AFTER 1ST TO START CALCULATING LATE'
@ 21,0 SAY 'DAYS IN LEASE . - ' GET DLEASE
@ 22,0 SAY 'COMMENTS ...... - ' GET COMMENTS PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 23,0 SAY 'MOVE OUT COMMENTS - ' GET MOVEOUTCOM PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
READ
IF RUTIL <> 'T' .AND. RUTIL <> 'W'
 @ 20,0 CLEAR
 @ 22,0 SAY 'INVALID ENTRY IN WATER BILL INCLUDED IN RENT !!!'
 @ 23,0 SAY ' '
 WAIT
 @ 20,0 clear
 LOOP
ELSE
 EXIT
ENDIF
ENDDO

IF NAME <> MNAME
 @ 23,0 CLEAR
 @ 24,0 SAY 'CHANGING TENANT NAME IN TRANSACTION FILE  ...  PLEASE WAIT '
 STORE NAME TO XNAME
 SELECT 2
 DO FILELOCK
 REPLACE ALL NAME WITH XNAME FOR NAME = MNAME
 UNLOCK
 SELECT 1
ENDIF
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF SUBSTR(NAME,1,5) = '     ' 
 REPLACE NAME WITH 'VACANT'
 LOOP
ENDIF
IF SUBSTR(DTOC(EFFDATE),4,2) <> '01'
 ? CHR(7)
 ? ' '
 ? 'EFFECTIVE DATE MUST BE THE BEGINNING OF THE MONTH EX: 01/01/90 or 05/01/93'
 ?
 WAIT
 LOOP
ENDIF
REPLACE ACTIVE WITH 'Y'
REPLACE TYPE WITH 'T'
REPLACE HCODE WITH HG
REPLACE TEST WITH '~'
IF DTOC(EFFDATE) = '  /  /  '
 REPLACE NEWRENT WITH OLDRENT
 REPLACE EFFDATE WITH DATEIN
ENDIF
UNLOCK
ENDDO