File TEXT1.PC

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

BEGINN
VORHER:="JA";
RB:="NEIN";
SG:="NEIN";
SEITENSCHUB:="NEIN";
ZA:="NEIN";
ZZ:="NEIN";
SEITENZAEHLER:=0;
ZEILE1:=0;
ZEILE2:=0;
SCHREIB "WO FINDE ICH DEN TEXT ?(IN DER FORM 'DTA(0/1):';";
SCHREIB "BEI PLATTE EINFACH 'RETURN')"!;
LIES PLATZ;
SCHREIB "WELCHEN NAMEN HAT DER TEXT ?(OHNE EXTENTION!)"!;
LIES NAME;
SCHREIB "WELCHE EXTENTION HAT DER TEXT ?(IN DER FORM '.EXT')"!;
LIES EXTENTION;
OEFFNE#1:PLATZ&NAME&EXTENTION;
OEFFNEV#2:NAME&".TE";
SOLANGE VORHER="JA"
FUEHRE
   VORHER:="NEIN";
   WENN NICHT ED#1
   DANN FUEHRE
        LIES#1:Z$;
        SPEICHER1:=Z$;
        FALLS SPEICHER1 GLEICH
              "[ZZ]":@ZZA;
              "[SG]":@SGA;
              "[RB]":@RBA;
              "[ZA]":@ZAA
        ENDE
        AUS
   SONST FUEHRE
         SCHREIB "STEHT LEIDER NICHTS DRIN ,IN DEINEM PROGRAMM!";
         VORHER:="NEIN"
         AUS
AUS;
@ZIERZEILE;
@SEITE1;
SOLANGE NICHT ED#1
FUEHRE
       WIEDERHOLE
          WIEDERHOLE
             ANF:=POS(SPEICHER1,"[",1);
             END:=POS(SPEICHER1,"]",ANF);
             WENN END-ANF=3
             DANN FUEHRE
                  FALLS SEG$(SPEICHER1,ANF,END) GLEICH
                        "[SP]":@SPERRSCHRIFT;
                        "[NZ]":@NEUE ZEILE;
                        "[UZ]":@UNTERSTREICHEN;
                        "[UW]":@UNTERSTREICHEN;
                        "[NS]":@NSA
                  ENDE
                  AUS;
             WENN SEG$(SPEICHER1,ANF,ANF+2)="[ER"
             DANN FUEHRE
                  WENN END-ANF=4
                  DANN FUEHRE
                       EINRUECK:=VAL(SEG$(SPEICHER1,ANF+3,ANF+3));
                       EIN:="JA"
                       AUS;
                  WENN END-ANF=5
                  DANN FUEHRE
                       EINRUECK:=VAL(SEG$(SPEICHER1,ANF+3,ANF+4));
                       EIN:="JA"
                       AUS;
                  LAENGE:=LEN(SPEICHER1);
                  HSPEICHER:=SEG$(SPEICHER1,1,ANF-1);
                  HSPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
                  SPEICHER1:=HSPEICHER&HSPEICHER1
                  AUS
          BIS END-ANF<3 ODER END-ANF>5;
          @ZEILENANGABE;
          @EINRUECKEN;
          @RECHTSBUENDIG;
          @SEITENGERECHT;
          Z$:=SPEICHER1;
          SCHREIB#2:Z$;
          ZEILE2:=ZEILE2+1;
          SPEICHER1:=SPEICHER2;
          SPEICHER2:=""
       BIS SPEICHER1="";
LIES#1:Z$;
ZEILE1:=ZEILE1+1;
SPEICHER1:=Z$
AUS;
@ZIERZEILE;
SCHLIESS#1;
SCHLIESS#2
ENDE;
@ZZA:BEGINN
ZZ:="JA";
VORHER:="JA"
ENDE;
@SGA:BEGINN
SG:="JA";
VORHER:="JA"
ENDE;
@RBA:BEGINN
RB:="JA";
VORHER:="JA"
ENDE;
@ZAA:BEGINN
ZA:="JA";
VORHER:="JA"
ENDE;
@NSA:BEGINN
SEITENSCHUB:="JA";
LAENGE:=LEN(SPEICHER1);
HSPEICHER:=SEG$(SPEICHER1,1,ANF-1);
HSPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
SPEICHER1:=HSPEICHER&HSPEICHER1
ENDE;
@EINRUECKEN:BEGINN
WENN EIN="JA"
DANN FUEHRE
     LAENGE:=LEN(SPEICHER1);
     C:=LAENGE+EINRUECK-72;
     WENN C>0
     DANN FUEHRE
          SPEICHER2:=SEG$(SPEICHER1,LAENGE-C,LAENGE);
          A:=0;
          WIEDERHOLE
             A:=A+1;
             SPEICHER1:=" "&SPEICHER1;
             SPEICHER2:=" "&SPEICHER2
          BIS A=EINRUECK
          AUS
     SONST FUEHRE
           A:=0;
           SOLANGE A<>EINRUECK
           FUEHRE A:=A+1;
                  SPEICHER1:=" "&SPEICHER1
               AUS
           AUS
     AUS
