-
Another Free Ebay Day ;- Link to 300+ ?1.50 all in[url="http://cgi6.ebay.co.uk/ws/eBayISAPI.dll?ViewListedItems&userid=cornishdavey&include=0&since=-1&sort=2&rows=200&rdir=0"]http://cgi6.ebay.co.uk/w…
... x 2
Rainbow Islands x 3
Rambo x 2
Rampage x ... /> Biorhythms
Chequered Flag x 18
Chess x 16
Flight Simulation ... x 4
Match Point x 3
Planetoids x 6
Scrabble x ... -
Program sizeI am typing a basic program into a ZX and I need to find out exactly how much memory it is using. Is there a way to calculate this? :confused:
LET z=PEEK 23653+256*PEEK 23654: PRINT (z-16384);" Total memory": LET z=z-(PEEK 23635+256*PEEK 23636): PRINT z;" Basic program"
D. -
Program sizeI am typing a basic program into a ZX and I need to find out exactly how much memory it is using. Is there a way to calculate this? :confused:
... , Dunny wrote:
LET z=PEEK 23653+256*PEEK 23654: PRINT (z-16384 ... );" Total memory": LET z=z-(PEEK ... 23635+256*PEEK 23636): PRINT z ... -
Program sizeI am typing a basic program into a ZX and I need to find out exactly how much memory it is using. Is there a way to calculate this? :confused:
... />
let prog=peek 23635+256*peek 23636
let vars=peek 23627+256*peek 23628 ... -
Pixel LimitIF Y3<192 THEN : LET x2=INT (128+X*A*SIN A): LET y2=INT (Y3): DRAW INK
... 3.14/P
1730 LET Y3=96+Y*A*COS ... -
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. …
... :
Def FN Tim=PEEK (23672)+256*PEEK (23673
[/quote]
10 DEF FN p(x) = PEEK(x) + 256 * PEEK(x+1)
20 PRINT FN ... :), so like a Deek (double Peek) command, must admit, after hardly ... held in memory ready to Peek the X and Y coords and ... -
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. …
... ...
1 LET a=PEEK 23637+256*PEEK 23638: POKE a,0 ... -
42 column text, Sinclair Print Utilities, etcI'm currently developing the next of the ZXIF text adventures - "43 Minutes" and, as a side issue, I'm really interested in 42 column text for this g…
... /> LET stream15=PEEK 23604+256*PEEK 23605
LET stream2=PEEK 23578+256*PEEK 23579
LET ... chans=PEEK ... -
42 column text, Sinclair Print Utilities, etcI'm currently developing the next of the ZXIF text adventures - "43 Minutes" and, as a side issue, I'm really interested in 42 column text for this g…
... /> LET stream15=PEEK 23604+256*PEEK 23605
LET stream2=PEEK 23578+256*PEEK 23579
LET ... chans=PEEK ... -
GUI in sinclair basic.Can anyone point me to any existing subroutines or functions or library to be called whithin sinclair basic to create visual command like messageboxe…
... attribute clash.
[/quote]
18 x 18 icons??? Wasn't that overcomplicating ... -
Detect if program was loaded from tape or microdriveHow (if at all) can a BASIC program detect if it was loaded from tape or microdrive? This can be helpful to then load the screen or more machine code…
...
20 LET Prog = PEEK 23635 + 256 * PEEK 23636
30 LET AsmBase = Prog ... -
Font centering problemA while back today, I started coding a simple Othello/Reversi game in BASIC, with the precious aid of BASin (great tool, hope it eventually becomes b…
... /> 20 LET chars=23606
30 LET chs=PEEK (chars)+256*PEEK (chars+1 ... GO SUB 180
110 LET c$="2"
120 ... 0 TO 7
220 LET v=PEEK (pos+i)
230 ... LET low=INT (v/p)
...
The idea is to peek each row of the character ... -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
[CODE]
10 FOR y = 0 TO 23
20 FOR x = 0 TO 31
30 LET b = ATTR (y,x)
40 IF b>127 THEN LET b=b-127
50 IF b>63 THEN GOTO 80
60 IF y>21 THEN PRINT #0; AT y-22,x; PAPER 8; INK 8; BRIGHT 1; OVER 1; " "
70 IF y -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
This takes a whopping 15.4 seconds:
[CODE]10 FOR f=22528 TO 23295
20 LET a=PEEK f
30 IF a127 AND a -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
...
30 INPUT "Enter X Co-ordinate: "; x
40 IF x31 ... THEN GO TO 110
50 LET ... b = ATTR (y,x)
60 IF ... b>127 THEN LET b=b ... PRINT #0; AT y-22,x; PAPER 8; INK 8; FLASH ... -
Ways to use double buffering in basicI was meddling with woody's print stream code where you can print characters at any pixel location on screen. I was playing with 12 sprites, very ann…
... buffer
20 LET port=23675
30 LET var=23388
8050 LET a=PEEK var+8
8060 OUT ... /> 8520 REM ************************
8530 LET a=PEEK var-8
8540 OUT ... -
"The Spectrum is a computer for GIRLS !!!"[URL="http://www.worldofspectrum.org/hcc2006/index2.html#theory"]http://www.worldofspectrum.org/hcc2006/index2.html#theory[/URL]
... to get FLASH to work, let alone PEEK or POKE. Sometimes when ... -
"The Spectrum is a computer for GIRLS !!!"[URL="http://www.worldofspectrum.org/hcc2006/index2.html#theory"]http://www.worldofspectrum.org/hcc2006/index2.html#theory[/URL]
... to get FLASH to work, let alone PEEK or POKE. Sometimes when ... my POINT, but they seldom LET me. Once asked they never ... -
Autorun BASIC programsIs it possible to write a basic program which will autorun after typing in LOAD ""? Thanks
... let vars=236327-2
100 let hidden=15
200 let n=peek ... vars+256*peek(vars+1 ... )
1000 rem
1010 let ...
2000 rem
2010 let v=n+hidden
2020 ... -
Best ever children's TV programmesSo what were your favourite kid's TV shows?
... to convince Amy to let me spend the £18 on it because ... -
Cybernoid editorSo, my long tern goal is to make my own Cybernoid or Rex like game (see an ancient thread about Sprite advice)...but my skills are somewhat lacking..…
... LET dpos=0
5040 LET c1=PEEK (scrdata+dpos)
5050 LET c2=PEEK ... (scrdata+dpos+1)
5060 LET c3=PEEK (scrdata+dpos ... /> 5102 LET dpos=dpos+3: LET sbct=3
5104 LET c4=PEEK (scrdata ... -
Cybernoid editorSo, my long tern goal is to make my own Cybernoid or Rex like game (see an ancient thread about Sprite advice)...but my skills are somewhat lacking..…
... Cybernoid 1 format. e.g. peek and poke.
Edit ... ;
[code]
5061 LET c4=PEEK (scrdata+dpos+3)
5070 ... maps, I`m having to peek and poke all the animated ... -
Anybody fancy coding this?blah de blah de blah Please ignore, poting error.
... : set up loop1
let V=peek a : rem save original value ... /> poke a, b
if peek a b then print “Error ...
