-
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(FN V(x ... ),2)+INT FN V(FN V(FN V(FN V(FN V(FN V(FN V(y ... )+STR$ INT FN V(FN V(FN V(FN V(FN V(FN V(FN V(b ... ]
DEF FN D(hTerminal 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 ... *x))-1))
220 DEF FN v(a,c,e,g ... *m*g)/(p*a*c)))*FN h(e,(t*(SQR ((g*p ... =60
240 LET v=FN v(a,c,e,g ...storing machine code in BASICApart from putting m/c above RAMTOP, which means that it has to be POKEd or LOADed separately after the BASIC program; or putting it in a REM, which …
... /> DEF FN g(v)=v-FN h(v)*256:
DEF FN h(v)=INT ... -5):
LET newVARS=FN p(23627)+machine_code_length+1:
" POKE 23627,FN g(";newVARS;")"'
" POKE 23628,FN h(";newVARS;")"'
" ...Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... br /> DEF FN l(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256):
LET udg=FN ... 36,14,0,FN l(df),FN h(df),FN l(dl),FN h(dl),41 ... (udg): POKE defadd+1,FN h(udg):
LET s$= ... (udg): POKE defadd+1,FN h(udg):
LET a$= ...checking bits in BASICThe question of manipulating bit patterns in BASIC was raised recently in this [thread=35728]Keys redefine routine and key check[/thread] thread. I s…
... shortage of them) :); the DEF FN definition is shown below. (I ... /> 2 DEF FN l(v)=v-FN h(v)*256: DEF FN h(v)=INT ... br /> PRINT FN b$(FN h(12345),10,2,8);FN b$(FN l(12345 ... :
[code]
PRINT FN b$(00110000,2,10,8 ... n,a,b,l)=FN b$(VAL FN b$(n,a,10 ...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 b(h$)=16*FN n(h$(1))+FN n(h$(2)):
DEF FN g ... (v)=v-FN h ... (v)*fg: DEF FN h ... (v)=INT (v/fg):
DEF FN ...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…
... $=FN d$("A",va)+FN d$("B",FN g(ov))+FN d$("C",FN h(ov))+FN ... d$("D",ov)+FN ... $=FN d$("A",va)+FN d$("B",FN g(nv))+FN d$("C",FN h(nv))+FN ... d$("D",FN g(n))+FN d$("E",FN h ...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…
... br /> DEF FN g(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256)
11 LET udg=FN ... m: READ n$: LET datend=FN p(datadd):
LET m ... (udg): POKE defadd+1,FN h(udg)
50 FOR m ... POKE udg+a*2+3,FN h(m(m,a))
NEXT ...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…
... +1): DEF FN g(v)=v-FN h(v)*256: DEF FN h(v)=INT ... are redirected)
DATA FN g(sa),FN h(sa):
REM machine ... +9),FN h(sd+9),119,35,34,FN g(sd+9),FN h(sd ... +7,FN h(sl):
POKE 23563,FN g(sd): POKE 23564,FN h(sd ...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 c()=FN p(23621): DEF FN p(a)=PEEK ... br /> DEF FN g(v)=v-FN h(v)*256: DEF FN h(v)=INT ... (v/256)
2 LET prog=FN p ... POKE gs,FN g(FN c()+1): POKE gs+1,FN h(FN c()+1 ... /> POKE gs,FN g(gln): POKE gs+1,FN h(gln): POKE gs ...saving time populating large arraysI use a variation on this idea for storing machine code at the end of programs without interfering with LIST, then it occurred to me that it would al…
... br /> DEF FN g(v)=v-FN h(v)*256: DEF FN h(v)=INT ... br /> POKE 23670,FN g(vars): POKE 23671,FN h(vars):
POKE ... br /> POKE 23670,FN g(vars): POKE 23671,FN h(vars):
POKE ... STOP
9999 LET vars=FN p(23627): LET check=1813 ...quick RAM copy using LET in BASICI'm in the process of reviewing, revising and refining all the programming tips & utility routines which I've posted on this forum over the last eigh…
... ):
DEF FN l(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256)
20 DEF FN ... :
LET qlo=FN l(fnq): LET qhi=FN h(fnq): LET da ... ,FN h(loc):
POKE a+3,FN l(l): POKE a+4,FN h ...PLOTTER - display file utilityI've been disassembling Gyron and needed something to help with working out where things were being put on the screen, so I wrote this program. I was…
... = point x,y coordinates
H = hexadecimal values
- = negative Y ... " error after some little while (FN h$(a) gets stuck in a ...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…
... DEF FN l(v)=v-256*FN h(v): DEF FN h(v ...
POKE defadd+1,FN h(udg):
LET s ... FN l(buf),FN h(buf)
1312 DATA FN l(512),FN h ...
POKE defadd+1,FN h(udg):
LET s ... br /> POKE defadd+1,FN h(udg):
LET ...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…
... yield:
[code]DEF FN H$(n)=CHR$ (INT (n/4096 ... FN H$(n)=FN D$(n/4096)+FN D$(FN V(n,4096)/256)+FN D$(FN ... V(FN ... V(n,4096),256)/16)+FN D$(FN V(FN V(FN ...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…
... FN D(H$)=(CODE H$(1)-48-7*(H$(1)>"9"))*4096+(CODE H ... calculation:
[code]DEF FN H$(n)=CHR$ (INT (n/4096 ... ;9)+48)+CHR$ (INT (FN V(FN V(n,4096),256)/16 ... )>9)+48)+CHR$ ((FN V(FN V(FN V(n,4096),256 ... ),16))+7*(INT FN V(FN V(FN ...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. …
... :
[code]
DEF FN x$(a) = CHR$(a+48 ... ))
DEF FN h$(x) = VAL$("FN h$(INT(x/16))+FN x$(x-16 ...Cybernoid editorSo, my long tern goal is to make my own Cybernoid or Rex like game (see an ancient thread about Sprite advice)...but my skills are somewhat lacking..…
... -liner:
10 DEF FN x$(a) = CHR$(a+48 ... /> 20 DEF FN h$(x) = FN x$(INT (x/16)) + FN x$(x-16 ... (x/16))
30 PRINT FN h$(201)
Basically, 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. …
... Anonymous;171624][code]
DEF FN x$(a) = CHR$(a+48 ... ))
DEF FN h$(x) = FN x$(INT (x/16)) + FN x$(x-16 ... />
Just do a PRINT FN h$(100).
There's ...Cybernoid editorSo, my long tern goal is to make my own Cybernoid or Rex like game (see an ancient thread about Sprite advice)...but my skills are somewhat lacking..…
... -liner:
10 DEF FN x$(a) = CHR$(a+48 ... /> 20 DEF FN h$(x) = FN x$(INT (x/16)) + FN x$(x-16 ... (x/16))
30 PRINT FN h$(201)
Basically, it ... how Alcoholics Anonymous's DEF FN version works - so your effort ...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. …
[code]
DEF FN x$(a) = CHR$(a+48+(7 AND a>9))
DEF FN h$(x) = VAL$("FN h$(INT(x/16))+FN x$(x-16*INT (x/16))"(1+(13 AND xCool 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=Dr BEEP;171915]I would do it like this:
[code]
DEF FN h$(x) = "0123456789ABCDEF"(INT(x/16))+"0123456789ABCDEF"(x-16*INT (x/16))
[/code][/QUOTE]
Dr Beep, that is a very cool lateral solution, which even I understand! :-)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. …
You have been using another computer :)
DEF FN h$(x) = "0123456789ABCDEF"([B]1+[/B]INT(x/16))+"0123456789ABCDEF"([B]1+[/B](x-16*INT (x/16)))
will print FOR i = 0 TO 255: PRINT FN h$(i) : NEXT iCool 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. …
... another computer :)
DEF FN h$(x) = "0123456789ABCDEF"([B]1+[/B ... i = 0 TO 255: PRINT FN h$(i) : NEXT i[/QUOTE]
DEF FN h$(x) = "0123456789ABCDEF"(.5+x/16 ...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. …
... another computer :)
DEF FN h$(x) = "0123456789ABCDEF"([B]1+[/B ... i = 0 TO 255: PRINT FN h$(i) : NEXT i[/QUOTE]
FN be rehashed to recursively call ...oh my the old days :)programming on the speccy again here is a routine i remember of the top of my head to load screens or code without a header wow 5 Clear 27999 : Re…
... DEF FN h(y)=INT (y/256): DEF FN l(y)=y-256*FN h ... (y)[/CODE]
e.g.
[CODE]PRINT FN h ... (32768),FN l(32768)[/CODE]
Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... /> 10 DIM s$(length): DEF FN p(a)=PEEK a+256 ... ):
DEF FN l(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256):
LET udg=FN ...Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... DEF FN l(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256)
20 DEF FN ... FN l(a)+CHR$ FN h(a)+CHR$ FN l(l)+CHR$ FN h( ... /> POKE defadd,FN l(deftmp): POKE defadd+1,FN h(deftmp)
42 REM FN m$() PARAMETERS
a ...Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... an updated version of FN m$() which handles string ... /> [code]
2 DEF FN p(a)=PEEK a+256 ... DEF FN l(v)=v-256*FN h(v): DEF FN h(v)=INT ... (v/256):
DEF FN ...
13 LET nl=FN p(23637): RETURN:
REM ...Saving and Loading from tape in MC?I'm actually having problems with saving and loading from the ROM routines for the interpreter... I'm currently using the following codes for saving…
... ]
4 DEF FN p(a)=PEEK a ... FN g(v)=v-FN h(v)*256:
DEF FN h ... FN p(FN p(errsp)): LET sp=FN p(errsp):
POKE sp,FN ... g(mctrap): POKE sp+1,FN h ... FN p(errsp):
POKE sp,FN g(errgoto): POKE sp+1,FN h ...
