******************************************
*          FONE BOOK - FBADDREC          *
*                                        *
*  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    *
*                                        *
******************************************
store ' 'to q
do while.not.q='Q'
append blank
erase
@ 1,0 say'First    ' get first
@ 2,0 say'Last     ' get last
@ 3,0 say'Address  ' get address
@ 4,0 say'City     ' get city
@ 5,0 say'State    ' get state
@ 6,0 say'Zip      ' get zip
@ 7,0 say'Phone    ' get phone
@ 9,0 say var1       get code1
@ 10,0 say var2      get code2
@ 11,0 say var3      get code3
@ 12,0 say var4      get code4
@ 13,0 say var5      get code5
read
@ 15,0 say'<Q>uit or Return to Continue'
?
accept to q
store !(q) to q
ENDDO
ERASE
?'***   INDEXING RECORDS   ***'
INDEX ON LAST TO FBINDEX
RELEASE q
RETURN

?
accept to q
store !(q) to q
ENDDO
ERASE
?'***   INDEXING RECORDS   ***'
INDEX ON LAST TO F