% -------------------------------------------- % allo1.sim % ========= % Programme qui affiche Hello dans une fenetre % -------------------------------------------- begin external class Windowtools; Inspect new FirstWindow("*** allo1 ***") do begin Text Color; integer i; sleep(2); setlinewidth(20); for i := 0 step 5 until 100 do begin setforeground("gray" & int_as_text(i)); drawLine(2*i+10,0,2*i+10,height); end; sleep(2); SetFill("skyblue"); Color :- ask_for_text("give us a color, man (or end)"); while Color <> "end" do begin setbackground(Color); Fillrectangle(50,200,100,30); Sleep(2); Invert; sleep(1); invert; Color :- ask_for_text("give us a color, man (or end)"); outtext(">>" & color & "<<"); outimage; end; end; end;