aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Animation/FreeBASIC/animation.freebasic
View file

@ -1,9 +1,9 @@
DIM C AS STRING = "Hello World! ", SIZE AS USHORT = LEN(C)
DIM DIRECTION AS BYTE = 0
DIM AS INTEGER X, Y, BTNS
DIM BUTHELD AS BYTE = 0
DIM HELD AS BYTE = 0
SCREEN 12
SCREEN 19
DO
LOCATE 1, 1
@ -11,15 +11,14 @@ DO
GETMOUSE X, Y, , BTNS
IF BTNS <> 0 THEN
IF BUTHELD = 0 THEN 'remember if it was pressed, to not react
BUTHELD = 1 'every frame on the mouse being just held
IF (X >= 0 AND X < SIZE * 8) AND (Y >= 0 AND Y < 16) THEN
DIRECTION = 1 - DIRECTION
END IF
IF BTNS <> 0 AND HELD = 0 THEN
'remember if it was pressed, to not react every frame
HELD = 1
IF X >= 0 AND X < SIZE * 8 AND Y >= 0 AND Y < 16 THEN
DIRECTION = 1 - DIRECTION
END IF
ELSE
BUTHELD = 0
HELD = 0
END IF
IF INKEY = CHR(255) + CHR(107) THEN EXIT DO