Intel® Fortran Libraries Reference

2 Intel Fortran Libraries Referenceinteger*4 resinteger*2 excharcharacter*1 ch, ch1Print *,"Type X to exit, S to scroll, D to pass Direction keys"123 continueexchar = incharqq()! check for escapes! 0xE0 0x?? is a function key! 0xF0 0x?? is a direction keych = char(rshift(exchar,8) .and. Z'00FF')ch1= char(exchar .and. Z'00FF')if (ichar(ch) .eq. 224) thenprint *,"function key = ",ichar(ch), " ",ichar(ch1)," ",ch1goto 123endifif (ichar(ch) .eq. 240) thenprint *,"direction key = ",ichar(ch), " ",ichar(ch1)," ",ch1goto 123endifprint *,"other key = ",ichar(ch)," ",ichar(ch1)," ",ch1if(ch1 .eq. ’S’) thenres = passdirkeysqq(.false.)print *, "Entering Scroll mode"endifif(ch1 .eq. ’D’) thenres = passdirkeysqq(.true.)print *, "Entering Direction keys mode"endifif(ch1 .ne. ’X’)go to 123endINITIALIZEFONTSGraphics Function: Initializes Windows* fonts. This function is only available on Windows*systems.Module: USE IFQWIN2-174