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