22 lines
292 B
Text
22 lines
292 B
Text
a$ = timestr systime
|
|
print substr a$ 12 5
|
|
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
|