10  REM  FALSE ASSUMPTIONS, WRITTEN BY EUGENE J. MUSCAT, PROGRAMMED
20  REM  BY WILLIAM K. CHAR, 3 JAN 1974.
30  REM
40  DIM A$[72],B$[72]
50  REM
51  IF TIM(1)>11 THEN 54
52  PRINT "GOOD MORNING, ";
53  GOTO 60
54  IF TIM(1)>3 THEN 57
55  PRINT "GOOD AFTERNOON, ";
56  GOTO 60
57  PRINT "GOOD EVENING, ";
60  PRINT "WOULD YOU LIKE THE RULES";
70  INPUT A$
80  IF A$[1,1]="N" THEN 250
90  PRINT 
100  PRINT "TO PLAY ASSUMPTION YOU MUST FOLLOW THESE SIMPLE RULES:"
110  PRINT 
120  PRINT " 1.  BE HONEST!"
130  PRINT 
140  PRINT " 2.  ACT QUICKLY AND DECISIVELY  (YOU HAVE ONLY A LIMITED"
150  PRINT "          AMOUNT OF TIME TO ANSWER EACH QUESTION)."
160  PRINT 
170  PRINT " 3.  YOU MUST VISUALIZE THE SITUATION."
180  PRINT 
190  PRINT "     PLEASE BE AWARE THAT YOU WILL NOT DERIVE A SCORE FROM"
200  PRINT "ASSUMPTION.  HOPEFULLY, YOU MAY OBTAIN AN ENLIGHTENED VIEW"
210  PRINT "OF YOURSELF.  THIS VIEW MAY GRATIFY, DISTURB OR CONFOUND"
220  PRINT "YOU.  THE HOPE IS THAT YOU WILL IDENTIFY SOME OF YOUR"
230  PRINT "ASSUMPTIONS (IF ANY) AND RECOGNIZE THE EFFECT THEY HAVE ON"
240  PRINT "YOU AS A DECISION MAKER."
250  PRINT 
260  GOTO TYP(0) OF 270,370,530
270  READ A
280  IF A=1 THEN 330
290  PRINT 
300  PRINT "YOUR REASON: ";
310  ENTER 255,R,A$
320  PRINT 
330  PRINT 
340  PRINT "ASSUMPTION"A
350  PRINT 
360  GOTO 260
370  READ A$
380  IF A$[1,1]="$" THEN 410
390  PRINT A$
400  GOTO 260
410  PRINT 
420  PRINT "ANSWER:  ";
430  ENTER 10,R,B$
440  PRINT 
450  IF B$[1,1]="A" THEN 500
460  IF B$[1,1]="B" THEN 500
470  PRINT "WARNING:  YOU ARE TAKING TOO LONG TO ANSWER."
480  PRINT "     YOU ARE NOT FOLLOWING THE GAME RULES."
490  GOTO 420
500  PRINT 
510  PRINT A$[2]
520  GOTO 260
530  PRINT 
540  PRINT "HOW DO YOU THINK YOU DID?"
550  STOP 
560  DATA 1
570  DATA "     YOUR NAME IS ART THOMPSON; YOU ARE AN EX-G.I. WORKING"
580  DATA "IN A LARGE CITY AS A STORE DETECTIVE.  YOU HAVE BEEN ON THE"
590  DATA "JOB SEVERAL WEEKS AND HAVE BEEN TRYING TO DO YOUR BEST.  A"
600  DATA "RECENT STRING OF INCIDENTS HAVE PUT YOUR JOB IN JEOPARDY."
610  DATA "THE MOST SERIOUS OF THESE WAS A CASE OF FALSE ARREST JUST"
620  DATA "YESTERDAY.  MR. CARRIGAN, YOUR SUPERVISOR, HAS GIVEN YOU"
630  DATA "ONE MORE CHANCE.  YOU ARE CURRENTLY WORKING THE SECOND"
640  DATA "FLOOR.  YOU ARE CALLED TO THE HOUSE PHONE:  CARRIGAN HAS"
650  DATA "SOMEONE IN CUSTODY ON THE FIRST FLOOR.  HE HAS SPOTTED A"
660  DATA "KNOWN SHOPLIFTER TAKING THE ELEVATOR UP.  CARRIGAN IS"
670  DATA "COUNTING ON YOU TO FOLLOW THIS MAN.  THE SUSPECT IS"
680  DATA "DESCRIBED AS WEARING A GREY SUIT AND CARRYING AN ATTACHE"
690  DATA "CASE."
700  DATA "     YOU CAN SEE THE ELEVATOR DOOR OPENING AND THE SUSPECT"
710  DATA "COMES INTO YOUR VIEW.  SUDDENLY, A DILEMA!  THERE ARE TWO"
720  DATA "MEN; BOTH FIT THE DESCRIPTION; ONE IS ORIENTAL AND THE"
730  DATA "OTHER IS NEGRO; YOU HAVE TEN SECONDS TO DECIDE WHICH TO"
740  DATA "FOLLOW."
750  DATA ""
760  DATA "A.  ORIENTAL"
770  DATA "B.  NEGRO"
780  DATA "$     YOU MADE THE WRONG CHOICE.  THE MAN YOU FOLLOWED MADE"
790  DATA "A PURCHASE AND LEFT THE STORE.  WHEN YOU RETURNED TO THE"
800  DATA "SECOND FLOOR, CARRIGAN HAD RECEIVED A REPORT OF THEFT IN"
810  DATA "YOUR AREA.  HE BLAMES YOU FOR MAKING A MISTAKE.  JUSTIFY"
820  DATA "YOUR CHOICE TO HIM IF YOU FEEL YOU SHOULD."
830  DATA "     WHAT ASSUMPTIONS WERE OPERATING HERE?"
840  DATA 2
850  DATA "     YOU ARE TOM RIVAS, AN OFFICE SUPPLIES SALES REPRESENT-"
860  DATA "ATIVE ASSIGNED TO SMALL MEDICAL OFFICES.  COMPETITION IN"
870  DATA "THIS AREA IS VERY KEEN.  SINCE PRODUCT LINES AND PRICES ARE"
880  DATA "FAIRLY STANDARD, CUSTOMER SERVICE IS OFTEN THE MAJOR SELLING"
890  DATA "POINT.  YOU HAVE BEEN GIVEN A PORTION OF A REGISTRATION LIST"
900  DATA "FOR A MEDICAL CONVENTION.  SIGHT UNSEEN, YOU SEND OUT"
910  DATA "ADVANCE INVITATIONS TO SEVERAL DOCTORS ON YOUR LIST."
920  DATA ""
930  DATA "     DR. SAM WONG"
940  DATA "     DR. TOM RAYMOND"
950  DATA "     DR. LEE RICHARDSON"
960  DATA ""
970  DATA "YOU HAVE ASKED THEM TO HAVE DINNER WITH YOU ON JUNE 12 AT"
980  DATA "8:30 PM.  YOU ARE CONCERNED WITH MAKING AN IMPRESSION ON"
990  DATA "THEM.  RESERVATIONS DURING CONVENTION WEEK ARE NEARLY IMPOS-"
1000  DATA "SIBLE TO OBTAIN.  YOU HAVE NARROWED DOWN THE DINNER LOCATION"
1010  DATA "TO TWO POSSIBILITIES; YOU HAVE 15 SECONDS TO MAKE YOUR"
1020  DATA "CHOISE:"
1030  DATA ""
1040  DATA "A.  THE JEWEL ROOM (A NIGHTCLUB FEATURING"
1050  DATA "          TOPLESS ENTERTAINMENT)"
1060  DATA "B.  THE ROGUES CLUB (A VERY EXCLUSIVE"
1070  DATA "          MEN'S CLUB)"
1080  DATA "$     YOU HAVE MADE A SERIOUS MISTAKE.  WHEN YOU MEET YOUR"
1090  DATA "THREE DINNER GUESTS IN THE LOBBY YOU FIND DR. LEE RICHARDSON"
1100  DATA "IS A WOMAN.  YOUR CHOICE OF RESTAURANT IS UNACCEPTABLE AND"
1110  DATA "SHE LEAVES INDIGNANTLY.  YOUR SALES MANAGER HEARS THAT YOU"
1120  DATA "STOOD UP A CUSTOMER.  JUSTIFY YOUR SITUATION!"
1130  DATA "     CAN YOU GUARD AGAINST ASSUMPTIONS?"
1140  DATA "     DID IT EVER OCCUR TO YOU THAT ONE OF THE DOCTORS MIGHT"
1150  DATA "BE A WOMAN?"
1160  DATA 3
1170  DATA "     AS PERSONNEL MANAGER FOR A LARGE AEROSPACE COMPANY"
1180  DATA "YOU NEED TO ASSIGN A SECRETARY TO A TEAM OF MATHEMATICIANS TO"
1190  DATA "EXPEDITE AN OVERDUE PROGRESS REPORT.  YOU HAVE ASKED TWO"
1200  DATA "RESEARCH DEPARTMENT HEADS TO SEND THEIR SECRETARIES INTO"
1210  DATA "YOUR OFFICE.  YOU HAVE NO FOREKNOWLEDGE OF EITHER GIRL."
1220  DATA ""
1230  DATA "     GRETA SCHULER WEARS GLASSES, IS AVERAGE"
1240  DATA "          HEIGHT, NEAT IN APPEARANCE."
1250  DATA "     SHARON LOPEZ IS ATTRACTIVE, BUXOM AND"
1260  DATA "          STYLISHLY DRESSED."
1270  DATA ""
1280  DATA "     AFTER ONLY A FEW SHORT MINUTES YOU MUST STEP OUT OF"
1290  DATA "THE OFFICE.  WHEN YOU RETURN YOU RECEIVE A CALL REQUESTING"
1300  DATA "THE NAME OF THE GIRL YOU HAVE SELECTED.  YOUR TEAM IS READY"
1310  DATA "TO WORK.  YOU MUST CHOOSE:"
1320  DATA ""
1330  DATA "A.  GRETA SCHULER."
1340  DATA "B.  SHARON LOPEZ."
1350  DATA "$     THE BOSS OF THE GIRL YOU DID NOT RECOMMEND HAS CALLED"
1360  DATA "TO ASK WHY SHE WAS REJECTED.  HE IS A VERY CLOSE FRIEND OF"
1370  DATA "YOURS AND HE WILL KEEP YOUR REASONS CONFIDENTIAL.  WHAT"
1380  DATA "WERE YOUR REASONS, IF ANY?"
1390  DATA "     WOULD YOU HAVE MADE A DIFFERENT DECISION BASED JUST ON"
1400  DATA "THE NAMES OF THE TWO GIRLS; IF SO, WHY?"
1410  DATA 4
1420  DATA "     YOU ARE THE NEW OWNER OF A CATERING SERVICE THAT"
1430  DATA "OPERATES TWO BANQUET FACILITIES IN A MAJOR CITY.  ONE ROOM"
1440  DATA "IS AN ELEGANT BALLROOM.  IT IS ELABORATELY DECORATED WITH"
1450  DATA "ANTIQUE FIXTURES AND FURNISHINGS.  IT HAD BEEN THE ONLY"
1460  DATA "FACILITY UP UNTIL RECENT MONTHS.  NOW AVAILABLE IS A"
1470  DATA "SECOND ROOM, LARGER AND MODERN IN DECOR.  IT HAS MANY"
1480  DATA "EXTRA FEATURES AND THEREFORE COMMANDS THE SAME PRICE AS"
1490  DATA "THE BALLROOM.  YOU RECEIVE A CALL FROM AN ORGANIZATION THAT"
1500  DATA "WANTS TO HOLD A BANQUET FOR AUGUST 7.  YOU CHECK YOUR"
1510  DATA "RESERVATION BOOK AND SEE THAT ANOTHER GROUP HAS REQUESTED"
1520  DATA "A DINNER FOR THE SAME NIGHT BUT NO PREFERENCE WAS LISTED"
1530  DATA "AS TO ROOM.  THE CALL IS LONG DISTANCE -- THEY ARE WAITING"
1540  DATA "FOR YOUR ANSWER.  YOU HAVE TEN SECONDS TO DECIDE WHO GETS"
1550  DATA "THE BALLROOM.  REMEMBER TO VISUALIZE!"
1560  DATA ""
1570  DATA "A.  BROTHERHOOD OF ELECTRICAL WORKERS, LOCAL 673."
1580  DATA "B.  CLERICAL WORKERS ASSOCIATION, UNIVERSAL LIFE INSURANCE."
1590  DATA "$     THE GROUP BOOKED INTO THE BALLROOM CAUSED A GREAT DEAL"
1600  DATA "OF DAMAGE -- SOME OF IT DUE TO OVERCROWDING!  YOU WOULD LIKE"
1610  DATA "TO WRITE A POLICY STATEMENT ON THE TYPES OF GROUPS THAT"
1620  DATA "SHOULD BE BARRED FROM THE BALLROOM.  YOU CAN'T HAVE THIS"
1630  DATA "HAPPEN AGAIN.  COULD YOU SET DOWN ANY GUIDELINES?  WHAT"
1640  DATA "WOULD THEY INCLUDE?"
1650  END 
