-
Bored of the Rings coded messageI was browsing [url="https://tcrf.net/"]The Cutting Room Floor[/url] recently and stumbled upon the entry for [url="https://tcrf.net/Bored_of_the_Rin…
... code letters, restricting results to A-Z (FN c() is ... within each character also need a series of nested loops, ... , as it builds up a word on the screen, ... 42 in the middle is a literal '*'. Eg. "THE * PRIZE ... :
DEF FN c(a)=a>=CODE "A" AND a -
Bored of the Rings coded messageI was browsing [url="https://tcrf.net/"]The Cutting Room Floor[/url] recently and stumbled upon the entry for [url="https://tcrf.net/Bored_of_the_Rin…
... b$(255): DIM w$(9): LET a=29999
11 FOR l ... /> GO TO 90
64 LET b$(CODE w$(u))=CHR ... /> 80 PRINT w$
90 FOR u=1 TO 9: LET b ... $(u))=" ": NEXT u
100 LET a=a+10+(w=7):
NEXT ... -
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 …
Slalom:
If you find the right rythm, you will do a nice zig-zag!
1 LET x=5
2 FOR a=1 TO 9
3 RESTORE USR 3282
4 LET x=x-2*(INKEY$””)*(x>2)+(x -
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 bit faster, I'm not ... />
[code]10 LET x=0: LET score=0: PRINT AT 0,0 ... SUB 6600
30 LET score=score+10
LET x=1
6645 ... >=100000 THEN LET x=0
6650 PRINT AT 0 ... -
ZX Dandanator! Mini - Cartridge system for SpectrumsHi All, I'd like to present a little HW I've developed during the last three months. It's aimed at providing a console-like usage experience for a…
... like to change something, please let me know![/quote]
No ... just want I want for a show so I can leave ... -loads the game. It's a nice idea that you can ... /> Though I should possibly find a POKE or altered version to start ... -
Usefullness of program listings in magazinesEarly computing magazines had printouts of program listings. I always felt this was a nice thing in that you might read the code and learn something,…
... ones with checksums used a lousy algorithm that didnt ... to re-type it from a screen for publishing. At ... was easier to spot a mis-print on a line as you ... actually reproducing the output of a printer, after someone had ... to them to just poke 255 into the last ... -
Where does the BASIC program sit 48K Spectrum memory?Hi there First post so be gentle, I've had a spectrum since the 80's and have recently started programming it for fun again. I wrote the followin…
Ok guys there's a vital line in the program ... this little program of mine. a in the above listing doesn ... .
So
5 LET a=0: LET b=3
10 FOR ... POKE x,a
30 LET a=a+b
40 IF a>255 THEN LET a ... -
Opus Discovery "the big switch on" (after 20 years)I have a few of these Opus Discovery's with different Eproms in that have not been swiched for 15-20 years or so . I am in no rush to switch any on …
... />
For 48K Spectrums "a 2.1 Discovery Rom is ... to upgrade to 128k Spectrum a 2.2 ROM is ... />
To enter 48k mode : PRINT USR 0
To ... 23305 : READ A : POKE J,A: NEXT J
30 PRINT USR 23296
Opus Discovery "the big switch on" (after 20 years)I have a few of these Opus Discovery's with different Eproms in that have not been swiched for 15-20 years or so . I am in no rush to switch any on …
... of the Discovery unit) using a flat blade screwdriver.
< ... /> To enter 48K mode:-
PRINT USR 0
To ... 23305: READ A :POKE J,A: NEXT J
30 PRINT USR 23296
A(). These commands are particularly useful ...Arrays in BASICHi so I'm making this crappy game and I wanna store the screen positions of some UDGs in in a 50x2 array cause I have 50 characters. So I made the ar…
... info, Battle Bunny. Lines like "PRINT #2 OR r>=low ... /> The line:
[code]
PRINT #2 OR r>=low ... r>=low Then
Print #1; AT r-21,0 ... ;
Else
Print #2; AT r,0;
20 LET a$(x,1)=CHR$(RND*32)
30 LET a$(x,2 ...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]Multiplication is quicker than division...Hi Folks, Thinking about some BASIC code where I wanted a line something like: [code]120 LET a=(v-10)/2[/code] Nice and simple but then I …
... Weesam.
It is a lot slower I am afraid ... LET A=145
110 LET B=12
120 PRINT A/B
130 PRINT A ...Graphics program in AssemblyHi so I think I'm getting the hang of this so I've done this program. It writes directly to the screen. I'm using ZX Spin. [code] LD HL,16384 LD B,…
Ok so I'm a bit confused so this is ... done :) Someone needs to write a Speccy assembler for Android so ... BC is 11
LD A,B is 120
OR ...
[code]
10 LET a=0: LET b=3
20 FOR ... POKE x,a
40 LET a=a+b
50 IF a>255 THEN LET a ...how to load machine codeI'm reading Jon Caldwell's how to write Spectrum games but can't enter the code! Here's an example:_ LD BC, (score) Call 6683 I tried putting…
... man, you invoked a massive load of nostalgia ... you'd be using a hex loader (unless ... A$="" THEN INPUT A$
2 POKE X,CODE "("*CODE A$+CODE A ... $(CODE "{gfx2}")-VAL"476"
3 LET ... CODE "{gfx1"}
4 LET A$=A$(INT PI TO )
how to load machine codeFollowing the links given in various replies to my last discussion resulted in my downloading Mastering machine code on your zxspectrum and typing in…
[quote="mik3d3nch;53651"]
80 let a$=a$ (3 to )
[/quote]
... the same as using LEN A$.
I've just ... 60 when it tries to poke a number larger than 255 into ...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…
... LET addr=22895
20 POKE addr,255:
LET a$=INKEY$:
IF a ... $="" THEN GO TO 20
30 LET oa ... /> LET addr=addr+32*((a$="a" AND addr22560))+(a$="p" AND addrle):
POKE oa ...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…
... a=l TO 1 STEP -1:
LET b=INT (RND*a)+1: POKE ... 22528+a(b),32:
LET a(b)=a(a):
NEXT a
flash in a stringhi, is it possible to store flash in a string? u can store colours, bright, etc.
The FLASH control is 18 ($12), so, for example:
LET a$="start "+CHR$ 18+CHR$ 1+"FLASHING"+CHR$ 18+CHR$ 0+" stop" : PRINT a$flash in a stringhi, is it possible to store flash in a string? u can store colours, bright, etc.
... /> LET x=x0+a: LET y=y0+b: LET i=INT(RND*8)
PRINT ... AT x,y; INK i;"{A ... }"
***********************************************
DIM a$(6): LET a$=CHR ...Through The Trap Door - Level 4 issuesHi, I got a problem lads regarding the sequel Trap Door game - Through The Trap Door and would like help. First of all, is it possible one of you cl…
... destroy the skeleton while invencibility poke still acts on Berk.
a multiface poke on both emulator (SpecEmu ... real hardware in a few days, I will let you know, should ... /> Do you have a poke to reverse the invincy poke?! Maybe when I ...Short program10 PRINT "You know what? I just cannot be bothered any more!" 20 GOTO 10
[code]
10 LET A$ = "Short Program"
20 LET A = LEN (A$)
30 FOR I = 1 TO A
40 PRINT A$ (I) ;
50 NEXT I
60 STOP
[/code]Short program10 PRINT "You know what? I just cannot be bothered any more!" 20 GOTO 10
... /> 10 LET A$ = "Short Program"
20 LET A = LEN (A$)
... 30 FOR I = 1 TO A
40 LET ... B = INT (RND * 6)
50 LET ... INK B : PAPER 9 : PRINT A$ (I) ;
70 ... /> Now we have a longer short program...but ...Short program10 PRINT "You know what? I just cannot be bothered any more!" 20 GOTO 10
... LET NOT=AT*INT-LET-LET: LET GO TO =LET*TO*INT PI
70 PRINT ... AT AT,NOT NOT;A$(TO ... /TO TO TO);: LET A$=A$(LET TO ... NOT)+CHR$ CODE A$
User defined function in Sinclair BASICI'm looking to create a user defined function in Sinclair BASIC to add up numbers being input. This is the program without a user defined function be…
... ( A$ ( I ) )
20 LET S = 0
30 INPUT A$
40 LET A ... = LEN ( A$ )
50 FOR I = 1 TO A ... LET S = FN T ( A$ )
70 NEXT I
80 PRINT S ...Short program10 PRINT "You know what? I just cannot be bothered any more!" 20 GOTO 10
10 LET a$=" Hello there, this is a pointless and very silly program that probably won't even work!"
20 PRINT AT 11,0;a$(TO 31)
30 LET a$=a$(2 TO)+a$(1)
40 GO TO 20Flicker 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…
... along these lines:
LET a$=CHR$ 22+CHR$ oldx+CHR ... +CHR$ newx+CHR$ newy+"X": PRINT a$
That way there ...New game - GenBlast!Nothing to get too excited about, I wanted to see what [url="http://www.worldofspectrum.org/infoseekid.cgi?id=0001970"]Games Designer[/url] could do …
... nice nice.
Hang on, let me read that again... the ... think Dave deserves both a medal and a poke from a pointy stick for ... being a smart arse for getting a ...
