home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l291 / 6.ddi / WRAP.FO$ / WRAP.bin
Encoding:
Text File  |  1990-09-28  |  2.0 KB  |  68 lines
  1. CC  WRAP.FOR - Illustrates:
  2. CC             wrapon
  3.  
  4.       INCLUDE  'FGRAPH.FI'
  5.       INCLUDE  'FGRAPH.FD'
  6.  
  7.       INTEGER*2              status2, old_color, old_mode, row, col
  8.       INTEGER*4              status4, old_bk
  9.       CHARACTER*22           text
  10.       CHARACTER*80           border
  11.       RECORD / rccoord /     curpos
  12.       RECORD / videoconfig / vc
  13.  
  14.       DATA text / 'Here text DOES wrap.  ' /
  15.       CALL getvideoconfig( vc )
  16.       old_mode  = vc.mode
  17.       old_color = gettextcolor()
  18.       old_bk    = getbkcolor()
  19.       IF( vc.numtextcols .NE. 80 ) THEN
  20.          IF( setvideomode( $TEXTC80 ) .EQ. 0 )
  21.      +       status2 = setvideomode( $TEXTMONO )
  22.       END IF
  23.       status2    = settextcolor( 14 )
  24.       status4    = setbkcolor( 1 )
  25.       CALL clearscreen( $GCLEARSCREEN )
  26. C
  27. C     Draw window borders.
  28. C
  29.       DO i = 1, 80
  30.          border(i:i) = CHAR( 219 )
  31.       END DO
  32.       CALL settextposition( 13, 1, curpos )
  33.       CALL outtext( border )
  34.       col = 60
  35.       DO row = 1, 25
  36.          IF( row .EQ. 13 ) col = 20
  37.          CALL settextposition( row, col, curpos )
  38.          CALL outtext( border(1:1) )
  39.       END DO
  40. C
  41. C     Display wrapped and unwrapped text in windows.
  42. C
  43.       status4 = setbkcolor( 0 )
  44.       CALL settextwindow( 1, 1, 13, 59 )
  45.       CALL settextposition( 1, 1, curpos )
  46.       status2 = wrapon( $GWRAPON )
  47.       status2 = settextcolor( 10 )
  48.       DO i = 1, 32
  49.          CALL outtext( text )
  50.       END DO
  51.       CALL outtext( text )
  52.       CALL settextwindow( 14, 21, 25, 80 )
  53.       CALL settextposition( 1, 1, curpos )
  54.       status2 = wrapon( $GWRAPOFF )
  55.       status2 = settextcolor( 12 )
  56.       DO row = 1, 12
  57.          CALL settextposition( row, 1, curpos )
  58.          DO i = 1, 3
  59.             CALL outtext( text(1:15) // 'NOT ' // text(16:22) )
  60.          END DO
  61.       END DO
  62.  
  63.       READ (*,*)  ! Wait for ENTER to be pressed
  64.       status2 = setvideomode( old_mode )
  65.       status2 = settextcolor( old_color )
  66.       status4 = setbkcolor( old_bk )
  67.       END
  68.