Power-Programmierung/CD1.mdf/fortran/mslang/fi_32/win32api.fi

Text File | 1994-01-20 | 26.9 KB | 874 lines

c*sleep
      Interface to Subroutine Sleep
     1 [stdcall,alias:'_Sleep@4'] (cMilliseconds)
      integer*4 cMilliseconds[VALUE]
      end
c*OpenFileMapping
      Interface to Integer*4 Function OpenFileMapping
     1 [stdcall,alias:'_OpenFileMappingA@12'] (dwDesiredAccess,
     2 bInheritHandle,lpszMapName)
      integer*4 dwDesiredAccess[VALUE]
      logical*4 bInheritHandle[VALUE]
      integer*4 lpszMapName[VALUE]
      end
c*CreateFileMapping
      Interface to Integer*4 Function CreateFileMapping
     1 [stdcall,alias:'_CreateFileMappingA@24'] (hFile,lpsa,
     2 fdwProtect,dwMaximumSizeHigh,dwMaximumSizeLow,lpszMapName)
      integer*4 hFile[VALUE]
      integer*4 lpsa[VALUE]
      integer*4 fdwProtect[VALUE]
      integer*4 dwMaximumSizeHigh[VALUE]
      integer*4 dwMaximumSizeLow[VALUE]
      integer*4 lpszMapName[VALUE]
      end
c*MapViewOfFileEx
      Interface to Integer*4 Function MapViewOfFileEx
     1 [stdcall,alias:'_MapViewOfFileEx@24'] (hMapObject,fdwAccess,
     2 dwOffsetHigh,dwOffSetLow,cbMap,lpvBase)
      integer*4 hMapObject[VALUE]
      integer*4 fdwAccess[VALUE]
      integer*4 dwOffsetHigh[VALUE]
      integer*4 dwOffsetLow[VALUE]
      integer*4 cbMap[VALUE]
      integer*4 lpvBase[VALUE]
      end
c*MapViewOfFile
      Interface to Integer*4 Function MapViewOfFile
     1 [stdcall,alias:'_MapViewOfFile@20'] (hMapObject,fdwAccess,
     2 dwOffsetHigh,dwOffSetLow,cbMap)
      integer*4 hMapObject[VALUE]
      integer*4 fdwAccess[VALUE]
      integer*4 dwOffsetHigh[VALUE]
      integer*4 dwOffsetLow[VALUE]
      integer*4 cbMap[VALUE]
      end
c*registerclass
      Interface to Integer*4 Function RegisterClass
     1 [stdcall,alias:'_RegisterClassA@4']
     1 (WindowClass)
      structure/wndclass/
        integer*4 style
        integer*4 lpfnWndProc
        integer*4 cbClsExtra
        integer*4 cbWndExtra
        integer*4 hInstance
        integer*4 hIcon
        integer*4 hCursor
        integer*4 hbrBackground
        integer*4 lpszMenuName
        integer*4 lpszClassName
      end structure
      record /wndclass/ windowclass[REFERENCE]
      end
c*unregisterclass
      Interface to Integer*4 Function UnRegisterClass [stdcall]
     1 (lpClassName,hInstance)
      integer*4 lpclassname[VALUE]
      integer*4 hInstance[VALUE]
      end
c*getprinterdc
      Interface to Integer*4 Function GetPrinterDC
     1  [stdcall,alias:'_GetPrinterDC@0'] ()
      end
c*deletedc
      Interface to Integer*4 Function DeleteDC [stdcall,
     1 alias:'_DeleteDC@4']
     1 (hDC)
      integer*4 hDC[VALUE]
      end
c*getdevicecaps
      Interface to Integer*4 Function GetDeviceCaps
     1  [stdcall,alias:'_GetDeviceCaps@8']
     1 (hDC,nindex)
      integer*4 hDC[VALUE]
      integer*4 nindex[VALUE]
      end
