diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
| commit | dd321341472d48dec57e23cbae7fc77450a58e61 (patch) | |
| tree | fbfe34d0e973329c8dcf3d2985a92852831e9edf /packages/libndsfpc/examples/ds_motion | |
| parent | bdec57935fdb7f20eb519f9d99d12d2d07e9cb15 (diff) | |
| parent | 754a9168ff60fc59322032d21d4ca127ec4b27cd (diff) | |
| download | fpc-dd321341472d48dec57e23cbae7fc77450a58e61.tar.gz | |
* synchronised with trunk till r42256
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@42257 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libndsfpc/examples/ds_motion')
| -rw-r--r-- | packages/libndsfpc/examples/ds_motion/dsMotion.pp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/packages/libndsfpc/examples/ds_motion/dsMotion.pp b/packages/libndsfpc/examples/ds_motion/dsMotion.pp index 4ea2239f8e..b366d14a24 100644 --- a/packages/libndsfpc/examples/ds_motion/dsMotion.pp +++ b/packages/libndsfpc/examples/ds_motion/dsMotion.pp @@ -29,6 +29,8 @@ begin end; +var + keys: cint; begin consoleDemoInit(); @@ -38,10 +40,11 @@ begin while true do begin scanKeys(); - - if (keysDown() and KEY_A) <> 0 then + keys := keysDown(); + if (keys and KEY_A) <> 0 then Calibrate(); - + if (keys and KEY_START) <> 0 then + break; consoleClear(); if motion_init() <> 0 then iprintf('Nds is inserted'#10) |