DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦ef813ffb2⟧ TextFile

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

Derivation

└─⟦d6ef3842c⟧ Bits:30002678 Pascal MT+ Version 3.3 Rel 1.2
    └─ ⟦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»