yes, so I get an error when trying len(name), but my way compiles fine, see attached files:
you should only use "if len(name$)>1 ... then ..."
ForcePresent=0
empty checklist
PERFORM CHECKLIST FOR CONTROL DEVICES
for c=1 to checklist quantity()
if checklist value a(c)=1
SET CONTROL DEVICE checklist string$(c)
ForcePresent=1
endif
next c
rem Display data
cls
print "INPUT EXPRESSION DATA"
print
print "ForcePresent:";ForcePresent
name$=CONTROL DEVICE NAME$()
if len(name$)>1 then controller=1
`if $name=$name+len(name)>1 then controller=1
print "controller";str$(controller)
print "control device name:";CONTROL DEVICE NAME$()
print "control device x:";CONTROL DEVICE X();
print " y:";CONTROL DEVICE Y();
print " z:";CONTROL DEVICE Z()
do
loop
end
Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others