unsorted/lightpen.bas

   1 ' Svjatoslav Agejenko 2003.03\r
   2 ' light pen test\r
   3 \r
   4 \r
   5 DEFINT A-Z\r
   6 CLS\r
   7 SCREEN 13\r
   8 \r
   9 prt = &H378\r
  10 prt2 = &H379\r
  11 \r
  12 OUT prt, 255\r
  13 \r
  14 \r
  15 1\r
  16 a = INP(prt2)\r
  17 IF a = 135 THEN\r
  18   LINE (180, 0)-(200, 199), 1, BF\r
  19 ELSE\r
  20   LINE (180, 0)-(200, 199), 15, BF\r
  21 END IF\r
  22 GOTO 1\r
  23 \r