32 lines
516 B
Text
32 lines
516 B
Text
|
#APPTYPE CONSOLE
|
||
|
|
|
||
|
|
CLASS Growable
|
||
|
|
|
||
|
|
PRIVATE:
|
||
|
|
|
||
|
|
DIM instructions AS STRING = "Sleep(1)"
|
||
|
|
:ExecCode
|
||
|
|
DIM dummy AS INTEGER = EXECLINE(instructions, 1)
|
||
|
|
|
||
|
|
PUBLIC:
|
||
|
|
|
||
|
|
METHOD Absorb(code AS STRING)
|
||
|
|
instructions = code
|
||
|
|
GOTO ExecCode
|
||
|
|
END METHOD
|
||
|
|
|
||
|
|
METHOD Yield() AS VARIANT
|
||
|
|
RETURN result
|
||
|
|
END METHOD
|
||
|
|
|
||
|
|
END CLASS
|
||
|
|
|
||
|
|
DIM Sponge AS NEW Growable()
|
||
|
|
|
||
|
|
Sponge.Absorb("DIM b AS VARIANT = 1234567890: DIM result AS VARIANT = b")
|
||
|
|
PRINT Sponge.Yield()
|
||
|
|
Sponge.Absorb("b = ""Hello world!"": result = b")
|
||
|
|
PRINT Sponge.Yield()
|
||
|
|
|
||
|
|
PAUSE
|