home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTXD.PRG < prev    next >
Encoding:
Text File  |  1990-04-26  |  229 b   |  19 lines
  1. ** BEGIN OF ZFTXD.PRG **
  2. ZNO=''
  3. BT=''
  4. XZ=''
  5. YZ=''
  6. DO SELEZ
  7. IF LEN(ZNO)=0
  8. RETU
  9. ENDIF
  10. USE ZFTK
  11. SET FILT TO Z_NO=ZNO
  12. GO TOP
  13. SET SAFE OFF
  14. SET STAT OFF
  15. SET SCOR OFF
  16. DO ZFTX WITH BT,XZ,YZ
  17. RETU
  18. ** END OF ZFTXD.PRG **
  19.