File AUFBAU.PC

Directory of image this file is from
This file as a plain text file

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search