10  REM                        Expression
20  REM                        ----------
30  RANDOMIZE TIMER
40  REM
50  IF (RND * 2) < 1 THEN PRINT "This program is a poem"
    ELSE                  PRINT "This program prints a poem"
60  IF (RND * 2) < 1 THEN PRINT "Which illustrates a thought:"
    ELSE                  PRINT "With complication, fraught."
70  IF (RND * 2) < 1 THEN PRINT "Can actions from expressions"
    ELSE                  PRINT "Could makers of expressions"
80  IF (RND * 2) < 1 THEN PRINT "In endless loops be caught?"
    ELSE                  PRINT "Themselves express, or not?"
90  IF (RND * 2) < 1 THEN GOTO 50
99  END
Copyright © 1996, Reg Harbeck, all rights reserved.

Return to Reg Harbeck's Home Page