PHRASETMPLINEPTOTLETMINDEXMAXSTAMAXLIREININDSKICOMMENDLIENDSTSTNCNMAXSTLINCNLINLERNINDIDPNTLINELEGROUINDELNELNLETPHRASPHRASEF2&+dAAG@@ A @ ?0 ?? ? ???Y2#c@@@@C?0@@@ !"@#$%&'()*d** POET **n!!ADAPTED SEPTEMBER 1980 FROMx "PROGRAMMING FOR POETS" BYCONWAY AND ARCHER B??;A,;@P,;A,9@ ,9@ ,AR@ " 6-P:,6-P:,; @)!@0;6-P:@0$H:,,%@; @)!@;6-P:@$H:,,%@"READ IN PHRASES$6-$68,-@-@@ " 6-B:,9"6 ** ERROR ** - PHRASE  IS NULL9&67%@,. 6-%68,-%@ "PRINT CENTERED TITLE',+ }+6-P:@$H:,,%@1$$6.78&@,<8,&@,6))-@P:+@8&B:,,'@,;  = > @  A POEMJ  LOSTART MAIN LOOPSQT-@^-@h 6.r6-|"@A`INDENT PARAGRAPH6-H:,!A0 6. 6-@!A`6. 6-@SET UP "INFINITE" LOOP-@BCHECK FOR PHRASE REPETION"@AH:,!A6-8,&8&@,%!@UA7,2AA`6-%@&67,.,067%@,. ://67%@,.78&@,<8,&@,D6-%@%N AX]SELECT RANDOM PHRASEbl''6-%@%P:@$H:,,v!@6-&@116-P:@$H:,,%+@$,%@6-8,&8&@,%!@WA//67%@,.78&@,<8,&@, 6-%PUNCTUATION PROCESSING7,2AA@H:,!A@6-%@67,.,H:, A6-%@67,.   READY TO PRINT LINE''2%@E@@  %STANZA TERMINATION*4##7,4.)H:, A`>H:,!APH  R \  f p-@@ z%%2 -- ANON0 ( 0(" ** HIT FOR ANOTHER POEM **AdAU F:Ad,"AUA "F:Ad,"@" A@AR DATA IS IN FOLLOWING ORDER11MAX # OF STANZAS, MAX # OF LINES PER STANZA22PROB. OF REPETITION, PROB. OF 2-SPACE INDENT55PROB. OF 5-SPACE INDENT, PROB. OF SKIPPING LINE00PROB. OF COMMA, END OF LINE, END OF STANZA2,21,.3,.3,.1,.2,.2,.8,.1$$DUE TO ATARI'S STRING HANDLING&&PHRASES MUST NOT CONTAIN A COMMAOH PROGRAM MY PROGRAMOH MIGHTY MAIN PROCEDURELOOPS AND CONDITIONS%%READS AND PRINTS GO TOS AND DOS&&DECLARATIONS -- NOT SPECULATIONS$NESTING EVER DEEPER.ONE AFTER ANOTHER8STEP BY PATIENT STEPB PAGE AFTER PAGE AFTER PAGEL!!ALWAYS SO PERFECTLY PRECISEVCRAFTED WITH LOVING CARE`WITH NEVER AN ERRORjPROSE OF SUCH BEAUTYtAN ELEGANT STRUCTURE~AH -- FORM BEYOND COMPARETO EXECUTE FOREVER --PROGRAMMER'S JOYWHAT CAN YOU NOT DO?CORRECT BEYOND QUESTIONA CLASSIC CONSTRUCTIONv ** FONT LOADING PROGRAM **vCOPIED FROM IRIDIS2vSEPTEMBER 1980$w&6-F:A,;@ ,&6.)w NAME OF SPECIAL FONT+w&& (HIT FOR CURRENT FONT):,w4B.wW6-$AV"6-AU&F:,(1F:,"?AU&M6-%@W B8w66-&@  F:A,,A6+Bw6-%@6-$AVLwF:AV,BVw 6-B:,6-&&@`w-@6@jw"6-@:7,,"F:%,Btw"@::,B~w  Bw4 B*@@4 B0wy/F:A,"A0*7@<@,4DV PUT TAPE WITH  INTO CASSETTE.o67@<@,.Cy Bw  CAN'T FIND .w: BP  }LOADING (6-@:X,:AR@w_-A#$)@,%8 >:,F6-A&J U@_ B`wB ++ CAN'T LOAD COMPLETE FONT.?&@Bw 6-B:,6-&&@w-@6@w*6-@:7,,%*"@::,Bw w!AV!ARw$ D2:POETRY