← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to applic/proc/distance.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:
applic/proc/distance.prg
 
1
! @(#)distance.prg      19.1 (ES0-DMD) 02/25/03 13:20:09
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure DISTANCE to implement GET/DISTANCE
 
5
! K. Banse      880927
 
6
!
 
7
! use via GET/DISTANCE descr/D app_flag  [mark_flag] [max_no_inputs]
 
8
! or      GET/DISTANCE table   labl_flag [mark_flag] [max_no_inputs]
 
9
!
 
10
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
11
!
 
12
DEFINE/PARAM P1 + C "Enter output option: "
 
13
DEFINE/PARAM P3 YY
 
14
DEFINE/PARAM P4 99999 N
 
15
!
 
16
WRITE/KEYW CURSOR 'P4'                          !init CURSOR(1) to max...
 
17
RUN MID_EXE:DISTA