DataMuseum.dk

top - download

    Length: 1034 (0x40a)
    Types: TextFile
    Names: »CPR_NUMBER_CHECK«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »OJG.D!CPR_NUMBER_CHECK« 

TextFile

%NOSUMMARY
%NOLIST
$@**GENS.D*PREFIX
%LIST
%EXECLEVEL = 2

PROGRAM CPR_NUMBER_CHECK;

CONST

TYPE
   NR = ARRAY[1..10] OF INTEGER;

VAR
   CH, I     : CHAR;
   CH_TYPE: CHAR_TYPE;

PROCEDURE START_TEXT;
  BEGIN
    OUTTEXT(OS,'(:10:) TO VERIFY CPR_NUMBERS (:10:)(:10:)(:0:)',CC);
    OUTTEXT(OS,' TYPE IN THE CPR_NUMBER = (:0:)',CC);
    FLUSH(OS,CC);
  END;

PROCEDURE ERROR_MESSAGE1;
  BEGIN
    OUTTEXT(OC,' THE CPR_NUMBER IS TO SHORT (:10:)(:0:)',CC);
    FLUSH(OS,CC);
  END;

PROCEDURE ERROR_MESSAGE2;
  BEGIN
    OUTTEXT(OC,' THE CPR_NUMBER IS TO LONG (:10:)(:0:)',CC);
    FLUSH(OS,CC);
  END;

PROCEDURE ERROR_MESSAGE3;
  BEGIN
    OUTTEXT(OC,' TO MANY DIGITS INPUTTED (:10:)(:0:)',CC);
    FLUSH(OS,CC);
  END;

PROCEDURE CPR_OK;
  BEGIN
    OUTTEXT(OS,' THE CPR_NR IS OK(:10:)(:0:)',CC);
    OUTTEXT(OS,' WILL YOU TRY AGAIN ??? IF YES THEN TYPE(:10:)(:0:)',CC);
    OUTTEXT(OS,' IN THE NEW CPR_NUMBER ELSE TYPE Q(:10:)(:0:)',CC);
    OUTTEXT(OS,' INSTEAD OF CPR_NUMBER = (:0:)',CC);
    FLUSH(OS,CC);
  END;



BEGIN

END.