← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/lyman/proc/fitly.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:
contrib/lyman/proc/fitly.prg
 
1
! 
 
2
!execute as
 
3
!   FIT/LYMAN spec outtab [history] [session] [grap(Y/N)]
 
4
! 
 
5
define/parameter P1 NULL T
 
6
define/parameter P2 NULL T
 
7
define/parameter P3 NULL T
 
8
define/parameter P4 NULL T
 
9
define/parameter P5 Y ?                 !en/disable automatic graphics output
 
10
 
 
11
write/key SPECTAB " " 80
 
12
write/key OUTTAB " " 80
 
13
write/key HISTAB " " 80
 
14
write/key SESSNAM " " 80
 
15
write/key SPECTAB {P1}
 
16
write/key OUTTAB {P2}
 
17
write/key HISTAB {P3}
 
18
write/key SESSNAM {P4}
 
19
write/key GRAWIN -1
 
20
if P5 .eq. "Y" .or. P5 .eq. "y" then
 
21
   GRAWIN = 1
 
22
else if P5 .eq. "N" .or. P5 .eq. "n" then
 
23
   GRAWIN = 0
 
24
endif
 
25
 
 
26
run CON_EXE:fitlyman.exe
 
27