100'  NAME--LETTER
110'
120'  DESCRIPTION--DESIGNED FOR THOSE WHO FIND THEMSELVES TOO BUSY
130'  TO ANSWER THE LETTER THAT'S BEEN SITTING AROUND FOR SO LONG.
140'
150'  SOURCE--MODIFIED FROM THE 235 VERSION BY RONALD FAGIN '67.
160'
170'  INSTRUCTIONS--TYPE "RUN" AND FOLLOW INSTRUCTIONS.
180'
190'
200'  *  *  *  *  *  MAIN PROGRAM   *  *  *  *  *  *  *  *  *  *  *
210'
220 PRINT "THIS PROGRAM IS DESIGNED FOR THOSE WHO FIND THEMSELVES"
230 PRINT "TOO BUSY TO ANSWER THAT LETTER THAT'S BEEN SITTING AROUND"
240 PRINT "FOR SO LONG."
250 PRINT
260 PRINT "DO YOU WANT INTRODUCTORY INSTRUCTIONS (TYPE 'YES' OR 'NO')";
270 INPUT A$
280 IF A$="NO" THEN 450
290 IF A$="YES" THEN 320
300 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO':  ";
310 GOTO 270
320 PRINT
330 PRINT "***** A FEW PRELIMINARY QUESTIONS.  TYPE IN ANY SHORT ANSWER"
340 PRINT "(ONE TO THREE WORDS OR SO) TO EACH QUESTION.  TRY TO"
350 PRINT "FOLLOW THE GENERAL FORMAT OF THE SUGGESTED ANSWERS (SUCH"
360 PRINT "AS BEGINNING WITH AN ' A' OR 'AN' IF THE SUGGESTED ANSWERS"
370 PRINT "DO).  ON CERTAIN QUESTIONS, HOWEVER, YOU ARE TOLD YOU MAY"
380 PRINT "TYPE IN A WHOLE LINE AS AN ANSWER.  ON THESE QUESTIONS, YOU"
390 PRINT "MAY TYPE IN SEVERAL SENTENCES, AS LONG AS THEY ALL FIT ON"
400 PRINT "ONE LINE, AND CONTAIN A TOTAL OF NO MORE THAN 60 CHARACTERS"
410 PRINT "AND SPACES."
420 PRINT
430 PRINT "DON'T FORGET TO PRESS THE 'RETURN' KEY AFTER TYPING IN EACH"
440 PRINT "ANSWER!"
450 PRINT
460 PRINT "WHAT IS TODAY";
470 INPUT A$
480 PRINT
490 PRINT "WHO IS THIS LETTER BEING SENT TO";
500 INPUT B$
510 PRINT
520 PRINT "WHAT HAS THE WEATHER BEEN LIKE LATELY (SNOWY; WARM AND SUNNY;"
530 PRINT "MISERABLE, AS USUAL; GREAT FOR SKIING; ETC.)";
540 INPUT C$
550 PRINT
560 PRINT "HOW HAVE YOU BEEN FEELING LATELY (REALLY GREAT;"
570 PRINT "JUST SO-SO; ALL-TIME; PRETTY POOPED-OUT; ETC.)";
580 INPUT D$
590 PRINT
600 PRINT "HAVE YOU RECENTLY HAD A PAPER RETURNED (TYPE 'YES' OR 'NO')";
610 INPUT E$
620 IF E$="NO" THEN 860
630 IF E$="YES" THEN 660
640 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO':  ";
650 GOTO 610
660 PRINT
670 PRINT "WHAT PAPER WAS IT (AN ENGLISH THEME; A HISTORY TERM PAPER;"
680 PRINT "A MATH 3 EXAM; A CHEMISTRY LAB REPORT; ETC.)";
690 INPUT F$
700 PRINT
710 PRINT "WHAT GRADE DID YOU GET ON IT (AN A; A B; A C-PLU; ETC.)";
720 INPUT G$
730 PRINT
740 PRINT "WOULD YOU LIKE TO MAKE A ONE-LINE COMMENT ABOUT THE PAPER"
750 PRINT "(TYPE 'YES' OR 'NO')";
760 INPUT H$
770 IF H$="NO" THEN 860
780 IF H$="YES" THEN 810
790 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO':  ";
800 GOTO 760
810 PRINT
820 PRINT "WHAT IS YOUR ONE-LINE COMMENT (I WUZ ROBBED; GEE, I MUST"
830 PRINT "BE THE SMARTEST KID ON THE FLOOR; LOOKS LIKE I'M BACK ON PRO;"
840 PRINT "ETC.)";
850 INPUT I$
860 PRINT
870 PRINT "HOW DID YOU SPEND LAST WEEKEND (BOOKING T'S; TRIPPING"
880 PRINT "TO SMITH; SKIING AT KILLINGTON; SLEEPING; ETC.)";
890 INPUT J$
900 PRINT
910 PRINT "DESCRIBE LAST WEEKEND IN ONE LINE (I HAD A GREAT"
920 PRINT " TIME., THE FOOTBALL TEAM BEAT PRINCETON AGAIN.,"
930 PRINT "ETC.)";
940 INPUT K$
950 PRINT
960 PRINT "WILL YOU BE GOING HOME SOON (TYPE 'YES' OR 'NO')";
970 INPUT L$
980 IF L$="YES" THEN 1020
990 IF L$="NO" THEN 1090
1000 PRINT "INCORRECT ANSWER.  PLEASE TYPE 'YES' OR 'NO':  ";
1010 GOTO 970
1020 PRINT
1030 PRINT "WHEN DO YOU THINK YOU'LL BE ARRIVING HOME";
1040 INPUT M$
1050 PRINT
1060 PRINT "HOW LONG WILL YOU BE HOME (THREE DAYS; AS"
1070 PRINT "LITTLE AS POSSIBLE; ETC.)";
1080 INPUT N$
1090 PRINT
1100 PRINT "HOW WOULD YOU LIKE TO SIGN YOUR LETTER (LOVE;"
1110 PRINT "SINCERELY; YOUR LOVING SON; ETC.)";
1120 INPUT O$
1130 PRINT
1140 PRINT "ENOUGH QUESTIONS FOR NOW.  THE TELETYPE WILL NOW PRINT"
1150 PRINT "A DOTTED LINE WHICH WILL MOVE TO THE EDGE OF THE GLASS."
1160 PRINT "YOU WILL HAVE A FEW SECONDS TO TEAR OFF THE PAPER ON THE"
1170 PRINT "DOTTED LINE."
1180 PRINT
1190 PRINT "--------------------------------------------------------"
1200 FOR Z=1 TO 9
1210 PRINT
1220 NEXT Z
1230 PRINT TAB(70)
1240 PRINT TAB(19);"DIGITAL EQUIPMENT CORP."
1250 PRINT TAB(14);"MAYNARD,MASSACHUSETTS 01754"
1260 PRINT
1270 PRINT
1280 PRINT TAB(19);
1290 PRINTA$
1300 
1310 FOR Z=1 TO 4
1320 PRINT
1330 NEXT Z
1340 PRINT "DEAR ";
1350 PRINT B$;
1360 
1370 PRINT ","
1380 PRINT
1390 PRINT "THIS LETTER IS BEING TYPED BY A TIMESHARING PDP-10"
1400 PRINT "I HAVE BEEN VERY BUSY LATELY, AND I SIMPLY DON'T HAVE THE"
1410 PRINT "TIME TO ANSWER YOUR LETTER MYSELF.  HOPE THIS WILL SUFFICE"
1420 PRINT "UNTIL I CAN FIND THE CHANCE TO ANSWER IT PERSONALLY.  OK?"
1430 PRINT
1440 PRINT "THE WEATHER HERE IN AND AROUND MAYNARD/MASS HAS BEEN ";
1450 PRINTC$
1460 
1470 PRINT "LATELY.  I'VE FOUND MYSELF FEELING ";
1480 PRINTD$
1490 
1500 PRINT "THESE PAST";
1510 PRINT " FEW DAYS.  ";
1520 IF E$="NO" THEN 1630
1530 PRINT "SCHOOLWISE--I RECENTLY GOT ";
1540 PRINTG$
1550 
1560 PRINT "ON ";
1570 PRINT F$;
1580 
1590 PRINT ".";
1600 IF H$="NO" THEN 1630
1610 PRINTI$
1620 
1630 PRINT
1640 PRINT
1650 PRINT "LET ME TELL YOU ABOUT LAST WEEKEND.  I SPENT IT ";
1660 PRINT J$;
1670 
1680 PRINT "."
1690 PRINT K$
1700 
1710 PRINT
1720 IF L$="NO" THEN 1810
1730 PRINT "I'LL BE COMING HOME ";
1740 PRINT M$;
1750 
1760 PRINT ".  MY PLANS ARE TO BE THERE"
1770 PRINT N$;
1780 PRINT ".  ";
1790 PRINT "SEE YOU THEN!"
1800 PRINT
1810 PRINT "WELL, THAT'S IT FOR NOW.  I'LL TRY TO ANSWER YOUR LETTER"
1820 PRINT "SOON.  HOPE TO HEAR FROM YOU AGAIN."
1830 PRINT
1840 PRINT TAB(25);
1850 PRINT O$;
1860 
1870 PRINT ","
1880 FOR I=1 TO 20
1890 PRINT
1900 NEXT I
1910 PRINT "--------------------------------------------------------"
1920 PRINT
1930 PRINT "TEAR OFF YOUR LETTER WHEN THE MACHINE STOPS, SIGN,"
1940 PRINT "AND MAIL."
1950 PRINT
1960 PRINT
1970 STOP
1980 END