00100 DIM H(18)
110PRINT"YOU MUST HAVE DIALED THE WRONG NUMBER.  YOU"
00120PRINT"HAVE REACHED THE COMPUTER. HOWEVER, AS LONG AS YOU ARE HERE,"
00130PRINT"WHY DON'T YOU STAY FOR THIS SESSION OF THE TUTOR SERIES?"
00140PRINT
00150PRINT"IN THE LAST SESSION YOU WERE INTRODUCED TO THE CONCEPT OF A"
00160PRINT"SYSTEM COMMAND.  IN THIS SESSION WE WILL CONTINUE WITH SOME"
00170PRINT"ADDITIONAL DISCUSSION ON THE SAME SUBJECT."
00180PRINT
00190PRINT
00200PRINT"I WILL POSE SOME HYPOTHETICAL SITUATIONS, AND YOU CAN BE THE"
00210PRINT"'COMPUTER COUNSELER'.  HERE IS A LIST OF SOME OF THE COMMANDS"
00220PRINT"WHICH CAN BE USED TO ANSWER THE HEART-RENDING QUESTIONS WHICH"
00230PRINT"WILL BE ASKED OF YOU:"
00240PRINT
250PRINT" (1) HELLO    (2) NEW    (3) CAT    (4) APPEND    (5) SAVE"
00260PRINT
270PRINT" (6) CAT$    (7) LENGTH    (8) TAPE    (9) OLD    (10) CTRL/C"
00280PRINT
290PRINT" (11) RENAME    (12) LIST    (13) UNSAVE    (14) DELETE    (15) REPLACE"
00300PRINT
310PRINT" (16) SORRY, YOU'RE OUT OF LUCK.  (17) ASSIGN  (18) CTRL/U"
00320PRINT
00330PRINT
00340PRINT"---HERE ARE THE QUESTIONS.  TYPE IN THE NUMBER OF THE COMMAND"
00350PRINT"   YOU WOULD SELECT TO SOLVE THE PROBLEM. AT THE END OF THE"
00360PRINT"   THE SERIES OF QUESTIONS, I WILL TELL YOU HOW YOU DID."
00370PRINT
00380PRINT
00390LETH(1)=5
00400LETH(2)=2
00410LETH(3)=3
00420LETH(4)=12
00430LETH(5)=11
00440LETH(6)=9
450LETH(7)=7
00460LETH(8)=1
00470LETH(9)=6
00480LETH(10)=16
00490LETH(11)=10
00500LETH(12)=14
00510LETS=0
00520LETN=0
00530GOTO610
00540REM SUBR
00550INPUTZ
00560PRINT
00570LETN=N+1
00580IFZ<>H(N)THEN600
00590LETS=S+1
00600RETURN
00610PRINT"(A)  I HAVE JUST WRITTEN A NEW PROGRAM WHICH I WOULD LIKE"
00620PRINT"TO STORE IN THE LIBRARY.  SINCE THE WORK IS (BLUSH) CONFIDENTIAL,"
00630PRINT"I WOULD LIKE TO STORE IT WHERE IT CAN BE ACCESSED ONLY THROUGH"
00640PRINT"MY OWN USER NUMBER.  PLEASE ADVISE. ";
00650GOSUB550
00660PRINT"(B)  I HAVE NEVER WRITTEN A PROGRAM BEFORE.  I WOULD NOW LIKE TO"
00670PRINT"WRITE ONE.  WHEN I CALL THE COMPUTER, HOW CAN I MAKE THIS"
00680PRINT"CLEAR, SO THAT IT DOESN'T WASTE TIME LOOKING THROUGH THE"
00690PRINT"LIBRARY FOR A PROGRAM THAT ISN'T THERE.  ";
00700GOSUB550
00710PRINT"(C)  I HAVE WRITTEN AND SAVED SO MANY PROGRAMS THAT I CAN REMEMBER"
00720PRINT"NEITHER THEIR NAMES NOR HOW MANY THERE WERE.  I REGRET MY"
00730PRINT"PROMISCUOUS PAST, AND WOULD LIKE A LIST OF THEIR NAMES, SO"
00740PRINT"THAT I MAY CORRECT THE SITUATION.  PLEASE TELL ME HOW I MAY"
00750PRINT"OBTAIN SUCH A LIST. ";
00760GOSUB550
00770PRINT"(D)  I HAVE JUST COMPLETED MAKING SEVERAL CHANGES TO MY PROGRAM"
00780PRINT"AND EVERYTHING IS NOW SO CONFUSED THAT I REALLY DON'T HAVE ANY"
00790PRINT"IDEA OF WHERE I AM. HOW CAN I START LIFE AGAIN WITH A FRESH"
00800PRINT"UPDATED LISTING OF MY PROGRAM ";
00810GOSUB550
820PRINT"(E)  I HAVE JUST EDITED A PROGRAM I HAD PREVIOUSLY SAVED. I ADDED SOME"
830PRINT"NEAT, GROOVEY FEATURES.  I JUST REALIZED THAT I DON'T WANT TO LOSE THE"
840PRINT"OLD VERSION OF THE PROGRAM I HAD SAVED EARLIER, BUT I DO WANT TO SAVE"
850PRINT"THIS VERSION SOMEWHERE. WHAT DO I DO???";
00900GOSUB550
00910PRINT"(F)  I JUST RUINED A PROGRAM BY ADDING AND DELETING STATEMENTS"
00920PRINT"THAT I HADN'T INTENDED TO.  I PREVIOUSLY SAVED THE PROGRAM"
00930PRINT"THE OTHER DAY WHEN I WAS WORKING ON IT.  HOW CAN I GET THE"
00940PRINT"ORIGINAL PROGRAM BACK SO THAT I DON'T HAVE TO RETYPE ALL"
00950PRINT"THOSE NASTY OLD STATEMENTS AGAIN. ";
00960GOSUB550
00970PRINT"(G)  MY CURRENT PROGRAM IS PRETTY LARGE, BUT I WOULD LIKE TO"
00980PRINT"ADD MORE TO IT.  IS THERE ANY WAY THAT I COULD BE INFORMED AS"
990PRINT"TO HOW MUCH OF THE ALLOWABLE CORE SPACE I'VE USED?";
01010GOSUB550
01020PRINT"(H)  I HAVEN'T USED THE TELETYPE IN QUITE A WHILE, AS I HAVE"
1030PRINT"BEEN ON VACATION.  HOW DO I GET ONTO THE SYSTEM?";
01040GOSUB550
01050PRINT"(I)  I WISH TO CALL A PROGRAM STORED, NOT IN MY OWN LIBRARY,"
1060PRINT"BUT RATHER IN THE SYSTEM LIBRARY, AS I UNDERSTAND THESE PROGRAMS"
01070PRINT"ARE AVAILABLE TO ANYONE.  I'M NOT SURE OF THE NAME, BUT IF I"
1080PRINT"COULD ONLY GET A LIST OF THOSE NAMES, I'M SURE I COULD LOCATE IT.";
01100GOSUB550
01110PRINT"(J)  I HAVE JUST FINISHED UPDATING AN OLD PROGRAM, AND I TYPED"
1120PRINT"'REPLACE' TO KEEP IT. NOW I FIND THAT THE UPDATES WERE ALL WRONG."
01130PRINT"HOW CAN I GET THE ORIGINAL PROGRAM BACK";
01140GOSUB550
01150PRINT"(K)  THIS CRAZY PROGRAM SEEMS TO GO ON FOREVER.  THE ONLY TIME"
01160PRINT"IT EVER PAUSES IS WHEN IT ASKS FOR MORE DATA. BUT THAT'S JUST IT."
01170PRINT"I DON'T HAVE ANY MORE DATA. I DON'T WANT TO BE RUDE AND HANG UP,"
1180PRINT"SO PLEASE TELL ME WHAT I CAN DO.";
01190GOSUB550
01200PRINT"(L)  HOLY SMOKE.  I HAVE TO DELETE ABOUT 30 CONSECUTIVE STATEMENTS"
01210PRINT"DOES THAT MEAN THAT I MUST ENTER EACH STATEMENT NUMBER?"
01220PRINT"IF THAT COMPUTERIZED SYSTEM OF YOURS IS ONLY"
01230PRINT"HALF AS GOOD AS YOU CLAIM IT IS, THERE SHOULD BE AN EASIER WAY"
01240PRINT"TO DO THIS ";
01250GOSUB550
01610LETH(13)=13
1620LETH(14)=17
1630LET H(15)=18
1640LETH(16)=15
1650LETH(17)=4
1660LET H(18)=8
01670GOTO1810
01680INPUTZ
01690PRINT
01700LETN=N+1
01710IFZ<>H(N)THEN1730
01720LETS=S+1
01730RETURN
01810PRINT"(M)  I FINALLY FOUND OUT HOW TO SAVE PROGRAMS IN MY LIBRARY."
01820PRINT"EVERYTHING WORKED WELL WHILE I WAS DEVELOPING THE PROGRAMS."
01830PRINT"HOWEVER, SOME OF THOSE PROGRAMS ARE NOW OBSOLETE, AND I WOULD"
01840PRINT"LIKE TO CLEAN HOUSE.  WHAT CAN I DO TO GET RID OF THOSE PROGRAMS"
01850PRINT"WHICH I NO LONGER NEED";
01860GOSUB1680
1870PRINT"(N)  I'D LIKE TO MOUNT A DECTAPE TO STORE SOME PROGRAMS I'M"
1880PRINT"EXTREMELY PROUD OF. BUT I HAVE THIS PARANOID FEAR THAT WHILE THE"
1890PRINT"TAPE IS WRITE-ENABLED SOMEONE WILL ZERO IT OR WRITE GARBAGE ON IT"
1900PRINT"OR EVEN BE ABLE TO GET AT MY FANTASTIC PROGRAMS. WHAT TO DO";
01930GOSUB1680
1940PRINT"(O)  I'M EDITING A BASIC-PLUS PROGRAM AND I DISCOVER THAT I'VE"
1950PRINT"JUST TYPED A NEW STATEMENT WITH THE SAME LINE NUMBER AS A STATEMENT"
1960PRINT"I WISH TO LEAVE IN THE PROGRAM. I HAVEN'T TYPED THE RETURN KEY"
1970PRINT"YET. IS THERE SOME WAY I CAN DELETE THE LINE I JUST TYPED AND SAVE"
1980PRINT"THE ORIGINAL LINE";
02010GOSUB1680
2020PRINT"(P)  DID YOU MESS ME UP!! REMEMBER THE EDITING PROCEDURES"
02030PRINT"YOU TOLD ME ABOUT?  BALONEY.  YESTERDAY I TRIED IT, AND SURE"
02040PRINT"ENOUGH, I LISTED THE PROGRAM AND SAW THAT THE STATEMENTS WERE"
2050PRINT"UPDATED. BUT TODAY I TRIED TO CORRECT ONE OF THE"
2060PRINT"STATEMENTS, USING THAT LISTING AS A REFERENCE. NOT ONLY DID I"
2070PRINT"NOT CORRECT THE STATEMENT I INTENDED, I WROTE ANOTHER STATEMENT"
2080PRINT"ON TOP OF THE ONE IN QUESTION. SOMEBODY TOLD ME THAT I"
2090PRINT"NEGLECTED TO DO ONE THING AFTER I PERFORMED THE EDIT."
02100PRINT"WHAT SHOULD I HAVE DONE";
02110GOSUB1680
02120PRINT"(Q)  I AM WRITING A RATHER LARGE, ELABORATE PROGRAM.  I DEVELOPED"
02130PRINT"PART OF IT UNDER ONE PROGRAM NAME, AND TO MAKE THINGS EASIER, I"
02140PRINT"DEVELOPED THE REST OF IT UNDER A DIFFERENT PROGRAM NAME.  I FINALLY"
02150PRINT"DEBUGGED THEM, AND NOW I WANT TO COMBINE THEM.  IT WOULD SEEM"
02160PRINT"THAT IN THIS AGE OF SPACE TRAVEL, NUCLEAR ENERGY AND THE PILL,"
02170PRINT"THERE SHOULD BE AN EASIER WAY TO COMBINE THE PROGRAMS, RATHER"
02180PRINT"THAN RETYPE ALL OF THE STATEMENTS FROM ONE OF THE PROGRAMS INTO"
02190PRINT"THE OTHER.  IS THERE ANY SPECIAL COMMAND I CAN USE";
02200GOSUB1680
2210PRINT"(R)  SUCH A HEADACHE I'VE GOT TODAY! IT'S BAD ENOUGH TO HAVE"
2220PRINT"TO USE LOW SPEED PAPER TAPE, BUT I JUST CAN'T BEAR TO HAVE THE"
2230PRINT"WHOLE PROGRAM LISTED AT THE TERMINAL. WHAT DO I DO";
02270GOSUB1680
02280PRINT
02290PRINT
02300PRINT"---- THAT'S ALL THE QUESTIONS. LET'S SEE HOW WELL YOU DID."
02310PRINT
02320PRINT"YOU ANSWERED";S;"OF THE 18 QUESTIONS CORRECTLY."
02330IFS>18THEN2370
02340IFS<18THEN2390
02350PRINT"PERFECT SCORE  (OR PERFECT CHEAT - SEE LATER DISCUSSION)"
02360GOTO2470
02370PRINT"I SEE YOU FIGURED OUT WHY I HAD YOU TYPE IN THE STATEMENT AT"
02380PRINT"THE BEGINNING OF THE PROGRAM, YOU CHEATER."
02390PRINT
02400PRINT"THE CORRECT ANSWERS ARE AS FOLLOWS:"
02410PRINT
02420PRINT" (A)  (B)  (C)  (D)  (E)  (F)  (G)  (H)  (I)"
02430PRINT"  5    2    3    12   11   9    7    1    6"
02440PRINT
02450PRINT" (J)  (K)  (L)  (M)  (N)  (O)  (P)  (Q)  (R)"
02460PRINT"  16   10   14   13   17   18   15    4    8"
02470PRINT
2480PRINT"THESE AND OTHER SYSTEM COMMANDS ARE EXPLAINED IN DETAIL IN THE"
2490PRINT"RSTS SYSTEM USER'S GUIDE."\PRINT
2495PRINT"THE IMPORTANT THING TO REMEMBER IS: BEFORE YOU ISSUE A SYSTEM"
02500PRINT"COMMAND, CHANGE TO ANOTHER PROGRAM, OR SIGN OFF, YOU MUST"
02510PRINT"CONSIDER THE EFFECT ON YOUR CURRENT WORKING AREA."
02520PRINT
02590PRINT
02610PRINT
02620PRINT
02630 PRINT"NOW YOU CAN WRITE FANTASTIC BASIC PROGRAMS.  YOU CAN TELL ME"
02640	PRINT"TO DO YOU SOME OF YOUR WORK."
02650 PRINT 
02660 PRINT" PLEASE USE ME--I GET SO BORED WITH NO ONE TO TALK TO!"
02670 PRINT
02680 PRINT " GOOD LUCK.....AND DON'T FORGET WHAT YOU HAVE LEARNED"
02690 PRINT" IN THESE LESSIONS.  SEE YA!"
02700	END