-
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…
... TO 1e9:
LET r=RND:
LET i=(INKEY$="7 ... ,28;t;"s";AT 21,RND*29+1; INK 3-2 ... $ 145+"_"+CHR$ 145 AND PEEK 23672 -
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…
... TO 1e9:
LET r=RND:
LET i=(INKEY$="7 ... ,28;t;"s";AT 21,RND*29+1; INK 3-2 ... $ 145+"_"+CHR$ 145 AND PEEK 23672 -
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 f=PEEK 23688:
LET g=PEEK 23689:
FOR ... /> DATA PEEK 23688,PEEK 23689,"","",p-1*(p>1)+RND*3-1 ... -
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…
... numbers for the array - using RND, presumably. It's quite quick ... :
10 LET r=INT (RND*45056): LET y=INT (r ... FN r(RND*255,255,PEEK 23672),FN r(RND*175,175,PEEK 23672 ... -
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…
...
10 let a=int(rnd*r)+1
15 for ... to 23294
20 if peek x0 then let a=a ... -
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…
... real-life run, you'd PEEK from a screen's attrs ... ;0 THEN LET r=INT (RND*c)+1:
POKE CODE ... -
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…
... def fn r(n)=int(rnd*n)+1
2010 randomize ... def fn r(n)=int(rnd*n)+1
2010 randomize ... -
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…
... ,v,p:
LET x=RND*36+10:
POKE n ... /> 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…
... the flashing K Cursor.
PEEK Caps Shift+Symbol Shift, then ... the flashing K Cursor.
RND Caps Shift+Symbol Shift, then ... -
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…
... ,v,p:
LET x=RND*36+10:
LET x ... /> LET c=FN a(3+PEEK 23673,256):
CLS :
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…
...
PAUSE : K : M
PEEK : E : O
PI : E ...
RETURN : K : Y
RND : E : T
RUN : 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…
... startfield
LET x=RND*36+10:
Calculate CUBE ... /> LET c=FN a(3+PEEK 23673,256):
Initialize timer ...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…
... z=68-CODE "d$CE"(RND*3+1):
LET z ... p=64*INT (RND*12)+2*INT (RND*15)+66:
POKE ...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…
... z=68-CODE "d$CE"(RND*3+1):
LET j ... /> LET p=64*INT (RND*11)+2*INT (RND*15)+66:
LET t=99-PEEK 23673:
CLS :
IF ...Announce: BASin r14b availableHere's the fix mentioned earlier for those of you that either are too lazy to update your OS (XP SP2 has been out aaaaages, Arjun!) or even junk that…
... 23692,0: LET f=PEEK 23688: LET g=PEEK 23689: FOR a ... : DATA PEEK 23688,PEEK 23689,"","",p-1*(p>1)+RND*3-1 ...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…
... z=68-CODE "d$CE"(RND*3+1):
LET j ... p=64*INT (RND*11)+2*INT (RND*15)+66:
POKE ...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…
... +5,5: LET f=PEEK a: LET g=PEEK (a+1): FOR ... *(s>=p)*(s1)+INT (RND*3)-1*(p>21 ...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…
[code]
1 POKE 23618,1:
INK RND*6:
POKE 23620,5-(RNDObtuse 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…
[QUOTE=Digital Prawn;440795][code]
1 POKE 23618,1:
INK RND*6:
POKE 23620,5-(RNDObtuse 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…
... x+5,1:
INK RND*6:
POKE x+7 ... +RND:
CLS :
POKE x,PEEK x-2:
PLOT 255*RND ... ,176*RND:
DRAW 99*RND,99*RND,RND ... *3e5:
POKE x-3,-1:
POKE x,PEEK ...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…
... 6*RND:IF RND < .03 THEN CLS 3 POKE v, PEEK v ... -2: PLOT
255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND ... :POKE v,PEEK v+2 ...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…
... 6*RND:IF RND < .03 THEN CLS 3 POKE v, PEEK v ... -2: PLOT
255*RND,175*RND: DRAW 99*RND, 99*RND, v*RND ... :POKE v,PEEK v+2 ...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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK ... 23673+PEEK ...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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ... *PEEK 23674+256*PEEK 23673+PEEK 23672)/50: LET t2=(65536*PEEK 23674+256*PEEK ... 23673+PEEK ...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…
... : LET p$(a)=CHR$ (65+RND*25): NEXT a
140 ...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