c*escape
      Interface to Integer*4 Function Escape
     1  [stdcall,alias:'_Escape@20']
     1 (hDC,nEscape,nCount,lplnData,lpOutData)
      integer*4 hDC[VALUE]
      integer*4 nEscape[VALUE]
      integer*4 nCount[VALUE]
      integer*4 lplnData [Value]
      integer*4 lpOutData [Value]
      end
c*createwindowex
      Interface to Integer*4 Function CreateWindowEx
     1 [stdcall,alias:'_CreateWindowExA@48']
     1 (dwExStyle,
     1 lpszclassname,
     1 lpszcaption,
     2 dwstyle,
     3 nxposition,
     4 nyposition,
     5 nwidth,
     6 nheight,
     7 hWndParent,
     8 hMenu,
     9 hInstance,
     1 lpparam)
      integer*4 dwExStyle[VALUE]
      integer*4 lpszclassname[VALUE]
      integer*4 lpszcaption[VALUE]
      integer*4 dwstyle[VALUE]
      integer*4 nxposition[VALUE]
      integer*4 nyposition[VALUE]
      integer*4 nWidth[VALUE]
      integer*4 nHeight[VALUE]
      integer*4 hWndParent[VALUE]
      integer*4 hMenu[VALUE]
      integer*4 hInstance[VALUE]
      integer*4 lpparam[VALUE]
      end
c*showwindow
      Interface to Subroutine ShowWindow
     1 [stdcall,alias:'_ShowWindow@8'] (hWnd,nCmdShow)
      integer*4 hWnd[VALUE]
      integer*4 nCmdShow[VALUE]
      end
c*updatewindow
      Interface to Subroutine UpdateWindow
     1 [stdcall,alias:'_UpdateWindow@4'] (hWnd)
      integer*4 hWnd[VALUE]
      end
c*loadcursor
      Interface to Integer*4 Function LoadCursor
     1 [stdcall,alias:'_LoadCursorA@8'] (hInstance,
     1lpszCursor)
      integer*4 hInstance[VALUE]
      Integer*4 lpszCursor[VALUE]
      END
c*loadicon
      Interface to Integer*4 Function LoadIcon [stdcall]
     1 (hInstance,lpszIcon)
      integer*4 hInstance[VALUE]
      Integer*4 lpszIcon[VALUE]
      END
c*getmessage
      Interface to Integer*4 Function GetMessage
     1 [stdcall,alias:'_GetMessageA@16'] (msg,
     1 hInsta,wparam1,wparam2)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       integer*4 hInsta[VALUE]
       integer*4 wparam1[VALUE]
       integer*4 wparam2[VALUE]
       End
c*translatemessage
       Interface to Subroutine TranslateMessage
     1 [stdcall,alias:'_TranslateMessage@4'] (msg)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       End
c*dispatchmessage
       Interface to Subroutine DispatchMessage
     1 [stdcall,alias:'_DispatchMessageA@4'] (msg)
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
       Record /tagmsg/ msg [REFERENCE]
       End
c*enddialog
       Interface to Subroutine EndDialog [stdcall] (hDlg,nResult)
       integer*4 hDlg [VALUE]
       integer*4 nResult [VALUE]
       End
c*getdlgitemtext
       Interface to Integer*4 Function GetDlgItemText [stdcall] (hDlg,
     1 nlDDlgItem,lpString,nMaxCount)
       integer*4 hDlg [VALUE]
       integer*4 nlDDlgItem [VALUE]
       Character*80 lpString [REFERENCE]
       integer*4 nMaxCount [VALUE]
       END
c*getdlgitem
       Interface to Integer*4 Function GetDlgItem [stdcall] (hDlg,
     1 nlDDlgItem)
       integer*4 hDlg[VALUE]
       integer*4 nlDDlgItem[VALUE]
       END
c*setfocus
       Interface to Integer*4 Function SetFocus
     1  [stdcall,alias:'_SetFocus@4'] (hWnd)
       integer*4 hWnd[VALUE]
       END
