← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/t2readtbl.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/proc/t2readtbl.prg
 
1
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!
 
3
! .IDENTIFICATION
 
4
!  MIDAS Command : t2readtbl.prg
 
5
!  TABLE Subsystem
 
6
!  J.D.Ponz  890405              ESO - Garching
 
7
!  KB  910104, 920207, 080728
 
8
!  MP 920728
 
9
! .PURPOSE
 
10
!    implements
 
11
!  READ/TABLE    table-name   [optional parameters]
 
12
!
 
13
! ----------------------------------------------------------------------
 
14
!
 
15
DEFINE/PARAM P1 ? TABLE "Enter table:"
 
16
!
 
17
WRITE/KEYW HISTORY "{MID$CMND(1:4)}/{MID$CMND(11:14)} "
 
18
!
 
19
WRITE/KEYW ACTION/C/1/2  {MID$CMND(1:2)}
 
20
IF MID$CMND(1:1) .EQ. "P" @ print.prg assign
 
21
RUN MID_EXE:tdatatbl
 
22
IF MID$CMND(1:1) .EQ. "P" @ print.prg out