10 n$="KIT-CAT":MODE 2:b=&DDAD*2:d=66:PRINT n$" Implantation en cours.":POKE b,201:CALL b+&141,&8000:POKE b,207:FOR a=&8100 TO &83FF:POKE a,PEEK(a)+32*(a>32):NEXT:CALL b-18:PRINT"Op{ration termin{. Tapez CAT pour voir les modif.":WHILE a:WHILE INKEY(d)=0
20 END:WEND:PRINT"Ready":INPUT"",a$:WHILE UPPER$(a$)="CAT":MODE 1:PEN 3:LOCATE 15,13:PRINT"RUN"+CHR$(34)+n$:PEN 1:FOR A=12 TO 28:LOCATE A,11:PRINT"#":LOCATE A,15:PRINT"#":NEXT:a$="#":WEND:WHILE a$>"" AND a$<>"#":a$="#":PRINT"Syntax error":WEND:WEND