Go here:

[url]http://www.zxspectrum4.net/forum/viewtopic.php?f=6&t=17[/url]

And get the latest if you're interested. I've added procedures and functions (DEF PROC and speccy-style DEF FN).

D.

Hi guys)

Shortly, I wanna find out whether there's a way to some object. Perhaps some of you have already encountered such an issue which is relatively easily solved in pseudocode:[CODE]Procedure Fill(const x,y:byte);
begin
if ...

... v/256):
LET udg=FN p(23675)
20 LET ... 14,0,FN l(df),FN h(df),FN l(dl),FN h(dl ...
40 POKE defadd,FN l(udg): POKE defadd+1 ...
60 POKE defadd,FN l(udg): POKE defadd+1 ... searches the DEFADD area (where FN variables are defined) before ...

... a mark with CTRL-SHIFT-Fn (F1 - F10), and then jump ... to that mark with CTRl-Fn.
RENUMBER command. Renumbers either ...

... stack overflow, caused by indirect recursive sub-routine calls, which would ...

... they both work, the DEF FN wasn't totally satisfying, ... shortage of them) :); the DEF FN definition is shown below. (I ... /> PRINT FN b$(FN h(12345),10,2,8);FN b$(FN l(12345 ... :
[code]
PRINT FN b$(00110000,2,10,8 ... n,a,b,l)=FN b$(VAL FN b$(n,a,10 ...

... DEF FN b(h$)=16*FN n(h$(1))+FN n(h ... $(2)):
DEF FN ... g(v)=v-FN ... 9991 LET prog=FN p(23635): LET vars=FN p(23627):< ... LET l$=CHR$ FN g(l)+CHR$ FN h(l):
LET l2=FN p(a0+2): LET a0 ...

... rename as 'b']
. eg. FN f("z$()","b",find) -or ... - FN f("z()","",find)
* ... with value 'b'
. eg. FN f("z$()","wxyz",fill) -or ... 'b' (may overlap)
. eg. FN c(22528,22529,127,CHR ... ...,pn],r1" or "DEF FN f(p1[,p2...,pn])=USR ...

... ",va)+FN d$("B",FN g(ov))+FN d$("C",FN h(ov))+FN d ... )+FN d$("B",FN g(nv))+FN d$("C",FN h(nv))+FN d$("D",FN ... g(n))+FN ... d$("E",FN ...

... DEF FN g(v)=v-256*FN h(v): DEF FN h(v ... 256)
11 LET udg=FN p(23675): LET defadd=23563 ... m: READ n$: LET datend=FN p(datadd):
LET m ... br />
45 POKE defadd,FN g(udg): POKE defadd+1 ... 1: READ n$: LET datend=FN p(datadd)
71 IF ...

... uses a$=b$ via DEF FN. I thought it was written ...

... taken off again.
* DEF FN m(s$)=USR mc: LET ... bc=FN m(s$): whereby mc can ... details from within the DEF FN statement using the DEFADD pointer ...

... essentially treated as a DEF FN parameter) it can only ...
[code]
2 DEF FN p(a)=PEEK a+256 ... ",CODE "$",14,0,FN g(sa),FN h(sa),0,0 ... are redirected)
DATA FN g(sa),FN h(sa):
... /> POKE 23563,FN g(sd): POKE 23564,FN h(sd): RETURN ...

... /> DEF FN c()=FN p(23621): DEF FN p(a)= ... [code]
GO SUB FN r(subroutine_line,number_of_levels,0)
...0 LET break=FN p(prog+19): REM break ... ,FN g(FN c()+1): POKE gs+1,FN h(FN ... ----------
9980 LET gln=FN p(prog+19): LET gst ...

... rightpad
... examples ...
FN p$(1.2,0,0 ... ,1) := "1.0"
FN p$(1,-5,3) := " 1 ... .000"
FN p$(1,-5,0) := " 1 ... 3) := "-00.120"
FN p$(0,0,0) := ""

... RETURN

llll DEF FN b(a,b,c,d ... /256)
....
GO SUB FN b(val1,val2,opcode,bits ...

... to crash
PROCedure and FN names can now be any ...

... function of the form:
"FN a$(a$,a[,b...,z ... expression. This works but the FN side of it is too ... lose the flexibility of the FN method, which can be used ... is the flexibility of the FN method with the speed of ...

...
12 LET vars=FN p(23627)-alen:
POKE ... 23670,FN g(vars): POKE 23671,FN h(vars):
FN p(23627)+alen:
... POKE 23670,FN g(vars): POKE 23671,FN h(vars):
9999 LET vars=FN p(23627): LET check=1813 ...

I was writing a DEF FN on the +128k and decided ... a quoted string. So for FN insert UDG F, for AND ... ...
[code]
9990 DATA "fn",168,"and",198,"len",177 ... ";l: RESTORE l: LET a=FN p(23639):
LET la ... b>=ae):
DEF FN p(a)=PEEK a+256 ...

... is then iterative rather than recursive, which saves constantly pushing and ...

... :

[code]
DEF FN P$(Y)=CHR$ 0+CHR ... :

[code]
DEF FN P$(Y)=CHR$ 19+CHR ...

... ]yuai]yuai~W+yllq1n^1inot[fN+yllq1n^1inot[finot[finot[finot ... ~inot[f44(&**)+yllq1n^1inot[fN%kioyl^%%kioyl^(vinot[fyllq1n^12 ...

... a function defined by DEF FN)?

... quicker than using a DEF/FN, as there's no need ... parameters, for which a DEF FN would be better.

... example, in:
[code]DEF FN j$(s,l)=CHR$ PEEK ... (s)+VAL$ (("FN j$("+STR$ (s+1)+","+STR ... ))[/code]
replace the quoted FN with {A8} thus:
[code ... ]DEF FN j$(s,l)=CHR$ PEEK ...

... 33: RESTORE 20: LET fnq=FN p(23639)+8:
... LET qlo=FN l(fnq): LET qhi=FN h(fnq): LET ... /> GO TO 40: REM find FN q() from DATADD
< ... b$,l)
42 REM FN q() PARAMETERS
a$= ... /> LIST 45: GO SUB FN q(s$,"16384",2048):

... not tokenizing things when entering recursive functions. You can also use ...

... icons"CODE
20 DEF FN z(r,c,i)=USR ... this:

[CODE]FLASH FN z(5, 8, 16)[/CODE ...