28 lines
599 B
Plaintext
28 lines
599 B
Plaintext
# 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)
|