10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT22:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 22 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  PRINT "FOR ANY YES OR NO QUESTION IN THIS PROGRAM, '1' IS YES"
110  PRINT "AND THE OTHER NUMBERS ARE 'NO'. READY";
120  INPUT A
130  PRINT 
140  IF A=1 THEN 170
150  PRINT "TYPE 'RUN' WHENEVER YOU ARE."
160  STOP 
170  PRINT "DID YOU LIST THE MERGED PROGRAM";
180  INPUT A
190  PRINT 
200  IF A=1 THEN 240
210  PRINT "WELL, DO THAT SO WE CAN TALK - I MEAN TYPE - ABOUT IT. THEN"
220  PRINT "CALL THIS PROGRAM BACK, AND BEGIN AGAIN. SEE YOU LATER."
230  STOP 
240  PRINT "THEN COMPARE IT WITH THIS AND SEE IF THIS IS WHAT YOU HAVE:"
250  PRINT 
260  PRINT "   100 INPUT X, Y"
270  PRINT "   110 LET W = X+2-Y"
280  PRINT "   120 LET U = Y^2-Y"
290  PRINT "   130 IF U+2>Y+3 THEN 160"
300  PRINT "   140 GO TO 100"
310  PRINT "   150 STOP"
320  PRINT "   160 PRINT X, Y, W+2-U"
330  PRINT "   170 END"
335  PRINT 
340  PRINT "IF THERE ARE SPACES MISSING ON A LINE IT IS IMMATERIAL. IF YOU"
350  PRINT "DID NOT GET THE ABOVE PROGRAM, RE-EDIT (MERGE) AND START THIS"
360  PRINT "PROGRAM AGAIN. DID YOU";
370  INPUT A
380  PRINT 
390  IF A=1 THEN 420
400  PRINT "SEE YOU LATER THEN."
410  STOP 
420  PRINT "THAT'S FINE. NOTICE THAT IN ORDER TO 'APPEND' A PROGRAM,"
430  PRINT "THE FIRST STATEMENT OF THAT PROGRAM MUST HAVE A LINE NUMBER"
440  PRINT "GREATER THAN THE LAST STATEMENT OF THE PROGRAM TO WHICH IT IS"
450  PRINT "BEING APPENDED."
650  PRINT 
770  PRINT 
775  PRINT "---BY THE WAY, PLEASE 'KILL' THE SHORT EXERCISE ROUTINES"
776  PRINT "YOU SAVED AND USED IN 'TUT21' AND 'TUT22'. THANKS A HEAP."
780  PRINT "THE NEXT LESSON IS CALLED 'TUT23'."
790  END 
