Intel® Fortran Libraries Reference

2 Intel Fortran Libraries Referencec dirkeys4.forcc======================================================================cc Compile/Load Input Line for Standard Graphics Full Screen Windowcc ifort /libs:qwins dirkeys4.forcc Compile/Load Input Line for QuickWin Graphicscc ifort /libs:qwin dirkeys4.forcc Program to illustrate how to get almost every characterc from the keyboard in QuickWin or Standard Graphics mode.c Comment out the deletemenu line for Standard Graphics mode.cc If you are doing a standard graphics application,c control C will come in as a Z’03’ without furtherc effort.cc In a QuickWin application, The File menu Exit item mustc be deleted, and PassDirKeysQQ called with PASS_DIR_CNTRLCc to get control C.cc=======================================================================use IFQWINinteger(4) statuscharacter*1 key1,key2,ch1write(*,*) 'Initializing'c-----don’t do this for a Standard Grapics applicationc remove File menu Exit item.status = deletemenuqq(1,3) ! stop QuickWin from getting control Cc-----set up to pass all keys to window including control c.status = passdirkeysqq(PASS_DIR_CNTRLC)c===============================================================cc read and print charactersc2-242