c*setdlgitemtext
       Interface to subroutine SetDlgItemText [stdcall] (hDlg,
     1 nlDDlgItem,lpstring)
        integer*4 hDlg [VALUE]
        integer*4 nlDDlgItem [VALUE]
        Character*80 lpstring[REFERENCE]
       END
c*makeprocinstance
       Interface to integer*4 function MakeProcInstance [stdcall]
     1 (lpProc,hInstance)
        Integer*4 lpProc [VALUE]
        integer*4 hInstance [VALUE]
       END
c*dialogbox
       Interface to Integer*4 Function DialogBox [stdcall]
     1 (hInstance,lpTemplateName,hWndParent,lpDialogFunc)
        integer*4 hInstance [VALUE]
        Integer*4 lpTemplateName [VALUE]
        integer*4 hWndParent [VALUE]
        Integer*4 lpDialogFunc [VALUE]
       END
c*freeprocinstance
       Interface to subroutine FreeProcInstance [stdcall]
     1  (lpProc)
        Integer*4 lpProc [VALUE]
       END
c*defwindowproc
       Interface to integer*4 function DefWindowProc
     1  [stdcall,alias:'_DefWindowProcA@16']
     1 (hWnd,wMsg,wParam,lParam)
        integer*4 hWnd [VALUE]
        Integer*4 wMsg [VALUE]
        Integer*4 wParam [VALUE]
        Integer*4 lParam [VALUE]
       END
c*movewindow
       Interface to subroutine MoveWindow
     1  [stdcall,alias:'_MoveWindow@24']
     1  (hWnd,nX,nY,nWidth,nHeight,bRepaint)
        Integer*4 hWnd [VALUE]
        integer*4 nX [VALUE]
        integer*4 nY [VALUE]
        integer*4 nWidth [VALUE]
        integer*4 nHeight [VALUE]
        integer*4 bRepaint [VALUE]
       END
c*postquitmessage
       Interface to subroutine PostQuitMessage
     1  [stdcall,alias:'_PostQuitMessage@4']
     1  (nExitCode)
        integer*4 nExitCode [VALUE]
       END
c*releasedc
       Interface to Integer*4 Function ReleaseDC
     1  [stdcall,alias:'_ReleaseDC@8']
     1  (hWnd,hDC)
        integer*4 hWnd [VALUE]
        integer*4 hDC [VALUE]
       END
c*getdc
       Interface to Integer*4 Function GetDC [stdcall,alias:'_GetDC@4']
     1  (hWnd)
        integer*4 hWnd [VALUE]
       END
c*getstockobject
       Interface to Integer*4 Function GetStockObject
     1  [stdcall,alias:'_GetStockObject@4']
     1  (nIndex)
        integer*4 nIndex [VALUE]
       END
c*selectobject
       Interface to Integer*4 Function SelectObject
     1  [stdcall,alias:'_SelectObject@8']
     1  (hDC,hObject)
        integer*4 hDC [VALUE]
        integer*4 hObject [VALUE]
       END
c*gettextmetrics
       Interface to Integer*4 Function GetTextMetrics
     1  [stdcall,alias:'_GetTextMetricsA@8']
     1  (hDC,tm)
        integer*4 hDC [VALUE]
        structure /tagTextMetric/
          integer*4 tmHeight
          integer*4 tmAscent
          integer*4 tmDescent
          integer*4 tmInternalLeading
          integer*4 tmExternalLeading
          integer*4 tmAveCharWidth
          integer*4 tmMaxCharWidth
          integer*4 tmWeight
          INTEGER*1 tmItalic
          INTEGER*1 tmUnderlined
          INTEGER*1 tmStruckOut
          INTEGER*1 tmFirstChar
          INTEGER*1 tmLastChar
          INTEGER*1 tmDefaultChar
          INTEGER*1 tmBreakChar
          INTEGER*1 tmPitchAndFamily
          INTEGER*1 tmCharSet
          integer*4 tmOverhang
          integer*4 tmDigitizedAspectX
          integer*4 tmDigitizedAspectY
        end structure
        RECORD /tagTEXTMETRIC/ tm[REFERENCE]
       END
