← Back to branch summary

~sdsu-asklib-developers/sdsu-asklib/trunk

« back to all changes in this revision

Viewing changes to vms/askmisc.for.201

  • Committer: C.W.Holeman II
  • Date: 2018-06-05 20:29:36 UTC
  • Revision ID: cwhii_pl@julianlocals.com-20180605202936-q3chqm8i1citstuv
Tags: 2.1-1
Change all former versioned names to have no filesystem version number. Move all versioned files to a VMS directory. Intentionis tomake thefile types look like Fortran programsforprocessing that doesnot kjnow about VMS filesystemversion numbers.

Show diffs side-by-side

added added

removed removed

Lines of Context:
vms/askmisc.for.201
 
1
*                       askmisc
 
2
 
 
3
* 17-JUL-1984   C.W.Holeman
 
4
*               Added LUNJOU.
 
5
* 5-Mar-84      C.W.Holeman
 
6
        character BACKUP        !for when user wants to go backwards
 
7
        character HELP          !for default to be displayed and help
 
8
                parameter (HELP = '?', BACKUP = '^')
 
9
        integer RET_NOTYET
 
10
        integer RET_NORMAL
 
11
        integer RET_BACKUP
 
12
        integer RET_EOF
 
13
        parameter(RET_NOTYET=-1,RET_NORMAL=0,RET_BACKUP=1,RET_EOF=2)
 
14
        integer LUNOUT          !output logical unit number
 
15
        integer LUNERR          !error logical unit number
 
16
        integer LUNJOU          !journal logical unit number
 
17
        parameter (LUNOUT=6, LUNERR=7, LUNJOU=8)