- free old string before INPUTing the new one, and copy the new one so it gets MALLOCed correctly

Author: maurymarkowitz

doc/TODO

@@ -103,6 +103,8 @@ Will not be done:
 
 - it would not be difficult to allow any variable to hold a string, but in most dialects that is an error.
 
+- EduSystem 25 BASIC has a weird LINPUT that is just "longer string INPUT", and does not work like LINPUT in BP or others
+
 - STORE and RECALL from Applesoft, which writes and reads all the values in an array to cassette.
 
 - RESTORE* and RESTORE$ from Dartmouth, which reset the numeric vs. string DATA pointers.

src/retrobasic.c

@@ -2615,8 +2615,11 @@ static void perform_statement(list_t *statement_entry)
               if (*end == ',' || *end == ' ')
                 end++;
             } else {
+              // get rid of any previous string
+              if (value->string)
+                free(value->string);
               // our code strips the separator
-              value->string = strtostr(end, &end);
+              value->string = str_new(strtostr(end, &end));
               num_input++;
             }
 
@@ -2715,7 +2718,10 @@ static void perform_statement(list_t *statement_entry)
               if (*end == ',' || *end == ' ')
                 end++;
             } else {
-              value->string = strtostr(end, &end);
+              if (value->string)
+                free(value->string);
+              // our code strips the separator
+              value->string = str_new(strtostr(end, &end));
               num_input++;
             }
 
@@ -2821,7 +2827,10 @@ static void perform_statement(list_t *statement_entry)
             if (*end == ',' || *end == ' ')
               end++;
           } else {
-            value->string = strtostr(end, &end);
+            if (value->string)
+              free(value->string);
+            // our code strips the separator
+            value->string = str_new(strtostr(end, &end));
             num_input++;
           }
         } // go to next variable