Notes crashes the Prime

[bobkrohn]

I'm not clairvoyant either.
None of the links you gave had any relevant or helpful information.

I guess I was addressing my question to those that had some experience in accessing the Notes App.
So didn't think there was a need to explain much.
Apparently I am the only person on the planet actually doing much programming with the Prime and the Notes App in particular since anyone doing same would have run into these problems too.
It's a b#%@h being on the leading edge.

The code below "seems" to work.
There is some extra debugging stuff in there.
Unless you have an inquisitive mind and are diligent in testing you would be satisfied.

1-run the program. run it several times. OK
2-open Notes and open the file. OK
3-DELETE the Notes file.
4-run the program. run it several times.
5-the Prime will crash.
6-if it doesn't, open Notes and see gibberish file names.
5-Prime is either locked up or will crash if you try to open the file.

I just did this six times in a row to be sure.
See attached photos of Notes App screen to see gibberish file names that are mysteriously created.
In one there were 3 files that are 16mb of what???
One with no name.
Another screen has two files with basically the same name.
Nobody has seen this before??

PHP Code:

EXPORT MyNote(MyText,NewL,NoteName)
BEGIN

//MyNote(" ABCDE",0,"ABC")

// APPENDS A LINE OF TEXT TO EXISTING OR NEW NOTE

LOCAL i,n,temp,ans;
LOCAL Disp;

LOCAL LF   :=CHAR(10);
LOCAL CR   :=CHAR(13);
LOCAL TAB  :=CHAR(9);
LOCAL NULL :=CHAR(0);

// for debugging from Prgm Editor since it only accepts REAL numbers.
//MyText:="ABCDE";
//NewL:=0;
//NoteName:="ABC";


//  MSGBOX("Continue?",1)▶ans;
 ans:=1;

IF NoteName=="" THEN
 NoteName:="SampleNote";
END;


  IF ans THEN

   //STUFF GOES HERE
   //--------------V

   temp:="";

    // IF NOT EXIST  CREATE
    IFERR Notes(NoteName)▶temp THEN
     // need space or Note is not created-Deleted
     // maybe not necessary?
     Notes(NoteName):=" "
    END;

    Notes(NoteName)▶temp;

    IF temp==" " THEN
      // remove space from above 
      temp:=""
    END;

    IF RIGHT(temp,1)==CR THEN
      //MSGBOX("Found CR");
      // thought CR might be the problem 
      temp:=LEFT(temp,DIM(temp)-1);
    END;

//-------user wants new line

    IF NewL==1 AND DIM(temp)≥1 THEN 
     //MSGBOX(DIM(temp));
     temp:=temp + LF + MyText;
    ELSE

     temp:=temp + MyText;

    END;
   
    // if was to be last line
    // thought CR might "close" file
    Notes(NoteName):=temp + CR;


  ELSE
   MSGBOX("Aborted!");
  RETURN 0; 
  END;


RETURN 1;

//-----
END;