10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT21:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 21 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  PRINT 
110  PRINT "IN THIS LESSON WE SHALL DISCUSS THE 'APPEND' COMMAND."
120  PRINT "IT WILL BE A SHORT LESSON BECAUSE I WANT YOU TO DO SOME"
130  PRINT "PRACTICING ON YOUR OWN."
450  PRINT 
460  PRINT "THE 'APPEND' COMMAND PERMITS YOU TO COMBINE TWO OR MORE"
470  PRINT "PROGRAMS INTO A SINGLE PROGRAM.  LET'S DO THIS WITH THREE VERY"
480  PRINT "SHORT PROGRAMS, SO YOU WILL EASILY BE ABLE TO SEE HOW IT IS DONE."
490  PRINT "HERE ARE THREE SUITABLE ONES:"
500  PRINT 
510  PRINT "   100 INPUT X, Y              200 READ Y"
520  PRINT "   110 LET W = X+2-Y           205 LET U = Y^2-Y"
530  PRINT "   120 FOR I=1 TO 3            240 IF U+2>Y+3 THEN 260"
535  PRINT "                               242 GO TO 200"
540  PRINT "   130 PRINT W+I               250 STOP"
550  PRINT "   140 NEXT I                  260 PRINT Y, U"
560  PRINT "   150 END                     275 DATA 1.2, 3.5"
580  PRINT "   300 INPUT X, Y, W, U        292 GO TO 200"
590  PRINT "   335 PRINT X, Y, W+2-U       300 END"
600  PRINT "   345 END"
610  PRINT 
620  PRINT "NOW WHEN I STOP, YOU GIVE EACH OF THE ABOVE PROGRAMS A NAME,"
630  PRINT "TYPE EACH ONE OUT, SAVE IT, AND BE SURE THAT IT RUNS (YOU WILL"
640  PRINT "NEED TO PROVIDE DATA FOR 'INPUT' STATEMENTS). THEN CALL THIS"
650  PRINT "PROGRAM BACK IN AND TYPE '50 GO TO 700' BEFORE YOU RUN IT."
660  STOP 
700  PRINT "FOR PURPOSES OF IDENTIFICATION, I'LL CALL THE PROGRAM IN THE"
710  PRINT "UPPER LEFT 'START', THE ONE BELOW IT 'LAST', AND THE REMAINING"
720  PRINT "ONE 'MIDDLE'. EACH OF THESE SHOULD HAVE RUN FOR YOU IF YOU USED"
730  PRINT "REASONABLE DATA. SUPPOSE WE WISH TO COMBINE THESE THREE INTO"
740  PRINT "THE FOLLOWING PROGRAM, WHICH FOR REASONS THAT WILL BE EVIDENT"
750  PRINT "LATER I'LL TYPE OUT WITHOUT LINE NUMBERS:"
760  PRINT 
770  PRINT "    INPUT X, Y"
780  PRINT "    LET W = X+2-Y"
790  PRINT "   LET U = Y^2-Y"
800  PRINT "    IF U+2>Y+3 THEN 335"
810  PRINT "    STOP"
820  PRINT "    PRINT X, Y, W+2-U"
830  PRINT "    END"
840  PRINT 
870  PRINT "COMPARING THE ABOVE PROGRAM WITH THE THREE GIVEN PROGRAMS, IT IS OBVIOUS"
880  PRINT "THAT THE FOLLOWING DELETIONS ARE NECESSARY: LINES 120 THROUGH"
890  PRINT "150 IN 'START', LINE 200 AND LINES 260 THROUGH 300 IN 'MIDDLE',"
900  PRINT "AND LINE 300 IN 'LAST'. THEN THE PROGRAMS CAN BE COMBINED IN THE"
910  PRINT "ORDER: 'START', 'MIDDLE', 'LAST'. WHEN I STOP, MAKE THE NECESSARY"
920  PRINT "DELETIONS IN YOUR PROGRAMS, TYPE 'SAVE' FOR EACH, AND CALL THIS"
930  PRINT "PROGRAM BACK IN. (THE LINE NOS. REFERENCED IN 240 & 242"
940  PRINT "MUST BE MODIFIED.)  TYPE '50 GO TO 1000' BEFORE YOU RUN IT."
950  STOP 
1000  PRINT "YOU WILL NEED TO GIVE THE MERGED PROGRAM A NAME, WHICH YOU CAN"
1010  PRINT "TYPE IN WITH A 'NAME' COMMAND. TO FORM THE NEW PROGRAM,"
1020  PRINT "YOU MUST TYPE:"
1030  PRINT 
1040  PRINT "GET-START"
1050  PRINT "APPEND-MIDDLE"
1060  PRINT "APPEND-LAST"
1070  PRINT 
1080  PRINT "'LIST' THE PROGRAM TO SEE WHAT IT LOOKS LIKE. THEN,"
1090  PRINT "TYPE REN-100 TO RESEQUENCE THE PROGRAM AND AGAIN 'LIST' THE"
1185  PRINT "PROGRAM AND LET ME KNOW HOW YOU MAKE OUT IN THE NEXT LESSON ";
1190  PRINT "'TUT22'."
9999  END 
