-
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 ... /> [code]1 LET B=0
2 PRINT AT 0,B;"*": LET B=B ... +(INKEY$="7")-(INKEY$="6"): POKE 23692,0: PRINT AT ... -
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 PRINT AT 0,10;"000000"
20 LET score=10
30 LET s$=STR$ score: PRINT AT 0,16-LEN s$;s$
35 LET score=score+5
40 GO TO 30
[/code]
Is this fast enough Myke? -
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…
This might be a tad or two faster....
30 PRINT AT 0,16-LEN STR$ score;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…
... , as 'score' was constant at 999, I just enclosed within ... the code which determined the PRINT position and value, so that ... has gone before:
[code]PRINT FN s$(STR$ score)[/code ... 13+"000000"[/code]
(ie. PRINT AT 0,13;"000000")
This ... -
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…
... $="000000"+ STR$ score
30 PRINT AT 0,10; s$ ( LEN s$-5 ... -
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 "!"
[/code ... /> 10 FOR n=0 TO 255
20 PRINT AT 0,0;SQR n
10 FOR n=0 TO 255: PRINT AT 0,0;SQR n: NEXT n ... -
Flicker free animation in BASIC, is it possible ?With all my various noodlings in BASIC and indeed with my so far limited assembly I keep coming up with the same issue. How do you do animations wit…
... speed it's only to print when a key is pressed ... /> Put space before movement in print:
- TO LEFT: "X "
100 PRINT AT Y,X;"X ": let x ... -1: goto 110
102 PRINT AT Y,X;" X": let x ... -
The trouble with good code isLots of times I've come here to ask for help and always got it pretty promptly. Which is wonderful and one of the reasons why I don't think there's a…
... , except that [b]PRINT AT 0,10; INK 2; PAPER 0; FLASH 1; “Peekaboo ... see what you’re getting at, but I’m afraid that ... [/i] is probably a misnomer, at least the “language” part of ... -
Flicker free animation in BASIC, is it possible ?With all my various noodlings in BASIC and indeed with my so far limited assembly I keep coming up with the same issue. How do you do animations wit…
... speed it's only to print when a key is pressed ... /> Put space before movement in print:
- TO LEFT: "X "
100 PRINT AT Y,X;"X ": let x ... -1: goto 110
102 PRINT AT Y,X;" X": let x ... -
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…
... if a point at a specified coordinate is 0 or 1, and ... ]
10 PRINT AT 0,0;"Y=";IN 65503;" "
15 PRINT AT 1,0;"X=";IN ... if they exceed 255 (or 0), it simply rolls over. It ... simply reset the values to 0. You need to write your ... -
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…
... PEEK 60828
9930 PRINT AT 0,0,STR$ (x)+", "+STR ... get_column_offset ; Position HL at the correct column -
scrbuf: DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
scrbuf2: DEFBcolonel32 November 2017 Sinclair Basic
-
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…
... br /> 1023 INPUT "Starting at row [0-";(hirow);"] ";arow: LET arow ... blen=rows*128
1033 PRINT " LOAD """;d$;"""CODE "; ... 1999 STOP
2001 PRINT AT 0,0;
"PROG= ";FN p(23627 ... 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…
... that, as I'm hopeless at it.
... /> 98 SPRITE CLEAR : SPRITE PRINT 0
99 STOP
... br /> 1010 CLS : BORDER 0: SPRITE CLEAR : TILE DIM ... 16,11 AT 0,0 TO 0,1
1035 PRINT AT 0,0; PAPER BIN ... 1: LET delay=0: LET power=0
1050 PROC ... -
Have I got a mystery for you!All morning I worked on this set of 12 UDG's to draw a better looking tank. I created the UDG's and wrote the program in Basic using BASin for Beginn…
... /> 30 PRINT AT 10,12;CHR$ (144)
40 PRINT AT 10,13 ... ;CHR$ (145)
50 PRINT AT 10,14 ... /> 90 PRINT AT 11,12;CHR$ (148)
100 PRINT AT 11,13;CHR ... $ (149)
110 PRINT AT 11,14 ... -
Making sound using the BEEPER in AssemblyI had a look at the the documentation but it doesn't make sense to me. To make music just the beeper all I have to do is send ones and zeros to one o…
... /> [code]10 PRINT AT 0,0; "Beeper ": BEEP .5,8.771
20 PRINT AT 0,0; "AY ... -
Non-repetitive RNDHi guys) Perhaps, some of you already encountered a situation, when one needed a set of [b]unique [/b](pseudo-)random values, say, from zero to 25…
... c$=""
1 PRINT c$
7 PRINT "SHUFFLE?": PAUSE 0: RANDOMIZE : CLS ...
12 LET i=0: LET ... )
25 IF POINT (r,0) THEN GO TO 15
0
28 PRINT AT 0,0;i
29 LET ... -
Windows 11 - It's commingJust when you thought that there was going to be no more new versions of Windows, a recent leak reveals Microsoft are due to announce Windows 11 soon…
... =1 TO 4
40 PRINT AT 0,0;a$(a);
50 PAUSE ... -
Who's NEXT?How about having a category just for Spectrum NEXT owners? I got mine on Monday, its the original issue, plain jane and quite enough for me to ge…
... Ask users name
20 PRINT "Please type in your name ... /> 31 REM
33 REM Print welcome [i](needs to be ... REM
100 PRINT AT 11,10; "Hello ";n$
120 PRINT AT 13,7 ...
133 REM
140 PRINT aT 15,10; "I am ";a ... -
New for 2009 - mc onelinersI found the limit of one line and one screen's worth of program really useful in (re-)learning BASIC, so I've decided to carry the format over into m…
... ,119,17,21,0,25,16,239,1,0,0,197,33,238 ... ,b: NEXT j: PRINT AT 0,6;USR 33001;AT 0,0;"score": REM ilmc attr ... /> cp 0
jr z,gameover
ld a,8 ;print car ... road posn
xor a ;print new road
ld (hl ... welcome. It's 168 bytes at the mo, but it could ... -
Tutorial - learn machine code in 30mins[B][I]Message from the moderators[/I] - bigjon has requested that readers' attention be drawn to a better version of this tutorial, one which is easi…
... the machine code and print the score we have ... go to GAMEOVER.
;print car
;scroll road< ... be 0,0. So the assembler will write 1,0,0,201 at ... Spin display window:
10 PRINT AT 0,0; "Your score was "; USR ... /> To print a black road we need 0 in the ...
