10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT18:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 18 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  LET S=11
110  REM ******
120  REM***STATEMENT 100 MUST ALWAYS BE PRESERVED WHEN PERFORMING ANY
130  REM***RESEQUENCING, AS IT MAINTAINS CONTINUITY WITH PREVIOUS PROG.
140  REM ******
150  GOTO 240
192  PRINT 
200  PRINT "PLEASE ENTER THE STATEMENT THAT WAS REQUESTED AT THE END OF"
201  PRINT "'TUT17', AND THEN TYPE 'RUN'."
210  GOTO 1320
240  PRINT 
250  LET N=0
260  LET H[1]=13
270  LET H[2]=7
290  LET H[3]=5
300  LET H[4]=15
320  GOTO 390
330  INPUT Z
340  PRINT 
350  LET N=N+1
360  IF Z <> H[N] THEN 380
370  LET S=S+1
380  RETURN 
390  PRINT "ALRIGHT, STUDENTS, LET'S NOT WASTE ANY TIME. I HOPE YOU HAVE"
400  PRINT "THE LIST OF SYSTEM COMMANDS FROM THE PREVIOUS PROGRAM READY, SO"
410  PRINT "WE CAN GET ON WITH THE QUIZ."
420  PRINT 
430  PRINT "LET'S RESUME WITH THE QUESTIONS."
440  PRINT 
450  PRINT 
460  PRINT "(L) I FINALLY FOUND OUT HOW TO SAVE PROGRAMS IN MY LIBRARY."
470  PRINT "EVERYTHING WORKED WELL WHILE I WAS DEVELOPING THE PROGRAMS."
480  PRINT "HOWEVER, SOME OF THOSE PROGRAMS ARE NOW OBSOLETE, AND I WOULD"
490  PRINT "LIKE TO CLEAN HOUSE. WHAT CAN I DO TO GET RID OF THOSE PROGRAMS"
500  PRINT "WHICH I NO LONGER NEED";
510  GOSUB 330
520  PRINT "(M) I HAVE JUST ENTERED A PROGRAM INTO THE SYSTEM VIA THE TAPE"
530  PRINT "READER ON THE TELETYPE. WHAT COMMAND SHOULD I GIVE BEFORE I"
540  PRINT "TYPE SAVE ";
580  GOSUB 330
670  PRINT "(N) DID YOU MESS ME UP. REMEMBER THAT RENUMBER"
680  PRINT "YOU TOLD ME ABOUT? BALONEY, YESTERDAY I TRIED IT, AND SURE"
690  PRINT "ENOUGH, I LISTED THE PROGRAM AND SAW THAT THE STATEMENTS WERE"
700  PRINT "NEWLY INCREMENTED. BUT TODAY I TRIED TO CORRECT ONE OF THE"
710  PRINT "STATEMENTS, USING THAT LIST AS A REFERENCE. NOT ONLY DID I"
720  PRINT "NOT CORRECT THE STATEMENT I INTENDED, I REWROTE ANOTHER STATEMENT"
730  PRINT "NOWHERE NEAR THE ONE IN QUESTION. SOMEBODY TOLD ME THAT I "
740  PRINT "NEGLECTED TO DO ONE THING AFTER I PERFORMED THE EDIT COMMAND."
750  PRINT "WHAT SHOULD I HAVE DONE";
760  GOSUB 330
770  PRINT "(0) I AM WRITING A RATHER LARGE, ELABORATE PROGRAM. I DEVELOPED"
780  PRINT "PART OF IT UNDER ONE PROGRAM NAME, AND TO MAKE THINGS EASIER, I"
790  PRINT "DEVELOPED THE REST OF IT UNDER A DIFFERENT PROGRAM NAME. I FINALLY"
800  PRINT "DEBUGGED THEM, AND NOW I WANT TO COMBINE THEM. IT WOULD SEEM"
810  PRINT "THAT IN THIS AGE OF SPACE TRAVEL, NUCLEAR ENERGY AND THE PILL,"
820  PRINT "THERE SHOULD BE AN EASIER WAY TO COMBINE THE PROGRAMS, RATHER"
830  PRINT "THAN RETYPE ALL OF THE STATEMENTS FROM ONE OF THE PROGRAMS INTO"
840  PRINT "THE OTHER. IS THERE ANY SPECIAL COMMAND I CAN USE";
850  GOSUB 330
930  PRINT 
940  PRINT 
950  PRINT "---- THAT'S ALL THE QUESTIONS FOR NOW. LET'S SEE HOW WELL YOU DID."
960  PRINT 
970  PRINT "YOU ANSWERED";S;"OF THE 15 QUESTIONS CORRECTLY."
990  IF S<15 THEN 1040
1000  PRINT "PERFECT SCORE (TELL ME THE TRUTH, DID SOMEONE HELP YOU)"
1010  GOTO 1120
1040  PRINT 
1050  PRINT "THE CORRECT ANSWERS ARE AS FOLLOWS:"
1060  PRINT 
1070  PRINT "  (A)  (B)  (C)  (D)  (E)  (F)  (G)  (H)  (I)"
1080  PRINT "    5   17    3    12   11   9    4    6    16"
1090  PRINT 
1100  PRINT "  (J)  (K)  (L)  (M)  (N)  (O)"
1110  PRINT "   10   14   13   7    5    15"
1120  PRINT 
1130  PRINT "WE'LL DISCUSS THESE AND OTHER SYSTEM COMMANDS IN LATER SESSIONS."
1140  PRINT "THE IMPORTANT THING TO REMEMBER IS: BEFORE YOU ISSUE A SYSTEM"
1150  PRINT "COMMAND, CHANGE TO ANOTHER PROGRAM, OR SIGN OFF, YOU MUST"
1160  PRINT "CONSIDER THE EFFECT ON YOUR CURRENT WORKING AREA."
1170  PRINT 
1290  PRINT 
1300  PRINT "THE NEXT LESSON IS 'TUT19'. COME BACK Y'ALL."
1320  END