◄Contents► ◄Index► ◄Back► ────────────────────────────────────────────────────────────────────────────── Returns the status of the light pen. PEN(n%) ■ n% Specifies the information to be returned about light pen status: n% Returns ══ ═════════════════════════════════════════════════════════ 0 Whether pen was used since last call (-1 if yes, 0 if no) 1 The x screen coordinate of the last pen press 2 The y screen coordinate of the last pen press 3 The current pen switch status (-1 if down, 0 if up) 4 The x screen coordinate where the pen last left the screen 5 The y screen coordinate where the pen last left the screen 6 The character row of the last pen press 7 The character column of the last pen press 8 The character row where the pen last left the screen 9 The character column where the pen last left the screen Example: DO P = PEN(3) LOCATE 1, 1: PRINT "Pen is "; IF P THEN PRINT "down" ELSE PRINT "up " PRINT "X ="; PEN(4), " Y ="; PEN(5); " " LOOP See Also ◄PEN, ON PEN Statements► ◄SCREEN► ◄Screen Modes►