mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-17 23:56:24 -05:00
35 lines
1.3 KiB
QBasic
35 lines
1.3 KiB
QBasic
|
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
|