-
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!).
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…
... by the system timer. I thought it unnecessary to PEEK 23672 (the Spectrum ...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 ...FRAMES counter...Hi Folks, I wrote a test program that uses FRAMES to generate a clock. When I tested this within BASin it worked well and kept near perfect time. …
... be emphasised that the timer bytes are in the ... timer values are read by:
[code]65636*PEEK 23674 + 256*PEEK ... 23673 + PEEK 23672[/code]
... of this timer. Using BEEP stops the timer. Using the ...Speeding up select processing...Hi Folks, I have the following code in my program and it works fine but is rather "sluggish". I have even moved it to the beginning of the program …
Some changes which would reduce the amount of processing per cycle:
* delete lines 290 & 300
* move line 310 after line 320
* change line 330 to: IF NOT t(2) OR t(2)>=8 AND t(2)WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... (2)=142
50 POKE 23672,0: POKE 23673,0: LET ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... adjusts the player's countdown timer on keys 5/8 and ... /> DEF FN t()=INT ((PEEK 23673*256+PEEK 23672)/50)
30 FOR ... ,1,142
50 POKE 23672,0: POKE 23673,0
FZX Driver for z88dkAn fzx library for z88dk can be downloaded [URL="https://drive.google.com/file/d/0B6XhJJ33xpOWM2hWNjAxMVkxaEk/edit?usp=sharing"]here[/URL]. The libr…
... timer in z88dk? like the FRAMES variable
I would just PEEK ... ]
extern unsigned int FRAMES(23672);
[/code]
Now ... programs usually do something like "PEEK 23672+256*PEEK 23673" to read FRAMES ...Loading Images/Screens mid-gameHi all, Looking to get back into a bit of coding and I couldn't figure out a way to do the following: I have an image/SCREEN that I'd like to b…
... rows * 24 cols area; the timer routine starts at 9991):
PEEK a+256*PEEK (a+1):
LET ... da:
POKE 23563,PEEK 23670: POKE 23564,PEEK 23671:
POKE ...Non-repetitive RNDHi guys) Perhaps, some of you already encountered a situation, when one needed a set of [b]unique [/b](pseudo-)random values, say, from zero to 25…
... is to use the timer at 23672 and sequentially PEEK the ROM from ... and the value of the timer.
5 DIM d(256 ... /> 20 LET a=PEEK x: LET b=PEEK 23672
30 LET c ... /> 40 LET e=ABS(PEEK x-PEEK 23672): LET d(i)=e: NEXT ...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[/ ...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.) ...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]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 ...
