/* createrule.p dps 02/20/08 */

DEF VAR i AS INTEGER NO-UNDO.

OUTPUT TO "c:\temp\rule.txt".

DO i = 1 TO 4000:
    IF i MOD 10 = 0 OR i = 1 THEN PUT UNFORMATTED SUBSTRING(STRING(i,"9999"),1,1).
    ELSE PUT " ".
END.
PUT SKIP.

DO i = 1 TO 4000:
    IF i MOD 10 = 0 OR i = 1 THEN PUT UNFORMATTED SUBSTRING(STRING(i,"9999"),2,1).
    ELSE PUT " ".
END.
PUT SKIP.

DO i = 1 TO 4000:
    IF i MOD 10 = 0 OR i = 1 THEN PUT UNFORMATTED SUBSTRING(STRING(i,"9999"),3,1).
    ELSE PUT " ".
END.
PUT SKIP.

DO i = 1 TO 4000:
    IF i = 1 THEN PUT UNFORMATTED "1".
    ELSE IF i MOD 10 = 0 THEN PUT UNFORMATTED "0".
    ELSE IF i MOD 5 = 0 THEN PUT UNFORMATTED "|".
    ELSE PUT ".".
END.
PUT SKIP.

/* end of program */