Mnemonics "O"

== (Open Clipboard)==
{| cellpadding=5 cellspacing=2
|'''Mnemonic:'''
|''' (OpenClipboard)'''
|-
|
'''Discussion:'''
|This mnemonic was added (along with CloseClipboard) to solve the problem where the clipboard may be unavailable because it is in use by another program (the clipboard can be opened by only one program at a time). If the clipboard was already in use the other clipboard functions would fail. Using this mnemonic you can ensure that the clipboard is available and remains open while you complete your desired operation.
|-
|
'''Note:'''
|(OpenClipboard) is currently supported only in Comet32 and only when using the "X00", system device for clipboard access as demonstrated below.
|-
|'''Example:'''
|
 Length  254 & Local RESULT$      ! Define a variable
 Length 10.0 & Local ClipErr

 Open (1) "X00"                   ! Open system driver
 TryClipboardOpen:
   Print (1) (OpenClipboard)      ! Copy data from clipboard
   Input (1) Result$              ! to this variable
 
   ClipErr = IHexDec(Result$)
   If (ClipErr EQ 5) Goto TryClipboardOpen   ! This error indicates that the clipboard is in use
   If (ClipErr NE 0) Goto ErrExit
 
   Do other clipboard operations
 
   Print (1) (CloseClipboard)      ! We're done - close the clipboard
   Close (1)                       ! Close system driver
   Goto Exit
 
 ErrExit:
   Print "Error opening clipboard: ";ClipErr
 Exit:
   Stop
|}