QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 12:40:36 +00:00
Code Issues Releases Wiki Activity

Another try...

Browse source
This commit is contained in:
Roland Heyder 2023-12-15 20:45:02 +01:00
parent 395af5c486
commit 0adcd6c5a7
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/compile_tests/embed/test.bas
View file

@ -5,7 +5,10 @@ $SCREENHIDE
_DEST _CONSOLE
dat$ = _EMBEDDED$("test")
PRINT LEFT$(dat$, LEN(dat$) - 2);
FOR i% = 1 TO LEN(dat$)
IF ASC(dat$, i%) = 10 OR ASC(dat$, i%) = 13 THEN EXIT FOR
PRINT MID$(dat$, i%, 1);
NEXT i%
SYSTEM

5
tests/compile_tests/embed_relative/test.bas
View file

@ -5,7 +5,10 @@ $SCREENHIDE
_DEST _CONSOLE
dat$ = _EMBEDDED$("test")
PRINT LEFT$(dat$, LEN(dat$) - 2);
FOR i% = 1 TO LEN(dat$)
IF ASC(dat$, i%) = 10 OR ASC(dat$, i%) = 13 THEN EXIT FOR
PRINT MID$(dat$, i%, 1);
NEXT i%
SYSTEM