x = CREATEOBJECT('zzz')
x.Show
* -----------------------
DEFINE CLASS zzz AS form
  Top =  0 
  Left =  0 
  Height =  83 
  Width =  264 
  DoCreate = .T.
  Caption = "Form1"
  Name = "Form1"
ADD OBJECT txtdetail AS olecontrol WITH ;
  Top =  8 , Left =  96 , Height =  26 , Width =  156 , Anchor =  66 , Name = "txtDetail"
ADD OBJECT cg1 AS commandgroup WITH ;
  ButtonCount =  4 , Value =  1 , Height =  24 , Left =  12 , Top =  48 , Width =  240 , Name = "cg1", ;
    Command1.Top =  0 , Command1.Left =  0 , Command1.Height =  24 , Command1.Width =  60 , ;
    Command1.Caption = "\<New", Command1.Enabled = (not empty(xx.edtxt)), Command1.Name = "Command1", ;
    Command2.Top =  0 , Command2.Left =  60 , Command2.Height =  24 , Command2.Width =  60 , ;
    Command2.Caption = "\<<", Command2.Name = "Command2", ;
    Command3.Top =  0 , Command3.Left =  120 , Command3.Height =  24 , Command3.Width =  60 , ;
    Command3.Caption = "\<>", Command3.Name = "Command3", ;
    Command4.Top =  0 , Command4.Left =  180 , Command4.Height =  24 , Command4.Width =  60 , ;
    Command4.Caption = "\<Save", Command4.Name = "Command4"
ADD OBJECT label2 AS label WITH AutoSize = .T., BackStyle =  0 , Caption = "Edit Unicode", ;
  Height =  17 , Left =  12 , Top =  12 , Width =  72 , Name = "Label2"

PROCEDURE showall
  this.txtDetail.text = STRCONV(xx.edtxt, 14 )
  this.cg1.command1.Enabled = not empty(xx.edtxt)
ENDPROC
PROCEDURE saveall
  replace edtxt WITH STRCONV(thisform.txtDetail.text, 13 )
ENDPROC
PROCEDURE Load
  SYS( 3101 , 65001 )
  CREATE CURSOR xx (edtxt c( 100 ) NOCPTRANS)
  APPEND BLANK
ENDPROC
PROCEDURE Destroy
  USE IN xx
ENDPROC
PROCEDURE cg1.Command1.Click
  APPEND BLANK
  =thisform.showall()
ENDPROC
PROCEDURE cg1.Command2.Click
  SKIP - 1 
  IF BOF()
    GO top
  endif
  =thisform.showall()
ENDPROC
PROCEDURE cg1.Command3.Click
  SKIP  1 
  IF EOF()
    GO bottom
  endif
  =thisform.showall()
ENDPROC
PROCEDURE cg1.Command4.Click
  =thisform.saveall()
  =thisform.showall()
ENDPROC
ENDDEFINE