SAVE SCREEN TO SCREEN9
SELECT 3
GOTO TOP
IF M->ACCT = 'C' .OR. M->ACCT = 'I'
 IF ALIAS() <> 'ACCTCODE'
  SELECT 9
  USE
  STORE 'ACCTCODE' TO DNET
  DO NETERROR
 ENDIF
ENDIF
IF M->ACCT = 'R'
 IF ALIAS() <> 'RENTCODE'
  SELECT 9
  USE
  STORE 'RENTCODE' TO DNET
  DO NETERROR
 ENDIF
 DO LCODE1
 SELECT 9
 USE
 RETURN
ENDIF
IF M->ACCT = 'P'
 IF ALIAS() <> 'RENTCOCP'
  SELECT 9
  USE
  STORE 'RENTCOCP' TO DNET
  DO NETERROR
 ENDIF
 DO LCODE1
 SELECT 9
 USE
 RETURN
ENDIF
STORE 0 TO COL
STORE 1 TO ROW
CLEAR
DO WHILE .NOT. EOF()
IF COL <> 75
 @ ROW,COL SAY CODE + ' ' + CAT
ENDIF
STORE ROW+1 TO ROW
IF ROW = 23 
 STORE COL+25 TO COL
 STORE 1 TO ROW
ENDIF
SKIP
ENDDO
@ 23,78 SAY ' '
SELECT 9
USE
WAIT 'PRESS ANY KEY TO CONTINUE ' 
SELECT 1
RESTORE SCREEN FROM SCREEN9