home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / folklore / computer / 16345 < prev    next >
Encoding:
Internet Message Format  |  1992-11-17  |  3.0 KB
  1. Xref: sparky alt.folklore.computers:16345 rec.arts.startrek.misc:11744 rec.arts.startrek.tech:6368
  2. Newsgroups: alt.folklore.computers,rec.arts.startrek.misc,rec.arts.startrek.tech
  3. Path: sparky!uunet!panther!mothost!lmpsbbs!davesp
  4. From: davesp@ecs.comm.mot.com (Dave Spensley)
  5. Subject: Hidden Message (was Re: FORTRAN food synthesizer program)
  6. Organization: Motorola, Inc.
  7. Date: Tue, 17 Nov 1992 19:18:05 GMT
  8. Message-ID: <1992Nov17.191805.540@lmpsbbs.comm.mot.com>
  9. Summary: Sneaky programmer...
  10. References: <1992Nov13.123108.28930@umbc3.umbc.edu> <1dsp61INN5m6@usenet.INS.CWRU.Edu> <1e0djoINN6a6@usenet.INS.CWRU.Edu>
  11. Sender: news@lmpsbbs.comm.mot.com (Net News)
  12. Nntp-Posting-Host: 145.1.156.101
  13. Lines: 50
  14.  
  15. In article <1e0djoINN6a6@usenet.INS.CWRU.Edu> rfd@po.CWRU.Edu (Richard F. Drushel) writes:
  16. >
  17. >In a previous article, cs202144@umbc8.umbc.edu (cs202144) says:
  18. >
  19. >    [program repost deleted]
  20. >
  21. >>I wish I had C source code for this, but one thing I did was try to compile it
  22. >>as is in fortran on a DEC Unix Machine and a SGI Irix machine. On both it
  23. >>complained about an undefined dbl_ and I do not know fortran at all so beyond
  24. >>trying to run it through the compiler I am lost. Yes! I did edit out the
  25. >>message header and all that junk so that is not my problem.
  26. >
  27. [...stuff deleted...]
  28. >
  29. >    BTW most of the program is obfuscation to impress a 1978
  30. >audience probably not familiar with computers.  Here is a version I
  31. >translated into BASIC which may be a little easier to understand for
  32. >those who don't know any FORTRAN:
  33.  
  34. Apparently this program is still obfuscating people.  :-)
  35.  
  36. >
  37. >1 REM SYNTHESIZER ALGORITHM FOR DR. MCCOY'S FAVORITE DISH
  38. >2 REM TRANSLATED INTO BASIC FROM THE FORTRAN IV PROGRAM ON PAGE XIII OF
  39. >3 REM "THE OFFICIAL STAR TREK COOKING MANUAL" BY MARY AN PICCARD
  40. >4 REM (NEW YORK:  BANTAM BOOKS, 1978, 203 PP.)  ISBN 0-553-11819-6
  41. >5 REM TRANSLATED BY RICHARD F. DRUSHEL 9211.11
  42. >100 DIM FOOD$(15),DISH$(15),PAN$(15),FRYER$(15),WAFFL$(15)
  43. >110 FOR X=1 TO 15: READ FOOD$(X): NEXT
  44. >120 DATA "S","I","H","T"," ","M","A","R","G","O","R","P"," ","S","I"
  45. >130 FOR X=1 TO 15: READ DISH$(X): NEXT
  46. >140 DATA "N","E","T","T","I","R","W"," ","N","I"," ","A","T","A","D"
  47. >150 FOR X=1 TO 15: READ PAN$(X): NEXT
  48. >160 DATA "L","A","R","E","N","E","G"," ","N","A","R","T","R","O","F"
  49. >170 FOR X=1 TO 15: READ FRYER$(X): NEXT
  50. >180 DATA "V","I"," ","T","I"," ","Y","A","M"," ","N","U","R"," ","N"
  51. >190 FOR X=1 TO 15: READ WAFFL$(X): NEXT
  52. >200 DATA "O"," ","K","N","U","J"," ","S","E","N","I","H","C","A","M"
  53. >210 PRINT FOOD$(1);WAFFL$(3);DISH$(2);FOOD$(12);DISH$(3);FRYER$(2);WAFFL$(13)
  54. [...more stuff deleted...]
  55.  
  56. Has anyone looked at the data statements backwards?  It reads "THIS PROGRAM IS
  57. WRITTEN IN DATA GENERAL FORTRAN IV IT MAY RUN ON JUNK MACHINES".  (The funny part
  58. is most any of today's machines would run circles around a Data General of the
  59. late-70s era.)  Just wondering if anyone else saw the hidden message...  (No,
  60. I don't think there's a prize involved.  :-)
  61.  
  62.  
  63.                                              Dave Spensley
  64.                                              davesp@ecs.comm.mot.com
  65.