exec()

[NicknameFJ]

Hallo cybergeek,

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

NicknameFJ

[cybergeek]

works.................