Some Subprogram

* SUB PROGRAM TUNGGU2
*====================
Procedure TUNGGU2
Parameter Pesan
Private Kata1, Kata2

Kata1= "Harap sabar menunggu"
Kata2= "Proses þþ " + ALLTRIM(Pesan) + ;
" þþ sedang berlangsung"
Tone(900, 1)
Tone(500, 1)
Tone(300, 1)
Box3D(08, 10, 15, 70, 1)
Shadow(08, 10, 15, 70)
@11, 40-Len(Kata1)/2 Say Kata1
@12, 40-Len(Kata2)/2 Say Kata2

Return

* SUB PROGRAM MENGINDEKS SEMUA DATABASE
*=======================================
Procedure INDEKS

Do TUNGGU2 WITH "Indeks Data"
REINDEX

Return


* SUB PROGRAM MERUBAH PANAH BAWAH MENJADI ToMBOL Enter
*======================================================

Procedure P_Bawah

Keyboard Chr(13)

Return

* SUB PROGRAM MERUBAH PANAH KIRI MENJADI ToMBOL Esc & KIRI & Enter
*===================================================================

Procedure P_Kiri

Keyboard Chr(27) + Chr(19) + Chr(13)

Return

* SUB PROGRAM MERUBAH PANAH KANAN MENJADI ToMBOL Esc + KANAN + Enter
*====================================================================

Procedure P_Kanan

Keyboard Chr(27) + Chr(4) + Chr(13)

Return