-
Othello/Reversi Validate and Make MovesI'm working an Othello/Reversi game The board is represented as a 2d array 8*8 ie: 00000000 00000000 00000000 00012000 00021000 00000000 00000000 000…
... /> 33 REM - clear array
40 LET a(4,4)=1 ... +1
208 IF p=0 THEN LET p=1
210 IF q=0 THEN LET q=1
0; FLASH 1; INK a(p ... -
Othello/Reversi Validate and Make MovesI'm working an Othello/Reversi game The board is represented as a 2d array 8*8 ie: 00000000 00000000 00000000 00012000 00021000 00000000 00000000 000…
[QUOTE=Rebelstar without a cause;564327]If you wanted to tidy it up a bit
[PHP]204 IF INKEY$="q" AND p>1 THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3;"XOO"(a(p,q)+1):: LET p=p-1
205 IF INKEY$="a" AND p1 THEN PRINT AT p,q; INVERSE ... -
Best Crime Drama Intro MusicI'd like to set up a poll if there is interest. Best Intro Music to TV Crime Drama Series Thinking of including the following The Sweeney The Prof…
Keys redefine routine and key check.I have written some asm code which allows me to redefine keys (for a game etc.), and also allows me to be able to check any keypresses for the redefi…
... jr gk_exit
gk_key_is_pressed: set 0,d ; indicate key is pressed ... getting confused, :)
; -----------------------------------------------
delay: ld bc,32768
ld ... msg_define: defm CC_PAPER,4,CC_INK,0,CC_AT,1,7,"Press key ...Tile based graphics and scrolling thingy...Here's my best attempt so far at a tile based rendering and scrolling routine. It draws in 22 8*8 graphics tiles along the top of the screen (junk i…
... 16384 instead of defb 0,64 in case you ...
ld h,0
ld l, ... 16385
stackptr_temp defw 0 ; 2 bytes @ 32859
... 35,36,37,38,39,40,41,42,43,44, ... ,36,37,38,39,40,41,42,43,44, ... ,36,37,38,39,40,41,42,43,44, ...New Tool: CheqEdit[b]CheqEdit[/b] it's a simple and small program that helps you to draw 64x48 graphics on screen in GRAPHICS MODE. Program can output as text in CHR$ …
...
10 PRINT AT 0,0;CHR$ 141;CHR$ 131; ... 142
11 BRIGHT 0
20 PRINT AT 1 ... /> 30 PRINT AT 2,0;CHR$ 143;CHR$ 138; ... BRIGHT 1
40 PRINT AT 3,0;CHR$ 131;CHR$ ...
111 REM BRIGHT 0
120 PRINT AT 11 ... 138
141 BRIGHT 0
150 PRINT AT 14 ...IPhone annoyances...IPhone annoyances.... Why does everyone have these damn IPhones? I call them a womans phone, because mostly women seem to think they are some kind o…
... over the top ?30 or ?40 a month contract on an ... /phones/HTC-Sensation.aspx#companyid=0&mins=300&texts ... =25&length=0&gifts=&data=0&redemption=False ...3 lines of funHello! I'm looking for a tattoo to remember forever our fabulous 8 bit era. A part the pictures I posted here [url]http://www.worldofspectrum.org/for…
[QUOTE=mcleod_ideafix;567783]Ok, this one is a little more than 3 lines (BASIC lines), but.... what if we code it in a more... "visual" way?
Assuming your tatoo artist is precise enough, I'd suggest this code ;) (click to enlarge):
[/ ...Official CSSCGC 2011 Competition ThreadHello fellas. The site is up and running. We are already accepting submissions. [url]http://www.mojontwins.com/csscgc2011/[/url] Rules, info, and e…
... /> 660 let spam=0
then RUN 40 you can have ...Official CSSCGC 2011 Competition ThreadHello fellas. The site is up and running. We are already accepting submissions. [url]http://www.mojontwins.com/csscgc2011/[/url] Rules, info, and e…
... /> 660 let spam=0
then RUN 40 you can have ...MCODE problem...Hi Folks, Trying to write a simple machine code program to hatch the screen. So far I have the following but even this is not working - it does not…
... ) you should code:
33 0 64
Similarly for LD ... DE, 100h
17 0 1
e.g.
21 00 40 033 000 064 LD HL ...MCODE problem...Hi Folks, Trying to write a simple machine code program to hatch the screen. So far I have the following but even this is not working - it does not…
... SOURCE COMMENTS
21 00 40 033 000 064 LD HL ... NZ,LOOP2 ; IF DE>0 THEN GOTO LOOP2
78 ... NZ,LOOP1 ; IF HL>0 THEN GOTO LOOP1
C9 ...IN or INKEY ?just curious which is better to use.. I have a menu done.. and use 6/7 to go up down it + space to cycle thru the options (using inkey).. obv. if I w…
... 3;"\''"
57 PRINT AT 0,0;" "
58 PRINT AT ... OVER 1; INK logcol;AT 0,0;" "
71 PRINT OVER ... br /> 561 REM PRINT AT 0,0;"game:";gameno: REM ** testing ... ;AT 19,0;" "
824 BEEP 0.0090,RND*40: GO TO ...Display half a screenWorking in 128 Basic and saving screens to memory via - SAVE! "image" SCREEN$ . Is it possible to display just the top half (or the bottom half) of t…
... b: NEXT a
40 SAVE !"t" CODE 16384,2048 ... PRINT AT a,0;:
FOR b=0 TO 31: PRINT ... NEXT b: NEXT a: INVERSE 0: PRINT #0;"press 'j'"
51 ... IF INKEY$"j" THEN PAUSE 0: GO TO 51
... : NEXT a
60 PAUSE 0
[/code]
However, ...Pixel engines for explosions...Hi... Iv a strange request... I was toying around with an old YS program, which can be found here: [url]http://www.users.globalnet.co.uk/~jg27paw4/ty…
... 20ts
ld bc, 0 ; 61463 1 0 0 10ts
ld a ... , 61505 ; 61479 40 24 12/7ts
ld (ix+0), d ; 61481 ... 221 114 0 19ts
ld ...playing sound samples from Boriel's zxbasic-compilerfirst of all, sorry if it sounds confusing if i'm posting this thread here instead instead of at Discussions:SinclarBasic it's because this is more …
... /> Adr03:
07 ld a,0
11 out (254),a ... there.
If a 0 is to be output, the ... have to insert a constant delay loop that is covered by ...playing sound samples from Boriel's zxbasic-compilerfirst of all, sorry if it sounds confusing if i'm posting this thread here instead instead of at Discussions:SinclarBasic it's because this is more …
... Adr02. To insert a variable delay you'd insert a loop ... de,$0010 ; d = byte for 0, e = byte for 1
0
10 jp po, next_byte ...Were games expensiveDo you think speccy games were expensive? Having found a webpage to convert old prices to their modern equivalent it comes out that in today?s pricin…
... PS3 games are about ?35-40, but do have production values ... the game comes down to $0.99 from $1.99' about ...New WIP underway - 'Dingo'.Hi, Prepare for a long post. Perhaps I can even challenge ewgf here. :razz: Anyway, I've been meaning to get into Z80 programming and making a game…
...
ret
keyretval: defb 0
; --------------------------------------------------
; -----------------------------------------------
delay: ld bc,32768
ld ...Gaddafi capturedThe Libyan forces are claiming to have captured Col. Gaddafi, apparently they shot him in both legs to stop him running away!!
... highly educated
- 40 loaves of bread costs $ 0.15
- A ... liter of gas costs $ 0.15
- Electricity, telephone, gas ...Gaddafi capturedThe Libyan forces are claiming to have captured Col. Gaddafi, apparently they shot him in both legs to stop him running away!!
... highly educated
- 40 loaves of bread costs $ 0.15
- A ... liter of gas costs $ 0.15
- Electricity, telephone, gas ... - maybe if the bread was $0.10 instead they would all ...Add horizontal hardware scroll to ULA+In this case we must read a bit in the ULA+ for test if supported. And the future software that uses it must have to branch: 1. If hardware scroll i…
... ,2 and 3 of index 40 in ULAplus. Detecting by writing ... . Disabling by sending 000 (offset 0) to these 3 bits port ... skips the N offset (between 0 and 7) pixel at start ...BASIC menus for PlusD discsIs it possible to use BASIC to code custom autoloader menus for PlusD discs? For instance, I can make a disc copy of Dizzy Collection and could make…
... />
[code]5 BORDER 0 : PAPER 0 : INK 7 : CLS
10 ... "1. Magic Land Dizzy
40 PRINT"2. Switchblade Demo"
BASIC menus for PlusD discsIs it possible to use BASIC to code custom autoloader menus for PlusD discs? For instance, I can make a disc copy of Dizzy Collection and could make…
... />
[code]5 BORDER 0 : PAPER 0 : INK 7 : CLS
10 ... "1. Magic Land Dizzy
40 PRINT"2. Switchblade Demo"
BASIC menus for PlusD discsIs it possible to use BASIC to code custom autoloader menus for PlusD discs? For instance, I can make a disc copy of Dizzy Collection and could make…
... />
[code]5 BORDER 0 : PAPER 0 : INK 7 : CLS
10 ... "1. Magic Land Dizzy
40 PRINT"2. Switchblade Demo"
Epson printer problem solvageAnyone here got an epson printer? If yes, Anyone here seem to have intermittent problems with a certain ink colour or two not printing? I've had thre…
... get 150 pages then a ?40 laser cart that does 1000 ... .[/QUOTE]
Is that ?40 for an entire 4 cartridge ... price-per-page cost of 0.65p. I can live with ...Epson printer problem solvageAnyone here got an epson printer? If yes, Anyone here seem to have intermittent problems with a certain ink colour or two not printing? I've had thre…
[QUOTE=Turkwel;574966]Is that ?40 for an entire 4 cartridge ... price-per-page cost of 0.65p. I can live with ...Dead 128K heatsinkUnfortunately my 128K heatsink died suddenly and with no apparent reason. I had the Kempston Pro interface connected and when i powered it on the ztx…
... would have tried rewinding the 40 (3-4) and 16 (1 ... and reload, during the first 0.5 sec. (try this with ...Dead 128K heatsinkUnfortunately my 128K heatsink died suddenly and with no apparent reason. I had the Kempston Pro interface connected and when i powered it on the ztx…
... would have tried rewinding the 40 (3-4) and 16 (1 ... and reload, during the first 0.5 sec. (try this with ...Up/Down Left/Right scrollCan anybody give a newbie some pointer to simple one char scrolling by pixel? I've looked at a lot of resources, but as you can imagine, it's all a …
... ,94,33,30,0,0,128,128,128,128,0,0
db ... 5,2,1,224,16,40,40,8,232,16,224< ... ,132,120
db 0,0,0,0,0,0,0,0,60,66,165,165,129 ... ,94,33,30,0,0,128,128,128,128,0,0
db ... 5,2,1,224,16,40,40,8,232,16,224< ... ,132,120
db
