00100REM   TUT10
101 GOTO 120
102 PRINT"PLEASE ANSWER YES OR NO"
103 RETURN
00120PRINT"THIS PROGRAM IS FOR PRACTICE IN USING TAPE. HAVE YOU STARTED"
130PRINT"IT BEFORE (YES OR NO)";
140 INPUT V$
00150PRINT
160 IF V$ = 'NO' THEN 170
164 IF V$='YES' THEN 540
165 GOSUB 102
166 GOTO 140
00170PRINT"THEN HERE'S HOW WE'LL DO THE TAPE. I'LL GIVE YOU AN INSTRUCTION"
00180PRINT"AND THEN WAIT FOR YOU TO DO IT. YOU TYPE '1' FOR 'READY' WHEN"
00190PRINT"YOU ARE FINISHED AND WANT THE NEXT INSTRUCTION FROM ME."
00200PRINT"NOW LET'S TRY IT.....READY";
00210INPUTC
00220IF C>1 THEN 690
00230PRINT
00240PRINT"GOOD, FIRST, WHEN I STOP TYPING YOU DEPRESS THE 'ON' BUTTON"
00250PRINT"OVER THE PAPER TAPE PUNCH..........."
00260PRINT"THEN TYPE 'RUB OUT' (RIGHT HAND KEY, SECOND ROW ON THE KEYBOARD)"
00270PRINT"FIVE OR SIX TIMES. TEAR OFF THE PROTRUDING TAPE, AWAY FROM YOU"
00280PRINT"AND PARALLEL TO THE FLOOR. THIS STARTS YOU WITH FRESH TAPE. "
00290PRINT"THEN DEPRESS THE 'OFF' BUTTON OVER THE TAPE PUNCH"
00300PRINT"SO THAT I DON'T CONTINUE TO PUNCH. READY"
00310INPUTC
00320PRINT
00330PRINT"SO FAR SO GOOD. NOW SIMULTANEOUSLY DEPRESS"
00340PRINT"THE KEYS 'CTRL' AND 'SHIFT' (LEFT SIDE OF THE KEYBOARD). WHILE"
00350 PRINT"HOLDING THESE DOWN, SIMULTANEUSLY DEPRESS KEY 'P' ALONG WITH"
00360PRINT"THE 'REPT' BUTTON (RIGHT SIDE OF THE KEYBOARD). WHEN YOU"
00370PRINT"SEE SUFFICIENT BLANK TAPE TO WRITE (WITH PENCIL) A TITLE ON (TO"
00380PRINT"YOUR PROGRAM), RELEASE ALL 4 KEYS AND TYPE 'RUB OUT' FIVE OR "
00390PRINT"SIX TIMES. AGAIN PUSH THE 'OFF' BUTTON TO STOP MY"
00400PRINT"WILD DESIRE TO CONTINUE PUNCHING....READY"
00410INPUTC
00420PRINT
430PRINT"THIS TIME WHEN I TYPE 'READY', DO NOT TYPE A '1' BUT INSTEAD TYPE"
450PRINT" 'LISTNH 1115-1180' THEN PUSH THE ON BUTTON OVER THE TAPE PUNCH."
00460PRINT"AFTER TURNING THE PUNCH ON, DEPRESS THE CARRIAGE RETURN BUTTON"
00470PRINT"I'LL PUNCH A PROGRAM ON YOUR TAPE. WHEN THE TAPE STOPS,  TYPE"
00480PRINT"'RUB OUT' FIVE OR SIX TIMES, TEAR THE TAPE OFF, DEPRESS THE"
490PRINT"OFF BUTTON OVER THE TAPE PUNCH, THEN TYPE 'RUN' AFTER I TYPE 'READY'."
500PRINT"'TUTR10' IS STILL IN YOUR CORE AREA AND CAN BE RESTARTED BY SIMPLY"
510PRINT"TYPING 'RUN'. IF ANYTHING GOES WRONG, TYPE 'RUN TUTR10' AGAIN."
520 PRINT"SO PUNCH AWAY, AND GOOD LUCK TO YOU."
530 GOTO 1180
540PRINT"HAVE YOU PUNCHED OUT A TAPE YET (YES OR NO)";
550 INPUT T$
00560PRINT
570 IF T$='NO' THEN 660
572 IF T$='YES'THEN 580
574 GOSUB 102
576 GOTO 540
580 PRINT"HAVE YOU TRIED TO RUN IT YET (YES OR NO)";
590 INPUT U$
00600PRINT
610 IF U$='NO' THEN 740
611 IF U$='YES' THEN 620
612 GOSUB102
613 GOTO580
00620PRINT"BUT APPARENTLY IT DIDN'T WORK. SO NOW YOU SHOULD EITHER CALL"
630PRINT"IN 'TUTR09' AGAIN AND CONTINUE THAT, OR (WHEN I STOP) TYPE"
640PRINT"'RUN' AND START THIS PROGRAM OVER. EITHER WAY HANG IN THERE."
650 GOTO 1180
660PRINT"WELL WHAT YOU NEED TO DO, THEN IS TYPE 'RUN' (WHEN I TYPE 'READY')."
670PRINT"AND ANSWER MY FIRST QUESTION BY TYPING 'NO'...OK, BEGIN."
680 GOTO 1180
00690PRINT"YOU DIDN'T PAY ATTENTION. REMEMBER I SAID RESPOND"
00700PRINT"WITH THE DIGIT '1' AS YOUR ANSWER. LET'S TRY AGAIN."
00710PRINT"O.K. ARE YOU READY";
00720GOTO 210
730 GOTO 1180
00740PRINT"THEN YOU ARE READY FOR THE TEST OF WHETHER IT CAME OUT ALL RIGHT"
750PRINT"OR NOT.  WHENEVER YOU WANT THE NEXT INSTRUCTION, TYPE 'OK'. NOW";
760 INPUT C$
00770PRINT
780PRINT"FIRST DEPRESS THE SQUARE BUTTON ON THE TAPE READER (ON YOUR"
00790PRINT"FAR LEFT) IN ORDER TO OPEN THE CLAMP (IT SHOULD RAISE UP). OK";
800 INPUT C$
00810PRINT
820PRINT"NOW INSERT THE TAPE SO IT WILL MOVE FROM BACK TO FRONT, BEING"
00830PRINT"CAREFUL TO START IT IN THE LEAD-IN PORTION, AND LINING UP THE"
00840PRINT"DRIVING HOLES WITH THE COGS ON THE DRIVING WHEEL. READY";
850 INPUT C$
00860PRINT
00870PRINT"CAREFULLY PULL THE CLAMP DOWN OVER THE TAPE, BEING CAUTIOUS NOT"
00880PRINT"TO LOSE THE PROPER ALIGNMENT. ALL SET";
890 INPUT C$
00900PRINT
910PRINT"NOW HERE'S HOW YOU GO ABOUT RUNNING IT:"
00920PRINT
930PRINT"     TYPE 'NEW' AND WAIT FOR 'NEW PROGRAM NAME --'"
00940PRINT
950PRINT"     NAME THE PROGRAM ('TAPE' OR ANYTHING ELSE)"
00960PRINT
970PRINT"     TYPE 'TAPE' FOLLOWED BY THE RETURN KEY"
00980PRINT
990PRINT"     MOVE LOW SPEED READER CONTROL SWITCH TO 'START'"
01000PRINT
1010PRINT"     WHEN TAPE IS READ IN, MOVE LOW SPEED"
1011PRINT"     READER CONTROL SWITCH TO 'FREE' AND REMOVE TAPE."
01020PRINT
1030PRINT"     TYPE 'KEY' FOLLOWED BY THE LINE FEED, ALT, OR ESC KEY"
01040PRINT
1050PRINT"     TYPE 'RUN'"
01060PRINT
1070PRINT"IF ANYTHING GOES WRONG, EITHER RUN THIS PROGRAM (TUTR10)"
1080PRINT"AGAIN OR ELSE RUN 'TUTR09' AND WE'LL DECIDE WHAT WE"
01090PRINT"SHOULD DO NEXT. HAVE A GOOD TIME RUNNING YOUR TAPE."
1091PRINT\PRINT"I SHOULD WARN YOU, IF YOU DIDN'T STOP ME IN TIME, I"
1092PRINT"PUNCHED 'READY' ONTO YOUR PAPER TAPE. EITHER YOU CAN TEAR "
1093PRINT"THOSE CHARACTERS OFF, OR YOU CAN JUST LOAD THE TAPE AS IS."
1094PRINT"IF YOU LOAD THE TAPE AS IS, WHEN IT IS READ INTO THE COMPUTER"
1095PRINT"THE FIRST THING THAT WILL HAPPEN IS THAT THE COMPUTER WILL"
1096PRINT"INTERPRET 'READY' AS 'READ Y' AND PRINT AN ERROR MESSAGE."
1097PRINT"JUST IGNORE THE ERROR MESSAGE AND RUN THE PROGRAM."
1100GOTO1180
01110PRINT"HOW MUCH IS 2 PLUS 2";
01120INPUTA
01130PRINT
01140IFA=4THEN1170
01150PRINT"AW, COME ON - HOW MUCH";
01160GOTO1120
1170PRINT"RIGHT. NOW CALL IN 'TUTR09' AGAIN."
01180END