Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0167/dmpsur.ctl
There is 1 other file named dmpsur.ctl in the archive. Click here to see a list.
@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