'Rubber Ducky v5.BAS
'
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 option Base 1 'Each array will start with the index 1
 
'OPTION AUTORUN ON 'Issue from console
 
 Dim Integer I, XMax = 320, YMax = 480, T_Ref
 Dim String Caption(8)     'This is what appears on the button the "~" starts a new line
 Dim string Message(8)     'Can be upto 256 characters long
 
'Options for Mick to set:
 Dim Integer PauseTime = 250 'A short delay to prevent multiple sends from the one tap - change to suit
 
'The "~" starts a new line on the button
 Caption(1) = "bigmick58@~bigpond.com"   : Message(1) = "bigmick58@bigpond.com"
 Caption(2) = "Father~Christmas"         : Message(2) = "Father Christmas"
 Caption(3) = "PicoMuP is~Great"         : Message(3) = "PicoMuP is Great"
 Caption(4) = "I love Stout"             : Message(4) = "I love Stout"
 Caption(5) = "40 Bellevue~Blvd~HILLSIDE": Message(5) = "40 Bellevue Blvd HILLSIDE"
 Caption(6) = "0402001620"               : Message(6) = "0402001620"
 Caption(7) = "Andrew~Garrett~Makes Wine"                   : Message(7) = "Andrew Garrett Makes Wine"
 Caption(8) = "I love golf~but golf~HATES me"                   : Message(8) = "I love golf but Golf hates me"
 
 SETPIN GP5, GP4, COM2   'Mick's PicoMuP pins
 
'This assumes your keyboard interface is attached to COM2
 OPEN "COM2:9600" as #2  'Edit the speed to suit
 
 CLS
 Font 2  'MICK NOTE the font change
 
'Column 1:
 For I = 1 to 4
   GUI BUTTON I, Caption(I), 4, (I-1)*2*60+4, XMax/2-6, 2*57-2, RGB(white), RGB(magenta)
 Next I
 
'Column 2:
 For I = 5 to 8
   GUI BUTTON I, Caption(I), 4+XMax/2, (I-1-4)*2*60+4, XMax/2-6, 2*57-2, RGB(yellow), RGB(red)
 Next I
 
 GUI INTERRUPT PenDown   ', PenUp
 GUI Show All
 
'MMMMMMMMMMMMMM Start of Main Loop MMMMMMMMMMMMMMMMMMMMM
 Do
'
'   . . .
'
   Watchdog 10000  'If the program stalls for more than 10 seconds it will re-boot (because you have used the console to set "OPTION AUTORUN ON" - haven't you . . .
   
   If T_Ref > 0 then  'T_Ref = 0 does pop up and causes errors so let's use it
     print #2, Message(T_Ref):print Message(T_Ref)
     If T_Ref <5 then
       Box 0, (T_Ref-1)*2*60, XMax/2, 2*60,, RGB(green)
       pause PauseTime 'insert a short pause to prevent multiple sends from the one tap
       Box 0, (T_Ref-1)*2*60, XMax/2, 2*60,, RGB(black)        'Erase box
     Else
       Box XMax/2, (T_Ref-1-4)*2*60, XMax/2, 2*60,, RGB(green)
       pause PauseTime 'insert a short pause to prevent multiple sends from the one tap
       Box XMax/2, (T_Ref-1-4)*2*60, XMax/2, 2*60,, RGB(black) 'Erase box
     End If
     
     T_Ref = 0 'Use as a flag to only process once per tap
   End If
'
'   . . .
'
 Loop
'mmmmmmmmmmmmm End of Main Loop mmmmmmmmmmmmmmmmmmmmmmmm
 
Sub PenDown
 T_Ref = Touch(Ref)
End Sub 'Pendown
 
Sub PenUp 'This probably won't be used. If not can be deleted.
'   T_Ref = Touch(LastRef) 'Not needed, can delete this line
End Sub 'PenUp