Contoh Membuka Enkripsi

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* Membuat Tampilan Awal Program
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Do Lambang

A=" ÜÜÜ ÜÜÜ ÜÜ ÜÜ Û "
B=" ÜÛÛ Û Û Û Û Û Û Û Üß "
C=" ÛÛÜÜÜÜÜ Û Û Û Û Û Û ÛÜß "
D=" ÜÜ Û Û Û Û Û Û Û ßÜ "
E=" ÛÜÜÜÜÜÛ Û Û Û Û Û ßÜ "


* -=-=-=-=-=-=-=-=-=-=-
* Latar Belakang Box3D
* -=--=-=-=-=-=-=-=-=-=
Box3D(0,0,24,79)

* -=-=-=-=-=-=-=-=-=-=-=-
* Box3D untuk logo STMIK
* -=-=-=-=-=-=-=-=-=-=-=-
Box3D(02,04,22,50)

* -=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=--=
* Box3D untuk penampilan tulisan "Aplikasi PMB"
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Box3D(03,52,20,75)
Set colo to rb/w
@13,10 Say A
@14,10 Say B
@15,10 Say C
@16,10 Say D
@17,10 Say E

* -=-=-=-=-=-=-=-=
* Buat judul menu
* -=-=-=-=-=-=-=-=




Set Colo to r+/w
@ 04,09 Say "Praktek Kerja Lapangan"
Set colo to b/w
@ 05,09 Say REPL(CHR(4),22)
set colo to gr++/w
@ 06,09 Say "Dibuat Oleh :"
Set colo to b/w
@ 07,09 Say HakCipta() // tampilkan nama Armansyah
set colo to rb/w
@ 08,09 Say "Mahasiswa STMIK BINA DARMA" // Tahun 1996
set colo to b+/w
@ 09,09 Say Nim()
set colo to n/w
@ 10,09 Say Phone()
set colo to b/w
@ 11,08 Say repl(chr(196),39)
set colo to g+/W
@ 19,8 Say "BINA DARMA PALEMBANG "
@ 20,8 Say "Jl. Jend. A. Yani 03 Telp.(0711)-515582"
set colo to r/w
@ 05,57 Say " Aplikasi PMB "
@ 06,57 Say "Tahun Akademik"
@ 07,57 Say " 1997/1998 "
set colo to n+/w
@ 08,56 Say repl(chr(219),16)
set colo to n/w
@ 10,56 Say " UNIVERSITAS "
@ 11,56 Say " I B A "
@ 12,56 Say " PALEMBANG "
@ 13,56 Say " Telp. 351364 "
@ 14,56 Say " Fax. 372625 "
Set color to r+/w
@ 16,56 Say "Tunggu sebentar"
set colo to r*/w
@ 18,56 Say "SEDANG PROSES..."

set colo to b/w
@ 21,53 Say "Program ini dilindungi"
@ 22,53 Say "Undang-Undang Hak Cipta"

* -=-=-=-=-=-=-=-=-=-=-=-=-=-
* Membuka Enkripsi Help.Hlp
* -=-=--=-=-=-=-=-=-=-=-=-=-=

If ! File('HELP.HLP')
PopError("File HELP.HLP Tidak Ada ... !?!")
Return
EndIf

HnQ= MemoRead('Help.Hlp')
HnQ= Deskrip2(HnQ)
MemoWrit('Help.Tmp', HnQ)

tone(100,2)
tone(300,4)

set colo to w/n
clea