DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦b23413a71⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »udttxt      «

Derivation

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦40b1eb8cd⟧ 
        └─⟦this⟧ »udttxt      «

TextFile

begin
  integer i,lin,tg;

  lin:=0; tg:=0;
  write(out,<:tegn i buffer :>); setposition(out,0,0);
  read(in,i);

  while true do begin
    lin:=lin+1;
    write(out,<<zdddd>,lin,<:**********:>,lin,<:++++++++++:>,
    lin,<:----------:>,lin,<:<10>:>);
    tg:=tg+50;
    if tg>50 then begin
      setposition(out,0,0);
      tg:=0;
    end;
  end;
end;
▶EOF◀