32 lines
601 B
QBasic
32 lines
601 B
QBasic
|
SUB MAIN
|
||
|
|
DIM XY, XPOS, YPOS AS INTEGER
|
||
|
|
DIM LASTX, LASTY AS INTEGER
|
||
|
|
DIM MSG AS STRING
|
||
|
|
|
||
|
|
LASTX = 0
|
||
|
|
LASTY = 0
|
||
|
|
MSG = "Touch the Screen (Up)"
|
||
|
|
|
||
|
|
GRAPHICS
|
||
|
|
SETCOLOR 0,0,0
|
||
|
|
CLS
|
||
|
|
SETCOLOR 255,255,255
|
||
|
|
DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
|
||
|
|
REPAINT
|
||
|
|
|
||
|
|
WHILE TRUE
|
||
|
|
XY = TOUCHUP()
|
||
|
|
IF (XY <> -1) THEN
|
||
|
|
XPOS = (XY / 65536) & 0x0000ffff
|
||
|
|
YPOS = XY & 0x0000ffff
|
||
|
|
SETCOLOR RND(256),RND(256),RND(256)
|
||
|
|
DRAWLINE LASTX,LASTY,XPOS,YPOS
|
||
|
|
LASTX = XPOS
|
||
|
|
LASTY = YPOS
|
||
|
|
REPAINT
|
||
|
|
ELSE
|
||
|
|
SLEEP 10
|
||
|
|
END IF
|
||
|
|
END WHILE
|
||
|
|
END SUB
|