home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FV121S.ZIP / FAT1.DOC < prev    next >
Encoding:
Text File  |  1988-06-09  |  26.9 KB  |  949 lines
  1.         APR 1988                FAT-VIDEO 1.21  SETVM           Page V-1
  2.  
  3.  
  4.  
  5.         SETVM(MODE)-Set the Video Mode
  6.  
  7.         Usage:
  8.  
  9.           call setvm(mode)
  10.  
  11.           integer*2 mode
  12.  
  13.           inputs: mode
  14.  
  15.           returns: none
  16.  
  17.           MS-Fortran 4.0 Large Model
  18.  
  19.         Description:
  20.  
  21.           This program sets the video mode. The available modes are
  22.         defined below.
  23.  
  24.         See also getmod().
  25.  
  26.         mode  Display
  27.         ----   --------
  28.         00   = 40*25 text B&W,cga
  29.         01   = 40*25 color text,cga
  30.         02   = 80*25 B&W text
  31.         03   = 80*25 color text
  32.         04   = 320*200 4-color,cga
  33.         05   = "   "    "         ,color burst off
  34.         06   = 640*200 2-color,cga
  35.         07   = Mono & EGA display
  36.         08   = 160*200 pc jr
  37.         09   = 320*200 pc jr
  38.         0A   = 640*200 pc jr
  39.         0D   = 320*200 EGA
  40.         0E   = 640*200 16-color EGA
  41.         0F   = 640*350 mono graphics,EGA
  42.         10   = 640*350 4/16 color graphics,EGA
  43.                       (4/16-depends on ram)
  44.  
  45.         Int 10h, fx-00h
  46.  
  47.         CGA, Mono, EGA
  48.        APR 1988                FAT-VIDEO 1.21  SETCP           Page V-2
  49.  
  50.  
  51.  
  52.         SETCP(ROW,COL,PAGE) - Set Cursor Position
  53.  
  54.         Usage:
  55.  
  56.           call setcp(row,col,page)
  57.  
  58.           integer*2 row,col,page
  59.  
  60.           inputs:   page,row,col
  61.  
  62.           returns:  none
  63.  
  64.           MS-Fortran 4.0 Large Model
  65.  
  66.            This subroutine sets the cursor position to
  67.         the values given in row, column and page.  The row
  68.         values are 0-23, the column values are 0-39 or 0-79
  69.         depending on the text mode in use.
  70.            The cursor may be located in graphics modes using
  71.         this function the same as in text modes. See the
  72.         setdp() function regarding pages.
  73.  
  74.         See also getcp().
  75.  
  76.         Int 10h, fx-02h
  77.  
  78.         CGA, Mono, EGA
  79.  
  80.  
  81.  
  82.  
  83.         APR 1988                FAT-VIDEO 1.21  GETCP           Page V-3
  84.  
  85.  
  86.  
  87.         GETCP(ROW,COL,PAGE) - Get Cursor Position
  88.  
  89.         Usage:
  90.  
  91.           call getcp(row,col,page)
  92.  
  93.           integer*2 row,col,page
  94.  
  95.           inputs:   page
  96.  
  97.           returns:  row,col
  98.  
  99.           MS-Fortran 4.0 Large Model
  100.  
  101.            This subroutine gets the cursor position for
  102.         the specified page, and returns row, and column.
  103.         The row values are 0-23, the column values are
  104.         0-39 or 0-79 depending on the text mode in use.
  105.         See the setdp() function regarding pages in the
  106.         various adapters.
  107.  
  108.         See also setcp().
  109.  
  110.         Int 10h, fx-03h
  111.  
  112.         CGA, Mono, EGA
  113.        APR 1988                FAT-VIDEO 1.21  SETDP           Page V-4
  114.  
  115.  
  116.  
  117.         SETDP(PAGE) - SET the Display Page
  118.  
  119.         Usage:
  120.  
  121.           call setdp(page)
  122.  
  123.           integer*2 page
  124.  
  125.           inputs: page
  126.  
  127.           returns: none
  128.  
  129.           MS-Fortran 4.0 Large Model
  130.  
  131.         Description:
  132.  
  133.            This subroutine sets the active display page.
  134.         The Mono Adapter only has 1 display page. The CGA
  135.         adapter has 8 display pages in modes 0 and 1, and
  136.         4 text display pages in modes 2 and 3. See the chart
  137.         below for other modes.
  138.  
  139.         See also getmod().
  140.  
  141.         Page    Modes(hex)
  142.         -----   ----------
  143.         0-7     00-01 CGA
  144.         0-3     02-03 CGA
  145.         0-7     02-03 EGA
  146.         0-7     0D    EGA
  147.         0-3     0E    EGA
  148.         0-1     0F    EGA
  149.         0-1     10h   EGA
  150.  
  151.         Int 10h, fx-05h
  152.  
  153.         CGA, EGA
  154.        APR 1988                FAT-VIDEO 1.21  SCWUP           Page V-5
  155.  
  156.  
  157.         SCWUP(LINES,ATTR,ULR,ULC,LRR,LRC) - Scroll Window Up
  158.  
  159.         Usage:
  160.  
  161.           call scwup(lines,attr,ulr,ulc,lrr,lrc)
  162.  
  163.           integer*2 lines,attr,ulr,ulc,lrr,lrc
  164.  
  165.           inputs:  lines,attr,ulr,ulc,lr,lrc
  166.  
  167.           returns: none
  168.  
  169.           MS-Fortran 4.0 Large Model
  170.  
  171.         Description:
  172.  
  173.            This subroutine scrolls up the rectangular area defined
  174.         by ulr,ulc and lrr,lrc the specified number of lines,
  175.         filling the blank lines with the background color defined in
  176.         the attribute byte.
  177.  
  178.            The attribute byte may be set by setab(), or from a
  179.         call to getac().
  180.  
  181.         See  also scwdn(), cls(), getmod(), setvm().
  182.  
  183.         lines = 0-25 no. of lines to scroll(0 -> clears window)
  184.         attr  = attribute byte to use, for background color
  185.         ulr   = 0-24 upper left y-coord(row) corner of scroll region
  186.         ulc   = 0-79 "     x "     " (col)              "
  187.         lrr   = 0-24 lower right y-coord(row)
  188.         lrc   = 0-79  "    "     x-coord(col)
  189.  
  190.         Int 10h, fx-06h
  191.  
  192.         CGA, Mono, EGA
  193.  
  194.        APR 1988                FAT-VIDEO 1.21  SCWDN           Page V-6
  195.  
  196.  
  197.  
  198.         SCWDN(LINES,ATTR,ULR,ULC,LRR,LRC) - Scroll Window Down
  199.  
  200.         Usage:
  201.  
  202.           call scwdn(lines,attr,ulr,ulc,lrr,lrc)
  203.  
  204.           integer*2 lines,attr,ulr,ulc,lrr,lrc
  205.  
  206.           inputs:   lines,attr,ulr,ulc,lrr,lrc
  207.  
  208.           returns:  none
  209.  
  210.           MS-Fortran 4.0 Large Model
  211.  
  212.         Description:
  213.  
  214.            This subroutine scrolls down the rectangular area defined
  215.         by ulr,ulc and lrr,lrc the specified number of lines,
  216.         filling the blank lines with the background color defined in
  217.         the attribute byte.
  218.  
  219.            The attribute byte may be set by setab(), or returned from a
  220.         call to getac().
  221.  
  222.         See also scwup(), cls(), getmod(), setvm().
  223.  
  224.         lines = 0-25 no. of lines to scroll(0 -> clears window)
  225.         attr  = attribute byte to use, for background color
  226.         ulr   = 0-24 upper left y-coord(row) corner of scroll region
  227.         ulc   = 0-79 "     x "     " (col)              "
  228.         lrr   = 0-24 lower right y-coord(row)
  229.         lrc   = 0-79  "    "     x-coord(col)
  230.  
  231.         Int 10h, fx-07h
  232.  
  233.         CGA, Mono, EGA
  234.        APR 1988                FAT-VIDEO 1.21  GETAC           Page V-7
  235.  
  236.  
  237.  
  238.         GETAC(ATTR,KAR,PAGE) - Get the Attribute and Character at the
  239.                                cursor.
  240.  
  241.         Usage:
  242.  
  243.           call getac(attr,kar,page)
  244.  
  245.           integer*2 attr,kar,page
  246.  
  247.           inputs:   page
  248.  
  249.           returns:  attr,kar
  250.  
  251.           MS-Fortran 4.0 Large Model
  252.  
  253.         Description:
  254.  
  255.            This subroutine gets the attribute and ascii character code,
  256.         or extended character code, at the current cursor position. The
  257.         display page is not needed in graphics modes. In graphics modes
  258.         if the character is not recognized, a 0 is returned.
  259.  
  260.            This function will return the ascii or extended code in either
  261.         text or graphics modes.
  262.  
  263.         See also getab(), wrtac(), wrtacp(), wrtas(), wrtasp().
  264.                  wprint(), wprnas(), setab()
  265.  
  266.         attr = attribute byte, as output by setab()
  267.         kar  = character ascii code
  268.         Page = legal Page for adapter in use
  269.  
  270.         Int 10h, fx-08h
  271.  
  272.         CGA, Mono, EGA
  273.  
  274.         APR 1988                FAT-VIDEO 1.21  WRTAC           Page V-8
  275.  
  276.  
  277.         WRTAC(ATTR,KAR,PAGE) - Write Attribute and Character at the cursor.
  278.  
  279.         Usage:
  280.  
  281.           call wrtac(attr,kar,page)
  282.  
  283.           integer*2 attr,kar,page
  284.  
  285.           inputs:   attr,kar,page
  286.  
  287.           returns:  none
  288.  
  289.           MS-Fortran 4.0 Large Model
  290.  
  291.         Description:
  292.  
  293.            This subroutine writes the attribute and character at the
  294.         current cursor position. The attribute is the output of getac,
  295.         or of setab. This function works in text and graphics modes.
  296.         The cursor does not advance automatically. The attribute
  297.         controls the color of the foreground, background, intensity,
  298.         and blinking.
  299.            The special codes backspace, carriage return, linefeed
  300.         and bell are not recognized and do cause characters to be
  301.         printed.
  302.  
  303.         Text Mode:
  304.  
  305.            The attribute byte can be defined by setab, and both fore
  306.         and back should be specified. The values for the foreground
  307.         color may be 0-15, background 0-7, blink 0 or 1, and inten
  308.         0 or 1.
  309.  
  310.           Valid attributes in Mono are:
  311.          1) Normal     7-foreground, 0-background
  312.          2) Underlined 1-foreground, 0-background
  313.          3) Reverse    0-foreground, 7-background
  314.          4) Invisible  0-foreground, 0-backgound
  315.  
  316.             Blinking and Intensity work as well, and may be combined
  317.             with the above foreground/backgound combinations.
  318.  
  319.  
  320.        APR 1988                FAT-VIDEO 1.21  WRTAC           Page V-9
  321.  
  322.  
  323.  
  324.         Graphics Mode:
  325.  
  326.            The color attribute byte should be the foreground color
  327.         0-15. If bit 7 is set the color is xor'ed with the background,
  328.         thus assuring visibility. The attribute byte may be formed
  329.         using setab, by inputting the fore color(0-15), 0 for the back
  330.         color, 0 for inten, and a 1 for blink to xor the color, or 0
  331.         in blink not to.
  332.  
  333.            Page need not be specified in graphics mode.
  334.  
  335.         See also getab(), getac(), wrtacp(), wrtas(), wrtasp().
  336.                  wprint(), wprnas(), setab()
  337.  
  338.         Note: To set the background and border color in graphics
  339.               see setpal(),setbc().
  340.  
  341.         attr = attribute byte
  342.         kar  = character ascii code
  343.         Page = legal Page for adapter in use
  344.  
  345.         Int 10h, fx-09h
  346.  
  347.         CGA, Mono, EGA
  348.  
  349.         APR 1988                FAT-VIDEO 1.21  WRTACP          Page V-10
  350.  
  351.  
  352.         WRTACP(ATTR,KAR,ROW,COL,PAGE) - Write Attribute and Character at
  353.                                         the position given.
  354.  
  355.         Usage:
  356.  
  357.           call wrtacp(attr,kar,row,col,page)
  358.  
  359.           integer*2 attr,kar,row,col,page
  360.  
  361.           inputs:   attr,kar,row,col,page
  362.  
  363.           returns:  none
  364.  
  365.           MS-Fortran 4.0 Large Model
  366.  
  367.         Description:
  368.  
  369.            This subroutine writes the attribute and character at the
  370.         defined cursor position. The attribute is the output of getac,
  371.         or of setab. This function works in text and graphics modes.
  372.         The cursor does not advance automatically. The attribute
  373.         controls the color of the foreground, background, intensity,
  374.         and blinking.
  375.  
  376.            The special codes--backspace, carriage return, linefeed
  377.         and bell--are not recognized and do cause characters to be
  378.         printed.
  379.  
  380.         Text Mode:
  381.  
  382.            The attribute byte can be defined by setab, and both fore
  383.         and back should be specified. The values for the foreground
  384.         color may be 0-15, background 0-7, blink 0 or 1, and inten
  385.         0 or 1.
  386.  
  387.         Note: To set the border color in text see setpal().
  388.  
  389.         Graphics Mode:
  390.  
  391.            The color attribute byte should be the foreground color
  392.         0-15. If bit 7 is set, the color is xor'ed with the
  393.         background thus assuring visibility. The attribute byte
  394.         may be formed using setab by inputting the fore color (0-15),
  395.         0 for the back color, 0 for inten, and 1 for blink to xor the
  396.         color, or 0 in blink not to.
  397.  
  398.            Page need not be specified in graphics mode.
  399.  
  400.         See also getab(), wrtac(), getac(), wrtas(), wrtasp().
  401.                  wprint(), wprnas(), setab()
  402.  
  403.         APR 1988                FAT-VIDEO 1.21  WRTACP          Page V-11
  404.  
  405.  
  406.  
  407.  
  408.  
  409.         Note: To set the background and border color in graphics
  410.               see setpal().
  411.  
  412.         attr = attribute byte
  413.         kar  = character ascii code
  414.         row  = row(0-24)
  415.         col  = col(0-79)
  416.         Page = legal page for the adapter in use.
  417.  
  418.         Note: This function is a composite of setcp(), and wrtac().
  419.  
  420.         CGA, Mono, EGA
  421.        APR 1988                FAT-VIDEO 1.21  WRTCH           Page V-12
  422.  
  423.  
  424.         WRTCH(KAR,COLOR,PAGE) - Write a character at the curren cursor
  425.                                 position.
  426.         Usage:
  427.  
  428.           call wrtch(kar,color,page)
  429.  
  430.           integer*2 kar,color,page
  431.  
  432.           inputs:   kar,color,page
  433.  
  434.           returns:  none
  435.  
  436.           MS-Fortran 4.0 Large Model
  437.  
  438.         Description:
  439.  
  440.            This subroutine writes the character at the current
  441.         cursor position. In text mode color is not used.
  442.  
  443.            In graphics mode the color of the foreground does need
  444.         to be specified.
  445.  
  446.            The special codes backspace, carriage return, linefeed
  447.         and bell are not recognized and do cause characters
  448.         to be printed.
  449.  
  450.         kar   = character ascii code
  451.         color = foreground color in graphics
  452.         Page = legal page for adapter in use
  453.  
  454.         Int 10h, fx-0Ah
  455.  
  456.         CGA, Mono, EGA
  457.        APR 1988                FAT-VIDEO 1.21  SETPAL          Page V-13
  458.  
  459.  
  460.         SETPAL(ID,COLOR) - Set Palette, Border, Background
  461.  
  462.         Usage:
  463.  
  464.           call setpal(id,color)
  465.  
  466.           integer*2 id,color
  467.  
  468.           inputs:   id,color
  469.  
  470.           returns: none
  471.  
  472.           MS-Fortran 4.0 Large Model
  473.  
  474.         Description:
  475.            This subroutine sets the border color if in text mode, or the
  476.         border and background color if in graphics mode. In either mode,
  477.         it may also be used to select the active color palette for the
  478.         4-color graphics mode.
  479.            This function only works in the medium resolution graphics
  480.         display (mode 4), on the CGA adapter. The Pcjr or a EGA adapter
  481.         is required in text modes. To set the CGA border color in text
  482.         modes use setbc().
  483.  
  484.         Text Modes:
  485.         ID    = 0  -> sets border color - EGA only
  486.                 1  -> sets palette to use
  487.         COLOR = 0-15 for ID = 0  set border color
  488.                 0-1  for ID = 1  set palette
  489.  
  490.         Graphics Modes:
  491.         ID    = 0 -> sets color of background and border CGA,EGA
  492.                 1 -> sets palette to use
  493.         COLOR = 0-3 for ID = 0, in mode4
  494.                 0-1 for ID = 1
  495.  
  496.         palette 0:
  497.                 color 0 = current background
  498.                       1 = green
  499.                       2 = red
  500.                       3 = brown
  501.         palette 1:
  502.                 color 0 = current background
  503.                       1 = cyan
  504.                       2 = magenta
  505.                       3 = white
  506.  
  507.         Int 10h, fx-0Bh
  508.  
  509.         CGA
  510.        APR 1988                FAT-VIDEO 1.21  WRTGP           Page V-14
  511.  
  512.  
  513.         WRTGP(COLOR,ROW,COL) - Write Graphics Pixel.
  514.  
  515.         Usage:
  516.  
  517.           call wrtgp(color,row,col)
  518.  
  519.           integer*2 color,row,col
  520.  
  521.           inputs:  color,row,col
  522.  
  523.           returns: none
  524.  
  525.           MS-Fortran 4.0 Large Model
  526.  
  527.         Description:
  528.  
  529.            This subroutine writes the graphic pixel at the specified row
  530.         and column with the given color.
  531.  
  532.         color = legal pixel values: in mode 4,5 med res(0-3)
  533.                                     in mode 6 high res(0-1)
  534.                                     other modes, see your EGA manual.
  535.         row = row(y) coord
  536.                 modes: 4,6,0Dh,0Eh(0-199)
  537.                 modes: 0Fh-10h(0-349)
  538.  
  539.  
  540.         col   = column(x) coord:
  541.                 modes: 4,5,0Dh (0-319)
  542.                 modes: 6,0Eh,10h(0-639)
  543.  
  544.         See also getgp().
  545.  
  546.         Int 10h, fx-0Ch
  547.  
  548.         CGA, Mono, EGA
  549.        APR 1988                FAT-VIDEO 1.21   GETGP           Page V-15
  550.  
  551.  
  552.         GETGP(COLOR,ROW,COL) - Get Graphics Pixel Color.
  553.  
  554.         Usage:
  555.  
  556.           call getgp(color,row,col)
  557.  
  558.           integer*2 color,row,col
  559.  
  560.           inputs:   row,col
  561.  
  562.           returns:  color
  563.  
  564.           MS-Fortran 4.0 Large Model
  565.  
  566.         Description:
  567.  
  568.            This subroutine reads the graphic pixel at the specified row
  569.         and column with the given color.
  570.  
  571.         color = legal pixel values: in mode 4,5 med res(0-3)
  572.                                     in mode 6 high res(0-1)
  573.                                     EGA - see your manual.
  574.         row = row(y) coord
  575.                 modes: 4,6,0Dh,0Eh(0-199)
  576.                 modes: 0Fh-10h(0-349)
  577.  
  578.         col   = column(x) coord:
  579.                 modes: 4,5,0Dh (0-319)
  580.                 modes: 6,0Eh,10h(0-639)
  581.  
  582.         Int 10h, fx-0Dh
  583.  
  584.         CGA, Mono, EGA
  585.        APR 1988                FAT-VIDEO 1.21   CHTEL           Page V-16
  586.  
  587.  
  588.         CHTEL(CHAR,PAGE,COLOR) - Write a Character in Teletype mode.
  589.  
  590.         Usage:
  591.  
  592.           call chtel(char,page,color)
  593.  
  594.           integer*2 char,page,color
  595.  
  596.           inputs:  char,page,color
  597.  
  598.           returns: none
  599.  
  600.           MS-Fortran 4.0 Large Model
  601.  
  602.         Description:
  603.  
  604.            This subroutine writes a character to the specified
  605.         page, in the specified foreground color, in graphics mode.
  606.  
  607.            This function advances the cursor after each write.
  608.         Automatic line wrapping and scrolling are also provided.
  609.  
  610.            The special codes--backspace, carriage return, linefeed
  611.         and bell--are recognized and do not cause characters
  612.         to be printed.
  613.  
  614.         CHAR  = character to write.
  615.         PAGE  = Page to write to, not needed in graphics modes.
  616.         COLOR = color of foreground of character, in graphics only.
  617.  
  618.         See also wrtch().
  619.  
  620.         Int 10h, fx-0Eh
  621.  
  622.         CGA, Mono, EGA
  623.        APR 1988                FAT-VIDEO 1.21   GETMOD          Page V-17
  624.  
  625.  
  626.  
  627.         GETMOD(MODE,NCOL,PAGE) - Get Mode, Number of Columns, and active page.
  628.  
  629.         Usage:
  630.  
  631.           call getmod(mode,ncol,page)
  632.  
  633.           integer*2 mode,ncol,page
  634.  
  635.           inputs:  none
  636.  
  637.           returns: mode,ncol,page
  638.  
  639.           MS-Fortran 4.0 Large Model
  640.  
  641.         Description:
  642.  
  643.            This subroutine gets the current screen mode, number of columns
  644.         on screen, and display page.
  645.  
  646.         See also setvm().
  647.  
  648.         mode  Display
  649.         ----   --------
  650.         00   = 40*25 text B&W,cga
  651.         01   = 40*25 color text,cga
  652.         02   = 80*25 B&W text
  653.         03   = 80*25 color text
  654.         04   = 320*200 4-color,cga
  655.         05   = "   "    "         ,color burst off
  656.         06   = 640*200 2-color,cga
  657.         07   = Mono & EGA display
  658.         08   = 160*200 pc jr
  659.         09   = 320*200 pc jr
  660.         0A   = 640*200 pc jr
  661.         0D   = 320*200 EGA
  662.         0E   = 640*200 16-color EGA
  663.         0F   = 640*350 mono graphics,EGA
  664.         10   = 640*350 4/16 color graphics,EGA
  665.                       (4/16-depends on ram)
  666.         EGA,VGA: See your manual.
  667.  
  668.         mode = active mode
  669.         ncol = 40 or 80 columns
  670.         Page = active page
  671.  
  672.  
  673.         Int 10h, fx-0Fh
  674.  
  675.         CGA, Mono, EGA
  676.  
  677.        APR 1988                FAT-VIDEO 1.21   SETAB           Page V-18
  678.  
  679.  
  680.         SETAB(ATTR,FOR,BACK,INT,BLINK) - Set the Attribute Byte.
  681.  
  682.         Usage:
  683.  
  684.           call setab(attr,fore,back,int,blink)
  685.  
  686.           integer*2 attr,fore,back,int,blink
  687.  
  688.           inputs:   fore,back,int,blink
  689.  
  690.           returns:  attr
  691.  
  692.           MS-Fortran 4.0 Large Model
  693.  
  694.         Description:
  695.  
  696.            This subroutine forms an attribute byte from the input
  697.         foreground, background, intensity, and blink bytes.
  698.  
  699.         See also getab().
  700.  
  701.         ATTR  = attribute byte
  702.         FORE  = foreground color: (0-15), B&W: (0,1,7)
  703.         BACK  = background color: (0-7),  B&W: (0,7)
  704.         INT   = intensity  0-normal, 1-high
  705.         BLINK = blinking   0-off, 1-on
  706.  
  707.                 Colors
  708.                 ------
  709.         0 Black         8  Gray
  710.         1 Blue          9  Light Blue
  711.         2 Green         10 Light Green
  712.         3 Cyan          11 Light Cyan
  713.         4 Red           12 Pink
  714.         5 Magenta       13 Light Magenta
  715.         6 Brown         14 Yellow
  716.         7 White         15 Bright White
  717.  
  718.         Int none
  719.  
  720.         CGA, Mono, EGA
  721.        APR 1988                FAT-VIDEO 1.21   GETAB           Page V-19
  722.  
  723.  
  724.         GETAB(ATTR,FORE,BACK,INT,BLINK) - Get the Attribute Byte Values.
  725.  
  726.         Usage:
  727.  
  728.           call getab(attr,fore,back,int,blink)
  729.  
  730.           integer*2 attr,fore,back,int,blink
  731.  
  732.           inputs:  attr
  733.  
  734.           returns: fore,back,int,blink
  735.  
  736.           MS-Fortran 4.0 Large Model
  737.  
  738.         Description:
  739.  
  740.            This subroutine determines from the attribute byte the
  741.         input foreground, background, intensity, and blink bytes.
  742.  
  743.         See also setab().
  744.  
  745.         ATTR  = attribute byte
  746.         FORE  = foreground color: (0-15), B&W: (0,1,7)
  747.         BACK  = background color: (0-7),  B&W: (0,7)
  748.         INT   = intensity  0-normal, 1-high
  749.         BLINK = blinking   0-off, 1-on
  750.  
  751.                 Colors
  752.                 ------
  753.         0 Black         8  Gray
  754.         1 Blue          9  Light Blue
  755.         2 Green         10 Light Green
  756.         3 Cyan          11 Light Cyan
  757.         4 Red           12 Pink
  758.         5 Magenta       13 Light Magenta
  759.         6 Brown         14 Yellow
  760.         7 White         15 Bright White
  761.  
  762.         Int none
  763.  
  764.         CGA, Mono, EGA
  765.        APR 1988                FAT-VIDEO 1.21   WRTAS           Page V-20
  766.  
  767.  
  768.         WRTAS(ATTR,STRING) - Write Attribute and String at the cursor.
  769.  
  770.         Usage:
  771.  
  772.           call wrtas(attr,string)
  773.  
  774.           integer*2    attr
  775.           character*80 string
  776.  
  777.           inputs:  attr,string
  778.  
  779.           returns: none
  780.  
  781.           MS-Fortran 4.0 Large Model
  782.  
  783.         Description:
  784.  
  785.            This routine writes a string to the screen using the
  786.         attribute byte given.  Special characters are not recognized,
  787.         and are all printed. No carriage return, linefeeds or
  788.         backspace functions work with this function. The string is
  789.         written at the current cursor position.
  790.  
  791.            In graphics mode, if bit 7 is set in the attribute byte,
  792.         that is if blink is set in a call to setab() and you are in
  793.         graphics mode, then the foreground color is xor'ed with the
  794.         background screen to ensure the character is visible. In text
  795.         mode, the blink byte simply causes the character to blink. Any
  796.         input string must end with a character(0), the null character,
  797.         as shown below.
  798.  
  799.         See also wrtasp(), wrtac(), wrtacp().
  800.  
  801.         character*80 string
  802.         string = 'text'//char(0)  Most compilers allow this.
  803.                  'text`'          All compilers allow this.
  804.                  'text'C          Microsoft only.
  805.  
  806.         ATTR   = attribute byte define by setab()
  807.         STRING = N-byte string terminated with null character
  808.  
  809.         Int none
  810.  
  811.         CGA, Mono, EGA
  812.        APR 1988                FAT-VIDEO 1.21   WRTASP          Page V-21
  813.  
  814.  
  815.  
  816.         WRTASP(ATTR,STRING,ROW,COL,PAGE) - Write the Attribute
  817.                                            and String at Position.
  818.  
  819.         Usage:
  820.  
  821.           call wrtasp(attr,string,row,col,page)
  822.  
  823.           integer*2   attr,row,col,page
  824.           character*n string
  825.  
  826.           inputs:  attr,string,row,col,page
  827.  
  828.           returns: none
  829.  
  830.           MS-Fortran 4.0 Large Model
  831.  
  832.         Description:
  833.  
  834.            This routine writes a string to the screen using the attribute
  835.         byte given.  Special characters are not recognized, and are all
  836.         printed. No carriage return, linefeeds or backspace functions
  837.         work with this function. The string is written at the row, column
  838.         and page position specified on input. This function is otherwise
  839.         identical to wrtas().
  840.  
  841.            In graphics mode, if bit 7 is set in the attribute byte, that
  842.         is if blink is set in a call to setab() and were in graphics mode,
  843.         then the foreground color is xor'ed with the background screen to
  844.         ensure the character is visible. In text mode, the blink byte
  845.         simply causes the character to blink. Any input string must end
  846.         with a character(0), the null character, as shown below.
  847.  
  848.         character*80 string
  849.         string = 'text'//char(0)        Most compilers allow this.
  850.                  'text`'                All compilers allow this.
  851.                  'text'C                Microsoft Only.
  852.  
  853.         See also wrtas(), wrtac(), wrtacp().
  854.  
  855.         ATTR   = attribute byte define by setab()
  856.         STRING = N-byte string terminated with null character
  857.  
  858.         Int none
  859.  
  860.         CGA, Mono, EGA
  861.        APR 1988                FAT-VIDEO 1.21   PEEKB           Page V-22
  862.  
  863.  
  864.  
  865.  
  866.         PEEKB(OFF,SEG,VAL) - Get BYTE at SEG:OFF, anywhere in memory.
  867.  
  868.         Usage:
  869.  
  870.           call peekb(off,seg,val)
  871.  
  872.           integer*2    off,seg or integer*4 off,seg
  873.           integer*2    val
  874.  
  875.           inputs:  off,seg
  876.  
  877.           returns: val
  878.  
  879.           MS-Fortran 4.0 Large Model
  880.  
  881.         Description:
  882.  
  883.            This routine peeks at the byte located at seg:off and places it
  884.         in the lower byte of VAL.
  885.            This function must pass an integer*2 for VAL, and an integer*2 or
  886.         integer*4 for off and seg.  If off and/or seg is passed
  887.         as an integer*4, only the lower word is used. Seg and off must be
  888.         declared as integer*4 if they exceed +32k or -32k, as this is the
  889.         largest integer*2 value Fortran can assign. That is if you
  890.         explicitly declare seg= #B800 (hexadecimal cga screen address),
  891.         then seg must be declared as integer*4 or else the compiler will
  892.         assign a negative value to seg. In general, just declare any seg
  893.         definitions as integer*4. Note:  If a video function returns a
  894.         segment address for later use it may be declared integer*2 in all
  895.         cases, as the video functions treat integer*2 values as 0 through
  896.         +64k (unsigned integers).
  897.  
  898.         See also peekw(), pokeb(),pokew(), allmem(), fremem().
  899.  
  900.  
  901.         CGA, Mono, EGA
  902.  
  903.  
  904.         APR 1988                FAT-VIDEO 1.21   PEEKW           Page V-23
  905.  
  906.  
  907.  
  908.         PEEKW(OFF,SEG,VAL) - Get WORD at SEG:OFF, anywhere in memory.
  909.  
  910.         Usage:
  911.  
  912.           call peekw(off,seg,val)
  913.  
  914.           integer*2    off,seg or integer*4 off,seg
  915.           integer*2    val
  916.  
  917.           inputs:   off,seg
  918.  
  919.           returns:  val
  920.  
  921.           MS-Fortran 4.0 Large Model
  922.  
  923.         Description:
  924.  
  925.            This routine peeks at the word located at seg:off and places it
  926.         in the variable VAL. This function must be passed an integer for
  927.         VAL, and an integer*2 or integer*4 for off and seg.  If off and/or
  928.         seg is passed as an integer*4, only the lower VAL is altered. Seg
  929.         and off must be declared as integer*4 if they exceed +32k or -32k,
  930.         as this is the largest integer*2 value Fortran can assign. That is
  931.         if you explicitly declare seg= #B800 (hexadecimal cga screen
  932.         address), then seg must be declared as integer*4, or else the
  933.         compiler will assign a negative value to seg. In general, just
  934.         declare any seg definitions as integer*4. Note:  If a video
  935.         function returns a segment address for later use, it may be
  936.         declared integer*2 in all cases as the video functions treat
  937.         integer*2 values as 0 through +64k (unsigned integers).
  938.  
  939.         See also peekb(), pokeb(),pokew(),allemm(),fremem().
  940.  
  941.         Off     = offset
  942.         Seg     = segment paragraph
  943.         Val     = returned
  944.  
  945.         Int none
  946.  
  947.         CGA, Mono, EGA
  948.  
  949.