-
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
[quote]This way you can do the usual scr[y][x] two-dimensional syntax.[/quote] very good,thanks
When I copied and pasted the code it crashed though -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
... /> [code]
fzx_write(buffer, (scr[y][x] < 10) ? 1 : 2);
[code]
if (scr[y][x] < 10)
fzx_write(buffer ... -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
I'm trying to use a simple 8x8 array right now.
Just wondering if a simple #define could work as well.
like
[CODE]#define ARR(y,x) arr[(y -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
[QUOTE=Paradigm Shifter;744679]#define ARR(y,x) arr[(y -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
It should have a comment as well
// Pirate macro
#define ARR /* etc. */
EDIT: Serious point though, you should pass arr as a macro argument
#define ARR(arr, y, x) /* etc. */ -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
...
#define ARR(arr, y, x) /* etc. */[/QUOTE]
I'm ... -
array offset (z88dk)Im trying to simulate a 2 dimensional array by using an offset [code] #include <fzx.h> char scr[768]; int arrayoffset(char x,char y) { return (x*…
... calculation for static vars x,y or constants x,y. Inlining will cost more ... -
DIM DATA and the likeSo...I'm trying to work out arrays in BASIC a bit more and have knocked up the following quick test bed to fiddle about with before trying anything m…
... /> 40 DIM x(10)
50 LET s = 1: LET n = 3: LET g ... TO 10
70 LET x(n) = s+INT(RND*n)*g
100 PRINT x(n)
110 NEXT n ...
110 PRINT x(1)+1
[/CODE] -
What's wrong with this code?[code]10 LET X=1+INT (RND*99999999): LET Y=1+INT (RND*99999999) 20 INK 4 30 PAPER 0 40 PRINT "Quest for ye flask!" 50 PRINT "?2014 Yoshiatom" 60 PRIN…
... number in. So
LET randomname = 5
is ... />
LET RaNdOmNaMe = 5
Therefore, X and x are the ... same name. So X is always equal to x ... -
The official CSSCGC 2014 threadJust to announce that the comp.sys.sinclair Crap Games Competition 2014 is now open. It's home for the year will be; [url]http://www.mykeweb.co.uk/c…
... my understanding is that x = horizontal and y = vertical, however, the Speccy ... as 'PRINT AT y,x.' RTL uses 'PRINT AT x,y' or 'down then ... -
The official CSSCGC 2014 threadJust to announce that the comp.sys.sinclair Crap Games Competition 2014 is now open. It's home for the year will be; [url]http://www.mykeweb.co.uk/c…
... my understanding is that x = horizontal and y = vertical, however, the Speccy ... as 'PRINT AT y,x.' RTL uses 'PRINT AT x,y' or 'down then ... as much as PRINT AT y,x would've messed with [I ... -
reversing an LFSRWhat's the correct way of reversing an LFSR so that it produces the same numbers but in reverse order? The little BASIC program below shows a test I …
... 0100 = 1a24
X X XX
0 1101 ... x(5): LET x(1)=0: LET x(2)=1: LET x(3)=0: LET x(4)=1: LET x ... (5)=0: DIM a$(13): LET ... /> 40 LET a$=CHR$ (48+x(1+VAL ... 45 LET v=0: FOR x=1 TO 13: LET v ... =2*v+VAL a$(x): NEXT xquick RAM copy using LET in BASICI'm in the process of reviewing, revising and refining all the programming tips & utility routines which I've posted on this forum over the last eigh…
... ] CLEAR 65535-768: LET hi=65536-768: LET lo=22528:
... DEF FN b(s)=s+INT ( ... p(23639)+8[/b]
103 [b]LET u=23563: LET v=da ... ,768)
107 [b]LET a$=b$[/b]
110 ... )*256: POKE u+1,INT (v/256): RETURN[/b]
[/code]< ...dumping protected BASIC loadersI wrote this a few weeks ago but forgot to post it. It will load & list from tape/TAP/TZX any BASIC program which has been saved with SAVE, including…
... different.
[*]Lines 2000-2130: Scans back ... br /> 10 LET a=bytes: LET iv=0: LET bt=0: ... LET n(d)=PEEK (a+d): NEXT d: GO SUB 2000 ... :
PRINT INK ynk; FLASH ynk=2;number;: PRINT "]";: LET ... 21
...
2000 LET v$="":
FOR d= ...CIRCLEHi, I'd like to draw a circle x,y,r using the BASIC-ROM subroutines. I've put x, y and r onto the calculator stack and used CALL #232D and RET. I g…
... CRGRE1 at $233B with R,Y,X on the stack and have ... /> [CODE]
LD A,128 ; X Coord
CALL STACKA
LD A,88 ; Y Coord
CALL STACKA
BASin won't accept this code?Taken from the Oneliner contest 2007: [CODE]1 LET n=191: DIM i$(4,9): FOR g=2 TO 4: LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET …
... :
[code]
10 LET a=(2+3)*4
[code]
LET z=(b>y)*(bx)*(a" ":
[/code ...WOM Memory Signetics 25120 Series 9046NHello, here: [url]http://www.ti.com/ww/en/bobpease/assets/www-national-com_rap.pdf[/url] at pages 128 und 129 you can find information about a very …
I believe that write-only ram will be the next big thing in computers. Nice to see a chip build on the S.E.X. process... 8-)Opening my new game projectHi I am working to a new game (tentatively called "Donkey Kong Reloaded Done Better"...i was not happy with the graphics of Donkey Kong Reloaded) whi…
... right)
subtract 20 from x (lift albert up 20 pixels ... )
add 16 to y (pushes albert 16 pix right ... /> subtract 20 from x
subtract 16 from y
endif
y x coordinates)
you can change ...Pacman monster helpso I am trying to write a pacman game in Specbas [youtube]0R4XmkzBfHs[/youtube] got it working ok so far.... now the tricky bit the monsters in p…
... LET ghostposx=SPRITEx pac+8
3230 LET ghostposy=SPRITEy pac+8
3270 RETURN ... SPRITEx gr)*2): LET ghostposy=SPRITEy gr+((( ... SPRITEx gr)*2): LET ghostposy=SPRITEy gr+(((SPRITEy ... LET ghostposy=SPRITEy gr+((SPRITEy pac-SPRITEy gr)*2)
3470 RETURN ...Beautiful codeSome people see beauty or something sublime in maths formulas and equations, can anyone suggest examples of beautiful or sublime programming?
... transforms the argument X of SIN X or COS X into a value ... that:
Y = X/(2*PI I ? INT (X/(2*Pl ( + 0.5 ... ), where Y is greater than ... subroutine returns with: V=4*Y if -1Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
... you'd need to do x - ( 8 * INT ( x / 8 ) ). That is, divide the attribute ... 's probably easist to do INT ( x / 8 ) - ( 8 * ( x > 63 ) ) which means divide the ... get the existing attribute x, then do ( 8 * INT ( x / 8 ) ) + ink. In other words ...Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
... , such as PRINT AT y,x;"/\";AT y+1,x;"\/"
(b) Generating a ...Decimal to Binary stringHi all, Anyone got a less labour intensive BASIC routine than this? Example:- take 170 and convert to a string "10101010" take 4 and convert to a s…
... version):
[code]
5 LET number=170
10 POKE ... ,number
20 LET s$=""
30 FOR x=0 TO 7 ...
40 LET s$=s$+STR ... $ (POINT (x,175))
50 ... NEXT x
60 PRINT ...Game of Life.Last year (I think) or maybe the year before, I entered a Game of Life simulator into the CSS CGC compo but for the Sinclair ZX81. I decided to port…
... br /> 11 RANDOMIZE 0: LET bc=USR InitS:
BORDER ... 0-9] ";den: LET den=INT ABS den:
LET den=den-(den ... ):
IF den THEN LET den=INT (65536*den/9)
... ,0;"move:5,6,7,8; mark:SPC; done:ENT": ... 0; PAPER 1,,: LET r0=10: LET c0=16: OVER 1 ...Did Sinclair pioneer 'tiny' computers?Most computers of the time were fairly large-ish The Atari 8-bit, the Apple II, The c64 looks at least twice the size of the rubber key speccy. Th…
... x 17.5 x 5.5 cm
Oric-1 28 x 17.8 x ... x 22 x 3.8 cm, 1 kg
COMX-35 29 x 16 x ... x 17 x 4 cm, 0.8 kg
Camputers Lynx 32 x 20 x ... x 17 x 6.5 cm
Panasonic JR-200U 34.8 x 20.8How to add a loading screen to my tap file[FONT=Calibri][SIZE=3]I?ve got my game created as a tap file generated by Pasmo. I now want to add a loading screen. Can anyone explaine the best way…
... some PAPER 0 : print AT Y,X to add a black area ...How to add a loading screen to my tap file[FONT=Calibri][SIZE=3]I?ve got my game created as a tap file generated by Pasmo. I now want to add a loading screen. Can anyone explaine the best way…
... some PAPER 0 : print AT Y,X to add a black area ...Testers for new z88dk clibA long (long, long, long) time ago a few people offered to help test the new clib in z88dk. Much time has passed since then and I won't hold people,…
... ]
void drawchar(unsigned int x,unsigned int y,unsigned char *gfx)
[/code ... /> unsigned int y (2 bytes)
unsigned int x (2 bytes)
return address
unsigned int x (2 bytes)
unsigned int y (2 bytes)
ZX Basic StoryOk so here's another mundane idea. Let's make a story, like the three word story but you are only allow to used the words letters or symbols provided…
... Len, cats.
LEN: LET LEN RUN OVER CAT VAL ... SIN. PAUSE CAT
LEN: LET NOT SIN VAL
VAL ... : STOP LEN!
LEN: LET LEN ATTR! LEN RUN OVER CAT THEN ...
