Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps

[qbasicapps.git] / unsorted / lightpen.bas

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