_screen.cls _screen.currentx=100 _screen.currenty=100 _screen.fontname='Courier New' _screen.Print( 'Hello '+chr(13)+ ; 'Object Turnover Budget '+chr(13)+ ; 'hulgi 123456 100000'+chr(13)+ ; 'ekspo 1234 1000'+chr(13)+ ; 'pood 123 100' ) for i=0 to 15 _screen.fillcolor=rgb(255*rand(),255*rand(),255*rand()) _screen.fillstyle=i%8 _screen.Box(300+20*i,300,300+20*(i+1),300-300*rand()) endfor