c*textout
       Interface to Integer*4 Function TextOut
     1  [stdcall,alias:'_TextOutA@20'] (hDC,
     1 X,Y,lpstring,nCount)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
        Character*80 lpstring [REFERENCE]
        integer*4 nCount [VALUE]
       END
c*settextcolor
       Interface to Integer*4 Function SetTextColor
     1  [stdcall,alias:'_SetTextColor@8'] (hDC,
     1 crColor)
        integer*4 hDC [VALUE]
        Integer*4 crColor [VALUE]
       END
c*setbkcolor
       Interface to Integer*4 Function SetBkColor
     1  [stdcall,alias:'_SetBkColor@8'] (hDC,
     1 crColor)
        integer*4 hDC [VALUE]
        Integer*4 crColor [VALUE]
       END
c*setbkmode
       Interface to Integer*4 Function SetBkMode
     1  [stdcall,alias:'_SetBkMode@8'] (hDC,
     1 nBkMode)
        integer*4 hDC [VALUE]
        integer*4 nBkMode [VALUE]
       END
c*setbrushorg
       Interface to Integer*4 Function SetBrushOrg [stdcall] (hDC,
     1 X,Y)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
       END
c*setmapmode
       Interface to Integer*4 Function SetMapMode [stdcall] (hDC,
     1 nMapMode)
        integer*4 hDC [VALUE]
        integer*4 nMapMode [VALUE]
       END
c*getpixel
       Interface to Integer*4 Function GetPixel [stdcall] (hDC,
     1 X,Y)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
       END
c*setpixel
       Interface to Integer*4 Function SetPixel [stdcall] (hDC,
     1 X,Y,crColor)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
        Integer*4 crColor [VALUE]
       END
c*getsyscolor
       Interface to Integer*4 Function GetSysColor
     1  [stdcall,alias:'_GetSysColor@4'] (nIndex)
        integer*4 nIndex [VALUE]
       END
c*invalidaterect
       Interface to Subroutine InvalidateRect
     1  [stdcall,alias:'_InvalidateRect@12'] (hWnd,
     1 lpRect,bErase)
       integer*4 hWnd [VALUE]
       INTEGER*4 lpRect [VALUE]
       integer*4 bErase [VALUE]
       END
c*beginpaint
       Interface to Integer*4 Function BeginPaint
     1  [stdcall,alias:'_BeginPaint@8'] (hWnd,
     1 lpPaint)
       integer*4 hWnd [VALUE]
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
       record /tagPAINTSTRUCT/ lpPAINT [REFERENCE]
       END
c*endpaint
       Interface to Subroutine EndPaint
     1  [stdcall,alias:'_EndPaint@8'] (hWnd,
     1 lpPaint)
       integer*4 hWnd [VALUE]
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
       record /tagPAINTSTRUCT/ lpPAINT [REFERENCE]
       END
c*getwindowtext
       Interface to Integer*4 Function GetWindowText
     1  [stdcall,alias:'_GetWindowTextA@12'] (hWnd,
     1  lpstring,nMaxCount)
        integer*4 hWnd [VALUE]
        Character*80 lpstring[REFERENCE]
        integer*4 nMaxCount [VALUE]
       END
c*setwindowtext
       Interface to Subroutine SetWindowText
     1  [stdcall,alias:'_SetWindowTextA@8'] (hWnd,
     1  lpstring)
        integer*4 hWnd [VALUE]
        Character*80 lpstring[REFERENCE]
       END
c*sendmessage
       Interface to Integer*4 Function SendMessage
     1  [stdcall,alias:'_SendMessageA@16'] (hWnd,
     1 wMsg,wParam,lParam)
        integer*4 hWnd [VALUE]
        integer*4 wMsg [VALUE]
        integer*4 wParam [VALUE]
        Integer*4 lParam [VALUE]
       END
c*loadaccelerators
       Interface to Integer*4 Function LoadAccelerators [stdcall] (hWnd,
     1 lpTableName)
        integer*4 hWnd [VALUE]
        Integer*4 lpTableName [VALUE]
       END
