Wait Key 
Print "1"
Iscreen_open 1,320,200,16,Lowres,"Test 4"
Wait Key 
Print "2"
Iwindow Open 1,0,0,320,200
Wait Key 
Print "3"
Reserve Igadget 1
Wait Key 
Print "4"
Set Igadget String 1,50,50,100,14,20,"Test"
Wait Key 
Print "5"
TEL=5
Repeat 
   Inc TEL
   Wait Key 
   Print TEL
   A$=Igadget Read$(1)
Until A$="Quit"