COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PRNTST"
C00003 ENDMK
C⊗;
BEGIN "PRNTST"
EXTERNAL STRING PROCEDURE $PRINT(STRING S;INTEGER CTRL(0));
DEFINE CRLF="'15&'12";

STRING S1,S2;
INTEGER I;

S1←NULL;
FOR I←1 STEP 1 UNTIL 3 DO
	S1←S1&$PRINT(CVS(I)&" ");

OUTSTR(CRLF);
OUTSTR ("S1=|"&S1&"|"&CRLF);

FOR I←1 STEP 1 UNTIL 10 DO $PRINT(CVS(I)&CRLF));

END;