c*translateaccelerator
       Interface to Integer*4 Function TranslateAccelerator [stdcall]
     1  (hWnd,hAccTable,Msg)
        integer*4 hWnd [VALUE]
        integer*4 hAccTable [VALUE]
        structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
        End Structure
        Record /tagmsg/ msg [REFERENCE]
       END
c*destroywindow
       Interface to Integer*4 Function DestroyWindow
     1  [stdcall,alias:'_DestroyWindow@4'] (hWnd)
        integer*4 hWnd [VALUE]
       END
c*createsolidbrush
       Interface to Integer*4 Function CreateSolidBrush
     1  [stdcall,alias:'_CreateSolidBrush@4'] (brush)
        Integer*4 brush [VALUE]
       END
c*deleteobject
       Interface to Subroutine DeleteObject
     1  [stdcall,alias:'_DeleteObject@4'] (hObject)
        integer*4 hObject [VALUE]
       END
c*lineto
       Interface to Integer*4 Function LineTo
     1  [stdcall,alias:'_LineTo@12'] (hDC,
     1 X,Y)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
       END
c*movetoex
       Interface to Integer*4 Function MoveToEx
     1  [stdcall,alias:'_MoveToEx@16'] (hDC,
     1 X,Y,LPPOINT)
        integer*4 hDC [VALUE]
        integer*4 X [VALUE]
        integer*4 Y [VALUE]
        Integer*4 LPPOINT[VALUE]
       END
c*createpenindirect
       Interface to Integer*4 Function CreatePenIndirect
     1  [stdcall,alias:'_CreatePenIndirect@4']
     1 (pen)
       structure /tagLOGPEN/
          INTEGER*4 style
          INTEGER*4 x
          INTEGER*4 y
          INTEGER*4 color
       end structure
       Record /tagLOGPEN/ pen [REFERENCE]
       END
c*setrop2
       Interface to Integer*4 Function SetROP2
     1  [stdcall,alias:'_SetROP2@8'] (hDC,
     1 nDrawMode)
        integer*4 hDC [VALUE]
        integer*4 nDrawMode [VALUE]
       END
c*settimer
       Interface to Integer*4 Function SetTimer
     1  [stdcall,alias:'_SetTimer@16']
     1  (hWnd,idTimer,uTimeout,tmprc)
        integer*4 hWnd [VALUE]
        integer*4 idTimer [VALUE]
        integer*4 uTimeout [VALUE]
        Integer*4 tmprc [VALUE]
       END
c*killtimer
       Interface to Integer*4 Function KillTimer
     1  [stdcall,alias:'_KillTimer@8']
     1  (hWnd,idTimer)
        integer*4 hWnd [VALUE]
        integer*4 idTimer [VALUE]
       END
c*createfont
       Interface to Integer*4 Function CreateFont
     1  [stdcall,alias:'_CreateFontA@56']
     1  (nHeight,
     1 nWidth,nEscapement,nOrientation,nWeight,cItalic,cUnderline,
     2 cStrikeOut,cCharSet,cOutPrecision,cClipPrecision,cQuality,
     3 cPitchAndFamily,lpFacename)
        integer*4 nHeight [VALUE]
        integer*4 nWidth [VALUE]
        integer*4 nEscapement [VALUE]
        integer*4 nOrientation [VALUE]
        integer*4 nWeight [VALUE]
        Integer*1 cItalic [VALUE]
        Integer*1 cUnderline [VALUE]
        Integer*1 cStrikeOut [VALUE]
        Integer*1 cCharSet [VALUE]
        Integer*1 cOutPrecision [VALUE]
        Integer*1 cClipPrecision [VALUE]
        Integer*1 cQuality [VALUE]
        Integer*1 cPitchAndFamily [VALUE]
        Integer*4 lpFacename [VALUE]
       END
