TO ON_ERROR CLEARTEXT IF ERROR = 0 [PR [pïüúéà nå làâéûø?!] START_UP] [ERALL] END TO START_UP LOOP [POET REPEAT 10 [TYPE "] PR [* * *] PR "] END TO POET RECYCLE MAKE "RAZMER [] MAKE "STROFA [] REPEAT 2 [MAKE "RAZMER FPUT FORMCHAB :RAZMER] MAKE "RAZMER SE :RAZMER :RAZMER FORMSTROF :RAZMER SAYSTROF END TO SAYSTROF MAKE "I 1 REPEAT 4 [PR ITEM :I :STROFA MAKE "I :I + 1] END TO FORMSTROF :RAZMER RECYCLE IF EMPTYP :RAZMER [STOP] [] MAKE "FRAZ [] MAKE "ROD 0 RAZBOR FIRST :RAZMER MAKE "STROFA LPUT :FRAZ :STROFA FORMSTROF BF :RAZMER END TO RAZBOR :CHABLON IF EMPTYP :CHABLON [STOP] [] IF (FIRST :CHABLON) = "M [MAKE "SLOW MAKEMEST] [] IF (FIRST :CHABLON) = "G [MAKE "SLOW MAKEGLAG] [] IF (FIRST :CHABLON) = "P [MAKE "SLOW MAKEPRIL] [] IF (FIRST :CHABLON) = "S [MAKE "SLOW MAKESUCH] [] IF (FIRST :CHABLON) = "E [MAKE "SLOW MAKEERUND] [] IF (FIRST :CHABLON) = "K [MAKE "SLOW MAKEKRATK] [] IF (FIRST :CHABLON) = "káë [MAKE "SLOW "káë] [] IF (FIRST :CHABLON) = "dá [MAKE "SLOW "dá] [] MAKE "FRAZ LPUT :SLOW :FRAZ RAZBOR BUTFIRST :CHABLON END TO MAKEMEST IF :ROD = 0 [SLUCHR] [] OP ITEM :ROD MEST END TO MAKEGLAG IF :ROD = 0 [SLUCHR] [] MAKE "CH ITEM (1 + RANDOM COUNT BL GLAG) GLAG IF MEMBERP LAST :CH [v { } ~] [OP WORD :CH ITEM :ROD [u iûø iô iô ií iôå uô iô]] [OP WORD :CH ITEM :ROD [` iûø iô iô ií iôå `ô iô]] END TO MAKEPRIL IF :ROD = 0 [SLUCHR] [] MAKE "CH BL MAKEKRATK IF MEMBERP LAST :CH [k h] [OP WORD :CH ITEM :ROD [iê iê iê añ iå iå iå oå]] [OP WORD :CH ITEM :ROD [yê yê yê añ yå yå yå oå]] END TO MAKESUCH IF :ROD = 0 [SLUCHR] [] IF MEMBERP :ROD [1 2 3] [OP MAKESUMR] [] IF :ROD = 4 [OP MAKESUGR] [] IF (RANDOM 2) > 1 [OP MAKESUGR] [OP MAKESUMR] END TO MAKEERUND OP ITEM 1 + (RANDOM COUNT BL ERUND) ERUND END TO MAKEKRATK OP WORD ITEM 1 + (RANDOM COUNT BL PRIL) PRIL "o END TO SLUCHR MAKE "ROD ROUND 1 + RANDOM COUNT BL MEST END TO MEST OP [q tù oî oîá mù wù oîé oîï] END TO GLAG OP [làâ gìáä dåòö sáä wáò síïôò gï÷ïò gïî sìùû wéä nåîá÷éä sôï kòéþ wåò måò páò wáò váò séä kïòí sìá÷] END TO MAKESUMR MAKE "CH ITEM 1 + (RANDOM COUNT BL SUMR) SUMR IF AND MEMBERP :ROD [5 6 7] MEMBERP (LAST :CH) [k h] [OP WORD :CH "i] [MAKE "CH WORD :CH ITEM :ROD [_ _ _ a y y y O] IF (LAST :CH) = "_ [OP BUTLAST :CH] [OP :CH]] END TO MAKESUGR MAKE "CH ITEM 1 + (RANDOM COUNT BL SUGR) SUGR IF AND MEMBERP :ROD [5 6 7] MEMBERP LAST :CH [k h] [OP WORD :CH "i] [OP WORD :CH ITEM :ROD [a a a a y y y o]] END TO ERUND OP [wïô uöåìø o! dïëïìå káë_sôòáîîï! o,bïöå uöáó! nå÷ïúíïöîï! eóìé...] END TO PRIL OP [kòáóî båì zåìåî gìõð uíî zìïâî kòáóé÷ séìøî sìáâ wåôòåî oëáñî pïëáñî oâõñî oâõô oäåô ráúäåô ráúõô téè gòïíë pïóôïñî wåþî wòåíåî pòéâéô pïóìáî kéîõô pòéóìáî wùçîáî s÷éòåð méòïìàâé÷ záâá÷î qòïóôî båóã÷åôî] END TO SUGR OP [kïûë h÷ïòïóôéî båòåú sìåú dõò dåâéìë záîõä påþë s÷åþ s÷åþë lïöë kòõöë záðïîë då÷þïîë lïäë tåìë pôéþë kéòë pïòë kïòï÷ kïú pïìë ná÷ïìïþë] END TO SUMR OP [kïô vé÷ïô zá÷ïä båçåíïô bïìô kòåôéî dõòáë lïðõè sõíòáë wåôåò kòïëïäéì såíáæïò gõóáò gõóáë påôõè påòåðåì wùèõèïì záðáä wïóôïë sðõôîéë wéîôéë {ðõîôéë kéûìáë iûáë uòàë záâïò péöïî] END TO FORMCHAB OP ITEM 1 + RANDOM 5 [[E M G K] [G S K dá K] [E M káë S G] [K dá K káë S P] [káë P P S] [M S G K] ] END