... /> [code]
2 DEF FN t$(n,t,d)
=STR$ INT (n ... )+(":" AND d=6 AND n>500)
+VAL$ (("FN t$("
+STR$ (t/d)+","
+STR$ (d-4+(8 AND d=6))
+")" AND ...

... the function defined such as DEF FN g(x, y, p, q ...

... ?

Using:

DEF FN w(w$,o$,c)=VAL ... (("FN w(w$,o$,c+1)" ... />
with:

w$(FN w(w$,o$,1))
FN w(w$,o$,1)*100).

... after each parameter in the DEF FN definition. There's code there ...

... after every parameter of a DEF FN.

By the time ...

... BASIC was at locating the DEF FN when called upon.

[code]
10 DEF FN a()=10
20 PRINT ... :
[code]
10 REM : DEF FN a()=10
20 PRINT ... ROM routine that looks for DEF FN, DATA and (oddly) NEXT appears ...

... i])
[code]
DEF FN C$(n)=CHR$ INT (n ... $[/i])
[code]
DEF FN D(h$)=(CODE h$(1)-48 ... [/b]()
[code]
DEF FN F()=65536-USR 7962
[code]
DEF FN H$(n)=CHR$ (INT (n ... [/i])
[code]
DEF FN L$(l$)=CHR$ (CODE l ...

... ]
// page 150
130 DEF FN d(s$) = (s$ > "9")*( CODE ...

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.

... .

[code]
2 DEF FN d$(l$,n)=l$+CHR$ 14 ... $=FN d$("A",va)+FN d$("B",FN g(nv))+FN d$("C",FN h(nv))+FN d$("D",FN g(n))+FN d ... $("E",FN ...

...
[code]
30 DEF FN d=INT(mind+INT(1+(RND ... +RND*LEN e$,d$=d$+CHR$ VAL e ... TO),l$=l$+CHR$ FN d:
LET x ... call our function "FN d" from earlier to get ... y$(f),d(f)=CODE d$(f),l ... />
Ordinarily I'd probably just use the information ...

... "optimised" version):

[code]DEF FN D$(n)=CHR$ (INT n+7 ... ]DEF FN H$(n)=FN D$(n/4096)+FN D$(FN V(n,4096)/256)+FN D$(FN V(FN ... V(n,4096),256)/16)+FN D$(FN ... V(FN V(FN V ...

... 9")[/code]:

[code]DEF FN D(H$)=(CODE H$(1)-48 ... faster calculation:

[code]DEF FN H$(n)=CHR$ (INT (n ... 9)+48)+CHR$ (INT (FN V(FN V(n,4096),256)/16 ... gt;9)+48)+CHR$ ((FN V(FN V(FN V(n,4096),256 ... ),16))+7*(INT FN V(FN V(FN ...

10 Def Fn D$(n,s$)=val$ (("s$+fn D$(n-1,s$)" And N>0)+("""""" And N=0))
20 Print Fn D$(10,"abc")

... :-

[code]
130 DEF FN d(s$)=(s$>"9")*(CODE ...

... -256*FN h(v): DEF FN h(v)=INT (v/256)
20 DEF FN d ... (a)=PEEK a-(64 AND PEEK a>127):
DEF FN ... m$(a$,a,b$,b,l)=FN d$(a$,a,l,0)+","+FN d ... $(b$,b,l,1)+")":
DEF FN d ...

... are four channels (A to D). The first three channels ...
C, Db (C#), D, Eb (D#), E, F, Gb (F#), G ... />
Notes in channel D are played with the BEEP ... :

[code] 10 DEF FN D(o,n)=n-VAL "37 ... For example [b]BEEP 1, FN D(4, C)[/b] would play ...

... -256*FN h(v): DEF FN h(v)=INT (v/256):
DEF FN d(a ... )=a-(64 AND a>127)
3 DEF FN m ... $(a$,a,b$,b,l)
=FN d$(a$,a ... ,INT(l/256),1)+")":
DEF FN d$(a$,a,b,l,m ...

... = val0 = number to complement
d = bits = number of bits to ... RETURN

llll DEF FN d(a,d,g,v)=g:
RESTORE ... /256)
....
GO SUB FN d(val0,bits,nnnn,0)
nnnn FOR p=0 TO d-1:
LET ba2=INT ...

... :) The critical function is the DEF FN at the very start of ... time consuming:

10 DEF FN d(o,w,u)=299.76148 ... calculations):

9900 REM DEF FN d(o,w,u)=(245/(1 ...

... Crisis;649088][code]
10 DEF FN d(o,w,u)=299.76148 ... a plain w in your def fn, but only use it ...
[code]
10 DEF FN d(o,u)=299.76148*w ... it def fn d(o,w+1,u)

[code]
10 DEF FN d ... three EXP functions in that DEF FN, as each of them ...

... $=h7$ ($5F5E0FF = 99999999)
3051 DEF FN d(h$)=16^(LEN h$-1 ... h$>64))
+VAL (("FN d(h$(2 TO))+" AND LEN ...

... /> 3 DEF FN x(x,y,d)=FN a(x,y,FN r(d)):
DEF FN a ... /> 4 DEF FN y(x,y,d)=FN b(x,y,FN r(d)):
DEF FN b ...
5 DEF FN r(d)=d/180*PI
6 DEF FN Battle Bunny January 2014 Development

... at run-time you'd need to pre-plan ... 3 DEF FN x(x,y,d)=FN a(x,y,FN r(d)):
DEF FN ... 4 DEF FN y(x,y,d)=FN b(x,y,FN r(d)):
DEF FN ... /> 5 DEF FN r(d)=d/180*PI
6 DEF

Battle Bunny January 2014 Development

... />
;DEF FN d(d$,r,c)=USR DoubleHeight
;LET bc=FN d(d$,r,c ... ): REM print d$ AT r,c ...
        ld   a,(ix+6)        ;  =d$ length (1

... /> ;DEF FN d(d$,r,c)=USR DoubleHeight
;LET bc=FN d(d$,r,c ... ): REM print d$ AT r, ... de),a          ;twice
        inc  d
        inc  hl
... />         inc  hl              ;HL=next d$ byte address
        dec  ...

...
Functions:
[code]
DEF FN d(w,x)=INT ((x-w ... X pixel coord
DEF FN e(y,z)=(175-z ... Y pixel coord
DEF FN p(a)=PEEK a+256 ... a,a+1.
DEF FN r(a)=8001
... X pixel coordinate
DEF FN y(y)=175-y: HPLOT ...