+- Boriel Basic Forum (https://forum.boriel.com)
+-- Forum: Compilers and Computer Languages (https://forum.boriel.com/forumdisplay.php?fid=12)
+--- Forum: ZX Basic Compiler (https://forum.boriel.com/forumdisplay.php?fid=11)
+---- Forum: Bug Reports (https://forum.boriel.com/forumdisplay.php?fid=15)
+---- Thread: PAUSE not working (*solved*) (/showthread.php?tid=993)
Pages:
1
2
PAUSE not working (*solved*) - patters - 2020-12-29
In my program PAUSE doesn't seem to work. Is that normal? I would find it useful to delay execution a bit while my program prints an error on screen when the result of an INPUT isn't compliant. I can't see any mention of PAUSE in the wiki. I mean I can use a FOR loop to count to 10,000 instead, but I thought the aim of Boriel BASIC is to be a faster superset of Sinclair BASIC so it's surprising this seems to be missing.
RE: PAUSE - patters - 2020-12-29
For the time being I have copied a Sub from the Berks Man source code which does the job using the CPU's HALT instruction:
Code:
SUB Wait(w AS uInteger)
'Pause for w frames
WHILE w > 0
w=w-1
ASM
HALT
END ASM
END WHILE
END SUBRE: PAUSE - boriel - 2020-12-29
(2020-12-29, 04:56 AM)patters Wrote: In my program PAUSE doesn't seem to work. Is that normal? I would find it useful to delay execution a bit while my program prints an error on screen when the result of an INPUT isn't compliant. I can't see any mention of PAUSE in the wiki. I mean I can use a FOR loop to count to 10,000 instead, but I thought the aim of Boriel BASIC is to be a faster superset of Sinclair BASIC so it's surprising this seems to be missing.
PAUSE is implemented and it's just a call to the ROM pause (which basically does what your sub does). Are you disabling the interruptions with DI or something?
I've just tested it and it works:
Code:
PAUSE 50
PRINT "HELLO"Will wait for 50 frames and then print the message. Remember that pause can be cancelled by pressing a key
RE: PAUSE - patters - 2020-12-29
No, the only other bit of ASM is some DEFBs to define UDGs. I am using the input.bas library, could that be impacting things?
RE: PAUSE - boriel - 2020-12-29
That's it!!
Apparently INPUT does something that makes the next PAUSE to be ignored (further PAUSE's will be taking into account).
Thanks for the report. Will investigate this!
RE: PAUSE - boriel - 2020-12-29
Ok. Seems I got it.
I will fix it in the next release. In the mean time, you can avoid the bug but doing:
Code:
POKE 23611, PEEK 23611 bAND 0xEFRE: PAUSE - patters - 2020-12-29
Wow, so fast to fix!
I also spotted another issue with Input. If you try to delete a character entered during the INPUT the cursor jumps to the line above (at least in my program which prints the INPUT question on line 22).
RE: PAUSE - boriel - 2020-12-29
Ok, Let's fix that. Can you post a little example?
In the meantime, if you want to try with a beta with the fix mentioned above, you can download from here:
Windows: http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta1-win32.zip
Linux: http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta1-linux64.tar.gz
Mac OS: http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta1-macos.tar.gz
Source (Python):
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta1.tar.gz
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta1.zip
RE: PAUSE - patters - 2020-12-29
Sure. During the INPUT prompt, enter a character, then delete it and you'll see the cursor jump up to the line above.
Code:
#include <input.bas>
DIM ans AS Integer
DIM scoreToWin AS uByte
FUNCTION userInputFN(inputXPos AS uByte, prompt AS String, default AS Byte, ansMaxLen AS uByte, ansMinVal AS Byte, ansMaxVal AS Byte) AS Integer
Prompt:
PRINT AT 23,inputXPos; prompt; " [";default;"]: ";
INK 1
answer$=INPUT(ansMaxLen)
INK 0
'String checks
IF answer$="" THEN
ans=default
ELSE
FOR n=0 TO (LEN answer$)-1
IF CODE answer$(n)<45 OR CODE answer$(n)>57 THEN
PRINT AT 23,inputXPos; "Entry error",,
PAUSE 50
GO TO Prompt:
END IF
NEXT n
'Checks passed, convert to value
ans=INT(VAL(answer$))
END IF
IF ans<ansMinVal THEN ans=ansMinVal: PRINT AT 23,0; "Constrained to min",: PAUSE 50
IF ans>ansMaxVal THEN ans=ansMaxVal: PRINT AT 23,0; "Constrained to max",: PAUSE 50
PRINT AT 23,0;,,
RETURN ans
END FUNCTION
scoreToWin=5
scoreToWin=userInputFN(0, "Score to win match (1-9)", scoreToWin, 1, 1, 9)
PRINT scoreToWinI just tried beta 1.14 in Mac OS and it doesn't seem to have fixed the INPUT/PAUSE issue. The code I posted above still isn't PAUSEing properly even when compiled using 1.14.
RE: PAUSE - boriel - 2020-12-29
Can you try with this version, please?
Tell me if it's fixed:
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta2.tar.gz
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta2.zip
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta2-win32.zip
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta2-linux64.tar.gz
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta2-macos.tar.gz
This one is harder to fix, as it's related to the PRINT + SCROLL management.
RE: PAUSE - patters - 2020-12-29
I can confirm that 1.14beta2 build has fixed my specific issue with the delete spoiling the INPUT cursor. However, PAUSE still isn't working. Your reponse wasn't entirely clear - do I need to add that code workaround, or was your intention to fix the compiler so that wouldn't be necessary? Thanks.
RE: PAUSE - boriel - 2020-12-29
Both errors should have gone.
Please try this new beta3, and tell me:
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta3.tar.gz
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta3.zip
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta3-win32.zip
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta3-linux64.tar.gz
http://www.boriel.com/files/zxb/zxbasic-1.14.0-beta3-macos.tar.gz
RE: PAUSE - patters - 2020-12-30
Yes, that last beta build has fixed both of the issues. Did you see my other new post in this subforum? I'm guessing it's something simple, but it's driving me a bit crazy
RE: PAUSE - boriel - 2021-01-02
(2020-12-30, 12:52 AM)patters Wrote: Yes, that last beta build has fixed both of the issues. Did you see my other new post in this subforum? I'm guessing it's something simple, but it's driving me a bit crazy
Please check the thread about the TAB bug, because I did a "regression" of this one and it should all be fixed now.
I'm waiting for your confirmation to include the change in the official release.
RE: PAUSE not working (*solved*) - patters - 2021-01-03
Yes I can confirm that 1.14beta6 and beta9 have fixed this issue.