10 ' ECRVERTI par B.L.B.
20 ' crée sur 6128 le 12/11/88
30 SYMBOL AFTER 32:MODE 0:h=HIMEM+1
40 LOCATE 12,5:a$="ALI-GATOR Dundee 7":GOSUB 70
50 LOCATE 9,22:GOSUB 100:CALL &BB06:END
60 ' écrit de haut en bas
70 FOR z=1 TO LEN(a$):a=ASC(MID$(a$,z,1)):c=h+((a-32)*8):FOR n=c TO c+7:a$((n+1)-c)=BIN$(PEEK(n),8):NEXT
80 FOR n=1 TO 8:b$="":FOR m=8 TO 1 STEP-1:b$=b$+MID$(a$(m),n,1):NEXT:POKE h+1784+n,VAL("&X"+b$):NEXT:PRINT CHR$(255)CHR$(8)CHR$(10);:NEXT:RETURN
90 ' écrit de bas en haut
100 FOR z=1 TO LEN(a$):a=ASC(MID$(a$,z,1)):c=h+((a-32)*8):m=8:FOR n=c TO c+7:a$(m)=BIN$(PEEK(n),8):m=m-1:NEXT
110 FOR n=1 TO 8 STEP 1:b$="":FOR m=8 TO 1 STEP-1:b$=b$+MID$(a$(m),n,1):NEXT:POKE (h+1792)-n,VAL("&X"+b$):NEXT:PRINT CHR$(255)CHR$(8)CHR$(11);:NEXT:RETURN