10 ' ECRITALI par B.L.B. 20 ' crée sur 6128 le 23/10/88 30 SYMBOL AFTER 32:a$="ALI-GATOR Dundee 7":h=HIMEM+1 40 FOR mo=0 TO 2:MODE mo:LOCATE CINT(((INT(mo^1.6)*20+20)-LEN(a$))/2),12 50 GOSUB 60:LOCATE 1,25:PRINT"Une touche...":CALL &BB06:NEXT:END 60 PRINT CHR$(22);CHR$(1);:FOR z=1 TO LEN(a$):c=h+((ASC(MID$(a$,z,1))-32)*8):IF c=h THEN PRINT" ";:GOTO 90 70 FOR d=0 TO 7:h$=STRING$(8-d,48)+BIN$(PEEK(c+d),8)+STRING$(d,48) 80 POKE 42732+d,VAL("&X"+LEFT$(h$,8)):POKE 42740+d,VAL("&X"+MID$(h$,9,8)):NEXT:PRINT CHR$(254);CHR$(255);CHR$(8); 90 NEXT:PRINT CHR$(22);CHR$(0);:RETURN 100 ' pour l'écriture penchée à gauche remplacer la ligne 70 par: 70 FOR d=0 TO 7:h$=STRING$(d,48)+BIN$(PEEK(c+d),8)+STRING$(8-d,48)