Generates random poetry in a specific pattern.
Content
Image Gallery
Source Code
10 REM Poetry
20 DIM A$(15,12): DIM B(15)
30 RANDOMIZE : GO TO 90
40 FOR M=1 TO 13
50 RESTORE 190+10*M
60 FOR G=1 TO RND*14+1: READ B$: NEXT G: LET A$(M)=B$
70 LET B(M)=LEN B$: NEXT M
80 RETURN
90 POKE 23692,0
100 FOR H=1 TO 15
110 GO SUB 40
120 PRINT '"THE ";A$(1, TO B(1));" ";A$(2, TO B(2));" ";A$(3, TO B(3))," IN THE ";A$(4, TO B(4));","
130 PRINT A$(5, TO B(5));" FOR A ";A$(6, TO B(6))," TO ";A$(7, TO B(7));" THE ";A$(8, TO B(8));"...."
140 PRINT A$(9, TO B(9));" ";A$(10, TO B(10));" IN ";A$(11, TO B(11))
150 PRINT " ....";A$(12, TO B(12));", ";A$(13, TO B(13));"."''''
160 PAUSE VAL "198"
180 NEXT H: GO TO 1
200 DATA "MAN","BOY","WOMAN","CHILD","SHADOW","ECHO","GIRL","MUTANT","PROPHET","MARTYR","REPUBLICAN","ROBOT","PRINCESS","WITCH","ANCHORMAN"
210 DATA "SANG","WAITED","SAID","SCREAMED","CRIED","PLEADED","PRAYED","STOOD","FELL","STUMBLED","READ","CURSED","CHANGED","MELTED","MOVED"
220 DATA "SADLY","GLADLY","SLOWLY","FAINTLY","MADLY","HUMBLY","LOUDLY","BITTERLY","QUIETLY","QUICKLY","CURIOUSLY","INTENTLY","SICKLY","POINTLESSLY","REASONABLY"
230 DATA "DARK","DOORWAY","GATEWAY","MORNING","EVENING","RUINED CITY","WASTELAND","MOTEL","CANYON","FOREST","ROCK CONCERT","ALIEN FILM","SWAMP","DESERT","FLYING SAUCER"
240 DATA "LOOKING","SEARCHING","HOPING","DESIRING","DESPAIRING","ASKING","PLEADING","WAITING","CRYING","REACHING","INTERESTED","DYING","WISHING","EVOLVING","MUTATING"
250 DATA "WAY","REASON","SIGN","FUTURE","WISH","BUS","DOOR","DEATH","TRUTH","LIFE","BOOK","TELEVISION","COKE","TELEPHONE","VOTER"
260 DATA "REACH","FEEL","MOVE","STEAL","SHARE","CHANGE","TWIST","FACE","DESIRE","BLAME","TOUCH","ABUSE","MOVE","CHANGE","CONSTRAIN"
270 DATA "MOON","MORNING","NIGHT","PAIN","FEAR","INSECTS","LIGHT","POWER","HATE","SUN","LAWYER","FISH","DEMOCRATS","RATS","CLOWNS"
280 DATA "TAKING","WATCHING","CHANGING","BLAMING","GETTING","TREMBLING","WONDERING","HOPING","SPEAKING","CALCULATING","HALUCINATING","RANTING","LOOKING","FEELING","ASPIRING"
290 DATA "HEART","PAST","HOW","WHY","DOWN","THROUGH","FOR","THEN","JUST","AS","NOW","WHEN","WHILST","ALMOST","LIKE","SIMULATING"
300 DATA "NOTHING","GIVING","FADING","DARING","LAUGHING","DYING","CRYING","CHANGING","BLAMING","GRASPING","ALL","FEARING","CAMPAIGNING","SELLING","RETREADING"
310 DATA "TAKING","WATCHING","CHANGING","BLAMING","GETTING","TREMBLING","WONDERING","HOPING","SPEAKING","CALCULATING","BORING","HIDING","BUILDING","WATCHING","FREAKING"
320 DATA "NOTHING","GIVING","FADING","DARING","LAUGHING","DYING","CRYING","CHANGING","BLAMING","GRASPING","SCHEMING","INSENSATE","EVOLVING","HURTING","LOVING","DRINKING"
9998 SAVE "POETRY" LINE 20