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