Data commit

Task/Repeat/Action-/repeat.action

@@ -0,0 +1,32 @@
+DEFINE PTR="CARD"
+
+PROC OutputText(CHAR ARRAY s)
+  PrintE(s)
+RETURN
+
+PROC Procedure=*(CHAR ARRAY s)
+  DEFINE JSR="$20"
+  DEFINE RTS="$60"
+  [JSR $00 $00 ;JSR to address set by SetProcedure
+   RTS]
+
+PROC SetProcedure(PTR p)
+  PTR addr
+
+  addr=Procedure+1 ;location of address of JSR
+  PokeC(addr,p)
+RETURN
+
+PROC Repeat(PTR procFun CHAR ARRAY s BYTE n)
+  BYTE i
+
+  SetProcedure(procFun)
+  FOR i=1 TO n
+  DO
+    Procedure(s)
+  OD
+RETURN
+
+PROC Main()
+  Repeat(OutputText,"Action!",5)
+RETURN