* CardSetExp.prg  -  For setting the expiry date field
if 1:Usage < 0
  at 7,0 say Fl$+"Card protected - cannot be altered!"+Fl$
  return
endif
let Dy$=substr(1:Exp$,5,2)
let Mo$=substr(1:Exp$,3,2)
let Yr$=substr(1:Exp$,1,2)
at 0,25 get Dy$
at 0,25 say Dy$
at 0,28 get Mo$
at 0,28 say Mo$
at 0,31 get Yr$
at 0,31 say Yr$
* Some validation would be a good idea one day...
let 1:Exp$=Yr$+Mo$+Dy$+"0000"
return