100 CLS:GOTO 110
110 D=0
120 D=D+1
130 GOTO 1300
140 PRINT "THE HOURS RISE UP"
145 PRINT "    PUTTING OFF STARS"
150 A1=1
160 D=D+1
170 PRINT "    AND IT IS DAWN"
180 GOTO 1350
190 PRINT "INTO THE STREET OF THE SKY LIGHT";
200 A2=1 
210 D=D+1
220 PRINT "    WALKS SCATTERING POEMS"
230 GOTO 1350
240 PRINT "ON EARTH A CANDLE IS EXTINGUISED";
250 A3=1
260 D=D+1
270 PRINT "    THE CITY WAKES"
280 GOTO 1350
290 PRINT "WITH A SONG UPON HER MOUTH"
300 A4=1
310 D=D+1
320 PRINT "    HAVING DEATH IN HER EYES"
330 GOTO 1350
340 PRINT "AND IT IS DAWN"
350 PRINT "              THE WORLD"
360 A5=1
370 D=D+1
380 PRINT "    GOES FORTH TO MURDER DREAMS"
390 GOTO 1350
400 PRINT "  AND IT IS DAY"
410 C5=1
420 D=D+1
430 GOTO 1350
440 PRINT "IN THE MIRROR I SEE A MAN, AND";
450 PRINT "    HE SCREAMS"
460 D=D+1
470 C5=1
480 PRINT "FOR HE IS ME"
490 D=D+1
500 PRINT "            AND I HE"
510 GOTO 1350
520 PRINT "AND IT IS DUSK"
530 A7=1
540 D=D+1
550 PRINT "              ON EARTH"
560 GOTO 1350
570 PRINT "A CANDLE IS LIGHTED"
580 A8=1
590 D=D+1
600 PRINT "    AND IT IS DARK"
610 GOTO 1350
620 PRINT " THE PEOPLE ARE IN THEIR HOUSES"
630 A9=1
640 D=D+1
650 GOTO 1350
660 PRINT "SHE SLEEPS WITH DEATH UPON HER"
670 B1=1
680 D=D+1:L=L+1
690 PRINT "MOUTH, AND A SONG IN HER EYES"
700 GOTO 1350
710 PRINT " THE HOURS DESCENDED"
720 B2=1
730 D=D+1
740 PRINT "          PUTTING ON STARS"
750 GOTO 1350
760 PRINT "NOBODY LOSES ALL THE TIME "
770 B3=1
780 D=D+1
790 GOTO 1350
800 PRINT "HIS MOST WISE MUSIC STOLE"
810 B4=1
820 D=D+1
830 PRINT "    NOTHING FROM DEATH"
840 GOTO 1350
850 PRINT "   LOVE IS THE EVER ONLY GOD"
860 B5=1
870 D=D+1
880 GOTO 1350
890 PRINT "WHO SPOKE THIS EARTH"
895 PRINT "    SO GLAD AND BIG"
900 B6=1
910 D=D+1:LN=LN+1
920 PRINT "EVEN A THING ALL SMALL AND SAD"
930 GOTO 1350
940 PRINT "WHO IS AFRAID OF DEATH? THOU"
950 B7=1
960 D=D+1
970 PRINT "    ART OF HIM"
980 GOTO 1350
990 PRINT "OR WITH THY MIND AGAINST MY MIND";
1000 B8=1
1010 D=D+1
1020 PRINT "    YOU SHOULD NOT HEAR ME SPEAK";
1030 GOTO 1350
1040 PRINT "FOR IF HE IS GONE AND I AM HERE"
1050 B9=1
1060 D=D+1
1070 PRINT "    THERE IS NO MEETING"
1080 GOTO 1350
1090 PRINT " TIME IS TWISTED TO LAP UPON"
1100 C1=1
1110 D=D+1
1120 PRINT "     ITSELF FOREVER"
1130 GOTO 1350
1140 PRINT "AND SPACE IS MISSING FOR IT WAS"
1150 C2=1
1160 D=D+1
1170 PRINT "STOLEN FOR ALL TIME TO COME"
1180 GOTO 1350
1190 PRINT "THERE IS NEVER AN END,"
1200 C3=1
1210 D=D+1
1220 PRINT " MERELY A BELATED BEGINNING..."
1230 GOTO 1350
1240 PRINT "AND TWICE REPEATED THERE"
1250 C4=1
1260 PRINT "    WAS NO MORE"
1270 GOTO 1350
1280 PRINT
1281 D=D+1
1290 GOTO 1360
1300 PRINT "RANDOM POETRY IN FOUR PART      HARMONY."
1310 PRINT 
1320 PRINT
1330 IF Q=INT(Q) THEN 1280
1340 IF D=12 THEN 2330
1350 I$=INKEY$:X=RND(24):IF I$="" THEN 1350
1360 X1=RND(24)
1361 IF D=4 THEN 1280
1362 IF D=8 THEN 1280
1363 IF D>16 THEN 2330
1370 IF X1=1 THEN 1390
1380 GOTO 1410
1390 IF A1=1 THEN 1410
1400 IF X1=1 THEN 140
1410 IF X1=2 THEN 1430
1420 GOTO 1450
1430 IF A2=1 THEN 1450
1440 IF X1=2 THEN 290
1450 IF X1=3 THEN 1470
1460 GOTO 1490
1470 IF A3=1 THEN 1490
1480 IF X1=3 THEN 190
1490 IF X1=4 THEN 1510
1500 GOTO 1530
1510 IF A4=1 THEN 1530
1520 IF X1=4 THEN 240
1530 IF X1=5 THEN 1550
1540 GOTO 1570
1550 IF A5=1 THEN 1570
1560 IF X1=5 THEN 340
1570 IF X1=6 THEN 1590
1580 GOTO 1610
1590 IF A6=1 THEN 1610
1600 IF X1=6 THEN 400
1610 IF X1=7 THEN 1630
1620 GOTO 1650
1630 IF A7=1 THEN 1650
1640 GOTO 520
1650 IF X1=8 THEN 1670
1660 GOTO 1690
1670 IF A8=1 THEN 1690
1680 GOTO 570
1690 IF X1=9 THEN 1710
1700 GOTO 1730
1710 IF A9=1 THEN 1730
1720 GOTO 620
1730 IF X1=10 THEN 1760
1740 GOTO 1780
1760 IF B1=1 THEN 1780
1770 GOTO 660
1780 IF X1=11 THEN 1800
1790 GOTO 1820
1800 IF B2=1 THEN 1820
1810 GOTO 710
1820 IF X1=12 THEN 1840
1830 GOTO 1860
1840 IF B3=1 THEN 1860
1850 GOTO 760
1860 IF X1=13 THEN 1880
1870 GOTO 1900
1880 IF B4=1 THEN 1900
1890 GOTO 800
1900 IF X1=14 THEN 1920
1910 GOTO 1940
1920 IF B5=1 THEN 1940
1930 GOTO 850
1940 IF X1=15 THEN 1960
1950 GOTO 1980
1960 IF B6=1 THEN 1980
1970 GOTO 890
1980 IF X1=16 THEN 2000 
1990 GOTO 2020
2000 IF B7=1 THEN 2020
2010 GOTO 940
2020 IF X1=17 THEN 2040
2030 GOTO 2060
2040 IF B8=1 THEN 2060
2050 GOTO 990
2060 IF X1=18 THEN 2080
2070 GOTO 2100
2080 IF B9=1 THEN 2100
2090 GOTO 1040
2100 IF X1=19 THEN 2120
2110 GOTO 2140
2120 IF C1=1 THEN 2140
2130 GOTO 1090
2140 IF X1=20 THEN 2160
2150 GOTO 2180
2160 IF C2=1 THEN 2180
2170 GOTO 1140
2180 IF X1=21 THEN 2200
2190 GOTO 2220
2200 IF C3=1 THEN 2220
2210 GOTO 1190
2220 IF X1=22 THEN 2240
2230 GOTO 2260
2240 IF C4=1 THEN 2260
2250 GOTO 1240
2260 IF X1=23 THEN 2280
2270 GOTO 2300
2280 IF C5=1 THEN 2300
2290 GOTO 440
2300 GOTO 2320
2310 IF X1=24 THEN 1280
2320 GOTO 1360
2330 PRINT
2340 PRINT
2350 PRINT "             BY  A. COMPUTER."
2360 END
