SET TALK OFF
SET SCORE OFF
SET CENT ON
SET DATE ITALIAN
SET STAT OFF
SET DELI TO ‘<>’
SET DELI ON

*** Memanggil procedure *******
SET PROCE TO GABUNG.PRG
****===================********
DO WHILE .T.

L=0
DO WHILE L<40
SET COLO TO BG+
X=0
DO WHILE X<150
X=X+1
ENDDO
@01,40-L TO 24,40+L
L=L+1
ENDDO

CLEAR

SET COLO TO W/B
@ 00,00 CLEAR TO 03,79
@ 00,00 SAY REPL(CHR(205),80)
@01,25 SAY ‘PROGRAM DATABASE PERPUTAKAAN’
@02,25 SAY ‘   <=STMIK BANJARBARU=>’
@03,0  SAY REPL(CHR(205),80)

SET COLO TO GR+*/B
@01,02 SAY “WAKTU : “+TIME()
@01,60 SAY ‘TANGGAL :’+DTOC(DATE())

*LATAR BELAKANG
SET COLO TO
MISI=REPL(CHR(178),80)
I=4
DO WHILE I<=24
@I,00 SAY MISI
I=I+1
ENDDO

*MEMBUAT KOTAK BIRU
SET COLO TO W/B
@ 5,20 CLEAR TO 19,55
@ 5,20 TO 20,55 DOUB

SET COLO TO W/B
@ 06,30 SAY ‘ =>MENU UTAMA<= ‘
SET COLO TO W/R
@08,30 SAY ‘1. INPUT DATA ‘
@10,30 SAY ‘2. EDIT DATA ‘
@12,30 SAY ‘3. LIHAT DATA ‘
@14,30 SAY ‘4. HAPUS DATA’
@16,30 SAY ‘5. LAPORAN’
@18,30 SAY ‘6. SELESAI’
@22,20 TO 24,55

SET COLO TO BG+/B+
@ 08,45 SAY CHR(220)
@ 09,31 SAY REPL(CHR(223),15)
@ 10,45 SAY CHR(220)
@ 11,31 SAY REPL(CHR(223),15)
@ 12,45 SAY CHR(220)
@ 13,31 SAY REPL(CHR(223),15)
@ 14,45 SAY CHR(220)
@ 15,31 SAY REPL(CHR(223),15)
@ 16,45 SAY CHR(220)
@ 17,31 SAY REPL(CHR(223),15)
@ 18,45 SAY CHR(220)
@ 19,31 SAY REPL(CHR(223),15)

SET COLO TO W+/R+
PIL=SPACE(1)
@23,21 SAY ‘MASUKKAN PILIHAN ANDA [1..6] :’GET PIL

* Kotak
SET COLO TO W/B
@ 05,60 CLEAR TO 07,77
@ 05,60 TO 07,77 DOUB
SET COLO TO W/B
@ 06,63 SAY ‘CREATED BY :’

SET COLO TO W/B
@ 12,60 CLEAR TO 14,77
@ 12,60 TO 14,77 DOUB
SET COLO TO W/B
@ 13,67 SAY ‘RONI’

SET COLO TO W/B
@ 18,60 CLEAR TO 20,77
@ 18,60 TO 20,77 DOUB
SET COLO TO W/B
@ 19,62 SAY ‘3101-1101-1854’

SET COLO TO W/B
@ 05,01 CLEAR TO 07,18
@ 05,01 TO 07,18 DOUB
SET COLO TO W/B
@ 06,02 SAY ‘SISTEM INFORMASI’

SET COLO TO W/B
@ 18,01 CLEAR TO 20,18
@ 18,01 TO 20,18 DOUB
SET COLO TO W/B
@ 19,06 SAY ‘2011/2012’

SET COLO TO W/B
@ 12,01 CLEAR TO 14,18
@ 12,01 TO 14,18 DOUB
SET COLO TO W/B
@ 13,06 SAY ‘KELAS IV’
READ

SET COLOR TO
DO CASE
CASE PIL=’1′
DO I_PJM
CASE PIL=’2′
DO E_PJM
CASE PIL=’3′
DO L_PJM
CASE PIL=’4′
DO H_PJM
CASE PIL=’5′
DO LAP_PJM
CASE PIL=’6′
SET COLO TO
B=0
A=79
R=CHR(206)
DO WHILE B<=40 .AND. A>=40
SET COLO TO W/B
@0,A SAY R
@01,A SAY R
@02,A SAY R
@03,A SAY R
@04,A SAY R
@05,A SAY R
@06,A SAY R
@07,A SAY R
@08,A SAY R
@09,A SAY R
@10,A SAY R
@11,A SAY R
@12,A SAY R
@0,B SAY R
@01,B SAY R
@02,B SAY R
@03,B SAY R
@04,B SAY R
@05,B SAY R
@06,B SAY R
@07,B SAY R
@08,B SAY R
@09,B SAY R
@10,B SAY R
@11,B SAY R
@12,B SAY R

SET COLO TO W/B
@13,B SAY R
@14,B SAY R
@15,B SAY R
@16,B SAY R
@17,B SAY R
@18,B SAY R
@19,B SAY R
@20,B SAY R
@21,B SAY R
@22,B SAY R
@23,B SAY R
@24,B SAY R
@13,A SAY R
@14,A SAY R
@15,A SAY R
@16,A SAY R
@17,A SAY R
@18,A SAY R
@19,A SAY R
@20,A SAY R
@21,A SAY R
@22,A SAY R
@23,A SAY R
@24,A SAY R
@13,B SAY R
@14,B SAY R
@15,B SAY R
@16,B SAY R
@17,B SAY R
@18,B SAY R
@19,B SAY R
@20,B SAY R
@21,B SAY R
@22,B SAY R
@23,B SAY R
@24,B SAY R

A=A-1
B=B+1
LOOP
ENDDO
SET COLO TO

CLEAR
EXIT
SET COLO TO
RETURN
ENDCASE
ENDDO

SET COLO TO g+/N
@6,29 SAY ‘  KELUAR DARI MENU UTAMA’
@8,29 SAY ‘<== PROGRAM  DATABASE1 ==>’
SET COLO TO w+/g+
@10,15 TO 12,67 doub
SET COLO TO R+*
B=CHR(219)
A=16
I=0
@16,30 SAY ‘LOADING…Please Wait!’
set colo to b+
DO WHILE A<100 .AND. I<=100
TUNGGU=1
DO WHILE TUNGGU<1000
TUNGGU=TUNGGU+1
ENDDO
@11,A SAY b
@11,70 SAY I  PICT ‘999 %’
I=I+2
A=A+1
LOOP
ENDDO
clear

SET STAT ON
CLEAR
SET TALK ON
SET SCORE ON
SET DATE AMER
SET STAT ON
SET COLOR TO
SET SAFETY ON
SET COLOR TO W+/N+
SET COLOR TO
CLEAR