@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