Clipper 5.3 (Latihan 1)

SET COLO TO
CLEA
SET COLO TO W/B
@5,5 CLEA TO 17,60
@5,5 TO 17,60
set COLO TO GR+*/B
@7,20 SAY "TOKO MATAHARI  :"
SET COLO TO W/B
@09,8 SAY "NAMA PELANGGAN :"
@11,8 SAY "JML PEMBELIAN  :"
@13,8 say "DISKON         :"
@15,8 SAY "JUMLAH BAYAR   :"
NPLG=SPAC(25)
JP=0
@09,25 GET NPLG
@11,25 GET JP PICT"99,999,999"
READ
IF JP>10000
   DS=15/100*JP
ELSE
   DS=5/100*JP
ENDIF
BY=JP-DS
@13,25 SAY DS PICT"99,999,999"
@15,25 SAY BY PICT"99,999,999"
READ

Share this post