Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
SETROWS.FOR
◄Up► ◄Contents► ◄Index► ◄Back►
────────────────────────────────────────────────────────────────────────────
CC SETROWS.FOR - Illustrates:settextrows
INCLUDE 'FGRAPH.FI'
INCLUDE 'FGRAPH.FD'
INTEGER*2 rows
CHARACTER*2 arg
C
C Get command line argument: 25, 43, or 50.
C
CALL GETARG( 1, arg, 2 )
rows = 0
IF( arg .EQ. '25' ) rows = 25
IF( arg .EQ. '30' ) rows = 30
IF( arg .EQ. '43' ) rows = 43
IF( arg .EQ. '50' ) rows = 50
IF( arg .EQ. '60' ) rows = 60
C
C Make sure new rows are valid and the same as requested rows.
C
IF( (rows .EQ. 0) .OR. (settextrows( rows ) .NE. rows) ) THEN
WRITE (*,*) 'Syntax: SETROWS [ 25 | 30 | 43 | 50 | 60 ]'
STOP 01
END IF
C
C Return 0 if successful
C
STOP 00
END