-
POKE, PEEK and RANDOMIZE USRAnyone got a store of useful POKES, or RANDOMIZE USR statements with interesting effects? As a start, try anything from RANDOMIZE USR 1216 to RANDOM…
... ZX81 POKE (or, more probably, PEEK) once which would display the ... -
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…
... /> DEF FN P(a)=PEEK a+256*PEEK (a+1)
[/code ... /> DEF FN T()=(1 AND PEEK (1+FN P(23639))=34 ... )+(2 AND PEEK (FN P(23639))>13 ... AND PEEK (1+FN P(23639))> ... -
Speed of variables vs. POKE/PEEKGreetings, I'm sure I could probably find this out after careful study of the 48K ROM disassembly, but I was wondering whether someone already knew …
... 't it be faster to PEEK/POKE values at an absolute ... -
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. -
BASIC Keyword ReferenceRealised that the Sinclair Basic section would be a better place for discussion of BASIC keywords, so for reference the old thread is in [thread=2005…
...
CLOSE # : E : SYM + 5 PEEK : E : O
CLS : K ... : Y
EXP : E : X RND : E : T
FLASH : E ... -
Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
Following a request in another thread, this could almost be crammed into one line.
It uses a simple ON ERR CONTINUE to give a continuous display.
[code]
10 INK RND*6
20 IF RND -
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 ... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK ... 23673+PEEK ... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... -
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…
Dimming the screen...Hi Folks, I was hoping someone on here could help me with a wee machine code routine. I have written the following example in BASIC: [CODE]100 REM…
... : PRINT AT y,x; PAPER RND*7;" ": NEXT x: NEXT y ... 23231: POKE a,PEEK a-(64 AND PEEK a>64): NEXT ...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 ...generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
...
20 LET r=INT (RND*768): LET y=INT (r ... *32+x: LET p=p-(PEEK q0): POKE q,0:
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 ...GEDit syntax highlighting for Boriel's ZX BasicHi! I just tailored this syntax highlighting code and would like to share with he community. Suggestions are always welcome, though the file works w…
Where does the the Spectrum store the PLOT position ?So try this and it works just fine. The Spectrum must store the PLOT position somewhere as the line moves along. I'm sure someone knows where this is…
... this is? Where do I PEEK?
5 PAUSE 0: RANDOMIZE ... 0,0
20 DRAW RND*20,RND*20
30 GO ...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.Randomised data samplingHere is something that could be written in BASIC, if anyone is interested. Lets say we want to sample a subset of a larger population, we can do t…
... /> 20 POKE poptab+n, INT (RND * 4)
30 NEXT n ... 511
110 PRINT INK PEEK (poptab+n)+2; "O";
16k and PEEK 40000 (on a real 16k Spectrum)?Imagine a real 16k Spectrum (without any RAM expansion or circuits fitted). What would I get if I do a PEEK or try to access memory over 32767? Wo…
... get if I do a PEEK or try to access memory ...More random questionsWay back in the mists of time I remember reading a couple of articles in an ancient copy of Sinclair User, ZX Computing or the like (can't remember w…
... :
POKE (PEEK 23635+256*PEEK 23636) + 1,0
25 Beep .0010, INT ( RND*50 - ( SGN PI*INT ( ... PI ) - RND*5))
30 If n= ... 5000: Randomize: Beep .0010, INT ( RND*50 - ( SGN PI*INT ( ... PI ) - RND*15)): If n=10 Or ...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…
... poke:
POKE PEEK 23633 + 256 * PEEK 23634, 111
PEEK 23613 + 255*PEEK 23614
20 PRINT PEEK A; TAB ... 10; PEEK (A+1 ... ); TAB 20; PEEK (A ...I got it bad!Just noticed the speccy Loading sounds on one of the menu selections on the Mutant X DVD. I got excited and played it a few times. Oh dear!
... on PEEK 89345968745whateveritwas was identified as having the filename "STARSTRIKE RND" (or ... something like that - STARSTRIKE RND is too long ...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 …
... =RND*255
20 LET Y=RND*175
30 DRAW X-PEEK ... 23677, Y-PEEK 23678 ...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 …
... FN r(RND*255,255,PEEK 23672),FN r(RND*175,175,PEEK 23672 ...
