From 88c23128a80cae8f8659edd19d57abc16f66b659 Mon Sep 17 00:00:00 2001 From: Renaud Fivet Date: Fri, 7 Jun 2024 10:21:22 +0800 Subject: [PATCH] Add POETRY. --- dec/POETRY.BAS | 231 +++++++++++++++++++++++++++++++++++++++++++++ factory/POETRY.BAS | 92 ++++++++++++++++++ port/POETRY.BAS | 231 +++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 554 insertions(+) create mode 100644 dec/POETRY.BAS create mode 100644 factory/POETRY.BAS create mode 100644 port/POETRY.BAS diff --git a/dec/POETRY.BAS b/dec/POETRY.BAS new file mode 100644 index 0000000..f08519a --- /dev/null +++ b/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 diff --git a/factory/POETRY.BAS b/factory/POETRY.BAS new file mode 100644 index 0000000..f8999b6 --- /dev/null +++ b/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 diff --git a/port/POETRY.BAS b/port/POETRY.BAS new file mode 100644 index 0000000..bbecb9d --- /dev/null +++ b/port/POETRY.BAS @@ -0,0 +1,231 @@ + 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