SET TALK OFF 
CLEAR
SET ESCAPE ON        && agar kalo di tekan ESC mau berhenti
** aa='*    *    *    *    *    *    *    *    *    *    *    *    *    *   '
aa='Pilahlah tiap kesulitan yg Anda hadapi menjadi parsial-parsial, kecil realistik & feasible agar bisa diselesaikan bertahap & tuntas.  (Rene Descartes- Matematikawan Prancis)'

_screen.Caption=aa
i=1
DO WHILE i<=100
    bb=SUBSTR(aa,i,100)
    _screen.Caption=bb
    x=1
    FOR x=1 TO 100
    	? CHR(7)
	ENDFOR 
	i=i+1
ENDDO