b'\n_START_ARTICLE_\nLSE (llenguatge)\n_START_SECTION_\nAspectes pol\xc3\xadtics\n_START_PARAGRAPH_\nDe fet, les ambicions educatives anunciades no deixaven de tenir segones intencions pol\xc3\xadtiques amb motius localitzats (a la ind\xc3\xbastria de la inform\xc3\xa0tica) a Fran\xc3\xa7a i a tot el m\xc3\xb3n, com es mostra en el seg\xc3\xbcent text, presentat per EPI (una associaci\xc3\xb3 de professors d\'inform\xc3\xa0tica) al Ministeri el 1982.\n_START_SECTION_\nAmpolles de cervesa\n_START_PARAGRAPH_\n1*CHANSON DES 99 BOUTEILLES DE BIERE_NEWLINE_  2*PASCAL BOURGUIGNON, <PJB@INFORMATIMAGO.COM>, 2003_NEWLINE_ 10 FAIRE 20 POUR N\xe2\x86\x9099 PAS -1 JUSQUA 1_NEWLINE_ 20 &STROF(N)_NEWLINE_ 30  AFFICHER[\'IL EST TEMPS D\xe2\x80\x99\xe2\x80\x99ALLER AU MAGASIN.\',/]_NEWLINE_ 40 TERMINER_NEWLINE_100 PROCEDURE &STROF(N) LOCAL S1,S0;CHAINE S1,S0;S1\xe2\x86\x90"S";S0\xe2\x86\x90"S"_NEWLINE_110 SI N=2 ALORS S0\xe2\x86\x90"" SINON SI N=1 ALORS DEBUT S1\xe2\x86\x90"";S0\xe2\x86\x90"" FIN_NEWLINE_120 AFFICHER[U,\' BOUTEILLE\',U,\' DE BIERE SUR LE MUR.\',/]N,S1_NEWLINE_130 AFFICHER[U,\' BOUTEILLE\',U,\' DE BIERE.\',/]N,S1_NEWLINE_140 AFFICHER[\'EN PRENDRE UNE, LA FAIRE PASSER.\',/]_NEWLINE_150 AFFICHER[U,\' BOUTEILLE\',U,\' DE BIERE SUR LE MUR.\',2/]N-1,S0_NEWLINE_160 RETOUR\n_START_SECTION_\nAnagrama recurrent\n_START_PARAGRAPH_\nExemple del document sobre Jacques Arsac LSE83:_NEWLINE_ 1 CHAINE A,B,BP_NEWLINE_5 FAIRE_NEWLINE_10 AFFICHER \'A = \' ;LIRE A\xc2\xa0; SI A=\xe2\x80\x99\xe2\x80\x99 ALORS FINI IS_NEWLINE_11 AFFICHER \'B = \' ;LIRE B\xc2\xa0; BP \xe2\x86\x90 B_NEWLINE_12_NEWLINE_15 R SI LGR(A) # LGR(B) ALORS .FAUX. SINON &ANAG(A,B) IS_NEWLINE_20 SI R ALORS AFFICHER A, \'EST ANAGRAMME DE \',BP_NEWLINE_21 SINON AFFICHER A, \'N\xe2\x80\x99\xe2\x80\x99EST PAS ANAGRAMME DE 1, BP_NEWLINE_22 IS_NEWLINE_25 BOUCLER_NEWLINE_29_NEWLINE_30 TERMINER_NEWLINE_31_NEWLINE_50 FONCTION &ANAG(U,V) LOCAL J {lgr(u)=lgr(v)}_NEWLINE_51 SI U=\' \' ALORS RESULTAT .VRAI. IS_NEWLINE_52 SI J = 0 ALORS RESULTAT .FAUX. IS_NEWLINE_54 RESULTAT &ANAG(SCH(U,2, \' \'),MCH(V,J,l, \' \'))_NEWLINE_55 $&ANAG_NEWLINE_99 $\n_START_SECTION_\nExemple LSE2000\n_START_PARAGRAPH_\n* Alguns estats_NEWLINE_* Seguit d\'un bucle_NEWLINE_BOOLEEN A\xe2\x86\x90.VRAI.,B\xe2\x86\x90.FAUX._NEWLINE_ENTIER U,W,X\xe2\x86\x90200_NEWLINE_NOMBRE PI\xe2\x86\x903.14159_NEWLINE_CHAINE CHN_NEWLINE_TABLEAU DE ENTIER TBL[3,3]_NEWLINE_QUEUE DE CHAINE Q[8]_NEWLINE_ENSEMBLE DE NOMBRE  NPREMIER\xe2\x86\x90{1.0,2.0,3.0,7.0}_NEWLINE__NEWLINE_CHN\xe2\x86\x90\'Salut\'_NEWLINE_X \xe2\x86\x90 SELON X ALORS 1,2,3,7,11 SINON 0_NEWLINE_POUR U\xe2\x86\x900 JUSQUA 2 FAIRE_NEWLINE_    POUR W\xe2\x86\x900 JUSQUA 2 FAIRE_NEWLINE_        TBL[U,W]\xe2\x86\x90X_NEWLINE_    BOUCLER_NEWLINE_BOUCLER_NEWLINE_TERMINER'