Hallo,

vielleicht Hilft dir das:

Fist IN:
[code] U "Eintragen"

SPBN S131

AUF "Datenspeicher"

L P#474.0
T #Platz
//Suche nächsten freien Platz

S133: L DBW [#Platz]
L 0
==I
SPB S132

L P#2.0
L #Platz
+D
T #Platz

L #Platz
L P#500.0
==D
SPBN S134
L P#474.0
T #Platz

SPA S135

S134: SPA S133
//Lade Daten ins Zielfach
S132: L DBW 472
T DBW [#Platz]
L 0
T DBW 472

S135: R "Eintragen"
S131: NOP 0
[/code]

Für First Out:
[code]

U"Raus"
SPBN S231

AUF"Datenspeicher"

L P#500.0
T #Platz

//Suche nach dem Letzten eintrag
S233: L DBW [#Platz]
L 0
==I
SPBN S232

L #Platz
L P#2.0
-D
T #Platz

L #Platz
L P#472.0
==D
SPBN S234
L P#472.0
T #Platz

SPA S235

S234: SPA S233

//LadeDaten der zu letzt geschrieben wurde

S232: L DBW [#Platz]

T DBW 472
L 0
T DBW [#Platz]

S235: R"Raus"
S231: NOP 0

[/code]

kannst auch noch mit AR machen wenn du willst.
Hier wird von einer festen anfangs- und endadresse ein leeres Wort gesucht und dannn der wert hineingeschrieben.

Hoffe es hilft dir


Mfg
Rudolf