-
DEF FN DirectivesI am looking at using some machine code functions from the DK Graphics Pack. They are machine code but they are called via Basic with the function de…
... , and that was via a DEF FN.[/quote]
Interesting... I ... be entirely doable as an FN. -
DEF FN DirectivesI am looking at using some machine code functions from the DK Graphics Pack. They are machine code but they are called via Basic with the function de…
... />
The nice thing about DEF FN + some USR call is that ... -
DEF FN DirectivesI am looking at using some machine code functions from the DK Graphics Pack. They are machine code but they are called via Basic with the function de…
I like the DEF FN method of calling USR functions. Always think it is worth having a distinct m/c entry point to go with it though. -
New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
... /> DPEEK (address)
FN P (address)
DEF FN P(A)=PEEK ... -
Why are we here? (At WoS)No, not a deep philosophical question about the nature of life, the universe and human existence. The thread “what does your partner think of …
... (except for recursive use of DEF FN, if I remember my [B ... -
Disappearing/appearing effectI remember doing a small routine in BASIC which could be used to cover the attributes section randomly, until all 704 characters were filled with the…
... I devised was:
1 DEF FN r(c,d,p)=c ... >=-d)
10 PLOT FN r(RND*255,255,PEEK ... 23672),FN r(RND*175,175,PEEK ... the completion time substantially. (The DEF FN version takes about 80 minutes ... -
Disappearing/appearing effectI remember doing a small routine in BASIC which could be used to cover the attributes section randomly, until all 704 characters were filled with the…
... 10, 7, 1
10 DEF FN l(v,a,b) = INT ... if it is
20 DEF FN t(x,n) = INT(x ... LET val = FN l(val,FN t(val,8),FN t(val,1 ... -
St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... :let n=11:let m=fn r(8)
410 let ... =y(m):let p=2*fn r(2)
420 if ... =r+1:let c=c+fn r(3)-2
250 ...
1020 return
2000 def fn r(n)=int(rnd*n ... =1
220 let r=fn r(16)+2
230 ... let c=fn r(16)+4
240 ... -
St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... 0
190 let m=fn r(11)-6:let l ... 3
610 let k=fn r(10)-1:ink k ...
1020 return
2000 def fn r(n)=int(rnd*n ...
1020 return
2000 def fn r(n)=int(rnd*n ... gosub 700
240 if fn r(2)=1 then let ... j
330 let k=fn r(x):let n=m ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... .
[code]
1 DEF FN a(r,n)=r-INT ... $(x)-40):
LET c=FN a(3+PEEK 23673,256 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ c$,m,n,v,p:
LET x=RND*36+10:
POKE n*(c$(x)>"O"),3:
LET c$(x)=CHR$ (CODE c$(x)-40):
LET c=FN a(3+PEEK 23673,256):
CLS :
LET x=x+n*(c$(p) -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 DEF FN a(r,n)=r-INT ( ... ;"O"),3:
LET c=FN a(3+PEEK 23673,256 ... $(p)=x$):
PRINT "Room:";FN a(CODE c$(p),40 ... x$=h$;"NESW"(g);":";STR$ (FN a(CODE h$,40)^2 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 DEF FN a(r,n)=r-INT ( ... new
LET c=FN a(3+PEEK 23673,256 ... reached
PRINT "Room:";FN a(CODE c$(p),40 ... x$=h$;"NESW"(g);":";STR$ (FN a(CODE h$,40)^2 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
2 DEF FN r(u)=z+z*u*( ... =l+5-4*m(q+FN r(1)*((l=15)-(l ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... in #591 which has the DEF FN removed. I agree it is ... -
A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
... to interpreted languages only (VAL$, DEF FN, READ, DATA, RESTORE...).
A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
... /> REM Bye bye, my beloved DEF FN :-(
Function myfunctions (Param1, param2 ...Trying to read in a list of items from DATA statementsThus far I have: data "cherry","apple","banana","grape","orange" But when I read it in using this: FOR X=1 TO 5: READ n$(X): NEXT X It only reads…
... you put that into a DEF FN statement :-)
There's ... some bloody evil FN coders out there - Phil Kendall ... has written some very nice DEF FNs too, so let's ...oh my the old days :)programming on the speccy again here is a routine i remember of the top of my head to load screens or code without a header wow 5 Clear 27999 : Re…
... /> [CODE]10 DEF FN h(y)=INT (y/256): DEF FN l(y)=y ... -256*FN h(y)[/CODE ... .
[CODE]PRINT FN h(32768),FN l(32768)[/CODE]
Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
[QUOTE=Crisis;283339]
...could a decent DEF FN l(start,adres)=usr Call:REM Call.... work ve(snip)
[/QUOTE]
Can you elaborate on this? I'm not sure what you mean!Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... Crisis;116568]Using a DEF FN for executing MC in ... br />
1 DEF FN c(a,x)=USR (( ... the lenght off the DEF FN it self, so it ... br /> 30 LET other= FN c(NXTLIN,-datalenght): REMxxxDATA-1xxxxxxxxxxxxxDATA ... br /> 1000 let other= FN c(NXTLIN,-lenght): RETURN: REM ...WoS Sinclair BASIC page updated[url]www.worldofspectrum.org/sinclairbasic[/url]
... ;309103]What's wrong with DEF FN Name(value1, value 2,...)? If ... a FUNCTION.[/QUOTE]
FN allows only one (complex) calculation ... . I still use it.
DEF PROC on the other side ...WoS Sinclair BASIC page updated[url]www.worldofspectrum.org/sinclairbasic[/url]
... because Brainfuck doesn't have def fn you'd be much better ...New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
[quote=aowen;310390][code]
DEF FN r(x,y)=(USR 7766 ... .[/quote]
[code]
DEF FN r(x,y)=(USR 7766 ...reading Hex[code]1 DIM a$(20,20) 2 DIM g$(16) 3 LET g$="\::\ \' \ '\ .\. \.:\:.\:'\':\''\..\: \ :\'.\.'" 4 BORDER 4 20 LET a$(1)="00000000000000000000" 21 LET …
... ]
Replace VAL(...) with FN n(...)
you can ... ()
[code]
10 DEF FN n(c$)=CODE c$-48 ... $
40 PRINT t$(i),FN n(t$(i))
50 ...faster bitwise operators?well, sinclair basic lacks bitwise operators and I searched "basic forum" with keyword "bitwise" and only 3 thread came up. So the forum also lacks b…
... /showthread.php?t=6093"]Using DEF FN to add functions to Sinclair ...
