Fungsi Pop Error

*----------------
Function PopError
*----------------
* Fungsi ini akan menampilkan Pesan kesalahan dengan kotak yang akan
* muncul pada bagian kiri atas layar dan menunggu sampai sembarang
* Tombol ditekan
ParameterS Pesan
Private poTongan, jml_brs, akhir_brs, i
Private baris, kolom, judul, layar, warna, tmbl
judul = "þþþþþ PerIngatan !!! þþþþþ"

Tone(800, 1)
Tone(1600, 1)

jml_brs = MLCOUNT(Pesan,36)

baris = INT((25 - (jml_brs+8))/2)
kolom = INT((80 - 46)/2)

akhir_brs = baris + jml_brs + 7
warna = SetColor()
layar = SavEscreen(baris, kolom, akhir_brs+1, kolom+48)
Box3D(baris, kolom, akhir_brs, kolom+46, 1)
Shadow(baris, kolom, akhir_brs, kolom+46)
SetColor("R*/W")
@baris + 2,40-Len(judul)/2 Say judul
SetColor("N/W")
@baris + 3,kolom + 5 Say REPLICATE(Chr(205), 37)
For i = 1 To jml_brs
poTongan = MEMOLINE(Pesan, 36, i)
@ baris + 3 + i, kolom + 05 Say LTRIM(poTongan)
Next i

@ akhir_brs - 3,kolom + 05 Say REPLICATE(Chr(196), 37)
@ akhir_brs - 2,kolom + 05 Say "Tekan Tombol Escape . . ."
Do While .T.
Tone(1500, 1)
Tone(1200, 1)
Tone(1000, 1)
tmbl= Inkey(2)
IF tmbl= 27
Exit
Endif
Enddo
SetColor(warna)
RestScreen(baris,kolom,akhir_brs+1,kolom+48,layar)
Return .T.
*---------