File TEST0.PS

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

PROGRAM TEST0(OUTPUT);
  CONST TEN=10;PLUS='+';
  TYPE ROW = ARRAY[1..10] OF REAL;
       COMPLEX = RECORD RE,IM:REAL END;
  VAR I,J: INTEGER;
      P: BOOLEAN;
      Z: COMPLEX;
      MATRIX: ARRAY[-3..+3] OF ROW;
      PATTERN :ARRAY[1..5,1..5] OF CHAR;
  PROCEDURE DUMMY(VAR I: INTEGER;VAR Z: COMPLEX);
    VAR U,V: ROW;
        H1,H2: RECORD C:COMPLEX; R:ROW
               END;
    FUNCTION NULL(X,Y:REAL; Z:COMPLEX): BOOLEAN;
      VAR A: ARRAY['A'..'Z'] OF COMPLEX;
          U: CHAR;
    BEGIN WHILE X<Y DO X:=X+1.0;
          NULL := X=Y
    END(*NULL*);
  BEGIN P:=NULL(H1.C.RE,H2.C.IM,Z)
  END (*DUMMY*);
BEGIN I:=85; J:=51;
  REPEAT
    IF I>J THEN I:=I-J ELSE J:=J-I
  UNTIL I=J;
  WRITELN(I)
END.



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