clip53\bin

cls
setcolor("r+/b")
@5,8 clea to 30,60
@5,8 to 30,60 doub
Nip =space(8)
Nama =space(20)
Alamat =space(25)
Gol =space(1)
pacar =space (15)
Status =space(6)
Gaji =0
pemasukan = space (14)
pembiayaan= space (16)
@06,6 say "Nomor Induk Pegawai :"get Nip pict"99999999"
@08,6 say "Nama Pegawai :"get Nama pict"@!"
@10,6 say "Alamat Pegawai :"get Alamat
@12,6 say "Golongan Pegawai :"get Gol valid gol="A".or.gol="B".or.gol="C"
@14,6 say "Status Pegawai :"get Status valid status="kawin".or.status="tkawin"
@16,6 say "Gaji Pegawai :"get Gaji pict"Rp 999,999,99"
@18,6 say "pacar pegawai :"get pacar valid pacar="endatasya".or.pacar="masih pencarian"
@20,6 say "pemasukan :"get pemasukan pict"9999999"
@22,6 say "pembiayaan :"get pembiayaan pict"99999999"
read