Olivier Schmidt-Chevalier - 2001


Logo peut aussi rendre des services dont nous pourrions avoir besoin. Ce jour là, j'étais à la recherche des codes ASCII de ma machine. En illustration, ceux du Pentium sur lequel je fabrique ces pages sous Windows 98.
Je vais donc demander gentiment à Logo de me lister ces codes sur l'écran texte.

POUR T :N ;;table des caractères ASCII
SI :N > 255 [EC " STOP]
TAPE PH PH CAR :N ASCII CAR :N CAR 0
T :N + 1
FIN

POUR OT
ME 27 VT EC "
EC PH PH [De CAR 1 à CAR 255 avec ASCII. EX.:] CAR 249 ASCII CAR 249
EC " T 1 EC "
EC PH PH [Olivier Schmidt-Chevalier] CAR 249 [1993]
FIN

Et, déjà, vous remarquez la non compatibilité des codes ASCII de DOS à Windows ; tous deux de Microsoft, il faut le faire ! [le à devenant &] ... Evidement, je corrige à chaque fois ; ou presque ...


Fermons la parenthèse et revenons à une autre illustration de ma conception du Logo-Lego et, comme indiqué dans ces pages, regardons comment nous pourrions introduire la PAO aux enfants en mettant au point un texte écris et mis-en-page sur l'écran texte (et non plus sur l'écran graphique comme les logos en Logo de la page précédente).

Le premier exemple est un exercice personnel en souvenir de la devise affichée dans le Hall du CMIRH à ses débuts ; illustration de la pédagogie Logo et de ma conception de l'enseignement.

POUR TXT
ME 25 FTCAR [2 2]
FCURS [12 2] FCT 2
EC [Logo-Lego]
FCURS [1 6] FCT 15
EC [Si un homme a faim]
FCURS [1 9]
EC [Ne lui donne pas un]
FCURS [1 11]
EC [poisson]
FCURS [6 14]
EC [Apprends-lui]
FCURS [6 16]
EC [à pêcher]
FTCAR [1 1] FCURS [20 22] FCT 3
EC [Koan japonais] FCT 1
FIN

 

Le second exemple a été réalisé par deux élèves à partir d'un travail entrepris avec leur maîtresse. Vous remarquez que nous faisions bien attention de remettre la taille et la couleur des caractères ainsi qu'ils le sont en ouvrant Logo, ce, en prévision d'un autre travail et par souci de réaliser une programmation "propre".

POUR PROV
ME 25
FTCAR [2 2]
FCURS [12 3]
FCT 15 EC [PROVERBE]
FCURS [1 8]
FCT 12 EC [Qui va à la chasse]
FCURS [8 10]
FCT 10 EC [perd sa place]
FTCAR [1 1]
FCURS [10 19]
FCT 3 EC [Fatimata Candice]
FCURS [7 21]
FCT 8 EC [St. Ouen CM2a, 1991-1992] FCT 1
FIN

 


Mélangeons ce que nous avons vu en début de cette page et la suite en fabriquant une signature qui peut, par la suite, être ajoutée à n'importe quel programme ; mais, de l'idée à la pratique ...

POUR SIGNE
ME 27 VT
FTCAR [2 2]
FCURS [5 26]
EC PH CAR 249 [Olivier Schmidt-Chevalier, 1993]
FTCAR [1 1] EC "
FIN



Ecran graphique, écran texte ; utilisant l'un ou l'autre, pourrions-nous simuler des économiseurs d'écran en Logo ? J'ai joué à cela sans aller jusqu'au teste consistant à faire en sorte que, dès que l'on appuie sur une touche du clavier, l'économiseur s'arrête et nous redonne la main.

La première suite de procédures utilise les connaissances vues plus haut dans cette même page.

POUR FBQ0D :CO :LI :X :COUL
SI :X > 5 [RECYCLE STOP]
SI :COUL > 15 [DONNE "COUL 1]
SI :CO > 52 [DONNE "CO 2 DONNE "LI :LI + 2]
SI :LI = 25 [RECYCLE DONNE "X :X + 1 FBQ0D 0 1 :X :CO]
FCURS LISTE :CO :LI FCT :COUL TAPE [Papy Logo] ATTENDS 555
FCURS LISTE :CO :LI FCT 0 TAPE [Papy Logo] ATTENDS 888
FBQ0D :CO + 10 :LI :X :COUL + 1
FIN

;;:LIgne,:COlonne,:Xfois, 1 compteur et :COULeurs
;;FBQ = Foo Bar de Quux, pour les Lispo-Unixiens !

POUR ECO3
ME 27 VT FTCAR [2 2]
FBQ0D 0 1 0 1
FTCAR [1 1] FCT 15
FIN

 


Le second économiseur d'écran utilise, tout simplement, les Lutins dont nous parlons ailleurs dans ces pages où j'explique aussi pourquoi je choisis d'illustrer avec des copies d'écran et non par des animations vidéo. Ce n'est pas parce-que j'ai eu la chance de passer d'un i486 (avec lequel je débutais mon Site) à un Pentium (Celeron) sur lequel je poursuis son écriture, que c'est le cas pour tout le monde ; donc, je tente de faire en sorte de pouvoir être lu, aussi, par des visiteurs moins bien équipés.

POUR MOVE ;;action (silence, on tourne !)
FTORTUE [0 1 2 3 4 5 6 7]
LC AV 1 BC
MOVE
FIN

POUR DIS ;;tribution des rôles
FTORTUE 0 LC FPOS [310 170] BC FCAP 270 FCC 11
FTORTUE 1 LC FPOS [-310 -150] BC FCAP 90 FCC 12 MT
FTORTUE 2 LC FPOS [310 -170] BC FCAP 270 MT ;;fcc différents
FTORTUE 3 LC FPOS [-310 150] BC FCAP 90 MT ;;suivant Tortue
FTORTUE 4 LC FPOS [310 170] BC FCAP 225 MT ;;à créer ou retrouver
FTORTUE 5 LC FPOS [-310 -150] BC FCAP 45 MT
FTORTUE 6 LC FPOS [310 -170] BC FCAP 135 MT
FTORTUE 7 LC FPOS [-310 150] BC FCAP 315 MT
FIN

POUR GO
;;simplement do it, man...
ENR VT
EC [Ctrl C pour arrêter]
;;si vous ne rencontrez pas
;;de problème avant ...
DIS MOVE
FIN

 


Le troisième et dernier est le plus évident et plus simple des trois. On pourrait ré-écrire celui-ci en y introduisant cette notion de hasard que connait bien Logo ...

POUR PIXFOO
TD 35 REPETE 1000 [AV 15 FCC CC + 1]
TD 70 REPETE 1000 [AV 35 FCC CC + 1]
FIN

POUR PXF
RECYCLE
REPETE 10 [PIXFOO FCAP 0]
FIN

POUR ECO ;;un économiseur d'écran. Une boucle > est possible sur
;;Atari, mais sous DOS, Profil s'est planté sujet piles
ENR CT VT REPETE 2 [EC "]
EC [----------- C'est FOO, non ?!... -------- OSC - 94 --------]
EC " EC [Ctrl C pour arrêter ...] ;;à vous de finaliser !...
REPETE 10 [PXF VE CT]
FIN

 

  Contenu PL

  Précédente

Suite