test: add PRINT COLOR test

tests/runtime/cases/drawing_primitives.bas

@@ -0,0 +1,21 @@
+#include "lib/tst_framework.bas"
+
+INIT("Testing PRINT color")
+
+Declare sub CenterText (ByVal Row as ubyte, ByVal Text as string)
+
+Ink 6
+Paper 1
+Print "x";
+
+Ink 7
+Paper 0
+Text ("Hello")
+FINISH
+
+Sub Text (ByVal Txt as string)
+ PLOT 10, 10
+ DRAW 20, 20
+ CIRCLE 100, 100, 20
+ DRAW 30, 30, 30
+End sub

tests/runtime/cases/print_color.bas

@@ -0,0 +1,18 @@
+#include "lib/tst_framework.bas"
+
+INIT("Testing PRINT color")
+
+Declare sub CenterText (ByVal Row as ubyte, ByVal Text as string)
+
+Ink 6
+Paper 1
+Print "x";
+
+Ink 7
+Paper 0
+Text ("Hello")
+FINISH
+
+Sub Text (ByVal Txt as string)
+ PRINT Txt;
+End sub