VERB Example

Definition:

 

*

 

 

.User-defined VERB definition

.

 

 

DoVerb

VERB

#varlit

...

 

 

TEST

BUTTON

 

STAT

STATUSBAR

 

RES

FORM

2

.

 

 

 

CREATE

TEST=8:9:5:20,"Verb"

 

ACTIVATE

TEST,ClkVerb,RES

.

 

 

 

LOOP

 

 

EVENTWAIT

 

 

REPEAT

 

.

 

 

ClkVerb

 

 

 

DoVerb

"Verb button has been used!"

 

PAUSE

"2"

 

DoVerb

"Try again!"

 

PAUSE

"2"

 

DoVerb

""

 

RETURN

 

 

Usage:

 

*

 

 

.User-defined VERB routine

.

 

 

DoVerb

FUNCTION

 

Msg

DIM

100

 

ENTRY

 

.

 

 

TS

DIM

14

.

 

 

 

TEST

Stat

 

IF

Zero

 

CREATE

Stat=29:21:5:50,Dock=1

 

SETPROP

Stat,Visible=1

 

ENDIF

 

.

 

 

 

TYPE

Msg

 

IF

EOS

 

CLEAR

S$CmdLin

 

ELSE

 

 

CLOCK

TimeStamp,TS

 

PACK

S$CmdLin,TS,",,,: ",Msg

 

ENDIF

 

.

 

 

 

SETPROP

Stat,Text=S$CmdLin

.

 

 

 

FUNCTIONEND

 

 

 


PL/B Language Reference