Add POETRY.

dec/POETRY.BAS

@@ -0,0 +1,231 @@
+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 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 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 THEN1280
+1362 IF D=8 THEN1280
+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 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 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

factory/POETRY.BAS

@@ -0,0 +1,92 @@
+ 100 RANDOMIZE
+ 110 DIM A(24)
+ 130 GO TO 1300
+ 140 PRINT "THE HOURS RISE UP PUTTING OFF STARS"
+ 170 PRINT "    AND IT IS DAWN"
+ 180 GO TO 1350
+ 190 PRINT "INTO THE STREET OF THE SKY LIGHT"
+ 220 PRINT "    WALKS SCATTERING POEMS"
+ 230 GO TO 1350
+ 240 PRINT "ON EARTH A CANDLE IS EXTINGUISHED"
+ 270 PRINT "    THE CITY WAKES"
+ 280 GO TO 1350
+ 290 PRINT "WITH A SONG UPON HER MOUTH"
+ 320 PRINT "    HAVING DEATH IN HER EYES"
+ 330 GO TO 1350
+ 340 PRINT "AND IT IS DAWN"
+ 350 PRINT "              THE WORLD"
+ 380 PRINT "    GOES FORTH TO MURDER DREAMS"
+ 390 GO TO 1350
+ 400 PRINT "  AND IT IS DAY"
+ 430 GO TO 1350
+ 440 PRINT "IN THE MIRROR I SEE A MAN, AND HE"
+ 450 PRINT "     SCREAMS"
+ 480 PRINT "FOR HE IS ME"
+ 490 D=D+1
+ 500 PRINT "            AND I HE"
+ 510 GO TO 1350
+ 520 PRINT "AND IT IS DUSK"
+ 550 PRINT "              ON EARTH"
+ 560 GO TO 1350
+ 570 PRINT "A CANDLE IS LIGHTED"
+ 600 PRINT "    AND IT IS DARK"
+ 610 GO TO 1350
+ 620 PRINT " THE PEOPLE ARE IN THEIR HOUSES"
+ 650 GO TO 1350
+ 660 PRINT "SHE SLEEPS WITH DEATH UPON HER MOUTH"
+ 690 PRINT "    AND A SONG IN HER EYES"
+ 700 GO TO 1350
+ 710 PRINT " THE HOURS DESCENDED"
+ 740 PRINT "                   PUTTING ON STARS"
+ 750 GO TO 1350
+ 760 PRINT "NOBODY LOSES ALL THE TIME "
+ 790 GO TO 1350
+ 800 PRINT "HIS MOST WISE MUSIC STOLE"
+ 830 PRINT "    NOTHING FROM DEATH"
+ 840 GO TO 1350
+ 850 PRINT "LOVE IS THE EVER ONLY GOD"
+ 880 GO TO 1350
+ 890 PRINT "WHO SPOKE THIS EARTH SO GLAD AND BIG"
+ 920 PRINT "    EVEN A THING ALL SMALL AND SAD"
+ 930 GO TO 1350
+ 940 PRINT "WHO IS AFRAID OF DEATH?  THOU"
+ 970 PRINT "    ART OF HIM"
+ 980 GO TO 1350
+ 990 PRINT "OR WITH THY MIND AGAINST MY MIND,"
+1020 PRINT "    YOU SHOULD NOT HEAR ME SPEAK"
+1030 GO TO 1350
+1040 PRINT "FOR IF HE IS GONE AND I AM HERE"
+1070 PRINT "    THERE IS NO MEETING"
+1080 GO TO 1350
+1090 PRINT " TIME IS TWISTED TO LAP UPON"
+1120 PRINT "     ITSELF FOREVER"
+1130 GO TO 1350
+1140 PRINT "AND SPACE IS MISSING FOR IT WAS "
+1170 PRINT "STOLEN FOR ALL TIME TO COME "
+1180 GO TO 1350
+1190 PRINT "THERE IS NEVER AN END,"
+1220 PRINT " MERELY A BELATED BEGINNING..."
+1230 GO TO 1350
+1240 PRINT "AND TWICE REPEATED THERE"
+1250 PRINT "    WAS NO MORE"
+1260 D=D-1
+1270 GO TO 1350
+1280 PRINT
+1285 A(24)=0
+1290 GO TO 1350
+1300 PRINT " RANDOM POETRY IN FOUR PART HARMONY."
+1310 PRINT
+1320 PRINT
+1350 D=D+1
+1360 IF D>=16 THEN 1500
+1370 IF D-INT(D/4)*4=0 THEN 1280
+1400 X=INT(RND(1)*24)+1
+1410 IF A(X)<>0 THEN 1400
+1420 A(X)=1
+1430 IF X>12 THEN 1450
+1440 ON X    GOTO 140,190,240,290,340,400, 440, 520, 570, 620, 660, 710
+1450 ON X-12 GOTO 760,800,850,890,940,990,1040,1090,1140,1190,1240,1280
+1500 PRINT
+1510 PRINT
+1520 PRINT "                      BY A. COM PUTER."
+2000 END