-
TIL: something about floating point numbersHere's something that had me scratching my head for a while until I figured out what was going on. In a BASIC program, floating point numbers are …
... me scratching my head for a while until I figured out ... going on.
In a BASIC program, floating point numbers ... program:
[code]10 LET a=-5.7[/code]
a" is stored there as 83B6666666 ... -
An odd floating point error. Avoid!While working on the revival of my old game ([url="http://www.worldofspectrum.org/forums/discussion/53207/new-game-2016-revival-a-yankee-in-iraq-1992…
... /53207/new-game-2016-revival-a-yankee-in-iraq-1992"]here ... /> [code]10 LET a=2
20 LET a=a–.5: PRINT a: GOTO 20[/code ... if your code checks if a=0, that condition will never ... me for quite a while, until I added a line to actually ... -
Screen address of PRINT position...Hi Folks, The following code uses DF CC system variable to extrac the screen address for a PRINT position. [code]100 CLS 110 PRINT AT 10,16;…
... extrac the screen address for a PRINT position.
130 LET A=PEEK 23684+256*PEEK 23685 ...
150 POKE A,255[/code]
I ... the sysvar or is it a bug in BasinC?
Interesting VAL featureHi Folks, No doubt most people know this but it is new to me! The following code generates the answer of 10. [code]10 LET A$="X+X" 20 LET X…
... />
[code]10 LET A$="X+X"
20 LET X=5
30 PRINT VAL A$[/code]
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…
... be gentle, I've had a spectrum since the 80's ... memory.
5 LET a=0: LET b=3
10 FOR ...
25 IF a>255 THEN LET a=0
30 NEXT ... can I draw this into a different part of memory first ...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…
... of some UDGs in in a 50x2 array cause I have ... this
[code]10 DIM a(50,2)
20 FOR ... /> 30 LET a(n,1)=INT(RND*30)
40 LET a(n,2 ...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 …
... :
[code]120 LET a=(v-10)/2[/code]
[code]120 LET a=(v-10)*.5[/code]
[code]100 LET v=62
110 FOR ... =1 TO 100
120 LET a=(v-10)*.5
130 ...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…
... it reads
80 let a$=a$ (3 to )
To ... checked that fuse was emulating a 48k Spectrum in case the ...SpecBAS 0.900 ReleasedAgainst my better judgement, here's 0.900. It's got lots and lots new, but mostly the new shiny is the editor. You can indent your code, you can e…
... used in expressions - LET b=a+=1 will add 1 ... /> Due to popular demand, LET is now optional - though you ... /dec/mul/div to LET - LET a+=10 to add 10 ... which fail due to implicit LET.
Fixed errors in ... manipulation like LET a$(2 TO 10)(5) or LET a$(2)(1 ...Why don't the variables print where I told them too?I wrote the following program to experiment with creating sounds using 3 notes of BEEP and having the ability to change the notes up or down one at a…
... /> 20 LET a=10
30 LET b=12
40 LET c=14 ... INKEY$="a" THEN LET a=a+1
95 IF INKEY$="z" THEN LET a=a-1 ...
100 IF INKEY$="b" THEN LET b=b ... $="x" THEN LET c=c-1
116 PRINT "a is",a, AT ...Flood Fill IssueHi Folks, Came across the following Flood Fill routine by John Metcalf: [code]; scanline fill by John Metcalf ; call with d=x-coord, e=y-coo…
... br /> nextrun:
ld a,d 60007 7A
and ... CLEAR 60000
110 LET A=60000
120 RESTORE ... ";H$;" ";
170 LET H= CODE H$(1)
180 LET D=16*(H-(48 AND ... H64))
190 LET H= CODE H$(2 ... )
200 LET D=D+H-(48 ...Using BASIC from Machine CodeHi Folks, Came across a very interesting article by Toni Baker in Your Spectrum: http://www.users.globalnet.co.uk/~jg27paw4/yr11/yr11_66.htm …
... Folks,
Came across a very interesting article by Toni ...
CALL 5808
LD A,(23610)
CP 255
110 PAUSE 0
120 LET A=USR 62000[/code]
Illogical operatorsI know it has always been this way but... 10 LET A = 10 20 LET B = 20 30 IF A = 10 OR B = 20 THEN PRINT " YES " That evals to true and prints…
... /> 10 LET A = 10
20 LET B = 20
30 IF A = 10 ... stops once it sees that A = 10 so its not really ... this)
30 IF A = 10 AND B = 20 THE ...Random-Access to Microdrive FileI am working on a BASIC program to backup a microdrive text-file to standard tape array-file. To backup a text-file from one microdrive to a secon…
... REM RandAccess
20 LET udg=USR "a"
99 CLEAR #
LET s$=a$:
POKE DEFADD,0 ... 1,FN h(udg):
LET s$=a$:
POKE DEFADD,0 ... +1,FN h(udg):
LET a$=s$:
POKE DEFADD,0 ...Short unattended type-in'sThis follows a similar topic on the BBC/Acorn forum (said topic can be found [url="https://stardot.org.uk/forums/viewtopic.php?f=2&t=14919"]here[/url…
... with our Speccy's in a similar vein really.
... type in if required. A bit of assembly I guess ...
Listing in a codebox rather than a tape file for convenient ... STEP .25
30 LET a=(RND*768)+22528
40 ... POKE a,n : NEXT n
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…
... encountered a situation, when one needed a set of ... filling [/i]up a DIM or a string via
... LET z=A(i)
LET r=INT(RND)*255
LET A(i)=A ... (r)
LET A ... So, is there such a trick, and how feasible ...Help with CHR$ codes 0 to 5Hi, I'm looking a piece of code in a listing similar to: Let a$ = CHR$ 0 Let b$ = CHR$ 1 Let c$ = CHR$ 2 Let d$ = CHR$ 3 Let e$ = CHR$ 4 Let f…
... of code in a listing similar to:
Let a$ = CHR$ 0
Let b$ = CHR$ 1
Let c$ = CHR$ 2
Let d$ = CHR$ 3 ...
Let e$ = CHR$ 4 ...Textured Scanline Flood Fill for ZX Spectrum 48KPity that it's quite hard to contribute code to WoS in a straightforward manner. Recently, I have created a textured/hatched fill M/C routine for the…
... WAIT..."
9010 LET a=63488
9020 READ a$: PRINT "{AT 20 ... 1 TO LEN a$ STEP 2
9050 LET s$=a$(n): GO ... SUB 9100: LET v=16*s: LET s$=a$( ... n+1): GO SUB 9100: LET v=v ... +s
9060 POKE a,v: LET a=a+1
9070 NEXT ...De zeven sleutels van TARKUSI've decided to type in the game "De zeven sleutels van TARKUS" from a book I have for many years now. And, it seems the game as it was printed in…
... /> 60 LET n=0: LET z=0: LET a=0: LET o=0: LET w=0 ... /> 110 IF a(l,1)=1 THEN LET n=1: GO ... /> 121 IF a(l,3)=1 THEN LET w=1: GO ... /> 130 IF a(l,4)=1 THEN LET o=1: GO ... /> 140 IF a(l,2)=1 THEN LET z=1: GO ... IF dc=1 THEN LET a$=INKEY$: IF a$="" THEN GO TO 200 ...How do i learn to programAll the years i had a computer the only one i could program was the Texas Instruments Ti99/4a and when using extended basic with its so simple sprite…
... a sample:
BASIC:
LET A = 2
LET B = 2
LET ... C = A + B< ... lose the original number in A
; but we ... LD (HL), A ; stores the contents of A in the location ...How do i learn to programAll the years i had a computer the only one i could program was the Texas Instruments Ti99/4a and when using extended basic with its so simple sprite…
... a sample:
BASIC:
LET A = 2
LET B = 2
LET ... C = A + B< ... lose the original number in A
; but we ... LD (HL), A ; stores the contents of A in the location ...just got a sinclair radio!tiny little things they are,pretty cool tho
... mean bad news for WoS. A lot of companies / copyright owners ... be even more reluctant to let a site like WoS distribute their ...Machine Code ChallengeHere's a challenge for all you Z80 programmers. Points to be awarded for elegance and brevity. (I haven't got the solution either) HL addresses the …
Well guys.
A long journey home tonight but ... to let a weekend pass before judging but with a "RET" and a "LD ... speed so Mikie can trim a bit. The position of the ...BASIC-code challengeFor the BASIC-coders among us. There is a number that has following aspects. divided by 16 remains 15 divided by 15 remains 14 divided by 14 remain…
okay, i admit i still dont know really what this should entail but does this make any sense?
10 for n=16 to 1 step-1
20 let a=(n*45044)+n-1
30 print a
40 next nBASIC-code challengeFor the BASIC-coders among us. There is a number that has following aspects. divided by 16 remains 15 divided by 15 remains 14 divided by 14 remain…
... * 7 * 11 * 13 numbers. Let's
call 2 * 3 ... number, must have a remainder of the number ...
1 LET n = 1
2 LET base = 2 * ... * 11 * 13
3 LET k = 0
5 FOR ... 6 LET a = (n+1)/j
7 IF a INT a THEN ... 1000
110 LET k = k + 1: let n = (base ...
