mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 00:00:22 +00:00
Another try...
This commit is contained in:
parent
395af5c486
commit
0adcd6c5a7
|
@ -5,7 +5,10 @@ $SCREENHIDE
|
||||||
_DEST _CONSOLE
|
_DEST _CONSOLE
|
||||||
|
|
||||||
dat$ = _EMBEDDED$("test")
|
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
|
SYSTEM
|
||||||
|
|
||||||
|
|
|
@ -5,7 +5,10 @@ $SCREENHIDE
|
||||||
_DEST _CONSOLE
|
_DEST _CONSOLE
|
||||||
|
|
||||||
dat$ = _EMBEDDED$("test")
|
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
|
SYSTEM
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue