amos-professional/extensions/Intuition-41.95/Intuition/progs/bug2.asc

23 lines
327 B
Plaintext
Raw Normal View History

2020-04-26 00:58:13 +00:00
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"