* Create empty database
CREATE DATABASE MyDB

* Use the database if not already open
OPEN DATABASE MyDB

* Create a string holding a procedure
CRLF = CHR(13)+CHR(10)
lcProcString = 'PROCEDURE TestStore'+CRLF
lcProcString = lcProcString + '   MESSAGEBOX("I am so stored")'+CRLF
lcProcString = lcProcString + 'ENDPROC'+CRLF

* Add a stored procedure by pasting the string
_CLIPTEXT = lcProcString
KEYBOARD '{CTRL+v}'
KEYBOARD '{CTRL+w}'
MODIFY PROCEDURE

* Run the procedure
DO TestStore