**********
* INVOER *
**********
ERASE
@ 2,20 SAY "_______________________________________"
@ 3,20 SAY "|                                     |"
@ 4,20 SAY "| DIT PROGRAMMA BIEDT DE MOGELIJKHEID |"
@ 5,20 SAY "| TOT TOEVOEGEN VAN NIEUWE NAMEN EN   |"
@ 6,20 SAY "| OVEREENKOMSTIGE CODENRS. AAN HET    |"
@ 7,20 SAY "| --------> FORMAT/BESTAND <--------- |"
@ 8,20 SAY "|_____________________________________|"

@ 12,20 SAY "TYPE EEN S OM DE PROCEDURE TE BEEINDIGEN."
@ 13,20 SAY "DRUK OP DE RETURN TOETS OM TE STARTEN."
WAIT TO R
USE PACNAMES
DO WHILE R<>"S" .AND R<>"s"
   APPEND BLANK
   ERASE
   @ 10,0 SAY "FORMAT CODE NUMMER:" GET FMT:CODE
   @ 11,0 SAY "FORMAT NAAM       :" GET FMT:NAAM
   @ 12,0 SAY "AFKORTING         :" GET FMT:AFKG
   READ
   CLEAR GETS
@ 21,40 SAY "TYPE S TER BEEINDIGING VAN DE PROCEDURE"
@ 22,40 SAY "DRUK OP DE RETURN TOETS VOOR DE VOLGENDE INVOER"
WAIT TO R
ENDDO
USE
ERASE
@ 12,21 SAY "ENTER B OM TERUG TE KEREN NAAR HET MENU"
WAIT TO MENU
DO FMTNAMES
RETURN

                 
     
                             
                
             
