* SCSUAM.PRG V1.01 BY DEREK FOUNTAIN
* Amend of suppliers details - Called from SCSUMAIN.PRG

AT 7,0 SAY "                                                                              "

* The initial data goes into mvars
LET msupp$=1:SUPP$
LET mname$=1:NAME$
LET mcontact$=1:CONTACT$
LET mphone$=1:PHONE$
LET madd1$=1:ADD1$
LET madd2$=1:ADD2$
LET madd3$=1:ADD3$
LET madd4$=1:ADD4$

* Loop while data is not confirmed
LET confirm$="N"
DO WHILE UPPER(confirm$)="N"

  AT 7,25 SAY "Amend each field, one at a time"
  * Get each field
  AT 2,12 GET mname$
  AT 3,12 GET msupp$
  AT 4,12 GET mcontact$
  AT 5,12 GET mphone$
  AT 2,48 GET madd1$
  AT 3,48 GET madd2$
  AT 4,48 GET madd3$
  AT 5,48 GET madd4$

  * Get confirmation of data
  AT 7,22 SAY "Please confirm this data (Y/N) >>>"
  LET confirm$=" "
  DO WHILE confirm$=" "
    AT 7,57 GET confirm$       
    IF WHERE(confirm$,"YNyn")=0
      LET confirm$=" "
    ENDIF
  ENDDO
  AT 7,21 SAY "                                         "
ENDDO              * Loop back if not confirmed

* Got confirmed data in mvars, put them over the old data
LET 1:SUPP$=msupp$
LET 1:NAME$=mname$
LET 1:CONTACT$=mcontact$ 
LET 1:PHONE$=mphone$
LET 1:ADD1$=madd1$
LET 1:ADD2$=madd2$
LET 1:ADD3$=madd3$
LET 1:ADD4$=madd4$
RELEASE msupp$,mname$,mcontact$,mphone$,madd1$,madd2$,madd3$,madd4$,confirm$
RETURN