pour depart
rg ct vc vt suite fin

pour suite
ec[Vous tes au McDonald]
ec[Que choisirez-vous ?]ec[]
ec[Voici la liste]
ec[des mets disponibles :]points vt
ec[| a. Hamburger............2,90 FS|]
ec[| b. Cheeseburger.........3,10 FS|]
ec[| c. Big Mac..............5,70 FS|]
ec[| d. Coca petit....2,5.dl.2,10 FS|]
ec[| e. Coca moyen....4,0.dl.2,70 FS|]
ec[| f. Coca grand....5,0 dl.3,10 FS|]
ec[| g. Frites petite........2,00 FS|]
ec[| h. Frites moyenne.......2,60 FS|]
ec[| i. Frites grande........2,90 FS|]
ec[| j. Glace vanille........2,65 FS|]
ec[| k. Chausson aux pommes..2,50 FS|]
ec[]ec[Pressez les lettres des plats choisis !]
ec[La commande finie, pressez S !]
donne "t 0 commande fin

pour commande
donne "k liscar
si :k = "a[affiche donne "t :t + 2.90]
si :k = "b[affiche donne "t :t + 3.10]
si :k = "c[affiche donne "t :t + 5.70]
si :k = "d[affiche donne "t :t + 2.10]
si :k = "e[affiche donne "t :t + 2.70]
si :k = "f[affiche donne "t :t + 3.10]
si :k = "g[affiche donne "t :t + 2.00]
si :k = "h[affiche donne "t :t + 2.60]
si :k = "i[affiche donne "t :t + 2.90]
si :k = "j[affiche donne "t :t + 2.65]
si :k = "k[affiche donne "t :t + 2.50]
si :k = "s[total]
commande fin

pour affiche
son 523 1 son 1045 1 son 523 1
(insere :k car 32)fin

pour points
repete 20[son 262 1 insere[.]attends 1]son 523 1 fin


pour total
ec[]ec[]
insere[|Somme  payer : ....... |]
insere :t  
si :t = entier :t[insere[|,0|]]
si(10 * :t - entier 10 * :t)= 0
[insere 0]ec[| FS|]
ec[Pressez une touche pour continuer !]
donne "w liscar depart fin
