-
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…
Something's not right there. For a start those functions aren' ... ,string[/I])
[code]
DEF FN M(x$,y$)=(x$ AND ... that M is already reserved for MAX(number,number) function. ... coffee?). The remaining available letters for number functions are:
More colours II (Was: Most popular new features?)The suggested 4xCLUT multi-colour solution never took off.
... hard work for you:
[code]
10 DEF FN c$(c ... (c-INT (c/2)*2) : DEF FN c(r,g,b)=(g ... range of Red and Green. For example 7 and 6 are ... the equivalents are:
FN c$(0) = FLASH 0; BRIGHT ... 0
FN c$(1) = FLASH 0; BRIGHT ...Speccy games programmingI've got a question. Where games written in pure machine code or was it a level higher with Assembly language being the choice? I always thought it…
... short of supporting "VAL" and "DEF FN" as these are very complex ... the string, subtracted the code for "0" and added the result ... ever commercial program! (A commission for a computer shop in Kettering ...Dim commandI try o find a BASIC COMPILER for ZX SPECTRUM 128 that use DIM command with two or more letter as 10 DIM AB(10) instead of 10 DIM A(10) Any iforma…
... sure what the z is for. And you have to have ... like:
[code]
DEF FN w(x,y,a$)=USR ... />
[code]
LET n=FN w(0,0,a$+CHR ...Dim commandI try o find a BASIC COMPILER for ZX SPECTRUM 128 that use DIM command with two or more letter as 10 DIM AB(10) instead of 10 DIM A(10) Any iforma…
[QUOTE=aowen;407170]A DEF FN has to have a fixed ... parameters, so you could have DEF FN w(a$, b$, c$)=1 ... all of those with FN so print FN w(a$,b$) would ... .[/QUOTE] I take your word for that :-)
[QUOTE=aowen ...The Chuntey InitiativeIt's the start of a new year and with it brings a new wave of optimism and hope! :) In light of the relative success of twitter/speccynews (in the s…
... the whole word:
DEF FN u$(s$)=VAL$ "CHR$ ((CODE ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
This works for me. There should be 203 ... f$="m:example"
1010 FOR n=1 TO LEN f ... me of ZX BASIC and DEF FN may want to move argument ... 'exists' check could just be DEF FN e(a$) = USR (prog+5 ... chk
defs 118 ;Space for filename parameter and stack
+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... ?[/QUOTE]
Errrm ... use DEF FN to pass arguments to USR ... [/url] above. Check your PMs for a link to the MENU ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... day. Specifically, the use of FN o(f$) in these lines ... : GO SUB 9220: DEF FN o(f$)=USR 49050: DEF FN p(t,e ... LET r$=l$(item): IF FN o(r$+CHR$ 255) THEN ... file name passed in the FN o(f$) call.
Using m/code to search for variables in the VARS area ...BITWISE operators...Hi Folks, Another question - is there a way (fast) to do bitwise operations in Sinclair BASIC? Many thanks Paddy
... address of first character after FN
INC HL
... br />
[CODE]
10 DEF FN A(X,Y) = USR start_address ...
20 PRINT FN A(10,20)
[/CODE ... relatively straightforward to create functions for any other bitwise operators ...PFN PRINT by Garry Rowland...Hi Folks, Whilst watching Casualty last night I thought I would surf the archive and look at some "classic" software. One I tried was a program cal…
For my sins it was me ... had the instructions, something about DEF FN and such.... I also used ...Time function?How do you do a timer? Example: Start timer If timer = 10 seconds then reset timer Thanks
... /> Basicly:
[code]50 DEF FN t()= INT ((65536* PEEK 23674 ... LET now=FN t()
70 PRINT "DO STUFF FOR 10 SECONDS ... ...";
80 IF FN t()Location of variableHi everyone When basic makes an array how to you find out the location in the ram of where the data is stored. :) Also, does it store the values in…
... string array. It checks for every type, and so ... />
[code]
4 DEF FN p(a)=PEEK a+256 ... ,k0; INVERSE 1;"SEARCHING FOR ARRAY ";o$;"$()";TAB k0;< ... 96:
FOR i=FN p(23627) TO FN p(23641)-2 ... THEN
FOR a=i+1 TO FN p(23641)-2 ...Location of variableHi everyone When basic makes an array how to you find out the location in the ram of where the data is stored. :) Also, does it store the values in…
...
[CODE]10 REM DEF FN v()=PEEK (23627)+256*PEEK ... y$(15,20)
45 FOR l=1 TO 10: NEXT ...
9035 REM 7=Index (FOR)
9040 REM --------------------------
9045 ... --------------------------
9255 REM 7.INDEX(FOR)
9260 LET t$="7 ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... time. Unfortunately using FRAMES for timing isn't precise enough ... an accurate timing for this, or for the more complex ... Sort demo
2 DEF FN t()=65536*PEEK 23674+256 ... v$(52,1):
FOR i=1 TO 52:
FOR i=1 TO 50:
Keyboard mapping...Hi Folks, This is probably going to be one of those daft questions but... On the emulators (Spectrum and CPC) why are the keyboards not mapped to t…
... is fine. Do not use DEF FN though as it seems to ... my perspective.
As for keyboard, I suppose one option ...Keyboard mapping...Hi Folks, This is probably going to be one of those daft questions but... On the emulators (Spectrum and CPC) why are the keyboards not mapped to t…
... is fine. Do not use DEF FN though as it seems to ... my perspective.
As for keyboard, I suppose one option ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... quicksort implementation...
[code] 1 DEF FN t()=(PEEK 23672+256*PEEK ... : DIM p$(nelem,1): FOR n=1 TO nelem: LET ... /> 50 STOP
1000 FOR n=1 TO nelem: PRINT ... $=p$(pv)
4002 FOR i=fr+1 TO end ... depends upon the right choice for the pivot. A naive ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... quicksort implementation...
[code] 1 DEF FN t()=(PEEK 23672+256*PEEK ... =0: DIM p$(nelem,1): FOR n=1 TO nelem: LET ... GO SUB 4000: LET t2=FN t()
40 GO SUB ... ."
50 STOP
1000 FOR n=1 TO nelem: PRINT ... v$=p$(pv)
4002 FOR i=fr+1 TO end ...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…
... pity that Philip's trick for implementing recursion in Sinclair BASIC ... it... :)
[code]10 DEF FN b$(n,d)=VAL$ "STR ... $(INT (n/d),d/2)+FN b$(n-d*INT (n ... -255): ";n
30 PRINT FN b$(INT (n/16),4 ... );FN b$(n-16*INT (n/ ...variable variable names with VAL$It's possible to make the RH-side variable names in a LET statement be themselves variable by using VAL$. Thus, if v$ holds the [b]name[/b] of anothe…
[QUOTE=Dr BEEP;483699][code]
1 let b$="hello"
2 let v$="b$"
3 let a$=VAL$ v$
4 print a$
[/code][/QUOTE]
Very nice - scope for a [B]DEF FN[/B] there ?!Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... valid concern about recursion scalability. For instance, if sorting 10, ... /> 4070 RETURN
5000 FOR i=1 TO n: PRINT ... i: PRINT : RETURN
9000 DEF FN t()=(PEEK 23672+256*PEEK ... provide exactly the same implementation for processing the right partition ...