ENDE;
@SPERRSCHRIFT:BEGINN
ZAEHLER:=1;
LAENGE:=LEN(SPEICHER1);
SPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
LAENGE:=LEN(SPEICHER1);
WENN LAENGE*2>72
DANN SCHREIB "SPERRSCHRIFT IN ZEILE "ZEILE1" NICHT MOEGLICH"
SONST FUEHRE
      WIEDERHOLE
         HSPEICHER:=SEG$(SPEICHER1,1,ZAEHLER)&" ";
         SPEICHER1:=HSPEICHER&SEG$(SPEICHER1,ZAEHLER+1,LAENGE);
         ZAEHLER:=ZAEHLER+2;
         LAENGE:=LAENGE+1
      BIS ZAEHLER=LAENGE
      AUS
ENDE;
@ZIERZEILE:BEGINN
WENN ZZ="JA"
DANN FUEHRE
     HZEILE:="*******************************";
     ZZEILE1:=HZEILE&"PETER*LENZ"&HZEILE;
     HZEILE:="*****************************";
     ZZEILE2:=HZEILE&"RUEDIGER*GERTZ"&HZEILE;
     WENN ZEILE2>2
     DANN FUEHRE
          HZEILE:=ZZEILE1;
          ZZEILE1:=ZZEILE2;
          ZZEILE2:=HZEILE
          AUS;
     Z$:="";
     SCHREIB#2:Z$;
     ZEILE2:=ZEILE2+4;
     Z$:=ZZEILE1;
     SCHREIB#2:Z$;
     Z$:=ZZEILE2;
     SCHREIB#2:Z$;
     Z$:="";
     SCHREIB#2:Z$
     AUS
ENDE;
@SEITENGERECHT:BEGINN
HSPEICHER:="                                                          ";
WENN SG="JA"
DANN FUEHRE
     WENN SEITENSCHUB="JA"
     DANN FUEHRE
          ANGABE:=ZEILE2/63;
          HZEILE:="";
          SOLANGE ANGABE<>INT(ANGABE)
          FUEHRE Z$:=HZEILE;
                 SCHREIB#2:Z$;
                 ZEILE2:=ZEILE2+1;
                 ANGABE:=ZEILE2/63
          AUS;
          SEITENSCHUB:="NEIN"
     AUS;
     ANGABE:=ZEILE2/63;
     WENN ANGABE=INT(ANGABE)
     DANN FUEHRE
          SEITENZAEHLER:=SEITENZAEHLER+1;
          ZAEHLER:=0;
          WIEDERHOLE
             ZAEHLER:=ZAEHLER+1;
             WENN  ZAEHLER=5
             DANN FUEHRE
                  Z$:=HSPEICHER&"SEITE   "&SEG$(SEITENZAEHLER);
                  SCHREIB#2:Z$
                  AUS
             SONST FUEHRE
                   Z$:="";
                   SCHREIB#2:Z$
                   AUS
          BIS ZAEHLER=9
          AUS

AUS ENDE; @SEITE1:BEGINN WENN SG="JA" DANN FUEHRE ZEILE2:=ZEILE2+2; HSPEICHER:=" "; Z$:=HSPEICHER&" SEITE 1"; SCHREIB#2:Z$; Z$:=""; SCHREIB#2Z$ AUS ENDE; @RECHTSBUENDIG:BEGINN LAENGE:=LEN(SPEICHER1); WENN LAENGE>50 UND RB="JA" DANN FUEHRE ZAEHLER:=1; SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)=" " MACH ZAEHLER:=ZAEHLER+1; ANF:=ZAEHLER; END:=69-LAENGE; WIEDERHOLE SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)<>" " UND ZAEHLER<LAENGE MACH ZAEHLER:=ZAEHLER+1; WENN ZAEHLER=LAENGE DANN ZAEHLER:=ANF SONST FUEHRE HSPEICHER:=SEG$(SPEICHER1,1,ZAEHLER&" "; SPEICHER1:=HSPEICHER&SEG$(SPEICHER1,ZAEHLER+1,LAENGE; LAENGE:=LAENGE+1; SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)=" " MACH ZAEHLER:=ZAEHLER+1; A:=A+1 AUS BIS A=END AUS 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