Option DEFAULT NONE
 Option EXPLICIT
 
 Const JOBS_TBOX=10
 Const JOBS_NBOX=11
 Const BT_Close=12
 DIM as integer ButLeft,ButTop,ButHeight,ButWidth
 
 ButTop=MM.VRes/80
 ButHeight=MM.VRes/5
 ButWidth=MM.HRes/3.5
 ButLeft=MM.HRes/80
 
 CLS
 Font 4  
 GUI TEXTBOX JOBS_TBOX,ButLeft,ButTop,MM.HRes/1.03,ButHeight,RGB(WHITE),RGB(BLUE)
 GUI NUMBERBOX JOBS_NBOX,ButLeft,ButTop+ButHeight*1.1,ButHeight,ButWidth/2,RGB(WHITE),RGB(BLUE)
 GUI BUTTON BT_Close,"CLOSE",ButLeft,ButTop+ButHeight*4,ButWidth,ButHeight,RGB(WHITE),RGB(BLUE)
 Font 2
 
 Do
   If Touch(REF)=BT_Close then
     Text ButWidth*1.5,ButHeight*3,"CLOSED",,4,,RGB(WHITE),RGB(BLACK)
     End
   Endif
 Loop
 End
 
Sub MM.KEYPRESS(KREF as integer,CapVal as string)
 Text ButWidth*1.5,ButHeight*1.5,CapVal,,4,,RGB(WHITE),RGB(BLACK)
 Print KREF;
End Sub