Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0024/tutr10.bas
There are 2 other files named tutr10.bas in the archive. Click here to see a list.
00100REM TUT10
00120PRINT"THIS PROGRAM IS FOR PRACTICE IN USING TAPE. HAVE YOU STARTED"
00130PRINT"IT BEFORE (0=NO, ALL OTHER NUMBERS=YES) ";
00140INPUTV
00150PRINT
00160IFV<>0THEN540
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
00430PRINT"THIS TIME WHEN I STOP TYPING, I'LL TYPE IN THE 'RUN' TIME FOR"
00440PRINT"WHAT WE'VE DONE SO FAR. DO NOT TYPE A '1', BUT INSTEAD TYPE"
00450PRINT"'LIST1115,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"
00490PRINT"OFF BUTTON OVER THE TAPE PUNCH, THEN TYPE OLD TO GET"
00500PRINT"'TUTR10*'. TYPE 'RUN' AFTER THE '*' WHICH INDICATES"
00510PRINT"THE PROGRAM HAS BEEN RETRIEVED. ALSO CALL IT BACK IF"
00520PRINT"ANYTHING GOES WRONG, SO PUNCH AWAY, AND GOOD LUCK TO YOU."
00530STOP
00540PRINT"HAVE YOU PUNCHED OUT A TAPE (0=NO, OTHER NUMBERS=YES) ";
00550INPUTT
00560PRINT
00570IFT=0THEN660
00580PRINT"HAVE YOU TRIED TO RUN IT (0=NO, OTHER NUMBERS=YES) ";
00590INPUTU
00600PRINT
00610IFU=0THEN740
00620PRINT"BUT APPARENTLY IT DIDN'T WORK. SO NOW YOU SHOULD EITHER CALL"
00630PRINT"IN 'TUTR09*' AGAIN AND CONTINUE THAT, OR (WHEN I STOP) TYPE"
00640PRINT"'RUN' AND START THIS PROGRAM OVER. EITHER WAY I'LL SAY O.K."
00650STOP
00660PRINT"WELL WHAT YOU NEED TO DO, THEN, IS TYPE 'RUN' (WHEN I STOP),"
00670PRINT"AND ANSWER MY FIRST QUESTION BY TYPING '0'. ....READY.. BEGIN."
00680 STOP
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
00730 STOP
00740PRINT"THEN YOU ARE READY FOR THE TEST OF WHETHER IT CAME OUT ALL RIGHT"
00750PRINT"OR NOT. WHENEVER YOU WANT THE NEXT INSTRUCTION, TYPE @R@. NOW";
00760INPUTC
00770PRINT
00780PRINT"FIRST DEPRESS THE SQUARE RED BUTTON ON THE TAPE READER (ON YOUR"
00790PRINT"FAR LEFT) IN ORDER TO OPEN THE CLAMP (IT SHOULD RAISE UP). OK";
00800INPUTC
00810PRINT
00820PRINT"NOW INSERT THE TAPE SO IT WILL MOVE FROM RIGHT TO LEFT, 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";
00850INPUTC
00860PRINT
00870PRINT"CAREFULLY PULL THE CLAMP DOWN OVER THE TAPE, BEING CAUTIOUS NOT"
00880PRINT"TO LOSE THE PROPER ALIGNMENT. ALL SET";
00890INPUTC
00900PRINT
00910PRINT"NOW HERE@S HOW YOU GO ABOUT RUNNING IT:"
00920PRINT
00930PRINT" TYPE @NEW@ AND WAIT FOR @NEW PROBLEM NAME--@"
00940PRINT
00950PRINT" NAME THE PROGRAM (@TRY@, OR ANYTHING)"
00960PRINT
00970PRINT" TYPE @TAPE@ AND WAIT FOR @READY.@"
00980PRINT
00990PRINT" DEPRESS @TTS@ AND THEN DEPRESS @TD ON@"
01000PRINT
01010PRINT" WHEN TAPE STOPS, DEPRESS @K@ AGAIN"
01020PRINT
01030PRINT" TYPE @KEY@ AND WAIT FOR @READY.@"
01040PRINT
01050PRINT" TYPE @RUN@"
01060PRINT
01070PRINT"IF ANYTHING GOES WRONG, EITHER CALL THIS PROGRAM (TUTR10)"
01080PRINT"BACK IN OR ELSE CALL IN @TUTR09@ AND WE@LL DECIDE WHAT WE"
01090PRINT"SHOULD DO NEXT. HAVE A GOOD TIME RUNNING YOUR TAPE."
01100STOP
01110PRINT"HOW MUCH IS 2 PLUS 2";
01120INPUTA
01130PRINT
01140IFA=4THEN1170
01150PRINT"AW, COME ON - HOW MUCH";
01160GOTO1120
01170PRINT"RIGHT. NOW CALL IN 'TUTR09*' AGAIN."
01180END