-
SCREEN$ bug fixI've been using the SCREEN$() function recently for reading data off the screen rather than taking up space with an array and I got fed up with the s…
... routine as well as from FN s$().
So ... br />
; USAGE:
; DEF FN s$(r,c)=STR$ USR ... ScrDol0
; ... FN s$(row,col) ...
ScrDol0 ... /> ScrDol1:ld hl,(23563) ;HL=(DEFADD)
inc hl
inc ... -
Spectrum Utility Routines Compendium (pending)I couldn't make up my mind into which section to put this, so it's ended up here for some tenuous reason. I haven't forgotten about this. I've been …
... 48k ROM routines
** Calculating FN memory usage
** Insert a ... REM enhancement
** Using the DEFADD area for extra variables
Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
... :
[CODE]1 DEF FN a(x,y,h,v ... 0
25 LET i=FN a(5,5,20,15 ... />
[CODE]63000 LD HL,(DEFADD)
LD BC,4
Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
... and then:
LET i=FN a(x,y,h,v ... #2.
[code]
DEFADD: equ 23563
org ...
a63000: LD HL,(DEFADD)
LD BC,4
Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
... ]
100 CLEAR 62999: DEF FN b(x,y,w,h ...Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
...
1 DEF FN l(x,y)=USR ... block with, say, RANDOMIZE FN l(16384, 6912)
;; definition like FN l(x,y). The first ... DE
;; DEFADD is the system variable containing ... ld ix,(23563) ; DEFADD
ld l,(ix+ ...Double height text...<p>Is here any good routines for printing a font double height?</p><p>I've concocted this ridiculous routine but I'm sure it can be done much better.…
... work either.)
;DEF FN d(d$,r,c)=USR ... DoubleHeight
;LET bc=FN d(d$,r,c): REM ... A
ld ix,(23563) ;DEFADD
ld a,(ix+6 ...Double height text...<p>Is here any good routines for printing a font double height?</p><p>I've concocted this ridiculous routine but I'm sure it can be done much better.…
... Courier.)
;DEF FN d(d$,r,c)=USR ... DoubleHeight
;LET bc=FN d(d$,r,c): REM ... DoubleHeight:
ld ix,(23563) ;(DEFADD)
ld a,(ix+6 ... SmallINT:
ld hl,(23563) ;(DEFADD)
add hl,bc
What am I doing wrong here?[code]IF INKEY$=SCREEN$ (21,4) THEN LET SCORE=SCORE+1[/code] It's delivering a positive every time.
... [code]
; USAGE:
; DEF FN s$(r,c)=STR$ USR ... ScrDol1
; ... FN s$(row,col) ...
org ... ScrDol1:ld hl,(23563) ;HL=(DEFADD)
inc hl
...
[code]
2 DEF FN s$(r,c)=STR$ USR ...Speeding up programs by hacking the SysVarsPositively pleased to properly discover this area of the forum! I have a couple of recent tricks that might be of interest - they're probably old hat…
... ":
RESTORE 7: RANDOMIZE FN p(dt)+8: LET zlo ... parameter space for the FN and saves the start ... name. The SysVars referenced are DEFADD, DATADD, SEED.)
... :
[code]GO SUB FN z(row_expression, col_expression, string_expression)[/code ...POKE taking a variable amount of time...Hi Folks, Does anyone know why the following POKE statements seem to vary in their execution time? [code]100 POKE 60000,10 110 POKE 60001,16…
... BASIC; you can use the DEFADD system variable within your machine ... />
[code]
10 DEF FN a(b,c)=USR 60000 ...
20 RANDOMIZE FN a (x,y)
[/code ...POKE taking a variable amount of time...Hi Folks, Does anyone know why the following POKE statements seem to vary in their execution time? [code]100 POKE 60000,10 110 POKE 60001,16…
... BASIC; you can use the DEFADD system variable within your machine ... />
[code]
10 DEF FN a(b,c)=USR 60000 ...
20 RANDOMIZE FN a (x,y)
[/code ... , if you use the DEF FN approach, how do you access ...POKE taking a variable amount of time...Hi Folks, Does anyone know why the following POKE statements seem to vary in their execution time? [code]100 POKE 60000,10 110 POKE 60001,16…
... if you use the DEF FN approach, how do you ... />
The system variable DEFADD points to the parameters of ... the current FN being evaluated, for example ... for DEF FN a(x,y) when ... at the address in DEFADD and access the parameters ...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…
... parameters
101 DEF FN a$(w$)="":
RESTORE ... 101: LET da=FN p(23639)+9: POKE da ... activate attribute copy parameters via DEFADD
102 RANDOMIZE da: ... deactivate attribute copy parameters via DEFADD & stop timer
...Why no PLOT, etc. on bottom two lines?I was pondering if there was any way to get PLOT, etc. to address the full screen from BASIC without having to write a few lines of assembler to bypa…
... a dummy FN ; eg.:
* declare the dummy FN: DEF FN a$(b ... locations & lengths into the FN space
(9 bytes: ... ) + "," or ")" )
* POKE DEFADD to point to the FN space
* copy ... : LET b$=s$
* reset DEFADD: POKE DEFADD(hi),0Adding command to BASICI am looking for an article about adding commands via software to sinclair basic. I know there was one published and to the best of my knowledge it w…
... DEF FN x(a,b$)=USR 32768, you can then use DEFADD ...Ported whole casettes of backuped utiltilitiesHi! A friend of mine gave me a few casettes he found in the attic - he used these to backup ORIGINAL casettes he had back in the spectrum games. The…
...
11-102B9: Program : 3d fn Length: 19 Normal Speed ,Pause ...BASin Release 10a is up...Well, none of my releases ever get far before the inevitable bug fix version... Go grab it at [url="http://homepage.ntlworld.com/paul.dunn4/BASin_…
... ignored (BadBeard)
Fixed DEF FN statements - not correctly tokenised (Chris ...Is there much ?Do you think there`s much cooperation, and in fact co-development now goes on within the 8-bit community.. in fact is there any? I know that`s a daf…
... thing or two regarding Def FN and special pokes etc etc ...New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
... AND INT (FN V(FN V(FN V(FN V(FN V(FN V(x, ... 2)+INT (FN V(FN V(FN V(FN V(FN V(FN V(y, ... AND INT FN V(FN V(FN V(FN V(FN V(FN V(FN V(x ... 2)+INT FN V(FN V(FN V(FN V…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…
... Crisis's bug with DEF FN, and colin's problem with ...Lesser 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…
Are 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 BASIC manual only glosses over them without going into a lot of detail.
Necros.BASin Release 13 is now availableI'm still at it. BASin is now in it's 13th incarnation (disregarding the inter-version updates) and is now available at [url="http://homepage.ntlw…
... a bit.
Fixed - DEF FN lines were getting their last ... meant that REM and DEF FN behaved incorrectly.
Fixed - REM ...BASin Release 13 is now available[unashamedly x-posted from Emulators forum] I'm still at it. BASin is now in it's 13th incarnation (disregarding the inter-version updates) and is …
... a bit.
Fixed - DEF FN lines were getting their last ... meant that REM and DEF FN behaved incorrectly.
Fixed - REM ...Recursive functionsA while ago Phil demonstrated a nice example of recursiveness in a DEF FN function. Sadly it doesn't appear to be online anymore and I have difficult…
A while ago Phil demonstrated a nice example of recursiveness in a DEF FN function. Sadly it doesn't appear to be online anymore and I have difficulties finding it out myself: does anyone have a good example? Thx.Firefox (new thoughts)Maybe more people would use Firefox if there was a version for the Speccy! [code] 10 PRINT AT 2, 2; "Press F for Firefox or I for M$IE" 20 LET K$=IN…
... TO 20
60 DEF FN M$(IE)=""+M$(IE)+""" is ... evil"
70 PRINT FN M$(IE)
REM etc ...BASIC Keyword ReferenceRealised that the Sinclair Basic section would be a better place for discussion of BASIC keywords, so for reference the old thread is in [thread=2005…
... RANDOMIZE : K : T
DEF FN : E : SYM + 1 READ : E ... + V RUN : K : R
FN : E : SYM + 2 SAVE : K ...Terminal Velocity!Hi, Don't know if I should be posting this sort of thing here, but I read the FAQ and didn't spot any "Don't" rules. So here you have my example of …
... e: ";e
210 DEF FN h(e,x)=((e^((2 ... *x))-1))
220 DEF FN v(a,c,e,g ... *m*g)/(p*a*c)))*FN h(e,(t*(SQR ((g ... =60
240 LET v=FN v(a,c,e,g ...
