2013-06-19 07:45

'   *******************************************
'   **                                       **
'   **  Example program for QResourceStream  **
'   **                                       **
'   *******************************************

     $TYPECHECK ON
     $INCLUDE "QResourceStream"
     $RESOURCE Resource1 AS "example.rq"

     DEFSTR Key
     DIM SourceCode AS QResourceStream

     SourceCode.OPEN(0)
     COLOR 15,0
     CLS
     PRINT "Source code for this program:"
     COLOR 2
     PRINT SourceCode.ReadStr(SourceCode.Size)
     COLOR 15
     PRINT "Press ENTER to exit program...";
     Key = GET$(1)

2013-06-19 07:45