1
0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-24 02:57:38 -05:00
BCG101/port/POET.BAS

35 lines
1.3 KiB
QBasic
Raw Normal View History

2024-05-06 22:05:30 -04:00
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