X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=misc%2Flightpen.bas;fp=misc%2Flightpen.bas;h=8575f9fe8da527dda170a2a40ccb54082408dc91;hp=0000000000000000000000000000000000000000;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52

diff --git a/misc/lightpen.bas b/misc/lightpen.bas
new file mode 100644
index 0000000..8575f9f
--- /dev/null
+++ b/misc/lightpen.bas
@@ -0,0 +1,23 @@
+' 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
+