10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT16:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 16 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  PRINT "IN THE PREVIOUS SESSION, YOU WERE ASKED TO PERFORM SOME OPERATIONS"
110  PRINT "ON A TEST PROGRAM. HOPEFULLY, YOU ARE BECOMING MORE FAMILIAR"
120  PRINT "WITH THE CAPABILITIES FOR MODIFYING PROGRAMS."
130  PRINT 
140  PRINT "ANOTHER FEATURE IS THE ABILITY TO RENUMBER STATEMENTS. THIS IS"
150  PRINT "DONE BY A COMMAND OF THE FORM 'REN-X,Y', WHERE X IS THE NUMBER "
160  PRINT "ASSIGNED TO THE FIRST STATEMENT AND Y IS THE INTERVAL BETWEEN NEW"
165  PRINT "STATEMENT NUMBERS."
170  PRINT "FOR EXAMPLE, THE COMMAND 'REN-20,10' SAYS, IN EFFECT"
180  PRINT "STARTING WITH THE FIRST STATEMENT OF THE PROGRAM I AM CURRENTLY"
190  PRINT "WORKING ON, ASSIGN TO IT THE STATEMENT NUMBER 20. FROM THAT POINT"
200  PRINT "ON, RENUMBER THE REMAINING STATEMENTS IN INCREMENTS OF 10."
210  PRINT 
220  PRINT "   BEFORE                  AFTER"
230  PRINT 
240  PRINT "15 LET S=0               20 LET S=0"
250  PRINT "18 FOR I=N TO M          30 FOR I=N TO M"
260  PRINT "23 LET S=S+I             40 LET S=S+I"
270  PRINT "25 NEXT I                50 NEXT I"
280  PRINT "31 PRINT S               60 PRINT S"
290  PRINT 
300  PRINT "SUPPOSE YOU PERFORM AN EDIT RESEQUENCE COMMAND. WHICH OF THE"
310  PRINT "FOLLOWING COMMANDS WOULD BE NECESSARY IF THE RESULTING PROGRAM"
320  PRINT "WERE TO BE OF ANY USE TO YOU IN THE FUTURE.";
330  PRINT 
340  PRINT " (1) NAME  (2) GET  (3) SAVE  (4) STOP ";
350  INPUT Z
360  PRINT 
370  IF Z=3 THEN 400
375  IF Z=1 THEN 400
380  PRINT "NO. ";
400  PRINT "ACTUALLY, TO STORE THE NEWLY INCREMENTED PROGRAM IN YOUR LIBRARY."
410  PRINT "THREE COMMANDS ARE NEEDED, THEY ARE 'KILL-', 'NAME-',"
420  PRINT "AND 'SAVE', WHERE THE PROGRAM NAME FOLLOWS THE '-'."
440  PRINT 
1110  PRINT "THERE ARE SOME OTHER SYSTEM COMMANDS WHICH WILL BE DISCUSSED"
1120  PRINT "MORE FULLY IN LATER SESSIONS OF THE TUTOR SERIES, AMONG"
1150  PRINT "THESE ARE THOSE WHICH ARE NOT WORD COMMANDS, BUT RATHER"
1160  PRINT "KEY DEPRESSIONS, LIKE THE 'ALT MODE' KEY, AND THE ARROW, BOTH"
1210  PRINT "ON THE KEYBOARD. PERHAPS YOU HAVE USED ONE OR BOTH OF THESE. IN"
1220  PRINT "CASE YOU HAVEN'T, LET'S TRY THEM OUT. THE ARROW IS FOR ERASING"
1230  PRINT "SINGLE CHARACTERS (INCLUDING SPACES) YOU HAVE TYPED. FOR EXAMPLE,"
1240  PRINT "ENTER A SINGLE DIGIT ";
1250  INPUT N
1260  PRINT 
1270  PRINT "YOU TYPED IN THE NUMERAL ";N;"THAT TIME. NOW TYPE IN A NUMBER"
1280  PRINT "HAVING FOUR OR FIVE DIGITS, AND FOLLOW IT IMMEDIATELY WITH TWO"
1290  PRINT "ARROWS (KEYBOARD 'O' WITH SHIFT KEY) FOLLOWED BY ONE OR TWO"
1291  PRINT "OTHER DIGITS. TRY IT.";
1300  INPUT M
1310  PRINT 
1320  PRINT "YOU TYPED IN THE NUMERAL ";M;"THAT TIME. SEE HOW IT WORKS?"
1330  PRINT "A SINGLE ARROW WOULD HAVE ERASED THE LAST DIGIT, THREE ARROWS"
1340  PRINT "THE LAST THREE DIGITS, AND SO ON. THE OTHER EDIT COMMAND I"
1350  PRINT "MENTIONED, 'ALT MODE', WILL DELETE AN ENTIRE LINE OR EVEN SOME"
1360  PRINT "COMMANDS, SUCH AS 'SAVE', IF IT IS USED PRIOR TO THE CARRIAGE"
1370  PRINT "RETURN. TRY IT WHEN YOU WANT TO CANCEL A LINE YOU HAVE TYPED."
1380  PRINT "I'M OUT OF PROGRAM SPACE AGAIN, SO CALL 'TUT17' AND"
1390  PRINT "WE'LL CONTINUE - SEE YOU THERE -"
9999  END 
