Buffer:
Code: Select all
Hello World[NULL]Hello Sun[NULL]Hello Moon and Stars[NULL][NULL]
Code: Select all
Hello World[NULL]Hello Sun[NULL]Hello Moon and Stars[NULL][NULL]
Code: Select all
EnableExplicit
Define *p.Ascii = ?strings
While *p\a
Define s.s = PeekS(*p, -1, #PB_Ascii)
*p + Len(s) + 1
Debug s
Wend
DataSection
strings:
Data.a 'H', 'e', 'l', 'l', 'o' ,' ', 'W', 'o', 'r', 'l', 'd', 0
Data.a 'H', 'e', 'l', 'l', 'o', ' ' ,'S', 'u', 'n', 0
Data.a 'H', 'e', 'l', 'l', 'o', ' ', 'M', 'o', 'o', 'n', ' ', 'a', 'n', 'd', ' ', 'S', 't', 'a', 'r', 's', 0
Data.a 0
EndDataSection