XProfan

Window Title "Zeilenvektor-Eingabe"
' Copyleft (CL) 2013-02 by P.woodpecker, Vienna/Austria
AppendMenuBar 10,"Trennersymbol with input: space "+\
"oder comma ',' - end with return or ]+return"
Randomize:font 2:Cls rnd(8^8):Set("decimals",15)
Declare n&,v$,v$[],v![],xp&

REPEAT

    n&=0
    clear v![]
    print " vector v= [';
    xp&=%pos-1
    input v$
    v$=translate $(v$,' ,',' . ')
    v$=translate $(v$,',',' ')
    v$=trim$(v$)
    locate %csrlin-1,xp&
    v$=translate $(v$,']","")

    while instr("  ",v$)

        v$=translate $(v$,"  "," ")

    endwhile

    clear v$[]
    v$[]=explode(v$," ")
    clear v$
    print "[";

    if len(v$[0])>0

        n&=sizeof(v$[])

        whileloop 0,n&-1

            v![&Loop]=val(v$[&Loop])

        endwhile

        whileloop 0,n&-1

            print stature$("%g",v![&Loop]);
            case &Loop<(n&-1):print ",";

        endwhile

        clear v$[]

    endif

    print "] "+mkstr$(" ",76-%pos)
    print " ";n&,"Elemente "
    '  v![& Loop] contains whom vector, n&=Anzahl items
    waitinput 10000

UNTIL 0