sw/src/pascal/STRING.PS

   1 PROGRAM STRINGFORMAT(OUTPUT);
   2
   3     VAR M: INTEGER;
   4
   5 BEGIN
   6     FOR M := 0 TO 50 DO WRITELN("STRINGFORMAT":M);
   7     WRITELN; WRITELN;
   8     FOR M := 10 DOWNTO 0 DO WRITELN(TRUE:M,"*",FALSE:M)
   9 END.