colours are weird

Author: omiq

basic

@@ -1202,6 +1202,10 @@ static struct value eval_function(const char *name, char **p)
                     return make_str("\033[C");
                 case 157: /* cursor left */
                     return make_str("\033[D");
+                case 18:  /* reverse on */
+                    return make_str("\033[7m");
+                case 146: /* reverse off */
+                    return make_str("\033[27m");
                 /* Base colors */
                 case 144: /* black */
                     return make_str("\033[30m");

basic.c

@@ -1,23 +1,22 @@
-10 PRINT CHR$(147)
-20 PRINT "CLR/HOME DONE"
-30 PRINT
-40 PRINT "BASE COLORS:"
-50 PRINT "BLACK  ";CHR$(144);"████";CHR$(5);" WHITE"
-60 PRINT "WHITE  ";CHR$(5);"████";CHR$(5);" WHITE"
-70 PRINT "RED    ";CHR$(28);"████";CHR$(5);" WHITE"
-80 PRINT "CYAN   ";CHR$(159);"████";CHR$(5);" WHITE"
-90 PRINT "PURPLE ";CHR$(156);"████";CHR$(5);" WHITE"
-100 PRINT "GREEN  ";CHR$(30);"████";CHR$(5);" WHITE"
-110 PRINT "BLUE   ";CHR$(31);"████";CHR$(5);" WHITE"
-120 PRINT "YELLOW ";CHR$(158);"████";CHR$(5);" WHITE"
-130 PRINT
-140 PRINT "EXTENDED COLORS:"
-150 PRINT "ORANGE     ";CHR$(129);"████";CHR$(5);" WHITE"
-160 PRINT "BROWN      ";CHR$(149);"████";CHR$(5);" WHITE"
-170 PRINT "LIGHT RED  ";CHR$(150);"████";CHR$(5);" WHITE"
-180 PRINT "DARK GRAY  ";CHR$(151);"████";CHR$(5);" WHITE"
-190 PRINT "MEDIUM GRAY";CHR$(152);"████";CHR$(5);" WHITE"
-200 PRINT "LIGHT GREEN";CHR$(153);"████";CHR$(5);" WHITE"
-210 PRINT "LIGHT BLUE ";CHR$(154);"████";CHR$(5);" WHITE"
-220 PRINT "LIGHT GRAY ";CHR$(155);"████";CHR$(5);" WHITE"
-230 END
+PRINT CHR$(147)
+PRINT "CLR/HOME DONE"
+PRINT "BASE COLORS:"
+PRINT "  ";CHR$(144);"BLACK";CHR$(5)
+PRINT "  ";  CHR$(5);"WHITE";CHR$(5)
+PRINT "    " ;CHR$(28);"RED";CHR$(5)
+PRINT "   ";CHR$(159);"CYAN";CHR$(5)
+PRINT " ";CHR$(156);"PURPLE";CHR$(5)
+PRINT "  "; CHR$(30);"GREEN";CHR$(5)
+PRINT "   "; CHR$(31);"BLUE";CHR$(5)
+PRINT " ";CHR$(158);"YELLOW";CHR$(5)
+PRINT
+PRINT "EXTENDED COLORS:"
+PRINT CHR$(129);"ORANGE     ";CHR$(5)
+PRINT CHR$(149);"BROWN      ";CHR$(5)   
+PRINT CHR$(150);"LIGHT RED  ";CHR$(5)
+PRINT CHR$(151);"DARK GRAY  ";CHR$(5)
+PRINT CHR$(152);"MEDIUM GRAY";CHR$(5)
+PRINT CHR$(153);"LIGHT GREEN";CHR$(5)
+PRINT CHR$(154);"LIGHT BLUE ";CHR$(5)
+PRINT CHR$(155);"LIGHT GRAY ";CHR$(5)
+END

examples/chr.bas

@@ -0,0 +1 @@
+PRINT CHR$(5)+CHR$(146)+"TESTING REVERSE ON AND OFF"