1 SYMBOL AFTER 32:a=HIMEM+1:WHILE m<3:MODE m:PRINT"MODE"m:FOR l=1 TO 18:p=(ASC(MID$("J'ADORE L'AMSTRAD!",l,1))-32)*8:FOR x=0 TO 6:FOR t=0 TO 7:s=PEEK(p+t+a):r=x:IF x=0 THEN v=s/(1+(t AND 1))ELSE IF x=1 THEN v=s AND &EF ELSE IF x=2 THEN v=s OR s/(1-(t>2))
2 INK 1,26:WHILE r=3:r=9:v=s AND ((t AND 1)+1)*&AA:WEND:WHILE r=4:r=9:v=s AND s/2:WEND:WHILE r=5:r=9:v=s OR s/2:WEND:WHILE r=6:r=9:v=s OR s/(1-(t<3)):v=v AND v/(1-(t>4)):WEND:POKE a+1784+t,v:NEXT:LOCATE l+m*11,x*3+4:PRINT"ÿ":NEXT x,l:m=m+1:CALL &BB06:WEND