Get Paper Size

 Top  Previous  Next

This escape returns the paper size in coordinate format.

Parameter

Value or Description

Lead-In

<ESC>z

Terminator

none

 

Example

This code right justifies text

CAPTION="Whatever we want to print"

PRINT CHR$(27):"z";        ! get paper size

INPUT "";PX,PY

PRINT CHR$(27);"t";        ! get text size

PRINT CAPTION;CHR$(0);

INPUT "";TX,TY

PRINT CHR$(27);"=";        ! set position

PRINT STR(PX-TX);",0";CHR$(0);

PRINT CAPTION;