.RUN DSK DPACK PACK NAME: GRADE NO. OF SECTORS: 200 EXIT ..RUN DSK LODPTF POINTER FILE NAME? GRADE POINTER FILE LENGTH? 10 PACKS: GRADE NUMBER OF SECTORS IN PACK? 200 EXECUTION TIME: 0.07 SEC. TOTAL ELAPSED TIME: 26.85 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK CREATF FILE ID? MATH INPUT NSPR,MAXR,NCPR 1 25 6 PACKS: GRADE EXECUTION TIME: 0.05 SEC. TOTAL ELAPSED TIME: 26.28 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK DMPPTF PACKS: GRADE GRADE 1 4 10 1 2 0 0 1 0 MATH 14 14 39 1 14 11 6 2 0 0 11 40 200 1 11 0 0 3 0 EXECUTION TIME: 0.07 SEC. TOTAL ELAPSED TIME: 18.18 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK LODFMT FILE ID? MATH PACKS: GRADE IDF LFR NAVR MAXF NSPR LSR LFMTR NCPR LPFR MATH 14 14 39 1 14 11 6 2 0 #CAT,1ST WORD#,LENGTH,MODE,PROMPT 1 1 1 1 ID 2 2 5 3 NAME 3 7 1 1 TEST1 4 8 1 1 TEST2 5 9 1 1 TEST3 6 10 1 1 TEST4 EXECUTION TIME: 0.15 SEC. TOTAL ELAPSED TIME: 1 MIN. 18.82 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK UPDTF THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE. RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5) MASTER FILE? MATH TEMP FILE? MATH INPUT MAXR FOR FILE MATH PACKS: GRAD CAN'T FIND GRAD PACKS: GRADE SHOULD TEMP FILE BE INITILIZED? NO ENTER RECORD INFORMATION.TYPE FOR END OF FILE 10 STUDENT 10 20 STUDENT 20 30 STUDENT 30 40 STUDENT 40 50 STUDENT 50 TO MERGE FILE, MATH , TO MASTER FILE MATH TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0, TO ABORT JOB TYPE A 2 2 MATH IS STILL ON THE PACK. TO DELETE IT PAUSE TYPE G TO CONTINUE,X TO EXIT. X EXECUTION TIME: 0.37 SEC. TOTAL ELAPSED TIME: 2 MIN. 25.43 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK DMPPTF PACKS: GRADE GRADE 1 4 10 1 2 0 0 1 0 MATH 14 19 39 1 18 11 6 2 504711206 0 11 40 200 1 11 0 0 3 0 EXECUTION TIME: 0.08 SEC. TOTAL ELAPSED TIME: 17.98 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK UPDTF THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE. RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5) MASTER FILE? MATH TEMP FILE? T INPUT MAXR FOR FILE T 10 PACKS: GRADE SHOULD TEMP FILE BE INITILIZED? YES ENTER RECORD INFORMATION.TYPE FOR END OF FILE 5 STUDENT 5 14 STUDENT 14 16 STUDENT 16 13 STUDENT 13 70 STUDENT 70 25 STUDENT 25 TO MERGE FILE, T , TO MASTER FILE MATH TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0, TO ABORT JOB TYPE A 2 1 TO MERGE FILE, T , TO MASTER FILE MATH TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0, TO ABORT JOB TYPE A 2 2 T IS STILL ON THE PACK. TO DELETE IT PAUSE TYPE G TO CONTINUE,X TO EXIT. G EXECUTION TIME: 0.52 SEC. TOTAL ELAPSED TIME: 2 MIN. 47.82 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK DMPPTF PACKS: GRADE GRADE 1 4 10 1 4 0 0 1 504711211 MATH 14 25 39 1 13 11 6 2 504711210 0 11 40 200 1 54 0 0 3 504711211 EXECUTION TIME: 0.13 SEC. TOTAL ELAPSED TIME: 21.33 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK TYPEF INPUT FILE ID MATH PACKS: GRADE INPUT NUMBER OF WORDS TO SELECT ON AND LOGIC 1 0 INDEX,VALUE,-1 0 OR 1 1 0 1 1* 5 STUDENDT 5 0 0 0 0 1* 10 STUDENT 10 0 0 0 0 1* 13 STUDENT 13 0 0 0 0 1* 14 STUDENT 14 0 0 0 0 1* 16 STUDENT 16 0 0 0 0 1* 20 STUDENT 20 0 0 0 0 1* 25 STUDENT 25 0 0 0 0 1* 30 STUDENT 30 0 0 0 0 1* 40 STUDENT 40 0 0 0 0 1* 50 STUDENT 50 0 0 0 0 1* 70 STUDENT 70 0 0 0 0 PAUSE TYPE G TO CONTINUE,X TO EXIT. X EXECUTION TIME: 0.58 SEC. TOTAL ELAPSED TIME: 1 MIN. 52.85 SEC. NO EXECUTION ERRORS DETECTED EXIT .K Confirm: F Job 8, User [10,3] Logged off TTY25 1215 4-May-71 Saved all 133 files (940. Disk blocks) Runtime 1 Min, 14.79 Sec .RUN DSK DMPFMT FILE ID? MATH PACKS: GRADE 1 1 1 1 ID 2 2 5 3 NAME 3 7 1 1 TEST1 4 8 1 1 TEST2 5 9 1 1 TEST3 6 10 1 1 TEST4 EXECUTION TIME: 0.15 SEC. TOTAM ELAPSED TIME: 23.57 SEC. NO EXECUTION ERSOSS DETECTED EXIT .RUN DSK EDITF TYPE FILE NAME MAUH PACKS: GRADE WOULD YOU LIKE TO LOOP THRU EVERYOOE IN THE FILE? YES 5 STUDENDT 5 CATAGORY? HIT THE RETURN KEY TO PROCEED TO ANOTHER RECORD TYPE 999 TO TERMINAUE EDITING 3 TEST1: 0 60 CATAGORY? 4 TEST2: 0 70 CATAGORY? 10 STUDENT 10 CATAGORY? 3 TEST1: 0 95 CATAGORY? 4 TEST2: 0 85 CATAGORY? 13 STUDENT 13 CATAGORY? 3 TEST1: 0 CATAGORY? 14 STUDENT 14 CATAGORY? 3 TEST1: 0 81 CATAGORY? 5 TEST2: 0 73 CATAGORY? 17 STUDENT 16 CATAGORY? 3 TEST1: 0 92 CATAGORY? 4 TEST2: 0 96 CATAGORY? 20 STUDENT 20 CATAGORY? 25 STUDENT 25 CATAGORY? 3 TEST1: 0 93 CATAGORY? 4 TEST2: 0 76 CATAGORY? 30 STUDENT 30 CATAGORY? 3 TEST1: 0 56 CATAGORY? 4 TEST2: 0 75 CATAGORY? 40 STUDENT 40 CATAGORY? 3 TEST1: 0 72 CATAGORY? 3 TEST1: 72 76 CATAGORY? 50 STUDENT 50 CATAGORY? 3 TEST1: 0 80 CATAGORY? 4 TEST2: 0 97 CATAGORY? 70 STUDENT 70 CATAGORY? 3 TEST1: 0 100 CATAGORY? 4 TEST2: 0 96 CATAGORY? JOB COMPLETED EXECUTION TIME: 1.35 SEC. TOTAL ELAPSED TIME: 4 MIN. 45.53 SEC. NO EXECUTION ERRORS DETECTED EXIT .TYPE AVEGRD C THIS PROGRAM COMPUTES THE WEIGHTED AVERAGES OF N TEST C SCORES . ALSO THE AVERAGE OF EACH TEST. SCORES ARE C ASSUMED TO BE STORED IN IB(7) THRU IB(7+NTEST-1) COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,DATME COMMON IFRMAT(3,6) DIMENSION IB(20),B(20),WEIGHT(20),TOTALS(20) EQUIVALENCE(IB(1),B(1)) FILE=ANSWER('FILE ID?') CALL SLECTF(FILE) INDX1=IFRMAT(1,3) NTEST=NCPR-2 INDX2=INDX1+NTEST-1 C READ IN CATEGORY PROMPTS CALL DIO(LFR-NSPR,1,IB,NSPR) TYPE 100 100 FORMAT(1X,'INPUT WEIGHTS'/) DO 1 I=1,NTEST TYPE 101,IB(IFRMAT(1,I+2)) 101 FORMAT(1X,A5,1X$) 1 ACCEPT 102,WEIGHT(I) 102 FORMAT(F) TYPE 105,(IB(IFRMAT(1,I+2)),I=1,NTEST) 105 FORMAT(1H1,32X,'FINAL ',6A6) C LOOP THRU ALL STUDENTS IN FILE DO 2 LSR=LFR,NAVR-NSPR,NSPR CALL READR(IB) FINAL=0.0 K=0 DO 3 I=INDX1,INDX2 K=K+1 TOTALS(K)=TOTALS(K)+IB(I) 3 FINAL=FINAL+WEIGHT(K)*IB(I) TOTALS(NTEST+1)=TOTALS(NTEST+1)+FINAL 2 TYPE 103,(IB(I),I=1,6),FINAL,(IB(I),I=7,INDX2) 103 FORMAT(1X,I5,1X,5A5,F6.1,6I6) DO 4 I=1,OTEST+1 4 TOTALS(I)=TOTALS(I)/((NAVR-LFR)/NSPR) TYPE 104,TOTALS(NTEST+1),(TOTALS(I),I=1,NTEST) 104 FORMAT(1H0,'CLASS AVERAGES',18X,5F6.1) CALL EXIT END .EX AVEGRD,FFM%L FORTRAN: AVEGRD LOADING LOADER 5K CORE EXECUTION FILE ID? MATH PACKS: GRADE HOW MANY TESTS TO AVERAGE? 2 INPUT WEIGHTS TEST1 .3 TEST2 .7 FINAL TEST1 TEST2 5 STUDENT 5 67.0 60 70 11 STUDENT 10 89.0 95 85 13 STUDENT 13 0.0 0 0 14 STUDENT 14 75.4 81 73 16 STUDENT 16 94.8 92 96 20 STUDENT 20 0.0 0 0 25 STUDEOT 25 81.1 93 76 30 STUDENT 30 69.3 56 75 40 STUDENT 40 22.8 76 0 50 STUDENT 50 91.9 80 97 70 STUDENT 70 97.2 100 96 CLASS AVERAGES 62.5 66.6 60.7 EXECUTION TIME: 0.42 SEC. TOTAL ELAPSED TIME: 1 MIN. 34.72 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK UPDTF THIS PROGRAM WILL ADD OR EXTRACT SPECIFIED RECORDS FROM A MASTER FILE. RECORDS ARE ASSUMED TO BE IN FORMAT(I,5A5) MASTER FILE? MATH TEMP FILE? T INPUT MAXR FOR FILE T 5 PACKS: GRADE SHOULD TEMP FILE BE INITILIZED? YES ENTER RECORD INFORMATION.TYPE FOR END OF FILE 13 20 TO MERGE FILE, T , TO MASTER FILE MATH TYPE A 1, TO EXTRACT TEMPORARY FILE FROM MASTERFILE,TYPE A 0, TO ABORT JOB TYPE A 2 0 TO MERGE FILE, T , TO MASTER FILE MATH TYPE A 1, TO EXTRACT TEMPORARY FILE FSOM MASTERFILE,TYPE A 0, TO ABORT JOB TYPE A 2 2 T IS STILL ON THE PACK. TO DELETE IT PAUSE TYPE G TO CONTINUE,X TO EXIT. G EXECUTION TIME: 0.57 SEC. TOTAL ELAPSED TIME: 1 MIN. 34.12 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK EDITF TYPE FILE NAME MATH PACKS: GRADE WOULD YOU LIKE TO LOOP THRU EVERYONE IN THE FILE? NO TYPE ID 40 40 STUDENT 40 CATAGORY? HIT THE RETURN KEY TO PROCEDD TO ANOTHER RECORD TYPE 999 TO TERMINATE EDITING 4 TEST2: 0 97 CATAGORY? 999 EXECUTION TIME: 0.27 SEC. TOTAL ELAPSED TIME: 1 MIN. 43.60 SEC. NO EXECUTION ERRORS DETECTED EXIT .EX FORTRAO: AVEGRD LOADING LOADER 5K CORE EXECUTION FILE ID? MATH PACKS: GRADE HOW MANY TESTS TO AVERAGE? 2 INPUT WEIGHTS TEST1 .3 TEST3 .7 FINAL TEST1 TEST2 5 STUDENDT 5 67.0 60 70 10 STUDENT 10 88.0 95 85 14 STUDENT 14 75.4 81 73 16 STUDENT 16 94.8 92 96 25 STUDENT 25 81.1 93 76 30 STUDENT 30 69.3 56 75 40 STUDENT 40 90.7 76 97 50 STUDENT 50 91.9 80 97 70 STUDENT 70 97.2 100 96 CLASS AVERAGES 83.9 81.4 85.0 EXECUTION TIME: 0.40 SEC. TOTAL ELAPSED TIME: 1 MIN. 25.08 SEC. NO EXECUTION ERRORS DETECTED EXIT . AS TTY LPT TTY26 ASSIGNED .RUN DSK LISTF INPUT FILE ID MATH PACKS: GRADE INPUT NUMBER OF WORDS TO SELECT ON AND LOGIC 2 0 INPUT WORD INDEX,COMPARISON VALUE,-1 0 OR 1 7 85 1 8 85 1 ID NAME ITEM 7 ITEM 8 10 STUDENT 10 95 85 16 STUDENT 16 92 96 25 STUDENT 25 93 76 40 STUDENT 40 76 97 50 STUDENT 50 80 97 70 STUDENT 70 100 96 6 536 6 547 CONTINUE? NO EXECUTION TIME: 0.33 SEC. TOTAL ELAPSED TIME: 1 MIN. 31.88 SEC. NO EXECUTION ERRORS DETECUED EXIT .EX SLSUBF,FFM%L FORTRAN: SLSUBF LOADING LOADER 6K CORE EXECUTION INPUT MASTER FILE ID MATH INPUT TEMP FILE ID,NSPR,MAXR,NCPR MASRT 1 25 0 INPUT NUMBER OF WORDS TO SELECT ON,1-ALL 0-OR 1 1 INPUT WORD #,VALUE TO COMPARE,COMPARISON CODE 1 0 1 PACKS: GRADE 5STUDENDT 5 10STUDENT 10 14STUDENT 14 16STUDENT 16 25STUDENT 25 30STUDENT 30 40STUDENT 40 50STUDENT 50 70STUDENT 70 EXECUTION TIME: 0.35 SEC. TOTAL ELAPSED TIME: 1 MIN/ 41.47 SEC. NO EXECUTION ERRORS DETECTED EXIT .EX SRTSHL,FFM%L LOADING LOADER 6K CORE EXECUTION NUMBER OF PACKS TO BE USED IN SORT? 1 INPUT PACK NAME CONTAINING MASTER FILE GRADE INPUT PACK NAME ON WHICH TO PUT TEMPORARY FILE GRADE INPUT MASTER FILE,TEMPORARY FILE , FILE TO STORE RESULTS, IN FORMAT(3A5) MASRTTEMP MASRT INPUT THE NUMBER OF WORDS TO SORT ON 1 INPUT W0RD NUMBER,DIGIT OR CHARACTER(FROM RIGHT) TO START SORT ON, NUMBER OF DIGITS TO SORT 7 1 3 INPUT 2 IF WORD IS INTEGER,3 IF ALPHA 2 GRADE GRADE MASRT TEMP MASRT 7 3 1 1 1 PACKS: GRADE EXECUTION TIME: 0.67 SEC. TOTAL ELAPSED TIME: 1 MIN. 34.63 SEC. NO EXECUTION ERRORS DETECTED EXIT .EX AVEGRD,FFM%L LOADING LOADER 5K CORE EXECUTION FILE ID? MASRT PACKS: GRADE HOW MANY TESTS TO AVERAGE? 2 INPUT WEIGHTS .3 .7 FINAL 30 STUDENT 30 69.3 56 75 5 STUDENDT 5 67.0 60 70 40 STUDENT 40 90.7 76 97 50 STUDENT 50 91.9 80 97 14 STUDENT 14 75.4 81 73 16 STUDENT 16 94.8 92 96 25 STUDENT 25 81.1 93 76 10 STUDENT 10 88.0 95 85 70 STUDENT 70 97.2 100 96 CLASS AVERAGES 83.9 81.4 85.0 EXECUTION TIME: 0.38 SEC. TOTAL ELAPSED TIME: 1 MIN. 50.68 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK DMPPTF PACKS: GRADE GRADE 1 5 10 1 4 0 0 1 514711517 MATH 14 23 39 1 20 11 6 2 514711458 MASRT 42 51 67 1 50 40 6 3 514711522 0 11 68 200 1 80 0 2 4 514711522 EXECUTION TIME: 0.15 SEC. TOTAL ELAPSED TIME: 26.25 SEC. NO EXECUTION ERRORS DETECTED EXIT .RUN DSK SCRTCH FILE ID TO BE DELETED? MASRT PACKS: GRADE EXECUTION TIME: 0.15 SEC. TOTAL ELAPSED TIME: 10.03 SEC. NO EXECUTION ERRORS DETECTED EXIT .K Confirm: F Job 13, User [10,3] Logged off TTY26 1526 14-May-71 Saved all 141 files (1083. Disk blocks) Runtime 1 Min, 02.65 Sec