projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8575f9fe8da527dda170a2a40ccb54082408dc91
[qbasicapps.git]
/
misc
/
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