BCG101/port/POETRY.BAS

 100 RANDOMIZE
 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 EXTINGUISHED"
 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 A6=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 DESCENDED"
 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 MISSING 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 BEGINNING..."
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 2033
1350 LET X=RND(-1)*24
1360 LET X1=INT(X)+1
1361 IF D=4 THEN1280
1362 IF D=8 THEN1280
1363 IF D>16 THEN 2033
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 THEN1510
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
1610IF 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 2002
2000 IF B7=1 THEN 2002
2001 GO TO 940
2002 IF X1=17 THEN 2004
2003 GO TO 2006
2004 IF B8=1 THEN 2006
2005 GO TO 990
2006 IF X1=18 THEN 2008
2007 GO TO 2010
2008 IF B9=1 THEN 2010
2009 GO TO 1040
2010 IF X1=19 THEN 2012
2011 GO TO 2014
2012 IF C1=1 THEN 2014
2013 GO TO 1090
2014 IF X1=20 THEN 2016
2015 GO TO 2018
2016 IF C2=1 THEN 2018
2017 GO TO 1140
2018 IF X1=21 THEN 2020
2019 GO TO 2022
2020 IF C3=1 THEN 2022
2021 GO TO 1190
2022 IF X1=22 THEN 2024
2023 GO TO 2026
2024 IF C4=1 THEN 2026
2025 GO TO 1240
2026 IF X1=23 THEN 2028
2027 GO TO 2030
2028 IF C5=1 THEN 2030
2029 GO TO 440
2030 GO TO 2032
2031 IF X1=24 THEN 1280
2032 GO TO 1350
2033 PRINT
2034 PRINT
2035 PRINT "                      BY A. COM PUTER."
2036 END