-
z80 Helper?When you are programming with z80 do you get 'lost' you are in the middle of making a routine and you can't remember which registers are holding val…
... (hl,a)
WriteRegister(a,#255)
if(a=0)
Print(myname)
Print a subroutine instead of just inline ... let the user say which register pair is used in the print ... -
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…
... these lines:
LET a$=CHR$ 22+CHR$ oldx+CHR ... /> The loop was:
LET A$="UDG OF BACKGROUND UPPER ROW ... erases the sprite
LET A$(X)="UDG HEAD SPRITE"
LET B$(X)="UDG FEET SPRITE"
PRINT A$
PRINT B$
How do I use colour control codes in 128 basic?Just started using a toast rack in 128 basic and I am struggling to understand how to easily create coloured characters and graphics in a print state…
In a PRINT statement, PRINT PAPER 1; INK 6;"Woohoo ... using Extend mode to embed print controls in the listing ... (eg.) a lot then putting the print controls + text into a string literal ... :
10 LET a$=CHR$ ...
instead of:
10 PRINT CHR$ ... )< ...How to separate a character from a number in a string?Hi I've been writing a kind of logo type program in BASIC that takes a string a$ from INPUT and then draws according to what you give it. Say you w…
[code]
10 LET a$=a$+"%": LET c=2: LET n$=""
20 LET c$=a$(1)
30 IF CODE a$(c) >= 48 AND CODE a$(c)How to separate a character from a number in a string?Hi I've been writing a kind of logo type program in BASIC that takes a string a$ from INPUT and then draws according to what you give it. Say you w…
... /> 1000 INPUT a$: PRINT INVERSE 1;a$:
IF a$=CHR$ 226 THEN ... 1010 FOR a=1 TO LEN a$
1024 LET c$=a$(a): LET act=(c ... $>="a" AND ... c$="0" AND b$"" THEN PRINT ...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…
... is the keyword - that's PRINT, LET etc. It's the arguments ... that need a bit of explaining. For PRINT, the arguments are ... case would be A=1, or IF A=1 THEN PRINT "Hurrah"
LET a=a+(INKEY$="a")-(INKEY$="z") example shows.
im looking for a horizontal scroll routinehi, im looking for a horizontal scroll routine. i read somewhere that you can do it with at 'to' statement, somewhere in a print routine. althoug…
... )a$(b+19) THEN
LET a$(b+1)=a$(b+19): LET a$(b+5)=a ... $(b+23): LET a$(b+11)=a ... : LET a$(564)=CHR$ (r-1): LET a$(570)=CHR$ (r+1):
PRINT a$
Jackpot poke needed - Fruit Machine Simulator 2Hi speccy guys, need a little help here dudes. I've been asked so many times now to the point I need to ask you, I've been asked to show a clip of t…
... way, so please, let me know...
POKE 56634,24 > ... .
Anyway bud, the first poke works perfectly getting me to ... JACKPOT RACE but the second poke seems to highlight the £100 ... pressed making it less obvious a poke is being involved?!,...or is ...How much can you get into 48k?Todays experiment was to see how long, how much text, a PRINT statement will hold. I filled it up with * and counted them and got 689 chrs. Almost 22…
... I can get a 48k Spectrum to ... LET a=0
20 LET s$=""
30 LET s$=s$+"*"
40 LET a=a ... +1
50 PRINT ... AT 1,1; a ... OOM error with a at 13789. I ...Sounds & tunes bankIs there any web out there, or even a thread here at WoS, that includes useful BASIC routines that generate certain sounds or music to be included in…
... /> 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 2 ...The point of IX+1 IX+2 ?the numbers that you can add-on to IX and IY seem hardcoded, so I dont see the use of that feature? any examples of the use of IX and IY plus number…
... DIM A$(3,8)
21 LET a$(1)="PopHello"
22 LET a$(2 ... )="TvsWorld"
23 LET a$(3 ... INPUT "Enter a number (1-3)";a
40 PRINT a$(a,4 TO 8 ...How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... 't like GO SUB 6000+a ...
Instead of put ... all number graphics into A$="........."
then LET a=(CODE b$(n ... )-48)*12
and in the print ... routine use A$(a+1 TO a+3), etc..
How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... 't like GO SUB 6000+a ...
... graphics into A$="........."
then LET a=(CODE b$( ... n)-48)*12
and in the print ... routine use A$(a+1 TO a+3), etc ... nice and easy for a beginner to understand. ...How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... "
20 LET a$=CHR$ c: FOR a=1 TO 5: LET a$=a$+CHR$ c ... : NEXT a
24 ...
25 LET f=22592+x
30 POKE 23681, INT (f ... /256)
40 POKE 23680, f-256*INT (f ...How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... "
20 LET a$=CHR$ c: FOR a=1 TO 5: LET a$=a$+CHR$ c ... : NEXT a
24 ...
25 LET f=22592+x
30 POKE 23681, INT (f ... /256)
40 POKE 23680, f-256*INT (f ...How to improve my program using oversized numbersI'd like my dice program to print out the number four times bigger than normal if possible. Anyone know how to do this? Or I could write a sub rou…
... loop starts:
Compare "11 PRINT AT 2,12;"Testing!" with ... "11 PRINT AT 2,12;"Testing!": OVER ... /> or try replacing a$ with a plain text string:"20 LET a$="Testing!"
a roadway or a tunnel, from the ...Thinking about my gameAnother long post, I'm afraid. Somewhere on this Forum is a short chunk of text I put up as a sample of what I'd like to turn into a text adventu…
... some machine code engines to let you display in 42 characters ... BASIC. It's just a lot of PRINT and INPUT or INKEY ... GO TO 100+100*a
200 PRINT "You opened the door ... you!"
210 PRINT "He shoots!"
220 PRINT "--- Game Over ---"
are there any machine code to basic converters?i know it sounds stupid but for amature programmers like me it would be great. i could speed up the basic on an emulator and it would give me more of…
... A
Would become
10 LET A=255: LET HL=16384: POKE ... HL, A
You could argue that a converter could recognise certain sections ...
10 POKE 16384,255
...Thought this would be simple... Z80Hi Folks, Started to read "Beyond simple BASIC, Delving Deeper into your ZX Spectrum" by Dilwyn Jones. This is a great book and I came across the…
...
ld b,a
xor a ; Set A to zero
... FOR I=5 TO 15: PRINT AT I,5;"XXXXXXXXXXXXXXXXXXXX": ... /> 130 LET X=5: LET Y=5: LET W=20: LET H=10 ... CY,CW,CH
170 LET A=USR 63000
180 ...Thought this would be simple... Z80Hi Folks, Started to read "Beyond simple BASIC, Delving Deeper into your ZX Spectrum" by Dilwyn Jones. This is a great book and I came across the…
...
ld b,a
xor a ; Set A to zero
... FOR I=5 TO 15: PRINT AT I,7;"XXXXXXXXXXXXXXXXXXXX": ... /> 130 LET X=7: LET Y=5: LET W=20: LET H=10 ... CY,CW,CH
170 LET A=USR 63000
180 ...Thought this would be simple... Z80Hi Folks, Started to read "Beyond simple BASIC, Delving Deeper into your ZX Spectrum" by Dilwyn Jones. This is a great book and I came across the…
... 120 POKE 63001,16
130 LET A=USR ... a,$40
ld h,a
ld a, ... ; ------------------------------------------------------------------------------
; Waits until a key is pressed
; ...Best and worst loading coloursWas just thinking the other day about this, what are the worst / best loading colours that have been seen ? :) Apart from loaders with either mult…
... custom border colour c.
let c=7
for j ... 16384+34
read a
poke j,a
next j
poke 16384+28,c
randomize ...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 ... OR B = 20 THEN PRINT ... stops once it sees that A = 10 so its not ... should be false and not print anything as its "OR" , as ... IF A = 10 AND B = 20 THE[b]N[/b] PRINT " YES ...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…
... />
Does
LET A = 10
LET B = 10
IF A = 10 OR B = [b ... ]20[/b] THEN PRINT "TRUE"
Cubic RevealI just though I'd develop this a little further. Written a while ago on a whim! [img]https://dl.dropbox.com/s/p44y5dda49ucmop/square_reveal_1_1.gi…
... 0 ;INPUT a: POKE 40000,a
ld a,(nr_of_soldiers)
or a ;reset Carry ... bit 0
ld c,a ;A into C (B is already ... the result (BC) from BASIC (PRINT USR 40001)
[/code]
10 INPUT a: POKE 40000,a
20 PRINT USR 40001: GO TO ...I feel like such a moron having to post this but stillI started out to write a simple cursor move program to demonstrate how easy it is to program in Basic! Hah, serves me right. I started by setting…
... 10 LET X = 10
20 LET Y = 10
30 LET A = ... 10
40 LET B = 10
100 A = X
... Y + (I$ = "A") - (I$ = "Q")
130 PRINT AT B, A; " "; AT Y ... INKEY$ once will save a bit a time. If will ...I feel like such a moron having to post this but stillI started out to write a simple cursor move program to demonstrate how easy it is to program in Basic! Hah, serves me right. I started by setting…
... =10
20 LET Y=10
30 LET A=10
40 ... LET B=10
100 LET A=X
102 LET ... B=Y
105 LET I$=INKEY ... )
124 LET Y=Y+(Y21)
130 PRINT AT B,A;" ";AT ...why cant i do this in a dimensional array?let m$(20)=m$(20)+"hello" it wont add it to the string/array m$(20)
... /> hi
LET a$ = m$(20) + " there"
PRINT a$
hi there ...
So it's a padding ... /> [/code]
Should print
hi there
48k packed up after cap changeHi all, I'm relatively new to the Sinclair world, my 8-bit repairs in past was lurking in the dark sides of Acorn, Amstrad and Commodore! I've got…
... values haven't changed a significant amount - the ... the -5V.
[*]Print out a schematic for the relevant ... boards, there is a screen print error for one capacitor ... easy to put a lead in a via hole rather ... report back. If not, let us know, and thinking caps ...
