XProfan

Font 2:Selección aleatoria:Cls Rnd(8^8)
Declarar a![1323,50,20],b![50,100],c![50],d!,e![]
Declarar a$[0,0,0],b$[1,0],c$[0],e$,f$[]
Declarar x&,y&,z&, typ$,di& '= Dimensionen (0: Skalar)

'Parameterwert en el Klammer testweise tauschen:
GetXYZ( a![] ) ' belegt Variables typ$, di& y, si
' sinnvoll el Variables x&,y&,z&
WaitInput
End
'----------------------------------------------------
PROC GetXYZ
var pt$=ptype$(1)
var verbose%=1 ' 1: Kontrollausgabe una
typ$=mid$(pt$,1,1)
if match$(",[0-9]+,",pt$)>""
x&=val(match$("[0-9]+",match$("~[[0-9]+",pt$) ))
y&=val(match$("[0-9]+",match$(",[0-9]+,",pt$) ))
z&=val(match$("[0-9]+",match$(",[0-9]+~]",pt$) ))
di&=3:caso verbose%:imprimir x&,y&,z&,-di&
elseif match$("~[[0-9]+,[0-9]+~]",pt$ )>""
x&=val(match$("[0-9]+",match$("~[[0-9]+",pt$) ))
y&=val(match$("[0-9]+",match$(",[0-9]+~]",pt$) ))
di&=2:caso verbose%:imprimir x&,y&,-di&
elseif match$("~[[0-9]+~]",pt$) >""
x&=val(match$("[0-9]+",match$("~[[0-9]+~]",pt$) ))
di&=1:caso verbose%:imprimir x&,-di&
elseif match$("~[", pt$ ) = ""
di&=0:caso verbose%:imprimir -di&;" Skalarwert"
elseif match$("~[]", pt$ ) > ""
di&=-1:caso verbose%:imprimir -di&;": Dynamisches Array!"
más
imprimir "ERROR: Interpretationsfehler ptype en GetXYZ()"
Endif
caso verbose%: imprimir "Typ = "; typ$
ENDPROC