REM Close with ALT-F4 INSTALL @lib$+"WINLIB5A" INSTALL @lib$+"MULTIWIN" SYS "GetSystemMetrics", 0 TO xscreen% SYS "GetSystemMetrics", 1 TO yscreen% Max%=1000 PROC_multiwin(Max%) ON CLOSE PROCcleanup : QUIT FOR I%=1 TO Max% hw1% = FN_createwin(I%, "Window "+STR$I%, X%, Y%, 100, 100, 0, &96C00000, 0) X%+=30 : IF X% >=xscreen%-100 THEN X%=0 : Y%+=100 IF Y%>yscreen%-100 THEN Max%=I% : EXIT FOR NEXT I% REPEAT FOR I%=1 TO Max% PROC_selectwin(I%) COLOUR RND(15)-1 PRINT '"Hello world!"; NEXT I% WAIT 20 UNTIL FALSE DEF PROCcleanup PROC_selectwin(0) FOR I%=1 TO Max% PROC_closewin(I%) NEXT I% ENDPROC