23 lines
327 B
Plaintext
23 lines
327 B
Plaintext
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"
|
|
|