>_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 > >