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