**dian_sastro
SET SAFETY OFF 
i=1
DIMENSION menux(2)

CREATE TABLE tini( menuku c(10))
INSERT INTO tini (menuku) values ("\<Invoices")
INSERT INTO tini (menuku) values ("In\<quiry")

DEFINE MENU mnuReceive
SELECT tini
GO TOP 
SCAN 
	menux(i)=menuku
	ii=STR(i,1)
	DEFINE PAD pad&ii OF mnureceive PROMPT menux(i)
	i=i+1
ENDSCAN 
ACTIVATE MENU mnuReceive

USE IN tini