10 ' ECRITRAV par B.L.B. 20 ' cree sur 6128 le 20/05/91 30 SYMBOL AFTER 32:MODE 1:x=100:y=132 40 INK 0,0:INK 1,26:INK 2,26:INK 3,26:PAPER 0 50 FOR m=1 TO 6:READ a$:x=x+20:y=y-20:GOSUB 70:NEXT 60 FOR n=1 TO 3:INK n,INT(RND*25)+1:NEXT:GOTO 60 70 FOR c=0 TO 7:ORIGIN x+(c*2),y-(c*2) 80 FOR n=1 TO LEN(a$):a=c+HIMEM+1+((ASC(MID$(a$,n,1))-32)*8) 90 MASK PEEK(a):DRAWR 14,14,(c MOD 3)+1:DRAWR 2,2,0 100 NEXT:NEXT:RETURN 110 DATA "MICROZINE FREEWARE" 120 DATA "est tres  fier  de" 130 DATA "vous presenter  le" 140 DATA "premier  programme" 150 DATA "permettant d'ecri-" 160 DATA "re de travers !!"