-
DEF FN DirectivesI am looking at using some machine code functions from the DK Graphics Pack. They are machine code but they are called via Basic with the function de…
... via Basic with the function defined such as DEF FN g(x, y ... bytes following the CALL nn function need to contain the parameters ... -
Can you improve this recursive DEF FN?I came up with this function to scan strings for characters without needing to use FOR...NEXT and IF...THEN, but it seems rather long-winded. Can any…
I came up with this function to scan strings for ... br />
Using:
DEF FN w(w$,o$,c)=VAL ...
with:
w$(FN w(w$,o$,1))
function on its own will return ... (eg. GO SUB 1000+FN w(w$,o$,1)*100). -
BASin v.15 DEF FN bugThe bug would appear to be in "BASSupport.pas : Procedure ProcessDEFFN"; as it's not inserting the 6-byte variable place holder after each parameter …
... after each parameter in the DEF FN definition. There's code there ... -
Confounded DEF FNCan anyone see why this is going wrong? I've been tinkering with it since tea time and got nowhere. [code] 2 DEF FN t$(n,t,d) =STR$ INT (n/t)…
... nowhere.
[code]
2 DEF FN t$(n,t,d)
+VAL$ (("FN t$("
+STR$ (n-INT ... -
Fix for the DEF FN bug of zmakebasSome months ago I discovered a bug in zmakebas: it does not include the 5 bytes required after every parameter of a DEF FN. By the time, the WoS f…
... after every parameter of a DEF FN.
By the time ... -
BASIC Bug: DEF FN after REMHello all, Having mused the Spectrum ROM disassembly by Drs Logan ad O'Hara, I wondered about how good ZX BASIC was at locating the DEF FN when call…
... BASIC was at locating the DEF FN when called upon.
[code]
10 DEF FN a()=10
20 PRINT ... :
[code]
10 REM : DEF FN a()=10
20 PRINT ... ROM routine that looks for DEF FN, DATA and (oddly) NEXT appears ... -
problem with DEFADD storageI have a function: DEF FN t(t$,m,t)=USR t which is called with, for an example: LET bc=FN t("t$()",mcworkspace,mcputt) where, at the time: mcworkspac…
I have a function: DEF FN t(t$,m,t)=USR ... , for an example: LET bc=FN t("t$()",mcworkspace,mcputt)
function to be simply: DEF FN t(t$,m ... -
that "listing variables during runtime" thingWell, I did eventually finish this, but with my meds playing up I don't have much time each day that I can spend at the computer, so it's taken rathe…
... don't want the listing function there are elements of the ... to be called from the function:
DEF FN s$(r,k)=STR ... -
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…
... />
[code]
BIN(string)
DEF FN B(b$)=VAL b ... ][/quote]
BIN(string)
DEF FN B(b$)= VAL ... -
Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
...
Functions:
[code]
DEF FN d(w,x)=INT ((x ... Y pixel coord
DEF FN p(a)=PEEK a+ ... a,a+1.
DEF FN r(a)=8001
... emulate Apple-II RND function.
DEF FN x(x)=INT (x ... X pixel coordinate
DEF FN y(y)=175-y: HPLOT ... -
what does the USR command actually stand for?im sure its an acronym, if i remember rightly. ____ sub routine?
... it as a user-defined function DEF FN a(p,q) = USR [i ... -
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…
... priority; for example, the MOD function should normally occur first. Where ... /> [b]BIN[/b]([i]string[/i])
[code]
DEF FN B(b ... /> [b]BIN$[/b]([i]posint8[/i])
[code]
DEF FN B$(b ... ]FREE[/b]()
[code]
DEF FN F()=65536-USR 7962
FN nesting error?While playing with FN functions that call assembly, I've found something weird. Check out this code: [code]10 DEF FN f(a,b)=a+b 20 PRINT FN f(FN f(…
... this code:
[code]10 DEF FN f(a,b)=a+b ... , if I change the DEF FN to: DEF FN f(a,b)=a, the ... nested calls to the same function, then there are combinations of ... same function in a nested call.
[code]10 DEF FN f ... ,b)=a+b
20 DEF FN g(a,b)=a+b ...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 ... it to work?
DEF FN j$(s,l)=CHR$ PEEK ... (s)+VAL$ "FN j$(s+1,l-1 ...number padding functionI wrote a number padding function in BASIC a while ago, but when I came to want it again I couldn't find it, so I've done this enhanced [url=http://w…
... a number padding function in BASIC a while ... padnum.asm]PadNum[/url] function in assembler. As ... /> [code]
DEF FN p$(n,l,r)=STR ... := "1.0"
FN p$(1,-5,3) := " ... 1.000"
FN p$(1,-5,0) := " ...Function works in SpecBAS but not BASinSo, is there any reason why this user defined function works in SpecBAS but not BASin? [code] 10 DEF FN m$(a$,n1,n2)=a$(n1 TO n2) 20 LET a$="The…
So, is there any reason why this user defined function works in SpecBAS but not BASin?
[code]
10 DEF FN m$(a$,n1,n2)=a$(n1 TO n2)
20 LET a$="TheManInTheMoon"
50 PRINT FN m$(a$,12,15)
60 STOP
[/code]New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
This is what I've compiled so far:
[quote]Resources
=========
* Make all caps
---------------
You can turn CAPS LOCK on or off using a simple poke to 23658:
POKE 23658,8: REM CAPS ON
...numbers to binaryHi everyone, I have looked through the manual and have found nothing. How do you change a number to binary easily? I know you can go binary to decim…
... 5 CLEAR 26000
9 DEF FN b$(n,b)=(STR$ (n ... 20 RANDOMIZE : CLEAR : LET a=BIN 11011011: PRINT "a=";a'"a ... br /> 25 LET a$=FN b$(a,15): PRINT ... off the 16 chr BIN shows, with the expected ... I know a working RECURSIVE function like this exist already, who ...hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... char *strings[] = {
"BEEP", "BIN", "BORDER", "BRIGHT", "CAT", "CIRCLE", " ... CLS", "CONTINUE",
"COPY", "DATA", "DEF FN", "DIM", "DRAW", "ERASE", "FLASH", " ... }
/* The hash function */
unsigned char perf_hash( unsigned ...hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... char *strings[] = {
"BEEP", "BIN", "BORDER", "BRIGHT", "CAT", "CIRCLE", "CLEAR ... CLS", "CONTINUE",
"COPY", "DATA", "DEF FN", "DIM", "DRAW", "ERASE", "FLASH", " ... }
/* The hash function */
unsigned char perf_hash( unsigned ...Decimal to Binary stringHi all, Anyone got a less labour intensive BASIC routine than this? Example:- take 170 and convert to a string "10101010" take 4 and convert to a s…
... /> 40 IF n=BIN n$ THEN GOTO 60 ... using an user function:
[code]10 DEF FN b$(n)=(" ... 5 RANDOMIZE
10 DEF FN b$()=STR$(INT (RND*2 ... FN b$()+FN b$()+FN b$()+FN b$()+FN b$()+FN b$()+FN b$()+FN ... b$()
40 IF n=BIN ...Finished with my dice rolling programTook me all day but I'm rather proud of it, simple though it is. Its up at Dropbox if anyones interested https://www.dropbox.com/s/qdgtfc0zyy94hxm…
... , due to the embedded function tokens in lines 2 and ... +"(a/2))+")
* change "BIN" in line 40
to ... />
[code]
1 DEF FN p(a)=PEEK a+256 ... LET u$=CHR$ (128+VAL ("BIN "+v$+w$)):
PRINT AT ...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…
... , due to the embedded function tokens in lines 2 and ... +"(a/2))+")
* change "BIN" in line 40
to ... />
[code]
1 DEF FN p(a)=PEEK a+256 ... LET u$=CHR$ (128+VAL ("BIN "+v$+w$)):
PRINT AT ...
