My first program

Tyler.prg

** Tyler's A.K.A. Hobbes First Program
** File Name: Tyler.Prg

SET STATUS OFF
SET SCOREBOARD OFF
SET TALK OFF

** Section To name memory variables
name=space(25)
male=.t.
age=space(2)
hair=space(10)
Eyes=space(10)
Live=space(50)
** end of section

** Section to ask questions
clear
@3,30 say "Tyler's First Program"
@4,20 to 15,60 double color gr+/b
Do While .T.
  @5,23 say "What is your full name?"
  @7,22 say "" get name
  read
  Corr=space(1)
  @9,23 say "Is this correct? <Y/N/>" get corr
  read
  if Upper(coor)="Y"
    exit
  Else
    @9,23 clear to 9,59
    name=space(25)
  Endif
Enddo

@11,23 say "Hello "+ltrim(rtrim(name))+"."
@12,23 say "Thanks For Playing! I'll Have"
@13,23 say "More Questions Later...Goodbye"
return