-
Full 16*16-digit BASIC multiplicationI liked Andre Adrian's 32-bit long multiplication routine so much that I decided to a decimal version. After all, 2^63 is only 9223372036854775808, a…
... [code]
3 DEF FN R(r$)=RR: DEF FN p(a)=PEEK a ... +256*PEEK (a+1):
DEF FN b$(r)="0000"(TO 4 ... $(G)+FN b$(K)+FN b$(H)+FN b$(L)+
FN b$(V)+FN ... b$(X)+FN ... -
MOVE_M Object Movement Manager for BASICAs moving things around on the screen is usually the slowest part of a game written in BASIC, I've been pottering around with this routine to handle …
... /> 10 REM Title
11 DEF FN p(a)=PEEK a+256 ... *PEEK (a+1): DEF FN i(d,a)=USR MOVEI ... /> 12 CLEAR 62999: LET ORG=FN p(23730)+1: LOAD "MOVE_M ... br /> LET DOTRAP=FN p(ORG): LET NOINT=FN p(ORG+2 ... DISPLAY tables may be defined; FN i(d,a) selects **< ... -
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…
... $(row,col) where FN c$() is defined as DEF FN c$(r,c ... -
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…
... called from the function:
DEF FN s$(r,k)=STR$ USR ... -
dumping protected BASIC loadersI wrote this a few weeks ago but forgot to post it. It will load & list from tape/TAP/TZX any BASIC program which has been saved with SAVE, including…
... :
[code]
2 DEF FN p(a)=PEEK a+256 ... a: PRINT :
LET ps=FN p(bytes+11): LET bs ... =FN p(bytes+15): LET vs= ... *PEEK a+PEEK (a+1);":";FN p(a+2); PAPER 7 ... -
TAPlist - the emulator versionI've got this working reasonably well; there's just a couple of small extra features which I want to add. (Recall that TAPlist writes a formatted lis…
... of commands in the range DEF FN (206) to COPY (255) which ... additional indent (currently set for: DEF FN, LPRINT, DATA, REM, FOR, INPUT ... -
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…
... 's certain functions such as DEF FN which won't convert....so ... -
Chompston Mazes in SpecBASAfter the discussion in ASH-II's Pacman thread, I checked out the link there about generating 2D Pacman style mazes. This one was quite good fun, …
... .
[code]
30 DEF FN d=INT(mind+INT(1 ... +1 TO),l$=l$+CHR$ FN d:
LET x$=x ... e$ and call our function "FN d" from earlier to get ... -
Help With AY Music Program in BASICHi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker…
Hi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker but, in the end - I just learned how to use Soundtracker anyway (Thanks to ZXF for those tutorials!).
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]SeBASIC Updated to version 3.2 by aowen...SeBASIC has just received an update!... Version 3.2 is now available, but it'll cost ya!... Its only $5 USD, and can be downloaded from here:…
...
* Fixed a bug in DEF FN recursive functions (thanks to Miguel ... .
* ZXC3 version excludes the DEF FN fix, and moves the cursor ...Random Numbers, USR Return Values & Timing BASICI've been trying out Jon Ritman's random number routine, published in Your Sinclair Aug'87. Apart from a timing comparison I also did a frequency ana…
... /> 9999 LET t1=FN t(): LET t2=FN t(): LET t0=t1 ...Need the title of the Sinclair Basic manual to look for itI had a copy but I've lost the USB chip it was on! I need it to look up commands because some Basic programs I looked at all used the command MOD and…
... Applesoft Basic program that used DEF FN (A command I'm not ... for yourselves:-
10 DEF FN M(N) = ((A / N) - INT ... LET O$ = ""
40 IF FN M(3) = 0 THEN O ... $ = "FIZZ"
50 IF FN M(5) = 0 THEN O ...While we're on the subject of BASIC Although my memory of the past still seems to be fairly reliable, memories relating to learning computer programming seem to have disappeared…
... the potential of commands like DEF FN (DEFine FunctioN) now it seems ...Writing faster BASIC programsThere was an article in INPUT years ago, that I thought I'd share again some of the tips from it and link to the article, as it contains some good ad…
There was an article in INPUT years ago, that I thought I'd share again some of the tips from it and link to the article, as it contains some good advice on ways of writting your BASIC programs that they run faster. Nothing earth shattering but would not ...Compiling BasicI'm not good in compiling sinclair basic because i was 15 when i got my first spectrum, and it was the first computer i saw. I wasn't aware of compil…
It might even be done with a recursive DEF FN. I need to think of the code however.
Your program would be then
instead LET A=VAL A$
it will be LET A=FN V(A$)
and a DEF FN V(A$)= .... in the begin of the prog.Compiling BasicI'm not good in compiling sinclair basic because i was 15 when i got my first spectrum, and it was the first computer i saw. I wasn't aware of compil…
... be done with a recursive DEF FN. I need to think of ... (A$)
and a DEF FN V(A$)= .... in the begin ...Let a=val "1"I see some basic programs which use Let a=val "1" instead of let a=1 syntax. what is the difference between val "1" and 1? is it an effect of some …
... :
10 DEF FN f(n)=VAL "1n*FN f(n-1 ...
10 DEF FN s$(n)=VAL$ """""+"" ""+FN $(n-1)"( TO 2 ...Scrolling string variablesCan anyone help me with this for a program I'm writing on the spectrum. There was a command in speccy basic that would let you scroll a string variab…
... up from scratch by a DEF FN statement? Chaosmongers' solutions ... this:
10 DEF FN r$(a$)=a$(2 TO ... a$(1)
20 DEF FN l$(a$)=a$(LEN a ... br />
Hence, FN r$("ABCDEFG") returns BCDEFGA.
FN r$ or FN l$ repeatedly, printing ...VariablesVariable Help: Can BASIC discriminate between odd and even variables? If so, what simple syntax can express it?
Well there is a function :)
10 DEF FN p$(n) = ("ODD" AND
n/2INT (n/2))+("EVEN" AND n/2=
INT (n/2))
20 PRINT FN p$(3)
30 PRINT FN p$(1000)
