XProfan

Font 2:Randomiser:Cls Tour(8^8)
Déclarer a![1323,50,20],b![50,100],c![50],d!,e![]
Déclarer a$[0,0,0],b$[1,0],c$[0],e$,f$[]
Déclarer x&,y&,z&, typ$,di& '= Dimensionen (0: Skalar)

'Parameterwert dans qui Klammer testweise tauschen:
GetXYZ( a![] ) ' belegt Variablen typ$, di& et, si
' sinnvoll qui Variablen x&,y&,z&
WaitInput
Fin
»----------------------------------------------------
PROC GetXYZ
var pt$=ptype$(1)
var verbose%=1 ' 1: Kontrollausgabe un
typ$=mid$(pt$,1,1)
si 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:cas verbose%:imprimer 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:cas verbose%:imprimer x&,y&,-di&
elseif match$("~[[0-9]+~]",pt$) >""
x&=val(match$("[0-9]+",match$("~[[0-9]+~]",pt$) ))
di&=1:cas verbose%:imprimer x&,-di&
elseif match$("~[", pt$ ) = »
di&=0:cas verbose%:imprimer -di&;" Skalarwert"
elseif match$("~[]", pt$ ) > »
di&=-1:cas verbose%:imprimer -di&;": Dynamisches Array!"
d'autre
imprimer "ERROR: Interpretationsfehler ptype dans GetXYZ()"
Endif
cas verbose%: imprimer "Typ = "; typ$
ENDPROC