ocr: NEWOPALEHButton13-pushButton method pushbutton(uar eventinfo Event) var textBin Binary fs Filesysten texts String templs Textstrean enduar - Copy a string to the Clipboard so the user can paste it : into another application. texts - "This is a test stringinon two lines." - Write the string to a cemporary text file in the users F private directory. templs.open(". stoclp.tmp", "nw") templs.writestring(texts) cempls.close) - Read the text to a binary variable. textBin.readFronfile(" stocip.tmp") E Erase the clipboard and write the text to the clipboard. lipboardErase0 textbin.writelocipboara(Text ...
