> WinDemo  Windows Demonstration  By Alan Blundell (( For Master Series with SWR Windows 2% (C) BAU July 1990, JGH Oct 2011 <: F 1 P init Zcursor(0) d loop%=10 1 -1 n 0,loop%4 x 0,loop%*100  loop%*128,0  85,1280,1024   win_title("BAU Windows") win_colours(0,3,0,1,2,0) win_open(9,2,11,26,4) '"A sideways RAM utility"' $print("Some key features are:") win_colours(2,0,1,0,3,0) win_open(6,8,28,37,11)  !print("- works in any MODE") +print("- windows for text + graphics") ! "- switch between multiple" print(" active windows") "+print("- works with scrolled screens") ,)print("- works with shadow screens") 6&print("- compresses stored data") @)print("- accessible by OSWORD call") J "- takes up no user RAM"; T pause(5) ^ *WBACK hprint("Simple to use . .") rwin_colours(3,0,0,2,0,3) |win_open(5,0,29,39,18) print(">*HELP WINDOWS") *HELP WINDOWS  pause(8) win_closeall win_colours(0,3,2,0,1,0) win_open(6,11,3,29,1)  '"7 styles available:"; win_open(3,0,15,16,5) "Style 3"  '"(this window has"  '"been opened"  '"but has not"  '"been cleared)"  pause(3)  style=4 9 L=(style-3)*3 &R=L+9+(8) 0'T=(style*2)-1-((style-7)*(style>7)) : B=T+10 Dwin_open(style,L,B,R,T) Nprint("Style "+style) X b pause(3) lwin_closeall vwin_open(6,1,3,28,1) $ '"Switch between windows . ."; %win_title("Two active windows!") win_colours(0,2,3,0,1,0) win_open(7,1,30,18,10) win_colours(3,0,0,3,0,2) win_open(9,20,26,38,6)  step=0 twin(4,250,350)  loop=0 10* /50 0xcoord=250+((110+step)*(loop+41))*(loop*3) /ycoord=350+((80+step)*(loop+34))*(loop*4) twin(5,xcoord,ycoord) step=step+0.4   pause(5) win_closeall  win_colours(0,3,0,0,0,0) *win_open(4,0,9,35,1) 4(print("Room for plenty of windows") > ">*WFREE" H *WFREE R \ pause(3) f(print(">PROCwin_open(4,5,20,39,9)") pwin_colours(2,0,0,0,0,0) zwin_open(4,5,20,39,9)  pause(1)  ">*WFREE"  *WFREE  pause(2) win_colours(0,1,0,0,0,0) win_open(4,10,23,39,13)  pause(2) ,print("Of course, windows can overlap") win_colours(1,0,0,0,0,0) win_open(4,20,22,36,15) print(">*WFREE")  *WFREE  pause(2) win_colours(3,0,0,2,0,2) win_title("BAU Windows") win_open(8,4,29,21,27) $cursor(1) . '" Press a key . "; 8 (500)>0 finish Bcursor(0) Lwin_closeall V 0 `: j finish tcursor(0) ~ ''" End of demo." win_release win_closeall cursor(1)  : pause(seconds%) (seconds%*100)  : print(text$)  text$'  pause(2)   : cursor(on%) 23,1,on%;0;0;0; ( 2: <twin(a%,x%,y%) F25,a%,x%;y%;:*WBACK P25,a%,x%;y%;:*WFORE Z d: n init x- Set block% to 12+(max length of title$) # block% 47:X%=block%:Y%=X%256  *WCLEAR  : win_closeall !X%=&00404:A%=193:&FFF1  : win_close !X%=&010404:A%=193:&FFF1  : win_release !X%=&020404:A%=193:&FFF1  : "win_title(title$) ,$(X%+14)=title$ 6 @: JBwin_colours(fore%,back%,barcol%,barback%,edgecol%,edgeback%) T6X%?8=fore%:X%?9=back%:X%?10=barcol%:X%?11=barback% ^"X%?12=edgecol%:X%?13=edgeback% h r: |1win_open(action%,left%,bottom%,right%,top%) (!X%=15+$(X%+14):X%?1=4:X%?2=action% 1X%?4=left%:X%?5=bottom%:X%?6=right%:X%?7=top% A%=193:&FFF1