* DISP.CMD - DISPLAY UP TO 14 RECORDS TO SCREEN - USER CHOOSES OR PAGES
   STORE "     " TO RECORD
   DO WHILE RECORD = "     "
      ERASE
      @ 1,10 SAY TMARK + "  " + CNAME
      SET INTE OFF
      @ 3,10 SAY MTITLE
      SET INTE ON
      @ 5,0 SAY "REC #     " + MDESC    
      DISPLAY STR(#,5),"   ",&FLIST NEXT 14 WHILE &MATCH OFF
      SKIP
      STORE STR(#,5) TO OLDPLACE
      STORE (&MATCH .AND. .NOT. EOF) TO MORE
      IF MORE
         @ 20,10 SAY "There are additional records, enter RETURN to view another page."
      ENDIF
      @ 21,10 SAY "Choose one of the above by entering lefthand record number "
      STORE T TO REPEAT
      DO WHILE REPEAT
         STORE "     " TO RECORD
         IF STYPE = "A"
            @ 22,10 SAY "Enter record number, (A)dd or (Q)uit followed by RETURN " GET RECORD PICTURE "X9999"
            ELSE
            @ 22,10 SAY "Enter record number or (Q)uit followed by RETURN " GET RECORD PICTURE "X9999"
         ENDIF
         READ
         IF !(RECORD) = "Q" 
            RETURN
         ENDIF
         IF STYPE = "A" .AND. !(RECORD) = "A"
            RETURN
         ENDIF
         @ 23,10 SAY "                                                 "
         IF RECORD = "     "
            IF MORE
               GOTO &OLDPLACE
               STORE F TO REPEAT
               ELSE
               @ 23,10 SAY "Sorry, but there are no more matching records."
            ENDIF
            LOOP
         ENDIF
         IF VAL(RECORD) < 1 .OR. VAL(RECORD) > LAST
            @ 23,10 SAY RECORD + " is not a valid record number."
            ELSE
            GOTO &RECORD
            IF # = 0
               @ 23,10 SAY "Record "+RECORD+" was not found!"
               ELSE
               STORE F TO REPEAT
            ENDIF
         ENDIF
      ENDDO
   ENDDO
RETURN