Voting
Category
real language
Bookmarking
Language L.S.E.
| Date: | 04/20/05 |
| Author: | Pascal Bourguignon |
| URL: | n/a |
| Comments: | 1 |
| Info: | n/a |
| Score: |  (2.85 in 13 votes) |
Here is a version of of the program in L.S.E. (Langage Symbolique d'Enseignement), a French programming language used in the 1970's on mini-computers (and later on early micro-computers) in high-schools (Lycées) in France. 1*CHANSON DES 99 BOUTEILLES DE BIERE 2*PASCAL BOURGUIGNON, <PJB@INFORMATIMAGO.COM>, 2003 10 FAIRE 20 POUR N_99 PAS -1 JUSQUA 1 20 &STROF(N) 30 AFFICHER['IL EST TEMPS D''ALLER AU MAGASIN.',/] 40 TERMINER 100 PROCEDURE &STROF(N) LOCAL S1,S0;CHAINE S1,S0;S1_"S";S0_"S" 110 SI N=2 ALORS S0_"S" SINON SI N=1 ALORS DEBUT S1_"";S2_"" FIN 120 AFFICHER[U,' BOUTEILLE',U,' DE BIERE SUR LE MUR.',/]N,S1 130 AFFICHER[U,' BOUTEILLE',U,' DE BIERE.',/]N,S1 140 AFFICHER['EN PRENDRE UNE, LA FAIRE PASSER.',/] 150 AFFICHER[U,' BOUTEILLE',U,' DE BIERE SUR LE MUR.',2/]N-1,S0 160 RETOUR
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments