10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT20:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 20 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  PRINT "WHAT HAPPENED WHEN YOU TRIED THE 'DELETE' COMMAND"
110  PRINT "ON THAT OTHER PROGRAM, DID IT WORK (1=YES, 0=NO)";
220  INPUT C
230  PRINT 
240  IF C <> 1 THEN 300
250  PRINT "THIS IS AN ACCOMPLISHMENT. NOW LET'S ELABORATE A LITTLE ON THIS"
260  PRINT "COMMAND. THERE'S MORE THAT WE CAN USE IT FOR. SUPPOSE THAT YOU"
270  GOTO 420
300  PRINT "DIFFERENT THINGS COULD HAVE GONE WRONG. BUT LET'S CONCENTRATE"
310  PRINT "ON HOW TO MAKE IT COME OUT RIGHT. WHEN YOU USE THIS COMMAND TO"
320  PRINT "DELETE AN ENTIRE BLOCK OF LINES, BE SURE YOU TYPE 'DELETE' AND"
330  PRINT "SEPARATE IT FROM THE LINE NUMBERS WITH A HYPHEN. SEPARATE THE LINE"
340  PRINT "NUMBERS WITH A COMMA."
372  PRINT 
375  PRINT "TO GIVE YOU SOME MORE PRACTICE, TRY DELETING WHAT WE'VE DONE SO"
380  PRINT "FAR IN THIS PROGRAM. WHEN I STOP, TYPE 'DELETE - 100,400' AND"
390  PRINT "AND TYPE 'RUN' AGAIN. YOU SHOULD GET LINE 410. LINE 410 IS THE"
392  PRINT "FIRST PROGRAM LINE AFTER 400, WHICH IS THE LAST ONE TO BE DELETED."
395  PRINT "IF IT DOESN'T WORK, CALL THIS WHOLE PROGRAM BACK IN. OH YES -"
398  PRINT "IF IT WORKS YOU WILL BE GREETED WITH 'NICE GOING.....(ETC.)'"
400  STOP 
410  PRINT "NICE GOING - YOU HAVE THAT PART MASTERED NOW. NEXT, SUPPOSE YOU"
420  PRINT "MENTION A LINE NUMBER THAT ISN'T PART OF THE PROGRAM. WHAT"
430  PRINT "HAPPENS? FOR INSTANCE, SUPPOSE YOU SAY 'DELETE - 340,580'"
440  PRINT "AND THE PROGRAM JUMPS FROM LINE 550 TO LINE 600, SO THAT LINE"
450  PRINT "580 DOESN'T EXIST. TYPE '1' IF YOU THINK THE COMMAND IS STILL"
460  PRINT "VALID, OR '2' IF YOU THINK IT ISN'T, WHAT DO YOU THINK";
470  INPUT D
480  PRINT 
490  PRINT "IT'S VALID. THE DELETION WOULD SIMPLY OCCUR THROUGH LINE 550."
500  PRINT "SO IF WE WANTED TO DELETE THE ENTIRE LAST PART OF A PROGRAM"
510  PRINT "FROM A PARTICULAR LINE NUMBER AND WEREN'T SURE OF THE FINAL"
520  PRINT "LINE NUMBER, WE COULD PUT 9999 FOLLOWING THE COMMA AND KNOW"
530  PRINT "THAT OUR OBJECTIVE WAS ACCOMPLISHED. SIMILARLY, IF THE NUMBER"
540  PRINT "JUST AHEAD OF THE COMMA IS NOT AN ACTUAL LINE NUMBER, THE"
550  PRINT "DELETION WILL BEGIN AT THE FIRST LINE NUMBER FOLLOWING IT."
552  PRINT 
554  PRINT "ANOTHER WAY TO DELETE THE ENTIRE LAST PART OF THE PROGRAM"
555  PRINT "IS TO TYPE ONLY ONE LINE NUMBER. THE LINES WITH NUMBERS"
556  PRINT "EQUAL TO OR GREATER THAN THAT ONE, ALL THE WAY THROUGH THE"
558  PRINT "THE 'END' STATEMENT, WILL BE DELETED."
560  PRINT 
600  PRINT "LET ME TYPE OUT EITHER 'DELETE THIS LINE' OR 'DO NOT DELETE THIS"
610  PRINT "LINE', TOGETHER WITH THE LINE NUMBERS THAT THEY OCCUR ON:"
620  PRINT 
630  PRINT "   630 DO NOT DELETE THIS LINE"
640  PRINT "   640 DELETE THIS LINE"
650  PRINT "   650 DO NOT DELETE THIS LINE"
660  PRINT "   660 DELETE THIS LINE"
670  PRINT "   670 DO NOT DELETE THIS LINE"
680  PRINT "   680 DELETE THIS LINE"
700  PRINT "   700 DO NOT DELETE THIS LINE"
710  PRINT "   710 DO NOT DELETE THIS LINE"
720  PRINT "   720 DELETE THIS LINE"
730  PRINT "   730 DELETE THIS LINE"
740  PRINT "   742 DELETE THIS LINE"
741  GOTO 770
743  GOTO 1050
770  PRINT 
780  PRINT "NOW WHEN I TELL YOU, REMOVE THE ENTIRE PROGRAM UP TO BUT NOT"
790  PRINT "INCLUDING THE FIRST LINE ABOVE, AND THEN ALL 'DELETE' LINES ONLY."
800  PRINT "YOUR FORMAT WILL BE:"
810  PRINT 
812  PRINT "  DELETE - N1,N2"
814  PRINT "  DELETE - N3,N3"
816  PRINT "  DELETE - N4,N4"
818  PRINT "  DELETE - N5,N5"
820  PRINT "  DELETE - N6,N7"
830  PRINT 
840  PRINT "HERE, 'N1', 'N2', . . . . , 'N7' REPRESENT LINE NUMBERS. IF WE"
850  PRINT "ASSUME THAT YOU HAVE NO IDEA WHAT LINE NUMBERS COME AHEAD OF"
860  PRINT "LINE 630, WHAT SHOULD THE 7 'N' VALUES BE (BE SURE YOU SEPARATE"
870  PRINT "YOUR ANSWERS WITH COMMAS)";
880  INPUT N1,N2,N3,N4,N5,N6,N7
890  PRINT 
900  PRINT "ANSWERS: N1=1, N2=629, N3=640, N4=660, N5=680, N6=720, AND N7=742."
1000  PRINT 
1010  PRINT "NOW I'LL STOP AND YOU TRY IT OUT, THEN TYPE 'RUN' AGAIN.  IF YOU"
1020  PRINT "FOLLOW THE ABOVE FORMAT EXACTLY IT WILL WORK - IF YOU HAVE"
1030  PRINT "TROUBLE JUST BEGIN THIS PROGRAM OVER.  READY?  GO."
1040  STOP 
1050  PRINT 
1060  PRINT "YOU SEE - THE LINES YOU ASKED FOR WERE DELETED AND THE OTHERS"
1070  PRINT "WERE LEFT."
1160  PRINT 
1170  PRINT "SEE YOU IN OUR NEXT SESSION ";
1210  PRINT "'TUT21'."
1220  END 
