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

⟦8de193f92⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »INTERHYP.PAS«

Derivation

└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─⟦this⟧ »INTERHYP.PAS«

TextFile

                  BEGIN
                        i := i + 1;
                        ch := linie(.i.);
                      END;
                    slut := i;
                    ord_ := COPY(linie, start, slut - start);
                    IF binsoeg(ord_)
                      THEN
                        FOR j := start TO slut - 1 DO
                          linie(.j.) := CHR(ORD(linie(.j.)) + 32);
                  END;
              UNTIL i >= LEN(linie);
            END;
        FOR i := 1 TO LEN(linie) - 1 DO
          WRITE(udfil, linie(.i.));
        WRITELN(udfil);
      END;
    CLOSE(indfil);
    CLOSE(udfil);
  END.
«eof»