Basic: fix time-ms for QBasic.

diff --git a/basic/core.in.bas b/basic/core.in.bas
index 1d22fe2..d8b7a50 100644 (file)
--- a/basic/core.in.bas
+++ b/basic/core.in.bas
@@ -308,7 +308,8 @@ DO_FUNCTION:
     T=2:L=A1/B1:GOSUB ALLOC
     RETURN
   DO_TIME_MS:
-    T=2:L=INT((TI-BT)*16.667):GOSUB ALLOC
+    #cbm T=2:L=INT((TI-BT)*16.667):GOSUB ALLOC
+    #qbasic T=2:L=INT((TIMER(0.001)-BT#)*1000):GOSUB ALLOC
     RETURN
 
   DO_LIST:

diff --git a/basic/mem.in.bas b/basic/mem.in.bas
index a0065ec..d4a6d54 100644 (file)
--- a/basic/mem.in.bas
+++ b/basic/mem.in.bas
@@ -383,7 +383,8 @@ INIT_MEMORY:
   ZK=16
 
   REM start of time clock
-  BT=TI
+  #cbm BT=TI
+  #qbasic BT#=TIMER(0.001)
 
   RETURN