mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 07:54:46 +00:00
14 lines
250 B
QBasic
14 lines
250 B
QBasic
$EMBED:'tests/compile_tests/embed/test.output','test'
|
|
|
|
$CONSOLE
|
|
$SCREENHIDE
|
|
_DEST _CONSOLE
|
|
|
|
dat$ = _EMBEDDED$("test")
|
|
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
|
|
|