VEREINBARUNGEN:
  DIM ATOM(95,2),MASSE(95),ZEIGER(95),Z$(72);
BEGINN
[ **  SPEICHER LOESCHEN  **  ]
[   *                        *]
FUER LAUFVARIABLE := 2 BIS 95
MACH ZEIGER(L):=0;
ZEIGER(1):=-1;  [ ** SCHWANZ SETZEN  ** ]
OEFFNE#1:"RKB1:ATOM1.DA";
SOLANGE NICHT ED#1
FUEHRE [ * FREIEN SPEICHERPLATZ SUCHEN
                UND ELEMENT EINLESEN  *  ]
        ADRESSE :=1;
        WIEDERHOLE ADRESSE := ADRESSE +1
        BIS ZEIGER(ADRESSE) = 0;
        LIES#1: Z$; ATOM(ADRESSE) :=SEG$(Z$,1,2);
        MASSE(ADRESSE) := VAL(SEG$(Z$,3,LEN(Z$)));
        [ *  EINFUEGESTELLE SUCHEN
                UND EINFUEGEN  * ]
        NACHFOLGER := 1;
        WIEDERHOLE VORGAENGER := NACHFOLGER;
                NACHFOLGER := ZEIGER(VORGAENGER)
        BIS NACHFOLGER=-1 ODER ATOM(ADRESSE)<ATOM(NACHFOLGER);
        ZEIGER(VORGAENGER) := ADRESSE;
        ZEIGER(ADRESSE) := NACHFOLGER
AUS;
SCHLIESS#1;
[  *  AUSDRUCKEN DER ERSTELLTEN DATEI  *  ]
ADRESSE :=ZEIGER(1);
SCHREIB "UNTER WELCHEM NAMEN SOLL DIE DATEI ABGE"!;
SCHREIB "SPEICHERT WERDEN ";
LIES NAME;
SCHREIB;SCHREIB;SCHREIB;SCHREIB;
OEFFNEV#2:NAME;
SCHREIB "ATOM"," MASSE";
SOLANGE ADRESSE <> -1
FUEHRE SCHREIB#2: ATOM(ADRESSE)&STR$(MASSE(ADRESSE));
        ADRESSE := ZEIGER(ADRESSE)
AUS;
SCHLIESS#2
ENDE