The Data command needs the r modifier after each entry if you're using pointers since each entry needs to be 2 bytes large. But there is a more memory efficient way to store the text, which is to just have each entry right after each other like this:
1 2 3 4 5
| :"Text1"[00]->Str1 :"Text2"[00] :"More Text"[00] :.etc
|
And then to get the Nth string, just write a routine that starts at Str1 and scans until it has read N-1 zeros
1 2 3 4 5 6 7 8 9 10 11
| :Lbl NTH :Str1->r2 :While r1 : While {r2} : r2++ : End : r2++ : r1-- :End :Return r2
|