10  REM ***  HP TIME-SHARED BASIC PROGRAM LIBRARY  *********************
11  REM
12  REM         TUT10:  TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE,
13  REM                 (PART 10 OF 25)
14  REM         36139 (A810) REV A -- 7/71
15  REM
16  REM ***  CONTRIBUTED PROGRAM  **************************************
17  REM
100  PRINT "THIS PROGRAM IS FOR PRACTICE IN USING TAPE. HAVE YOU STARTED"
110  PRINT "IT BEFORE (0=NO, ALL OTHER NUMBERS=YES)";
120  INPUT V
130  PRINT 
140  IF V <> 0 THEN 590
150  PRINT "THEN HERE'S WHAT WE'LL DO. FIRST WE'LL PUNCH A TAPE AND THEN"
160  PRINT "WE'LL READ IT IN THROUGH THE READER AND TRY TO RUN IT."
170  PRINT 
180  PRINT "  AFTER I'VE TYPED 'DONE', YOU EXECUTE THE FOLLOWING INSTRUCTIONS:"
190  PRINT 
200  PRINT "  1. TYPE 'PUNCH-1111' (WITHOUT 'RETURN')"
210  PRINT 
220  PRINT "  2. TURN ON THE PUNCH BY DEPRESSING THE ON BUTTON ON THE LEFT"
230  PRINT "     SIDE OF THE TELETYPE."
240  PRINT 
250  PRINT "  3. PRESS 'RETURN'. THIS WILL CAUSE A TAPE TO BE PUNCHED."
260  PRINT "     A LISTING WILL BE GENERATED WHILE THE TAPE IS PUNCHING."
270  PRINT 
280  PRINT "  4. WHEN TAPE IS NO LONGER BEING GENERATED FROM THE PUNCH,"
290  PRINT "     YOU CAN TURN IT OFF BY PRESSING THE OFF BUTTON (RIGHT ABOVE"
300  PRINT "     THE ON BUTTON)."
310  PRINT 
320  PRINT "  5. TEAR OFF THE NEWLY PUNCHED TAPE."
330  PRINT 
340  PRINT "  6. LIFT THE LITTLE PLASTIC CLAMP ON THE READ UNIT."
350  PRINT 
360  PRINT "  7. PLACE THE TAPE IN THE READER BY;"
370  PRINT "     A) LOCATING THE SECTION OF TAPE THAT CONTAINS A SERIES"
380  PRINT "        OF BLANK FEED HOLES,"
390  PRINT "     B) PLACING THIS SECTION OF THE TAPE UNDER THE CLAMP WITH"
400  PRINT "        THE TEETH OF THE SPROCKET IN THE FEED HOLES, AND"
410  PRINT "     C) CLOSING THE CLAMP DOWN ON THE READER."
420  PRINT 
430  PRINT "  8.  TYPE 'SCRATCH' (CR) AND THEN 'TAPE' (CR)."
440  PRINT 
450  PRINT "  9. PRESS THE LEVER ON THE FAR LEFT SIDE ALL THE WAY FORWARD."
460  PRINT 
470  PRINT " 10. REMOVE THE TAPE WHEN THE TELETYPE HAS READ IT ALL."
480  PRINT 
490  PRINT " 11. TYPE 'KEY'. IF ANY ERRORS WERE DETECTED DURING READING,"
500  PRINT "     THE DIAGNOSTICS WOULD BE PRINTED NOW."
510  PRINT 
520  PRINT " 12. IF NEEDED, CORRECT ANY ERRORS."
530  PRINT 
540  PRINT " 13. TYPE 'RUN'."
550  PRINT 
560  PRINT 
570  PRINT "  WHEN THE PROGRAM IS THROUGH RUNNING, CALL 'TUT09' BACK."
580  STOP 
590  PRINT 
600  PRINT "DO YOU WISH TO RUN THROUGH THIS PROGRAM AGAIN (0=NO,"
605  PRINT "ANY OTHER NUMBER=YES)";
610  INPUT C
620  PRINT 
630  IF C <> 0 THEN 180
640  PRINT "WHEN YOU WISH TO MOVE ON AND LEARN MORE, CALL BACK 'TUT09'."
650  PRINT "SEE YOU THERE."
660  STOP 
1111  PRINT "HOW MUCH IS 2 PLUS 2";
1120  INPUT A
1130  PRINT 
1140  IF A=4 THEN 1170
1150  PRINT "AW, COME ON - HOW MUCH";
1160  GOTO 1120
1170  PRINT "RIGHT, NOW CALL IN 'TUT09' AGAIN."
1180  END 
