File: STRING.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM STRINGFORMAT(OUTPUT);

    VAR M: INTEGER;

BEGIN
    FOR M := 0 TO 50 DO WRITELN("STRINGFORMAT":M);
    WRITELN; WRITELN;
    FOR M := 10 DOWNTO 0 DO WRITELN(TRUE:M,"*",FALSE:M)
END.

---