31 lines
603 B
QBasic
31 lines
603 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 (Down)"
|
|
|
|
GRAPHICS
|
|
SETCOLOR 0,0,0
|
|
CLS
|
|
SETCOLOR 255,255,255
|
|
DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
|
|
REPAINT
|
|
|
|
WHILE TRUE
|
|
XY = TOUCHDOWN()
|
|
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
|