Fungsi Latar Menu

*-----------------
Function LTRMENU
*-----------------
* Fungsi dapat digunakan untuk menggambar kotak dengan efek 3 dimensi
* dengan warna hitam/putih di layar
* Armansyah, 14:27 19 Feb 1995
ParameterS atas, kiri, bawah, kanan

SETCOLOR("N/R")
BlowUp(atas, kiri, bawah, kanan)
@atas, kiri CLEAR TO bawah, kanan

SETCOLOR("R+/R")
@ atas, kiri SAY "Ú"
@ atas, kiri+1 TO atas, kanan-1
@ atas + 1, kiri TO bawah - 1, kiri
@ bawah, kiri SAY "À"

SETCOLOR("N/R")
@ atas, kanan SAY "¿"
@ atas + 1, kanan TO bawah - 1, kanan
@ bawah, kanan SAY "Ù"
@ bawah, kiri + 1 TO bawah, kanan - 1

** Kotak bagian dalam
@ atas + 1, kiri + 2 SAY "Ú"
@ atas + 1, kiri + 3 TO atas + 1, kanan - 3
@ atas + 2, kiri + 2 TO bawah - 1, kiri + 2
@ bawah - 1, kiri + 2 SAY "À"

SETCOLOR("R+/R")
@ atas + 1, kanan - 2 TO bawah - 2, kanan - 2
@ atas + 1, kanan - 2 SAY "¿"
@ bawah - 1, kanan - 2 SAY "Ù"
@ bawah - 1, kiri + 3 TO bawah - 1, kanan - 3

SETCOLOR("BG+/R,GR+/N,N")

RETURN .T.
*---------