-
Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... into undergrads new to computers over the freshmen year ... ]
You can poke values at the addresses held ... bytes long. Similarly, "n" is the name of ... described as above. Adding "n" to a pointer in ... C actually means move ahead n elements. The "char * ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... />
[CODE]
9999 INPUT n'i:
LET g=23620 ... /> DEF FN w(x)=PEEK ABS x+b*PEEK ABS (x+1 ... -PEEK q:
LET q=q+1+5*(d=224):
POKE ... )+(d=13)+(d=36))*(PEEK q>47)*(PEEK q9998):
LET ... /> LET q=q+9:
POKE g,8+3*(q -
Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... , the random numbers generated by computers are not random at all ... wiki[/URL]. Both functions copy N bytes from a source address ... ;". This simply states that we poke into the rightmost column the ... -
Letters with accents on the SpectrumIs there any way to type letters that have accents (for example ? ? ? etc) on the Spectrum? Maybe it's really obvious but I don't know how.
... TO 7: POKE USR "a"+n,PEEK (16136+n): NEXT n
20 POKE USR "a ... ",8
30 POKE USR ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... />
[CODE]
PEEK 23556
[/CODE][/QUOTE]
N: Statement Lost" at the first POKE jump.
POKE NSPPC to jump ... really meant to also POKE the two byte ... POKE jump, and it fails. You can verfiy this with PRINT PEEK ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
[code]
1 POKE 23620*PEEK 23618,8:
PRINT "Main ... ), then it's convenient to PEEK NEWPPC to perform a conditional ... chars (or 19 chars if 'n' is set to 23620) to ... -
Benchmark timeWell, the BASIC benchmark posted in Creative Computing back in the 80s came up as a topic on the AtariAge forums. The article is available online an…
... is buggy or not as computers with the same number of ... and used the high speed poke it was faster. The ... /> main()
{
for (n=0; n!=100; ++n)
{
a = (float ... /> }
printf("\n\nAccuracy %f\n", 1010.0 - s/5 ... -
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…
... let p(n)=v:let q(n)=h:next n:for n=1 ... to 50*w:next n< ... ):let c=int(g):let n=n-1
460 gosub ... /> 460 if a$="n" then let n(k)=c
... read d:poke usr"a"+n,d
1010 next n:let ... 2000 def fn r(n)=int(rnd*n)+1
2010 ... -
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…
... br /> 160 let z=3582:poke 23561,10
170 let ... gosub 4000:print chr$(n)
920 let n=n+1:next c ... :read d:poke usr"a"+n,d
1010 next n:let u ... /> 2000 def fn r(n)=int(rnd*n)+1
2010 randomize ... :read d:poke usr"a"+n,d
1010 next n:let u ... -
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…
... 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=FN a(3+PEEK 23673,256):
CLS : LET ... -
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) -
BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... Shift+Symbol Shift, then 'N'
INPUT 'I' ... K Cursor.
PEEK Caps Shift+Symbol Shift, ... and '8'
POKE 'O' at the flashing ... br /> , Symbol Shift and 'N'
. Symbol Shift and ... -
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…
... DEF FN a(r,n)=r-INT (r/n)*n:
READ c ... $,m,n,v,p:
... /> POKE n*(x$>"O"),3:
LET c=FN a(3+PEEK ... 23673,256):
CLS :
LET x=x+n*(c ... v=8-v:
LET n$=c$:
FOR g= ... LET c$(h+g*v)=n$(h+(g*v+v)*(gn ... -
BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... : K : A
NEXT : K : N
NOT : KLC : SYM + S ... + N
PAPER : E : SYM + C
PAUSE : K : M
PEEK ... /> POINT : E : SYM + 8
POKE : K : O
PRINT : K ... -
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…
... DEF FN a(r,n)=r-INT (r/n)*n:
The function ... code from releasecodecube
POKE n*(x$>"O"),3:
LET c=FN a(3+PEEK 23673,256):
Initialize timer ... /column indicator
LET n$=c$:
Copy existing CUBE ... -
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…
... DIM m(862):
READ n,p,z,q,v,g ... =p/32-z/16:
POKE (m(p-z-z)1 ... )*(jINT j))*n,3:
LET p=64 ... *INT (RND*15)+66:
POKE (g -
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…
... =p/32-z/16:
POKE (m(p-z-z)1 ... :
POKE (g>0)*n,11-3*m(p):
POKE n+53 ... =56)-(k=57)):
POKE (d=0)*n,17-3*(k=48 ... +d):
LET t=99-PEEK 23673:
CLS :
IF ... -
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…
... DIM m(862):
READ n,p,z,q,g:
LET m(p)=1:
POKE 22496+p,9:
NEXT ... =p/32-z/16:
POKE (m(p-z-z)1 ... )*(jINT j))*n,3:
LET p=64 ... *INT (RND*15)+66:
POKE (g -
Saving a complete SCREEN$ in BASICI'm trying to save a SCREEN$ to a tape file (basically the original data is in a .tzx file that I'm trying to save in a .tap format) but the problem …
[CODE]
10 FOR N=0 TO 6911
20 POKE 32768+N, PEEK 16384+N
30 NEXT N
40 SAVE "Screen" CODE 32768,6912
[/CODE]
(To be strictly correct, do a CLEAR 32767 before generating or loading the original screen). -
Need to read code start and length from a +3 diskso i can transfer them to my internal ZXMMC interface and my mind has died as to how to do it (i know how to for a tape) any help or a general kick i…
... a=a+1: NEXT n
90 POKE a,255
100 ... THEN PRINT f$;" CODE ";PEEK 40018 + 256 *PEEK 40019; ",";PE
EK ... 40016 + 256 *PEEK 40017
130 IF PEEK 40015=0 THEN ... PRINT f$;" BASIC ";PEEK 40018 + 256 *PEEK 40019
1000 DATA ... -
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…
... /> 1 LET x = 23613:
POKE x+5,1:
INK ... RND*6:
POKE x+7,5-(RND -
+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... prog = PEEK 23635 + 256 * PEEK 23636
30 RESTORE
40 POKE prog ... + 5, 24: POKE PROG ... + 123
60 READ d: POKE a, d: LET a = a ... $: POKE (prog + 6 + n), CODE f$(n): NEXT n
1020 POKE (prog+6+n), 255 ... -
Activision's Ghostbusters (1984 version)Did anyone ever manage to work out (or hack) the account numbers? If so, are they the same for the 1986 rehash?
... 17 PRINT
20 DIM n$(20)
30 INPUT "Account ... name:";n$
31 FOR i=1 ... NEXT i
35 PRINT n$
40 INPUT "Money ...
140 LET answer=PEEK 49152
200 LET ... />
Alternatively POKE 33840,0 and POKE 33843,0 to allow ... -
Saving a complete SCREEN$ in BASICI'm trying to save a SCREEN$ to a tape file (basically the original data is in a .tzx file that I'm trying to save in a .tap format) but the problem …
... N=0 TO 6911
20 POKE 32768+N, PEEK 16384+N
30 NEXT N ... =16384: FOR N=0 TO 6911
20 POKE 32768+N, PEEK A
30 LET A=A+1: NEXT N
Frank N SteinThis one > [url]http://www.worldofspectrum.org/infoseekid.cgi?id=0001849[/url] Always seems to crash about level 7 (maybe a bit more) or so with an …
... 2 versions of Frank'n'Stein out there. (Actually ... a listing of Frank'n'Stein which compiles to ... -D.
[*]Frank N Stein title changed to Frank ... N. Stein (dot added)
... /> [*]The Bonus routine uses PEEK/POKE 59125 to record whether you ...Fuse: what do you want to see?An open brainstorm. If you had a team of programmers working on [url=http://fuse-emulator.sf.net/]Fuse[/url], what would you tell them to work on? …
... Midnight (to speed up the computers AI processing),
Doomdark's ... />
CRC=42523
Update:N
Write=45320
Read ... in the entry "Data=", and POKE it into the Spectrum's ... />
CRC=42523
Update:N
Write=45320
Read ...File size in 128K RAM diskHi Folks, Is there a way to get the size of a file stored in the 128K RAM disk from within a BASIC program? Many thanks Paddy
... /> 10 LET sfnext=PEEK 23427+256*PEEK 23428:
11 ... n=0
15 OUT 32765,16+7: POKE 23388 ... 60415 STEP 20: LET n=n+1
21 FOR ... LET f$(n,b-a+1)=CHR$ PEEK b: NEXT ... LET f(n,(b-a-7)/3)=PEEK b+256*PEEK (b ... /> 25 OUT 32765,16: POKE 23388,16
30 ...File size in 128K RAM diskHi Folks, Is there a way to get the size of a file stored in the 128K RAM disk from within a BASIC program? Many thanks Paddy
... /> 10 LET sfnext=PEEK 23427+256*PEEK 23428:
11 ... n=0
15 OUT 32765,16+7: POKE 23388 ... 60415 STEP 20: LET n=n+1
21 FOR ... LET f$(n,b-a+1)=CHR$ PEEK b: NEXT ... LET f(n,(b-a-7)/3)=PEEK b+256*PEEK (b ... /> 25 OUT 32765,16: POKE 23388,16
30 ...
