-
Let a=val "1"I see some basic programs which use Let a=val "1" instead of let a=1 syntax. what is the difference between val "1" and 1? is it an effect of some …
... IF X=2 THEN LET X$=B$
....
8 IF X=8 THEN LET X$=H$
9 IF X ... =9 THEN LET X$=I ... -
Let a=val "1"I see some basic programs which use Let a=val "1" instead of let a=1 syntax. what is the difference between val "1" and 1? is it an effect of some …
... IF X=2 THEN LET X$=B$
....
8 IF X=8 THEN LET X$=H$
9 IF X ... =9 THEN LET X$=I ... -
Making a mapI should learn Z80 assembly, but I don't have the time (really busy) and I feel like making a game. I've tried with Colt which gives me enough speed…
... 7; INK 0;AT y-1,x;"*+";AT y,x;"./": RETURN
... (etcetera, 30 different ... : LET jmp=9000+t: GO SUB jmp: LET x=x+2: IF x=30 THEN LET x ... =2: LET y=y+2
9105 LET dir ... -
VariablesVariable Help: Can BASIC discriminate between odd and even variables? If so, what simple syntax can express it?
... />
10 DEF FN m(x,y) = x - INT (x/y) * y
20 PRINT FN m ... , 1.4)
Returns 0.8.
Example 2
Returns -0.8. -
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. …
... ...).
10 LET x=0: LET y=10
20 LET s$="This message ... s$
40 PRINT AT y,x;s$(f); FLASH 1;"|"; FLASH ... /> 60 LET x=x+1
70 IF x>31 THEN LET x=0: LET y=y+1 ...
80 NEXT f
x and y ... -
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$ 7 = Edit
Chr$ 8 = Cursor back
Chr$ 9 ...
Chr$ 22 = At 22,y,x
Chr$ 23 = Tab 23 ... ,x
Chr$ 24-Chr$ 31= ... -
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. …
... do something like this (where X is the coordinate of your ... />
[code]
10 LET X=X+(INKEY$="8")-(INKEY$="5")
[/code]
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. …
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. …
... do something like this (where X is the coordinate of your ... />
[code]
10 LET X=X+(INKEY$="8")-(INKEY$="5")
[/code]
[code]
10 LET X=X+(INKEY$="8" AND X0)
[/code]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. …
[quote]
On 2005-04-12 21:05, Colin Williams wrote:
[code]
10 LET X=X+(INKEY$="8")-(INKEY$="5")
[/code]
[/quote]
On general principles, I'd say that should be rewritten to avoid the race condition.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. …
... are in:
1 LET x=0
10 PRINT PEEK ... =1 TO 1000
40 LET x=x+(INKEY$="8")-(INKEY$="5")
50 ... -520 frames.
1 LET x=0
10 PRINT PEEK ...
30 LET a$=INKEY$
40 LET x=x+(A$="8")-(A$="5")
BASin release 12b available for downloadOk, there were a few nasty bugs in the last release, so in fine SPIN team tradition here's a new release that possibly fixes those errors. In this r…
Another bug (a very very very small and insignificant one):
The syntax helper for ATTR wrongly indicates (X,Y), but the function uses (Y,X), just like ATBASin release 12b available for downloadOk, there were a few nasty bugs in the last release, so in fine SPIN team tradition here's a new release that possibly fixes those errors. In this r…
... helper for ATTR wrongly indicates (X,Y), but the function uses (Y,X), just like ...BASin release 12b available for downloadOk, there were a few nasty bugs in the last release, so in fine SPIN team tradition here's a new release that possibly fixes those errors. In this r…
... helper for ATTR wrongly indicates (X,Y), but the function uses (Y,X), just like ... [/url]:
"ATTR: two arguments, x and y, both numbers; enclosed in ...BASin release 12b available for downloadOk, there were a few nasty bugs in the last release, so in fine SPIN team tradition here's a new release that possibly fixes those errors. In this r…
... helper for ATTR wrongly indicates (X,Y), but the function uses (Y,X), just like ... [/url]:
"ATTR: two arguments, x and y, both numbers; enclosed in ...BASin release 12b available for downloadOk, there were a few nasty bugs in the last release, so in fine SPIN team tradition here's a new release that possibly fixes those errors. In this r…
... for ATTR wrongly indicates (X,Y),
> but the function uses (Y,X), just ... properly in Chapter 16 as ATTR(line column). Well spotted. Ditto ...print at line 22 and 23I have a faint recollection of POKES to allow print at 22,x and 23,x, anyone know what they are? (rather than using the print #0 #1 stuff..)
My way to print at line 23:
[code]
10 POKE 23659,0 : IF YLesser used BASIC commandsAre there any interesting articles or books that explore some of the lesser used BASIC commands/functions e.g. DEF FN, IN, OUT etc? The Spectrum BAS…
... FOR y=0 TO 8 STEP 2
90 PRINT AT (8-y)/2,x ... /2;CHR$ (128+8 ... *POINT (x,y)+4*POINT (x+1,y)+2*POINT (x,y ... +1)+POINT (x+1,y+1 ...Help understanding some z80 asmI'm trying to work out how to represent the structure of a "sprite" in the SAM as "Grabbed" by SmallC. I can see the assembler implementation but I …
... MSB int x
+8 LSB int x
***********************
+7 MSB int y
+6 LSB int y ... /> ***********************
+1 MSB return address
+0 LSB return address
***********************
New Scumball 2 game!This game was posted in another thread some time ago now but after the ongoing Cybernoid discussion I thought I'd just overhaul the graphics a little…
... /> ; 3 objects
db 8, 5 ; y,x
db 5, 25
; exit position
db 8, 8 ;y,x
[/code]Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
In BASIC:
[CODE]
DEF FN a(y,x)=16384+x+(y-INT (y/32))*32+INT (y/8)*2048
[/CODE]Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
... ]
DEF FN a(y,x)=16384+x+(y-INT (y/32))*32+INT (y/8)*2048
[/CODE ... /> [CODE]
DEF FN a(y,x)=16384+x+(y-INT (y/8)*8)*32+INT (y/8)*2048
[/CODE]Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
... ]
DEF FN a(y,x)=16384+x+(y-INT (y/8)*8)*32+INT (y/8)*2048
[/CODE][/QUOTE ... /> [code]
DEF FN a(y,x)=16384+x+32*y+1792*INT(y/8)
[/code]Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
For a function that gives you each line too:
[code]
DEF FN a(y,x,l)=16128+x+32*y+1792*INT(y/8)+l*256
[/code]
Where l takes the values 1 to 8. Change the 16128 to 16384 if you want to use 0-7 for the line numbers.Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
... ]
DEF FN a(y,x)=16384+x+(y-INT (y/8)*8)*32+INT (y/8)*2048
[/code][/quote ...Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
... can
a) handle your (y,x) to screen address and
y,x) on the screen
; to ... h,b
; Copy 8 bytes from screen to destination ...
ld b,8;b=copyLength
lp2 ld ...Getting scr addresses from x and yCould someone please tell me how to calculate the 8 screen addresses corresponding to a character printed in basic at coordinates x and y? For examp…
... LET x=0: LET y=0: LET z=127: LET a=0: LET b=0: BORDER 1: LET ... +((y+b)*32), (z-PEEK (22528+x+a+((y+b)*32)))
3150 RETURN ...
4140 IF INKEY$="q" THEN LET y=y-1: IF ... ,9;" ALTER SIZE ": LET m=1
4180 RETURN
4240 ...
