STORE 0 TO COL
STORE 3 TO ROW
CLEAR
STORE CODE TO ZCODE
DO WHILE .NOT. EOF()
IF COL <> 75
 @ ROW,COL SAY CODE + ' ' + CAT
ENDIF
STORE ROW+1 TO ROW
SKIP
IF CODE = ZCODE
 EXIT
ENDIF
ENDDO

GOTO TOP
STORE 30 TO COL
STORE 1 TO ROW
@ ROW,COL SAY '                        HOUSE CODES'
STORE ROW+1 TO ROW
@ ROW,COL SAY '------------------------------------------------------'
STORE ROW+1 TO ROW
STORE ' ' TO ZCODE
DO WHILE .NOT. EOF()
IF HCODE = ZCODE
 SKIP
 LOOP
ENDIF
IF COL <> 75
 @ ROW,COL SAY HCODE + COMMENTS
 STORE HCODE TO ZCODE
ENDIF
STORE ROW+1 TO ROW
IF ROW = 23 
 STORE COL+20 TO COL
 STORE 3 TO ROW
ENDIF
SKIP
ENDDO

@ 23,78 SAY ' '
SELECT 9
USE
WAIT 'Code examples:  10 310S     press any key to continue ' 
SELECT 1
RESTORE SCREEN FROM SCREEN9