Gaussian名人名言库在哪里。。。

rtransformation · 发表于 Post on 2017-3-19 17:54:13

Gaussian从哪里调出来的。

liyuanhe211 · 发表于 Post on 2017-3-19 21:42:27

L9999代码里写着的

五十八 · 发表于 Post on 2017-3-19 21:51:40

本帖最后由五十八于 2017-3-19 21:55 编辑

很多类似：

67 WRITE(IOUT,1067)
1067 FORMAT(1X,'HAPPINESS IS NOT HAVING WHAT YOU WANT --',
$ /,1x,'HAPPINESS IS WANTING WHAT YOU HAVE!',
$ //,1X,' -- FROM MRS. SEVERN''S DESK')
Return
68 WRITE(IOUT,1068)
1068 FORMAT(1X,'...THOSE SCIENCES ARE VAIN AND FULL OF ERRORS WHICH ',
$ /,1x,'ARE NOT BORN FROM EXPERIMENT, THE MOTHER OF CERTAINTY...',
$ //,1X,' -- LEONARDO DA VINCI, 1452-1519')
Return
69 WRITE(IOUT,1069)
1069 FORMAT(1X,'THERE IS SOMETHING FASCINATING ABOUT SCIENCE.',
$ /,1x,'ONE GETS SUCH WHOLESALE CONJECTURE OUT OF SUCH ',
$ 'TRIFLING INVESTMENTS.',
$ //,1X,54X,'-- MARK TWAIN')
Return
70 WRITE(IOUT,1070)
1070 FORMAT(1X,'WE SHOULD BE CAREFUL TO GET OUT OF AN EXPERIENCE ',
$ 'ONLY THE WISDOM',
$ /,1x,'THAT IS IN IT -- AND STOP THERE;',
$ /,1x,'LEST WE BE LIKE THE CAT THAT SITS DOWN ON A HOT ',
$ 'STOVE-LID.',
$ /,1x,'SHE WILL NEVER SIT DOWN ON A HOT STOVE LID AGAIN;',
$ /,1x,'BUT ALSO SHE WILL NEVER SIT DOWN ON A COLD ONE ANY ',
$ 'MORE.',
$ //,1X,52X,'-- MARK TWAIN')
Return
71 WRITE(IOUT,1071)
1071 FORMAT(1X,'THERE IS NO SUBJECT, HOWEVER COMPLEX,',
$ /,1x,'WHICH, IF STUDIED WITH PATIENCE AND INTELLIGIENCE',
$ /,1x,'WILL NOT BECOME',
$ /,1x,'MORE COMPLEX',
$ /,1x,23X,'QUOTED BY D. GORDON ROHMAN')
Return
72 WRITE(IOUT,1072)
1072 FORMAT(1X,'AND HERE I AM, FOR ALL MY LORE,',
$ /,1x,'THE WRETCHED FOOL I WAS BEFORE.',
$ /,1x,'CALLED MASTER OF ARTS, AND DOCTOR TO BOOT,',
$ /,1x,'FOR TEN YEARS ALMOST I CONFUTE',
$ /,1x,'AND UP AND DOWN, WHEREVER IT GOES',
$ /,1x,'I DRAG MY STUDENTS BY THE NOSE --',
$ /,1x,'AND SEE THAT FOR ALL OUR SCIENCE AND ART',
$ /,1x,'WE CAN KNOW NOTHING. IT BURNS MY HEART.',
$ //,1X,' -- FAUST')
Return
73 WRITE(IOUT,1073)
1073 FORMAT(1X,'IT IS A CAPITAL MISTAKE TO THEORIZE BEFORE ONE HAS',
$ /,1x,'DATA. INSENSIBLY ONE BEGINS TO TWIST FACTS TO SUIT',
$ /,1x,'THEORIES RATHER THAN THEORIES TO SUIT FACTS.',
$ //,1X,40X,'-- SHERLOCK HOLMES')
Return
74 WRITE(IOUT,1074)
1074 FORMAT(1X,'THE DIFFICULTY IN SCIENCE IS OFTEN NOT SO MUCH HOW',
$ /,1x,'TO MAKE A DISCOVERY BUT RATHER TO KNOW ONE ',
$ 'HAS MADE IT.',
$ //,1X,50X,'-- J. D. BERNAL')
Return
75 WRITE(IOUT,1075)
1075 FORMAT(' MARY HAD A LITTLE LAMB',/,6X,
HIS FEET WERE BLACK AS SOOT,',/,11X,
$ 'AND EVERYWHERE THAT MARY WENT',/,16X,
HIS SOOTY FOOT HE PUT.',/,/,20X,'-- NONAME')
Return
76 WRITE(IOUT,1076)
1076 FORMAT(1X,'"WHERE SHALL I START, PLEASE YOUR MAJESTY?" HE ASKED.',
$ /,1x,'"BEGIN AT THE BEGINNING," THE KING SAID GRAVELY,',
$ /,1x,'"AND GO ON TILL YOU COME TO THE END: THEN STOP." ',
$//,1X,' -- LEWIS CARROLL')
Return
77 WRITE(IOUT,1077)
1077 FORMAT(1X,'"I COULD HAVE DONE IT IN A MUCH MORE COMPLICATED WAY"',
$ /,1x,'SAID THE RED QUEEN, IMMENSELY PROUD.',
$ //,1X,' -- LEWIS CARROLL')
Return
78 WRITE(IOUT,1078)
1078 FORMAT(1X,'"WOULD YOU TELL ME PLEASE, WHICH WAY I OUGHT TO',
$ ' WALK FROM HERE?"',
$ /,1x,'"THAT DEPENDS A GREAT DEAL ON WHERE YOU WANT TO GO,"',
$ ' SAID THE CAT.',
$ /,1x,'"I DON''T MUCH CARE WHERE -- ", SAID ALICE.',
$ /,1x,'"THEN IT DOESN''T MATTER WHICH WAY YOU WALK," SAID ',
$ 'THE CAT.',
$ //,1X,' -- LEWIS CARROLL')
Return
79 WRITE(IOUT,1079)
1079 FORMAT(1X,'K N O W I N G IS A BARRIER WHICH PREVENTS LEARNING',
$ //,1X,20X,'-- TEACHING OF THE BENE GESSERIT')
Return
80 WRITE(IOUT,1080)
1080 FORMAT(1X,'WORK FAITHFULLY FOR EIGHT HOURS A DAY AND DON''T ',
$ 'WORRY.',
$ /,1x,'IN TIME YOU MAY BECOME BOSS AND WORK TWELVE HOURS A ',
$ 'DAY',
$ /,1x,'AND HAVE ALL THE WORRY.')
Return
81 WRITE(IOUT,1081)
1081 FORMAT(6X,'LET US REMEMBER, PLEASE, THAT THE SEARCH FOR THE ',
$ 'CONSTITUTION',
$ /,6X,'OF THE WORLD IS ONE OF THE GREATEST AND NOBLEST ',
$ 'PROBLEMS PRESENTED ',
$ /,6X,'BY NATURE.',
$ //,50X,'-- GALILEO')
Return
82 WRITE(IOUT,1082)
1082 FORMAT(1X,'... I FELL INTO A REVERIE ... THE ATOMS WERE ',
$ 'GAMBOLING BEFORE MY EYES',
$ /,1x,'... I SAW HOW TWO SMALL ONES UNITED TO FORM A PAIR;',
$ /,1x,'HOW THE LARGER ONES SEIZED TWO OF THE SMALLER ONES;',
$ /,1x,'HOW STILL LARGER ONES KEPT HOLD OF THREE OR FOUR',
$ /,1x,'SMALLER ONES ... I SAW HOW THE LARGER ONES FORMED ',
$ 'A CHAIN ...',
$ /,1x,'THIS WAS THE ORIGIN OF THE STRUCTURE THEORY.',
$ //,35X,'-- C.F.KEKULE VON STRADONITZ')
Return
83 WRITE(IOUT,1083)
1083 FORMAT(6X,'SCIENCE SANS CONSCIENCE N''EST QUE RUINE DE L''AME.'//
$50X,'-- RABELAIS')
Return
84 WRITE(IOUT,1084)
1084 FORMAT(6X,'THE ONE-EYED VIEW OF OUR UNIVERSE SAYS YOU MUST ',
$ 'NOT LOOK',
$ /,6X,'FAR AFIELD FOR PROBLEMS. SUCH PROBLEMS MAY NEVER ',
$ 'ARRIVE. ',
$ /,6X,'INSTEAD, TEND TO THE WOLF WITHIN YOUR FENCES.',
$ /,6X,'THE PACKS RANGING OUTSIDE MAY NOT EVEN EXIST.',
$ //,30X,'-- THE AZHAR BOOK SHAMRA I:4',
$ /,30X,' CHILDREN OF DUNE, BY FRANK HERBERT')
Return
85 WRITE(IOUT,1085)
1085 FORMAT(6X,'TO SUSPECT YOUR OWN MORTALITY IS TO KNOW ',
$ 'THE BEGINNING OF TERROR.',
$ /,6X,'TO LEARN IRREFUTABLY THAT YOU ARE MORTAL IS TO KNOW ',
$ 'THE END',
$ /,6X,'OF TERROR.',
$ //,50X,'-- JESSICA',
$ /,50X,' CHILDREN OF DUNE',
$ /,50X,' BY FRANK HERBERT')
Return
86 WRITE(IOUT,1086)
1086 FORMAT(1X,'IF YOU BELIEVE CERTAIN WORDS, YOU BELIEVE THEIR ',
$ 'HIDDEN ARGUMENTS.',
$ /,1x,'WHEN YOU BELIEVE SOMETHING IS RIGHT OR WRONG, ',
$ 'TRUE OR FALSE, ',
$ /,1x,'YOU BELIEVE THE ASSUMPTIONS IN THE WORDS WHICH ',
$ 'EXPRESS THE ARGUMENTS.',
$ /,1x,'SUCH ASSUMPTIONS ARE OFTEN FULL OF HOLES, BUT ',
$ 'REMAIN MOST PRECIOUS ',
$ /,1x,'TO THE CONVINCED.',
$ //,17X,'-- THE OPEN-ENDED PROOF FROM THE PANOPLIA PROPHETICA',
$ /,17X,' CHILDREN OF DUNE BY FRANK HERBERT')
Return
87 WRITE(IOUT,1087)
1087 FORMAT(6X,'HUMANKIND PERIODICALLY GOES THROUGH A SPEEDUP OF ',
$ 'ITS AFFAIRS, ',
$ /,6X,'THEREBY EXPERIENCING THE RACE BETWEEN THE RENEWABLE ',
$ 'VITALITY',
$ /,6X,'OF THE LIVING, AND THE BECKONING VITIATION OF ',
$ 'DECADENCE.',
$ /,6X,'IN THIS PERIODIC RACE, ANY PAUSE BECOMES A LUXURY.',
$ /,6X,'ONLY THEN CAN ONE REFLECT THAT ALL IS PERMITTED;',
$ /,6X,'ALL IS POSSIBLE.',
$ //,30X,'-- THE APOCRYPHA OF MUAD''DIB',
$ /,30X,' CHILDREN OF DUNE, BY FRANK HERBERT')
Return
88 WRITE(IOUT,1088)
1088 FORMAT(1X,'THEORY: SUPPOSITION WHICH HAS SCIENTIFIC BASIS,',
$ /,1x,' BUT NOT EXPERIMENTALLY PROVEN.',
$ /,1x,'FACT: A THEORY WHICH HAS BEEN PROVEN BY ENOUGH ',
$ /,1x,' MONEY TO PAY FOR THE EXPERIMENTS.',
$ //,1X,25X,'-- THE WIZARD OF ID')
Return
89 WRITE(IOUT,1089)
1089 FORMAT(1X,'CLIMB THE MOUNTAINS AND GET THEIR GOOD TIDINGS.',
$ /,1x,'NATURE''S PEACE WILL FLOW INTO YOU AS SUNSHINE FLOWS ',
$ 'INTO TREES.',
$ /,1x,'THE WINDS WILL BLOW THEIR OWN FRESHNESS INTO YOU, ',
$ /,1x,'AND CARES WILL DROP OFF LIKE AUTUMN LEAVES.',
$ //,1X,40X,'-- JOHN MUIR')
Return
90 WRITE(IOUT,1090)
1090 FORMAT(1X,'KEEP CLOSE TO NATURES HEART, YOURSELF;',
$ /,1x,'AND BREAK CLEAR AWAY, ONCE IN A WHILE, AND',
$ /,1x,'CLIMB A MOUNTAIN OR SPEND A WEEK IN THE',
$ /,1x,'WOODS. WASH YOUR SPIRIT CLEAN...',
$ /,1x,40X,'-- JOHN MUIR')
Return
91 WRITE(IOUT,1091)
1091 FORMAT(1X,'THOSE WHO ASPIRE NOT TO GUESS AND DIVINE,',
$ /,1x,'BUT TO DISCOVER AND KNOW, WHO PROPOSE NOT TO DEVISE ',
$ /,1x,'MIMIC AND FABULOUS WORLDS OF THEIR OWN, BUT TO ',
$ /,1x,'EXAMINE AND DISSECT THE NATURE OF THIS VERY WORLD ',
$ /,1x,'ITSELF, MUST GO TO THE FACTS THEMSELVES FOR EVERYTHING.',
$ //,1X,' -- FRANCIS BACON, 1620')
Return
92 WRITE(IOUT,1092)
1092 FORMAT(1X,'THE UNDERLYING PHYSICAL LAWS NECESSARY FOR THE ',
$ /,1x,'MATHEMATICAL THEORY OF A LARGE PART OF PHYSICS AND THE',
$ /,1x,'WHOLE OF CHEMISTRY ARE THUS COMPLETELY KNOWN, AND THE',
$ /,1x,'DIFFICULTY IS ONLY THAT THE EXACT APPLICATION OF THESE',
$ /,1x,'LAWS LEADS TO EQUATIONS MUCH TOO COMPLICATED ',
$ /,1x,'TO BE SOLUBLE.',
$ //,40X,'-- P. A. M. DIRAC, 1929')
Return
93 WRITE(IOUT,1093)
1093 FORMAT(1X,'IN SO FAR AS QUANTUM MECHANICS IS CORRECT, CHEMICAL ',
$ /,1x,'QUESTIONS ARE PROBLEMS IN APPLIED MATHEMATICS.',
$//,1X,' -- EYRING, WALTER, & KIMBALL, 1944')
Return
94 WRITE(IOUT,1094)
1094 FORMAT(1X,'TWO ROADS DIVERGED IN A WOOD, AND I--',
$ /,1x,'I TOOK THE ONE LESS TRAVELED BY,',
$ /,1x,'AND THAT HAS MADE ALL THE DIFFERENCE.',
$ //,1X,' -- ROBERT FROST')
Return
95 WRITE(IOUT,1095)
1095 FORMAT(1X,'TO SEE A WORLD IN A GRAIN OF SAND',
$ /,1x,'AND A HEAVEN IN A WILD FLOWER',
$ /,1x,'HOLD INFINITY IN THE PALM OF YOUR HAND',
$ /,1x,'AND ETERNITY IN AN HOUR',
$ //,1X,' -- WILLIAM BLAKE')
Return
96 WRITE(IOUT,1096)
1096 FORMAT(1X,'MAN IS A SINGULAR CREATURE. HE HAS A SET OF GIFTS',
$ /,1x,'WHICH MAKE HIM UNIQUE AMONG THE ANIMALS: SO THAT, ',
$ /,1x,'UNLIKE THEM, HE IS NOT A FIGURE IN THE LANDSCAPE --',
$ /,1x,'HE IS A SHAPER OF THE LANDSCAPE.',
$ //,1X,' -- JACOB BRONOWSKI')
Return
97 WRITE(IOUT,1097)
1097 FORMAT(1X,'EDUCATION DOESN''T COST ',
$ /,1x,' ... IT PAYS!',
$ //,1X,'-- POSTMARK, UNIV. OF MISSISSIPPI, DEC 78')
Return
98 WRITE(IOUT,1098)
1098 FORMAT(1X,'"THE ACADEMIC HIERARCHY"',//,
$ /,1x,'THE PRESIDENT:',
$ /,1x,' LEAPS TALL BUILDINGS IN A SINGLE BOUND,',
$ /,1x,' IS MORE POWERFUL THAN A LOCOMOTIVE,',
$ /,1x,' IS FASTER THAN A SPEEDING BULLET,',
$ /,1x,' WALKS ON WATER,',
$ /,1x,' GIVES POLICY TO GOD.',/,
$ /,1x,'THE VICE PRESIDENT FOR ACADEMIC AFFAIRS:',
$ /,1x,' LEAPS SHORT BUILDINGS IN A SINGLE BOUND,',
$ /,1x,' IS MORE POWERFUL THAN A SWITCH ENGINE,',
$ /,1x,' IS JUST AS FAST AS A SPEEDING BULLET,',
$ /,1x,' WALKS ON WATER IF SEA IS CALM,',
$ /,1x,' TALKS WITH GOD.'/)
WRITE(IOUT,2098)
2098 FORMAT(1X,'PROFESSOR:',
$ /,1x,' LEAPS SHORT BUILDINGS WITH A RUNNING START AND ',
$ 'FAVORABLE WINDS,',
$ /,1x,' IS ALMOST AS POWERFUL AS A SWITCH ENGINE,',
$ /,1x,' CAN FIRE A SPEEDING BULLET,',
$ /,1x,' WALKS ON WATER IN AN INDOOR SWIMMING POOL,',
$ /,1x,' TALKS WITH GOD IF SPECIAL REQUEST IS ',
$ 'APPROVED.',/,
$ /,1x,'ASSOCIATE PROFESSOR:',
$ /,1x,' BARELY CLEARS A QUONSET HUT,',
$ /,1x,' LOSES TUG OF WAR WITH LOCOMOTIVE,',
$ /,1x,' MISFIRES FREQUENTLY,',
$ /,1x,' SWIMS WELL,',
$ /,1x,' IS OCCASIONALLY ADDRESSED BY GOD.'/)
WRITE(IOUT,3098)
3098 FORMAT(1X,'ASSISTANT PROFESSOR:',
$ /,1x,' MAKES HIGH MARKS ON WALLS WHEN TRYING TO LEAP',
$ ' TALL BUILDINGS,',
$ /,1x,' IS RUN OVER BY LOCOMOTIVES,',
$ /,1x,' CAN SOMETIMES HANDLE A GUN WITHOUT INFLICTING',
$ ' SELF INJURY,',
$ /,1x,' DOG PADDLES,',
$ /,1x,' TALKS TO ANIMALS.',/,
$ /,1x,'GRADUATE STUDENT:',
$ /,1x,' RUNS INTO BUILDINGS,',
$ /,1x,' RECOGNIZES LOCOMOTIVES TWO OUT OF THREE TIMES,',
$ /,1x,' IS NOT ISSUED AMMUNITION,',
$ /,1x,' CAN STAY AFLOAT WITH A LIFE JACKET,',
$ /,1x,' TALKS TO WALLS.'/)
WRITE(IOUT,4098)
4098 FORMAT(1X,'UNDERGRADUATE AND WORK STUDY STUDENT:',
$ /,1x,' FALLS OVER DOORSTEP WHEN TRYING TO ENTER BUILDINGS,',
$ /,1x,' SAYS, "LOOK AT THE CHOO-CHOO,"',
$ /,1x,' WETS HIMSELF WITH A WATER PISTOL,',
$ /,1x,' PLAYS IN MUD PUDDLES,',
$ /,1x,' MUMBLES TO HIMSELF.',/,
$ /,1x,'DEPARTMENT SECRETARY:',
$ /,1x,' LIFTS TALL BUILDINGS AND WALKS UNDER THEM,',
$ /,1x,' KICKS LOCOMOTIVES OFF THE TRACKS,',
$ /,1x,' CATCHES SPEEDING BULLETS IN HER TEETH AND',
$ ' EATS THEM,',
$ /,1x,' FREEZES WATER WITH A SINGLE GLANCE,',
$ /,1x,' IS GOD.')
Return
99 WRITE(IOUT,1099)
1099 FORMAT(1X,'SUCCESS-- IF YOU HAVE TRIED TO DO SOMETHING AND FAILED'
$ ,/,1x,' YOU ARE BETTER OFF THAN IF YOU HAD TRIED',
$ ' TO DO',
$ /,1x,' NOTHING AND SUCCEEDED.',/,
$ /,1x,' -- FROM THE BACK OF A SUGAR PACKET')
Return
End
*Deck Gozy1
Subroutine Gozy1(IOut,Num)
Implicit Integer(A-Z)
C
C Print out gozy messages 1xx (i.e. 100 to 199).
C
If(Num.lt.100.or.Num.gt.199)
$ Call GauErr('Num<100 or Num>199 in Gozy1.')
IHOP = Num/20 + 1 - 5
IGO = MOD(Num,20) + 1
IF (IHOP .EQ. 1) IGO = IGO - 1
GOTO (9100,9120,9140,9160,9180), IHop
C
9100 CONTINUE
GOTO(100,101,102,103,104,105,106,107,108,109,
$ 110,111,112,113,114,115,116,117,118,119), IGO
C
9120 CONTINUE
GOTO(120,121,122,123,124,125,126,127,128,129,
$ 130,131,132,133,134,135,136,137,138,139), IGO
C
9140 CONTINUE
GOTO(140,141,142,143,144,145,146,147,148,149,
$ 150,151,152,153,154,155,156,157,158,159), IGO
C
9160 CONTINUE
GOTO(160,161,162,163,164,165,166,167,168,169,
$ 170,171,172,173,174,175,176,177,178,179), IGO
C
9180 CONTINUE
GOTO(180,181,182,183,184,185,186,187,188,189,
$ 190,191,192,193,194,195,196,197,198,199), IGO
C
100 WRITE(IOUT,1100)
1100 FORMAT(1X,'IF AT FIRST YOU DON''T SUCCEED, TRY, TRY AGAIN.',
$ /,1X,'THEN GIVE UP;',
$ /,1X,'THERE''S NO USE BEING A DAMN FOOL ABOUT IT.',
$ //,1X,' -- W. C. FIELDS')
Return
101 WRITE(IOUT,1101)
1101 FORMAT(1X,'ACTORS ARE SO FORTUNATE. THEY CAN CHOOSE WHETHER',
$ /,1X,'THEY WILL APPEAR IN A TRAGEDY OR IN COMEDY,',
$ /,1X,'WHETHER THEY WILL SUFFER OF MAKE MERRY,',
$ /,1X,'LAUGH OR SHED TEARS. BUT IN REAL LIFE IT IS ',
$ 'DIFFERENT.',
$ /,1X,'MOST MEN AND WOMEN ARE FORCED TO PERFORM',
$ /,1X,'PARTS FOR WHICH THEY HAVE NO QUALIFICATIONS.',
$ /,1X,'THE WORLD IS A STAGE, BUT THE PLAY IS BADLY CAST.',
$ //,1X,' -- OSCAR WILDE')
Return
102 WRITE(IOUT,1102)
1102 FORMAT(1X,'SCIENCE IS A VERY HUMAN FORM OF KNOWLEDGE.',
$ /,1X,'WE ARE ALWAYS AT THE BRINK OF THE KNOWN,',
$ /,1X,'WE ALWAYS FEEL FORWARD FOR WHAT IS HOPED.',
$ /,1X,'EVERY JUDGEMENT IN SCIENCE STANDS ON THE EDGE OF ERROR',
$ ', AND IS PERSONAL.',
$ /,1X,'SCIENCE IS A TRIBUTE TO WHAT WE CAN KNOW ALTHOUGH',
$ ' WE ARE FALLIBLE.',
$ //,1X,' -- J. BRONOWSKI')
Return
103 WRITE(IOUT,1103)
1103 FORMAT(1X,'COMMON SENSE IS NOT SO COMMON. -- VOLTAIRE')
Return
104 WRITE(IOUT,1104)
1104 FORMAT(1X,'ACHIEVEMENT-- THE MAN WHO ROWS THE BOAT GENERALLY ',
$ /,1X,' DOESN''T HAVE TIME TO ROCK IT.',/,
$ /,1X,' -- FROM THE BACK OF A SUGAR PACKET')
Return
105 WRITE(IOUT,1105)
1105 FORMAT(1X,'ADVERTISING-- HE WHO HAS SOMETHING TO SELL AND GOES ',
$ 'AND WHISPERS',
$ /,1X,' IN A WELL, IS NOT SO APT TO GET THE ',
$ 'DOLLARS AS HE',
$ /,1X,' WHO CLIMBS A TREE AND HOLLERS.',/,
$ /,1X,' -- FROM THE BACK OF A SUGAR PACKET')
Return
106 WRITE(IOUT,1106)
1106 FORMAT(1X,'MODELS ARE TO BE USED, NOT BELIEVED.',
$ //,1X,' -- PARAPHRASED BY H. THIEL IN "PRINCIPLES OF',
$ ' ECONOMETRICS"')
Return
107 WRITE(IOUT,1107)
1107 FORMAT(1X,'SCIENCE IS LONG AND LIFE IS SHORT.',
$ //,1X,20X,'DON MOSER IN THE FEBRUARY 1979 SMITHSONIAN')
Return
108 WRITE(IOUT,1108)
1108 FORMAT(1X,'... IT CAN BE VERY DIFFICULT, IN THESE COMPLEX TIMES,',
$ /,1X,'TO UNDERSTAND JUST HOW SCIENTISTS DO WHAT THEY DO.',
$ //,1X,20X,'DON MOSER IN THE FEBRUARY 1979 SMITHSONIAN')
Return
109 WRITE(IOUT,1109)
1109 FORMAT(1X,
$ 'THERE IS NOTHING NOBLE IN BEING SUPERIOR TO SOME OTHER',
$ ' MAN.',
$ /,1X,'TRUE NOBILITY IS BEING SUPERIOR TO YOUR FORMER SELF.',
$ //,1X,50X,'-- HINDU PROVERB')
Return
110 WRITE(IOUT,1110)
1110 FORMAT(1X,'WHEN YOU REACH FOR THE STARS, YOU MAY NOT QUITE ',
$ 'GET ONE,',
$ /,1X,'BUT YOU WON''T COME UP WITH A HANDFUL OF MUD, EITHER.',
$ //,1X,40X,'-- LEO BURNETT (AD AGENCY HEAD)')
Return
111 WRITE(IOUT,1111)
1111 FORMAT(1X,'IT IS IMPOSSIBLE TO MEDITATE ON TIME AND THE MYSTERY ',
$ /,1X,'OF NATURE WITHOUT AN OVERWHELMING EMOTION AT THE',
$ /,1X,'LIMITATIONS OF HUMAN INTELLIGENCE.',
$ //,1X,40X,'-- ALFRED NORTH WHITEHEAD')
Return
112 WRITE(IOUT,1112)
1112 FORMAT(1X,'LEARN FROM YESTERDAY,',
$ /,1X,'LIVE FOR TODAY,',
$ /,1X,'LOOK TO TOMORROW,',
$ /,1X,'REST THIS AFTERNOON.',
$ //,1X,' -- SNOOPY')
Return
113 WRITE(IOUT,1113)
1113 FORMAT(1X,'IT PROBABLY IS NOT POSSIBLE FOR A SCIENTIST TO ',
$ 'INTERROGATE NATURE ',
$ /,1X,'FROM A WHOLLY DISINTERESTED VIEWPOINT.',
$ /,1X,'EVEN IF HE HAS NO PARTICULAR AXE TO GRIND, HE IS ',
$ 'LIKELY TO HAVE ',
$ /,1X,'A DISTINCTIVE WAY OF VIEWING NATURE.',
$ //,1X,50X,'-- JOHN LOSEE')
Return
114 WRITE(IOUT,1114)
1114 FORMAT(1X,'E PUR SI MUOVE -- GALILEO GALILEI')
Return
115 WRITE(IOUT,1115)
1115 FORMAT(1X,'SCIENCE AND PEACE WILL TRIUMPH OVER IGNORANCE AND WAR',
$ //,1X,25X,'-- PASTEUR')
Return
116 WRITE(IOUT,1116)
1116 FORMAT(1X,'THE FIRST AND LAST THING REQUIRED OF GENIUS IS THE ',
$ 'LOVE OF TRUTH.',
$ //,1X,25X,'-- GOETHE')
Return
117 WRITE(IOUT,1117)
1117 FORMAT(1X,'IF THERE IS ONE WAY BETTER THAN ANOTHER IT IS THE ',
$ 'WAY OF NATURE.',
$ //,1X,25X,'-- ARISTOTLE')
Return
118 WRITE(IOUT,1118)
1118 FORMAT(1X,'BE NOT THE FIRST BY WHOM THE NEW ARE TRIED,',
$ /,1X,'NOR YET THE THE LAST TO LAY THE OLD ASIDE.',
$ //,1X,' -- ALEXANDER POPE')
Return
119 WRITE(IOUT,1119)
1119 FORMAT(1X,'THE EIGHTH ELEMENT, STARTING FROM A GIVEN ONE, ',
$ 'IS A KIND OF REPETITION ',
$ /,1X,'OF THE FIRST, LIKE THE EIGHTH NOTE OF AN OCTAVE ',
$ 'IN MUSIC.',
$ //,1X,' -- J. A. R. NEWLANDS, 1864')
Return
120 WRITE(IOUT,1120)
1120 FORMAT(1X,'... A MOLECULAR SYSTEM ... (PASSES) ... FROM ONE ',
$ 'STATE OF EQUILIBRIUM ',
$ /,1X,'TO ANOTHER ... BY MEANS OF ALL POSSIBLE ',
$ 'INTERMEDIATE PATHS, ',
$ /,1X,'BUT THE PATH MOST ECONOMICAL OF ENERGY WILL BE ',
$ 'THE MORE OFTEN TRAVELED.',
$ //,1X,20X,' -- HENRY EYRING, 1945')
Return
121 WRITE(IOUT,1121)
1121 FORMAT(1X,'IT IS THE BEHAVIOR AND DISTRIBUTION OF THE ELECTRONS ',
$ /,1X,'AROUND THE NUCLEUS THAT GIVES THE FUNDAMENTAL ',
$ /,1X,'CHARACTER OF AN ATOM: IT MUST BE THE SAME ',
$ 'FOR MOLECULES.',
$ //,1X,' -- C. A. COULSON, 1951')
Return
122 WRITE(IOUT,1122)
1122 FORMAT(1X,'AS FAR AS THE LAWS OF MATHEMATICS REFER TO REALITY,',
$ /,1X,'THEY ARE NOT CERTAIN; AND AS FAR AS THEY ARE CERTAIN,',
$ /,1X,'THEY DO NOT REFER TO REALITY.',
$ //,1X,40X,'-- ALBERT EINSTEIN')
Return
123 WRITE(IOUT,1123)
1123 FORMAT(1X,'FOR THE NATURE OF THE CHEMICAL BOND',
$ /,1X,'IS THE PROBLEM AT THE HEART OF ALL CHEMISTRY.',
$ //,1X,20X,'-- BRYCE CRAWFORD, JR., 1953')
Return
124 WRITE(IOUT,1124)
1124 FORMAT(1X,'IF YOU WISH TO UNDERSTAND THE FRAGRANCE OF THE ROSE, ',
$ /,1X,'OR THE TENACITY OF THE OAK; ',
$ /,1X,'IF YOU ARE NOT SATISFIED UNTIL YOU KNOW THE SECRET ',
$ 'PATHS ',
$ /,1X,'BY WHICH THE SUNSHINE AND THE AIR ACHIEVE ',
$ 'THESE WONDERS; ',
$ /,1X,'IF YOU WISH TO SEE THE PATTERN WHICH UNDERLIES ONE ',
$ 'LARGE FIELD OF ',
$ /,1X,'HUMAN EXPERIENCE AND HUMAN MEASUREMENT, THEN ',
$ 'TAKE UP CHEMISTRY.',
$ //,1X,40X,'-- C. A. COULSON, 1973.')
Return
125 WRITE(IOUT,1125)
1125 FORMAT(1X,'SCIENCE AT ITS BEST PROVIDES US WITH BETTER ',
$ 'QUESTIONS, ',
$ /,1X,'NOT ABSOLUTE ANSWERS',
$ //,1X,35X,'-- NORMAN COUSINS, 1976')
Return
126 WRITE(IOUT,1126)
1126 FORMAT(1X,'THE MOST BEAUTIFUL EXPERIENCE WE CAN HAVE IS ',
$ 'THE MYSTERIOUS.',
$ /,1X,'IT IS THE FUNDAMENTAL EMOTION WHICH STANDS AT ',
$ 'AT THE CRADLE ',
$ /,1X,'OF TRUE ART AND TRUE SCIENCE.',
$ //,1X,35X,'-- ALBERT EINSTEIN')
Return
127 WRITE(IOUT,1127)
1127 FORMAT(1X,'WE MIGHT AS WELL ATTEMPT TO INTRODUCE A NEW PLANET ',
$ /,1X,'INTO THE SOLAR SYSTEM, OR TO ANNIHILATE ONE ALREADY',
$ 'IN EXISTENCE, ',
$ /,1X,'AS TO CREATE OR DESTROY A PARTICLE OF HYDROGEN.',
$ /,1X,'ALL THE CHANGES WE CAN PRODUCE CONSIST IN SEPARATING ',
$ 'PARTICLES',
$ /,1X,'THAT ARE IN A STATE OF ... COMBINATION, AND JOINING ',
$ /,1X,'THOSE THAT WERE PREVIOUSLY AT A DISTANCE.',
$ //,1X,35X,'-- JOHN DALTON, 1810')
Return
128 WRITE(IOUT,1128)
1128 FORMAT(1X,'ALMOST ALL THE CHEMICAL PROCESSES WHICH OCCUR ',
$ 'IN NATURE,',
$ /,1X,'WHETHER IN ANIMAL OR VEGETABLE ORGANISMS,',
$ /,1X,'OR IN THE NON-LIVING SURFACE OF THE EARTH ... ',
$ /,1X,'TAKE PLACE BETWEEN SUBSTANCES IN SOLUTION',
$ //,1X,35X,'-- W. OSTWALD, 1890')
Return
129 WRITE(IOUT,1129)
1129 FORMAT(1X,'... THE UNIVERSE IS NOT ONLY QUEERER THAN WE SUPPOSE,',
$ /,1X,'BUT QUEERER THAN WE CAN SUPPOSE ... ',
$ //,1X,' -- J. B. S. HALDANE')
Return
130 WRITE(IOUT,1130)
1130 FORMAT(1X,'IT IS A PROFOUNDLY ERRONEOUS TRUISM ... THAT WE ',
$ 'SHOULD CULTIVATE',
$ /,1X,'THE HABIT OF THINKING OF WHAT WE ARE DOING.',
$ /,1X,'THE PRECISE OPPOSITE IS THE CASE.',
$ /,1X,'CIVILIZATION ADVANCES BY EXTENDING THE NUMBER OF ',
$ 'IMPORTANT OPERATIONS',
$ /,1X,'WHICH WE CAN PERFORM WITHOUT THINKING ABOUT THEM.',
$ //,1X,35X,'-- ALFRED NORTH WHITEHEAD')
Return
131 WRITE(IOUT,1131)
1131 FORMAT(1X,'ABSOLUTISM, OBSOLETISM -- IF IT WORKS, IT''S OUT ',
$ 'OF DATE',
$ //,1X,25X,'-- STAFFORD BEER')
Return
132 WRITE(IOUT,1132)
1132 FORMAT(1X,'A ROPE OVER THE TOP OF A FENCE HAS THE SAME LENGTH ',
$ 'ON EACH SIDE.',
$ /,1X,'WEIGHS 1/3 POUND PER FOOT. ON ONE END HANGS A ',
$ 'MONKEY HOLDING A',
$ /,1X,'BANANA, AND ON THE OTHER END A WEIGHT EQUAL TO',
$ ' THE WEIGHT',
$ /,1X,'OF THE MONKEY. THE BANANA WEIGHS TWO OUNCES PER',
$ ' INCH.',
$ /,1X,'THE ROPE IS AS LONG AS THE AGE OF THE MONKEY, ',
$ /,1X,'AND THE WEIGHT OF THE MONKEY (IN OUNCES) IS AS MUCH',
$ /,1X,'AS THE AGE OF THE MONKEY''S MOTHER. THE COMBINED AGES',
$ ' OF MONKEY',
$ /,1X,'AND MOTHER ARE THIRTY YEARS. HALF THE WEIGHT OF',
$ ' THE MONKEY,',
$ /,1X,' PLUS THE WEIGHT OF THE BANANA, IS ONE FOURTH AS',
$ ' MUCH AS THE WEIGHT',
$ /,1X,'OF THE WEIGHT AND THE ROPE.')
WRITE(IOUT,2132)
2132 FORMAT(1X,'THE MONKEY''S MOTHER IS HALF AS OLD AS THE MONKEY ',
$ 'WILL BE',
$ /,1X,'WHEN IT IS 3 TIMES AS OLD AS ITS MOTHER WAS WHEN',
$ /,1X,'SHE WAS HALF AS OLD AS THE MONKEY WILL BE WHEN IT IS',
$ /,1X,'AS OLD AS ITS MOTHER WILL BE WHEN SHE IS 4 TIMES AS',
$ /,1X,'OLD AS THE MONKEY WAS WHEN IT WAS TWICE AS OLD AS ',
$ /,1X,'ITS MOTHER WAS WHEN SHE WAS ONE THIRD AS OLD AS THE',
$ /,1X,'MONKEY WAS WHEN IT WAS AS OLD AS ITS MOTHER WAS WHEN ',
$ /,1X,'SHE WAS 3 TIMES AS OLD AS THE MONKEY WAS WHEN IT WAS ',
$ 'AS OLD AS ITS',
$ /,1X,'MOTHER WAS WHEN SHE WAS 3 TIMES AS OLD AS THE MONKEY ',
$ /,1X,'WAS WHEN IT WAS ONE FOURTH WAS OLD AS IT IS NOW.',
$ //,1X,'HOW LONG IS THE BANANA?')
Return
133 Continue
C WRITE(IOUT,1133)
C1133 FORMAT(25X,
C
/---------\',/,30X,' / \',
C $/,30X,' / \',/,30X,' / \',
C $/,30X,' ! XXXX XXXX !',
C $/,30X,' ! XXXX XXXX !',/,30X,' ! XXX XXX !',
C $/,30X,' ! X !',/,30X,' --\ XXX /--',
C $/,30X,' ! ! XXX ! !',/,30X,' ! ! ! !',
C $/,30X,' ! I I I I I !',/,30X,' ! I I I I !',
C $/,30X,' \ /',/,30X,' -- --',
C $/,30X,' \---/',/,30X,' XXX XXX',
C $/,30X,' XXXX XXXX',
C $/,30X,' XXXXX XXXXX',
C $/,30X,' XXX XXX',/,30X,' XXX XXX',
C $/,30X,' XXXXX',/,30X,' XXX XXX',
C $/,30X,' XXX XXX',/,30X,' XXX XXX',
C $/,30X,' XXXXX XXXXX',
C $/,30X,' XXXX XXXX',
C $/,30X,' XXX XXX')
C Return
134 WRITE(IOUT,1134)
1134 FORMAT(1X,' THE LARGE PRINT GIVETH,'
$ /,1X,' AND THE SMALL PRINT TAKETH AWAY.'
$ //,1X,' -- TOM WAITS')
Return
135 WRITE(IOUT,1135)
1135 FORMAT(1X,'THE MOST SERIOUS THREAT TO THE SURVIVAL OF MANKIND IS '
$ ,'NOT NOW'
$ /,1X,'IGNORANCE IN THE TRADITIONAL SENSE,'
$ /,1X,'BUT A MORALLY NEUTRAL, AN INSENSITIVE OR INHIBITED ',
$ 'HUMAN INTELLIGENCE.'
$ //,1X,20X,'-- MARGO JEFFERSON IN NEWSWEEK, SEPTEMBER 2, 1974')
Return
136 WRITE(IOUT,1136)
1136 FORMAT(1X,'THERE''S A SUCKER BORN EVERY MINUTE'
$ //,1X,' -- PHINEAS TAYLOR (P.T.) BARNUM')
Return
137 WRITE(IOUT,1137)
1137 FORMAT(1X,'AND ALL THIS SCIENCE I DON''T UNDERSTAND'
$ /,1X,'IT''S JUST MY JOB FIVE DAYS A WEEK'
$ //,1X,' -- ELTON JOHN, "ROCKET MAN"')
Return
138 WRITE(IOUT,1138)
1138 FORMAT(1X,'IT IS BY EATING THE LIGHT OF A STAR THAT WE EXIST, '
$ /,1X,'IN THE FINAL ANALYSIS, '
$ /,1X,'JUST AS IT IS BY PERCEIVING THE LIGHT OF STARS'
$ /,1X,'THAT WE DEFINE THE WORLD AROUND US.'
$ //,1X,35X,'-- GILBERT GROSVENOR')
Return
139 WRITE(IOUT,1139)
1139 FORMAT(1X,'SEEN ON A WALL AT THE UNIVERSITY OF ILLINOIS AT ',
$ 'CHICAGO CIRCLE:',/,
$ /,1X,'TO DO IS TO BE -- SOCRATES'
$ /,1X,'TO BE IS TO DO -- SARTRE'
$ /,1X,'OO BE DO BE DO -- SINATRA')
Return
140 WRITE(IOUT,1140)
1140 FORMAT(1X,'ORIGINALITY CONSISTS NOT IN SAYING WHAT NO ONE HAS ',
$ 'EVER SAID BEFORE, '
$ /,1X,'BUT IN SAYING WHAT YOU THINK YOUR SELF.'
$ //,1X,35X,'-- JAMES F. STEPHEN')
Return
141 WRITE(IOUT,1141)
1141 FORMAT(1X,'I LOVE THOSE WHO LONG FOR THE IMPOSSIBLE.'
$ //,1X,' -- GOETHE')
Return
142 WRITE(IOUT,1142)
1142 FORMAT(1X,'WE THE UNWILLING'
$ /,1X,'LED BY THE UNQUALIFIED'
$ /,1X,'HAVE BEEN DOING THE UNBELIEVABLE SO LONG WITH',
$ ' SO LITTLE'
$ /,1X,'THAT WE NOW ATTEMPT THE IMPOSSIBLE WITH NOTHING.'
$ //,1X,35X,'-- ANONYMOUS')
Return
143 WRITE(IOUT,1143)
1143 FORMAT(1X,'FROM AN ANONYMOUS WRITER, ON PERSPECTIVE:',/,
$ /,1X,'MAN, DESPITE HIS ARTISTIC PRETENSIONS, HIS ',
$ 'SOPHISTICATION AND MANY '
$ /,1X,'ACCOMPLISHMENTS, OWES THE FACT OF HIS EXISTENCE TO A ',
$ 'SIX-INCH LAYER OF '
$ /,1X,'TOPSOIL AND THE FACT THAT IT RAINS.')
Return
144 WRITE(IOUT,1144)
1144 FORMAT(1X,'IF I AM NOT FOR MYSELF, WHO WILL BE?'
$ /,1X,'BUT IF I AM ONLY FOR MYSELF, WHAT AM I?'
$ /,1X,'THOUGH A SEEKER SINCE MY BIRTH,'
$ /,1X,'HERE IS ALL I''VE LEARNED ON EARTH,'
$ /,1X,'THIS IS THE GIST OF WHAT I KNOW:'
$ /,1X,'GIVE ADVICE AND BUY A FOE.'
$ /,1X
$ /,1X,'PRESSED FOR RULES AND VERITIES,'
$ /,1X,'ALL I RECOLLECT ARE THESE:'
$ /,1X,'FEED A COLD TO STARVE A FEVER,'
$ /,1X,'ARGUE WITH NO TRUE-BELIEVER.'
$ /,1X,'THINK-TOO-LONG IS NEVER-ACT,'
$ /,1X,'SCRATCH A MYTH AND FIND A FACT.'
$ /,1X
$ /,1X,'STITCH IN TIME SAVES TWENTY STITCHES,'
$ /,1X,'GIVE THE RICH TO PLEASE THEM, RICHES.'
$ /,1X,'GIVE TO LOVE YOU HEARTH AND HALL,'
$ /,1X,'BUT DO NOT GIVE ADVICE AT ALL.'
$ //,1X,' -- HILLEL')
Return
145 WRITE (IOUT,1145)
1145 FORMAT(1X,'THE THINKER DIES, BUT HIS THOUGHTS ARE BEYOND THE '
$ /,1X,'REACH OF DESTRUCTION. MEN ARE MORTAL; BUT IDEAS '
$ /,1X,'ARE IMMORTAL.'
$ /,1X,' -- WALTER LIPPMANN')
Return
146 WRITE (IOUT,1146)
1146 FORMAT(1X,'FLOATING POINT NUMBERS ARE LIKE SANDPILES:'
$ /,1X,'EVERY TIME THAT YOU MOVE ONE, YOU LOSE A LITTLE SAND '
$ /,1X,'AND YOU PICK UP A LITTLE DIRT.')
Return
147 WRITE (IOUT,1147)
1147 FORMAT(1X,'LET US LEARN TO DREAM, GENTLEMEN, ',
$ 'THEN PERHAPS WE SHALL'
$ /,1X,'DISCOVER THE TRUTH; BUT LET US BEWARE OF PUBLISHING'
$ /,1X,'OUR DREAMS ABROAD BEFORE THEY HAVE BEEN SCRUTINIZED'
$ /,1X,'BY OUR VIGILANT INTELLECT ... LET US ALWAYS ALLOW'
$ /,1X,'THE FRUIT TO HANG UNTIL IT IS RIPE. UNRIPE FRUIT'
$ /,1X,'BRINGS EVEN THE GROWER BUT LITTLE PROFIT; IT DAMAGES'
$ /,1X,'THE HEALTH OF THOSE WHO CONSUME IT; IT ENDANGERS'
$ /,1X,'PARTICULARLY THE YOUTH WHO CANNOT YET DISTINGUISH'
$ /,1X,'BETWEEN RIPE AND UNRIPE FRUIT.'
$ //,1X,' -- KEKULE, 1890')
Return
148 WRITE (IOUT,1148)
1148 FORMAT(1X,'ALMOST ANYTHING IS EASIER TO GET INTO THAN OUT OF.'
$ //,1X,' -- AGNES ALLEN''S LAW FROM'
$ /,1X,5X,' PAUL DICKSON''S "THE OFFICIAL RULES"')
Return
149 WRITE (IOUT,1149)
1149 FORMAT(1X,'ALL PAPERS THAT YOU SAVE WILL NEVER BE NEEDED UNTIL'
$ /,1X,'SUCH TIME AS THEY ARE DISPOSED OF, WHEN THEY BECOME'
$ /,1X,'ESSENTIAL.'
$ //,1X,10X,'-- JOHN CORCORAN IN'
$ /,1X,13X,'PAUL DICKSON''S "THE OFFICIAL RULES"')
Return
150 WRITE (IOUT,1150)
1150 FORMAT(1X,'NATURE WILL TELL YOU A DIRECT LIE IF SHE CAN.'
$ //,1X,' -- CHARLES DARWIN')
Return
151 WRITE (IOUT,1151)
1151 FORMAT(1X,'NOTHING WILL BE ATTEMPTED IF ALL POSSIBLE OBJECTIONS'
$ /,1X,'MUST FIRST BE OVERCOME.'
$ //,1X,' -- THE GOLDEN PRINCIPLE,'
$ /,1X,10X,' PAUL DICKSON''S "THE OFFICIAL RULES"')
Return
152 WRITE (IOUT,1152)
1152 FORMAT(1X,'IN THE FIGHT BETWEEN YOU AND THE WORLD, BACK THE WORLD'
$ //,1X,' -- FRANZ KAFKA')
Return
153 WRITE (IOUT,1153)
1153 FORMAT(1X,'THE SOLUTION TO A PROBLEM CHANGES THE PROBLEM.'
$ //,1X,' -- JOHN PEERS'
$ /,1X,' PAUL DICKSON''S "THE OFFICIAL RULES"')
Return
154 WRITE (IOUT,1154)
1154 FORMAT(1X,'IF IT HAPPENS, IT MUST BE POSSIBLE.'
$ //,1X,'-- THE UNNAMED LAW FROM PAUL DICKSON''S '
$ /,1X,' "THE OFFICIAL RULES"')
Return
155 WRITE (IOUT,1155)
1155 FORMAT(1X,'TOWERING GENIUS DISDAINS A BEATEN PATH. IT SEEKS '
$ /,1X,'REGIONS HITHERTO UNEXPLORED.'
$ //,1X,' -- ABRAHAM LINCOLN')
Return
156 WRITE (IOUT,1156)
1156 FORMAT(1X,'THERE IS MUCH PLEASURE TO BE GAINED FROM USELESS ',
$ 'KNOWLEDGE'
$ //,1X,' -- BERTRAND ',
$ 'RUSSELL')
Return
157 WRITE (IOUT,1157)
1157 FORMAT(1X,'NO MATTER HOW THIN YOU SLICE IT, IT''S STILL BALONEY'
$ //,1X,' -- ALFRED E. SMITH')
Return
158 WRITE (IOUT,1158)
1158 FORMAT(1X,'GOOD SENSE ABOUT TRIVIALITIES IS BETTER THAN NONSENSE'
$ /,1X,'ABOUT THINGS THAT MATTER'
$ //,1X,' -- MAX BEERBOHM')
Return
159 WRITE (IOUT,1159)
1159 FORMAT(1X,'FORGIVE MY NONSENSE AS I ALSO FORGIVE THOSE WHO ',
$ 'THINK THEY TALK SENSE'
$ //,1X,' ',
$ ' -- ROBERT FROST')
Return
160 WRITE (IOUT,1160)
1160 FORMAT(1X,'THE WORLD IS MADE UP OF THE WILLS, THE WON''TS, ',
$ 'AND THE CANT''S:'
$ /,1X,'THE WILLS DO EVERYTHING,'
$ /,1X,'THE WON''TS DO NOTHING,'
$ /,1X,'THE CAN''TS CAN''T DO ANYTHING.'
$ //,1X,30X,'-- FROM WALT DISNEY''S "BLACK HOLE"')
Return
161 WRITE (IOUT,1161)
1161 FORMAT(1X,'LENDING MONEY TO FRIENDS CAUSES THEM TO LOSE THEIR ',
$ 'MEMORIES.'
$ //,1X,' -- PETER''S THEORY OF RECIPROCAL INHIBITION OF ',
$ 'FISCAL RECALL')
Return
162 WRITE (IOUT,1162)
1162 FORMAT(1X,'THE RED LIGHT IS ALWAYS LONGER THAN THE GREEN LIGHT.'
$ //,1X,' -- PETER''S THEORY OF RELATIVITY')
Return
163 WRITE (IOUT,1163)
1163 FORMAT(1X,'THOSE WITH THE GOLD MAKE THE RULES.'
$ //,1X,' -- PETER''S GOLDEN RULE')
Return
164 WRITE (IOUT,1164)
1164 FORMAT(1X,'IF YOU PERCEIVE THAT THERE ARE FOUR POSSIBLE WAYS IN'
$ /,1X,'WHICH A PROCEDURE CAN GO WRONG AND CIRCUMVENT THESE, '
$ /,1X,'THEN A FIFTH WAY WILL DEVELOP.'
$ //,1X,' -- MURPHY''S TWELFTH LAW')
Return
165 WRITE (IOUT,1165)
1165 FORMAT(1X,'IF OTHER PEOPLE ARE GOING TO TALK, CONVERSATION IS ',
$ 'SIMPLY IMPOSSIBLE.'
$ //,1X,46X,'-- WHISTLER''S PRINCIPLE')
Return
166 WRITE (IOUT,1166)
1166 FORMAT(1X,'MISERY NO LONGER LOVES COMPANY. NOWADAYS IT INSISTS ',
$ 'ON IT.'
$ //,1X,45X,'-- BAKER''S LAW')
Return
167 WRITE (IOUT,1167)
1167 FORMAT(1X,'A BIRD IN THE HAND IS SAFER THAN ONE OVERHEAD.'
$ //,1X,' -- NEWTON''S SEVENTH LAW')
Return
168 WRITE (IOUT,1168)
1168 FORMAT(1X,'WE''RE IN THE POSITION OF A VISITOR FROM ANOTHER'
$ /,1X,'DIMENSION WHO COMES TO EARTH AND SEES A CHESS MATCH.'
$ /,1X,'ASSUMING HE KNOWS IT''S A GAME, HE''S GOT TWO ',
$ 'PROBLEMS:'
$ /,1X,'FIRST, FIGURE OUT THE RULES, AND SECOND, FIGURE OUT ',
$ 'HOW TO WIN.'
$ /,1X,'NINETY PERCENT OF SCIENCE (INCLUDING VIRTUALLY ALL ',
$ 'OF CHEMISRY)'
$ /,1X,'IS IN THAT SECOND CATEGORY. THEY''RE TRYING TO APPLY'
$ /,1X,'THE LAWS THAT ARE ALREADY KNOWN.'
$ //,1X,20X,'-- SHELDON GLASHOW, 1979')
Return
169 WRITE (IOUT,1169)
1169 FORMAT(1X,'GARBAGE IN, GARBAGE OUT')
Return
170 WRITE (IOUT,1170)
1170 FORMAT (1X,'MATERIAL COPIED FROM ONE SCHOLARLY BOOK WITHOUT ',
$ 'CREDIT COMPRISES PLAGIARISM.'
$ /,1X,'MATERIAL COPIED FROM TWO SCHOLARLY BOOKS ',
$ 'COMPRISES AN ESSAY.'
$ /,1X,'MATERIAL COPIED FROM THREE SCHOLARLY BOOKS ',
$ 'COMPRISES A DISSERTATION.'
$ /,1X,'MATERIAL COPIED FROM FOUR SCHOLARLY BOOKS COMPRISES ',
$ 'A FIFTH SCHOLARLY BOOK.'
$ //,1X,30X,'-- C&EN, 25 FEB 1980')
Return
171 WRITE (IOUT,1171)
1171 FORMAT (1X,'HO! SUCH BUGS AND GOBLINS IN MY LIFE!'
$ //,1X,' -- HAMLET, ACT 5, SCENE 2')
Return
172 WRITE (IOUT,1172)
1172 FORMAT (1X,'LAW OF COMPENSATION:'
$ /,1X,' NO CALCULATION IS EVER A COMPLETE FAILURE; IT '
$ /,1X,' CAN ALWAYS SERVE AS A BAD EXAMPLE.'
$ //,1X,' -- ANON')
Return
173 WRITE (IOUT,1173)
1173 FORMAT (1X,'TRUTH, IN SCIENCE, CAN BE DEFINED AS THE WORKING ',
$ 'HYPOTHESIS '
$ /,1X,'BEST FITTED TO OPEN THE WAY TO THE NEXT BETTER ONE.'
$ //,1X,' -- KONRAD LORENZ')
Return
174 WRITE (IOUT,1174)
1174 FORMAT (1X,'THERE IS MORE TO LIFE THAN INCREASING ITS SPEED.'
$ //,1X,' -- GANDHI')
Return
175 WRITE (IOUT,1175)
1175 FORMAT (1X,'HE THAT RISETH LATE MUST TROT ALL DAY.'
$ //,1X,' -- BENJAMIN FRANKLIN')
Return
176 WRITE (IOUT,1176)
1176 FORMAT (1X,'ONE BIG VICE IN A MAN IS APT TO KEEP OUT MANY ',
$ 'SMALLER ONES.'
$ //,1X,' -- BRET HARTE')
Return
177 WRITE (IOUT,1177)
1177 FORMAT (1X,'THE PROMISED LAND ALWAYS LIES ON THE OTHER SIDE OF ',
$ 'A WILDERNESS.'
$ //,1X,' -- HAVELOCK ELLIS')
Return
178 WRITE (IOUT,1178)
1178 FORMAT (1X,'ALL MEN WHO EXPLORE'
$ /,1X,'DEPLORE'
$ /,1X,'THAT FRUSTRATING HURDLE'
$ /,1X,'THE GIRDLE.'
$ //,1X,' -- COLIN FLETCHER')
Return
179 WRITE (IOUT,1179)
1179 FORMAT (1X,'THERE IS NO CURE FOR BIRTH AND DEATH SAVE TO ENJOY ',
$ 'THE INTERVAL.'
$ //,1X,' -- GEORGE SANTAYANA')
Return
180 WRITE (IOUT,1180)
1180 FORMAT (1X,'THE ... SCIENTISTS WERE WRONG ... THE MOST ',
$ 'PERSISTENT PRINCIPLES '
$ /,1X,'OF THE UNIVERSE WERE ACCIDENT AND ERROR.'
$ //,1X,' -- FRANK HERBERT IN DUNE')
Return
181 WRITE (IOUT,1181)
1181 FORMAT (1X,'GROWING OLD ISN''T SO BAD -- WHEN YOU CONSIDER THE ',
$ 'ALTERNATIVE.'
$ //,1X,' -- MAURICE CHEVALIER')
Return
182 WRITE (IOUT,1182)
1182 FORMAT (1X,'THE MORE PROGRESS PHYSICAL SCIENCES MAKE, THE MORE ',
$ 'THEY TEND TO ENTER'
$ /,1X,'THE DOMAIN OF MATHEMATICS, WHICH IS A KIND OF ',
$ 'CENTRE TO WHICH THEY ALL'
$ /,1X,'CONVERGE. WE MAY EVEN JUDGE THE DEGREE OF ',
$ 'PERFECTION TO WHICH A '
$ /,1X,'SCIENCE HAS ARRIVED BY THE FACILITY WITH WHICH IT ',
$ 'MAY BE SUBMITTED'
$ /,1X,'TO CALCULATION.'
$ //,1X,30X,'-- ADOLPHE QUETELET, 1796-1874')
Return
183 WRITE (IOUT,1183)
1183 FORMAT (1X,'IF NO USE IS MADE OF THE LABOR OF PAST AGES,'
$ /,1X,'THE WORLD MUST REMAIN ALWAYS IN THE INFANCY OF ',
$ 'KNOWLEDGE.'
$ //,1X,' -- CICERO')
Return
184 WRITE (IOUT,1184)
1184 FORMAT (1X,'A HARD FALL SHOULD MEAN A HIGH BOUNCE '
$ /,1X,'IF ONE IS MADE OF THE RIGHT MATERIAL.'
$ //,1X,' -- THE CHEMIST ANALYST, MARCH 1950')
Return
185 WRITE (IOUT,1185)
1185 FORMAT (1X,'ONLY A FOOL KNOWS EVERYTHING.'
$ //,1X,' -- THE CHEMIST ANALYST, SEPTEMBER 1946')
Return
186 WRITE (IOUT,1186)
1186 FORMAT (1X,'ONLY THE DAY DAWNS TO WHICH YOU ARE AWAKE.'
$ //,1X,' -- THOREAU')
Return
187 WRITE (IOUT,1187)
1187 FORMAT (1X,'YOU WILL NEVER "FIND" TIME FOR ANYTHING.'
$ /,1X,'IF YOU WANT TIME, YOU MUST MAKE IT.'
$ //,1X,' -- CHARLES BIXTON')
Return
188 WRITE (IOUT,1188)
1188 FORMAT (1X,'IN THE LONG RUN, DIGGING FOR TRUTH HAS ALWAYS ',
$ 'PROVED NOT ONLY '
$ /,1X,'MORE INTERESTING BUT MORE PROFITABLE THAN DIGGING ',
$ 'FOR GOLD.'
$ //,1X,' -- GEORGE R. HARRISON')
Return
189 WRITE (IOUT,1189)
1189 FORMAT (1X,'KNOWLEDGE IS OF TWO KINDS: WE KNOW A SUBJECT ',
$ 'OURSELVES OR WE KNOW '
$ /,1X,'WHERE WE CAN FIND INFORMATION UPON IT.'
$ //,1X,' -- SAMUEL JOHNSON')
Return
190 WRITE (IOUT,1190)
1190 FORMAT (1X,'... THIS SEEMS PLAINLY ABSURD; BUT WHOEVER WISHES TO '
$ ,'BECOME A '
$ /,1X,'PHILOSOPHER MUST LEARN NOT TO BE FRIGHTENED BY ',
$ 'ABSURDITIES.'
$ //,1X,' -- BERTRAND RUSSELL')
Return
191 WRITE (IOUT,1191)
1191 FORMAT (1X,'ON INDUCTION, OR "WHY DO YOU BELIEVE THE SUN WILL ',
$ 'RISE TOMORROW?":'
$ //,1X,'... THE FARMER WHO HAS FED THE CHICKEN EVERY DAY ',
$ 'THROUGHOUT ITS'
$ /,1X,'LIFE AT LAST WRINGS ITS NECK INSTEAD, SHOWING THAT ',
$ 'MORE REFINED VIEWS'
$ /,1X,'AS TO THE UNIFORMITY OF NATURE WOULD HAVE BEEN ',
$ 'USEFUL TO THE CHICKEN.'
$ //,1X,' -- BERTRAND RUSSELL')
Return
192 WRITE (IOUT,1192)
1192 FORMAT (1X,'THE VALUE OF PHILOSOPHY IS, IN FACT, TO BE SOUGHT ',
$ 'LARGELY IN ITS'
$ /,1X,'VERY UNCERTAINTY. THE MAN WHO HAS NO TINCTURE OF ',
$ 'PHILOSOPHY GOES'
$ /,1X,'THROUGH LIFE IMPRISONED IN THE PREJUDICES DERIVED ',
$ 'FROM COMMON SENSE,'
$ /,1X,'FROM THE HABITUAL BELIEFS OF HIS AGE OR HIS NATION, ',
$ 'AND FROM'
$ /,1X,'CONVICTIONS WHICH HAVE GROWN UP IN HIS MIND WITHOUT ',
$ 'THE CO-OPERATION'
$ /,1X,'OR CONSENT OF HIS DELIBERATE REASON. TO SUCH A MAN ',
$ 'THE WORLD TENDS'
$ /,1X,'TO BE DEFINITE, FINITE, OBVIOUS; COMMON OBJECTS ',
$ 'ROUSE NO QUESTIONS,'
$ /,1X,'AND UNFAMILIAR POSSIBILITIES ARE CONTEMPTUOUSLY ',
$ 'REJECTED.'
$ //,1X,' -- BERTRAND RUSSELL')
Return
193 WRITE (IOUT,1193)
1193 FORMAT(1X,'WE DON''T KNOW ONE MILLIONTH OF ONE PERCENT ABOUT',
$ /,1X,'ANYTHING.',
$ /,1X,' T. A. EDISON.')
Return
194 WRITE (IOUT,1194)
1194 FORMAT(1X,'IT IS WELL TO REMEMBER THAT MAN IS A PART OF NATURE',
$ ' AND THAT HIS WORKS,',
$ /,1X,'WHATEVER THEY MAY BE, ARE NO MORE "UNNATURAL" THAN ',
$ /,1X,'THE FLIGHT OF AN EAGLE OR THE PASSAGE OF A TORNADO.',
$ //,1X,35X,'-- CHARLES MCCARRY IN "THE GREAT SOUTHWEST"')
Return
195 WRITE (IOUT,1195)
1195 FORMAT(1X,'WE ARE REACHING THE STAGE WHERE THE PROBLEMS WE ',
$ 'MUST SOLVE ARE '
$ /,1X,'GOING TO BECOME INSOLUBLE WITHOUT COMPUTERS.'
$ /,1X,'I DO NOT FEAR COMPUTERS. I FEAR THE LACK OF THEM.'
$ //,35X,'-- ISSAC ASIMOV')
Return
196 WRITE (IOUT,1196)
1196 FORMAT(1X,'OF ALL THE WONDERS OF THE UNIVERSE, THE GREATEST ',
$ 'IS MAN.'
$ //,1X,35X,'-- ARISTOTLE')
Return
197 WRITE (IOUT,1197)
1197 FORMAT(1X,'A COMPLEXITY IS MERELY A DISARRANGEMENT OF ',
$ 'SIMPLICITIES.'
$ //,1X,35X,'-- G. O. ABELL IN "EXPLORATION OF THE UNIVERSE"')
Return
198 WRITE (IOUT,1198)
1198 FORMAT(1X,'A MAN THINKING OR WORKING IS ALWAYS ALONE, '
$ /,1X,'LET HIM BE WHERE HE WILL.'
$ //,1X,35X,'-- THOREAU')
Return
199 WRITE (IOUT,1199)
1199 FORMAT (1X,'CURIOUSER AND CURIOUSER',
$ //,1X,' -- ALICE, IN WONDERLAND')
Return
End
*Deck Gozy2
Subroutine Gozy2(IOut,Num)
Implicit Integer(A-Z)
C
C Print out gozy messages 2xx (i.e. 200 to 299).
C
If(Num.lt.200.or.Num.gt.299)
$ Call GauErr('Num<200 or Num>299 in Gozy2.')
IHOP = Num/20 + 1 - 10
IGO = MOD(Num,20) + 1
IF (IHOP .EQ. 1) IGO = IGO - 1
GOTO (9200,9220,9240,9260,9280), IHop
C
9200 CONTINUE
GOTO(200,201,202,203,204,205,206,207,208,209,
$ 210,211,212,213,214,215,216,217,218,219), IGO
C
9220 CONTINUE
GOTO(220,221,222,223,224,225,226,227,228,229,
$ 230,231,232,233,234,235,236,237,238,239), IGO
C
9240 CONTINUE
GoTo(240,241,242,243,244,245,246,247,248,249,
$ 250,251,252,253,254,255,256,257,258,259), IGo
C
9260 CONTINUE
GoTo(260,261,262,263,264,265,266,267,268,269,
$ 270,271,272,273,274,275,276,277,278,279), IGo
C
9280 CONTINUE
GoTo(280,281,282,283,284,285,286,287,288,289,
$ 290,291,292,293,294,295,296,297,298,299), IGo
C
200 WRITE (IOUT,1200)
1200 FORMAT (1X,'EVERYTHING''S GOT A MORAL, IF ONLY YOU CAN FIND IT.',
$ //,1X,35X,'-- LEWIS CARROL, ALICE IN WONDERLAND')
Return
201 WRITE (IOUT,1201)
1201 FORMAT (1X,'BE CAREFUL NOT TO BECOME TOO GOOD OF A SONGBIRD OR ',
$ /,1X,'THEY''LL THROW YOU INTO A CAGE.'
$ //,1X,35X,'-- SNOOPY TO WOODSTOCK')
Return
202 WRITE (IOUT,1202)
1202 FORMAT (1X,'I FIND THAT THE THREE TRULY GREAT TIMES FOR ',
$ 'THINKING THOUGHTS'
$ /,1X,'ARE WHEN I AM STANDING IN THE SHOWER, SITTING ',
$ 'ON THE JOHN, OR WALKING.'
$ //,1X,35X,'-- COLIN FLETCHER')
Return
203 WRITE (IOUT,1203)
1203 FORMAT (1X,'WERE I TO AWAIT PERFECTION, MY BOOK WOULD NEVER ',
$ 'BE FINISHED.'
$ /,1X,35X,'-- HISTORY OF CHINESE WRITING'
$ //,1X,35X,' TAI T''UNG, 13TH CENTURY')
Return
204 WRITE (IOUT,1204)
1204 FORMAT (1X,'... FOR AFTERWARDS A MAN FINDS PLEASURE IN HIS ',
$ 'PAINS,'
$ /,1X,'WHEN HE HAS SUFFERED LONG AND WANDERED FAR.'
$ //,1X,35X,'-- HOMER')
Return
205 WRITE (IOUT,1205)
1205 FORMAT (1X,'EVERYBODY NEEDS BEAUTY AS WELL AS BREAD, PLACES TO ',
$ 'PLAY IN AND PRAY IN,'
$ /,1X,'WHERE NATURE MAY HEAL AND CHEER AND GIVE STRENGTH ',
$ 'TO BODY AND SOUL ALIKE.'
$ //,1X,35X,'-- JOHN MUIR')
Return
206 WRITE (IOUT,1206)
1206 FORMAT (1X,'LAWS OF PROGRAMMING DEFINITION: A WORKING PROGRAM',
$ /,1X,' IS ONE THAT HAS'
$ /,1X,' ONLY UNOBSERVED'
$ /,1X,' BUGS.')
Return
207 WRITE (IOUT,1207)
1207 FORMAT (1X,'IT IS DOUBTED WHETHER A MAN EVER BRINGS HIS FACULTIES'
$ ,' TO BEAR WITH THEIR FULL FORCE'
$ /,1X,'ON A SUBJECT UNTIL HE WRITES UPON IT.'
$ //,1X,25X,'-- CICERO')
Return
208 WRITE (IOUT,1208)
1208 FORMAT (1X,'... SUBJECTS WHICH DISCLOSE THEIR FULL POWER, ',
$ 'MEANING AND BEAUTY AS SOON'
$ /,1X,'AS THEY ARE PRESENTED TO THE MIND HAVE VERY ',
$ 'LITTLE OF THOSE QUALITIES'
$ /,1X,'TO DISCLOSE.'
$ /,1X,' -- CHARLES DUTTON (1882)')
Return
209 WRITE (IOUT,1209)
1209 FORMAT (1X,'CHARLIE BROWN -- WHICH DO YOU THINK LASTS LONGER ',
$ 'IN LIFE, THE GOOD THINGS ',
$ /,1X,' OR THE BAD THINGS?'
$ /,1X,'LINUS -- GOOD THINGS LAST EIGHT SECONDS ..'
$ /,1X,' BAD THINGS LAST THREE WEEKS'
$ /,1X,'CHARLIE BROWN -- WHAT ABOUT IN BETWEEN?'
$ /,1X,'SNOOPY -- IN BETWEEN YOU SHOULD ',
$ 'TAKE A NAP ...')
Return
210 WRITE (IOUT,1210)
1210 FORMAT (1X,'... UNTIL SCIENCE IS MIXED WITH EMOTION AND ',
$ 'APPEALS TO THE HEART AND'
$ /,1X,'IMAGINATION , IT IS LIKE DEAD INORGANIC MATTER; ',
$ 'AND WHEN IT IS SO MIXED'
$ /,1X,'AND SO TRANSFORMED IT IS LITERATURE.'
$ //,1X,' -- JOHN BURROUGHS')
Return
211 WRITE (IOUT,1211)
1211 FORMAT (1X,'IN NATURE THERE ARE NEITHER REWARDS OR'
$ /,1X,'PUNISHMENTS -- THERE ARE CONSEQUENCES.'
$ //,1X,' -- ROBERT GREEN INGERSOLL')
Return
212 WRITE (IOUT,1212)
1212 FORMAT (1X,'SATCHEL PAIGE''S GUIDE TO LONGEVITY'
$ //,1X,' 1. AVOID FRIED MEATS, WHICH ANGRY UP THE BLOOD.'
$ //,1X,' 2. IF YOUR STOMACH DISPUTES YOU, LIE DOWN',
$ ' AND PACIFY IT WITH COOL'
$ /,1X,' THOUGHTS.'
$ //,1X,' 3. KEEP THE JUICES FLOWING BY JANGLING ',
$ 'AROUND GENTLY AS YOU MOVE.')
WRITE (IOUT,2012)
2012 FORMAT (/,1X,' 4. GO VERY LIGHT ON THE VICES, ',
$ 'SUCH AS CARRYING ON IN SOCIETY.'
$ /,1X,' THE SOCIAL RUMBLE AIN''T RESTFUL.'
$ //,1X,' 5. AVOID RUNNING AT ALL TIMES.'
$ //,1X,' 6. DON''T LOOK BACK. ',
$ 'SOMETHING MAY BE GAINING ON YOU.')
Return
213 WRITE (IOUT,1213)
1213 FORMAT (1X,'ASKING FOR EFFICIENCY AND ADAPTABILITY ',
$ 'IN THE SAME PROGRAM IS LIKE'
$ /,1X,'ASKING FOR A BEAUTIFUL AND MODEST WIFE ...'
$ /,1X,'WE''LL PROBABLY HAVE TO SETTLE FOR ONE OR THE OTHER.'
$ //,1X,' -- THE PSYCHOLOGY OF COMPUTER PROGRAMMING'
$ /,1X,' GERALD M. WEINBERG')
Return
214 WRITE (IOUT,1214)
1214 FORMAT (1X,'TO DETECT ERRORS, ',
$ 'THE PROGRAMMER MUST HAVE A CONNIVING MIND,'
$ /,1X,'ONE THAT DELIGHTS IN UNCOVERING FLAWS ',
$ 'WHERE BEAUTY AND'
$ /,1X,'PERFECTION WERE ONCE THOUGHT TO LIE.'
$ //,1X,' -- THE PSYCHOLOGY OF COMPUTER PROGRAMMING'
$ /,1X,' GERALD M. WEINBERG')
Return
215 WRITE (IOUT,1215)
1215 FORMAT (1X,'NOTHING RESEMBLES A NEW PHENOMENON ',
$ 'AS MUCH AS A MISTAKE.'
$ //,1X,' -- ENRICO FERMI (?)')
Return
216 WRITE (IOUT,1216)
1216 FORMAT (1X,'HE THAT IS UNAWARE OF HIS IGNORANCE ',
$ 'WILL BE MISLED BY HIS KNOWLEDGE.'
$ //,1X,' -- WHATLEY')
Return
217 WRITE (IOUT,1217)
1217 FORMAT (1X,'YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES.')
Return
218 WRITE (IOUT,1218)
1218 FORMAT (1X,'WE ARE PERHAPS NOT FAR REMOVED ',
$ 'FROM THE TIME WHEN WE SHALL BE ABLE TO SUBMIT'
$ /,1X,'THE BULK OF CHEMICAL PHENOMENA TO CALCULATION.'
$ //,1X,' -- JOSEPH LOUIS GAY-LUSSAC'
$ /,1X,' MEMOIRES DE LA SOCIETE ',
$ 'D''ARCUEIL, 2, 207 (1808)')
Return
219 WRITE (IOUT,1219)
1219 FORMAT (1X,'EVERY ATTEMPT TO EMPLOY MATHEMATICAL METHODS ',
$ 'IN THE STUDY OF CHEMICAL QUESTIONS'
$ /,1X,'MUST BE CONSIDERED PROFOUNDLY IRRATIONAL ',
$ 'AND CONTRARY TO THE SPIRIT OF'
$ /,1X,'CHEMISTRY ... IF MATHEMATICAL ANALYSIS SHOULD ',
$ 'EVER HOLD A PROMINENT PLACE IN'
$ /,1X,'CHEMISTRY -- AN ABERRATION WHICH IS ',
$ 'HAPPILY ALMOST IMPOSSIBLE -- IT WOULD'
$ /,1X,'OCCASION A RAPID AND WIDESPREAD ',
$ 'DEGENERATION OF THAT SCIENCE.'
$ //,1X,' -- A. COMTE'
$ /,1X,' PHILOSOPHIE POSITIVE, 1830')
Return
220 WRITE (IOUT,1220)
1220 FORMAT (1X,'HE THAT FOLLOWS NATURE IS NEVER LOST.'
$ //,1X,' -- BACON')
Return
221 WRITE (IOUT,1221)
1221 FORMAT (1X,'THIS CURIOUS WORLD WHICH WE INHABIT IS MORE ',
$ 'WONDERFUL THAN IT IS CONVENIENT;'
$ /,1X,'MORE BEAUTIFUL THAN IT IS USEFUL;'
$ /,1X,'IT IS MORE TO BE ADMIRED THAN IT IS TO BE USED.'
$ //,1X,64X,'-- THOREAU')
Return
222 WRITE (IOUT,1222)
1222 FORMAT (1X,'IN THE WOODS WE RETURN TO REASON AND FAITH.'
$ //,1X,' -- EMERSON')
Return
223 WRITE (IOUT,1223)
1223 FORMAT (1X,'NATURE GIVES TO EVERY TIME AND SEASON ',
$ 'SOME BEAUTY OF ITS OWN.'
$ //,1X,51X,'--DICKENS')
Return
224 WRITE (IOUT,1224)
1224 FORMAT (1X,'ART, GLORY, FREEDOM FAIL, BUT NATURE STILL IS FAIR.'
$ //,1X,' -- BYRON')
Return
225 WRITE (IOUT,1225)
1225 FORMAT (1X,'THERE''S NOTHING SO GREAT AS THE GREAT OUTDOORS.'
$ //,1X,' -- ZIGGY')
Return
226 WRITE (IOUT,1226)
1226 FORMAT (1X,'NEVER LISTEN TO CRITICISM'
$ /,1X,'OR YOU''LL BE DOIN'' EVERYBODY ELSE''S THING ',
$ 'BUT BUT YOUR OWN.'
$ //,1X,46X,'-- ANDY CAPP')
Return
227 WRITE (IOUT,1227)
1227 FORMAT (1X,'THE TEST OF A FIRST RATE INTELLIGENCE ',
$ 'IS THE ABILITY TO HOLD TWO OPPOSED'
$ /,1X,'IDEAS IN THE MIND AT THE SAME TIME, ',
$ 'AND STILL RETAIN THE ABILITY TO FUNCTION.'
$ /,1X,'ONE SHOULD, FOR EXAMPLE, BE ABLE TO SEE ',
$ 'THAT THINGS ARE HOPELESS AND YET BE'
$ /,1X,'DETERMINED TO MAKE THEM OTHERWISE.'
$ //,1X,54X,'-- F. SCOTT FITZGERALD')
Return
228 WRITE (IOUT,1228)
1228 FORMAT (1X,'HEAVEN''S NET CASTS WIDE.'
$ /,1X,'THOUGH ITS MESHES ARE COARSE, NOTHING SLIPS THROUGH.'
$ //,1X,' -- LAO-TSU')
Return
229 WRITE (IOUT,1229)
1229 FORMAT (1X,'HOW IS IT THAT THE SKY FEEDS THE STARS?'
$ //,1X,' -- LUCRETIUS')
Return
230 WRITE (IOUT,1230)
1230 FORMAT (1X,'IN THE UNIVERSE THE DIFFICULT THINGS ARE DONE ',
$ 'AS IF THEY WERE EASY.'
$ //,1X,57X,'-- LAO-TSU')
Return
231 WRITE (IOUT,1231)
1231 FORMAT (1X,'ALL OUR THINKING ABOUT NATURE MUST NECESSARILY ',
$ 'MOVE IN CIRCLES OR SPIRALS;'
$ /,1X,'FOR WE CAN ONLY UNDERSTAND NATURE IF WE THINK ',
$ 'ABOUT HER, AND WE CAN ONLY'
$ /,1X,'THINK BECAUSE OUR BRAIN IS BUILT IN ',
$ 'ACCORDANCE WITH NATURE''S LAWS.'
$ //,1X,44X,'-- TIMOTHY FERRIS, "GALAXIES"')
Return
232 WRITE (IOUT,1232)
1232 FORMAT (1X,'... IT IS NO ONE DREAME THAT'
$ /,1X,' CAN PLEASE THESE ALL ...'
$ //,1X,' -- BEN JONSON')
Return
233 WRITE (IOUT,1233)
1233 FORMAT (1X,' WHAT WE HAVE LEARNED'
$ /,1X,'IS LIKE A HANDFUL OF EARTH;'
$ /,1X,' WHAT WE HAVE YET TO LEARN'
$ /,1X,' IS LIKE THE WHOLE WORLD.'
$ //,1X,' -- AVVAYIAR')
Return
234 WRITE (IOUT,1234)
1234 FORMAT (1X,'IT IS NOT EASY TO DESCRIBE'
$ /,1X,' THE SEA WITH THE MOUTH'
$ //,1X,' -- KOKYU')
Return
235 WRITE (IOUT,1235)
1235 FORMAT (1X,'I DON''T PRETEND TO UNDERSTAND THE UNIVERSE --',
$ /,1X,'IT''S A GREAT DEAL BIGGER THAN I AM.'
$ /,1h ,' -- ATTR. TO WILLIAM ALLINGHAM (1828-89)')
Return
236 WRITE (IOUT,1236)
1236 FORMAT (1X,'MAN IS THE MEASURE OF ALL THINGS.'
$ /,1h ,' -- PROTAGORAS (5TH CENTURY B.C.)')
Return
237 WRITE (IOUT,1237)
1237 FORMAT (1X,'ADAM SMITH SAID, "THE REAL PRICE OF ANYTHING IS ',
$ 'THE TOIL AND TROUBLE'
$ /,1X,'OF ACQUIRING IT." BUT IN ALL UNDERTAKINGS WITH ',
$ 'NATURE WE SHOULD FIRST'
$ /,1X,'READ CAREFULLY THE SMALL PRINT IN THE CONTRACT. ',
$ 'THIS MIGHT DISCLOSE'
$ /,1X,'THAT THE REAL PRICE IS TO BE PAID BY THOSE WHO ',
$ 'INHERIT THE DEPLETION'
$ /,1X,'AND DESPOILATION THAT FOLLOWS.'
$ /,1h ,30X,'-- E. R. HARRISON IN "COSMOLOGY" (1980)')
Return
238 WRITE (IOUT,1238)
1238 FORMAT (1X,'READER, WHETHER YOU BE DILETTANTE OR PROFESSOR ',
$ '... SHOW YOURSELF TO BE'
$ /,1X,'MORE HUMAN THAN CRITICAL, AND THEN YOUR ',
$ 'PLEASURE WILL INCREASE.'
$ /,1h ,42X,'-- DOMENICO SCARLATTI (1738)')
Return
239 WRITE (IOUT,1239)
1239 FORMAT (1X,'IT IS A QUALITY OF REVOLUTIONS NOT TO GO BY ',
$ 'OLD LINES OR OLD LAWS,'
$ /,1X,'BUT TO BREAK UP BOTH, AND MAKE NEW ONES.'
$ /,1h ,45X,'-- A. LINCOLN (1848)')
Return
240 WRITE (IOUT,1240)
1240 FORMAT (1X,'REVOLUTIONS HAVE NEVER LIGHTENED THE BURDEN ',
$ 'OF TYRANNY:'
$ /,1X,'THEY HAVE MERELY SHIFTED IT TO OTHER SHOULDERS.'
$ /,1h ,34X,'-- G. B. SHAW (1903)')
Return
241 WRITE (IOUT,1241)
1241 FORMAT (1X,'...THE PHYSICISTS HAVE MADE THEIR UNIVERSE, ',
$ 'AND IF YOU DO NOT LIKE'
$ /,1X,'IT, YOU MUST MAKE YOUR OWN.'
$ /,1h ,30X,'-- E. R. HARRISON IN "COSMOLOGY" (1980)')
Return
242 WRITE (IOUT,1242)
1242 FORMAT (1X,'I DO NOT DEFINE TIME, SPACE, PLACE, AND MOTION, ',
$ 'AS BEING WELL KNOWN TO ALL.'
$ /,1h ,43X,'-- NEWTON (1642-1726), PRINCIPIA')
Return
243 WRITE (IOUT,1243)
1243 FORMAT (1X,'NOTHING PUZZLES ME MORE THAN TIME AND SPACE; ',
$ 'AND YET NOTHING TROUBLES ME LESS'
$ /,1h ,57X,'-- CHARLES LAMB (1810)')
Return
244 WRITE (IOUT,1244)
1244 FORMAT (1X,'I DO NOT KNOW WHAT I MAY APPEAR TO THE WORLD; ',
$ 'BUT TO MYSELF'
$ /,1X,'I SEEM TO HAVE BEEN ONLY LIKE A BOY PLAYING ',
$ 'ON THE SEASHORE,'
$ /,1X,'AND DIVERTING MYSELF IN NOW AND THEN ',
$ 'FINDING A SMOOTHER PEBBLE'
$ /,1X,'OR A PRETTIER SHELL THAN ORDINARY, WHILST THE ',
$ 'GREAT OCEAN OF'
$ /,1X,'TRUTH LAY ALL UNDISCOVERED BEFORE ME.'
$ /,1h ,41X,'-- NEWTON (1642-1726)')
Return
245 WRITE (IOUT,1245)
1245 FORMAT (1X,'WHAT, THEN, IS TIME? IF NO ONE ASKS ME, I KNOW ',
$ 'WHAT IT IS.'
$ /,1X,'IF I WISH TO EXPLAIN WHAT IT IS TO HIM WHO ASKS ',
$ 'ME, I DO NOT KNOW.'
$ /,1h ,34X,'-- ST. AUGUSTINE (FIFTH CENTURY)')
Return
246 WRITE (IOUT,1246)
1246 FORMAT (1X,'TIME GOES, YOU SAY? AH NO!'
$ /,1X,'ALAS, TIME STAYS, WE GO.'
$ /,1h ,' -- A. DOBSON (1840-1921)')
Return
247 WRITE (IOUT,1247)
1247 FORMAT (1X,'GOD DOES NOT PLAY WITH DICE.'
$ /,1h ,' -- A. EINSTEIN')
Return
248 WRITE (IOUT,1248)
1248 FORMAT (1X,'THE WHOLE OF SCIENCE IS NOTHING MORE THAN A ',
$ 'REFINEMENT OF EVERYDAY THINKING.',
$ /,1h ,61X,'-- A. EINSTEIN')
Return
249 WRITE (IOUT,1249)
1249 FORMAT (1X,'THE REAL VOYAGE OF DISCOVERY CONSISTS NOT IN ',
$ 'SEEKING NEW LANDSCAPES ',
$ /,1X,'BUT IN HAVING NEW EYES.',
$ /,1h ,51X,'-- MARCEL PROUST')
Return
250 WRITE (IOUT,1250)
1250 FORMAT (1X,'SOME THINGS ARE EASY, THEY ARE ONLY HARD TO DO.',
$ /,1h ,' -- A. EINSTEIN TO J. O. HIRSCHFELDER')
C
C HAPPY THOUGHTS COLLECTED AT NDSU
C
251 WRITE(IOUT,1251)
1251 FORMAT(1X,'THE ONLY TROUBLE WITH A SURE THING IS THE',
$ ' UNCERTAINTY.',/,5X,'-- FROM A TEABAG (BELONGING',
$ ' TO W.H.?)')
Return
252 WRITE(IOUT,1252)
1252 FORMAT(1X,'SIGN SEEN IN A RESTAURANT-',/,
$ 1X,'WE RESERVE THE RIGHT TO SERVE REFUSE',
$ ' TO ANYONE.')
Return
253 WRITE(IOUT,1253)
1253 FORMAT(1X,'VIRTUE IS LEARNED AT YOUR MOTHER''S KNEE,',/,
$ 1X,'VICES ARE PICKED UP AT SOME OTHER JOINT.')
Return
254 WRITE(IOUT,1254)
1254 FORMAT(1X,'THE HURRIEDER I GO, THE BEHINDER I GET.')
Return
255 WRITE(IOUT,1255)
1255 FORMAT(1X,'"THE TIME HAS COME", THE WALRUS SAID,',/,
$ 1X,'"TO TALK OF MANY THINGS,',/,
$ 1X,'OF SHOES AND SHIPS AND SEALING WAX,',/,
$ 1X,'OF CABBAGES AND KINGS,',/,
$ 1X,'AND WHY THE SEA IS BOILING HOT,',/,
$ 1X,'AND WHETHER PIGS HAVE WINGS."')
Return
256 WRITE(IOUT,1256)
1256 FORMAT(1X,'FROM THE ASHES OF OUR DESPAIR ',
$ 'GROW THE FLOWERS OF TOMORROW.')
Return
257 WRITE(IOUT,1257)
1257 FORMAT(1X,'I KNOW YOU BELIEVE YOU UNDERSTAND WHAT',
$ ' YOU THINK I SAID,',/,1X,'BUT I AM NOT SURE YOU',
$ ' REALIZE THAT WHAT YOU HEARD',
$ ' IS NOT WHAT I MEANT.')
Return
258 WRITE(IOUT,1258)
1258 FORMAT(1X,'BREAD HAS TO MOLD IN ORDER TO GET',
$ ' PENICILLIN.',/,10X,'-- JERRY BOATZ')
Return
259 WRITE(IOUT,1259)
1259 FORMAT(1X,'NEVER TEACH A PIG TO SING.',/,
$ 1X,'IT WASTES YOUR TIME AND ANNOYS THE PIG.',/,
$ 5X,'-- SEEN ON A GREETING CARD')
Return
260 WRITE(IOUT,1260)
1260 FORMAT(2X,'ON THE CHOICE OF THE CORRECT LANGUAGE -',/,
$ 1X,'I SPEAK SPANISH TO GOD, ITALIAN TO WOMEN,',/,
$ 1X,'FRENCH TO MEN, AND GERMAN TO MY HORSE.',/,
$ 10X,'-- CHARLES V')
Return
261 WRITE(IOUT,1261)
1261 FORMAT(5X,'ON THE SURVIVAL OF THE FITTEST -',/,
$ 1X,'"STRONG REPRESENTATIVES FROM EACH PAST ERA THRIVE',
$ ' TODAY,',/,1X,'SUCH AS PROGRAMMING IN THE THIRTY YEAR',
$ ' OLD LANGUAGE KNOWN',/,1X,'AS FORTRAN, AND EVEN IN THE',
$ ' ANCIENT SCRIPT KNOWN AS DIRECT',/,1X,'MACHINE CODE.',
$ ' SOME PEOPLE MIGHT LOOK ON SUCH RELICS AS LIVING',/,1X,
$ 'FOSSILS; OTHERS WOULD POINT OUT THAT EVEN A',
$ ' VERY OLD SPECIES',/,1X,'MIGHT STILL BE FILLING A',
$ ' PARTICULAR ECOLOGICAL NICHE."',/,
$ 5X,'-- ALAN KAY, SCI.AM. SEPTEMBER 1984')
Return
262 WRITE(IOUT,1262)
1262 FORMAT(1X,'A MATHEMATICIAN IS A MACHINE FOR TURNING',
$ ' COFFEE INTO THEOREMS.',/,5X,'-- QUOTED BY PAUL ERDOS')
Return
263 WRITE(IOUT,1263)
1263 FORMAT(1X,'CHRISTMAS IS ON TOP OF A STEEP HILL.',/,
$ 1X,'THE CLOSER YOU GET, THE STEEPER THE HILL IS.',/,
$ 10X,'-- LINUS, OF PEANUTS')
Return
264 WRITE(IOUT,1264)
1264 FORMAT(1X,'YOU KNOW YOU''RE A TEACHER WHEN YOU SAY 2,',
$ ' WRITE 3, AND MEAN 4.',/,
$ 1X,'-- RONALD ANSTROM, HIGH SCHOOL TEACHER,',
$ ' UNDERWOOD, N.D. 1974')
Return
265 WRITE(IOUT,1265)
1265 FORMAT(1X,' UPON JULIA''S CLOTHES'//
$ 1X,'WHENAS IN SILKS MY JULIA GOES,',/,
$ 1X,'THEN, THEN, METHINKS, HOW SWEETLY FLOWS',/,
$ 1X,'THAT LIQUEFACTION OF HER CLOTHES.'//
$ 1X,'NEXT, WHEN I CAST MINE EYES, AND SEE',/,
$ 1X,'THAT BRAVE VIBRATION, EACH WAY FREE,',/,
$ 1X,'O, HOW THAT GLITTERING TAKETH ME!',/,
$ 5X,'-- ROBERT HERRICK, 1648')
Return
266 WRITE(IOUT,1266)
1266 FORMAT(1X,'THE MOST INCOMPREHENSIBLE THING ABOUT THE WORLD',/,
$ 1X,'IS THAT IT IS COMPREHENSIBLE. -- A. EINSTEIN')
Return
267 WRITE(IOUT,1267)
1267 FORMAT(1X,'WHEN YOU''VE SEEN ONE NUCLEAR WAR YOU''VE',
$ ' SEEN THEM ALL.')
Return
268 WRITE(IOUT,1268)
1268 FORMAT(1X,'EXPERIMENTALISTS THINK SILICON IS REALLY FUN',
$ ' TO USE',/,5X,'ITS PLACE IN NOVEL COMPOUNDS IS CERTAIN',
$ ' TO AMUSE',/,1X,'THEY SIT ALL DAY IN LABORATORIES MAKING',
$ ' ALL THIS SLUDGE',/,5X,'"LOADED WITH THE SILICON THEY SAY"',
$ ', TO ME IT LOOKS LIKE FUDGE.',/,1X,'FOR HAPPY THOUGH THEY',
$ ' BE WITH CRUD, I''D LIKE TO KNOW A LITTLE',/,5X,' ABOUT THE',
$ ' PI BONDS ON THE EDGE AND SIGMAS IN THE MIDDLE.')
WRITE(IOUT,2268)
2268 FORMAT(/,1X,'SO LETS DERIVE A WAVEFUNCTION.....6-31G*',/,
$ 5X,'USE AN OPTIMAL GEOMETRY AND SEE WHERE ELECTRONS',
$ ' ARE.',/,1X,'BUT WHAT OF CORRELATION? ASKS THE WIRY',
$ ' LITTLE SKEPTIC.',/,5X,'WE''LL THROW IN PERTURBATION',
$ ' AS AN ELECTRON ANTISEPTIC.',/,1X,'AND WHEN THE PROGRAM',
$ ' GIVES US ANSWERS IN THEM WE CAN TRUST',/,5X,'SINCE NOBODY',
$ ' CAN MAKE THE STUFF, WE HAVE NO CHOICE, WE MUST.')
WRITE(IOUT,3268)
3268 FORMAT(/,1X,'SO THEORY GUYS HAVE GOT IT MADE, IN ROOMS',
$ ' FREE OF POLLUTION.',/,5X,'INSTEAD OF PROBLEMS WITH THE',
$ ' REFLUX, THEY HAVE ONLY SOLUTIONS.',/,1X,'AND WHEN THE',
$ ' FEDS ANNOUNCE THE LIST OF CARCINOGENIC TERRORS,',/,
$ 5X,'THE THEORISTS SIT SAFELY AT THEIR TERMINALS FIXING',
$ ' ERRORS.',/,1X,'IN OTHER WORDS, EXPERIMENTALISTS WILL',
$ ' LIKELY DIE OF CANCER',/,5X,'FROM WORKING HARD YET',
$ ' FRUITLESSLY...TILL THEORY GIVES THE ANSWER.',/,
$ 10X,'-- THOMAS A. HOLME, 1983')
Return
269 WRITE(IOUT,1269)
1269 FORMAT(10X,'EVOLUTION',/,1X,'IN THE BEGINNING GOD MADE',
$ ' MAN.',/,1X,'HE WORKED THE DIRT WITH HIS HANDS.',/,
$ 1X,'THEN GOD DECIDED TO GIVE MAN SCIENCE,'/,1X,
$ 'MAN SHOULD BE USEFUL (LIKE AN APPLIANCE.)',/,1X,
$ 'BUT SOON MAN''S KNOWLEDGE GREW TOO GREAT,',/,
$ 1X,'TO THE HEADING SCIENCE HE COULDN''T RELATE')
WRITE(IOUT,2269)
2269 FORMAT(1X,'SO GOD SAID "LETS HAVE DIFFERENT FIELDS,',/,
$ 1X,'WE''LL DIVIDE THEM UP, SEE WHAT IT YIELDS."',/,
$ 1X,'ENTER PHYSICS, CHEMISTRY, BIO',/,
$ 1X,'THEY SPRANG UP AROUND THE NILE.',/,
$ 1X,'BUT CHEMISTRY SURPASSED THE REST',/,
$ 1X,'FAR AND AWAY IT WAS THE BEST.',/,
$ 1X,'EXPERIMENT WAS GOD''S DECREE',/,
$ 1X,'EXPERIMENT DID CHEMISTS WITH LOTS OF GLEE')
WRITE(IOUT,3269)
3269 FORMAT(1X,'BUT SOON THEIR TESTS BEGAN TO BOG,',/,
$ 1X,'THEY FOUND THEMSELVES DEEP IN A FOG.',/,
$ 1X,'"GIVE US SOME HELP" THEY CRIED TO GOD.',/,
$ 1X,'GOD LOOKED AROUND, THEN GAVE THE NOD.',/,
$ 1X,'ENTER EINSTEIN, HEISENBERG, BOHR,',/,
$ 1X,'REACTION PATHS WERE CLEAR ONCE MORE.',/,
$ 1X,'WITH THEORISTS GOD SEND DIRECTION',/,
$ 1X,'AND THEN HE STOPPED, HE''D MADE PERFECTION.',/,
$ 10X,'-- THOMAS A. HOLME, 1981')
Return
270 WRITE(IOUT,1270)
1270 FORMAT(1X,'"A LITTLE BIT GOES A LONG WAY"',/,
$ 1X,'R.S. MULLIKEN AS QUOTED BY K. RUEDENBERG')
Return
271 WRITE(IOUT,1271)
1271 FORMAT(1X,'DIATOMIC MOLECULES ARE PECULIAR BECAUSE THEY',
$ ' ONLY HAVE TWO ENDS,',/,1X,'AND THESE ENDS ARE VERY',
$ ' CLOSE TOGETHER.',/,1X,'KLAUS RUEDENBERG, REV.MOD.PHYS.',
$ ' PG 176, 32, (1960)')
Return
272 WRITE(IOUT,1272)
1272 FORMAT(5X,'"IF I COULD JUST GET IT ON PAPER"',/,
$ 1X,'LIFE AND INK, THEY RUN OUT AT THE SAME TIME,',/,
$ 1X,'OR SO SAID MY OLD FRIEND THE SQUID.',/,
$ 5X,'-- JIMMY BUFFETT, 1981')
Return
273 WRITE(IOUT,1273)
1273 FORMAT(1X,'EVERY WORD THAT YOU WRITE IS A BLOW THAT',
$ ' SMITES THE DEVIL.',/,5X,'-- ST. BERNARD OF CLAIRVAUX')
Return
274 WRITE(IOUT,1274)
1274 FORMAT(1X,'WHEN ALL ELSE FAILS, LOOK AT THE SCHRODINGER',
$ ' EQUATION.',/,5X,'-- RUSSELL T. PACK, APRIL 1978')
Return
275 WRITE(IOUT,1275)
1275 FORMAT(1X,'WE HAVE LEARNED THAT NOTHING IS SIMPLE AND',/,
$ 1X,'RATIONAL EXCEPT WHAT WE OURSELVES HAVE INVENTED;',/,
$ 1X,'THAT GOD THINKS IN TERMS NEITHER OF EUCLID OR RIEMANN;',
$ 1X,'THAT SCIENCE HAS "EXPLAINED" NOTHING;',/,
$ 1X,'THAT THE MORE WE KNOW THE MORE FANTASTIC THE WORLD BECOMES',
$ /,1X,'AND THE PROFOUNDER THE SURROUNDING DARKNESS.',/,
$ 1X,' -- ALDOUS HUXLEY')
Return
276 WRITE(IOUT,1276)
1276 FORMAT(1X,'QUANTUM MECHANICS IS BOHRING -- M.S. GORDON')
Return
277 WRITE(IOUT,1277)
1277 FORMAT(1X,'IBM COMPATIBILITY IS LIKE PREGNANCY. YOU ARE OR',/,
$ 1X,'OR YOU ARE NOT. -- ADAM OSBORNE')
Return
278 WRITE(IOUT,1278)
1278 FORMAT(1X,'SILVERMAN''S PARADOX - IF MURPHY''S LAW',
$ 1X,'CAN GO WRONG, IT WILL.')
Return
279 WRITE(IOUT,1279)
1279 FORMAT(1X,'IT IS UNWORTHY OF EXCELLENT MEN TO LOSE HOURS LIKE',
$ ' SLAVES IN THE LABOR',/,1X,'OF CALCULATION WHICH COULD',
$ ' BE SAFELY RELEGATED TO ANYONE ELSE',/,1X,'IF A MACHINE WERE',
$ ' USED.',/,4X,'-- G.W. VON LEIBNIZ')
Return
280 WRITE(IOUT,1280)
1280 FORMAT(1X,'AND THIS OUR LIFE, EXEMPT FROM PUBLIC HAUNT,',/,
$ 1X,'FINDS TONGUES IN TREES, BOOKS IN THE RUNNING BROOKS,',/,
$ 1X,'SERMONS IN STONES, AND GOOD IN EVERYTHING.',/,
$ 1X,'I WOULD NOT CHANGE IT. -- W. SHAKESPEARE',/
$ 1X,'AS YOU LIKE IT, ACT II, SCENE 1.')
Return
281 WRITE(IOUT,1281)
1281 FORMAT(1X,'MORNING PEOPLE ARE USUALLY ADMIRED AS EARLY BIRDS.',/,
$ 1X,'RECALL BEN FRANKLIN''S APHORISM THAT THE EARLY BIRD',
$ 1X,'GETS THE WORM.',/,1X,'I IDENTIFY WITH THE WORM. --',
$ 1X,' CRAIG JAGGER, MINNEAPOLIS, KS.')
Return
282 WRITE(IOUT,1282)
1282 FORMAT(1X,'OPTIMIST - A PESSIMIST WHO LACKS EXPERIENCE')
Return
283 WRITE(IOUT,1283)
1283 FORMAT(1X,'IF YOU''RE NOT PART OF THE SOLUTION,',/,1X,
$ 'THEN YOU''RE PART OF THE PRECIPITATE.')
Return
284 WRITE(IOUT,1284)
1284 FORMAT(1X,'THE MEEK SHALL INHERIT THE EARTH.',/,
$ 1X,'(THE REST OF US WILL ESCAPE TO THE STARS)')
Return
285 WRITE(IOUT,1285)
1285 FORMAT(1X,'RESEARCH IS WHAT I AM DOING WHEN I DON''T',
$ ' KNOW WHAT I AM DOING.',/,5X,'-- WERNER VON BRAUN')
Return
286 WRITE(IOUT,1286)
1286 FORMAT(1X,'ON A CLEAR DISK YOU CAN SEEK FOREVER.')
Return
287 WRITE(IOUT,1287)
1287 FORMAT(1X,'THE WORLD IS NOT A HAMBURGER - YOU CAN''T',
$ ' HAVE IT YOUR WAY.')
Return
288 WRITE(IOUT,1288)
1288 FORMAT(1X,'MOM AND DAD WENT TO ALPHA CENTAURI AND ALL',/,
$ 1X,'I GOT WAS THIS DUMB T-SHIRT.')
Return
289 WRITE(IOUT,1289)
1289 FORMAT(1X,'OLD AGE AND TREACHERY WILL ALWAYS PREVAIL',
$ ' OVER YOUTH AND SKILL.')
Return
290 WRITE(IOUT,1290)
1290 FORMAT(1X,'WE TEND TO MEET ANY NEW SITUATION BY REORGANIZING.',
$ ' IT CAN BE A',/,1X,'WONDERFUL METHOD FOR CREATING THE',
$ ' ILLUSION OF PROGRESS WHILE PRODUCING',/,1X,'CONFUSION,',
$ ' INEFFICIENCY, AND DEMORALIZATION.',/,5X,'-- PETRONIUS',
$ ' ARBITER, 210 B.C.')
Return
291 WRITE(IOUT,1291)
1291 FORMAT(1X,'SUPPORT THE RIGHT TO ARM BEARS!',/,1X,
$ '(ADD A CLAWS TO THE BILL OF RIGHTS)')
Return
292 WRITE(IOUT,1292)
1292 FORMAT(1X,'FRICTION IS A DRAG,',/,1X,'AND ENTROPY AIN''T',
$ ' WHAT IT USED TO BE.')
Return
293 WRITE(IOUT,1293)
1293 FORMAT(1X,'BLACK HOLES SUCK.')
Return
294 WRITE(IOUT,1294)
1294 FORMAT(1X,'EDUCATION WITHOUT COMMON SENSE IS A LOAD OF',
$ ' BOOKS ON THE BACK OF AN ASS.')
Return
295 WRITE(IOUT,1295)
1295 FORMAT(1X,'IF YOU DON''T HAVE THE LAW - ARGUE THE FACTS.',/,
$ 1X,'IF YOU DON''T HAVE THE FACTS - ARGUE THE LAW.',/,
$ 1X,'IF YOU DON''T HAVE EITHER - POUND THE TABLE.')
Return
296 WRITE(IOUT,1296)
1296 FORMAT(1X,'UNLESS WE CHANGE DIRECTIONS, WE WILL WIND UP',
$ ' WHERE WE ARE HEADED.',/,5X,'-- CONFUCIUS')
Return
297 WRITE(IOUT,1297)
1297 FORMAT(1X,'SACRED COWS MAKE GREAT HAMBURGERS -- ROBERT REISNER')
Return
298 WRITE(IOUT,1298)
1298 FORMAT(1X,'BRING ME INTO THE COMPANY OF THOSE WHO SEEK TRUTH,',/,
$ 1X,'AND DELIVER ME FROM THOSE WHO HAVE FOUND IT.')
Return
299 WRITE(IOUT,1299)
1299 FORMAT(1X,'A CHEMICAL PHYSICIST MAKES PRECISE MEASUREMENTS',
$ ' ON IMPURE COMPOUNDS.',/,1X,'A THEORETICAL PHYSICAL CHEMIST',
$ ' MAKES IMPRECISE',/,5X,'MEASUREMENTS ON PURE COMPOUNDS.',/,1X,
$ 'AN EXPERIMENTAL PHYSICAL CHEMIST MAKES IMPRECISE',/,5X,
$ 'MEASUREMENTS ON IMPURE COMPOUNDS.')
Return
End
*Deck Gozy3
Subroutine Gozy3(IOut,Num)
Implicit Integer(A-Z)
C
C Print out gozy messages 3xx (i.e. 300 to 399).
C
If(Num.lt.300.or.Num.gt.399)
$ Call GauErr('Num<300 or Num>399 in Gozy3.')
IHOP = Num/20 + 1 - 15
IGO = MOD(Num,20) + 1
IF (IHOP .EQ. 1) IGO = IGO - 1
GOTO (9300,9320,9340,9360,9380), IHop
C
9300 Goto(300,301,302,303,304,305,306,307,308,309,
$ 310,311,312,313,314,315,316,317,318,319), IGo
C
9320 Goto(320,321,322,323,324,325,326,327,328,329,
$ 330,331,332,333,334,335,336,337,338,339), IGO
C
9340 Goto(340,341,342,343,344,345,346,347,348,349,
$ 350,351,352,353,354,355,356,357,358,359), IGo
C
9360 Goto(360,361,362,363,364,365,366,367,368,369,
$ 370,371,372,373,374,375,376,377,378,379), IGo
C
9380 Goto(380,381,382,383,384,385,386,387,388,389,
$ 390,391,392,393,394,395,396,397,398,399), IGo
C
300 WRITE(IOUT,1300)
1300 FORMAT(1X,'THERE IS AN OLD, OLD RECIPE IN MAINE FOR STEWING',
$ ' COOT. PLACE THE',/,1X,'BIRD IN A KETTLE OF WATER WITH A',
$ ' RED BUILDING BRICK FREE OF MORTAR AND',/,1X,'BLEMISHES.',
$ ' PARBOIL THE COOT AND BRICK TOGETHER FOR THREE HOURS.',/,
$ 1X,'POUR OFF THE WATER, REFILL THE KETTLE, AND AGAIN PARBOIL',
$ ' FOR THREE HOURS.',/,1X,'ONCE AGAIN POUR OFF THE WATER, FOR',
$ ' THE LAST TIME ADD FRESH WATER,',/,1X,'AND LET THE COOT AND',
$ ' BRICK SIMMER TOGETHER OVERNIGHT. IN THE MORNING,',/,1X,
$ 'THROW AWAY THE COOT AND EAT THE BRICK.')
Return
301 WRITE(IOUT,1301)
1301 FORMAT(1X,'DO NOT LET SELFISH MEN OR GREEDY INTERESTS SKIN',
$ ' YOUR COUNTRY OF ITS',/,1X,'BEAUTY, ITS RICHES, OR ITS',
$ ' ROMANCE. -- THEODORE ROOSEVELT')
Return
302 WRITE(IOUT,1302)
1302 FORMAT(1X,'I LOVE MANKIND - IT''S PEOPLE I CAN''T STAND.',/,
$ 5X,'-- LINUS OF PEANUTS')
Return
303 WRITE(IOUT,1303)
1303 FORMAT(1X,'IF YOU GIVE A BOY AND A PIG EVERYTHING THEY WANT,',/,
$ 1X,'YOU''LL GET A BAD BOY AND A GOOD PIG.')
Return
304 WRITE(IOUT,1304)
1304 FORMAT(1X,'WHEN IT COMES TO CASH FLOW, IT SEEMS LIKE THE TIDE',
$ ' IS ALWAYS GOING OUT.')
Return
305 WRITE(IOUT,1305)
1305 FORMAT(1X,'DEPRESSION IS WAITING FOR YOUR SHIP TO COME IN,',/,
$ 1X,'AND FINDING OUT IT''S THE TITANIC.')
Return
306 WRITE(IOUT,1306)
1306 FORMAT(1X,'MANHOOD BEGINS BY TRYING TO SHAVE FACE,',/,
$ 1X,'AND ENDS BY TRYING TO SAVE FACE.')
Return
307 WRITE(IOUT,1307)
1307 FORMAT(1X,'JUST WHEN YOU THINK YOU''VE GOT THE WORLD ON A',
$ ' STRING,',/,1X,'YOU FIND OUT IT''S YOUR LEASH.')
Return
308 WRITE(IOUT,1308)
1308 FORMAT(1X,'WHEN HAVING A MEETING OF THE MINDS,',/,1X,
$ 'MAKE SURE YOU HAVE THE EQUIPMENT FOR IT.')
Return
309 WRITE(IOUT,1309)
1309 FORMAT(1X,'MY GROUP MEETINGS AREN''T VERY STRUCTURED.',/,
$ 5X,'-- PROF. M. S. GORDON, OCT. 5, 1984')
Return
310 WRITE(IOUT,1310)
1310 FORMAT(1X,'KNOWLEDGE IS CHIMERA - FOR BEYOND IT LIES OTHER',
$ ' KNOWLEDGE,',/,1X,'AND THE INCOMPLETENESS OF WHAT IS KNOWN',
$ ' RENDERS THE KNOWING FALSE.',/,5X,'-- THE THOMAS',
$ ' COVENANT CHRONICLES')
Return
311 WRITE(IOUT,1311)
1311 FORMAT(1X,'THE MORE ACCURATE THE CALCULATIONS BECOME, THE MORE',
$ ' THE CONCEPTS',/,1X,'TEND TO VANISH INTO THIN AIR.',/,5X,
$ '-- R.S. MULLIKEN, J.C.P. 43,S2(1965)')
Return
312 WRITE(IOUT,1312)
1312 FORMAT(1X,'MUD THROWN IS GROUND LOST -- FROM A TEA BAG')
Return
313 WRITE(IOUT,1313)
1313 FORMAT(1X,'REPARTEE - WHAT YOU THINK OF AFTER YOU BECOME A',
$ ' DEPARTEE.')
Return
314 WRITE(IOUT,1314)
1314 FORMAT(1X,'PATIENCE IS THE ABILITY TO IDLE YOUR MOTOR WHEN',/,
$ 1X,'YOU FEEL LIKE STRIPPING YOUR GEARS.')
Return
315 WRITE(IOUT,1315)
1315 FORMAT(1X,'SOME PEOPLE TRY TO PULL THE WOOL OVER YOUR EYES',/,
$ 1X,'USING THE WRONG YARN.')
Return
316 WRITE(IOUT,1316)
1316 FORMAT(1X,'CONFIDENCE IS WHAT YOU FEEL BEFORE YOU FULLY',/,
$ 1X,'COMPREHEND THE SITUATION.')
Return
317 WRITE(IOUT,1317)
1317 FORMAT(1X,'IF YOU GIVE EVERYONE A PIECE OF YOUR MIND,',/,
$ 1X,'PRETTY SOON IT WILL BE ALL GONE.')
Return
318 WRITE(IOUT,1318)
1318 FORMAT(1X,'GETTING A SIMPLE ANSWER FROM A PROFESSOR IS LIKE',/,
$ 1X,'GETTING A THIMBLE OF WATER FROM A FIRE HYDRANT.',/,
$ 5X,'-- PROF. LEN SHAPIRO, NDSU')
Return
319 WRITE(IOUT,1319)
1319 FORMAT(1X,'ALMOST ANYTHING YOU DO WILL BE INSIGNIFICANT,',/,
$ 1X,'BUT IT IS VERY IMPORTANT THAT YOU DO IT. -- GHANDI')
Return
320 Write (IOut,1320)
1320 Format (1x,'We''re simply so accustomed to the marvels of ',
$ 'everyday thought'
$ /,1X,'that we never wonder about it.'
$ /,1X,'-- Marvin Minsky in "Why people think ',
$ 'computers are smart"')
Return
321 Write (IOut,1321)
1321 Format (1x,'The earth never tires,'
$ /,1X,'The earth is rude, silent, ',
$ 'incomprehensible at first,'
$ /,1X,'Nature is rude and incomprehensible at first,'
$ /,1X,'Be not discouraged, keep on,'
$ /,1X,'There are divine things well envelop''d,'
$ /,1X,'I swear to you there are divine things more ',
$ 'beautiful than words can tell.'
$ /,1X,' -- Walt Whitman')
Return
322 Write(IOut,1322)
1322 Format(' Not by the face shall a man be known, but by the mask.',
$ /,' -- Karen Blixen')
Return
323 WRITE(IOUT,1323)
1323 FORMAT(1X,'HICKORY, DICKORY, DOCK',/,
$ 1X,'TWO MICE RAN UP THE CLOCK',/,
$ 1X,'THE CLOCK STRUCK ONE...',/,
$ 1X,'THE OTHER ESCAPED WITH MINOR INJURIES.')
Return
324 WRITE(IOUT,1324)
1324 FORMAT(1X,'AN AIRPLANE IS A COLLECTION OF SPARE PARTS',/,
$ 1X,'FLYING IN CLOSE FORMATION.')
Return
325 WRITE(IOUT,1325)
1325 FORMAT(1X,'FESTINA LENTE!',/,1X,' - IMPERATOR AUGUSTUS ')
Return
326 WRITE(IOUT,1326)
1326 FORMAT(1X,'YOU CANNOT THROW TO THE GROUND THE LETTERS OF',/,
$ 1X,'THE GREEK ALPHABET AND PICK UP THE ILIAD.',/,
$ 1X,' - RUFUS CHOATE, 1799-1859')
Return
327 WRITE(IOUT,1327)
1327 FORMAT(1X,'MY DESCRIPTION OF EXPERIENCE IS NOT WHAT HAPPENS',/,
$ 1X,'TO A MAN. EXPERIENCE IS WHAT A MAN DOES WITH WHAT',/,
$ 1X,'HAPPENS TO HIM.',/,25X,
$ '- CHUCK KNOX, SEATTLE SEAHAWKS, 1985')
Return
328 WRITE(IOUT,1328)
1328 FORMAT(1X,'A SCIENTIST IS SOMEONE WHOSE CURIOSITY SURVIVES',/,
$ 1X,'EDUCATION''S ASSAULTS ON IT.',/,
$ 25X,' - SIR HERMANN BONDI')
Return
329 WRITE(IOUT,1329)
1329 FORMAT(1X,'ROSE IS A RED',/,
$ 1X,'TY COBB IS BLUE',/,
$ 1X,'''CAUSE PETE JUST HIT',/,
$ 1X,'NO. 4592.')
Return
330 WRITE(IOUT,1330)
1330 FORMAT(1X,'EXPERIENCE IS THE FRUIT OF THE TREE OF ERRORS.')
Return
331 WRITE(IOUT,1331)
1331 FORMAT(1X,'A MAN IS EXACTLY AS GREAT AS THE TIDE SURGING',/,
$ 1X,'BENEATH HIM. - BISMARCK')
Return
332 WRITE(IOUT,1332)
1332 FORMAT(1X,'TERRY FORSTER, PORTLY ATLANTA BRAVES RELIEVER,',/,
$ 1X,'ANNOUNCING THAT HE WAS GOING TO A FAT FARM:',/,
$ 1X,'"A WAIST IS A TERRIBLE THING TO MIND."')
Return
333 WRITE(IOUT,1333)
1333 FORMAT(1X,'MICHAEL FARADAY, ASKED BY A POLITICIAN WHAT GOOD',/,
$ 1X,'HIS ELECTRICAL DISCOVERIES WERE, REPLIED ',/,
$ 1X,'"AT PRESENT I DO NOT KNOW, BUT ONE DAY YOU WILL BE',/,
$ 1X,'ABLE TO TAX THEM."')
Return
334 WRITE(IOUT,1334)
1334 FORMAT(1X,'WHEN A MATHEMATICIAN ENGAGED IN INVESTIGATING',/,
$ 1X,'PHYSICAL ACTIONS AND RESULTS HAS ARRIVED AT HIS',/,
$ 1X,'CONCLUSIONS, MAY THEY NOT BE EXPRESSED IN COMMON',/,
$ 1X,'LANGUAGE AS FULLY, CLEARLY, AND DEFINITELY AS IN',/,
$ 1X,'MATHEMATICAL FORMULAE?',/,
$ 10X,' - LETTER FROM M. FARADAY TO J.C. MAXWELL, 1857.')
Return
335 WRITE(IOUT,1335)
1335 FORMAT(1X,'WAR ES EIN GOTT DER DIESE ZEICHEN SCHRIEB?',/,
$ 10X,'- LUDWIG BOLTZMANN, QUOTING GOETHE, ABOUT MAXWELL''S',
$ ' EQUATIONS.')
Return
336 WRITE(IOUT,1336)
1336 FORMAT(1X,'THE 2ND LAW OF THERMODYNAMICS HAS THE SAME',/,
$ 1X,'DEGREE OF TRUTH AS THE STATEMENT THAT IF YOU THROW',/,
$ 1X,'A TUMBLERFULL OF WATER INTO THE SEA, YOU CANNOT GET',/,
$ 1X,'THE SAME TUMBLERFULL OF WATER OUT AGAIN.',/,
$ 10X,'- J.C. MAXWELL, LETTER TO LORD RAYLEIGH, DECEMBER 6,1870')
Return
337 WRITE(IOUT,1337)
1337 FORMAT(1X,'I (ERNEST RUTHERFORD) CAME INTO THE ROOM, WHICH WAS',
$ 1X,'HALF DARK, AND PRESENTLY',/,1X,'SPOTTED LORD KELVIN',
$ 1X,'IN THE AUDIENCE AND REALIZED I WAS IN TROUBLE AT',/,
$ 1X,'THE LAST PART OF MY SPEECH DEALING THE AGE OF THE',
$ 1X,'EARTH, WHERE MY VIEWS',/,1X,'CONFLICTED WITH HIS. ',
$ 1X,'TO MY RELIEF KELVIN FELL FAST ASLEEP, BUT AS I CAME',/,
$ 1X,'TO THE IMPORTANT POINT, I SAW THE OLD BIRD SIT UP',
$ 1X,'AND COCK A BALEFUL GLANCE',/,1X,'AT ME! THEN A SUDDEN',
$ 1X,'INSPIRATION CAME AND I SAID LORD KELVIN HAD LIMITED',/,
$ 1X,'THE AGE OF THE EARTH PROVIDED NO NEW SOURCE WAS',
$ 1X,'DISCOVERED. THAT',/,1X,'PROPHETIC UTTERANCE REFERS TO',
$ 1X,'WHAT WE ARE NOW CONSIDERING TONIGHT, RADIUM!',/,
$ 1X,'BEHOLD! THE OLD BOY BEAMED UPON ME.')
Return
338 WRITE(IOUT,1338)
1338 FORMAT(1X,'ALL MY ATTEMPTS TO ADAPT THE THEORETICAL FOUND',
$ 'ATIONS OF PHYSICS',/,1X,'TO THESE NEW NOTIONS',
$ 1X,'FAILED COMPLETELY. IT WAS AS IF THE GROUND HAD',/,
$ 1X,'BEEN PULLED OUT FROM UNDER ONE WITH NO FIRM FOUND',
$ 'ATION TO BE SEEN ANYWHERE,',/,1X,'UPON WHICH ONE',
$ 1X,'COULD HAVE BUILT. -- A.EINSTEIN')
Return
339 WRITE(IOUT,1339)
1339 FORMAT(1X,'IT WAS AN ACT OF DESPARATION. FOR SIX YEARS I',
$ 1X,'HAD STRUGGLED WITH THE',/,1X,'BLACKBODY THEORY.',
$ 1X,'I KNEW THE PROBLEM WAS FUNDAMENTAL, AND I KNEW',/,
$ 1X,'THE ANSWER. I HAD TO FIND A THEORETICAL EXPLANA',
$ 'TION AT ANY COST,',/,1X,'EXCEPT FOR THE INVIOLABLITY',
$ 1X,'OF THE TWO LAWS OF THERMODYNAMICS.',/,1X,' -- MAX',
$ 1X,'PLANCK, 1931')
Return
340 Continue
C WRITE(IOUT,1340)
C1340 FORMAT(1X,'WHEN MINKOWSKI SAW EINSTEIN''S ORIGINAL WORK,',
C $ 1X,'HE REMEMBERED HIS STUDENT',/,1X,'AND SAID, IN',
C $ 1X,'EFFECT, "IMAGINE THAT! I WOULD NEVER HAVE',/,
C $ 1X,'EXPECTED SUCH A SMART THING FROM THAT FELLOW."')
C Return
341 Continue
C WRITE(IOUT,1341)
C1341 FORMAT(1X,'EINSTEIN SAID OF HIMSELF, "GOD IS INEXORABLE',
C $ 1X,'IN OFFERING HIS GIFTS.',/,1X,'HE ONLY GAVE ME THE',
C $ 1X,'STUBBORNESS OF A MULE. NO! HE ALSO GAVE ME',/,
C $ 1X,'A KEEN SENSE OF SMELL.')
C Return
342 WRITE(IOUT,1342)
1342 FORMAT(1X,'ERWIN WITH HIS PSI CAN DO',/,
$ 1X,'CALCULATIONS QUITE A FEW.',/,
$ 1X,'BUT ONE THING HAS NOT BEEN SEEN',/,
$ 1X,'JUST WHAT DOES PSI REALLY MEAN.',/,
$ 1X,'-- WALTER HUCKEL, TRANS. BY FELIX BLOCH')
Return
343 WRITE(IOUT,1343)
1343 FORMAT(1X,'IF YOU WANT TO LEARN FROM THE THEORETICAL PHYSICISTS',
$ 1X,'ABOUT THE',/,1X,'METHODS WHICH THEY USE, I ADVISE',
$ 1X,'YOU TO FOLLOW THIS PRINCIPLE VERY STRICTLY:',/,
$ 1X,'DON''T LISTEN TO THEIR WORDS; PAY ATTENTION,',
$ 1X,'INSTEAD, TO THEIR ACTIONS.',/,1X,'-- A.EINSTEIN, 1934')
Return
344 WRITE(IOUT,1344)
1344 FORMAT(1X,'THE SCIENTIFIC THEORIST IS NOT TO BE ENVIED. FOR',
$ 1X,'NATURE, OR MORE',/,1X,'PRECISELY EXPERIMENT, IS AN',
$ 1X,'INEXORABLE AND NOT VERY FRIENDLY JUDGE OF HIS',/,
$ 1X,'WORK. IT NEVER SAYS "YES" TO A THEORY. IN THE',
$ 1X,'MOST FAVORABLE CASES',/,1X,'IT SAYS "MAYBE", AND',
$ 1X,'IN THE GREAT MAJORITY OF CASES SIMPLY "NO"...',/,
$ 1X,'PROBABLY EVERY THEORY WILL SOME DAY EXPERIENCE',
$ 1X,'ITS "NO" - MOST',/,1X,'THEORIES, SOON AFTER',
$ 1X,'CONCEPTION. -- A.EINSTEIN, NOV 11, 1922.')
Return
345 WRITE(IOUT,1345)
1345 FORMAT(1X,'SUCCESS IS NEVER CERTAIN,',/,
$ 1X,'FAILURE IS NEVER FINAL.')
Return
346 WRITE(IOUT,1346)
1346 FORMAT(1X,'IT IS BETTER TO THINK YOU ARE HALF DRY THAN TO',
$ 1X,'KNOW YOU',/,1X,'ARE ALL WET. -- SNOOPY')
Return
347 WRITE(IOUT,1347)
1347 FORMAT(1X,'HONESTY IN A LAWYER IS LIKE A HEN''S HIND LEGS.',/,
$ 1X,' -- MAGNUS OLESON, LAKE WOBEGON PATRIARCH, C.1875')
Return
348 WRITE(IOUT,1348)
1348 FORMAT(1X,'HE WHO LAUGHS LAST PROBABLY DIDN''T GET THE JOKE.')
Return
349 WRITE(IOUT,1349)
1349 FORMAT(1X,'THE ONLY EXISTING THINGS ARE ATOMS AND EMPTY SPACE;',/,
$ 1X,'ALL ELSE IS MERE OPINION. -- DEMOCRITUS OF ABDERA',
$ 1X,'D. 370 B.C.',/,1X,'EXPERIMENTS ARE THE ONLY MEANS',
$ 1X,'OF KNOWLEDGE AT OUR DISPOSAL',/,1X,'THE REST IS',
$ 1X,'POETRY, IMAGINATION. -- MAX PLANCK')
Return
350 WRITE(IOUT,1350)
1350 FORMAT(1X,'IF I HAVE SEEN FARTHER, IT IS BY STANDING ON THE',/,
$ 1X,'SHOULDERS OF GIANTS. -- SIR ISAAC NEWTON')
Return
351 WRITE(IOUT,1351)
1351 FORMAT(1X,'ABOVE ALL I AM AN OPTIMIST FOR NUMBER THEORY,',/,
$ 1X,'AND I HOLD THE HOPE THAT WE MAY NOT BE FAR FROM',/,
$ 1X,'A TIME WHEN IRREFUTABLE ARITHMETIC WILL CELEBRATE',/,
$ 1X,'ITS TRIUMPHS IN PHYSICS AND CHEMISTRY.',/,
$ 1X,' -- HERMANN MINKOWSKI, 1905')
Return
352 WRITE(IOUT,1352)
1352 FORMAT(1X,'ANYONE WHO IS NOT SHOCKED BY QUANTUM THEORY HAS',/,
$ 1X,'NOT UNDERSTOOD IT. -- NIELS BOHR(1885-1962)')
Return
353 WRITE(IOUT,1353)
1353 FORMAT(1X,'TIMES HAVE CHANGED. IN THE BIBLE WHEN AN ASS',/,
$ 1X,'SPOKE IT WAS CONSIDERED A MIRACLE.')
Return
354 WRITE(IOUT,1354)
1354 FORMAT(1X,'NECESSARY EVIL: ONE WE LIKE TOO MUCH TO',
$ 1X,'RELINQUISH.')
Return
355 WRITE(IOUT,1355)
1355 FORMAT(1X,'THE ONLY DIFFERENCE BETWEEN ECCENTRICS AND JOGGERS',/,
$ 1X,'IS THAT JOGGERS WEAR SWEATBANDS WHEN THEY RUN IN',
$ ' THE RAIN.')
Return
356 WRITE(IOUT,1356)
1356 FORMAT(1X,'COLLEGE PROFESSOR: SOMEONE WHO TALKS IN',
$ ' OTHER PEOPLE''S SLEEP.')
Return
357 WRITE(IOUT,1357)
1357 FORMAT(1X,'YOU SHOULDN''T LET PEOPLE DRIVE YOU CRAZY',/,
$ 1X,'WHEN YOU KNOW IT''S WITHIN WALKING DISTANCE.')
Return
358 WRITE(IOUT,1358)
1358 FORMAT(1X,'IN-LAWS ARE LIKE SEEDS. YOU DON''T NEED THEM',/,
$ 1X,'BUT THEY COME WITH THE TOMATO.')
Return
359 WRITE(IOUT,1359)
1359 FORMAT(1X,'DO YOU KNOW THAT THE LETTERS IN "EPISCOPAL", WHEN',/,
$ 1X,'REARRANGED, SPELL "PEPSI COLA"?')
Return
360 WRITE(IOUT,1360)
1360 FORMAT(1X,'YOU KNOW YOU''VE SPOKEN TOO LONG WHEN THE AUDIENCE',
$ ' STOPS LOOKING AT',/,1X,
$ 'THEIR WATCHES AND STARTS SHAKING THEM.')
Return
361 WRITE(IOUT,1361)
1361 FORMAT(1X,'THE PROBLEM WITH THE LADDER OF SUCCESS IS YOU CAN''T',
$ /,1X,'CLIMB IT WHILE YOU''RE TWIDDLING YOUR THUMBS.')
Return
362 WRITE(IOUT,1362)
1362 FORMAT(1X,'THERE''S NOTHING WRONG WITH FOLLOWING A TRAIN OF',
$ 1X,'THOUGHT...',/,1X,'AS LONG AS IT ULTIMATELY PULLS',
$ 1X,'INTO THE STATION.')
Return
363 WRITE(IOUT,1363)
1363 FORMAT(1X,'WISDOM IS KNOWING WHAT TO DO,',/,
$ 1X,'SKILL IS KNOWING HOW TO DO IT,',/,
$ 1X,'AND VIRTUE IS NOT DOING IT.')

复制代码

sobereva · 发表于 Post on 2017-3-20 16:21:06

随便找个任务给出的名人名言，直接用grep在全部源文件里一搜立刻就找到

chrischen1128 · 发表于 Post on 2017-4-13 20:25:35

好像还有过计算完出现骷髅拼图的。

njfuzjs · 发表于 Post on 2017-5-10 15:33:57

L9999的源代码里面，算的时候不少时候会出现很古怪的格言

yopoxia · 发表于 Post on 2017-5-10 21:10:00

我第一次用高斯计算出来，有名言有图当时还激动了很久

		自动登录 Automatic login	找回密码 Forget password
密码 Password			注册 Register

[灌水] Gaussian名人名言库在哪里。。。

评分 Rate