home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / POET.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.5 KB  |  36 lines
  1. 10 REM *** MODIFIED AND CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
  2. 90 RANDOMIZE
  3. 100 IF I<>1 THEN 101 ELSE PRINT "MIDNIGHT DREARY";
  4. 101 IF I<>2 THEN 102 ELSE PRINT "FIREY EYES";
  5. 102 IF I<>3 THEN 103 ELSE PRINT "BIRD OR FIEND";
  6. 103 IF I<>4 THEN 104 ELSE PRINT "THING OF EVIL";
  7. 104 IF I<>5 THEN 210 ELSE PRINT "PHOPHET";
  8. 105 GOTO 210
  9. 110 IF I<>1 THEN 111 ELSE PRINT "BEGUILING ME";
  10. 111 IF I<>2 THEN 112 ELSE PRINT "THRILLED ME";
  11. 112 IF I<>3 THEN 113 ELSE PRINT "STILL SITTING...":GOTO 212
  12. 113 IF I<>4 THEN 114 ELSE PRINT "BURNED.  ":GOTO 212
  13. 114 IF I<>5 THEN 210 ELSE PRINT "NEVER FLITTING";
  14. 115 GOTO 210
  15. 120 IF I<>1 THEN 121 ELSE IF U=0 THEN 210 ELSE PRINT "SIGN OF PARTING";
  16. 121 IF I<>2 THEN 122 ELSE PRINT "AND MY SOUL";
  17. 122 IF I<>3 THEN 123 ELSE PRINT "DARKNESS THERE";
  18. 123 IF I<>4 THEN 124 ELSE PRINT "SHALL BE LIFTED";
  19. 124 IF I<>5 THEN 210 ELSE PRINT "QUOTH THE RAVEN";
  20. 125 GOTO 210
  21. 130 IF I<>1 THEN 131 ELSE PRINT "NOTHING MORE";
  22. 131 IF I<>2 THEN 132 ELSE PRINT "YET AGAIN";
  23. 132 IF I<>3 THEN 133 ELSE PRINT "SLOWLY CREEPING";
  24. 133 IF I<>4 THEN 134 ELSE PRINT "...NEVERMORE";
  25. 134 IF I<>5 THEN 210 ELSE PRINT "EVERMORE.";
  26. 210 IF U=0 THEN 212 ELSE IF RND>.19 THEN 212 ELSE PRINT ",";:U=2
  27. 212 IF RND>.65 THEN 214 ELSE PRINT " ";:U=U+1:GOTO 215
  28. 214 PRINT:U=0
  29. 215 I=INT(5*RND+1)
  30. 220 J=J+1:K=K+1
  31. 230 IF U>0 THEN 240 ELSE IF INT(J/2)<>J/2  THEN 240 ELSE PRINT "     ";
  32. 240 ON J GOTO 100,110,120,130,250
  33. 250 J=0:PRINT:IF K>20 THEN 270 ELSE GOTO 215
  34. 270 PRINT:U=0:K=0:GOTO 110
  35. 999 END
  36.