Re: Steve Mentzer: Pirate. You are no longer welcome.

[guenter@student.uni-kl.de (Marvin)]

I found this very interesting BASIC program recently:

10 REM Answer to Life, Universe and Everything
15 ON ERROR GOTO 120
20 READ Facts: READ Laws
30 WHILE no solution found BEGIN : GOSUB Thinking : END
40 IF elementof(solution,Laws) GOTO 60
50 IF NOT elementof(solution,Laws) GOTO 90
60 A = f(solution) : REM Number of Apple users who profitize from solution
70 M = g(solution) : REM Number of people who bring Bill Gates more Money
80 IF A >> M
   THEN accept solution
   ELSE solution = "" : GOTO 30
90 N = h(solution,Laws) : REM Number of Apple users or programmers who will
                              be hurt if you break Laws with this solution
100 IF N = 0
    THEN accept solution: BREAK Laws: IGNORE right-wing-bible-thumpers
110 IF N > 0
    THEN solution = "" : GOTO 30
120 REM No Solutions found
130 Laws = Changelaws(Laws)
140 GOTO 30
150 PRINT "42"
160 END

------------------------------------------------------------------------
                                                    __
                                           |\/| /\ |__||  | | |\  |
              `Don't Panic'                |  ||__||\  |  | | | \ |
                                           |  ||  || \  \/  | |  \|

Need Apple II gs software? Visit ftp.uni-kl.de...

Visit the Vogon hold at http://www.student.uni-kl.de/~guenter/vogon.html
------------------------------------------------------------------------