CLS
AT 0,2 SAY CHR(1)+"TVer 1.00"+CHR(1)+"T"
AT 0,21 SAY CHR(1)+"BzBASE FRONT END SYSTEM - APPEND RECORD"+CHR(1)+"B"
AT 0,70 SAY CHR(1)+"T"+DATE()+CHR(1)+"T"
AT 1,0 SAY CHR(1)+"3Np-"
IF currfile$="** NONE **"
AT 3,23 SAY "No database is open - Use option 1"
AT 5,28 SAY "Press any key to continue"
WAIT
RETURN
ENDIF
AT 3,14 SAY "This routine append records directly to the database"
AT 5,16 SAY "Please confirm you wish to continue (Y/N) >>>"
LET confirm$="y"
DO WHILE WHERE(confirm$,"YN")=0
AT 5,62 GET confirm$
IF WHERE(confirm$,"YNyn")<>0
LET confirm$=UPPER(confirm$)
ENDIF
ENDDO
IF confirm$="N"
RELEASE confirm$
RETURN
ENDIF
AT 2,0 SAY CHR(1)+"7#1"+CHR(33)+CHR(35)+CHR(32+80)+CHR(32+5)+CHR(129)
AT 2,0 SAY CHR(1)+"2C1"+CHR(1)+"C"+CHR(1)+"S"
LET doing=1
DO WHILE doing=1
SELECT 1
APPEND BLANK
AT 0,0 SAY CHR(1)+"2H4"
AT 2,32 SAY CHR(1)+"BRecord number - "
AT 2,48 SAY RECNO()
AT 0,0 SAY CHR(1)+"B"+CHR(1)+"2H1"
SELECT 2
GO TOP
DO WHILE EOF()=0
SELECT 2
AT 7,0 SAY 2:FIELD$
LET f$="1:"+2:FIELD$
AT 7,10 GET &f$
SKIP
?
ENDDO
?
AT 4,15 SAY "Do you want to append another record? (Y/N) >>>"
LET choice$=" "
DO WHILE choice$=" "
AT 4,63 GET choice$
LET choice$=UPPER(choice$)
IF WHERE(choice$,"YN")=0
LET choice$=" "
ENDIF
ENDDO
IF choice$="N"
SELECT 1
RELEASE doing,choice$,f$,confirm$
RETURN
ENDIF
AT 0,0 SAY CHR(1)+"2C1"+CHR(1)+"S"+CHR(1)+"C"
ENDDO