-
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…
... hh=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672):
LET mm=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672):
LET ... ss=INT ((time-mm*3000)/50):
LET hh=(hh AND ... -
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 CT=1 ... -
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 CT=1 ... -
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 CT=1 ... -
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 …
... ):
DEF FN t()=INT ((PEEK 23673*256+PEEK 23672)/50)
30 FOR n=1 ... ,21,1,142
50 POKE 23672,0: POKE 23673,0
60 ... -
Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
...
10 LET p=z+PEEK 23672+(PEEK 23673*256)
11 IF INKEY$="q ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... /> LET c=FN a(3+PEEK 23673,256):
CLS : LET x=x ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ c$,m,n,v,p:
LET x=RND*36+10:
POKE n*(c$(x)>"O"),3:
LET c$(x)=CHR$ (CODE c$(x)-40):
LET c=FN a(3+PEEK 23673,256):
CLS :
LET x=x+n*(c$(p) -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... /> LET c=FN a(3+PEEK 23673,256):
CLS :
LET x ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... /> LET c=FN a(3+PEEK 23673,256):
Initialize timer, with remainderfunction ... 256-border is broken
... -
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…
... CHR$ INT (n/256)+CHR$ (n-INT (n/256)*256)
[/code ... /> DEF FN P(a)=PEEK a+256*PEEK (a+1)
[/ ... (FN V(n,4096)/256)>9)+48)+CHR$ ... 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…
... 65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50: RETURN ... to sort the 50 element character array. ... 65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50Speed 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…
... ="red"]23674[/COLOR]+256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"]23672[/COLOR]):
256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"]23672[/COLOR]):
50[/COLOR]):
LET h=(h ...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…
... ,126,66,66,0
50 FOR x=0 TO 7 ... key is pressed, wait 5/50 (50Hz=1 sec in PAL ...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…
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 23674,0 ...
40 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…
... this poke:
POKE PEEK 23633 + 256 * PEEK 23634, 111
50 IF K$="8" THEN X ... LET A=PEEK 23613 + 255*PEEK 23614
20 PRINT PEEK A; TAB ... 10; PEEK (A+1 ...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 f=1 ... ")-(INKEY$="5")
50 NEXT f
60 PRINT PEEK (23672)+256*PEEK (23673)
50 NEXT f
60 PRINT PEEK (23672)+256*PEEK (23673)
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
...Time function?How do you do a timer? Example: Start timer If timer = 10 seconds then reset timer Thanks
... FN t()= INT ((65536* PEEK 23674+256* PEEK 23673+ PEEK 23672)/50)
60 LET now=FN ...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…
...
130 RANDOMIZE : DIM p$(50,1): FOR a=1 TO ... 50: LET p$(a)=CHR$ (65+ ... /> 180 FOR a=2 TO 50: LET t$=p$(a): LET ... LET t1=(65536*PEEK 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…
...
130 RANDOMIZE : DIM p$(50,1): FOR a=1 TO ... 50: LET p$(a)=CHR$ (65+ ... /> 180 FOR a=2 TO 50: LET t$=p$(a): LET ... LET t1=(65536*PEEK 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…
...
130 RANDOMIZE : DIM p$(50,1): FOR a=1 TO ... 50: LET p$(a)=CHR$ (65+ ...
180 LET b=INT (50/2)
190 IF b ... /> 200 FOR a=b TO 50: LET t$=p$(a): 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…
... for comparison. Mine's about 50% slower, taking around 16 ... 0 THEN
GO TO 50
60 NEXT s:< ... t1=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
LET t2=(65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50:
...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…
... /> 2 DEF FN t()=65536*PEEK 23674+256*PEEK 23673+PEEK 23672
10 DIM t ... :
FOR i=1 TO 50:
LET o=INT (RND ... : LET n=INT (RND*50)+1:
LET o$=v$( ...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 ...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…
... ] 1 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
5 LET nelem ... =50
10 RANDOMIZE : DIM s ... time: ";t2-t1;" sec."
50 STOP
1000 FOR n ... of running time for a 50 element array.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…
... ] 1 DEF FN t()=(PEEK 23672+256*PEEK 23673+65536*PEEK 23674)/50
5 LET nelem ... =50
10 RANDOMIZE : DIM s ... time: ";t2-t1;" sec."
50 STOP
1000 FOR n ...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 etc.
Come on guys - you know more about Sinclair BASIC than is healthy! :smile: Surely you have some tips to optimise/speed up the following code.
[CODE]100 GO SUB 250
110 REM SHELL SORT V4
120 LET b=INT (n ...
