-
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 ... the kempston mouse driver, factor 1.
Restart the tape ... -
Fast Condition TestingHello my friends, I have been writing some input and string handling routines in BASIC lately - yeah I could write them super fast in C/ASM via z88d…
... /> a$() = routine codes for CHR$ 1 ->CHR$ 127 (default 32 ... a character
[*]line 2901: print updated string after add/delete ... />
2400 FOR z=0 TO 0 STEP 0:
LET c$=INKEY ... $(cx)=" ": LET cx=cx-1
2901 PRINT AT 0,0;s$
2902 IF ... -
Scrolling in BASICI remember a few BASIC typeins for other machines that claimed to be scrolling the screen. Obviously vertically its not too difficult - once you dis…
... PRINT AT 0,0;a$
110 LET a$=a$(2 TO 32)+a$(1 ... -
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 ... editor.
[b][i]Mark[/i][/b][/quote]
I was ... "]Try this:
[code]10 PRINT AT 0,0;IN 63486,IN 61438,
[b][i]Mark[/i][/b][/quote]
I ... -
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…
...
10 PRINT AT 0,0;"31 ";IN 31;" "
20 PRINT AT 1,0;"55 ";IN 55 ... basic first, Sinclair 1 + 2
Controller 1 - Sinclair 1 (67890)
Controller ... 2 - Sinclair 1 (67890)
Numbers for Sinclair will print ok, but ... -
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 STOP -
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 do ... -
Leading Zeroes on a Score in BASICI'm trying to print the score with leading zeroes such that it's always 6 characters wide, i.e.: 000010, 000150, 006100 etc. I quickly knocked thi…
... /> [code]10 LET x=0: LET score=0: PRINT AT 0,0;"000000"
20 ... >=10000 THEN LET x=1
6645 IF score ... ;=100000 THEN LET x=0
6650 PRINT AT 0,x;score
Leading Zeroes on a Score in BASICI'm trying to print the score with leading zeroes such that it's always 6 characters wide, i.e.: 000010, 000150, 006100 etc. I quickly knocked thi…
... LET x=5: LET score=0: PRINT AT 0,0;"000000"
20 IF score ... >=10000 THEN LET x=1
60 IF score> ... ;=100000 THEN LET x=0
70 PRINT AT 0,x;score
80 ...Leading Zeroes on a Score in BASICI'm trying to print the score with leading zeroes such that it's always 6 characters wide, i.e.: 000010, 000150, 006100 etc. I quickly knocked thi…
... ()): PRINT #0;AT 0,0;"Start : ";st: LET ft=0:
FOR l=1 TO ... t(FN f(),FN f()): PRINT #0;AT 1,0;"Finish : ";ft'
"Duration ... THEN LET x=0
2011 PRINT AT 0,13;"000000"(TO ... 5004 LET score=0
5006 PRINT AT 0,13;FN s$( ..…Must be missing the point - machine code... Hi Folks, Trying my hand at machine code again but falling at the first hurdle. I hand crafted the following to run at address 62000 and the co…
... /> 130 PRINT AT 0,0;"ADDR";AT 0,7;"HEX";AT 0,12;"MSB";AT 0,17;"LSB";AT 0,22;"DEC ... GO TO 300
180 PRINT A;TAB 7;H$;
1)
200 LET P=P-(48 AND P64)
210 PRINT ... D=D+P
260 PRINT TAB 17;P;TAB 22 ...
280 LET A=A+1
290 GO TO 160 ...Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... />
[code]100 BORDER 0: PAPER 0: INK 7: CLS
... br /> 130 REM
140 PRINT AT 0,0;"Please wait, building string"
230 REM F=0 - PLOT, X=+ve, Y=+ ... ve
240 REM F=1 - DRAW, X=+ve, Y ...
290 LET F=1
300 IF A$="P ...Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... />
[code]100 BORDER 0: PAPER 0: INK 7: CLS
... br /> 130 REM
140 PRINT AT 0,0;"Please wait, building string"
230 REM F=0 - PLOT, X=+ve, Y=+ ... ve
240 REM F=1 - DRAW, X=+ve, Y ...
290 LET F=1
300 IF A$="P ...Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... />
[code]100 BORDER 0: PAPER 0: INK 7: CLS
... br /> 140 REM
150 PRINT AT 0,0;"Please wait, storing data"
240 REM F=0 - PLOT, X=+ve, Y=+ ... ve
250 REM F=1 - DRAW, X=+ve, Y=+ ...
300 LET F=1
310 IF A$="P ...Welcome to the Matrix!Ok here's something I been playing with while I'm at work and on public transport. I'm thinking I want to be able to move the large letters around th…
Just store the message in a string variable.
Let a$="put message here"
Let l=len a$
Print at 0,0; a$(1 to 31)
Let a$=a$(2 to l) +a$(1)Welcome to the Matrix!Ok here's something I been playing with while I'm at work and on public transport. I'm thinking I want to be able to move the large letters around th…
[quote="Rebelstar without a cause;884091"]
10 Let a$="put message here"
20 Let l=len a$
30 Print at 0,0; a$(1 to 31)
40 Let a$=a$(2 to l) +a$(1)
50 Goto 30
[/quote]Welcome to the Matrix!Ok here's something I been playing with while I'm at work and on public transport. I'm thinking I want to be able to move the large letters around th…
... ]
10 PRINT "Hello ";
20 PRINT "World";
30 PRINT "!"
[/ ... /> 10 FOR n=0 TO 255
20 PRINT AT 0,0;SQR n
1 frames [sup]*[/sup]
10 FOR n=0 TO 255: PRINT AT 0,0;SQR n: NEXT n ...Help with Snake type game...any ideas ?Hi all I've attached me trying to write a snake type game. My first concern is me not writing over the System variables area. I'm pretty happy what i…
... d=5,da=0,sp=1:
FOR f=1 TO ns: < ...
40 for f=1 to ns:
circle ... da,
s(1,1)+=dx,s(1,2)+=dy:
... -1,1)-s(f,1)),
sd=pyth(s(f-1,1)-s(f,1 ... ),s(f-1,2)-s( ... POLAR(MOUSEy-s(1,2),MOUSEx-s(1,1))-da) mod 360 ...Any interest in this?So before I went back to AGD I was working on this: [img]https://s21.postimg.org/4mljnbf1j/Image2.png[/img] It's a new editor for SpecBAS. Allo…
... d=5,da=0,sp=1:
FOR f=1 TO ns: < ...
40 for f=1 to ns:
circle ... da,
s(1,1)+=dx,s(1,2)+=dy:
... -1,1)-s(f,1)),
sd=pyth(s(f-1,1)-s(f,1 ... ),s(f-1,2)-s( ... POLAR(MOUSEy-s(1,2),MOUSEx-s(1,1))-da) mod 360 ...How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... LEN (a$)>8 THEN PRINT AT 0,0;"Up to 8 Characters only ... TO 30
50 PRINT AT 21,0; INK 7;a$
60 ... FOR x=0 TO (LEN (a$)*8)-1 STEP 2
70 FOR y=0 TO 8 ... )+2*POINT (x,y+1)+POINT (x+1,y+1))
100 NEXT ...Just watched Paul Jenkinsons's spectrum chanel and now want to write code againPlease assume for the purpose of this thread I know nothing... I want to look to write games on the spectrum but want to develop and test on my wi…
... gfx
[code] 20 PRINT AT 0,0;"31x21"
90 LET x ... THEN LET f=f-1: IF f=0 THEN PRINT AT 21,x;" ": LET ... x=x-1: LET f ...
140 IF f=1 THEN PRINT AT 21,x;CHR$ 140+" ... /> 160 IF f=3 THEN PRINT AT 21,x;" "+CHR$ 140< ...How can I make a UDG rotate?I designed a set of UDG's that can be used for making shapes or letters. Trouble is that my circle - for example - consists of 4 pieces and it would…
... a point at a specified coordinate is 0 or 1, and then ... IF POINT (x,y)=1 THEN PLOT x1,y1
10 PRINT AT 0,0;"Y=";IN 65503;" "
15 PRINT AT 1,0;"X=";IN ... they exceed 255 (or 0), it simply rolls over. ... reset the values to 0. You need to write ...I feel like such a moron having to post this but stillI started out to write a simple cursor move program to demonstrate how easy it is to program in Basic! Hah, serves me right. I started by setting…
... A=10
40 LET B=10
100 LET A ... =X
102 LET B=Y
105 LET I ... )
130 PRINT AT B,A;" ";AT Y,X;"*"
140 REM PRINT AT 0,0;X;",";Y ...Need Some Basic HelpHi all, I’ve decided to give programming in Spectrum Basic a go again (bit of nostalgia trip!) and I’m trying to develop a CYOA style game. How…
... . Approx. stats are: PROG=1.5kb; VARS=31kb; FREE=9KB ... rows*128)/128+1
1023 INPUT "Starting at row [0-";(hirow);"] "; ... 1999 STOP
2001 PRINT AT 0,0;
"PROG= ";FN p(23627 ... =arow TO arow+rows-1:
PRINT a'a$(a):
How to stop a flickering character erasure?I'm trying to figure out how to build a moving sprite. Eventually it will be made up of several UDG's. However its early days yet so I'm experimentin…
... />
10 CLS
20 PRINT AT 10,10; "Press s to ... /> 50 FOR x=0 TO 30 STEP 1
60 PRINT AT 0,x; " A ...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.
... INK 7: PAPER 0: BRIGHT 1: FLASH 0: OVER 0: INVERSE 0: BORDER 0: CLS
Lines 340 to 360 start at the right-hand-edge and ... horizontal position always moves left at least one pixel. But the ...
