Trailing-Edge
-
PDP-10 Archives
-
decuslib20-07
-
decus/20-0167/dmpsur.mic
There is 1 other file named dmpsur.mic 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