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