'1-22 elements used
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 
 dim integer PDnEf, PUpEf, hourx, dayx, weekx, monthx, choose1
 dim integer exit_flag, eflag
 
 GUI interrupt penDown, penUp
 
 gui beep 300  'click on screen input
 
 cls
 const Enter_new=1 ' button names, so button #1 is called Enter_new
 const Up=2
 const Down=3
 const set_months =4
 const set_weeks =5
 const set_days =6
 const set_hours =7
 const done =8
 const rel_box =9
 const hourxx =10
 const dayxx=11
 const weekxx=12
 const monthxx=13
 const yearxx=14
 CONST abs_box =15
 
 gui SETUP 1   ' screen 1
 font #3     'large font
 gui button Enter_new, "Enter New",0,190,155,50, rgb(black),rgb(lightgrey)
 gui button Up, "Up", 170,190,50,50, rgb(black),rgb(pink)
 gui button Down, "Down", 240,190,80,50, rgb(black),rgb(gold)
 
 gui SETUP 2
 font #3
 gui displaybox rel_box,10,0,300,50,rgb(BLACK), RGB(BLUE)
 CtrlVal(rel_box)="Time to Alarm"
 gui button set_hours, "Hours",15,55,120,50, rgb(black),rgb(lightgrey)
 gui button set_days, "Days",15,125,120,50, rgb(black),rgb(lightgrey)
 gui button set_weeks, "Weeks",180,55,120,50, rgb(black),rgb(lightgrey)
 gui button set_months, "Months",180,125,120,50, rgb(black),rgb(lightgrey)
 gui button done, "Done",70,190,200,50, rgb(black),rgb(gold)
 
 gui SETUP 3
 font #1
 gui formatbox 15, DATETIME1, 170,100, 150,50,rgb(black),rgb(yellow)
 
 gui SETUP 4
 font #3
 gui displaybox 16,10,0,300,50,rgb(BLACK), RGB(BLUE)
 CtrlVal(16)="Repeating?"
 gui button 17, "Daily",1,60,150,50, rgb(black),rgb(beige)
 gui button 18, "Weekly",1,120,150,50, rgb(black),rgb(beige)
 gui button 19, "Monthly",1,180,150,50, rgb(black),rgb(beige)
 gui button 20, "Yearly",150,60,150,50, rgb(black),rgb(beige)
 gui button 21, "Custom",150,120,150,50, rgb(black),rgb(salmon)
 gui button 22, "None",150,180,150,50, rgb(black),rgb(gold)
 
 gui setup 5
 font #3
 gui numberbox hourxx,200,100,120,50,rgb(black),rgb(yellow)
 
 gui setup 6
 font #3
 gui numberbox dayxx, 200, 100, 120, 50, rgb(black), rgb(yellow)
 
 gui setup 7
 font #3
 gui numberbox weekxx, 200, 100, 120, 50, rgb(black), rgb(yellow)
 
 gui setup 8
 font #3
 gui numberbox monthxx, 200, 100, 120, 50, rgb(black), rgb(yellow)
 
 do
   select case TOUCH(REF)  ' will return 1 if button 1 is touched, 2 for button 2 etc
       '
     case Enter_new   ' Enter_new button touched
       ''new_entry       'subroutine for this touch
       cls
       font #2
       ' display screen asking absolute or relative entry
       choose1 =MsgBox("Absolute or Relative Alarm~ Abs e.g 10 May 3:30PM~Rel e.g 5 days,10 hrs","Abs","Rel","Exit")
       select case choose1
         case 1
           abs_entry   'absolute date
         case 2        'relative time (timer)
           rel_entry
       end select
       '
       'case Up
       'scroll_up
       'case Down
       'scroll_down
       
   end select
 loop
 
 
sub rel_entry
 exit_flag=0
 do            'keep returning to this screen to allow Weeks + Days+ Hours etc to be input
   eflag=0
   print "at Page 2"
   pause 700
   cls
   gui redraw all
   gui page 2   ' hrs, days, weeks, months, done buttons
   gui redraw all
   print "past Page 2"
   do
     select case TOUCH(REF)  ' will return 1 if button 1 is touched, 2 for button 2 etc
         
       case 7 ' Hours selected, input number of hours
         cls
         gui page 5
         CtrlVal(hourxx) = "##Hours"
         'print "Hours selected"
         do
           if PDnEf=1 then   'input box touched
             PDnEf=0
             hourx=ctrlval(hourxx)
           end if
           if PUpEf=1 then ' numbers entered and ENT touched, ENT generates a Pen Up interrupt
             PUpEf=0
             hourx=ctrlval(hourxx) 'numbers pressed
             if hourx>0 then
               eflag=1
               exit do
             endif
           end if
         loop
         print "hours" hourx
         
       case 6 'Days
         cls
         gui page 6
         CtrlVal(dayxx) = "##Days"
         print "Days selected"
         do
           if PDnEf=1 then   'input box touched
             PDnEf=0
             dayx=ctrlval(dayxx)
           end if
           if PUpEf=1 then ' numbers entered and ENT touched, ENT generates a Pen Up interrupt
             PUpEf=0
             dayx=ctrlval(dayxx) 'numbers pressed
             if dayx>0 then
               eflag=1
               exit do
             endif
           end if
         loop
         print "days " dayx
         
       case 5 'Weeks
         cls
         gui page 7
         CtrlVal(weekxx) = "##Weeks"
         print "Weeks selected"
         do
           if PDnEf=1 then   'input box touched
             PDnEf=0
             weekx=ctrlval(weekxx)
           end if
           if PUpEf=1 then ' numbers entered and ENT touched, ENT generates a Pen Up interrupt
             PUpEf=0
             weekx=ctrlval(weekxx) 'numbers pressed
             if weekx>0 then
               eflag=1
               exit do
             endif
           end if
         loop
         print "weeks " weekx
         
       case 4 'Months
         cls
         gui page 8
         CtrlVal(monthxx) = "##Months"
         print "Months selected"
         do
           if PDnEf=1 then   'input box touched
             PDnEf=0
             monthx=ctrlval(monthxx)
           end if
           if PUpEf=1 then ' numbers entered and ENT touched, ENT generates a Pen Up interrupt
             PUpEf=0
             monthx=ctrlval(monthxx) 'numbers pressed
             if monthx>0 then
               eflag=1
               exit do
             endif
           end if
         loop
         print "Months " monthx
         
       case 8  'Done
         'store value as a forward DTG to file
         eflag=1
         exit_flag=1
         
         
     end select
     
   loop while eflag=0
   
   print "select ended" eflag
   if exit_flag =1 then  'all done
     exit sub
   endif
   
 loop
end sub
 
 
sub abs_entry
 gui Page 3
 do
   if PDnEf=1 then   'input box touched
     PDnEf=0
     dtg$=ctrlval(15)
   end if
   if PUpEf=1 then ' numbers entered and ENT touched, ENT generates a Pen Up interrupt
     PUpEf=0
     dtg$=ctrlval(15) 'numbers pressed
     if dtg$<>"" then
       'eflag=1
       exit do
     endif
   end if
 loop
 gui page 4
end sub
 
sub penDown
 PDnEf=1
return
end sub
 
sub penUp
 PuPEf=1
return
end sub
 
end