Fungsi Lihat isi File

*-----------------
Function LihatFile
*-----------------
* Fungsi ini digunakan untuk melihat file ASCII, memanfaatkan MemoEdit
Parameters Bri, Kli, Brii, Klii, Pilihan
Local Layar, Warna
Save Screen To Layar
Warna:= SetColor()
Box3D2(Bri, Kli, Brii, Klii)
Bayangan(Bri, Kli, Brii, Klii)
Kur:= SetCursor()
SetCursor(1)
Set Key 9 To Gerak && Tab
Pesan:= MemoEdit(MemoRead(Pilihan), Bri + 2, Kli + 3, Brii - 2, Klii - 3, ;
.F., "", Klii - Kli + 40,,, Klii - Kli - 6,, Klii - Kli - 6)
SetCursor(Kur)
Restore Screen From Layar
SetColor(Warna)
Return Pesan
*-----------