XProfan

Titre de la fenêtre " Simulation de bit-Leisten mittels Long&-Arrays (beta)"
' Copyleft (CL) 2012-12 by P. Specht; OHNE GEWÄHR!
declare z$,z&,idx!,max!,dw&[],dwx&,bw&,bw1&,bitImLong&
huch:
cls:font 2:color 0,15
max!=fetch(" Höchster vorkommender bit-index [ab 0]?: ",max!)

si max!<0:faute():Imprimer " Negative Indizes dzt. pas vorgesehen! *** "

    max!=0:waitinput :goto "huch"

endif

si max!>2147483615:faute():Imprimer " Max.index dzt.2^31-32-1= 2147483615, GT. INT()"

    max!=2147483615:waitinput :goto "huch"

endif

z&=int(max!/32+1):setsize dw&[],z&
Imprimer " en supplément wurden ";z&;" Long&-Variablen alloziert."
imprimer " Probe: 32*";z&;"=";int(z&*32);" bit":imprimer

REPEAT

    nochmal:
    idx!=fetch(" bit-index: ",idx!)

    si idx!>max!

        faute()
        imprimer " Obergrenze ";int(max!);" überschritten! *** \n"
        color 0,15:idx!=max!:goto "nochmal"

    elseif idx!<0:faute():imprimer " Negative Indizes sommes pas vorgesehen! *** \n"

        color 0,15:idx!=0:goto "nochmal"

    endif

    dwx&=int(idx!/32)
    bitImLong&=int(idx!-dwx&*32)
    bw&=@Test peu(dw&[dwx&],bitImLong&)
    z$=" Long&["+str$(dwx&)+"] : bit["+str$(bitImLong&)+"] ?= "
    bw1&=fetch(z$,bw&)
    bw1&=(bw1&<>0)

    si bw&<>bw1&: dw&[dwx&]=setbit(dw&[dwx&],bitImLong&,bw1&)

        color 1,15:locate %csrlin-1,31
        imprimer ":bit[";int(idx!);"] ist eh bien ";bw1&:color 0,15

    endif

    imprimer

    si idx!>=max!

        idx!=max!
        imprimer " *** avertissement: Obergrenze erreicht! ***"

    d'autre

        idx!=int(idx!)+1

    endif

ENDWHILE

FIN

proc fetch :parameters txt$,idx! :declare z$

    imprimer txt$;int(idx!):locate %csrlin-1,len(txt$)+1:input z$
    cas %csrlin>19:cls
    return si(z$=»,idx!,val(z$))

endproc

proc faute

    color 12,15
    imprimer " *** FEHLER:";
    sound 500,100

endproc

Titre de la fenêtre "Bibit-Leiste aus 2il-Bitgruppen z.B. pour Bearbeitungsstatus-Werte 0,1,2,3"
'CopyLeft (CL) 2012-12ff by P. Specht. Jedwede la responsabilité ist ausdrücklich ausgeschlossen!
randomize:font 2:Cls rnd(8^8)
Déclarer max&,idx&,wert&,lx&,bbiL&,dans$
Imprimer " Max.Bibit-Indexwert = ";:input max&
Déclarer bb&[max&/16]
Imprimer " Anzahl benötigter Longs: ";int(max&\16+1)
bb&[0]=rnd(4294967295):imprimer " Test bb&[0]:Bibit-Idx:15__0: ";suis$(bb&[0])

Repeat

    imprimer "\n Bibit-index: ";idx&,»,:input idx&
    lx&=idx&\16:imprimer " bb-idx=";lx&
    bbiL&=(idx& mod 16)*2:imprimer " bbiL&=";bbiL&
    wert&=(bb&[lx&] & (3<<bbiL&))>>(bbiL&)
    imprimer "  Ist:",wert&," Soll:",:input dans$

    si dans$>»

        wert&=val(dans$) mod 4
        bb&[lx&]=bb&[lx&] & (4294967295-(3<<bbiL&)) | (wert&<<bbiL&)
        wert&=(bb&[lx&] & (3<<bbiL&))>>bbiL&
        locate %csrlin-1,30:imprimer "... ist nun",wert&

    endif

until 0

Fin