c*sndplaysound
       Interface to Integer*4 Function sndPlaySound
     1  [stdcall,alias:'_sndPlaySoundA@8']
     1  (lpszSoundName,wFlags)
        Integer*4 lpszSoundName [VALUE]
        integer*4 wFlags [VALUE]
       END
c*selectpalette
      Interface to Integer*4 Function SelectPalette [stdcall]
     1 (hDC,hpal,fPalBack)
      Integer*4 hDC[VALUE]
      Integer*4 hpal[VALUE]
      Integer*4 fPalBack[VALUE]
      end
c*realizepalette
      Interface to Integer*4 Function RealizePalette [stdcall]
     1 (hDC)
      Integer*4 hDC[VALUE]
      end
c*getcommerror
      Interface to Integer*4 Function GetCommError
     1  [stdcall,alias:'_GetCommError@8']
     1 (idComDev,comstat)
       structure /tagCOMSTAT/
          Integer*1 status
          Integer*4 cbInQue
          Integer*4 cbOutQue
       End Structure
       Integer*4 idComDev[VALUE]
       record /tagcomstat/ comstat[REFERENCE]
      end
c*createcompatiblebitmap
      Interface to Integer*4 Function CreateCompatibleBitmap [stdcall]
     1 (hDC,nWidth,nHeight)
      Integer*4 hDC[VALUE]
      Integer*4 nWidth[VALUE]
      Integer*4 nHeight[VALUE]
      end
c*createpalette
      Interface to Integer*4 Function CreatePalette [stdcall]
     1 (palversion)
      Integer*4 palversion[REFERENCE]
      end
c*setstretchbltmode
      Interface to Integer*4 Function SetStretchBltMode [stdcall]
     1 (hDC,fnStretchMode)
      Integer*4 hDC[VALUE]
      Integer*4 fnStretchMode[VALUE]
      end
c*getmapmode
      Interface to Integer*4 Function GetMapMode [stdcall]
     1 (hDC)
      Integer*4 hDC[VALUE]
      end
c*createdibitmap
      Interface to Integer*4 Function CreateDIBitmap [stdcall,
     1 alias:'_CreateDIBitmap@24']
     1 (hDC,lpbmih,dwInit,lpvBits,lpbmi,fnColorUse)
      Integer*4 hDC[VALUE]
      integer*4 lpbmih[VALUE]
      integer*4 dwInit[VALUE]
      integer*4 lpvBits[VALUE]
      integer*4 lpbmi[VALUE]
      Integer*4 fnColorUse[VALUE]
      end
c*stretchblt
      Interface to Integer*4 Function StretchBlt [stdcall]
     1 (hDCdest,nxorigindest,nyorigindest,nwidthdest,nheightdest,
     2 hdcsrc,nxoriginsrc,nyoriginsrc,nwidthsrc,nheightsrc,fdwrop)
      Integer*4 hDCdest[VALUE]
      Integer*4 nxorigindest[VALUE]
      Integer*4 nyorigindest[VALUE]
      Integer*4 nwidthdest[VALUE]
      Integer*4 nheightdest[VALUE]
      Integer*4 hDCsrc[VALUE]
      Integer*4 nxoriginsrc[VALUE]
      Integer*4 nyoriginsrc[VALUE]
      Integer*4 nwidthsrc[VALUE]
      Integer*4 nheightsrc[VALUE]
      integer*4 fdwrop[VALUE]
      end
c*stretchdibits
      Interface to Integer*4 Function StretchdiBits [stdcall]
     1 (hDC,xdest,ydest,cxdest,cydest,
     2 xsrc,ysrc,cxsrc,cysrc,lpvbits,lpvbmi,fucoloruse,fdwrop)
      Integer*4 hDC[VALUE]
      Integer*4 xdest[VALUE]
      Integer*4 ydest[VALUE]
      Integer*4 cxdest[VALUE]
      Integer*4 cydest[VALUE]
      Integer*4 xsrc[VALUE]
      Integer*4 ysrc[VALUE]
      Integer*4 cxsrc[VALUE]
      Integer*4 cysrc[VALUE]
      integer*4 lpvbits[VALUE]
      integer*4 lpvbmi[VALUE]
      Integer*4 fucoloruse[VALUE]
      integer*4 fdwrop[VALUE]
      end
