Data commit

Task/Reflection-Get-source/Ring/reflection-get-source.ring

@@ -0,0 +1,27 @@
+# Project : Reflection/Get source
+
+fp = fopen("C:\Ring\applications\fifteenpuzzle\CalmoSoftFifteenPuzzleGame.ring","r")
+r = ""
+str = ""
+flag = 0
+numline = 0
+see "give the function: "
+give funct
+funct = "func " + funct
+while isstring(r)
+        r = fgetc(fp)
+        if r = char(10)
+           flag = 1
+           numline = numline + 1
+        else
+           flag = 0
+           str = str + r
+        ok
+        if flag = 1
+           if left(str,len(funct)) = funct
+              see '"' + funct + '"' +" is in the line: " + numline + nl
+           ok
+           str = ""
+        ok
+end
+fclose(fp)