-
hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... " statement the 'h' variable is 12 bits not 8, but changing ... /> 90 LET h$(rsl+1)=CHR$(k+32)
95 NEXT ... ,32,0,0,0,60,12,0,42
,0,0 ... FN b(zh,63,1,12,1000,0): LET zh=v ... FN b(zh,63,1,12,1000,0): LET zh=v ... -
INPUT help?Hi folks. :) Brace yourselves, this is probably a very silly question, my BASIC knowledge is very... well, basic... Let's say, for example, I'm mak…
... INKEY$="")
21 PRINT AT 12,14;a: STOP
[/code ... -
reversing an LFSRWhat's the correct way of reversing an LFSR so that it produces the same numbers but in reverse order? The little BASIC program below shows a test I …
... /> >> 0=9^10^12^13 >> (for a ... . a$ = chr$(48 + xor(a$(9),a$(10),a$(12),a$(13 ... ))) + a$( to 12)
Then ... -
reversing an LFSRWhat's the correct way of reversing an LFSR so that it produces the same numbers but in reverse order? The little BASIC program below shows a test I …
... 32
40 LET a$=CHR$ (48+x(1+VAL a ... $(13)+VAL a$(12)+VAL a$(10)+VAL a ... $(9)))+a$( TO 12)
45 LET v=0 ... -
From RAM to dim v$() "video buffer" SPEED UP!Hi! This question is related to "quick RAM copy using LET in Basic" ([url]http://www.worldofspectrum.org/forums/showthread.php?t=44296[/url]). Wel…
... +256*PEEK (a+1)
12 RESTORE 11: DIM v$(20 ... display file. Where are the CHR$ being converted to bit patterns ... -
quick RAM copy using LET in BASICI'm in the process of reviewing, revising and refining all the programming tips & utility routines which I've posted on this forum over the last eigh…
... a=fnq+3 TO fnq+12 STEP 9:IF FN p ... THEN LET loc=VAL VAL$ (CHR$ PEEK (a-3)+"$"):POKE a ... -
Routine for handling large scores?[FONT=Calibri][SIZE=3]I want to store various numbers for scores and levels etc. Some of these can be very large so will need to be held in multiple …
... the digit.
[code]
12 INPUT "operation [+-]: ";o$'
"number ... -
Popular Computing WeeklyHope someone can help me, I've been typing in a whole heap of early Type-ins for the Amstrad CPC 464 and have typed in a program, though it's not wor…
... "
1490 PRINT#3,"< "CHR$(240)" > - Increase"
1500 ... PRINT#3,"< "CHR$(241)" > - Decrease"
1510 ... /> 2040 '
2050 WHILE INKEY(12)=0
2060 IF INKEY ... -
Dock's ZX Maze gameI'm hoping to finish a simple maze game in ZX Spectrum BASIC this week, as part of the Ludumdare Retro challenge. I used to dabble in speccy basic on…
... AT 20,16; BRIGHT 1;CHR$ (CODE i$-11):
LET ... $(r,k): LET z$=CHR$ 22+CHR$ r+CHR$ k:
LET sgo ... /> GO SUB CODE y$*2-12
84 GO TO sgo ... -
Dock's ZX Maze gameI'm hoping to finish a simple maze game in ZX Spectrum BASIC this week, as part of the Ludumdare Retro challenge. I used to dabble in speccy basic on…
... AT 20,16; BRIGHT 1;CHR$ (CODE i$-11):
LET ... $(r,k): LET z$=CHR$ 22+CHR$ r+CHR$ k:
LET sgo ... /> GO SUB CODE y$*2-12
84 GO TO sgo ... -
Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... +CHR$ 22+CHR$ w+CHR$ v+CHR$ 19+CHR$ bf+CHR$ 17+CHR$ sp+CHR$ 16+CHR$ si ... followed by m$+CHR$ 22+CHR$ w+CHR$ v in WORKSP, ... overhead required by TEST_ROOM) = 224*12 + 65 + 80 = 2833 bytes ... $=CHR$ 22+CHR$ w+CHR$ v+CHR$ 19+CHR$ bf+CHR$ 17+CHR$ sp+
Battle Bunny
July 2014
Sinclair Basic
-
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
Another 9 month hiatus. Made a few false starts because I didn't read this thread properly first! Have changed round the code for a wall to 0 and a door to 1 in the maze map to make it more straightforward to plot as INVERSE 0 or 1 when I draw the map, 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…
... -byte element of p$() hold CHR$ 16 (INK print control) + colour ... : PAPER 0: INK 4
12 CLS : DIM g$(20,32 ... :
LET g$(i,1)=CHR$ 0: LET bc=((i-1 ... :
LET g$(i,32)=CHR$ 0: NEXT i: LET bc ... : IF INKEY$=" " THEN GO TO 12
17 GO TO 13 ... -
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…
... : INK 4: OVER 0
12 INPUT "Density [0-9] ";den ... : IF INKEY$=" " THEN GO TO 12
17 GO TO 14 ... -
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 …
Here's a composite of three routines from pages 16,32,35 of Andy Pennell's Microdrive book which combine to provide an extended Microdrive CAT.
[code]1000 CLEAR 64999: GO SUB 8000: GO SUB 8350
2000 GO SUB 8040: INPUT "Drive: ";d: GO SUB 5000: ... -
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…
Hi Folks,
On a similar vein I wrote the following general purpose input routine a couple of years back:
[CODE]100 REM ----------------------
110 REM XINPUT DEMO
120 REM \* 2011 PeaSea Software
130 REM 3.1 18- ... -
Raycasting (3D Games!) with SpecBAS<div><font face="Arial, Verdana"><span style="font-size: 13.3333330154419px; line-height: normal;">Here's one I wrote just recently. I wanted to see …
Part 2!
Fully texture mapped (on the walls, at least - floors and ceilings are a lot more processor-intensive!). Should be able to create a decent clone of Wolfenstein with this code as the foundation...
Always wanted to make a 3D game in AMOS ... -
Raycasting (3D Games!) with SpecBAS<div><font face="Arial, Verdana"><span style="font-size: 13.3333330154419px; line-height: normal;">Here's one I wrote just recently. I wanted to see …
And finally Part 3!
Here's the full engine with floor and ceiling rendering:
http://s22.postimg.org/xup7xc9m9/maze4.png
It's ... slow. Where SpecBAS could help enormously with vertical texture strips for the walls, floors can't be done ... -
Removal of "reset on break" protection (old basic program)Hi, Long time lurker, here! This is hopefully quite simple but there's an old basic game in the I'd like to bring up to date / take a look at …
... after I'd used the CHR$ USR caper helpfully provided above ... U=1: PRINT AT 13,12; FLASH 1;"YOU'VE WON ... using INKEY$ in place of CHR$ PEEK KEY and the AT ... -
how do i convert a binary string into hex in basic?how do i convert a binary string into hex in basic?
... (RND*256): PRINT dec;TAB 12;"=";:
REM generate a random ... "): NEXT b:
LET h$=CHR$(nib+48+(7 AND nib ... -
What am I doing wrong here?[code]IF INKEY$=SCREEN$ (21,4) THEN LET SCORE=SCORE+1[/code] It's delivering a positive every time.
... /> ScrDone:;At this point the CHR$ parameters are the top entry ... the calculator stack; also A=CHR$, DE=pointer, BC=length (0 ... 2
11 LET a$=CHR$ (97+INT (RND*26)): PRINT ... $;AT 21,4;a$
12 PAUSE 50
110 IF ... -
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…
... l=1 TO 485
12 FOR w=1 TO 7 ... TO 9: LET w$(c)=CHR$ PEEK (a+c): NEXT c ... OR b$(CODE w$(u))CHR$ 3) THEN
GO TO ... LET b$(CODE w$(u))=CHR$ u:
NEXT u
New game: QuizTron 48000 seriesOkay, this time I made a series of games. I got inspired to make a trivia game engine, and found a set of questions.. that was too large to fit into …
... .
I only played the '12 questions for one person" and ... /> Did you consider a 42 chr per line font? you can ...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$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…
Here's the listing:
[code]
1 POKE 23674,0: POKE 23673,0: POKE 23672,0: POKE 65281,0: FOR q=0 TO l-1: RESTORE 130+t(q+1): READ w: FOR e=1 TO w: READ r,c: LET n=q*320+r
2 LET f1=PEEK 23672: LET f2=PEEK 23673: LET f3=PEEK ...
