10 REM > WinLib

   20 REM BASIC Library Procedures

   30 REM by Alan Blundell

   40 REM for Master Series only

   50 REM (C) BAU July 1990

   60 REM Updated by J.G.Harston

   70 :

   80 REM Requires global control block at X%, Y%=X%DIV256 large enough for longest title + 16 bytes

   90 REM eg DIM ctrl% 48:X%=ctrl%:Y%=X%DIV256 allows 32-character titles

  100 REM On startup, do *WCLEAR to clear all windows data

  110 :

  120 DEFPROCwin_closeall

  130 !X%=&00404:A%=193:CALL&FFF1

  140 ENDPROC

  150 :

  160 DEFPROCwin_close

  170 !X%=&10404:A%=193:CALL&FFF1

  180 ENDPROC

  190 :

  200 DEFPROCwin_release

  210 !X%=&20404:A%=193:CALL&FFF1

  220 ENDPROC

  230 :

  240 DEFPROCwin_title(title$)

  250 $(X%+14)=title$

  260 ENDPROC

  270 :

  280 DEFPROCwin_colours(fore%,back%,barcol%,barback%,edgecol%,edgeback%)

  290 X%?8=fore%:X%?9=back%:X%?10=barcol%:X%?11=barback%

  300 X%?12=edgecol%:X%?13=edgeback%

  310 ENDPROC

  320 :

  330 DEFPROCwin_open(action%,left%,bottom%,right%,top%)

  340 !X%=15+LEN$(X%+14):X%?1=4:X%?2=action%

  350 X%?4=left%:X%?5=bottom%:X%?6=right%:X%?7=top%

  360 A%=193:CALL&FFF1

  370 ENDPROC