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