POPUPCHOICE #102,1,"A$­­­­
(27)",3,118,100,40,30

DIM A$(30)
BEGIN
 A$­­(27)="Daily"
 A$­­(28)="2x Per Day"
 A$­­(29)="3x Per Day"
 A$­­(30)=""
 POPUPCHOICE #102,1,"A$(27)",3,118,100,40,30
 REPEAT
  E=WAITEVENT
 UNTIL E=-1
END

DIM A$(30)
BEGIN
 A$­­(27)="Daily"
 A$­­(28)="2x Per Day"
 A$­­(29)="3x Per Day"
 A$­­(30)=""
 POPUPCHOICE #102,"Daily","A$(27)",3,118,100,40,30
 REPEAT
  E=WAITEVENT
 UNTIL E=-1
END

' Listing generated by ViziBasic v2.2
' 30/04/2008 @ 18:15:19

{CREATORID "LDTE"}
{VERSION "1.0"}
{MINOSVERSION "5.0"}
{PARSER ON}
'{KEYEVENTS OFF}
'{SECUREFILES ON}
'{CONSOLEFONT ON}

DIM %EVT%,%P1%,%P2%,%P3%
DIM %P1$,%P2$,%P3$

DIM A$(500)


BEGIN
GOSUB _OnAppStart
GOSUB _GenerateGUI
GOSUB _EventsLoop
GOSUB _OnAppExit
END

_GenerateGUI:
%P2$="A$(30)"
'%P1$="¶" : %P3%=1 : %P2%=LEN(%P2$)
'FOR %P1%=1 TO %P2%
' %P3$=CHAR$(%P2$,%P1%)
' IF %P3$=%P1$ INC %P3%
'NEXT
%P3%=10
%P1$="Select Application"
SETFONT 0
POPUPCHOICE #1,%P1$,%P2$,%P3%,10,20,100,12
%P1$="Run"
SETFONT 0
BUTTON #2,%P1$,60,140,40,14
RETURN

_EventsLoop:
REPEAT
 %EVT%=WAITEVENT
 SELECT CASE %EVT%
  CASE 1
   GOSUB _POPUPCHOICE_1
  CASE 2
   GOSUB _BUTTON_2
 END SELECT
UNTIL %EVT%=-1
RETURN

_POPUPCHOICE_1:
S=SELECTEDCHOICE+29
RETURN

_BUTTON_2:
A=(S>30) AND (S<=I)
IF A=TRUE THEN
 A$=A$(S)
 RUN A$
ENDIF
RETURN

_OnAppStart:
A$(30)="Select Application"
I=30
A$=FINDFIRST$("appl","")
WHILE A$<>""
 INC I : A$(I)=A$
 A$=FINDNEXT$ '("appl","")
WEND
SORT A$,31,I
RETURN

_OnAppExit:

RETURN