home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / sviluppo / purebasic_demo / purebasic / examples / fullversion_sources / clipboard.pb < prev    next >
Encoding:
Text File  |  2000-01-27  |  557 b   |  24 lines

  1. ;
  2. ; *************************************
  3. ;
  4. ; Clipboard example file for Pure Basic
  5. ;
  6. ;    © 1999 - Fantaisie Software -
  7. ;
  8. ; *************************************
  9. ;
  10. ;
  11.  
  12. SetClipboardText("Hello world - Amiga is Back")    ; Fill the clipboard with our text
  13.  
  14. a$ = GetClipboardText()                            ; Get the Clipboard content
  15.  
  16. PrintN("Clipboard content: "+a$)                   ; Display the content. Is it working ?
  17. PrintN("Test it by just press 'Right Amiga + V'")  ; Check yourself
  18.  
  19. PrintN("") : PrintN("Mouse button to quit.")
  20.  
  21. MouseWait()
  22.  
  23. End
  24.