90 RANDOMIZE
 100 IF I<>1 THEN 101\ PRINT "MIDNIGHT DREARY";
 101 IF I<>2 THEN 102\ PRINT "FIREY EYES";
 102 IF I<>3 THEN 103\ PRINT "BIRD OR FIEND";
 103 IF I<>4 THEN 104\ PRINT "THING OF EVIL";
 104 IF I<>5 THEN 210\ PRINT "PROPHET";
 105 GOTO 210
 110 IF I<>1 THEN 111\ PRINT "BEGUILING ME";
 111 IF I<>2 THEN 112\ PRINT "THRILLED ME";
 112 IF I<>3 THEN 113\ PRINT "STILL SITTING..."\GOTO 212
 113 IF I<>4 THEN 114\ PRINT "BURNED.  "\GOTO 212
 114 IF I<>5 THEN 210\ PRINT "NEVER FLITTING";
 115 GOTO 210
 120 IF I<>1 THEN 121\ IF U=0 THEN 210\ PRINT "SIGN OF PARTING";
 121 IF I<>2 THEN 122\ PRINT "AND MY SOUL";
 122 IF I<>3 THEN 123\ PRINT "DARKNESS THERE";
 123 IF I<>4 THEN 124\ PRINT "SHALL BE LIFTED";
 124 IF I<>5 THEN 210\ PRINT "QUOTH THE RAVEN";
 125 GOTO 210
 130 IF I<>1 THEN 131\ PRINT "NOTHING MORE";
 131 IF I<>2 THEN 132\ PRINT "YET AGAIN";
 132 IF I<>3 THEN 133\ PRINT "SLOWLY CREEPING";
 133 IF I<>4 THEN 134\ PRINT "...NEVERMORE";
 134 IF I<>5 THEN 210\ PRINT "EVERMORE.";
 210 IF U=0 THEN 212\ IF RND(1)>.19 THEN 212\ PRINT ",";\U=2
 212 IF RND(1)>.65 THEN 214\ PRINT " ";\U=U+1\GOTO 215
 214 PRINT\U=0
 215 I=INT(5*RND(1)+1)
 220 J=J+1\K=K+1
 230 IF U>0 THEN 240\ IF INT(J/2)<>J/2  THEN 240\ PRINT "     ";
 240 ON J GOTO 100,110,120,130,250
 250 J=0\PRINT\IF K>20 THEN 270\ GOTO 215
 270 PRINT\U=0\K=0\GOTO 110
 999 END