00001REM TUT2 00110PRINT"WELL, I'M GLAD YOU MADE IT. I'VE BEEN WAITING FOR YOU SO THAT" 00120PRINT"WE COULD CONTNUE OUR LESSON. SO FAR WE HAVE COVERED THE" 00130PRINT"'INPUT' STATEMENT, THE 'LET' STATEMENT (AND ITS SYMBOLS), AND" 00140PRINT"THE 'PRINT' STATEMENT. OUR SAMPLE PROGRAM LOOKS LIKE THIS:" 00150PRINT 00160PRINT"10 INPUT X, Y, Z" 00170PRINT"20 LET R = SQR (X^2 + Y^2 + Z^2)" 00180PRINT"30 PRINT R" 00190PRINT"40 END" 00200PRINT 00210PRINT"WE CAN DO MUCH MORE WITH THE 'PRINT' STATEMENT: BESIDES PRINTING" 00220PRINT"THE VALUE OF A VARIABLE OF INTEREST (IN OUR CASE, 'R') IT CAN ALSO" 00230PRINT"BE USED TO TYPE OUT LABELS. ANYTHING IN QUOTES FOLLOWING THE" 00240PRINT"'PRINT' STATEMENT WILL BE TYPED OUT LITERALLY. SO WE ADD:" 00250PRINT 00260 PRINT'30 PRINT "THE RADIUS VECTOR EQUALS";R' 00270PRINT 00280PRINT"BY USING STATEMENT NUMBER 30 AGAIN, WE REPLACE THE EARLIER " 00290 PRINT"STATEMENT 30. THIS IS THE WAY TO CORRECT A PROGRAM. THE PHRASE IN" 00300PRINT"QUOTATION MARKS WILL 'LABEL' OUR VALUE OF R WHICH FOLLOWS." 00310 PRINT "(NOTE THE ; CHARACTER. THE ; IS USED AS A SEPARATOR.)" 00320 PRINT"WE CAN DO THE SAME KIND OF THING TO THE FRONT OF OUR PROGRAM" 00330PRINT"TO EXPLAIN IT TO A USER:" 00340PRINT 00350 PRINT'9 PRINT "WHAT ARE YOUR VALUES OF X, Y, AND Z"' 00360PRINT 00370PRINT" (THE 'INPUT' STATEMENT WHICH FOLLOWS WILL SUPPLY THE ?)" 00380PRINT"NOTICE THE '9' STATEMENT NUMBER: THIS WILL BE EXECUTED BEFORE" 00390PRINT"THE 'INPUT' STATEMENT IN '10'. THIS DEMONSTRATES WHY IT IS SO" 00400PRINT"HANDY TO NUMBER STATEMENTS IN INCREMENTS. OUR NEW PROGRAM NOW" 00410PRINT"LISTS AS FOLLOWS:" 00420 PRINT 00430 PRINT'9 PRINT "WHAT ARE YOUR VALUES OF X, Y, AND Z"' 00440PRINT"10 INPUT X, Y, Z" 00450PRINT"20 LET R = SQR (X^2 + Y^2 + Z^2)" 00460 PRINT'30 PRINT "THE RADIUS VECTOR EQUALS";R' 00470PRINT"40 END" 00480PRINT 00490PRINT"WHEN 'RUN' IS TYPED THE PROGRAM DOES THIS:" 00500PRINT 00510PRINT"WHAT ARE YOUR VALUES OF X, Y, AND Z" 00530INPUT X, Y, Z 00540PRINT"THE RADIUS VECTOR EQUALS";SQR(X^2+Y^2+Z^2) 00550PRINT 00560PRINT 00570PRINT 00580 PRINT 00590 PRINT"NOW, IF YOU HAVE A STRING OF VALUES TO COMPUTE AND WANT TO" 00600PRINT"AUTOMATICALLY REPEAT A PORTION OF YOUR PROGRAM YOU CAN DO THIS BY" 00610PRINT"USING THE STATEMENT:" 00620PRINT 00630PRINT"35 GO TO 9" 00640PRINT 00650PRINT"THIS WILL CAUSE THE COMPUTER TO RETURN TO THE BEGINNING AND" 00660PRINT"REPEAT AS LONG AS YOU HAVE VALUES OF X, Y, AND Z TO TYPE IN." 00670 PRINT"(TYPING CTRL/C -- HOLD DOWN THE CTRL KEY AND TYPE THE" 00675 PRINT" C KEY, THEN RELEASE BOTH, WILL HALT THE PROGRAM)" 00678 PRINT 00680PRINT" A FEW FINAL ITEMS AND I'LL TURN YOU LOOSE TO TRY YOUR OWN HAND" 00690PRINT"AT WRITING A PROGRAM. WHENEVER YOU START A NEW PROGRAM" 00700PRINT"YOU TELL THE SYSTEM BY TYPING 'NEW'. THE SYSTEM WILL THEN ASK" 00710PRINT"YOU FOR A NAME (BY WHICH IT WILL BE FILED). UP TO 6 LETTERS CAN" 00720PRINT"BE USED (NUMBERS MAY ALSO BE USED FOLLOWING THE FIRST LETTER)." 00730PRINT"IF YOU WANT TO STORE THE PROGRAM AFTER WORKING WITH IT, YOU" 00740 PRINT"SIMPLY TYPE THE WORD:" 00750PRINT 00760PRINT"SAVE" 00770PRINT 00780PRINT"THE SYSTEM WILL STORE THE PROGRAM UNDER YOUR USER NUMBER AND" 00790PRINT"YOU CAN RECALL IT LATER BY TYPING 'OLD' AND CALLING IT BY THE" 00800PRINT"NAME YOU ASSIGNED. (IF YOU FORGET THE NAMES OF YOUR FILES," 00810PRINT"TYPE 'CAT' AND THE SYSTEM WILL LIST THE PROGRAMS SAVED UNDER" 00820PRINT"YOUR USER NUMBER.) IF YOU WANT TO REMOVE A PROGRAM FROM YOUR " 00830PRINT"DISK AREA, TYPE THE COMMAND 'UNSAVE' FOLLOWED BY THE NAME OF" 00840PRINT"THE PROGRAM. ONCE THE PROGRAM HAS BEEN DELETED, THE COMPUTER" 00850 PRINT"WILL PRINT 'READY' AND BE AGAIN AVAILABLE FOR USE." 00880PRINT 00890PRINT"WHEN YOU WANT TO SIGN OFF THE SYSTEM, AFTER THE COMPUTER" 00900PRINT"PRINTS 'READY' YOU CAN TYPE 'BYE'. THIS WILL CAUSE RSTS" 00905 PRINT"TO PRINT 'CONFIRM:' TO WHICH YOU SHOULD REPLY 'YES'. YOU" 00906 PRINT"WILL THEN BE LOGGED OFF THE SYSTEM AND SOME STATISTICS ABOUT" 00907 PRINT"YOUR SYSTEM USAGE ARE PRINTED." 00908 PRINT 00910 PRINT" YOU HAVE NOW COMPLETED ANOTHER LESSON WITH YOUR COMPUTER" 00920PRINT"TUTOR AND ARE READY TO TRY A FEW THINGS ON YOUR OWN." 00930PRINT"THE BEST WAY TO BECOME COMFORTABLE WITH THE SYSTEM IS TO TRY" 00940PRINT"IT ON SOME OF YOUR OWN PROBLEMS." 01000 PRINT 01080PRINT"WHEN YOU ARE READY FOR THE NEXT LESSON, RUN 'TUTR03'. 01090END