10 MODE 2:INK 0,0:INK 1,26:d$=CHR$(34):t$="AZERTYUIOP^456{"+d$+" (]} \\@ 789":ORIGIN 0,0,40,599,58,228:CLG 1:FOR b=1 TO 14:c=INSTR("37AE",HEX$(b)):WHILE c=0:c=3:WINDOW#3,b*5+4,b*5+7,12,17:CLS#3:LOCATE 6+b*5,10:PRINT MID$(t$,b+14,1):WEND:MOVE 40+b*40,62
20 DRAWR 0,160,0:LOCATE 3+b*5,23:PRINT MID$(t$,b,1):NEXT:t$=" AZERTYU{"+d$+"(]}IOP^456\\@789":WHILE 1:t=0:WHILE t<1:t=INSTR(t$,UPPER$(INKEY$))-1:WEND:o=1-(t>12):n=t+12*(o=2):SOUND 5,VAL(MID$("239213190179159142127225201169150134",n*3-2,3))*o,8,15:WEND