Re: exec()
Posted: Wed Aug 25, 2010 11:15 am
Hallo cybergeek,
here is just a little program for a messagerequester:
NicknameFJ
here is just a little program for a messagerequester:
Code: Select all
Define string.s
Define *bytecode
Procedure MessageRequester_(Text1$,text2$)
MessageRequester(Text1$,text2$)
EndProcedure
string = #LF$
string + "Procedure.s Messagerequester(Text1$,text2$)"+#LF$
string + "EndProcedure"+#LF$
string + ""+#LF$
string + "MessageRequester(" + Chr(34) + "Information" + Chr(34) + "," + Chr(34) + "Just a short information text" + Chr(34)+")"+#LF$
*bytecode = PBSCompileScriptString(string)
If (*bytecode = #Null)
MessageRequester("Compiler-Error", PBSGetErrorText())
End
EndIf
If PBSOpenByteMemory(0, *bytecode)
PBSSetProcedureAdress(0,"MessageRequester",@MessageRequester_())
PBSStartByteCode(0)
PBSCloseByteScript(0)
EndIf