* CardAdd.prg
* See if we are to link
let Link$=""
if CmB$="L"
  let Link$=1:Key$
endif
* See if we need to copy
if CmB$="C"
   at 0,0 say Fl$+"Copy"+Fl$
   let L1$=1:Line1$
   let L2$=1:Line2$
   let L3$=1:Line3$
   let L4$=1:Line4$
   let L5$=1:Line5$
   let L6$=1:Line6$
   let X1$=1:X1$
   let X2$=1:X2$
   let Flag$=1:Fl$
   append blank
   let 1:Line1$=L1$
   let 1:Line2$=L2$
   let 1:Line3$=L3$
   let 1:Line4$=L4$
   let 1:Line5$=L5$
   let 1:Line6$=L6$
   let 1:Fl$=Flag$
   let 1:X1$=X1$
   let 1:X2$=X2$
   release L1$,L2$,L3$,L4$,L5$,L6$,X1$,X2$,Flag$
else
   at 0,0 say Fl$+"New "+Fl$
   append blank
endif
* Now make the new card
let Today$=date()
let Yr$=substr(Today$,7,2)
let Mo$=substr(Today$,4,2)
let Da$=substr(Today$,1,2)
let Today$=time()
let Hr$=substr(Today$,1,2)
let Mi$=substr(Today$,4,2)
let 1:DT$=Yr$+Mo$+Da$+Hr$+Mi$
let Tmp=val(Yr$)+1
let Yr$="&Tmp"
let 1:Exp$=Yr$+Mo$+Da$+Hr$+Mi$
let Tmp=0
do while Tmp=0
  at 0,38 get 1:Key$
  let Tmp=len(trim(1:Key$))
enddo
at 0,38 say Bd$+1:Key$+Bd$
at 2,0  get 1:Line1$
at 2,0  say 1:Line1$
at 3,0  get 1:Line2$
at 3,0  say 1:Line2$
at 4,0  get 1:Line3$
at 4,0  say 1:Line3$
at 5,0  get 1:Line4$
at 5,0  say 1:Line4$
at 6,0  get 1:Line5$
at 6,0  say 1:Line5$
at 7,0  get 1:Line6$
at 7,0  say 1:Line6$
if len(Link$)
  let 1:X1$=Link$
else
  at 0,50 get 1:X1$
  if 1:X1$="        "
    at 0,50 say "--------"
  else
    at 0,50 say It$+1:X1$+It$
  endif
endif
at 0,62 get 1:X2$
if 1:X2$="        "
  at 0,62 say "--------"
else
  at 0,62 say It$+1:X2$+It$
endif
release Link$
return