Fungsi BOX 3 D

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

SetColor("N/W")
if ledak= 1
BlowUp(atas, kiri, bawah, kanan)
Endif
@atas, kiri Clear To bawah, kanan

SetColor("W+/W")
@ atas, kiri Say "Ú"
@ atas, kiri+1 To atas, kanan-1
@ atas + 1, kiri To bawah - 1, kiri
@ bawah, kiri Say "À"

SetColor("N/W")
@ 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("W+/W")
@ atas + 1, kanan - 2 Say "¿"
@ atas + 2, kanan - 2 To bawah - 2, kanan - 2
@ bawah - 1, kanan - 2 Say "Ù"
@ bawah - 1, kiri + 3 To bawah - 1, kanan - 3

SetColor("N/W,W+/W,N")

Return .T.
*---------