Back to Main page. Back to Main tapes page. 1000 DIM C$[255],D$[255],E$[255] 1010 REM PROPHECY.....NO I WON'T PUT MY NAME ON THIS 1020 REMEMBER THIS IS FOR THE 49ER 1030 REM N0=NUMBER OF PROPHECY'S 1040 DIM A$[255],B$[255] 1050 N0=10 1060 PRINT "GOOD EVENING, I HOPE YOU ARE ENJOYING YOURSELF. THIS WON'T TAKE" 1070 PRINT "TOO LONG. WHY DON'T YOU JUST RELAX? WHAT IS YOUT FIRST NAME?" 1080 LINPUT A$ 1090 A$=UPS$(A$) 1100 IF LEN(A$)>2 AND LEN(A$)<20 THEN 1130 1110 PRINT "COME ON, RELAX! WHAT IS YOU FIRST NAME?" 1120 GOTO 1080 1130 PRINT "VERY GOOD, "A$", WHAT WE ARE GOING TO DO IS MAKE A SCIENTIFIC" 1140 PRINT "INQUIRY INTO YOUR DEEPEST SUBCONSCIOUS. THERE WE HOPE TO LEARN" 1150 PRINT "THE DEEPEST FACETS OF YOUR MIND IN ORDER TO COMPUTE THE MOST" 1160 PRINT "LIKELY PATH FOR YOUR LIFE TO TAKE. IT IS NOT FOOLPROOF, BUT" 1170 PRINT "IT HAS BEEN PROVEN 85% ACCURATE IN CLINICAL TESTS." 1180 PRINT LIN(1);"RESEARCHERS AT STANFORD AND HOBOKEN ARE CURRENTLY STUDYING" 1190 PRINT "THESE TECHNIQUES VERY CAREFULLY, HOPING TO GENERALIZE THEM TO ALL SOCIETY" 1200 PRINT "CRUDELY, HERE IS HOW IT WORKS" 1210 PRINT "DIFFERENT PEOPLE HAVE DIFFERENT PSYHCOLOGICAL PATTERNS AND WILL DO " 1220 PRINT "CERTAIN THINGS WITHOUT REALIZING IT. WHAT WE HAVE DISCOVERED IS" 1230 PRINT "THAT INDIVIDUALS REVEAL THEIR SUBCONSCIOUS DIRECTIVES WHEN THEY " 1240 PRINT "MAKE RANDOM CHOICES. THESE DIRECTIVES, IN TURN, ARE COMPUTABLE" 1250 PRINT "AND REVEAL THOSE QUALITIES THAT TEND TO HEAVILY INFLUENCE THE" 1260 PRINT "FUTURE OF THE INDIVIDUAL." 1270 PRINT "DO YOU UNDERSTAND?"; 1280 LINPUT B$ 1290 IF B$[1,1]="Y" THEN 1310 1300 PRINT "WELL TRY AND UNDERSTAND ANYWAY....." 1310 PRINT "O.K., "A$", TYPING FROM TEN TO TWENTY CHARACTERS ON THE " 1320 PRINT "KEYBOARD IN A 'RANDOM' FASHION SHOULD HELP TO REVEAL" 1330 PRINT "YOUR OWN PERSONAL PATTERN. THIS PATTERN I WILL ANALYZE" 1340 PRINT "AND I WILL GIVE YOU THE RESULTS OF THE COMPUTATIONS." 1350 PRINT "WOULD YOU PLEASE ENTER YOUR PATTERN?" 1360 LINPUT B$ 1370 L=LEN(B$) 1380 IF L <> 0 THEN 1450 1390 PRINT "WELL, THAT ANALYSIS DIDN'T TAKE LONG. IT HAS BEEN COMPUTED THAT" 1400 PRINT "YOU WILL NOT LIVE AN OVERLY LONG LIFE.THERE IS A 97.7% CHANCE" 1410 PRINT "THAT A WAYWARD COMPUTER IN DUBUQUE, IOWA WILL DECLARE YOU" 1420 PRINT "OFFICIALLY DEAD WITHIN THREE YEARS. THE ERROR WILL NEVER BE " 1430 PRINT "DETECTED. TOO BAD, "A$"." 1440 GOTO 2030 1450 IF L>5 THEN 1520 1460 PRINT "MY ANALYSIS SHOWS YOU TO BE A CONSERVATIVE PERSON IN DEED AND THOUGHT." 1470 PRINT A$"," 1480 PRINT "THERE IS A 43.7% CHANCE THAT YOU WILL GO TO PRISON LATER THIS YEAR." 1490 PRINT "CORRESPONDINGLY, THERE IS A 87.6% CHANCE THAT YOU WILL ENTER" 1500 PRINT "INTO THE WORLD OF CONSERVATIVE POLITICS." 1510 GOTO 2030 1520 IF L<25 THEN 1590 1530 PRINT "WELL, "A$", THERE IS SOME GOOD NEWS AND SOME BAD NEWS." 1540 PRINT "THE GOOD NEWS IS THAT YOU ARE AN OUTGOING AND FRIENDLY PERSON" 1550 PRINT "WHO IS EXTREMELY GENEROUS WITH YOUR FRIENDS. THE BAD NEWS" 1560 PRINT "IS THAT YOU TEND TO DO THINGS IN EXCESS AND WILL PROBABLY" 1570 PRINT "VOTE FOR A DEMOCRAT IN THE NEXT ELECTION." 1580 GOTO 2030 1590 FOR Y=1 TO 5000 1600 NEXT Y 1610 Y=INT(RND(0)*N0)+1 1620 FOR X=1 TO Y 1630 READ B$,C$,D$,E$ 1640 NEXT X 1650 PRINT "THESE INDEPTH CALCULATIONS HAVE SHOWN ME THAT " 1660 PRINT 1670 PRINT B$ 1680 PRINT C$;A$;D$ 1690 PRINT E$ 1700 PRINT 1710 PRINT "WELL, THAT'S IT, I HOPE YOU HAVE A PLEASANT EVENING." 1720 DATA "YOU TEND TO BE VERY SHY. THERE IS AN 85% CHANCE THAT " 1730 DATA "YOU WILL BECOME A FULLER BRUSH SALEMAN, ","." 1740 DATA "YOU WILL GET DISCOUNTS ON ALL OF FULLER'S FINE LINE OF PRODUCTS" 1750 DATA "THERE IS A 59.5%CHANCE THAT YOUR ATHLETIC TALENTS WILL" 1760 DATA "BLOOM IN THE COMING YEAR, ",". YOU WILL BE IN THE 1980" 1770 DATA "OLYMPIC HOCKEY PUCK QUARTER FINALS." 1780 DATA "THERE IS AN 85.7% CHANCE THAT YOU WILL ENTER INTO THE EXCITING" 1790 DATA "FIELD OF COMPUTER OPERATIONS, ",". THERE YOU WILL DO EXCITING THINGS" 1800 DATA "SUCH AS:LOOK OUT THE WINDOW, SORT PAPERS,PUSH BUTTONS,AND LOOK OUT THE WINDOW." 1810 DATA "YOU WILL BE COMMITTED TO A MENTAL INSTITUTION WITHIN THE YEAR." 1820 DATA "THERE YOU WILL LEARN TO WORK WITH YOUR HANDS, ","." 1830 DATA "YOU WILL BE A PROFESSIONAL BOXER." 1840 DATA "YOUR FUTURE IS HAZY. PERHAPS IT IS DUE TO A NON-RANDOM" 1850 DATA "PATTERN ON YOUR PART, ",". AT ANY RATE, YOUR FUTURE LOOKS GOOD." 1860 DATA "THERE IS A 97.1% CHANCE THAT YOU WILL ENJOY YOURSELF TONIGHT." 1870 DATA "THERE IS A 74.3% CHANCE THAT YOU WILL MEET A TALL DARK" 1880 DATA "STRANGER, ",". THAT STRANGER WILL CHANGE YOUR LIFE." 1890 DATA "MY ETHICS PROHIBIT ME FROM TELLING YOU MORE." 1900 DATA "UNLIKE ALL OF YOUR FRIENDS, YOU WILL BECOME VERY SUCCESSFUL." 1910 DATA "IN THE COMING YEAR, ",", MEN WILL LOOK UP TO YOU AT YOUR" 1920 DATA "NEW JOB AS A TELEPHONE LINEMAN." 1930 DATA "YOU HAVE A STRONG MIND AND A HEALTHY INTELLECT." 1940 DATA "" 1950 DATA "THERE IS AN 85.2% CHANCE THAT YOU WILL BECOME A COMPUTER PROGRAMMER" 1960 DATA "WHAT A WASTE OF A GOOD MIND!" 1970 DATA "" 1980 DATA "YOU, ",", ARE THE CHOSEN ONE. YOU MUST TAKE IT UPON YOURSELF" 1990 DATA "TO LEAD THE WORLD OUT OF ITS SPIRITUAL MESS." 2000 DATA "YOU FIT THE SPECIFICATIONS GIVEN IN MY DATA FILE AS A DANGEROUS" 2010 DATA "CRIMINAL. THERE IS NO ESCAPE, ",". THE FBI ARE ALREADY ON THE " 2020 DATA "WAY. OPERATOR: PLEASE RESTRAIN THIS INDIVIDUAL." 2030 GOTO 130 2040 END