* CardPrint.prg
let Key$=""
let ISv$=1:Key$
at 0,0 say Fl$+"Printing"
let fMore=1
if CmB$="X"
  do while fMore
    # "________________________________________________________________________________"
    # 1:Line1$
    # 1:Line2$
    # 1:Line3$
    # 1:Line4$
    # 1:Line5$
    # 1:Line6$
* The next IF is an attempt to avoid infinite loops...
    if where(1:X2$,"Index|Help |")>0
      let fMore=0
    endif
    if 1:X2$="     "
      let fMore = 0
    else
      let Key$=trim(1:X2$)
      find Key$
      at 0,38 say It$+1:Key$+It$
    endif
  enddo
else
  # "_______________________________________________________________________________"
  # 1:Line1$
  # 1:Line2$
  # 1:Line3$
  # 1:Line4$
  # 1:Line5$
  # 1:Line6$
endif
# "________________________________________________________________________________"
find ISv$
at 0,38 say Bd$+1:Key$+Bd$
release fMore,ISv$,Key$
return