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 - metrics - download

⟦4255acb8e⟧ TextFile

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

Derivation

└─⟦bb4d5968a⟧ Bits:30008918 MT+ SPP 1/3
    └─⟦this⟧ »PROG.SRC« 
└─⟦cfc645b40⟧ Bits:30004118/disk1.imd SW1720/I5 Pascal/MT+ Release 5.5
    └─⟦this⟧ »PROG.SRC« 
└─⟦e44a40b06⟧ Bits:30005968 SW1820/I8 RC855 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»