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

⟦870082150⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »CHECK2.PAS«

Derivation

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

TextFile

tegn, ' cifre.');
            GOTOXY(10, 7);
            WRITE('Tast tallet her: <');
            FOR i := 1 TO maxtegn DO
              WRITE(' ');
            WRITE('>');
            BUFLEN := maxtegn;
            GOTOXY(28, 7);
            READLN(cstreng);
            position := 0;
            FOR i := LEN(cstreng) TO maxtegn DO
              cstreng := cstreng + ' ';
            FOR i := maxtegn DOWNTO 1 DO
              IF (cstreng(.i.) < '0') OR (cstreng(.i.) > '9')
                THEN position := i;
            IF position > 0               (* Fejlagtigt tegn fundet *)
              THEN 
                BEGIN
                  GOTOXY(27 + position, 8);
                  WRITE('^');
                  GOTOXY(27 + position, 9);