projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
28ff5098f1c5cc03f1b5eda22b61b3f44cd52a6c
[qbasicapps.git]
/
networking
/
monitor2.bas
1
SCREEN 12
\r
2
\r
3
prt2 = &H379
\r
4
\r
5
1
\r
6
FOR x = 0 TO 630
\r
7
c = INP(prt2)
\r
8
IF c <> 127 THEN
\r
9
y = y + 1
\r
10
ELSE
\r
11
IF y > 0 THEN y = y - 1
\r
12
END IF
\r
13
LINE (x + 6, 0)-(x + 6, 479), 12
\r
14
LINE (x, 0)-(x, 479), 0
\r
15
LINE (x, 0)-(x, y), 15
\r
16
\r
17
'FOR a = 1 TO 1000
\r
18
'NEXT a
\r
19
NEXT x
\r
20
GOTO 1
\r
21
\r