erase
?'******************************************'
?'*           FONE BOOK - FBINIT           *'
?'*                                        *'
?'*  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
erase
?'In this section you will create the structure.  You will be shown what to'
?'enter when prompted. It is important to answer the questions EXACTLY as'
?'instructed.'
?
WAIT TO Q
release q
erase
?'ENTER RECORD STRUCTURE AS FOLLOWS:'
?' FIELD   NAME,TYPE,WIDTH,DECIMAL PLACES'
?' 001     FIRST,C,12'
?' 002     LAST,C,12'
?' 003     ADDRESS,C,25'
?' 004     CITY,C,18'
?' 005     STATE,C,2'
?' 006     ZIP,C,9'
?' 007     PHONE,C,25'
?' 008     CODE1,C,1'
?' 009     CODE2,C,1'
?' 010     CODE3,C,1'
?' 011     CODE4,C,1'
?' 012     CODE5,C,1'
?' 013 (Now press RETURN)'
?'INPUT DATA NOW?N'
?
create fbdata
use fbdata
index on last to fbindex
return
  CODE5,C,1'
?' 013 (Now press RETURN)'
?'INPUT DATA NOW?N'
?
create fbdata
use fbdata
