> VDUVars , Test reading VDU variables with =VDU() : (' "Screen mode: "; 2- "Number of colours: ";(96)+1 <2 "Text window width: ";(10)-(8)+1 F2 "Text window height: ";(9)-(11)+1 P5 "Text foreground colour: ";((87)8)(96) Z5 "Text background colour: ";((88)8)(96) d- "Left colour mask: &";~(98) n- "Right colour mask: &";~(99) xC "Graphics window width: ";(4)+256*(5)-(0)-256*(1)+1 C "Graphics window height: ";(6)+256*(7)-(2)-256*(3)+1 5 "Graphics X origin: ";(12)+256*(13) 5 "Graphics Y origin: ";(14)+256*(15) 5 "Graphics foreground (BBC): ";((89)8)(96) 5 "Graphics background (BBC): ";((90)8)(96) , "Graphics foreground (Other): ";(109) , "Graphics background (Other): ";(110) + "Foreground GCOL mode: ";(91) + "Background GCOL mode: ";(92) 7 "Cursor address: &";~(74)+256*(75) 1 "Screen start address: &";~256*(78) 7 "Screen display address: &";~(80)+256*(81) 1 "Screen size: &";~256*(84)  "Press SPACE";:A%= :  Full colour reading test "&A%=0:X%=1:os%=((&FFF4)&FF00)256 , mode%=0 7 6 mode% @ colour%=0 15 J colour%: "COLOUR "; Tvalue%=colour ^ 7:;colour%;" ";value% h colour% r "Press SPACE";:A%= | mode%:  :  ݤcolour os%>31:=((87)8)(96) col%=(87) ! loop%=1 3-(((96)+1)/4) +col%=4*((col%16)+1)+((col%15)+1)-5  loop%  =col%