できました!
w = "MAKE IT BY YOURSELF", "JIBUNNO TEDE TSUKUTTEKOSO TANOSHISAGA WAKARUTO IUMONODESU", "THIS PROGRAM IS LICENSED UNDER THE GPL 2.0."
dup n,w:onkey*j:*j:l=strlen(n):if c{if iparam!p{stop}}cls:if c{color:mes strmid(n,%,c):pos ginfo($E),%}color$FF:mes strmid(n,c,l):p=peek(n,c):c+:if%=p{d+:if d=length(w){onkey$:cls:mes"CLEAR":stop}dup n,w.d:c=%:goto*j}