CLS
SELECT 1
AT 0,2 SAY CHR(1)+"TVer 1.00"+CHR(1)+"T"
AT 0,18 SAY CHR(1)+"BzBASE FRONT END SYSTEM - AMEND/DELETE 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 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"
DO WHILE 1=1
AT 0,0 SAY CHR(1)+"2H4"
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
LET doing=1
DO WHILE doing
AT 3,22 SAY "Enter key for record to amend/delete"
LET findme$="               "
AT 7,25 SAY "Leave the box blank to abandon"
AT 5,33 GET findme$
IF findme$="               "
RELEASE findme$,doing,f$,choice$,action$,printme$,confirm$
RETURN
ENDIF
AT 7,25 SAY "Locating record - Please wait"
LET findme$=TRIM(findme$)
FIND findme$
IF EOF()=0
LET doing=0
ELSE
AT 7,0 SAY CHR(1)+"2C"+CHR(254)
AT 7,28 SAY "Not found - Press any key"
WAIT
AT 7,0 SAY CHR(1)+"2C"+CHR(254)
ENDIF
ENDDO
AT 3,0 SAY CHR(1)+"2C"+CHR(254)
SELECT 1
IF DELETED()
AT 2,0 SAY CHR(1)+"BDELETED"+CHR(1)+"B"
ENDIF
AT 2,32 SAY CHR(1)+"BRecord number - "
AT 2,48 SAY RECNO()
LET printme$=TRIM(currkey$+":"+1:&currkey$)
AT 4,(80-LEN(printme$))/2 SAY printme$
IF DELETED()=1
AT 6,18 SAY CHR(1)+"BAmend or Undelete this record? (A/U/X) >>>"
ELSE
AT 6,19 SAY CHR(1)+"BAmend or Delete this record? (A/D/X) >>>"
ENDIF
LET action$=" "
DO WHILE action$=" "
IF DELETED()=1
AT 6,61 GET action$
ELSE
AT 6,60 GET action$
ENDIF
IF WHERE(action$,"ADUXadux")=0
LET action$=" "
ENDIF
ENDDO
IF UPPER(action$)="X"
RELEASE findme$,doing,f$,choice$,action$,printme$,confirm$
RETURN
ENDIF
IF UPPER(action$)="A"
AT 3,0 SAY CHR(1)+"2C"+CHR(254)
AT 0,0 SAY 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 amend another record? (Y/N) >>>"
LET choice$=" "
DO WHILE choice$=" "
AT 4,62 GET choice$
LET choice$=UPPER(choice$)
IF WHERE(choice$,"YN")=0
LET choice$=" "
ENDIF
ENDDO
IF choice$="N"
SELECT 1
AT 0,0 SAY CHR(1)+"2H4"
RELEASE findme$,doing,f$,choice$,action$,printme$,confirm$
RETURN
ENDIF
SELECT 1
AT 0,0 SAY CHR(1)+"2C1"+CHR(1)+"S"+CHR(1)+"C"
ELSE
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 2,63 SAY "|"
AT 3,63 SAY "|"
AT 4,63 SAY "|"
AT 5,63 SAY "|"
AT 6,63 SAY "|"
AT 7,63 SAY "|"
SELECT 2
GO TOP
LET number=1
LET loopy=1
DO WHILE loopy
LET printme$="1:&2:FIELD$"
LET printme$=TRIM(printme$)
AT number+1,0 SAY 2:FIELD$+":"+SUBSTR(&printme$,1,55)
SKIP
IF EOF()=1
LET loopy=0
ENDIF
LET number=number+1
IF number=7
LET loopy=0
ENDIF
ENDDO
RELEASE number,loopy
SELECT 1
AT 3,65 SAY CHR(1)+"BPlease confirm"
IF DELETED()=1
AT 4,67 SAY "recall of"
ELSE
AT 4,66 SAY "deletion of"
ENDIF
AT 5,66 SAY "this record"
AT 7,66 SAY "(Y/N) >>>"+CHR(1)+"B"
LET confirm$=" "
DO WHILE confirm$=" "
AT 7,76 GET confirm$
IF WHERE(confirm$,"YNyn")=0
LET confirm$=" "
ENDIF
ENDDO
IF UPPER(confirm$)="Y"
IF DELETED()=1
RECALL RECORD
ELSE
DELETE RECORD
LET dflag=1
ENDIF
ENDIF
ENDIF
ENDDO