memmbuat program barang di xbase

DO WHILE .T.

    CLEAR

    cBrg = SPACE(10)

    cNbrg = SPACE(20)

    cHrg = SPACE(8)

    STORE SPACE(6) to cJbli

    STORE 0 TO nTtl=cHrg*cJbli

    

    @ 1,4 SAY "Kode Barang      : "GET cBrg

    @ 2,4 SAY "Nama Barang      : "GET cNbrg

    @ 3,4 SAY "Harga            : "GET cHrg

    @ 4,4 SAY "Jumlah Beli      : "GET cJbli

    READ

    @ 9,27 SAY  "PT.TURUN NAIK"

    @ 11,30 SAY "NOTA BAYAR"

    @ 12,30 SAY "==========================="

    @ 14,3 SAY  " No. Barang                : "+UPPER (cBrg)

    @ 15,3 SAY  " Nama Barang               : "+UPPER (cNbrg)

    @ 16,3 SAY  " Harga                     : "+UPPER (cHrg)

    @ 17,3 SAY  " Jumlah Beli               : "+UPPER (cJbli)

    cTtl = cHrg*cJbli

    @ 18,3 SAY  "Total                      : "(cTtl)

    @ 19,25 SAY " Uang Bayar    : GET cByr

    @ 20,3 SAY  "uang kembali   : "(cBlk)

    cBlk = cByr - Ttl

    

    

    @ 21,3 SAY cBlk PICT "99,999,999"

    cLagi = "   "

    @ 7,50 SAY " mau proses lagi ? [y/t] " GET cLagi

    READ

    IF UPPER (cLagi) = "T"

        CLEAR

        @ 11,30 SAY " - THANK  YOU -  "

        EXIT

    ENDIF

ENDDO