-
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…
... PRINT AT p,q; INVERSE 1; INK a(p,q)+3;" ... XOO"(a(p,q)+1):: LET p=p-1
205 IF ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... ;"XOO"(a(p,q)+1): LET q=q-1
207 IF ... -
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…
... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... PRINT AT p,q; INVERSE 0; FLASH 1; INK a(q,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…
... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... " THEN PRINT AT p,q; INVERSE 1; INK a(q,p)+3 ... PRINT AT p,q; INVERSE 0; FLASH 1; INK a(q,p ... -
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…
... ,2;"\.:\::\ :\:.\ .\::\ .\:'\''\:.\ .\:'\''\ '\':\:'\' "
52 PRINT AT 1,1;"\.:\' \::\ :\: \: \::\ :\: \ \::\ \''\::\. \ :\: "
1; BRIGHT 1; INK logcol;AT 1,4;" "
77 PRINT OVER 1; BRIGHT 1 ... br /> 97 PRINT INVERSE 1; INK logcol;AT 3 ... -
DATA vs PRINT and OVERjust messing about and came across this alternative way of drawing a map....now before I start mucking about with my actual program.....is there any …
... c$=c$+CHR$ 17+CHR$ 7+CHR$ 22+CHR$ y+CHR$ 1+CHR$ 23+CHR$ 31+CHR$ 0
240 REM PAPER 5;AT y+1,1 ... c$=c$+CHR$ 17+CHR$ 5+CHR$ 22+CHR$ (y+1)+CHR$ 1+CHR$ 23+CHR$ 31+CHR$ 0
DATA vs PRINT and OVERjust messing about and came across this alternative way of drawing a map....now before I start mucking about with my actual program.....is there any …
... c$=c$+CHR$ 17+CHR$ 7+CHR$ 22+CHR$ y+CHR$ 1+CHR$ 23+CHR$ 31+CHR$ 0
240 REM PAPER 5;AT y+1,1 ... c$=c$+CHR$ 17+CHR$ 5+CHR$ 22+CHR$ (y+1)+CHR$ 1+CHR$ 23+CHR$ 31+CHR$ 0
Scrolling a mapCan someone explain in idiots terms how you scroll a map. I'm not after code as such, just an explanation of how it can be done. I'd like to scroll…
...
12 LET xd=1: LET yd=1: LET xp=8: LET ... /> PRINT AT yp+yt-1,xp+xt-1; INVERSE 1;m$(yp,xp)
INVERSE 1;m$(yp,xp):
GO ... r=yd TO yd+yw-1:
PRINT AT r-yd ... $(r,xd TO xd+xw-1):
NEXT r: RETURN
Need to scroll one column using m.c.I've used many of the available routines to scroll the entire screen in any direction, but I'm not being able to find one that would allow me to scro…
... "LET a$=a$(2 TO)+CHR$ 0" scrolls the attributes reasonably ... numbers; the last two are 1/0 for yes/no. So ... demo routine.
[code]
1 DEF FN l(c,t ... $(r TO r+2)=CHR$ 17+CHR$ (p+1)+CHR$ c:
LET ... r TO r+1)+" ":
LET p=p+1 AND p=top ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... character value between 1 and 8.
CHR$ 48 = 0 = ... on the screen
CHR$ 49 = 1 = is the first character ... /> CHR$ 54 = 6
CHR$ 55 = 7 = because D is 1, you ... see the char CHR$ 56 (8).
Writing to virtual disks/tapes? (in ZX Spin, please)I have some emulators installed in Windows: Spectaculator 8, ZXSpin 0.7 and Fuse (1.0.0.1). I've been able to save to disks in Spectaculator and fuse…
... FOR x=1 to 13:
READ d$: PRINT INVERSE 1;"Load ... BIN ";d$(1);":p.";d$(2);" at ... : RETURN
REM DATA#1 (1)=BIN file letter, (2)=RAMpage ... (3)=#parts
REM #2 (1)=COD file letter; (2)=RAMpage ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... :
ld (iy + _vdu_flag), 1 ; signal lower screen
call ... workspace
ld bc, 1 ; one location for prompt
1 address
pop hl ; ... 2 for inverse 0
rlca ; set for inverse 1
...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... :
bit 2, c ; INVERSE 1?
jr nz, plot_end ; ... b ; else
cpl ; INVERSE 0
org ... bit 2, (iy + _p_flag) ; inverse?
jr z, inverse_1a ; ... bit 2, (iy + _p_flag) ; inverse?
jr z, inverse_2a ; ...Drawing a dotted line...Hi Folks, I cannot be the first person to want this (?) so here goes! Does anyone have a MC routine that does the same as the BASIC DRAW command bu…
...
110 PLOT INVERSE 1;f,0: DRAW INVERSE 1;0,175: NEXT f ...Drawing a dotted line...Hi Folks, I cannot be the first person to want this (?) so here goes! Does anyone have a MC routine that does the same as the BASIC DRAW command bu…
...
110 PLOT INVERSE 1;f,0: DRAW INVERSE 1;0,175: NEXT f ...Alkatraz Protection System - "How to" and compo?I'm thinking about writing a "how to" regarding the [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0020807"]Alkatraz Protection System[/URL].…
... your cartridge: [CODE]FORMAT "m";1;"LOMMv105"[/CODE]
... "0 " CODE 30392,28865
"1 " CODE 25000,2167
"2 ... : BEEP .1,1: BEEP .1,2: BEEP .1,3: BEEP .1,4: BEEP .1,5: : ... LOADING";AT 12, 10; INVERSE 1;"PLEASE WAIT": PRINT AT 0 ...Microdrive usageAnyone here know about microdrive files? Had a few carts in, all have stuff on, heres an example cat 1 with the error message i get for every single …
... /> 10 LET z$="": MOVE "m";1;"bubble" TO #14: PRINT LEN ... z$
20 FOR a=1 TO LEN z$
30 ... IF c$< " " THEN PRINT INVERSE 1;"0" AND CODE c$moving things en masseJust a random thought while I warm up for the Crap Games Once you PRINT something to the screen..... can you manipulate it in anyway other than ove…
... PRINT AT 10,5; FLASH 1;"PLEASE WAIT."
16 BORDER ... 1: LET z=144
50 PRINT AT x,y;CHR$ (z)+CHR ... $ (z+1)
100 IF ... DATA 0,0,0,0,1,3,7,15
... 0,0,0,0,0,1,3,7
1120 ... PRINT AT x,y;CHR$ (z)+CHR$ (z+1)
2100 RETURN < ...The 20th comp.sys.sinclair Crap Games Competition thread!Hi all, [SIZE="7"][B][CENTER]ANNOUNCEMENT![/CENTER][/B][/SIZE] The comp.sys.sinclair Crap Games Competition 2015 is now well and truly OPEN! [url]…
... using the relatively costly AT (CHR$ 22) trick, there is no ... without backspacing?
Unfortunately CHR$ 22 is the only way ... /B/O/O/T/S/CHR$ 22/1/8/H)The 20th comp.sys.sinclair Crap Games Competition thread!Hi all, [SIZE="7"][B][CENTER]ANNOUNCEMENT![/CENTER][/B][/SIZE] The comp.sys.sinclair Crap Games Competition 2015 is now well and truly OPEN! [url]…
... /I/ RESTORE /CHR$ 8/CHR$ 8/M/CHR$ 22/1/10/CHR$ 8) but I ... good with (F/I/RESTORE/CHR$ 8/M/ /P/AND/A ...The 20th comp.sys.sinclair Crap Games Competition thread!Hi all, [SIZE="7"][B][CENTER]ANNOUNCEMENT![/CENTER][/B][/SIZE] The comp.sys.sinclair Crap Games Competition 2015 is now well and truly OPEN! [url]…
... /I/ RESTORE /CHR$ 8/CHR$ 8/M/CHR$ 22/1/10/CHR$ 8) but I ... good with (F/I/RESTORE/CHR$ 8/M/ /P/AND/A ... ".That wouldn't work, because CHR$ 8 doesn't delete everything ... (F/ RESTORE /CHR$ 8/CHR$ 8/M/ CAT /CHR$ 22/1/11/I)... but ...Remaking Special Operations - some thoughts and questions.(Edit: Sorry - long one!) Special Operations is one of my favourite titles and, despite them being very different, is up there with Halls of the T…
... days of playing as in INVERSE '1' attacking a BRIGHT '2' really ...im looking for a horizontal scroll routinehi, im looking for a horizontal scroll routine. i read somewhere that you can do it with at 'to' statement, somewhere in a print routine. althoug…
... the scenery into a 1-dimensional array and print ... [code]
30 FOR b=1 TO 541 STEP 18:
LET a$(b+1)=a$(b+19): LET a ... 3)-1: LET r=r+(r17):
LET a$(560)=CHR$ ... a$(564)=CHR$ (r-1): LET a$(570)=CHR$ (r+1):
PRINT ...Can't Get My Simple Code To RunHello again, I'm trying to run the following simple code: [code] org 32768 main ld b, 21 ; x coordinate is …
... ,1 (0-1)
bright equ 19 ; bright,1 (0-1)
inverse equ 20 ; inverse,1 ... (0-1 ...im looking for a fill routine written in basici know this would be slow but i want to tinker with it to produce something else.
Oh, ffs. Not INK 0, but INVERSE 1 to un-plot a point unless I'm very much mistaken :)
