-
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…
A 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 structure of Sinclair BASIC, the best place to store these functions is in line 0. This prevents the line being ... -
Programming MC : first stepsIsn't nice to collect all kinds of short routines to help making the first steps into MC for everyone who never touched MC? What I mean is mostly th…
... br />
start ld hl,(23672)
ld (seed),hl ; ... /> ld hl,(seed) ; fetch RND pointer
inc hl ; point ... ld (seed),hl ; store next RND-pointer
ld a,(hl ... -
Happy birthday RNDThink of a number between 0-100 RND, go on, any number. Huppy Burthus-day.
Think of a number between 0-100 RND, go on, any number.
Huppy Burthus-day. -
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…
... LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50: RETURN [/CODE]
... LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... 23674+256*PEEK 23673+PEEK 23672)/50: RETURN [/CODE]
... -
problem with RND (or maybe INT)I'm using this statement: LET m=(INT (RND*sn)+k1)*k2-k1 to give a pointer m to a 2-byte segment of a string l$. Items k1 & k2 are integer constants…
... :
LET m=(INT (RND*sn)+k1)*k2-k1
RND*sn)+k1)*k2-k1: PRINT ... -
RND CommandsExactly how random are they? Reason I ask is I'm using 4 of them to generate a random number, the value of which then assigns movement commands to f…
... seem to recall a RANDOMIZE RND command which I've entered ...
930 LET k=INT (RND*8)
940 LET l ... =INT (RND*8)
950 LET m ... =INT (RND*8)
960 LET n ... -
RND numberHow do I go about selecting from the numbers 4,9,14 and 19? (RND*4)*5-1 ????? :-?
How do I go about selecting from the numbers 4,9,14 and 19?
(RND*4)*5-1 ????? :-? -
Basic BASIC help needed RNDHi all, I have recently re-discovered an old program I wrote in the early 90s which would do generate random lottery numbers. I know little now, an…
Help needed... RND in machine codeI have been battling away trying to convert a simple BASIC routine (below) to machine code, but to no avail. The routine is used to fire 2 bullets a…
... flummoxed, mainly due to the RND equation!
Any ideas ...problems with rndGot past the whole INKEY$ issue and now am trying to pin down the combat section of the game. got a basic combat routine however, when i try and gen…
... LET PH=INT (RND*6)+(INT (RND*6))+(INT (RND*6)): LET PD ... =INT (RND*6): LET MH=INT (RND ... *18): LET MD=INT (RND*6)
50 ...RND cyclical behaviourGood evening. I'm playing with RND function to show its cyclical behaviour, i.e. after 65536 calls to it, the next one will return the same value of …
... .
I'm playing with RND function to show its cyclical ...
15 LET r=INT (RND*n)
20 LET y ...Random Numbers, USR Return Values & Timing BASICI've been trying out Jon Ritman's random number routine, published in Your Sinclair Aug'87. Apart from a timing comparison I also did a frequency ana…
... )" for printing.) The standard Spectrum RND (on the left) gives an ... the test loop processing overhead, RND took 8.82 seconds for ... being "much, much faster" than RND. The '500' timings for the ... number function 3*speed of RND and with almost identical results ...random number generator without using rnd in basicwhat is the simplest way to generate random numbers in basic (0-255), without using the rnd statement? i also want it to always generate the same…
what is the simplest way to generate random numbers in basic (0-255), without using the rnd statement?
i also want it to always generate the same numbers over and over again.New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
This is what I've compiled so far:
[quote]Resources
=========
* Make all caps
---------------
You can turn CAPS LOCK on or off using a simple poke to 23658:
POKE 23658,8: REM CAPS ON
...Pocket Clive - 2 QuestionsHello, I've just started using Pocket Clive on my iPaq pocket PC, excellent emulator BTW. 1. I have just wrote a small BASIC program to randomly pi…
... on subsequent calls to the RND function, making it not ... the same value produced by RND if you are manually ... /> 100 LET p=INT (RND*n)+1
110 PRINT ... /> 130 LET p=INT (RND*n)+1
140 PRINT ... random seed
ld a,(23672) ; lsb of FRAMES is now ...The Non Randomness of Sam BasicHows about this for weird. Hardly ever bothered with such simple stuff before but this is what I just did on the Sam ( as in a real one now I've got …
Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... a coin (ie rnd(2)). One would ... zcc +zx -vn rnd-test.c -o rnd-test.bin -lndos ... br /> extern int std_seed(23672); // random number seed ... zcc +zx -vn rnd-dist.c -o rnd-dist.bin -lndos ... br /> extern int std_seed(23672); // random number seed ...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…
... TO 1e9:
LET r=RND:
LET i=(INKEY$="7 ... ,28;t;"s";AT 21,RND*29+1; INK 3-2 ... +"_"+CHR$ 145 AND PEEK 23672Oneliner 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…
... TO 1e9:
LET r=RND:
LET i=(INKEY$="7 ... ,28;t;"s";AT 21,RND*29+1; INK 3-2 ... +"_"+CHR$ 145 AND PEEK 23672Disappearing/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…
... numbers for the array - using RND, presumably. It's quite quick ... :
10 LET r=INT (RND*45056): LET y=INT (r ... r(RND*255,255,PEEK 23672),FN r(RND*175,175,PEEK 23672)
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…
... def fn r(n)=int(rnd*n)+1
2010 randomize ... def fn r(n)=int(rnd*n)+1
2010 randomize ...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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK ... 23674+256*PEEK 23673+PEEK 23672)/50: RETURN [/CODE]
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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK ... 23674+256*PEEK 23673+PEEK 23672)/50: RETURN [/CODE]
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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ...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…
Hi Dr. Beep,
Tried one of the tricks you said (move the code nearer the top) and a couple of other optimisations and the Shell Sort now averages 10.3 seconds rather than 11.57.
[CODE]100 GO SUB 250
110 REM SHELL SORT V2
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…
... /> LET v$(i)=CHR$ (65+RND*25):
NEXT i
23672)/50:
LET t2=(65536 ... 23674+256*PEEK 23673+PEEK 23672)/50:
RETURN
[/code ...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…
... 23674+256*PEEK 23673+PEEK 23672
10 DIM t(2 ... 50:
LET o=INT (RND*50)+1: LET n=INT ... (RND*50)+1:
LET o$= ...
