' Svjatoslav Agejenko 2003.03 ' light pen test DEFINT A-Z CLS SCREEN 13 prt = &H378 prt2 = &H379 OUT prt, 255 1 a = INP(prt2) IF a = 135 THEN LINE (180, 0)-(200, 199), 1, BF ELSE LINE (180, 0)-(200, 199), 15, BF END IF GOTO 1