Another try...

QB64-Phoenix-Edition · Dec 15, 2023 · 0adcd6c · 0adcd6c
1 parent 395af5c
commit 0adcd6c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/tests/compile_tests/embed/test.bas b/tests/compile_tests/embed/test.bas
@@ -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
 
diff --git a/tests/compile_tests/embed_relative/test.bas b/tests/compile_tests/embed_relative/test.bas
@@ -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