10 ' CARTOURN par B.L.B. 20 ' créé sur 6128 le 10/04/90 30 MODE 1:SYMBOL AFTER 32 40 a$="MICROZINE et B.L.B. Soft 1990 présente.." 50 FOR n=1 TO LEN(a$):b$=MID$(a$,n,1):c=40956+((ASC(b$)-32)*8) 60 IF b$=" " THEN 180 70 FOR m=0 TO 7:m(m+1)=PEEK(c+m):NEXT 80 SYMBOL 248,0,0,0,m(4) 90 SYMBOL 249,0,0,m(7),m(4),m(1) 100 SYMBOL 250,0,m(7),m(5),m(4),m(2),m(1) 110 SYMBOL 251,m(7),m(6),m(5),m(4),m(3),m(2),m(1) 120 SYMBOL 252,0,0,m(1),m(4),m(7) 130 SYMBOL 253,0,m(1),m(2),m(4),m(5),m(7),m(8) 140 SYMBOL 254,m(1),m(2),m(3),m(4),m(5),m(6),m(7),m(8) 150 DATA 248,249,250,251,250,249,248,252,253,254 160 RESTORE 150 170 FOR r=1 TO 10:READ A:LOCATE n,12:PRINT CHR$(A):FOR HO=1 TO 50:NEXT:NEXT 180 NEXT:CALL &BB06