Source kode program EDIT dbaseIII PLUS

set talk off
use pas126
set color to BG
do while .T.
clear
set color to GR+/R++
@2,14 clear to 16,61
@2,14 to 16,61 double
set color to B**
@3,15 to 15,60 double
@14,16 to 14,59 double
set color to G+
@5,27 say "PROGRAM DATA PASIEN"
set color to B**/RB
@7,16 say "@#%@$%#$%^%#%*^&#$*%&^*&*&(*#$%&%&@^&#&$^%^@"
set color to RB+
@5,18 clear to 5,18
@5,18 say "(^_^)"
@5,48 say "(^_^)"
mnorm=space(6)
set color to BG
@10,20 say "MASUKKAN NO RM PASIEN ="GET mnorm
read
clear
?"DAFTAR PASIEN YANG DIMAKSUD"
list for no_rm=trim(mnorm)
input"MASUKKAN NOMOR RECORD YANG AKAN DIEDIT="TO NOMOR
if nomor=0
return
endif
go nomor
clear
set color to BG/N
@4,20 clear to 15,60
@4,20 to 15,60 double
set color to B/G**
@4,19 to 18,19 double
@4,61 to 18,61 double
@18,20 to 18,60 double
set color to GR++
@5,28 say  "DATA PASIEN YANG DIEDIT"
set color to B++
@6,21 to 6,59 double
@8,25 say  "NAMA PASIEN  ="GET nama
@9,25 say  "JENKEL       ="GET jenkel
@10,25 say "UMUR         ="GET umur
@11,25 say "ALAMAT       ="GET alamat
@12,25 say "NOMOR HP     ="GET no_tlp
read
jw="T"
set color to GR++
@14,35 say "MASIH ADA DATA LAIN" GET jw
read
if jw="T"
ket="AriGatO gOzAIMasu....!! "
else
ket="SILAHKAN LANJUTKAN..!!"
endif
set color to R++
@17,30 say ket
read
if jw="T"
exit
endif
enddo
return