home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / fortran / fv121s.zip / FAT5.DOC < prev    next >
Text File  |  1988-06-08  |  27KB  |  934 lines
  1.         APR 1988                FAT-VIDEO 1.21  WOPEN            Page W-1
  2.  
  3.  
  4.  
  5.         WOPEN(WID,BATTR,TATTR,ULR,ULC,NR,NC,TITLE,WB,WC,WT) - Open a window.
  6.  
  7.  
  8.         Usage:
  9.  
  10.           call wopen(wid,battr,tattr,ulr,ulc,nr,nc,title,wb,wc,wt)
  11.  
  12.           integer*2    wid,battr,tattr,ulr,ulc,nr,nc,wb,wt,wc
  13.           character*80 title
  14.  
  15.           inputs: battr,tattr,ulr,ulc,nr,nc,title,wb,wt,wc
  16.  
  17.           returns: wid
  18.  
  19.           MS-Fortran Large Model
  20.  
  21.         Description:
  22.  
  23.             This routine sets up the window structures, initializes them,
  24.         and opens a window.
  25.  
  26.            Windows do not have to be overlapped, nor must they always be
  27.         deleted in order. If they are overlapped, they  must be deleted
  28.         in reverse order. If some are overlapped and some are not, the
  29.         overlapped windows must be deleted in reverse of how they were
  30.         layered.
  31.  
  32.         wid   = returned by wopen, window id
  33.         battr = input, border attribute, output from setab
  34.         tattr = input, text attribute, output from setab
  35.         ulr   = input, upper left row of window
  36.         ulc   = input, upp left col  f window
  37.         nr    = input, no. of usable rows in window
  38.         nc    = input, no. of usable cols in window
  39.         title = input, null terminated string.
  40.                 example... 'My Window'//char(0)
  41.                 example... 'My Window'C
  42.                 example... 'My Window`'
  43.         wb    = input, no. of border lines 0,1, or 2
  44.         wc    = input, title justification: center = 1
  45.                                             left   = 0
  46.         wt    = input, title pointer: none      = 0
  47.                                       vert line = 1
  48.                                       arrows    = 2
  49.  
  50.         APR 1988                FAT-VIDEO 1.21  WCLOSE          Page W-2
  51.  
  52.  
  53.         WCLOSE(WID) - Close the window.
  54.  
  55.         Usage:
  56.  
  57.           call wclose(wid)
  58.  
  59.           integer*2    wid
  60.  
  61.           inputs: wid
  62.  
  63.           returns: none
  64.  
  65.           MS-Fortran Large Model
  66.  
  67.         Description:
  68.  
  69.            This function closes the window specified by wid and
  70.         deletes it from memory, and then frees the memory allocated
  71.         for this window.
  72.  
  73.  
  74.         APR 1988                FAT-VIDEO 1.21  WPRNAS          Page W-3
  75.  
  76.  
  77.  
  78.         WPRNAS(WID,ATTR,STRING)- Print string in window with attributes
  79.  
  80.         Usage:
  81.  
  82.           call wprnas(wid,attr,string)
  83.  
  84.           integer*2    wid,attr
  85.           character*80 string
  86.  
  87.           inputs: wid,string,attr
  88.  
  89.           returns: none
  90.  
  91.           MS-Fortran Large Model
  92.  
  93.         Description:
  94.  
  95.            This function will print a string in the window specified by
  96.         wid. The string starts printing at the current cursor location
  97.         and does not wrap at the window boundary.  You should call wcrlf()
  98.         to advance to the start of the next line. The string must be null
  99.         terminated, i.e. string=' My Text'//char(0) , or 'My Text`'.
  100.  
  101.            The attribute variable attr does not have to be the same as that
  102.         used to initially define the window.  That's the purpose of it in
  103.         this function.
  104.  
  105.            The string may be defined prior to the call or in-line.
  106.  
  107.         i.e. string=' text '//char(0)
  108.              call wprnas(wid,attr,string)
  109.                 or
  110.              call wprnas(wid,attr,' text `')
  111.  
  112.         All functions requiring a string as input allow this form of call.
  113.  
  114.         See also wprint(), wcrlf(), setnul().
  115.        APR 1988                FAT-Video-1.21  WPRINT          Page W-4
  116.  
  117.  
  118.  
  119.         WPRINT(WID,STRING) - Print string in window
  120.  
  121.         Usage:
  122.  
  123.           call wprint(wid,string)
  124.  
  125.           integer*2    wid
  126.           character*80 string
  127.  
  128.           inputs: wid, string
  129.  
  130.           returns: none
  131.  
  132.           MS-Fortran Large Model
  133.  
  134.         Description:
  135.  
  136.            This function writes the input string to the specified window
  137.         starting at the current cursor location.  This function does handle
  138.         word wrapping at the window boundary, or you should call wcrlf()
  139.         to go to the start of the next line.  The string may be defined
  140.         prior to this call or the string may be defined in the call.
  141.  
  142.            The input string must be formed as a null terminated string.
  143.         See wprnas() or setnul() for more on null terminated strings.
  144.  
  145.         See also wprnas(), wcrlf().
  146.  
  147.  
  148.         APR 1988                FAT-Video-1.21  WCLS            Page W-5
  149.  
  150.  
  151.  
  152.         WCLS(wid) - Clear the window
  153.  
  154.         Usage:
  155.  
  156.           call wcls(wid)
  157.  
  158.           integer*2    wid
  159.  
  160.           inputs: wid
  161.  
  162.           returns: none
  163.  
  164.           MS-Fortran Large Model
  165.  
  166.         Description:
  167.  
  168.            This function performs a clear screen in the window specified
  169.         by wid and then sets the cursor to the home position in the
  170.         window at (1,1).
  171.  
  172.  
  173.         APR 1988                FAT-Video-1.21  WCRX            Page W-6
  174.  
  175.  
  176.  
  177.         WCRX(WID) - Perform a carriage return in a window.
  178.  
  179.         Usage:
  180.  
  181.           call wcrx(wid)
  182.  
  183.           integer*2    wid
  184.  
  185.           inputs: wid
  186.  
  187.           returns: none
  188.  
  189.           MS-Fortran Large Model
  190.  
  191.         Description:
  192.  
  193.            This function performs a carriage return in the window
  194.         specified by wid, effectively moving the cursor to column 1
  195.         in its current row without advancing to the next line.
  196.  
  197.         APR 1988                FAT-Video-1.21  WLFX            Page W-7
  198.  
  199.  
  200.  
  201.         WLFX(WID) - Perform a line feed in the window.
  202.  
  203.         Usage:
  204.  
  205.           call wlfx(wid)
  206.  
  207.           integer*2  wid
  208.  
  209.           inputs: wid
  210.  
  211.           returns: none
  212.  
  213.           MS-Fortran Large Model
  214.  
  215.         Description:
  216.  
  217.            This function performs a line feed in the window
  218.         specified by wid, effectively moving the cursor to the next
  219.         row, but in the same column.
  220.  
  221.  
  222.         APR 1988                FAT-Video-1.21  WCRLF           Page W-8
  223.  
  224.  
  225.         WCRLF(WID)- Perform carriage return, and line feed, in a window.
  226.  
  227.         Usage:
  228.  
  229.           call wcrlf(wid)
  230.  
  231.           integer*2    wid
  232.  
  233.           inputs: wid
  234.  
  235.           returns: none
  236.  
  237.           MS-Fortran Large Model
  238.  
  239.         Description:
  240.  
  241.            This function performs a carriage return and a line feed in
  242.         the window specified by wid, effectively moving the cursor to
  243.         start of the next row in column 1. This is similar to the
  244.         enter key.
  245.  
  246.  
  247.         APR 1988                FAT-Video-1.21  WCLEOL          Page W-9
  248.  
  249.  
  250.  
  251.         WCLEOL(WID)- Clear to end of line, in the window.
  252.  
  253.         Usage:
  254.  
  255.           call wcleol(wid)
  256.  
  257.           integer*2    wid
  258.  
  259.           inputs: wid
  260.  
  261.           returns: none
  262.  
  263.           MS-Fortran Large Model
  264.  
  265.         Description:
  266.  
  267.            This function clears the current line to the window border in
  268.         the window specified by wid.
  269.  
  270.  
  271.  
  272.         APR 1988                FAT-VIDEO 1.21  WGETCP          Page W-10
  273.  
  274.  
  275.  
  276.         WGETCP(WID,ROW,COL) - Get cursor row,col in window.
  277.  
  278.         Usage:
  279.  
  280.           call wgetcp(wid,row,col)
  281.  
  282.           integer*2  wid,row,col
  283.  
  284.           inputs: wid
  285.  
  286.           returns: row,col
  287.  
  288.           MS-Fortran Large Model
  289.  
  290.         Description:
  291.  
  292.            This function returns the cursor coordinates for the window
  293.         specified by wid, in window coordinates. Window rows start at
  294.         row 1,2,3.. columns run col 1,2,3... .
  295.  
  296.  
  297.  
  298.         APR 1988                FAT-VIDEO 1.21  WSETCP          Page W-11
  299.  
  300.  
  301.  
  302.         WSETCP(WID,ROW,COL) - Set cursor to row,col in window.
  303.  
  304.         Usage:
  305.  
  306.           call wsetcp(wid,row,col)
  307.  
  308.           integer*2  wid,row,col
  309.  
  310.           inputs: wid,row,col
  311.  
  312.           returns: none
  313.  
  314.           MS-Fortran Large Model
  315.  
  316.         Description:
  317.  
  318.            This function sets the cursor at row,col for the window
  319.         specified by wid, in window coordinates.  Window rows start
  320.         at row 1,2,3.., columns run col 1,2,3... .
  321.  
  322.  
  323.  
  324.         APR 1988                FAT-VIDEO 1.21  WGETSN          Page W-12
  325.  
  326.  
  327.  
  328.         WGETSN(WID,STRING,LEN) - Get, no echo, string input, in a window
  329.  
  330.         Usage:
  331.  
  332.           call wgetsn(wid,string,len)
  333.  
  334.           integer*2    wid,len
  335.           character*80 string
  336.  
  337.           inputs: wid,len
  338.  
  339.           returns: string
  340.  
  341.           MS-Fortran Large Model
  342.  
  343.         Description:
  344.  
  345.            This function will accept character input from the keyboard
  346.         and will not echo any keystrokes until a carriage return is hit,
  347.         or len number of characters are received.  The function then appends
  348.         a null character ( char(0) ) to the string and returns the actual
  349.         number of characters read in len.  Len does not include the
  350.         null character.  This string is suitable to immediately be
  351.         printed with wprint(), or wprnas().
  352.  
  353.         wid    = window id
  354.         string = character string to store characters
  355.         len    = on input,  number of characters to accept
  356.                = on return, number of characters read
  357.  
  358.         See also wgetse(),wgetce(),wprint(),wprnas().
  359.  
  360.  
  361.         APR 1988                FAT-VIDEO 1.21  WGETSE          Page W-13
  362.  
  363.  
  364.  
  365.         WGETSE(WID,ATTR,STRING,LEN) -Get, with echo, string input.
  366.  
  367.         Usage:
  368.  
  369.           call wgetse(wid,attr,string,len)
  370.  
  371.           integer*2    wid,attr,len
  372.           character*80 string
  373.  
  374.           inputs: wid,attr,len
  375.  
  376.           returns: string
  377.  
  378.           MS-Fortran Large Model
  379.  
  380.         Description:
  381.  
  382.            This function will accept character input from the keyboard
  383.         and will echo any keystrokes until a carriage return is hit or
  384.         len number of characters are received.  The function then appends
  385.         a null character ( char(0) ) to the string and returns the actual
  386.         number of characters read in len.  Len does not include the null
  387.         character.  This string is suitable to be immediately printed
  388.         by wprint(), or wprnas().  The echo of the keystrokes is printed
  389.         using the attr variable specified.
  390.  
  391.  
  392.         wid    = window id
  393.         attr   = attribute to use for the echo, may be different from
  394.                  the window's own attribute.
  395.                = -1 means to use windows default text attribute.
  396.         string = character string to store characters
  397.         len    = on input,  number of characters to accept
  398.                = on return, number of characters read
  399.  
  400.         See also wgetsn(), wgetce(),wprint(),wprnas().
  401.  
  402.         APR 1988                FAT-VIDEO 1.21  WGETCE          Page W-14
  403.  
  404.  
  405.  
  406.         WGETCE(WID,ATTR,IKAR) - Get, with echo, character input.
  407.  
  408.         Usage:
  409.  
  410.           call wgetce(wid,attr,ikar)
  411.  
  412.           integer*2    wid,attr,ikar
  413.  
  414.           inputs: wid,attr
  415.  
  416.           returns: ikar
  417.  
  418.           MS-Fortran Large Model
  419.  
  420.         Description:
  421.  
  422.            This function will accept a character input from the keyboard
  423.         and will echo the keystroke using the attribute specified.
  424.  
  425.         wid    = window id
  426.         attr   = attribute to use for the echo, may be different from
  427.                  the window's own attribute.
  428.                = -1 means to use windows default text attribute.
  429.         ikar   = character ascii code
  430.  
  431.  
  432.         See also wgetsn(), wgetse(),wprint(),wprnas().
  433.  
  434.  
  435.         APR 1988                FAT-VIDEO 1.21  MENBAR          Page W-15
  436.  
  437.  
  438.  
  439.         MENBAR(WID,PRNAME,NATTR,SATTR,ISEL,IOPT)- Put up sliding menu bar in
  440.                                                   the window.
  441.         Usage:
  442.  
  443.           call menbar(wid,PrNam,nattr,sattr,isel,iopt)
  444.  
  445.           integer*2    wid,nattr,sattr,isel,iopt
  446.           character*20 PrNam(20)
  447.  
  448.           inputs: wid,prnam,nattr,sattr,iopt
  449.  
  450.           returns: isel
  451.  
  452.           MS-Fortran Large Model
  453.  
  454.         Description:
  455.  
  456.            This routine generates a main horizontal menu bar in the
  457.         window specified by wid. The bar starts in column 2 and leaves
  458.         2 spaces between project names.
  459.         Isel is set to 1,2,3...according to which project name is
  460.         selected.
  461.            Once this routine is called, the prnam() null ended character
  462.         strings are displayed in the normal attribute.  The first string is
  463.         highlighted with the select attribute.  The items may be selected by
  464.         using the left and right cursor keys.  When a carriage return or
  465.         the enter key is pressed the numbers 1,2,3,etc. of the selection is
  466.         returned in isel.  To return without making any selection, simply
  467.         press the escape key, then isel is set to zero.  The menu bar does
  468.         not disappear on return from this function.  This allows the main
  469.         project item selected to still be seen and calls wmenu() to display
  470.         a menu of items from which to select. If you wish to erase the menu
  471.         bar, simply set the cursor to 1,1 in the window and call wcleol().
  472.         This routine and wmenu(), were designed to work together, but simple
  473.         alterations in the source code, can make many variations of these
  474.         menu functions.
  475.  
  476.            After the last PrNam is entered, the next PrNam string should
  477.         be defined as PrNam() = char(0) = '`'
  478.  
  479.         wid    = window id
  480.         PrNam  = project title strings, null terminated.
  481.                  size must be declared as character*20 PrNam(20)
  482.         nattr  = normal attribute
  483.         sattr  = selected attribute
  484.         isel   = no. of selected item 1,2,3,4... or 0 for no selection
  485.         iopt   = selected item on entry
  486.  
  487.         See also Wmenu() & Demo.for.
  488.  
  489.         APR 1988                FAT-VIDEO 1.21  WMENU           Page W-16
  490.  
  491.  
  492.         WMENU(ITNAM,NATTR,SATTR,ULR,ULC,TITLE,ISEL)- Pop up a Menu.
  493.  
  494.         Usage:
  495.  
  496.           call wmenu(ItNam,nattr,sattr,ulr,ulc,title,isel)
  497.  
  498.           integer*2    nattr,sattr,ulr,ulc,isel
  499.           character*50 ItNam(20),title
  500.  
  501.           inputs: itnam,nattr,sattr,ulr,ulc,title
  502.  
  503.           returns: isel
  504.  
  505.           MS-Fortran Large Model
  506.  
  507.         Description:
  508.  
  509.            This function opens a window and displays a list of menu items.
  510.         The cursor keys (up and down) may be used to select the item of
  511.         interest.  The selected item number is returned in isel.  If no
  512.         selection is desired, the escape key will end the menu selection
  513.         and return zero in isel.  To select an item, highlight it and press
  514.         enter.  The window and menu disappear when the escape or enter key is
  515.         pressed.  Once this function returns isel you can do what was
  516.         requested.  The title may be the PrNam() selected from the menbar()
  517.         function or any null terminated character string.
  518.  
  519.            The ItNam() character array must be character*50 in size, unless
  520.         you change the source code.  Each ItNam() must be null terminated
  521.         and after the last ItNam() is defined the next ItNam() must be defined
  522.         with the null character as:  ItNam(last+1)=char(0).  This indicates ther
  523.         menu item names to follow.
  524.  
  525.         ItNam  = menu item names, each is null terminated, ith+1 is =char(0)
  526.         nattr  = normal attribute
  527.         sattr  = selected attribute
  528.         ulr    = upper left row of menu display (0 - 24)
  529.         ulc    = upper left col of menu display (0-79)
  530.         title  = menu title, title=char(0)='`' for no title display
  531.         isel   = number of selected item, 1,2,3,4.. or zero for no selection
  532.  
  533.         See also Menbar() & Demo.for.
  534.  
  535.  
  536.         APR 1988                FAT-VIDEO 1.21  WBOX           Page W-18
  537.  
  538.  
  539.  
  540.         WBOX(BATTR,TATTR,ULR,ULC,LRR,LRC,TITLE,WT,WC,WB) - Display a
  541.  
  542.              window(box) with the given attributes.
  543.  
  544.         Usage:
  545.  
  546.           call wbox(battr,tattr,ulr,ulc,lrr,lrc,title,wt,wc,wb)
  547.  
  548.           integer*2    battr,tattr,ulr,ulc,lrr,lrc,wt,wc
  549.           character*20 title
  550.  
  551.           inputs: battr,tattr,ulr,ulc,lrr,lrc,title,wt,wc
  552.  
  553.           returns: none
  554.  
  555.           MS-Fortran Large Model
  556.  
  557.         Description:
  558.  
  559.            This function displays a box on the screen with border lines.
  560.         On return, a box with the input parameters is displayed.  This is
  561.         called by wopen(), and wxopen().
  562.  
  563.         battr = border attribute
  564.         tattr = text & background attribute of box
  565.         ulr  = upper left row of box
  566.         ulc  = upper left col of box
  567.         lrr  = lower right row of box
  568.         lrc  = lower right col of box
  569.         title= title used, null terminated
  570.         wt   = title border, 0- no border
  571.                              1- vertical line
  572.                              2- double arrows
  573.         wc   = title centering 0-left justify
  574.                                1-center justify
  575.         wb   = no. of border lines 0,1, or 2.
  576.  
  577.  
  578.  
  579.         APR 1988                FAT-VIDEO 1.21  WMOVR           Page W-18
  580.  
  581.  
  582.         WMOVR(WID,INR,INC) - Move window, relative to current position.
  583.  
  584.         Usage:
  585.  
  586.           call wmovr(wid,inr,inc)
  587.  
  588.           integer*2  wid,inr,inc
  589.  
  590.           inputs: wid,inr,inc
  591.  
  592.           returns: none
  593.  
  594.           MS-Fortran Large Model
  595.  
  596.         Description:
  597.  
  598.            This function moves the window specified by wid, a relative
  599.         amount specified by inr, inc.  If this relative row/col motion
  600.         moves a portion of the window off the screen, the window is moved
  601.         just to the screen's border.
  602.  
  603.         inr = no. of rows (+ or -) to move window
  604.         inc = no. of cols (+ or -) to move window
  605.  
  606.         See also wmova().
  607.  
  608.  
  609.  
  610.         APR 1988                FAT-VIDEO 1.21  WMOVA           Page W-19
  611.  
  612.  
  613.  
  614.         WMOVA(WID,ROW,COL) - Move window to row,col.
  615.  
  616.         Usage:
  617.  
  618.           call wmova(wid,row,col)
  619.  
  620.           integer*2  wid,row,col
  621.  
  622.           inputs: wid,row,col
  623.  
  624.           returns: none
  625.  
  626.           MS-Fortran Large Model
  627.  
  628.         Description:
  629.  
  630.            This function moves the window specified by wid to the
  631.         row and column specified.  If this row and column movement would
  632.         move a portion of the window off the screen, the window is moved
  633.         just to the screen's border.
  634.  
  635.         row = new row location of windows upper left row
  636.         col = new col location of windows upper left col
  637.  
  638.         See also wmovr().
  639.  
  640.  
  641.  
  642.         APR 1988                FAT-VIDEO 1.21  WXOPEN          Page W-20
  643.  
  644.         WXOPEN(WID,BATTR,TATTR,ULR,ULC,NR,NC,TITLE,WB,WC,WT) - Open an
  645.  
  646.                expanding window.
  647.  
  648.         Usage:
  649.  
  650.           call wxopen(wid,battr,tattr,ulr,ulc,nr,nc,title,wb,wc,wt)
  651.  
  652.           integer*2    wid,battr,tattr,ulr,ulc,nr,nc,wb,wt,wc
  653.           character*80 title
  654.  
  655.           inputs: battr,tattr,ulr,ulc,lrr,lrc,title,wb,wt,wc
  656.  
  657.           returns: wid
  658.  
  659.           MS-Fortran Large Model
  660.  
  661.         Description:
  662.  
  663.            This function is identical in function to wopen() except when
  664.         the window opens, it explodes from the upper left row and column.
  665.         The wopen() function just puts the window up instantly, it does
  666.         not explode open.
  667.  
  668.            This routine sets up the window structures, initializes them,
  669.         and opens a window.   Windows do not have to be overlapped, nor
  670.         must they be deleted in order.  If they are overlapped, they must
  671.         be deleted in reverse order.  If some are overlapped and some are
  672.         not, the overlapped windows must be deleted in reverse of how they
  673.         were layered.
  674.  
  675.         wid   = returned by wopen, window id
  676.         battr = input, border attribute, output from setab.
  677.         tattr = input, text attribute,output from setab
  678.         ulr   = input, upper left row of window
  679.         ulc   = input, upp left col  f window
  680.         nr    = input, no. of usable rows in window
  681.         nc    = input, no. of usable cols in window
  682.         title = input, null terminated string.
  683.                 example... 'My Window'//char(0) or 'My Window`'
  684.         wb    = input, no. of border lines 0,1, or 2
  685.         wc    = input, title justification: center = 1
  686.                                             left   = 0
  687.         wt    = input, title pointer: none      = 0
  688.                                       vert line = 1
  689.                                       arrows    = 2
  690.         See also wopen(),wbox().
  691.  
  692.         APR 1988                FAT-VIDEO 1.21  GETADP          Page W-21
  693.  
  694.  
  695.  
  696.         GETADP(ADAP) - Get Video adapter in use.
  697.  
  698.         Usage:
  699.  
  700.           call getadp(adap)
  701.  
  702.           character*3 adap
  703.  
  704.         Description:
  705.  
  706.            This function returns a 3-character string, indicating the name
  707.         of the video adapter in use.
  708.  
  709.         ADAP =  'EGA' - EGA adapter
  710.                 'CGA' - CGA adapter
  711.                 'MDA' - Monochrome display adapter
  712.                 'COM' - Compaq adapter
  713.                 'HER' - Hercules adapter
  714.  
  715.         See also BVEF(), EGAF()
  716.  
  717.  
  718.  
  719.         APR 1988                FAT-VIDEO 1.21  WAIT          Page W-22
  720.  
  721.         WAIT(SECONDS) - wait a specified time, in seconds.
  722.  
  723.         Usage:
  724.  
  725.           call wait(seconds)
  726.  
  727.           integer*2 seconds
  728.  
  729.         Description:
  730.  
  731.            This function waits a specified time period, 0-100 seconds,
  732.         and then returns control to the program.
  733.  
  734.  
  735.         APR 1988                FAT-VIDEO 1.21   MENU1           Page W-23
  736.  
  737.  
  738.  
  739.         MENU1(wid0,prnam,itnam,nattr,sattr,isel)- Pull Down Menu
  740.  
  741.         Usage:
  742.  
  743.           call menu1(wid0,prnam,itnam,nattr,sattr,isel)
  744.  
  745.           integer*2 wid0,nattr,sattr,isel
  746.           character*20 prnam(10)
  747.           character*50 itnam(20)
  748.  
  749.           inputs: wid0,prnam,itrnam,nattr,sattr
  750.  
  751.           returns: isel
  752.  
  753.           MS-Fortran Large Model
  754.  
  755.         Description:
  756.  
  757.            This routine opens a pull down menu and attaches it
  758.         to the prnam(isel) main menu. You must pass the correct
  759.         itnam() sub-menu. Isel indicates which prnam was selected
  760.         by the menbar() routine. If isel=0 menu1() returns.
  761.         Isel returns the itnam no. selected, or zero for none.
  762.  
  763.         defined keys for menu1()
  764.                 up-arrow   - highlights menu selection up one
  765.                 down-arrow - highlights menu selection down one
  766.                 escape     - returns with no item selected
  767.                 return     - selects hilighted item
  768.         all other keys are ignored.
  769.  
  770.         integer*2    wid0,nattr,sattr,isel
  771.         character*50 itnam(20)
  772.         character*20 prnam(10)
  773.  
  774.                 nattr   - normal attribute.
  775.                 sattr   - selected attribute.
  776.                 isel    - selection # 1,2,.. or 0 for escape.
  777.                 itnam   - menu item names, null terminated.
  778.                 prnam   - main menu names, null terminated.
  779.                 wid0    - wid of window used by main menu.
  780.  
  781.         See also WMENU(), WOPEN(), MENBAR().
  782.  
  783.  
  784.         APR 1988                FAT-VIDEO 1.21  WGETI2          Page W-24
  785.  
  786.  
  787.  
  788.  
  789.         I = WGETI2(wid,Ier)  Get(Read) an integer*2 value from the keyboard
  790.                              and echo it to the screen.
  791.  
  792.         Usage:
  793.            integer*2 I,wid,Ier,wgeti2
  794.            I=WGETI2(wid,Ier)
  795.  
  796.            inputs: wid
  797.            returns: I,Ier
  798.  
  799.         Description:
  800.  
  801.            This routine accepts an integer*2 value from the keyboard,
  802.         and echo's it to the screen. Only the keys 0-9 are allowed.
  803.         If the WID is invalid the routine writes and error maessage to
  804.         the screen and returns.
  805.  
  806.         Valid Input:
  807.           0-9, negatives not allowed.
  808.           Esc - aborts the read, returns Wgeti2=0, and Ier=+1.
  809.           Any other error returns Wgeti2=0, and Ier=-1.
  810.  
  811.  
  812.  
  813.         I = WGETI4(WID,IER)  GET(Read) an integer*4 value from the keyboard
  814.                              and echo it to the screen.
  815.  
  816.         Usage:
  817.            integer*4 wgeti4,I
  818.            integer*2 wid,Ier
  819.            I=WGETI4(wid,Ier)
  820.  
  821.            inputs: wid
  822.            returns: I,Ier
  823.  
  824.         Description:
  825.  
  826.            This routine accepts an integer*4 value from the keyboard,
  827.         and echo's it to the screen. Only the keys 0-9 are allowed.
  828.         If the WID is invalid the routine writes and error maessage to
  829.         the screen and returns.
  830.  
  831.         Valid Inget:
  832.           0-9, negatives not allowed.
  833.           Esc - aborts the read, returns Wgeti4=0, and Ier=+1.
  834.           Any other error returns Wgeti4=0, and Ier=-1.
  835.  
  836.  
  837.         APR 1988                FAT-VIDEO 1.21  WPUTI2          Page W-25
  838.  
  839.  
  840.  
  841.         I = WPUTI2(wid,Num)  Put(write) an integer*2 value from the keyboard
  842.                              and echo it to the screen.
  843.  
  844.         Usage:
  845.            integer*2 wid,Num
  846.            call wputi2(wid,Num)
  847.  
  848.            inputs: wid,Num
  849.            returns: none
  850.  
  851.         Description:
  852.  
  853.            This routine write an integer*2 value to the window specified,
  854.         and at the windows current cursor position. If the WID is invalid
  855.         the routine writes and error message to the screen and returns.
  856.  
  857.  
  858.  
  859.  
  860.         I = WPUTI4(wid,Num)  Put(write) an integer*4 value from the keyboard
  861.                              and echo it to the screen.
  862.  
  863.         Usage:
  864.            integer*2 wid
  865.            integer*4 Num
  866.            call wputi4(wid,Num)
  867.  
  868.            inputs: wid,Num
  869.            returns: none
  870.  
  871.         Description:
  872.  
  873.            This routine write an integer*4 value to the window specified,
  874.         and at the windows current cursor position. If the WID is invalid
  875.         the routine writes and error message to the screen and returns.
  876.  
  877.  
  878.         APR 1988                FAT-VIDEO 1.21  WGETR4          Page W-24
  879.  
  880.  
  881.  
  882.  
  883.         X = WGETR4(wid,Ier)  Get(Read) a real*4 value from the keyboard
  884.                              and echo it to the screen.
  885.  
  886.         Usage:
  887.            integer*2 wid,Ier
  888.            real*4    X,WGETR4
  889.            X=WGETR4(wid,Ier)
  890.  
  891.            inputs: wid
  892.            returns: X,Ier
  893.  
  894.         Description:
  895.  
  896.            This routine accepts a real*4 value from the keyboard,
  897.         and echo's it to the screen. If the WID is invalid the
  898.         routine writes and error message to the screen and returns.
  899.  
  900.         Valid Input:
  901.           0-9,e,E,d,E,+,-
  902.           Esc - aborts the read, returns 0, and Ier=+1.
  903.           Any other error returns 0, and Ier=-1.
  904.  
  905.           Maximum input length = 25 characters.
  906.  
  907.  
  908.  
  909.         X = WGETR8(wid,Ier)  Get(Read) a real*8 value from the keyboard
  910.                              and echo it to the screen.
  911.  
  912.         Usage:
  913.            integer*2 wid,Ier
  914.            real*8    X,WGETR8
  915.            X=WGETR8(wid,Ier)
  916.  
  917.            inputs: wid
  918.            returns: X,Ier
  919.  
  920.         Description:
  921.  
  922.            This routine accepts a real*8 value from the keyboard,
  923.         and echo's it to the screen. If the WID is invalid the
  924.         routine writes ans error message to the screen and returns.
  925.  
  926.         Valid Input:
  927.           0-9,e,E,d,E,+,-,.
  928.           Esc - aborts the read, returns 0, and Ier=+1.
  929.           Any other error returns 0, and Ier=-1.
  930.  
  931.           Maximum input length = 25 characters.
  932.  
  933.  
  934.