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

⟦1139b62f2⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »UD4.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »UD4.PAS«

TextFile

program ud4;

  (* Programmet demonstrerer udskrifter af *)
  (* variable af typerne CHAR og STRING *)

  var
  
    n : integer;
    ch, blank : char;
    navn1, navn2 : string(.20.);
    
  begin
    n := 4;
    ch := 'Æ';
    blank := ' ';
    navn1 := 'Hans Peter Nielsen';
    navn2 := 'Karen Koch';
    writeln(ch);
    writeln(ch : n);
    writeln;
    writeln(navn1);
    writeln;
    writeln(navn1 : 30);
    writeln(navn2 : 30);
    writeln;
    writeln(navn1 : 10);
    writeln;
    writeln(blank : 5, navn1);
    writeln(blank : 5, navn2);
  end.
      
    «eof»