Prosedur Terimakasih

Prosedur Terimakasih

********************************
* PROCEDURE UCAPAN TERIMA KASIH
********************************
PROCEDURE thanks

KELUAR:= POPMENU(06, 16, “Keluar ke Dos Prompt ?”, ;
” Setuju “, ” Batal “)
IF KELUAR = 2
SET KEY 19 TO P_KIRI
SET KEY 4 TO P_KANAN
set key 301 to thanks
return
EndIf

SET COLOR TO W/N
tone(261.7 * 9,4)
tone(196.0 * 9,2)
tone(196.0 * 9,2)
tone(220.0 * 9,2)
tone(196.1 * 9,2)
tone(0,1)
tone(246.9 * 9,2)
tone(261.1 * 9,4)

HapusLayar(MOD(VAL(SUBS(TIME(),1,2)+SUBS(TIME(),4,2)+SUBS(TIME(),7,2)),10)+1;
,50)

RELEASE ALL

public ucapan

UCAPAN1:= “Terima Kasih, Anda telah memanfaatkan Software ini”
UCAPAN2:= ” Salam Saya : Armansyah ”
box3d(02,07,21,68,1)
shadow(02,07,21,68)

A = ” ÛÛÛÛ ÛÛÛÛ ”
B = ” ÛÛ ÛÛ ”
C = ” ÛÛ ÛÛ ”
D = ” ÛÛ ÛÛ ”
E = ” ÛÛ ÛÛ ”
F = ” ÛÛ ÛÛ ”
G = ” ÛÛ ÛÛ ”
H = ” ÛÛ ÛÛ ”
I = ” ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ”
J = ” ÛÛ ÛÛ ”
K = ” ÛÛÛÛ ÛÛÛÛ ”
L = ” ÛÛÛÛ ÛÛÛÛ ”
M = ” ÛÛÛÛÛÛ ÛÛÛÛÛÛ ”

SET COLOR TO GR/W

@4,10 SAY A
set colo to gr+/w
@5,10 SAY B
@6,10 SAY C
@7,10 SAY D
@8,10 SAY E
* SET COLOR TO gr/W
* set colo to 13/7
@9,10 SAY F
@10,10 SAY G
@11,10 SAY H
set colo to n+/w
@12,10 SAY I
set colo to gr+/w
@13,10 SAY J
set colo to r/w
@14,10 SAY K
@15,10 say l
set colo to n+/w
@16,10 say m

set colo to b/w
@ 18, 40 – LEN(UCAPAN1) / 2 SAY UCAPAN1
@ 19, 40 – len(ucapan2) / 2 say ucapan2

SET COLOR TO W/N
@ 23, 00
SET CURSOR ON
CLEAR ALL
QUIT

* EOF ( END OF FILE )

Categories: Clipper | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Blog di WordPress.com.

%d blogger menyukai ini: