mode -16
option default integer
option base 1

colour rgb(red),rgb(black)
text 920,0,"Windows Test",C,3,6,rgb(red),rgb(black)
font 3

'set up window/pages
'wx(x)=horizontal size, wy(x)=vertical size, px(x)=x pos on screen 0, py(x)=y pos on screen 0
'a$(x) test text
'c(x) colour to print text
'hp(x) and vp(x) saves and sets cursor position
'bc(x) box colour
'bt - Box thickness, bo - box offset

dim wx(6),wy(6),px(6),py(6),a$(6),hp(6),vp(6)
dim c(6),bc(6),bt(6),bo(6)

for x= 1 to 6
read wx(x),wy(x),px(x),py(x),c(x),bc(x),bt(x),bo(x),a$(x)
page resize x,wx(x),wy(x)
hp(x)=0
vp(x)=0
page write x
cls
page write 0
box px(x)-bo(x),py(x)-bo(x),wx(x)+2*bo(x),wy(x)+2*bo(x),bt(x),bc(x)
next x

do
for x=1 to 6
 page write x
 colour c(x)
 print @(hp(x),vp(x))a$(x);space$(rnd*10);
 hp(x)=mm.info(hpos)
 vp(x)=mm.info(vpos)

 page write 0
 blit 0,0,px(x),py(x),wx(x),wy(x),x
next x

'pause 148 'edit this for faster/slower scrolling text
          '10 is t=interesting - lots of artifact
          '1 is "What the hell!!" - nearly all artifact 'til SPACE is pressed

loop until inkey$=" "

wins: data 1392,576,500,176,rgb(white),rgb(green),1,10,"WOOP DE DOOOO!!!! It appears to be working as I wanted it to.... now for functions to make it all easy!  "
data 416,264,20,176,rgb(green),rgb(white),2,4,"How about that!! I didn't think it'd work.... but it does!!!    "
data 416,264,20,488,rgb(pink),rgb(orange),1,6,"Some more stuff to take up space in that little rectangle.....   "
data 416,264,20,800,rgb(blue),rgb(gold),3,4,"I don't want anything printed here, but if I did that then I wouldn't know if the routine was working.... "
data 928,264,500,800,rgb(cyan),rgb(blue),2,8," Oooooo.... and now for the other big window... impressive? NO??? WTF!!! I'm impressed!       "
data 416,264,1480,800,rgb(gold),rgb(red),3,7,"19z48g 1494fnb 1968x4f41 149479 4fdt 14448cg   (random typing here!)  "

Mode 1
Page Write 0
Cls
? "Hello World"
Page Resize 1,200,200
Do
 Page Write 1
 Page Write 0
Loop