c*createbitmapindirect
      Interface to Integer*4 Function CreateBitMapIndirect [stdcall]
     1 (bitmap)
       structure /tagBitMap/
          Integer*2 bmType
          Integer*2 bmWidth
          Integer*2 bmHeight
          Integer*2 bmWidthBytes
          Integer*1 bmPlanes
          Integer*1 bmBitsPixel
          Integer*4 bmBits
       End Structure
       Record /tagbitmap/ bitmap[REFERENCE]
      end
c*setbitmapbits
      Interface to Integer*4 Function SetBitmapBits [stdcall]
     1 (hbmp,cbits,lpvbits)
      Integer*4 hbmp[VALUE]
      integer*4 cbits[VALUE]
      character*(*) lpvbits[REFERENCE]
      end
c*bitblt
      Interface to Integer*4 Function BitBlt [stdcall,
     1 alias:'_BitBlt@36']
     1 (hDCdest,nXDest,nYDest,nWidth,nHeight,hdcSrc,nXSrc,nYSrc,dwRop)
      integer*4 hDCdest[VALUE]
      integer*4 nXDest[VALUE]
      integer*4 nYDest[VALUE]
      integer*4 nWidth[VALUE]
      integer*4 nHeight[VALUE]
      integer*4 hDCSRC[VALUE]
      integer*4 nXSrc[VALUE]
      integer*4 nYSrc[VALUE]
      integer*4 dwRop[VALUE]
      end
c*createcompatibledc
      Interface to Integer*4 Function CreateCompatibleDC [stdcall,
     1 alias:'_CreateCompatibleDC@4']
     1 (hDC)
      Integer*4 hDC[VALUE]
      end
c*closecomm
      Interface to Integer*4 Function CloseComm
     1  [stdcall,alias:'_CloseComm@4']
     1 (idComDev)
      Integer*4 idComDev[VALUE]
      end
c*clearcommbreak
      Interface to Integer*4 Function ClearCommBreak
     1  [stdcall,alias:'_ClearCommBreak@4']
     1 (idComDev)
      Integer*4 idComDev[VALUE]
      end
c*flushcomm
      Interface to Integer*4 Function flushComm
     1  [stdcall,alias:'_FlushComm@8']
     1 (idComDev,fnQueue)
      Integer*4 idComDev[VALUE]
      Integer*4 fnQueue[VALUE]
      end
c*getcommeventmask
      Interface to Integer*4 Function GetCommEventMask
     1  [stdcall,alias:'_GetCommEventMask@8']
     1 (idComDev,event)
      Integer*4 idComDev[VALUE]
      Integer*4 event[VALUE]
      end
c*setcommeventmask
      Interface to Integer*4 Function SetCommEventMask
     1  [stdcall,alias:'_SetCommEventMask@8']
     1 (idComDev,event)
      Integer*4 idComDev[VALUE]
      Integer*4 event[VALUE]
      end
c*readcomm
      Interface to Integer*4 Function ReadComm
     1  [stdcall,alias:'_ReadComm@12']
     1 (idComDev,lpvbuf,cbread)
      Integer*4 idComDev[VALUE]
      integer*1 lpvbuf[REFERENCE]
      Integer*4 cbRead[VALUE]
      end
c*writecomm
      Interface to Integer*4 Function WriteComm
     1  [stdcall,alias:'_WriteComm@12']
     1 (idComDev,lpvbuf,cbread)
      Integer*4 idComDev[VALUE]
      integer*1 lpvbuf[REFERENCE]
      Integer*4 cbRead[VALUE]
      end
c*transmitcommchar
      Interface to Integer*4 Function TransmitCommChar [stdcall]
     1 (idComDev,chTransmit)
      Integer*4 idComDev[VALUE]
      character*1 chTransmit[VALUE]
      end
