BEGIN "TSTRD"
   REQUIRE "STD.new[170,161]" SOURCE!FILE;
   INTEGER I;
   write(",");
   WRITE("INTEGER",TAB,"REAL",TAB,"STRING");
   WRITE();
   FOR I := 1 STEP 1 UNTIL 20 DO
     BEGIN
         INTEGER J; REAL X; STRING S;
         READ(J,X,S);
         WRITE(J,X,S);
     END;
END "TSTRD"