Implement PRGSLOT

2016-12-28 22:51:22 +09:00
parent 834480e9ac
commit 692c7907e9
3 changed files with 10 additions and 1 deletions
--- a/SMILEBASIC/systemvariable.d
+++ b/SMILEBASIC/systemvariable.d
@@ -131,3 +131,11 @@ class MilliSecond : SystemVariable
            return Value(cast(int)SDL_GetTicks());
        }
 }
+class ProgramSlot : SystemVariable
+{
+    @property
+        override Value value()
+        {
+            return Value(vm.petitcomputer.program.currentSlot);
+        }
+}