Adds _BLINK {ON|OFF} to disable blinking in SCREEN 0 for colors 16-31.

Thanks to _vince for finding the right spots where blinking was set. Or flashing, you choose the naming.

internal/c/libqb.cpp

@@ -14238,6 +14238,13 @@ int32 H3C8_palette_register_index=0;
 int32 H3C9_next=0;
 int32 H3C9_read_next=0;
 
+int32 H3C0_blink_enable = 1;
+
+void sub__blink(int32 onoff){
+  if (onoff==1) H3C0_blink_enable=1; else H3C0_blink_enable=0;
+}
+
+
 void sub_out(int32 port,int32 data){
   if (new_error) return;
   unsupported_port_accessed=0;
@@ -31827,9 +31834,13 @@ QB64_GAMEPAD_INIT();
           if (f==(16+1)) {cp2=&charset8x16[chr][0][0]; z2=1;}
         }
         c=col&0xF;//foreground col
-        c2=(col>>4)&7;//background col
-        c3=col>>7;//flashing?
-        if (c3&&show_flashing) c=c2;
+        if (H3C0_blink_enable) {
+            c2=(col>>4)&7;//background col
+            c3=col>>7;//flashing?
+        } else {
+            c2=(col>>4);//background col
+        }
+        if (c3&&show_flashing && H3C0_blink_enable) c=c2;
         i2=paldata[c];
         i3=paldata[c2];
         lp=display_surface_offset+qbg_y_offset+y2*x_monitor+x2;

internal/c/qbx.cpp

@@ -199,6 +199,7 @@ extern int32 func__screenhide();
 extern void sub__console(int32);
 extern int32 func__console();
 extern void sub__controlchr(int32);
+extern void sub__blink(int32);
 extern int32 func__fileexists(qbs*);
 extern int32 func__direxists(qbs*);
 extern int32 func_stick(int32 i,int32 axis_group,int32 passed);

source/subs_functions/subs_functions.bas

@@ -293,6 +293,15 @@ id.arg = MKL$(LONGTYPE - ISPOINTER)
 id.specialformat = "{ON|OFF}"
 regid
 
+clearid
+id.n = "_BLINK"
+id.subfunc = 2
+id.callname = "sub__blink"
+id.args = 1
+id.arg = MKL$(LONGTYPE - ISPOINTER)
+id.specialformat = "{ON|OFF}"
+regid
+
 clearid
 id.n = "_FILEEXISTS"
 id.subfunc = 1