-
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. …
... /> 100 PRINT AT OY,OX;c$;AT OY+1,OX;C$
101 PRINT AT Y ... ,X;a$;AT Y+1,X;b ... -
Basic program malfunctionHello. Please does anyone know why this basic program 10 LET x=0 20 LET x=x+0.1 30 print x 40 if x<>1 then goto 20 50 STOP does not properly work o…
... calculation needs to be adjusted at every step (line 120 ... 20 LET x=x+b: PRINT AT 0,0;x,
40 IF xc ... THEN PRINT "error"
60:
... VAL STR$ (x+b): PRINT AT 1,0;x,
140 IF ... STR$ xc$ THEN PRINT "error"
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…
... THEN STOP
11 PRINT AT 0,15;d,: POKE 23681,d ... br /> 20 PLOT 255,0: LET bc=-255=175+ ... /> 40 PLOT 127,0: LET bc=0=175+USR DOTS
99 DATA 0
... ),bc ;(COORDS)
bit 0,a
call nz,$22e5 ...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…
... d$="" THEN STOP
11 PRINT AT 0,15;VAL (CHR$ 196+d ... pattern
20 PLOT 255,0: LET X=-255: LET Y ... br /> 40 PLOT 127,0: LET X=0: LET Y=175: GO ... LET X=255: LET Y=0: GO SUB 500
70 ... br /> 730 IF d$(8)="0" THEN POKE 23677,px: POKE ...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…
... d$="" THEN STOP
11 PRINT AT 0,15;VAL (CHR$ 196+d ... pattern
20 PLOT 255,0: LET X=-255: LET Y ... br /> 40 PLOT 127,0: LET X=0: LET Y=175: GO ... LET X=255: LET Y=0: GO SUB 500
70 ... br /> 730 IF d$(8)="0" THEN POKE 23677,px: POKE ...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…
... d THEN STOP
11 PRINT AT 0,15;d,: POKE 23681,d ... pattern
20 PLOT 255,0: LET bc=-255=175+USR ...
40 PLOT 127,0: LET bc=0=175+USR DOTS
99 DATA 0
9000 RESTORE 9010: READ ... ]
Now to look at the code and work out ...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…
... [code]
11 RANDOMIZE 0: BORDER 0: PAPER 0: INK 4
0:
FOR i=2 ... i,j)="*" AND RND>0.27272727:
NEXT j: ... 13 LET gen=gen+1: PRINT AT 0,0;"Generation:";gen:
FOR i ... =1 TO 20: PRINT g$(i): NEXT i:
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…
... left to right, one point at a time, the left & ... (1) & n(2) at the start of the 'i ... [code]
11 RANDOMIZE 0: BORDER 0: PAPER 0: INK 4
13 LET gen=gen+1: PRINT AT 0,0;"Generation:";gen:
FOR i ... =1 TO 20: PRINT g$(i): NEXT i:
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…
... p$() hold CHR$ 16 (INK print control) + colour code + " " or "*". ... be printed quickly with just PRINT p$. Press SPACE to restart ... /> 13 LET gen=gen+1: PRINT AT 0,0;"Generation:";gen'p$:
LET ... g$(). InitP sets up the print controls in p$() and ...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 /> 13 CLS : PRINT AT 0,0; PAPER 1,,AT 21,0,,:
DIM g$(20 ... /> 14 LET gen=gen+1: PRINT AT 0,0;"Generation: ";gen'p$:
... TO 29
21 PRINT AT 0,0;"move:5,6,7,8 ... :SPC; done:ENT": PAUSE 0:
PRINT AT 0,0; PAPER 1,,: LET r0= ...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].…
... "LOMMSP " CODE 27200,2502
"0 " CODE 30392,28865
"1 ... /> Let's take a look at the BASIC loader:
[ ... : BORDER 0: PAPER 0: INK 0: CLS : PRINT BRIGHT 1; INK 7;AT 9,2 ... , 10; INVERSE 1;"PLEASE WAIT": PRINT AT 0,0: LOAD ""CODE : [B]RANDOMIZE ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... />
[code]
5 FLASH 0: CLS : FLASH 1
10 ... ;1) THEN PRINT AT 0,0;"FLASH": GO TO 10
40 PRINT AT 0,0;" ": GO TO ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... />
[code]
5 FLASH 0: CLS : FLASH 1
7 ... LET z =0
10 LET p=z ... >16 THEN LET z=0
20 LET f=p ... ;1) THEN PRINT AT 0,0;" ": GO TO 10
40 PRINT AT 0,0; FLASH 0;" ";z;" ": GO ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
Actually yes, it can be done in 2 lines of BASIC:
[CODE]1 LET z=0
2 LET z=z+(INKEY$="q") AND zDetecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... as being distinctly different at any two points either ... increment and setting FLASH at some point offset from ... keypresses. So when the PRINT FLASH evaluates to "ON" ... 23618,2: LET z=0:
LET z=z ... +PEEK 23672)/16):
PRINT AT 0,0; FLASH f-2*INT ( ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... during first 16 frames, FLASH 0 for the next 16 frames ... /> [CODE]1 LET z=0: POKE 23560,0: LET z=z+1 ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... ' when MOD(FRAMES_lo,32) is 0->15 and 'on' when ... gives a stable white square at that point. The 'n' variable ... ]
1 LET z=0: LET n=0
2 PAUSE 1 ... 3
6 LET n=0: GO TO 3
[/code ...Kempston mouseHas anyone got code to work with an emulated Kempston mouse? There seems to be some conflicting information in the internet on which bits are reset w…
... LET y=175
25 PRINT AT 0,0;x;" ";y;" "
30 IF ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... ' when MOD(FRAMES_lo,32) is 0->15 and 'on' when ... gives a stable white square at that point. The 'n' variable ... ]
1 LET z=0: LET n=0
2 PAUSE 1 ... 3
6 LET n=0: GO TO 3
[/code ...Detecting flash mode inversionsIs is possible to detect with certainty when flashing characters change from normal to inverted and vice-versa?
... ; 1 LET z=0: LET n=0
call RESET ... p=z+PEEK 23672: PRINT AT 0,0; FLASH ((p-INT ... /> and %00011111 ;A =0 to 31
cp ... )
ld b,0
ld c, ... /> RESET: ld de,0
ld (23680), ...Features that are still wanted in Spectrum emulation.Features that are still wanted in Spectrum emulation. 4 USB joystick/gamepad input for real multiplayer games - Yes, Bomb Munchies.... - Sinclair 12…
... 31 ZX Basic and BM10 Print AT 0,0;IN 31;" ":Goto 10this works ... read via ZX Basic 10 PRINT AT 0,0;IN 95;" ":Goto 10The value ...Turbo RAM Glitch or feature ?I have been testing a Spectrum [url="http://www.worldofspectrum.org/infoseekid.cgi?id=1000328"]worldofspectrum.org/infoseekid.cgi?id=1000328"]RAM Tur…
Try this:
[code]10 PRINT AT 0,0;IN 63486,IN 61438,
20 GO TO 10[/code]
[b][i]Mark[/i][/b]Turbo RAM Glitch or feature ?I have been testing a Spectrum [url="http://www.worldofspectrum.org/infoseekid.cgi?id=1000328"]worldofspectrum.org/infoseekid.cgi?id=1000328"]RAM Tur…
... with two number keys pressed at the same time. So the ... "]Try this:
[code]10 PRINT AT 0,0;IN 63486,IN 61438,
Bomb Munchies - preview releaseBomb Munchies Preview release Version 12th Jan 2014 [URL=http://s979.photobucket.com/user/MatGubbins/media/bmsix_zpsc33279a2.gif.html][IMG]http://i…
... both Kemp31 and Kemp55 working at the same time.
... with everything that are thrown at them.
How ...
10 PRINT AT 0,0;"31 ";IN 31;" "
20 PRINT AT 1,0;"55 ";IN ... br /> Numbers for Sinclair will print ok, but running the program ...Introduce yourself[SIZE=3][FONT=Comic Sans MS]This is the thread to stop by & introduce yourself.[/FONT][/SIZE]
10 BORDER 0: PAPER 0: INK 7:CLS
20 INPUT "Please, type your name: ";a$
30 PRINT AT 0,0;"Hello, ";a$;"!"
40 PRINT AT 1,0;"I'm huelvy, a Speccy fan from Spain."; AT 2,0;"Happy to be here."
50 STOPSmall Machine Code Routines Which Maybe UsefulAs part of creating Flynn's Adventure in Bombland I created a lot of little routines to do all sorts of things. A lot of these I created based on inp…
... /> dw donowt
dw pratt ;print at 1,y,x
dw ... , 0, 0, 0
db 0, 0, 0, 0, 0, 66, 132, 0
db 0, 0, 0, 238, 0, 0, 0, 0
db 0, 0, 0, 0, 0Spectrum Screen RAM layoutHi there The spectrum screen layout is rather odd. It seems to be arranged into 3 256 byte groups. If I have an x (horizontal) coordinate (from…
... Variable at 23684 ($5C84) Address in display file of PRINT position ... br />
[code]
10 PRINT AT 0,5;
20 LET addr ... 23684
30 PRINT addr
40 PRINT AT 21,16;
... 256 + PEEK 23684
60 PRINT addr
[/code]
Flood FillHi Folks, Can anyone point me to a flood fill that I can call from ZX BASIC? I have looked through the archive and although there are posts about…
... somewhat like 'FILL AT x,y' (similar to PRINT AT x,y) I ... differing coordinates. Comparable with PRINT AT 0,0;"m": PRINT AT 0,1;'n'. After all we ...Basic BASIC help needed RNDHi all, I have recently re-discovered an old program I wrote in the early 90s which would do generate random lottery numbers. I know little now, an…
... do get from RND is 0.99998474
[code ... 1:LET A=0
20 FOR I=0 TO 65535
40 PRINT AT 0,0;I
50 NEXT i ...
60 PRINT A'A*49'INT (A ...140 characters Basic game contestHey there, I've announced a new micro contest on my blog (in Czech language only). However, it might be interesting also for the non-Czech/Slovak …
... />
1 LET B=0
2 PRINT AT 0,B;"*"
3 LET ... =RND*30: PRINT AT 20,X;"O"
6 PRINT AT 21,0: PRINT'
8 ...
