-
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…
[QUOTE=Dr BEEP;221959]This code accept an error when a>9 as stated in post #750
[code]
*(a>0)*(b>0)*(b0)*(b -
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…
... br /> LET c(k+1)=c(k+1)+1:
NEXT b:< ... /> POKE n,3:
DATA 23620,2,1,1,2,3,1,1,1,0
[/ ... code]
1 space ... jumps to statement 33 or 34 on endcondition. Although ... /> display of the stones or the board.. -
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…
... as parameter and returns a 0 (no) or 1 (yes) to indicate ... allowed to occur either 2 or 3 times in a game depending ... br /> *flag = (i < 3) ? 0 : 1; // set to 1 if event should occur ... the land production is shown or after).
The ... -
Input/Output on Edge ConnectorI would like to sense a pulse on the data bus via the edge connector, i.e. on or off. How do you decide what port it is on? I would also like to send…
... A7=0, A6=0, A5=0, A4=1, A3=1, A2=1, A1=1, A0=1 then ... port address including port 1,2,3,4,5,6,..... In ... standard '244 octal buffer or somesuch but it could also ... can use things like a 3:8 demux (the '138 ... that kempston schematic posted) or for a full port decode ... -
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…
... t(92):
INPUT "1-2?";f:
READ ... t(51),t(52),t(1),z,p:
LET ... p=3-p:
LET q= ... (3):
FOR a=1 TO 8:
FOR b=1 ... 9,b;b;AT a,0;a;AT a,b; ... br /> LET c(k+1)=c(k+1)+1:
NEXT b:
3),:
IF c(1)*c(p+1) THEN
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…
Or as in MATH i*q< ... )*j=0):
NEXT i:
DATA 23620,2,1,1,2,3,2 ...Compressors are available for Speccys ?Hi folks, although I was an wasn't strictly a speccy coder in the glory days (amstrad & amiga for the most part), I have secides to arse about with …
... apbranch1: ldi
ld ixh,0
aploop: call ap_getbit
ld ixh,b ;LWM = 0
get4bits: call ap_getbit
or 3
inc hl
... />
ap_getgamma: ld bc,1
ap_getgammaloop:call ap_getbit
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…
... them as values 3 and 4 instead of 1 and 2), ... /> 2 GOTO 6
3 INPUT next player's move ... 4 pieces aligned THEN GOTO 3
8 PAPER 4: ... )
30 LET w=s=1 OR s=16
...
[/ ... executed first, the results are '1' and '0' respectively.
...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…
... 'c' had the correct sign or not, because if it did ... =55)*(x1),a,b,(e=0)-(e=31),e+c+c ... +4*p=x+1,(f=18)*((e>x ...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…
... ]p[/b] current player, 1 or 2 (1=dealer, 2=player)
[ ... rank of card being dealt (0-12)
[b]s[/ ... suit of card being dealt (0-3)
[b]s(2)[/b ... for dealer and player s(1) is dealer, s(2) ... who won the round -1=dealer, 0=draw, 1=player
[/quote]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…
... br /> CLS :
PRINT AT 0,0;"$";m,:
[/CODE]
1)*(q=1);AT p*4-1,q*3;"A23456789TJQK"(r+1)+CHR ... $ (144+s);AT p*4,q*3 ... 7*(p*q=1);AT p*4-1,q*3;"A23456789TJQK"(r)+CHR ... )*(r>9)+10*(r=1):
[/CODE]
...Compressors are available for Speccys ?Hi folks, although I was an wasn't strictly a speccy coder in the glory days (amstrad & amiga for the most part), I have secides to arse about with …
... 7 bit offset, length = 2 or 3
inc hl
...
ap_getgamma: ld bc,1
ap_getgammaloop:call ap_getbit
aploop0: ld ixh,1 ;LWM = 0
aploop: call ap_getbit ...
ap_getgamma: ld bc,1
ap_getgammaloop:call ap_getbit
a question for all the physicists/mathematiciansthere's a thread full of jokes on here, some of which went down like a lead balloon... BUT how big would a lead balloon have to be, to achieve more…
... * 4 / 3 * pi * (r^3 + 0.15r^2 + 0.0075r + 0.000125 - r^3)
11.35 * 4 / 3 * pi * (0.15r^2 + 0.0075r + 0.000125)
0.15r^2 + 0.0075r + 0.000125) = 1.01 /1000 * r^3
< ... /> r approx = 1685cm.
or about 16.85 metres
Minigame Compo 2007Hi there, also this year, there'll be a minigame competition, open to all 8-bit computers and consoles. It consists on writing games whose size (…
... /> ;depacking is reasonable fast, about 3-4KB per second
;offset == 0 is reserved as EOF
1' and count passed '0'
;the passed ... . Dont remember it is exact 1:1 copy or it is somehow changed.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…
... by the condition (l>3).
j ... the player (adjusted by 1), but then later stores ... being checked (l>3 indicates a winning condition).< ... - current player number, can be 1 or 2.
r ... )emoved (subtracted), it can be 0,1 or 2.
t ...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…
... PAPER a=0;AT a*3-1,b;s$;AT a*3,b;s ... =0:
PRINT PAPER a=0;AT a*3-1,b*3;s$;AT a*3 ... ,b*3;s ... $; PAPER p;AT a*3 ... $;AT a*3+3,b*3;s$:
LET a=a+1:
... /> PRINT PAPER a=0;AT a-1,b*3;s$;AT a,b ...sinclair zx spectrum issue 6a (again) - how to repairHi All, Is there someone who may explain what these jumpers can be used for. [url]http://forest.no-ip.org/repair/jumpers.gif[/url] <- this is from …
... /> on ula legs dma0,1,2,3,4,5,6 have signals ...
i have no signals or ... and zx8401) but i have 0.00v ?
for the third ...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…
... /> PRINT AT 20,y*3;y-1; PAPER t(x*8+y ... )=8;AT x*3-1,y*3;s$;AT x*3,y*3;s$:
LET a=0:
BEEP .1,12-a:
PRINT ... PAPER a=0;AT a-1,b*3;s$;AT a,b ... (f))=8:
BEEP .1,f*3:
NEXT f:
NEXT ...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…
... /> PRINT AT 20,y*3;y-1; PAPER t(x*8+y ... )=8;AT x*3-1,y*3;s$;AT x*3,y*3;s$:
LET a=0:
BEEP .1,12-a:
PRINT ... PAPER a=0;AT a-1,b*3;s$;AT a,b ... (f))=8:
BEEP .1,f*3:
NEXT f:
NEXT ...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…
Here are the improvements I mentioned:
[CODE]
1 READ n,a$:
FOR c=0 TO 8:
POKE USR "b"-c,SIN (c/3)-1:
POKE USR "c"-c,129:
LET q=INT (c/2)+1:
CIRCLE 91,92,CODE " $LS "(q):
POKE (cHardware fault - HELP!I bought a speccy 48K (rubber) on Ebay. I was delighted when it arrived. It was in PRISTINE condition, it looks brand new! However, the machine has a…
... keys (for example, 1,2,3,4,5 or a,s,d,f ... broken, you might lose 1,2 but 3,4,5 works, then ... 't work, but 8,.9,0 work, q and w don ... link on the front page - or click here:
[url]http ...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…
... (19,19):
FOR x=1 TO 9:
FOR y ... =1 TO 9:
LET w= ... /> LET m(x+x+(x.3:
LET m(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…
... 8.
Or the [b]FOR p=1 to 4[/b ... changed to [b]FOR p=-3 to 0[/b], but I think ...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…
... positions:
[CODE]
1 RANDOMIZE :
LET a$="":
CLS :
FOR k=1 TO 4:
CIRCLE 131 ... :
LET e=k=2 OR k=4:
PRINT AT ... :
FOR p=-23 TO 0:
PLOT 232*e-88 ...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…
... store the direction as z=1,2,3,4 (since it makes ... -20,-2,2,20 (or perhaps -10,-1,1,10) afterwards.
0):
LET v=10*(z=3)-10*(z=1)+(z ... /> LET z=z+(x$="7")*(1-4*(z=4))-(x$="6 ... /> LET v=10*(z=3)-12*(z=1)+3-z:
[/CODE]
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…
[QUOTE=Digital Prawn;251872]Save 1 character by inserting statement [b] ... version:
[CODE]
1 RANDOMIZE :
DIM m(2e3 ... +42)=1:
FOR r=1 TO 19:
FOR s=1 TO ... 19:
READ i,w,m(i+38*(r.3 OR ...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…
... limit:
[CODE]
1 RANDOMIZE :
DIM m(2e3 ... +42)=1:
FOR r=1 TO 19:
FOR s=1 TO ... 19:
READ i,w,m(i+38*(r.3 OR ...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 m(RND*8+42)=1[/code]Saves 8, I think ... />
Calculated value will be 0,1,2 or 3 * 2 + 42 makes 42 ... ROUNDED by the ROM
0, 1, 2, 3, 4, 5 , 6, 7 ...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…
[QUOTE=Dr BEEP;252036]Time to make my contribution:
Replace
[code]
LET k=CODE INKEY$:
POKE (k
