Ce programme charge une langue en cours de route, et implemente quasiment toutes les fonction du langage.
LANG lang_FR.txt
EFFACER
VITESSE 200 200
ALLER_A 0 550
DEF_LARGEUR_DESSIN 100
DEF_COULEUR_DESSIN 0 255 0
DESSINER true
LIGNE 600 0
ALLER_A 100 550
DEF_VAR LARGEUR_MAISON 50
DEF_VAR COULEUR 100
POUR MAISON DE 1 A 4 PAS 1
VITESSE 50 50
ADDI $COULEUR 20
DEF_LARGEUR_DESSIN 50
DEF_COULEUR_DESSIN $COULEUR $COULEUR $COULEUR
LIGNE 0 -50
VITESSE 50 50
POUR TOIT DE 50 A 0 PAS -2
DEF_LARGEUR_DESSIN $TOIT
DEPLACER_DE 0 -1
BOUCLER TOIT
DESSINER false
LIGNE -25 75
DESSINER true
DEF_COULEUR_DESSIN 255 0 0
LIGNE 50 0
LIGNE 0 -30
LIGNE -5 0
LIGNE 0 -5
LIGNE 5 0
LIGNE 0 -15
LIGNE -25 -25
LIGNE -25 25
LIGNE 0 15
LIGNE 5 0
LIGNE 0 5
LIGNE -5 0
LIGNE 0 30
LIGNE 20 0
LIGNE 0 -10
LIGNE 10 0
LIGNE 0 10
DESSINER false
LIGNE 75 0
DESSINER true
ADDI $LARGEUR_MAISON 2
BOUCLER MAISON
ALLER_A 500 600
DEF_COULEUR_DESSIN 0 150 0
POUR LARGEUR DE 100 A 0 PAS -1
DEPLACER_DE 0 -1
DEF_LARGEUR_DESSIN $LARGEUR
BOUCLER LARGEUR
