Change
Code: Select all
Procedure.l doesthiswork(name.s)
ProcedureReturn CallFunctionFast(ffName, name)
EndProcedure
Code: Select all
Procedure.s doesthiswork(name.s)
ProcedureReturn PeekS(CallFunctionFast(ffName, name))
EndProcedure

Code: Select all
Procedure.l doesthiswork(name.s)
ProcedureReturn CallFunctionFast(ffName, name)
EndProcedure
Code: Select all
Procedure.s doesthiswork(name.s)
ProcedureReturn PeekS(CallFunctionFast(ffName, name))
EndProcedure
Code: Select all
Repeat
Param.s = ProgramParameter()
Select LCase(Param)
Case "-n" : NAME.s = ProgramParameter()
Case "-r" : REALNAME.s = ProgramParameter()
EndSelect
Until Param = ""