1
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
5
! MIDAS procedure : t2setrtbl.prg
7
! J.D.Ponz ESO - Garching 5 APR 89
11
! implements: SET/REFCOL table column
12
! default column now: Sequence
16
! ----------------------------------------------------------------------
18
define/param p1 ? TABLE "Enter table:"
19
define/param p2 : CHAR "Enter column:"
21
write/keyw history "{mid$cmnd(1:4)}/{mid$cmnd(11:14)} "