10 REM *** MODIFIED AND CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
20 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
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 "PHOPHET";
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(0)>.19 THEN 212 \ PRINT ",";\U=2
212 IF RND(0)>.65 THEN 214 \ PRINT " ";\U=U+1\GOTO 215
214 PRINT\U=0
215 I=INT(5*RND(0)+1)
220 J=J+1\K=K+1
230 IF U>0 THEN 240 \ IF INT(J/2)<>J/2  THEN 240 \ PRINT "     ";
240 IF J=1 GOTO 100\IF J=2 GOTO 110\IFJ=3GOTO120\IFJ=4GOTO130
250 J=0\PRINT\IF K>20 THEN 270\GOTO 215
270 PRINT\U=0\K=0\GOTO 110
999 END