-
Looking for cursor routineIt's been a long time since I programmed a little bit in Basic, so I decided to create a simple cursor routine: [url]http://db.tt/SPnSdpx[/url] I k…
... returns to Basic (maybe via PEEK?)
-Return to Basic if ... could also be read via PEEK). Maybe up to n keys ... -
A bug in BASin?Hi Folks, Have I found another bug in BASin? I wrote the following small program: [CODE]10 PRINT AT 0,0;CHR$ PEEK 23556;" " 20 GO TO 10[/CODE] …
... PRINT AT 0,0;CHR$ PEEK 23556;" "
20 GO TO ... -
A little program to set the time...Hi Folks, OK, I have amended the program so you now have four routines/functions you can use in your own programs: TIME: GET - Reads the current va…
... *PEEK 23674+256*PEEK 23673+PEEK 23672):
LET mm=(65536*PEEK 23674+256*PEEK ... 23673+PEEK ... -
For those that are interested: SpecBAS 0.0.601 available nowWith added bug fixes! This build allows you to PEEK and POKE strings to memory banks (for very fast movement of bytes in memory) and to send variable…
... ! This build allows you to PEEK and POKE strings to memory ... -
Back to BASIC[U][B]Archaeology guide to programs compiled used MCODERII.d[/B][/U] After various people have been talking about "Frank'n'stein" I decided to finis…
Loader help please (and a suggestion)I posted in my "Wicker Woman" thread that I was having problems creating a loader, but I think this is a more appropriate place to post. I've had go…
... CLS
120 POKE (PEEK 23631+256*PEEK 23632)+5, 111
130 POKE (PEEK 23631+256*PEEK 23632)+5, 244
ZX81 Basic questionI just got a ZX81 off Ebay and when it arrived it has an Atari joystick hardwired into it. It does work as moving the joystick replicates certain key…
... a label with the following PEEK values on it.
PEEK 16421
up = 239 ... to go about incorporating those PEEK commands into a simple program ... screen, I never really used PEEK commands when basic programming and ...48k to 128k upgrade - problemsHi friends! I built 128k upgrade according to the [url]http://hw.speccy.cz/128krebuild.html[/url]. After I powered on my Speccy it said hello with s…
... program and without DivIDE? PRINT PEEK 23732 + PEEK 23733 * 256 gave me ...saving part of a BASIC programHere's a short routine to save part of a BASIC program. The idea is that it can be merged into a program and then used to save sub-routines, etc. to …
... /> DEF FN p(a)=PEEK a+fg*PEEK (a+1)
9990 ... =l1:
LET l1=PEEK a0*fg+PEEK (a0+1):
LET ...Stuff found in Sherlock's box.haha who can make the best joke! Seriously though, had a peek inside the box before I put it on ebay and there was a load of pieces of (what I assum…
... />
Seriously though, had a peek inside the box before I ...Game GuidesDo you buy game guides? I know some people buy them at the same time they buy the game which seems a bit pointless really. The only time I bought on…
... couldn't help having a peek at the guide if I ...Amazonia (BUGFIX)This is a bugfix for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0027280"]Amazonia[/URL], please add the following "known errors" des…
... =40645 TO 40662: POKE f,PEEK (f+2): NEXT f: POKE ... =43762 TO 43815: POKE f,PEEK (f+1): NEXT f: POKE ...storing machine code in BASICA couple of years ago I posted a routine for storing machine code between PROG & VARS, based on an idea in Toni Baker's "Mastering Machine Code". Thi…
... /> DEF FN p(a)=PEEK a+256*PEEK (a+1):
DEF ... /c starts: ";mc'"NOT " AND PEEK (mc-2)13";"OK": STOP ...joining lines of BASICDue to overwhelming demand - well, one demand - well, more of a suggestion, really - here's a routine to join together lines of BASIC. The vertical c…
... /> PUSH DE
LD A,(23560) ;LAST_K
cp 7 ;EDIT ... ;K_CUR
NOMOVE: LD A,(23560) ;LAST_K
CP 10 ;cursor ... cursor up
SET_K: LD (23560),A ;LAST_K
FINISH ...Spectrum 48K - upper memory MIAI have recently acquired a ZX Spectrum which, according to the sticker on the bottom, should be a 48K model. It's an Issue 3 board, with upper memory…
... see the extended memory. PRINT PEEK 23732 + PEEK 23733 * 256 returns 32767 ... . PRINT PEEK 23733 returns 127.
...more on storing mazesPrompted by Wookiee's escapades, I've been pondering on how to use DATA statements directly for displaying background graphics, thus avoiding the dup…
... & modified in situ with PEEK & POKE (m$(n) can ... DEF FN p(a)=PEEK a+256*PEEK (a+1):
DEF ... 2)-1
73 IF PEEK a>=217 THEN
POKE a,PEEK a-201: POKE a+1 ... 172 THEN
POKE a,PEEK a-150: POKE a+1 ...stuck on recursive functionI want this function to PEEK 'l' bytes from memory starting at 's' and return them as a string, but however much I fiddle about with quoting and pare…
I want this function to PEEK 'l' bytes from memory starting ... FN j$(s,l)=CHR$ PEEK (s)+VAL$ "FN j$(s ...Multicolour demo using z88dk + BIFROST* (+source)This is just a demo to show how to show multicolour using z88dk, using the BIFROST* engine (more info [URL="http://www.worldofspectrum.org/forums/sho…
Issue 3B only sees 16k (and RAMTOP NO GOOD on loading)A ZX+ with issue 3B board that i got recently, does not see anything more than 32768 (sometimes 37267..) on "PRINT PEEK 23732 + PEEK 23733 * 256 (Ent…
... 32768 (sometimes 37267..) on "PRINT PEEK 23732 + PEEK 23733 * 256 (Enter)".
Difficult to find upper RAM fault.I've recently repaired an issue 3B 48K Spectrum that had a tricky to diagnose upper RAM fault, so I thought I'd post a report of what I found here. …
... for a 48K Spectrum. Using PEEK to examine the system variable ... it to various values and PEEK to see whether the RAM ...Speed tip - "e" notationHi Folks, Whilst reading my "new" Sinclair ZX Spectrum BASIC manual I came across "e" notation again. In MRT I have the following line which is use…
... h=([COLOR="Red"]65536[/COLOR]*PEEK [COLOR="red"]23674[/COLOR ... ]+256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"] ... m=([COLOR="red"]65536[/COLOR]*PEEK [COLOR="red"]23674[/COLOR ... ]+256*PEEK [COLOR="red"]23673[/COLOR]+PEEK [COLOR="red"] ...Screen2StringFurther to writing that BASIC one-liner to redirect CAT to a string I thought that I'd do a general redirection routine for anything which normally p…
... DEF FN p(a)=PEEK a+256*PEEK (a+1): DEF FN ...enhanced GOSUB/GOTO (in BASIC)Further to my previous post under "BREAK from GOSUB" here's the two ideas mentioned there put together. Note that to keep it quick it expects the DEF…
... ): DEF FN p(a)=PEEK a+256*PEEK (a+1):
DEF ... p(gs):
LET gss=PEEK (gs+2): IF FN p ...Dimming the screen...Hi Folks, I was hoping someone on here could help me with a wee machine code routine. I have written the following example in BASIC: [CODE]100 REM…
... 23231: POKE a,PEEK a-(64 AND PEEK a>64): NEXT ...Spectrum 48K - upper memory problemsHi I have a ZX Spectrum 48K issue 3B which does not see upper memory. On PRINT PEEK 23732+256*PEEK 23733 i got result 32767. POKE 32768,85 and PRINT …
... br /> On PRINT PEEK 23732+256*PEEK 23733 i got result ... POKE 32768,85 and PRINT PEEK 32768 gave result 95< ... POKE 32768,170 and PRINT PEEK 32768 gave result 170
PEEK 32768 gave result 10< ... br /> PRINT PEEK 32769 and above (to ...A "bit" of a curiosityHaving to use a bit of m/code to do the AND in that key check function, I was prompted to revisit the "AND,XOR,OR,...for BASIC" topic and came up wit…
... /> RESTORE llll: LET da=PEEK 23639+256*PEEK 23640+8:
POKE ...Jelly-Vision!As threatened in the "'Spectrum Play' Error" thread, here's a ruff'n'reddy interrupt driven full screen wobbling routine which has no practical use w…
... ,NOWOBBLE[/color]
ld a,(23560)
cp 13
jr ...
