-
Weird Computer GamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000411"]Weird Computer Games[/URL][/B] Page: 3, Program: Tower of Terror - [U…
... gosub 970
960 return
970 let m$="nothing of interest ... red button"
1070 return
1080 let m$="nothing of interest ... )=1 then let r=8:let f(10)=0:let m$="ok":return
1200 ... if ob=5 and r=8 ... -
A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
Here's a simple 'Catch the bricks' game...
[code]
10 LET A$=">_ -
Sudoku on ZX Spectrum 48KZX Spectrum 48К Sudoku game 25 years Spectrum and 300 years Leonhard Euler anniversary. 6000 (and more) puzzles, 8 levels. [url]http://www.t…
... : LET t$=t$+CHR$ x: NEXT x
140 FOR y=0 TO 175: LET ... p$=q$: LET s ... FOR x=0 TO 255: LET p=1-m*POINT (x,y): LET s=INT (e ... *p/(p+1)+0.5): LET l=x-INT (s/2): LET ... -
'orange' on a spectrumalways wondered why spectrums could never seem to achieve the colour orange? wasn't one of the default colours, and don't remember seeing anything th…
... ]
[code]
10 LET n=85: FOR i=0 ... : POKE USR "a"+i,n: LET n=255-n: NEXT i ...
20 FOR x=0 TO 31: FOR y=0 TO 21 ... PRINT AT y,x;CHR$ 144;
40 NEXT y: NEXT x
50 ... -
'orange' on a spectrumalways wondered why spectrums could never seem to achieve the colour orange? wasn't one of the default colours, and don't remember seeing anything th…
... ]
[code]
10 LET n=85: FOR i=0 ... : POKE USR "a"+i,n: LET n=255-n: NEXT i ...
20 FOR x=0 TO 31: FOR y=0 TO 21 ... PRINT AT y,x;CHR$ 144;
40 NEXT y: NEXT x
50 ... -
'orange' on a spectrumalways wondered why spectrums could never seem to achieve the colour orange? wasn't one of the default colours, and don't remember seeing anything th…
... /> 30 LET decbin=1000: LET bindec=2000
40 LET scr1=8000: LET scr2=9000 ... ()
1010 LET t=n: LET p=8
1020 LET s=2^(p ... =0: FOR p=1 TO 8: LET n=n+b(p)*2 ... : POKE syspage,n
9060 RETURN
[/code]
Explanation ... -
Bresenham's line algorithmHelp - I really am struggling to get my head around this algorithm. I don't know why, I coped with Cordic (SIN/COS) and integer divide routines (/10 …
... X: LET dy=SGN Y
530 LET X=ABS X: LET Y=ABS Y
540 IF X> =Y ... br /> 610 LET H=B
620 LET i=INT (B/2 ... 750 NEXT N
760 RETURN[/CODE]
into some decent ... -
Bresenhams circle algorithmI post here my final circle code to replace, if you want, the one in the ROM. It only uses integer math and runs very fast and is very compact. It is…
... $8000
; x^2+y^2=r^2 represents the ... /> Loop:
;*******Set 8 pixels, one for each circle ... /> ld A,D ;Point #8
sub L
... L is y
jr nc,end_circle ;While (y > x)
... must contain $2758 on return to the Zx OS < ... -
How would you make Cybernoid a better game.Following on from the Cecco thread, it might actually be quite interesting to hear people?s views on how they would improve the recognised ZX Spectru…
... $00, $FF, $00, $FF ; x, y, x, y
DEFB $00, $FF, $FF ... $08, $00, $FC ; up 8 x4 speed
DEFB $E2 ... 01, $FE ; right 8 x1 speed + up 8 x2 speed
... $08, $00, $FE ; up 8 x 2 speed
DEFB $E2 ... FF, $FE ; left 8 x1 speed + up 8 x2 speed
... -
Which computer is most similar to Zx Spectrum?I have wondered recently wihch other 8-bit computer is most of all similar to Zx Spectrum. I mean similar graphics, similar gameplay, similar program…
... /> 20 LET r=r2/255: LET g=g2/255: LET b=b2 ... /255
30 LET Y=(0 ... /> 40 LET U=(B-Y)*0.565
50 LET V=(R-Y)*0 ... .713
55 PRINT "RGB 8 :";(STR ... br /> 70 PRINT "YUVC1 :";(STR$ (y)+" ")( TO 4);" ";(STR$ (.5+ ... -
Which computer is most similar to Zx Spectrum?I have wondered recently wihch other 8-bit computer is most of all similar to Zx Spectrum. I mean similar graphics, similar gameplay, similar program…
... /> 20 LET r=r2/255: LET g=g2/255: LET b=b2 ... /255
30 LET Y=(0 ... /> 40 LET U=(B-Y)*0.565
50 LET V=(R-Y)*0 ... .713
55 PRINT "RGB 8 :";(STR ... br /> 70 PRINT "YUVC1 :";(STR$ (y)+" ")( TO 4);" ";(STR$ (.5+ ... -
Rainbow Generator for 48K Spectrum using PUSHThis is what I came up with from [B]gasman[/B]'s suggestions. It's stable in ZXSpin and ZX32 simulating a 48K Speccy. Anyone like to try it on the …
... ordiante use
; PRINT AT y,x; #4; "some text";. All 256 ...
ld c, 8 ; loop counter
loop:
ret ; return
; main interrupt routine ...
push hl ; write 8 bytes from registers
push ... -
Rainbow Generator for 48K Spectrum using PUSHThis is what I came up with from [B]gasman[/B]'s suggestions. It's stable in ZXSpin and ZX32 simulating a 48K Speccy. Anyone like to try it on the …
... br /> This gives another 8 bytes in multicolour, thus ...
PRINT USR plot, y, x, colour :
REM ... plotmc, y=ycoord, x=xcoord, and colour
y,x and ... FOR X = 0 TO 47
30 FOR Y = ... Y,X,INT(RND*8 ) : REM PLOT Y,X RANDOM COLOUR
50 NEXT Y: NEXT X ... -
Goldfinch - an open software stack for mass storageYep, another pet project of mine to compete with all the others I've started. But hey, if I didn't get distracted by things like this I'd just get di…
... /> in = fopen("s>9600;8/N/1","rw"); // s is ... /> {
FILE *in;
unsigned int x,y;
/* Open the block ... ("%02x ", buffer[y|x]);
printf("\n");
}
return 0;
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…
... "-"FFFF")
[I]posint8[/I] = 8-bit positive integer (0-255 ... /> DEF FN M(x$,y$)=(x$ AND x$ < y$)+(y$ AND y$ y$)+(y$ AND y$ >= x$)
[/code]Very basicI found the wos site a few months ago when searching for solutions to my broken spectrum, that i had dug out of storage and was learning basic on. Si…
... :
[CODE]10 LET x= INT(RND*10)+1: LET count=1
20 ... y: LET y= INT ABS y: PRINT y
30 PRINT "Too high..." AND y>x; "Too ... low..." AND y2 questions about matrix and string handlingI was never good at understanding how to do something random in Sinclair Basic without repeating something that was already done. Had problems unders…
... /> 30 LET x=(INT (RND*LEN a$)+1): PRINT x
40 LET y=(INT (RND*LEN ... a$))+1: PRINT y
50 LET x$=a$(x ... )
60 LET ...2 questions about matrix and string handlingI was never good at understanding how to do something random in Sinclair Basic without repeating something that was already done. Had problems unders…
... them! :p
So, let's say I want to ... string?
Second question. Let's say I have a ... /halloween.html"]word search[/URL] (let's say, A$(10,10 ... n
30 if a$(y,x) = w$(1) then go to ... found delete
1020 rem return to 40
[/code]Question about operations and target numbers[size=1]Title should say *operators. It's been a long day.[/size] :p One of the homework problems my kids are working on consists on using a set of …
... : CLS
2 LET x1=3: LET y1=0: LET x2=2
20 DIM b$(4): LET b$="*/+-"
30 FOR a ... )+b$(x)+STR$ a(b)+")"
101 LET d$=b$(y)
102 LET ... AND y1=0 THEN LET x1=3: LET y1=15
1030 ... =15 THEN LET x1=3: LET y1=0
1040 RETURN
[/CODE ...Speccy games programmingI've got a question. Where games written in pure machine code or was it a level higher with Assembly language being the choice? I always thought it…
...
eg.
int fseek(FILE *fp, fpos_t offset ... , int whence)
this ... print at (CHR$ 16, y, x) and other codes to affect ... make it the first 8-bit compiler with a ... C is the original published 8 bit compiler from 20+ ...address 23760 etc.Hi all, Where could I find Spectrum 48 addresses, what's in 23760 for instance ? Thanks for advance ! -jp
... POKE 23796,(20+(INT (RND*2)*8)+INT (RND*2))*INT (RND*2)
INT (RND*2)*8)+INT (RND*2))*INT (RND*2)
INT (RND*2)*8)+INT (RND*2))*INT (RND*2)
INT (RND*2)*8)+INT (RND*2))*INT (RND*2)
76 LET x=USR ...address 23760 etc.Hi all, Where could I find Spectrum 48 addresses, what's in 23760 for instance ? Thanks for advance ! -jp
... 23818,INT (RND*256)
83 POKE 23854,(20+(INT (RND*2)*8)+INT ... (RND*2))*INT (RND*2)
84 POKE 23855,(20+(INT ... (RND*2)*8)+INT (RND*2))*INT (RND*2)
85 LET x=USR ...
