.R 1022
*O SURVEY
*F ALL
*SORT QNO
*INIT 2 SURVEY.FIL
*P ON 2 @LINE
*P ON 2 FMT / "DUMP FILE -SURVEY.FIL-" END
*P ON 2 FMT / "======================" // END
*P ON 2 SYSNREC FMT / "THERE ARE " A $ END
*P ON 2 FMT "  QUESTIONAIRES (RECORDS) IN -SURVEY.DMS- " END
*P ON 2 FMT / "FOR EACH RECORD :" / END
*P ON 2 FMT "		1ST NUMBER	= QNO (QUESTIONAIRE NUMBER)" END
*P ON 2 FMT "				  - YOUR KEY TO FIND CERTAIN" END
*P ON 2 FMT "				    QUESTIONAIRE IF YOU NEED" END
*P ON 2 FMT "				    TO CORRECT ANY MISTAKES ON " END
*P ON 2 FMT "				    THE QUESTIONAIRE" / END
*P ON 2 FMT "		2ND NUMBER	= A1 (ANSWER TO THE 1ST QUESTION)" END
*P ON 2 FMT "		( OR TEXT )	      ON THE QUESTIONAIRE)" / END
*P ON 2 FMT "		3RD NUMBER	= A2 (ANSWER TO THE 2ND QUESTION)" END
*P ON 2 FMT "		( OR TEXT )	      ON THE QUESTIONAIRE)" / END
*P ON 2 FMT "		   ." END
*P ON 2 FMT "		   ." END
*P ON 2 FMT "		   ." END
*P ON 2 FMT "		   ." END
*P ON 2 FMT "		LAST NUMBER	= ANSWER TO THE LAST QUESTION)" END
*P ON 2 FMT "		( OR TEXT )	      ON THE QUESTIONAIRE)" / END
*P ON 2 @LINE
*P ON 2 FMT / "CONTENTS OF THE QUESTIONAIRES (RECORDS) FOLLOWS :" // END
*P ON 2 FMT /// END
*P ON 2 ALL
*CL
*RELEASE 2
*Q