Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceCALL CLEARSCREEN ( $GCLEARSCREEN )CALL SETTEXTPOSITION (INT2(1), INT2(1), oldpos)DO row = 1, 6string = 'Hello, World # 'CALL SETTEXTPOSITION( row, INT2(1), oldpos )WRITE(string(15:16), '(I2)') rowCALL OUTTEXT( string )END DOistat = displaycursor($GCURSORON)WRITE(*,'(1x,A\)') 'Hit ENTER'READ (*,*) ! wait for ENTER! Scroll window down 4 linesCALL SCROLLTEXTWINDOW(INT2( -4) )CALL SETTEXTPOSITION (INT2(10), INT2(18), oldpos)WRITE(*,'(2X,A\)') "Hit ENTER"READ( *,* ) ! wait for ENTER! Scroll window up 5 linesCALL SCROLLTEXTWINDOW( INT2(5 ))ENDSCWRQQPortability Subroutine: Returns the floating-point processor control word.Module: USE IFPORTSyntaxCALL SCWRQQ (control)control(Output) INTEGER(2). Floating-point processor control word.SCRWQQ performs the same function as the run-time subroutine GETCONTROLFPQQ, and isprovided for compatibility.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “GETCONTROLFPQQ”, “LCWRQQ”ExampleSee the example in “LCWRQQ”.2-384