10 PRINT"STRUCTURED VERSION"
15 POKE53280,0:POKE53281,7
20 PRINT"COPYRIGHT 1985 CHERYL PETERSON"
30 PRINT"HIT ANY KEY TO CONTINUE"
31 GET Z$:IF Z$=""THEN 31
100 PRINT"[147][149]"
130 PRINT"USING MY MICROWAVE'S AUTOMATIC TIMER AND PRE-PROGRAMMED"
131 PRINT"COOKING CYCLES DISTURBS ME"
132 GOSUB 10001
145 GOSUB 5000
146 IF A%<0ORA%>4 THEN 130
150 GOSUB 10100
230 PRINT"USING THE AUTOMATIC RECORDING FEATURES OF A VCR BOTHERS ME"
232 GOSUB 10001
245 GOSUB 5000
246 IF A%<0ORA%>4 THEN 230
260 GOSUB 10100
330 PRINT"WATCHING A TELEVISION SET OR MONITOR FOR HOURS"
331 PRINT"1) GIVES ME A HEADACHE, SO I DON'T DO IT."
332 PRINT"2) MAKES MY EYES HURT, SO I DON'T DO IT."
333 PRINT"3) KEEPS ME PLEASANTLY OCCUPIED."
334 INPUT"4) IS A WAY OF LIFE.";A%
340 GOSUB 5000
350 IF A%<0ORA%>4 THEN 330
360 GOSUB 10200
430 PRINT"A REMOTE CONTROL DEVICE FOR A TELEVISION IS "
431 GOSUB 10050
440 GOSUB 5000
450 IF A%<0ORA%>4 THEN 430
460 GOSUB 10200
530 PRINT"AUTOMATIC TELLER MACHINES ARE"
531 GOSUB 10050
540 GOSUB 5000
550 IF A%<0ORA%>4 THEN 530
560 GOSUB 10200
630 PRINT"I FIND USING A SELF CORRECTING TYPEWRITER"
631 PRINT"1) FRIGHTENING."
632 PRINT"2) CONFUSING."
633 PRINT"3) BETTER THAN USING A MANUAL."
634 INPUT"4) A ROYAL PAIN COMPARED TO USING A WORD PROCESSOR.";A%
640 GOSUB 5000
650 IF A%<0ORA%>4 THEN 630
660 GOSUB 10200
730 PRINT"SETTING THE AUTO-DIALING FEATURE ON A PHONE IS"
731 PRINT"1) BEYOND ME."
732 PRINT"2) TOO MUCH BOTHER."
733 PRINT"3) WORTH IT IN CONVENIENCE."
734 INPUT"4) EASY, BUT I LET MY COMPUTER DO ALL MY DIALING.";A%
740 GOSUB 5000
750 IF A%<0ORA%>4 THEN 730
760 GOSUB 10200
830 PRINT"IF MY CAR'S DASHBOARD LOOKED LIKE THE COCKPIT OF THE SPACE SHUTTLE"
831 PRINT"1) I'D SELL IT"
832 PRINT"2) I'D IGNORE IT."
833 PRINT"3) EVENTUALLY I'D FIGURE EVERYTHING OUT."
834 INPUT"4) I'D BE FIGURING OUT HOW TO GET COMPUTER MAPPING SYSTEM RUNNING";A%
840 GOSUB 5000
850 IF A%<0ORA%>4 THEN 830
860 GOSUB 10200
930 PRINT"I'D LIKE TO HAVE A COMPUTER BECAUSE"
931 PRINT"1) IT'S A GREAT STATUS SYMBOL."
932 PRINT"2) MY KIDS WILL NEED ONE."
933 PRINT"3) THERE MUST BE SOMETHING I CAN DO WITH ONE."
934 INPUT"4) I CAN THINK OF AT LEAST A DOZEN THINGS TO DO WITH ONE";A%
940 GOSUB 5000
950 IF A%<0ORA%>4 THEN 930
960 GOSUB 10200
1030 PRINT"I WOULDN'T GO THROUGH THE RIDES AT EPCOT CENTER BECAUSE"
1031 PRINT"1) I DON'T TRUST THOSE COMPUTER RUN CONTRAPTIONS."
1032 PRINT"2) WHO CARES ABOUT ALL THAT TECHNO-MUMBLE ANYWAY."
1033 PRINT"3) I'D BE TOO BUSY EATING!"
1034 INPUT"4) I'VE ALREADY RIDDEN ON ALL OF THEM";A%
1040 GOSUB 5000
1050 IF A%<0ORA%>4 THEN 1030
1060 GOSUB 10200
1100 INPUT "HOW MANY COMPUTERS DO YOU OWN";A%
1105 IF A%>10 THEN PRINT"TRY A NUMBER LESS THAN 11"
1110 IF A%>10 THEN GOTO 1100
1120 IF T>10 OR T=10 THEN T=T-A%
1300 IF T>10 THEN 1400
1310 PRINT"YOUR SCORE IS A MEASLY";T;"WHICH MEANS YOU ARE AT HOME WITH"
1320 PRINT"THE COMING COMPUTER REVOLUTION. IF YOU AREN'T ALREADY ACTIVELY"
1330 PRINT"INVOLVED WITH THE BEASTIES, YOU SHOULD BE."
1340 END
1400 IF T>20 THEN 1500
1405 PRINT"YOUR SCORE IS";T;"."
1410 PRINT"WITH A VERY SLIGHT ATTITUDE ADJUSTMENT, YOU COULD BE"
1420 PRINT"HAPPILY ENJOYING THE BENEFITS OF A COMPUTER COMPANION."
1440 END
1500 IF T>25 THEN 1599
1505 PRINT"YOUR SCORE IS";T;"."
1510 PRINT"GETTING YOU INTO COMMUNION WITH A COMPUTER WILL TAKE A"
1520 PRINT"MIRACLE. BUT STRANGER THINGS HAVE HAPPENED. GOOD LUCK!"
1540 END
1599 PRINT"YOUR SCORE IS";T;"!"
1600 PRINT"FORGET IT! IT'S HOPELESS. A CLASSIC CASE OF COMPUPHOBIA."
1610 PRINT"HOW DID YOU SURVIVE TAKING THIS TEST?!"
2000 END
5000 IF A%>0ANDA%<5THEN RETURN
5005 PRINT"[147]"
5010 PRINT"TRY CHOOSING AN INTEGER BETWEEN 1 AND 4"
10001 PRINT"1) NONE"
10002 PRINT"2) A LITTLE"
10003 PRINT"3) SOME"
10004 INPUT"4) VERY MUCH";A%
10005 RETURN
10050 PRINT"1) A NUISANCE."
10055 PRINT"2) A WASTE OF TIME."
10060 PRINT"3) SOMETIMES CONVENIENT."
10065 INPUT"4) WONDERFUL.";A%
10070 RETURN
10100 IF A%=1THENT=T+0
10110 IF A%=2THENT=T+1
10120 IF A%=3THENT=T+2
10130 IF A%=4THENT=T+3
10140 PRINT"[147]"
10150 RETURN
10200 IF A%=1THENT=T+3
10210 IF A%=2THENT=T+2
10220 IF A%=3THENT=T+1
10230 IF A%=4THENT=T+0
10240 PRINT"[147]"
10250 RETURN