diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index 74e15a9af..81914478b 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -14244,6 +14244,9 @@ void sub__blink(int32 onoff){
   if (onoff==1) H3C0_blink_enable=1; else H3C0_blink_enable=0;
 }
 
+int32 func__blink(){
+  return -H3C0_blink_enable;
+}
 
 void sub_out(int32 port,int32 data){
   if (new_error) return;
diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp
index a32fbd18c..e6f026144 100644
--- a/internal/c/qbx.cpp
+++ b/internal/c/qbx.cpp
@@ -200,6 +200,7 @@ extern void sub__console(int32);
 extern int32 func__console();
 extern void sub__controlchr(int32);
 extern void sub__blink(int32);
+extern int32 func__blink();
 extern int32 func__fileexists(qbs*);
 extern int32 func__direxists(qbs*);
 extern int32 func_stick(int32 i,int32 axis_group,int32 passed);
diff --git a/source/global/version.bas b/source/global/version.bas
index 8687f0d0e..a6256da9c 100644
--- a/source/global/version.bas
+++ b/source/global/version.bas
@@ -4,4 +4,4 @@ DIM SHARED AutoBuildMsg AS STRING
 Version$ = "1.1"
 'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
 'integer. If you make a change, update the date and increase the id!
-BuildNum$ = "20170811/60"
+BuildNum$ = "20170816/61"
diff --git a/source/subs_functions/subs_functions.bas b/source/subs_functions/subs_functions.bas
index e5a7c4dab..5bcd819de 100644
--- a/source/subs_functions/subs_functions.bas
+++ b/source/subs_functions/subs_functions.bas
@@ -302,6 +302,13 @@ id.arg = MKL$(LONGTYPE - ISPOINTER)
 id.specialformat = "{ON|OFF}"
 regid
 
+clearid
+id.n = "_BLINK"
+id.subfunc = 1
+id.callname = "func__blink"
+id.ret = LONGTYPE - ISPOINTER
+regid
+
 clearid
 id.n = "_FILEEXISTS"
 id.subfunc = 1