1
! @(#)t2copytk.prg 19.1 (ES0-DMD) 02/25/03 14:09:04
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
! MIDAS Command : t2copytk.prg
8
! J.D.Ponz ESO - Garching 5 jan 1990
9
! 901108 KB fix WRITE/KEYW HISTORY stuff...
15
! COPY/TK table-name [column ...] row keyword
17
! ----------------------------------------------------------------------
19
DEFINE/PARAM P1 ? TABLE "Enter table:"
21
WRITE/KEYW HISTORY "{MID$CMND(1:4)}/{MID$CMND(11:14)} "
23
WRITE/KEYW MID$CMND/C/1/4 "TKCP"