-
Post your photos!I recently got around to posting some photos of me on the net. I can remember a thread a few years ago where people posted their photos - let's do i…
... . But I suppose it's fun when you live there ... habitat.
OK it's Scottish. But when you're ... in Urmond (although still no def. date)
... /> Remember: beep Dr Beep !!!!
[ This Message was edited by: dr beep on 2005 ... -
Post your photos!I recently got around to posting some photos of me on the net. I can remember a thread a few years ago where people posted their photos - let's do i…
... 2005-02-07 16:04, Dr BEEP wrote:
Well,
OK it's Scottish. But when you're ... in Urmond (although still no def. date)
[/quote]
s only 25 minutes from here ... -
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. …
... />
How about those PowerFull DEF FN Statements?
How far do ... go?
fals: 10 DEF FN C$(z,y,x,item ... -
Lesser used BASIC commandsAre there any interesting articles or books that explore some of the lesser used BASIC commands/functions e.g. DEF FN, IN, OUT etc? The Spectrum BAS…
... that it is a recursive running line but it ... else than "Break" ??? since its recursive??[/QUOTE]
You ...
For completeness, here's Mike's DEF FN from hell in BASin-friendly ... />
[code]
10 DEF FN a$(n$)=VAL$ ((VAL$ (""""""+("+\#19434 ... -
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=Dr BEEP;171915]I would do it like this:
[code]
DEF FN h$(x) = "0123456789ABCDEF"(INT(x/16))+"0123456789ABCDEF"(x-16*INT (x/16))
[/code][/QUOTE]
Dr Beep, that is a very cool lateral solution, which even I understand! :-) -
Game OptimisationBelow is a section of code Im using for movement enermy display and collision detect. What happens is that you move the sight with ,.qa and space do…
[QUOTE=Dr BEEP;192968]The second respond isn' ... in Sinclair Basic:
Define DEF FN in top, place GO SUB ... at the moment is the DEF FN part but apart from that ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... front of our Spectrum, it's difficult to go away... We ... you guys mess with LET, FN and strings is too much ... of other forum members. Namely, Dr BEEP and Einar Saukus, have taught ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... />
Agreed!
Here's my suggestion for the final ... :
[CODE]
1 DEF FN r(x)=IN x191 AND ... IN x0)*FN r(32766):
LET b ... =(f>a)*(FN r(57342)-FN r(64510)):
LET ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... [/QUOTE]
Actually it's finished! I implemented SOKO-BAN ... :
[CODE]
1 DEF FN z$(x)=CHR$ 22+CHR ... $(x)/4-8:
DEF FN p$(x)=FN z$(x)+CHR$ 16 ... +CHR$ FN m(x)+CHR$ (FN m ... =7 TO 55:
PRINT FN p$(f):
NEXT f ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... br />
[CODE]
1 DEF FN z$(x)=CHR$ 22+CHR ... $(x)/4-8:
DEF FN p$(x)=FN z$(x)+CHR$ 16 ... +CHR$ FN m(x)+CHR$ (FN m ... 18 TO 53:
PRINT FN p$(z+31):
NEXT ... i=6):
LET a=FN m(z+d):
LET ... b=FN m(z+d+d):
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... Murase's Auto-Generated #02":
[CODE]
1 DEF FN ... )/4-8:
DEF FN p$(x)=FN z$(x)+CHR$ 16 ... +CHR$ FN m(x)+CHR$ (FN ... 7 TO 55:
PRINT FN p$(f):
NEXT ... =6):
LET a=FN m(z+d):
... LET b=FN m(z+d+d):
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... Murase's Auto-Generated #03":
[CODE]
1 DEF FN z ... )/4-8:
DEF FN p$(x)=FN z$(x)+CHR$ 16 ... +CHR$ FN m(x)+CHR$ (FN ... TO 62:
PRINT FN p$(f):
NEXT ... =6):
LET a=FN m(z+d):
... LET b=FN m(z+d+d):
Vector drawing routines.Anybody could point me to some sort of vector drawing package of routines, callable from BASIC? With "vector drawing" I mean to draw 2D pictures with…
[QUOTE=Dr BEEP;221848]Do you have an ... of the fill, it's just done in a different ... of deeply nested "call fill"s. So many happen in ... bytes (measured in Spectaculator). That's what I meant when I ... have to be careful with recursive flood fills :) However your ...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 …
... Winston;253051]Because it's fun. That's all. Nothing deeper ... industry, and follows Hollywood's unwritten mantra of "forget ... crashed (except for recursive use of DEF FN, if I remember ... with the benefits of it's extremely comprehensive development environment ( ...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…
... n
210 dim s(8):for n=0 to ... 5000:print chr$(51):let s(n)=3
300 ... =1 to 5:beep x,1:beep x,0:next ... s(m)=s(m)-1:print chr$(s(m)+48)
540 if s ... y" then print"there's no accounting for tastes":goto ... /> 1020 return
2000 def fn r(n)=int(rnd*n ...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…
...
1020 return
2000 def fn r(n)=int(rnd*n ... br /> 1020 return
2000 def fn r(n)=int(rnd*n ... +c(j):next j:read s,x
220 data ... ":gosub 900
260 if s=9 or q(9)4 ... ":gosub 900
410 if s=9 or q(9)p ... n
310 if a$="s" and v+nBASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... and 'L'
BEEP Caps Shift+Symbol Shift, ... then 'D'
DEF FN Caps Shift+Symbol Shift, ... /> NOT Symbol Shift and 'S'
OPEN # Caps ... , then Symbol Shift and 'S'
} Caps Shift ...BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... E : SYM + L
BEEP : E : SYM + Z
DEF FN : E : SYM + 1< ... E
RESTORE : E : S
RETURN : K : ... R
SAVE : K : S
SCREEN$ : E : SYM ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
[QUOTE=Paddy Coleman;478487]Hi Dr. Beep,
...
Yeah I know ... the time stuff in a DEF FN but for some reason they ...numbers to binaryHi everyone, I have looked through the manual and have found nothing. How do you change a number to binary easily? I know you can go binary to decim…
The "recursive nibble generation" method (a ... )
It's a pity that Philip's trick for implementing ... seem to work with double recursive functions (functions that call ... ... :)
[code]10 DEF FN b$(n,d)=VAL$ "STR ... ";n
30 PRINT FN b$(INT (n/16),4 ...variable variable names with VAL$It's possible to make the RH-side variable names in a LET statement be themselves variable by using VAL$. Thus, if v$ holds the [b]name[/b] of anothe…
[QUOTE=Dr BEEP;483688]Errm, isn't recursive function working like asked, so ... .... I don't think so. Recursive functions work because you can ... end points. Once evaluated, it's returned as the function result ...variable variable names with VAL$It's possible to make the RH-side variable names in a LET statement be themselves variable by using VAL$. Thus, if v$ holds the [b]name[/b] of anothe…
[QUOTE=Dr BEEP;483699][code]
1 let b$="hello"
2 let v$="b$"
3 let a$=VAL$ v$
4 print a$
[/code][/QUOTE]
Very nice - scope for a [B]DEF FN[/B] there ?!Help with random numbers......Hi all, wonder if anyone can help me... sort of a novice here ... I have been trying to write a simple ish basic program to compare random sets of n…
Alternatively, here's an example of using a recursive function to do the ... DEF FN a()=FN r(1+INT (RND*49)):
DEF FN r(x)=VAL (("FN ... 6
80 LET a(FN a())=n
110 NEXT ...Help with random numbers......Hi all, wonder if anyone can help me... sort of a novice here ... I have been trying to write a simple ish basic program to compare random sets of n…
... ]Alternatively, here's an example of using a recursive function to do ... DEF FN a()=FN r(1+INT (RND*n)):
DEF FN r(x)=VAL (("FN ... -1
80 LET a(FN a())=50-n
110 ...FN nesting error?While playing with FN functions that call assembly, I've found something weird. Check out this code: [code]10 DEF FN f(a,b)=a+b 20 PRINT FN f(FN f(…
I agree with McLeods explanation. An inner FN with a different name has a private parking place and does not need the hidden storage in the same DEF FN statement. Did known recursive functions escape from this by having the inner FN's as the first element?Procrustean PrintingHere's a short routine to manage printing of text with command tokens, to avoid messing up the screen when they are expanded. It just prints as many …
... main Substring section; it's just the method by which ... all, even though it's called via a PRINT statement ... got the stack idea from Dr Beep, which I enhanced to accept ... ). In this case it's the Substring routine which does ... printed a function; eg. "FN d(2,0)
