And to your 2nd problem - just use a different key in one case XD??? Please explain!
While getKey(54)
Pause 50
End
So the user has to let go of [2nd] before it does anything, fixing it! He's a genius.:Repeat getKey(0)
:End
it didn't work. :(While getKey(0)
End
While 1
EndIf getKey(0)
If getKey(54)
If K
0→K
[code goes here]
End
Else
1→K
End
Oh, nice idea :D But wouldn't it also work without the pause? ;)It doesn't for me. Pause 8 seems to be the smallest pause that allows the code to work correctly.
But you can save a byte in the source by usingSmaller source doesn't always mean smaller program. Sometimes it's actually larger :) (In this case it's the same size.)
why does it need pause?Oh, nice idea :D But wouldn't it also work without the pause? ;)It doesn't for me. Pause 8 seems to be the smallest pause that allows the code to work correctly.
Otherwise it records zero once in a while even if a key is held down, because the keypad doesn't update fast enough.why does it need pause?Oh, nice idea :D But wouldn't it also work without the pause? ;)It doesn't for me. Pause 8 seems to be the smallest pause that allows the code to work correctly.
How can a smaller source mean a bigger program? Can you give me an example?But you can save a byte in the source by usingSmaller source doesn't always mean smaller program. Sometimes it's actually larger :) (In this case it's the same size.)
.AA [FFFFFFFFFFFFFFFF]->Str1 ClrDraw Pt-Off(0,,Str1) Pt-Off(8,,Str1) DispGraph Pause 1800 | .AA [FFFFFFFFFFFFFFFF]->Str1 ClrDraw Pt-Off(0,,Str1) Rect(8,,,) DispGraph Pause 1800 |
So Rect is 112 bytes larger than pt-on? Wow, that's huge. That means that I can save 112 bytes by using Pt-On for my paddle!No, it isn't. Rect is 112 bytes large in total. The routines are only added to your program if they occur at least once in the source. So basically using two times Pt-Off will only add one Pt-Off to the program, and every times you need it, the function is called (like a subroutine).
While 1 ; The main loop
C++
If C^2
This stuff is executed only every other time
End
This is always executed
EndIf getkey(15)
:RectI(76,12,8,50)^r
:Rect(76,62-(T*2/15),8,T*2/15)^r
T is the amount of time left. I can't find the problem. ???