RosettaCodeData/Task/Substring/EasyLang/substring.easy

23 lines
292 B
Text
Raw Permalink Normal View History

2024-03-06 22:25:12 -08:00
a$ = timestr systime
2023-07-01 11:58:00 -04:00
print substr a$ 12 5
2024-03-06 22:25:12 -08:00
print substr a$ 12 99
#
a$ = "Hallo Österreich!"
print substr a$ 1 (len a$ - 1)
#
c$ = "Ö"
m = 2
i = 1
while substr a$ i 1 <> c$
i += 1
.
print substr a$ i m
#
c$ = "re"
m = 5
i = 1
while substr a$ i len c$ <> c$
i += 1
.
print substr a$ i m