10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT24:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 24 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  GOTO 120
110  GOTO 940
120  PRINT "THIS IS A CONTINUATION LESSON.";
130  PRINT " IF YOU HAVE SUCCESSFULLY COMPLETED"
140  PRINT "THE LAST LESSON SEGMENT, PLEASE TYPE '1'";
150  PRINT " HERE. IF NOT, TYPE ANY NUMBER"
160  PRINT "INSTEAD. DID YOU";
170  INPUT A
180  PRINT 
190  IF A=1 THEN 840
200  PRINT "TYPE '1' IF YOU LOOKED OVER MY ALTERED PROGRAM,";
210  PRINT " OR ANOTHER NUMBER IF YOU"
220  PRINT "DIDN'T. DID YOU";
230  INPUT A
240  PRINT 
250  IF A=1 THEN 310
260  PRINT "WELL, WHAT YOU'D BETTER DO IS CALL IN";
270  PRINT " 'TUT23' AGAIN; FIRST TYPE '20',";
280  PRINT "AND THEN TYPE '30'.  THEN RE-RUN IT AND ";
290  PRINT "LET ME SHOW YOU MY ALTERATIONS."
300  STOP 
310  PRINT "IF YOU FOLLOWED IT, TYPE '1'. IF NOT, ";
320  PRINT "TYPE ANOTHER NUMBER, AND I'LL DRAW"
330  PRINT "A FLOW CHART FOR YOU. DID YOU";
340  INPUT A
350  PRINT 
360  IF A=1 THEN 840
370  PRINT "HERE'S THE FLOW CHART. THE FLOW OF INFORMATION";
380  PRINT " BETWEEN 'BOXES' IS ALWAYS"
390  PRINT "DOWNWARD OR TO THE RIGHT:"
400  PRINT 
410  PRINT "  (140)        (150)        (160)"
420  PRINT "    .            .            ."
430  PRINT "    .            .            ."
440  PRINT "........      ........     ........"
450  PRINT ". U<V? ..NO.. U<W?  ..NO..  V>W?  ..NO.."
460  PRINT "........      ........     ........    ."
470  PRINT "    .            .            .     ......."
480  PRINT "   YES          YES          YES    . Y=V ."
490  PRINT "    .            .            .     . V=W ."
500  PRINT ".......     .......           .     . W=Y ."
510  PRINT ".  Y=U .      . Y=U .         .     ......."
520  PRINT ".  U=V .      . U=W .         .        ."
530  PRINT ".  V=Y .      . W=Y .         .        ."
540  PRINT "........      .......         .     ........"
550  PRINT "    .            .            ....... X>U? ..NO.."
560  PRINT "    .            .                  ........    ."
570  PRINT "  (150)        (160)                   .     ........"
580  PRINT "                                      YES    . X<U? ..NO.."
590  PRINT "                                       .     ........    ."
600  PRINT "                                       .        .        ."
610  PRINT "................             ...............   YES    (1100)"
620  PRINT ". READ U,V,W   .             .  PRINT ABS  .    ."
630  PRINT "................             . X-(U+V+W)/3 .    ."
640  PRINT "      .                      ...............    ."
650  PRINT "    (120)                              .        ."
660  PRINT " ...........                         .     ..............."
670  PRINT " . INPUT X .                         .     .  PRINT ABS  ."
680  PRINT " ...........               (1100)    .     . U-(X+V+W)/3 ."
690  PRINT "      .                      .       .     ..............."
700  PRINT "      .                      .       .         ."
710  PRINT "  .........             ...........  .         ."
720  PRINT "  . SPACE .             .  PRINT  .  .     ........."
730  PRINT "  .........             .  ''NO   .......... SPACE ...."
740  PRINT "      .                 . MAXIMUM .        .........  ."
750  PRINT "      .                 . VALUE'' .                   ."
760  PRINT "    (140)               ...........                 (120)"
770  PRINT 
780  PRINT "IF YOU WILL TRACE AROUND THE DOTS PROPERLY,";
790  PRINT "WITH PEN OR PENCIL, YOU WILL"
800  PRINT "FIND THE FLOW CHART EASIER TO FOLLOW. YOU";
810  PRINT " SHOULD COMPARE IT WITH WHAT MY"
820  PRINT "ADJUSTED PROGRAM SAYS."
830  PRINT 
840  PRINT "NOW LET'S TRY A DIFFERENT PROBLEM. ASSUME";
850  PRINT " YOU RECEIVE INTEREST OF 4 PER-"
860  PRINT "CENT, COMPOUNDED QUARTERLY, ON AN ORIGINAL";
870  PRINT " AMOUNT 'P'. PRINT OUT CURRENT"
880  PRINT "VALUE FOR EACH YEAR, OVER A 10-YEAR PERIOD.";
890  PRINT " RUN THE PROGRAM AND SAVE IT."
900  PRINT "THEN CALL THIS ONE BACK IN, AND TYPE '100'";
910  PRINT " BEFORE YOU RUN IT."
920  PRINT "WE CAN CHECK YOUR ANSWERS WITH MINE."
930  STOP 
940  PRINT "HERE IS MY PROGRAM:"
950  PRINT 
960  PRINT "    100 PRINT''THE VALUE OF P IS'';"
970  PRINT "    110 INPUT P"
980  PRINT "    120 PRINT"
990  PRINT "    130 PRINT''YEAR NUMBER AND AMOUNT ARE GIVEN BELOW:''"
1000  PRINT "     140 PRINT"
1010  PRINT "     150 FOR I=1 TO 10"
1020  PRINT "     160 FOR J=1 TO 4"
1030  PRINT "     170 LET P=P+.01*P"
1040  PRINT "     180 NEXT J"
1050  PRINT "     190 PRINT I,P"
1060  PRINT "     200 PRINT"
1070  PRINT "     210 NEXT I"
1080  PRINT "     220 END"
1090  PRINT 
1100  PRINT "HERE IS THE PROGRAM AS IT WILL APPEAR";
1110  PRINT " WHEN RUN.  FILL IN AN INITIAL ";
1120  PRINT "VALUE FOR 'P' WHEN IT IS REQUESTED (AROUND $1000):"
1130  PRINT 
1140  PRINT "THE VALUE OF P IS";
1150  INPUT P
1160  PRINT 
1170  PRINT "YEAR NUMBER AND AMOUNT ARE GIVEN BELOW:"
1180  PRINT 
1190  FOR I=1 TO 10
1200  FOR J=1 TO 4
1210  LET P=P+.01*P
1220  NEXT J
1230  PRINT I,P
1240  PRINT 
1250  NEXT I
1260  PRINT "EVEN THOUGH YOU MAY HAVE PROGRAMMED IT";
1270  PRINT " DIFFERENTLY, YOUR ANSWERS FOR 'P'"
1280  PRINT "VALUES SHOULD AGREE WITH MINE, IF THEY DO";
1290  PRINT " NOT, MAKE A FLOW CHART FROM MY"
1300  PRINT "PROGRAM IN ORDER TO TRACE OUT THE FLOW";
1310  PRINT " OF INFORMATION."
1320  PRINT 
1330  PRINT "NOW WRITE A PROGRAM WHICH WOULD PERMIT YOU";
1340  PRINT " TO ADD TO OR SUBTRACT FROM AN"
1350  PRINT "AMOUNT 'P' EVERY YEAR FOR 5 YEARS. ASSUME";
1360  PRINT " THAT YOU KNOW THE FIVE AMOUNTS"
1370  PRINT "WHICH ARE TO BE USED. A 'READ' STATEMENT";
1380  PRINT " IS PROBABLY PREFERABLE TO USING"
1390  PRINT "AN 'INPUT' STATEMENT, BUT YOU MAY DO";
1400  PRINT " WHATEVER YOU WISH, AFTER YOU'VE RUN"
1410  PRINT "THE PROGRAM, SAVE IT."
1420  PRINT 
1430  PRINT "THEN, CALL IN 'TUT25' TO FINISH THIS LESSON."
1440  END 
