erase
?'******************************************'
?'*          FONE BOOK - FBCONFIG          *'
?'*                                        *'
?'*  This program was  written and placed  *'
?'*   in the public domain by Don Mankin   *'
?'*  MICRO-BASE  (916-971-1395)  300/1200  *'
?'*   Copyright (c) 1983 Donald L Mankin   *'
?'*    Please do not remove this notice    *'
?'*                                        *'
?'******************************************'
?
wait to q
release q
do while t
erase
?'This section allows you to name 5 fields'
?'to be used for searches or printing labels.'
?'YOU MUST ENTER ALL 5 FIELDS'
?
?'Examples:'
?
?'1:Friend'
?'2:Relative'
?'3:Computer Addict'
?'4:Foostball Addict'
?'5:Christmas Card List'
?
accept'1'to var1
accept'2'to var2
accept'3'to var3
accept'4'to var4
accept'5'to var5
erase
@ 1,0 say'1'get var1
@ 2,0 say'2'get var2
@ 3,0 say'3'get var3
@ 4,0 say'4'get var4
@ 5,0 say'5'get var5
?
accept'Is this correct?'to q
if !(q)='Y'
     erase
     ?'Upon entering the main menu type <A>dd Records to begin.'
     ?
     wait to q
     release q
     save to fbvar
     release all
     return
endif
enddo
d Records to begin.'
     ?
     wait to q
     release q
     save to 