Add test PRINT42

Author: boriel

tests/runtime/testprint42.bas tests/runtime/cases/print42.bastests/runtime/testprint42.bas renamed to tests/runtime/cases/print42.bas

@@ -2,21 +2,21 @@
 ' Test for print42 routine and memory leaks
 ' (compile with --debug-memory)
 
+#include <alloc.bas>
 #include <print42.bas>
+#include "lib/tst_framework.bas"
 
+INIT(PAPER 1; INK 7; "Test PRINT42")
 
 DIM n,x,y as uInteger
-CLS
+
+RANDOMIZE 3769   ' Fixed (prime) seed to get replicable results
 
 FOR n=1 to 10000
-    y=rnd*23
+    y=1+rnd*22
     x=rnd*41
     printat42(y, x)
     print42("ABCDEFGHIJKLMNOPQRSTUVWXYZ"(n MOD 26 TO n MOD 26))
-    print at 23,0;n;"  y:";y;"  x:";x;"  L:";n mod 26; "    ";
+    print at 23,0;n;"  y:";y;"  x:";x;"  L:";n mod 26; "  "; memavail; "  ";
 NEXT n
-
-pause 0
-END
-
-
+FINISH