-
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))> ... -
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…
... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672 ... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672 ... -
A little program to set the time...Hi Folks, OK, I have amended the program so you now have four routines/functions you can use in your own programs: TIME: GET - Reads the current va…
... *PEEK 23674+256*PEEK 23673+PEEK 23672):
LET mm=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672 ... -
Speed tip - "e" notationHi Folks, Whilst reading my "new" Sinclair ZX Spectrum BASIC manual I came across "e" notation again. In MRT I have the following line which is use…
... COLOR="Red"]65536[/COLOR]*PEEK [COLOR="red"]23674[/ ... 256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"]23672[/ ... COLOR]):
LET m=([COLOR="red"]65536[/COLOR]*PEEK ... 256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"]23672[/ ... -
Help With AY Music Program in BASICHi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker…
Hi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker but, in the end - I just learned how to use Soundtracker anyway (Thanks to ZXF for those tutorials!).
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…
I'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 analysis across ranges of 0.05 from 0 to 1 for 65535 values. (Values are all "INT (n*10000)" for printing.) ...Computer Haiku (converted from C64)[url=https://archive.org/details/Computer_Haiku_1983_CES]Here's the original C64/PET program - "Computer Haiku" by Commodore Educational Software, 19…
... . I thought it unnecessary to PEEK 23672 (the Spectrum's equivalent) and ...line routineWondered if anyone can help me out. I have been programming a 3d graphics library for the spectrum, in Machine code. The line routine that I have i…
... : REM START-ADRES
PRINT PEEK 23672
The internal ...random numbersCan you write a piece of code that gets you a truly random number from the Spectrum, or is it only capable of generating a pseudo-random number (ie. …
... , you could use the addresses 23672, 23673 and 23674. The first ... , and so on. If you peek 23672, you get what could be ... thing screws up if you peek with regularity within a program ...Let a=val "1"I see some basic programs which use Let a=val "1" instead of let a=1 syntax. what is the difference between val "1" and 1? is it an effect of some …
... />
[code]
10 POKE 23672,0 : POKE 23673,0 : POKE ... NEXT F
50 PRINT PEEK 23672+256*PEEK 23673
[/code]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 ...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. …
... x=0
10 PRINT PEEK (23672)+256*PEEK (23673)
20 FOR ... NEXT f
60 PRINT PEEK (23672)+256*PEEK (23673)
... x=0
10 PRINT PEEK (23672)+256*PEEK (23673)
20 FOR ... NEXT f
60 PRINT PEEK (23672)+256*PEEK (23673)
...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. …
... , Dunny wrote:
PRINT PEEK (23672)+256*PEEK (23673)
[/quote ...
Def FN Tim=PEEK (23672)+256*PEEK (23673Cool 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. …
... wrote:
Def FN Tim=PEEK (23672)+256*PEEK (23673
[/quote]
PEEK(x) + 256 * PEEK(x+1)
20 PRINT FN p(23672)
Replace 23672 ...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. …
Won't PAUSE 1: LET f=PEEK 23672+256*PEEK 23673 do the trick as PAUSE ends just after an interrupt?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. …
... wrote:
Def FN Tim=PEEK (23672)+256*PEEK (23673
[/quote]
PEEK(x) + 256 * PEEK(x+1)
20 PRINT FN p(23672)
Replace 23672 ... so like a Deek (double Peek) command, must admit, after hardly ...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,255,PEEK 23672),FN r(RND*175,175,PEEK 23672)
20 ...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…
... (RND*255,255,PEEK 23672),FN r(RND*175,175,PEEK 23672)
20 ...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…
[CODE]
100 rem slalom
110 gosub 1000:let bl=1:gosub 2000
120 data 48,48,24,252,27,48,31,248
130 data 128,241,255,255,143,129,129,1
140 border 7:paper 7:ink 0:cls
150 let w=30:let d=21:let g=10:let j=7
...Second Life Roll CallHow many people here play Second Life? If you do, you should post your avvie's name here as I'd love to meet you inside. My avvie is NomenLuni Neuman…
... as FRAMES. type in PRINT PEEK 23672, PEEK 23673 and it will tell ...Time function?How do you do a timer? Example: Start timer If timer = 10 seconds then reset timer Thanks
... t()= INT ((65536* PEEK 23674+256* PEEK 23673+ PEEK 23672)/50)
60 LET ...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…
... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672 ...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…
... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672 ...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,
Well, just tried the following Shell Sort:
[CODE]100 BRIGHT 0: PAPER 0: INK 7: PAUSE 1: BORDER 0: CLS
110 PRINT AT 0,0;"SHELL SORT v1": PRINT AT 2,0;"Generating data..."
120 REM Create Test Data
130 ...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…
... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET t2=(65536*PEEK 23674+256*PEEK ... 23673+PEEK 23672 ...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…
... DEF FN t()=65536*PEEK 23674+256*PEEK 23673+PEEK 23672
10 DIM ...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 Battle Bunny,
Never ceases to amaze me the difference in performance between BASIC and MCODE. Sounds like you have a powerful routine there.
I have modified my demo version so that it can be used (for future generations ;)) as ...
