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

⟦640ce2d1a⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »COMP.TST«

Derivation

└─⟦cbdf9d390⟧ Bits:30005867/disk19.imd Dokumenter (RCSL m.m.)
    └─⟦this⟧ »COMP.TST«

TextFile

begin
  array
  _ a1, a2, a3, b1, b2, b3 (1 : 128);
  
  integer
  _ i, i1, i2, i3, l;

  l        := 1;
  for i:= 1 step 1 until 128 do
  a3 (i)   :=
  b3 (i)   := random (l);  

  b3 (128) := b3 (128) add 1;
  
  i        := 128 * 6 - 2;
  i1       := i + 1;
  i2       := i + 2;
  i3       := i + 3;
  
  tofromchar (a2, 2, a3, 3, i);
  tofromchar (b2, 2, b3, 3, i);
  tofromchar (a1, 1, a3, 3, i);
  tofromchar (b1, 1, b3, 3, i);
  
  for l:= 1 step 1 until i do
  write (out, <<  -ddd>,
  _      "nl", 2, <:a-b:>, l,
  _      comparechar (a1, i1 - l, b1, i1 - l, l),
  _      comparechar (a1, i1 - l, b2, i2 - l, l),
  _      comparechar (a1, i1 - l, b3, i3 - l, l),
  _      comparechar (a2, i2 - l, b1, i1 - l, l),
  _      comparechar (a2, i2 - l, b2, i2 - l, l),
  _      comparechar (a2, i2 - l, b3, i3 - l, l),
  _      comparechar (a3, i3 - l, b1, i1 - l, l),
  _      comparechar (a3, i3 - l, b2, i2 - l, l),
  _      comparechar (a3, i3 - l, b3, i3 - l, l),
  _      "nl", 1, <:b-a:>, l,
  _      comparechar (b1, i1 - l, a1, i1 - l, l),
  _      comparechar (b1, i1 - l, a2, i2 - l, l),
  _      comparechar (b1, i1 - l, a3, i3 - l, l),
  _      comparechar (b2, i2 - l, a1, i1 - l, l),
  _      comparechar (b2, i2 - l, a2, i2 - l, l),
  _      comparechar (b2, i2 - l, a3, i3 - l, l),
  _      comparechar (b3, i3 - l, a1, i1 - l, l),
  _      comparechar (b3, i3 - l, a2, i2 - l, l),
  _      comparechar (b3, i3 - l, a3, i3 - l, l))
end
«eof»