X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Flightpen.bas;fp=unsorted%2Flightpen.bas;h=0000000000000000000000000000000000000000;hp=8575f9fe8da527dda170a2a40ccb54082408dc91;hb=c6aaa433dedff2dd8063983c7716c0cdb296a0f9;hpb=3779e9035f2c67e36111585e10d956a3e9e3c0fa

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