RosettaCodeData/Task/Terminal-control-Dimensions/BBC-BASIC/terminal-control-dimensions-2.basic

      PRINT:VDU 8:dx%=POS+1:PRINT                    : REM Width of text viewport in characters
      REPEAT:dy%=VPOS:PRINT:UNTIL VPOS=dy%:dy%=dy%+1 : REM Height of text viewport in characters
	`PRINT:VDU 8:dx%=POS+1:PRINT : REM Width of text viewport in characters`
	`REPEAT:dy%=VPOS:PRINT:UNTIL VPOS=dy%:dy%=dy%+1 : REM Height of text viewport in characters`