CLIPPER

TEXT1

D:\DB0850\LATIH1.PRG

│ CLEA                                                                         

│ SET DATE ital                                                               

│ SET CENTU ON                                                                

│ ?DATE()                                                                      

│ ?                                                                           

│ ?"m.wahyudi"                                                       

│ ?"kendal"                                                                  

│ ?"50000"                                                                 

│ ?50000                                                                      

02-11-2011

m.wahyudi

kendal

50000

     50000

TEXT2

D:\DB0850\latih3.prg

│@4,5 say "no induk        :"                                                  

│@5,5 say "nama            :"                                                 

│@6,5 say "alamat          :"                                                 

│@7,5 say "tanggal lahir   :"                                                  

│@8,5 say "jumlah saudara  :"                                                 

│@9,5 say "jenis kelamin   :"                                                                                                                           

│noinduk=space(8)                                                             

│nama=space(30)                                                               

│alm=space(45)                                                                

│tgllahir=ctod("//")                                                          

│jml=0                                                                        

│jkel=space(10)                                                               

│@4,22 get noinduk                                                             

│@5,22 get nama                                                               

│@6,22 get alm                                                                

│@7,22 get tgllahir                                                            

│@8,22 get jml                                                                

│@9,22 get jkel         

read