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