-
Compliator ErrorRecenlty i downloaded a basic compliator : [URL="http://www.boriel.com/wiki/en/index.php/ZXBasic"]ZXBasic (http://www.boriel.com/wiki/en/index.php/ZX…
Recenlty i downloaded a basic compliator : [URL="http://www. ... :3: Syntax Error. Unexpected token 'a'
s.bas:4: Syntax ... ]9 let a = 0: let b = 0
10 LET x=1: LET y=1 ...
11 INPUT a
12 ... /> 20 FOR x=1 TO a : FOR y=1 TO b ... -
Using FOR/NEXT like 'while'I don't know if this has already been discussed (I did search, but the search engine didn't like the word 'while'), but here's a way of using a FOR/N…
... loop example
2 LET a$="Hello, here is an example ... of using a FOR/NEXT loop like a C-style ' ... ;: PRINT a$(1 TO 32);: LET a$=a$(2 TO )+a$(1): LET i=INKEY ... d loop is used as a slight delay: the scrolly ... the condition has been met (LET i=INKEY$="e" or ... -
handy method for passing m/c parametersI knew that a single number or string parameter could be passed to a m/c routine with either: [b]LET a=b+USR address[/b] puts b on the calculator st…
... with either:
[b]LET a=b+USR address[/b]
[b]LET a$="abc"+STR$ USR address[/b ... seen before:
[b]LET a=b=c+USR address[/b ... parameters, as:
[b]LET a=b=c=d+USR address ... ] does work:
[b]LET a=b=(c=(d+USR address ... -
Full 16*16-digit BASIC multiplicationI liked Andre Adrian's 32-bit long multiplication routine so much that I decided to a decimal version. After all, 2^63 is only 9223372036854775808, a…
... $(E)
1010 LET I=0: : REM AND A ; RESET CARRY FLAG ... B'C'AC
1070 LET A=17 : REM LD B,33 ... RR C
1370 LET A=A-1: IF A THEN GO TO 1100 ... 'HLB'C'AC
1391 LET a$=FN b$(G)+FN b ... -
SpecBAS 0.780 releasedHi all - Back again with a new SpecBAS release! It's all been about arrays this time around, and to add to those lovely associative arrays from las…
... -
Back again with a new SpecBAS release!
LET a(100,100)=10 would be ...
Dynamic array allocation - DIM a() - note the empty brackets, then ... /> An issue with ENDIF triggering a segfault when used in certain ... -
Looking for some bog standard soundspreferably using PLAY command.... example 10 LET a$="the sound code" 20 PLAY a$ ideally I'm looking for noises for 1) A space ship engine, pref…
... />
example
10 LET a$="the sound code"
20 ... PLAY a$
ideally I'm ... noises for
1) A space ship engine, preferably quiet ... the recorder when I was a kid I would post this ... -
SpecBAS 0.789 releasedHi all! Back with another SpecBAS release - this one's mostly just about sprites and bug fixes. One new addition I do quite like is the expression c…
... numvar - loads a file into a bank and assigns a BankID to ... br /> More optimisations to expressions: LET a=(b/2)/8 for example ... devolves into the much quicker LET a=b*0.0625. Also ... array rather than a list of options. LET a=MENUBOX("Title",a$())
SpecBAS 0.800 Released!Hi folks, it's that time again for another release. I was going to add a few more features, but I have other projects on the go at the moment, and it…
... to a graphic-string for use in, i.e., fills
LET ... can now assign a value to multiple variables - LET a,b,c ... =0 or LET a$,b ... one element such as LET a$(1)="H" for a string variable now ...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 …
... DIM a$(5): LET a$="00101"
5 PRINT "seed=";a$: FOR a=1 TO ... LET xor=xor+VAL a$(2): LET xor=xor AND xor2
40 LET a ... $=CHR$ (xor+48)+a ... $( TO 4)
50 IF adumping protected BASIC loadersI wrote this a few weeks ago but forgot to post it. It will load & list from tape/TAP/TZX any BASIC program which has been saved with SAVE, including…
... mc
10 LET a=bytes: LET iv=0: LET bt=0
... *PEEK a+PEEK (a+1);":";FN p(a+2); PAPER 7;" ";:
LET a=a+4 ...
21 LET ... c=PEEK a: IF c> ...BASin won't accept this code?Taken from the Oneliner contest 2007: [CODE]1 LET n=191: DIM i$(4,9): FOR g=2 TO 4: LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET …
... 2007:
[CODE]1 LET n=191: DIM i$( ... LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET ... s=0: FOR y=0 TO 13: LET ... NEXT i: LET z=(b>y)*(bx)*(a" ": PRINT ... 4): LET i$(k,l)=" ": LET s=s+h: LET p= ... < n)*(p0)): LET a=a*(bBEEP & PLAY jingles in BASIC sourceI've been digging through the +3 manual and checking out the [URL="http://www.worldofspectrum.org/ZXSpectrum128+3Manual/chapter8pt19.html"]great musi…
... :
[CODE] 10 LET a$="Y1T100O2(((1CCg$b))(($E$E ... E))((GGDF))))"
20 LET b$="Y2O5N&&& ... ;C$bfG)"
30 LET c$=
"Y3O4((3C ... LET t$="T120"
10 LET a$=t$+"O4cCcCgGgG"
20 LET ... b$="O6CaCe$bd$bD"
30 PLAY a$,b ...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…
... : LET o=1: LET x=11: LET s=5: LET h=20: LET w=32: LET a ... =h-o: LET ... b=w-o: LET c ... =n: LET d ... =2: LET e ...Soundex routineIn an idle 5 minutes I wrote a short routine to calculate Soundex codes using the algorithm described here: [url]http://en.wikipedia.org/wiki/Sounde…
... /> 11 REM ....abcdefghijklmnopqrstuvwxyz
12 LET a$="01230129022455012623019202[": DIM x$(3,2 ... /> 30 FOR a=1 TO LEN n$: LET c$=n$(a)
32 ... IF c$>="A" AND c$="a" AND ...RANDOMIZE - still not sure what it does...Whenever I wish a random number I use RND like: 10 LET a=RND*100 20 PRINT a 30 GO TO 0 and "a" will truly be random. But if is do the following: …
... like:
10 LET a=RND*100
20 PRINT ... 0
and "a" will truly be random. But ...
5 RANDOMIZE
10 LET a=RND*100
20 PRINT ... 0
"a" is not really random any ... 5 RANDOMIZE number
10 LET a=RND*100
20 PRINT ...TV alert: Manic Miner, Jet Set Willy and Clive Sinclair in BBC's ClickThe 24th January 2015 edition of the BBC?s Click programme includes a three-minute featurette with footage from [i]Manic Miner[/i] and [i]Jet Set Wil…
... BBC?s Click programme includes a three-minute featurette with footage ... , which comes preloaded with a thousand of the original Spectrum ... says that he wouldn?t let a robot do surgery on him ... completely replace human drivers within a few decades.
...SpecBAS Screen wipeAn old effect, but a good one - you'll need this file: [url]https://sites.google.com/site/pauldunn/moon.png[/url] to run this program. [code] 10 REM…
An old effect, but a good one - you'll need ... 0 STEP -1
50 LET a$=PEEK$(img,SCRw*y,SCRw ... ): LET b=SCRw*y: DO WHILE ...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 …
... see if SpecBAS can handle a raycasting engine - which ... try that later!) but a rather nice algorithm that ... ) read an array from a position that you occupy. ... angles.
Raycasting is a little different. It's related ... LOCK: GO SUB 39030 LET mw=91,mh=51: DIM ...SpecBAS 0.844 releasedHi all - it's been a while... Having some unexpected extra time off work, I've been able to get some work done on SpecBAS and it's now a bit more …
... DIM a$(),b(2,4),c$(10) etc
LET and ... in one line - LET a,b,c=3,d= ... parameter treats substr$ as a regular expression
REPLACE ... br />
Assigning a string to a sliced string array member ...
Assigning a value to a string array member ...Chompston Mazes in SpecBASAfter the discussion in ASH-II's Pacman thread, I checked out the link there about generating 2D Pacman style mazes. This one was quite good fun, …
... LOOP
ELSE
LET m(x,y)=1,n ... TO n:
LET a=1+RND*LEN e$,d ... a-1)+e$(a+1 TO),l$=l$+CHR$ FN d:
LET ... a usable form.
[code]
50 LET ... d(n),l(n),a(n):
LET al=n:
Testing Joystick InterfacesWhile looking for something completely unrelated, found one of my old test programs. This is useful for testing interfaces that conform to the Sincla…
... 76543210"
10 LET a=IN 61438
11 LET b=IN 63486 ... GO TO 9999
14 LET num=a
15 GO SUB ... 1000
16 LET c$=b$
1020 LET b$="00000000"
1030 IF ...Help With AY Music Program in BASICHi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker…
... hopefully).
290 LET cy=1: LET cx=5: REM ... a string as well as a number variable in 2030
320 LET ... recording with 'let m$=m$+a$'.
335 LET o=3: ... REM octave
337 LET ... i$="None": REM The load screen crashes if a ...Interview Request to people from several countries to El Mundo del Spectrum PodcastHi!, My Name is Juan Francisco and I'm part of the staff of El mundo del Spectrum, a spanish website. We've have a podcast, this is our fouth season…
... El mundo del Spectrum, a spanish website. We've ... season we have started a new section called Spectrum arround ... language couldn´t be a problem. We can try ... in our podcast! Please, let a message on forum or send ... a mail to sorceneger@hotmail ...Could someone please help me identify this game music?It's been going round my head for weeks... I'm pretty certain it was from a game I played loads... but I can't for the life of me remember the game a…
... LET e$="T160N5e3e3_7d5dO4N3g5E3g5D"
60 LET f$="T160O5N7fd5f3d5f3dag"
70 LET g$="O3N5#a#a#a#a#a#a#a ... #aFFFFFFFF"
80 LET h$="T160N7fc5f3c5f3cag"
8000 LET x$=a$+a ...Function works in SpecBAS but not BASinSo, is there any reason why this user defined function works in SpecBAS but not BASin? [code] 10 DEF FN m$(a$,n1,n2)=a$(n1 TO n2) 20 LET a$="The…
So, is there any reason why this user defined function works in SpecBAS but not BASin?
[code]
10 DEF FN m$(a$,n1,n2)=a$(n1 TO n2)
20 LET a$="TheManInTheMoon"
50 PRINT FN m$(a$,12,15)
60 STOP
[/code]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 …
... ,
I've announced a new micro contest on my ... /> The contest is about making a short game program in the ... , which is the limitation of a tweet on the Twitter social ... /> The rules are:
Let's write a game program which meets ...
