É só copiar e compilar
SET COLOR TO w clear dias:=0 set date to british dh:=date() dn:=ctod("00/00/00") nome=space(12) r1=space(1) r1="S" @1,1 to 24,78 double do while r1="S" dh:=date() dn:=ctod("00/00/00") nome=space(12) r1=space(1) @2,2say"Digite seu nome: " get nome @3,2 say"Digite a data de Nascimento: " get dn read if lastkey()=27 DO TESTE endif dias=dh-dn @4,2 say "Dias que" @4,12 say nome @4,22 say"J viveu:" picture"@b" @4,35 SAY dias PICTURE"@B" inkey(4) @6,2 say"Deseja Continuar S/N ?" get r1 picture"!" valid (r1="S"); .or. (r1="N") read IF LASTKEY()=27 ENDIF enddo set color to clear