c*enablecommnotification
      Interface to Integer*4 Function EnableCommNotification
     1  [stdcall,alias:'_EnableCommNotification@16']
     1 (idComDev,hwnd,cbWriteNotify,cbOutQueue)
      Integer*4 idComDev[VALUE]
      Integer*4 hwnd[VALUE]
      Integer*4 cbWriteNotify[VALUE]
      Integer*4 cbOutQueue[VALUE]
      end
c*setcommstate
      Interface to Integer*4 Function SetCommState
     1  [stdcall,alias:'_SetCommState@4']
     1 (DCB)
       structure /tagdcb/
          Integer*1 Id
          Integer*4 BaudRate
          Integer*1 ByteSize
          Integer*1 Parity
          Integer*1 StopBits
          Integer*4 RlsTimeout
          Integer*4 CtsTimeout
          Integer*4 DsrTimeout
          Integer*4 flags
          Integer*1 XonChar
          Integer*1 XoffChar
          Integer*4 XonLim
          Integer*4 XoffLim
          Integer*1 PeChar
          Integer*1 EofChar
          Integer*1 EvtChar
          Integer*4 TxDelay
       End Structure
      record /tagDCB/ DCB[REFERENCE]
      end
c*getcommstate
      Interface to Integer*4 Function GetCommState
     1  [stdcall,alias:'_GetCommState@8']
     1 (idComDev,DCB)
       Integer*4 idComDev[VALUE]
       structure /tagdcb/
          Integer*1 Id
          Integer*4 BaudRate
          Integer*1 ByteSize
          Integer*1 Parity
          Integer*1 StopBits
          Integer*4 RlsTimeout
          Integer*4 CtsTimeout
          Integer*4 DsrTimeout
          Integer*4 flags
          Integer*1 XonChar
          Integer*1 XoffChar
          Integer*4 XonLim
          Integer*4 XoffLim
          Integer*1 PeChar
          Integer*1 EofChar
          Integer*1 EvtChar
          Integer*4 TxDelay
       End Structure
      record /tagDCB/ DCB[REFERENCE]
      end
c*loadbitmap
      Interface to Integer*4 Function LoadBitMap [stdcall] (hInstance,
     1lpszCursor)
      Integer*4 hInstance[VALUE]
      Integer*4 lpszCursor[VALUE]
      END
c*getobject
       Interface to Integer*4 Function GetObject [stdcall]
     1  (HGDIOBJ,cbBuffer,lpvObject)
        structure /tagBitMap/
          Integer*2 bmType
          Integer*2 bmWidth
          Integer*2 bmHeight
          Integer*2 bmWidthBytes
          Integer*1 bmPlanes
          Integer*1 bmBitsPixel
          Integer*4 bmBits
        End Structure
        Integer*4 hgdiobj [VALUE]
        Integer*4 cbBuffer [VALUE]
        RECORD /tagBitMap/ lpvObject[REFERENCE]
       END
c*enumprinters
      Interface to Integer*4 Function EnumPrinters
     1  [stdcall,alias:'_EnumPrintersA@28']
     1 (dwType,lpszName,dwLevel,lpbPrinters,cbBuf,lpdwNeeded,
     1 lpdwReturned)
      Integer*4 dwtype[VALUE]
      integer*4 lpszName[VALUE]
      Integer*4 dwLevel[VALUE]
      integer*4 lpbPrinters[VALUE]
      Integer*4 cbBuf[VALUE]
      integer*1 lpdwNeeded[REFERENCE]
      integer*1 lpdwReturned[REFERENCE]
      end
c*createdc
      Interface to Integer*4 Function CreateDC
     1  [stdcall,alias:'_CreateDCA@16']
     1 (lpszDriver,lpszDevice,lpszOutput,lpInitData)
      integer*4 lpszDriver[VALUE]
      integer*4 lpszDevice[VALUE]
      integer*4 lpszOutput[VALUE]
      integer*4 lpInitData[VALUE]
      end
c*BarrysComeToAnEnd