DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »PROG.SRC«

└─⟦cfc645b40⟧ Bits:30004118/disk1.imd SW1720/I5 Pascal/MT+ Release 5.5
    └─⟦this⟧ »PROG.SRC« 

TextFile

PROGRAM DEMO_PROG;

VAR
  I : INTEGER;	(* TO BE ACCESSED BY THE OVERLAYS *)
  CH: CHAR;

EXTERNAL Æ1Å PROCEDURE OVL1; (* COULD HAVE HAD PARAMETERS *)

EXTERNAL Æ2Å PROCEDURE OVL2; (* ALSO COULD HAVE HAD PARAMETERS *)

(* EITHER COULD ALSO HAVE BEEN A FUNCTION IF DESIRED *)

BEGIN
  REPEAT
    WRITE('Enter character, A/B/Q: ');
    READ(CH);
    CASE CH OF
      'A','a' : BEGIN
                  I := 1;    (* TO DEMONSTRATE ACCESS OF GLOBALS *)
                  OVL1       (* FROM AN OVERLAY *)
                END;

      'B','b' : BEGIN
                  I := 2;
                  OVL2
                END
    ELSE
      IF NOT(CH IN Æ'Q','q'Å THEN
        WRITELN('Enter only A or B')
    END (* CASE *)
  UNTIL CH IN Æ'Q','q'Å;
  WRITELN('End of program')
END.
«eof»