-
Julian Date / Mean AnomolyHere's another bunch of nonsense that (when finished) might be helpful*: [quote] 10 CLS : PRINT AT 0,0;"Please enter the information required:": …
... required:": PRINT
20 DEF FN a(d,h,m,s ... /60/24)
30 DEF FN b(j,m,d,c ... -1524.5
31 DEF FN c(j)=357.5291+(0 ... -
BASin r14d - Final bugfix for the r14 seriesOk, there's not a great deal to "show" here, as most of the work has been going on "under the hood" so to speak. And there's been a [i]lot[/i] of wor…
... - GO TO, GO SUB, DEF FN etc. (Ref)
Fixed - You ... -
Having trouble with some type-insI'm trying to enter some type-ins into BASin but I get into errors I can't handle. Since both type-ins are coming from the same book, it becomes a li…
... /> // page 150
130 DEF FN d(s$) = (s$ > "9 ... -
The best ... beginning with "D"Name (in your opinion) your "Best game beginning with [A to Z, one letter per post]". So, for the letter "D", which do you think are the: [B]Best g…
... ] I'd say the DEF FN command, but you have to ... -
Problem with PRINT #stream on +128kWorking on a +128k, I want to choose whether all report output goes to screen or printer, so I use PRINT #stream where stream = 2 or 3 for screen or …
... =ea TO ez: LET start=FN s(i$(i)): LET length ... (i$(i)): PRINT #stream;FN p$(i);: LET col=0< ... -
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 …
... -5):
LET newVARS=FN p(23627)+machine_code_length+1:
" POKE 23627,FN g(";newVARS;")"'
" POKE 23628 ... STOP
9162 LET mcpos=FN p(23627)-machine_code_length:
LOAD ... -
Is this a bug in BASin?Hi Folks, I seem to be getting a lot of issues when trying to use functions with BASin. For example, the following: [CODE]100 DEF FN a(x,y,p$)=COD…
... :
[CODE]100 DEF FN a(x,y,p$)=CODE ... TO y)
110 PRINT FN a(3,4,"Paddy")[/CODE ... -
A cheat's way of viewing magazine scan archives as double-page scansI don't know why I didn't think of this sooner - previously I was viewing my locally-stored magazine page image scans a page at a time, sort of killi…
I don't know why I didn't think of this sooner - previously I was viewing my locally-stored magazine page image scans a page at a time, sort of killing the effect a bit by not being able to see double-page spreads at a glance. So I came up with something.< ... -
New SpecBAS available - Procedures and Functions.Go here: [url]http://www.zxspectrum4.net/forum/viewtopic.php?f=6&t=17[/url] And get the latest if you're interested. I've added procedures and func…
Go here:
[url]http://www.zxspectrum4.net/forum/viewtopic.php?f=6&t=17[/url]
And get the latest if you're interested. I've added procedures and functions (DEF PROC and speccy-style DEF FN).
D. -
SpecBAS 0.646 now available.Yay! Here's another round of bugfixes and additions to the Program. Not so much of the extract coding features, but more back-to-basics this time: […
... a mark with CTRL-SHIFT-Fn (F1 - F10), and then jump ... to that mark with CTRl-Fn.
RENUMBER command. Renumbers either ... -
Speeding up select processing...Hi Folks, I have the following code in my program and it works fine but is rather "sluggish". I have even moved it to the beginning of the program …
... the attributes (s$). Resets the DEFADD system variable.
I ... -
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…
... they both work, the DEF FN wasn't totally satisfying, ... shortage of them) :); the DEF FN definition is shown below. (I ... /> 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 ... -
Find-Fill-Copy functions for BASICThere's not much going on here, so here's three m/code routines to provide some data manipulation functions which are otherwise slow to do from BASIC…
... rename as 'b']
. eg. FN f("z$()","b",find) -or ... - FN f("z()","",find)
* ... with value 'b'
. eg. FN f("z$()","wxyz",fill) -or ... 'b' (may overlap)
. eg. FN c(22528,22529,127,CHR ... ...,pn],r1" or "DEF FN f(p1[,p2...,pn])=USR ... -
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…
... to work?
DEF FN j$(s,l)=CHR$ PEEK ... (s)+VAL$ "FN j$(s+1,l-1 ... -
Memory move routine?Hi Folks, I have been searching for the thread that covers the memory move routine that uses a$=b$ via DEF FN. I thought it was written by Battle B…
... uses a$=b$ via DEF FN. I thought it was written ... -
those darned recursive functions againI've been stuck on this one all evening. I want to dump out some memory in binary to debug a program. I've got a simple mod 2 division loop to do tha…
... Dr Beep's recursive DEF FN version, but in between I ... I'd write a DEF FN to do it ... and despite ... :
[code]
100 DEF FN b$(n,s$)
=s ... $+VAL$ (("FN b$(" + STR$ INT (n/2 ... -
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)= ... [code]
GO SUB FN r(subroutine_line,number_of_levels,0)
...0 LET break=FN p(prog+19): REM break ... ,FN g(FN c()+1): POKE gs+1,FN h(FN ... ----------
9980 LET gln=FN p(prog+19): LET gst ... -
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…
... rightpad
... examples ...
FN p$(1.2,0,0 ... ,1) := "1.0"
FN p$(1,-5,3) := " 1 ... .000"
FN p$(1,-5,0) := " 1 ... 3) := "-00.120"
FN p$(0,0,0) := ""
A "bit" of a curiosityHaving to use a bit of m/code to do the AND in that key check function, I was prompted to revisit the "AND,XOR,OR,...for BASIC" topic and came up wit…
... RETURN
llll DEF FN b(a,b,c,d ... /256)
....
GO SUB FN b(val1,val2,opcode,bits ...SpecBAS 0.747 Now available!Hiya folks - it's update time again! SpecBAS has had a load of new fixes, as well as some new additions! Firstly, as you all wanted it, SpecBAS can…
... to crash
PROCedure and FN names can now be any ...need a new method for m/c parameter assignmentI've been using a variable length function of the form: "FN a$(a$,a[,b...,z])=STR$ USR md" to search a data table and return a string result. By putt…
... function of the form:
"FN a$(a$,a[,b...,z ... expression. This works but the FN side of it is too ... lose the flexibility of the FN method, which can be used ... is the flexibility of the FN method with the speed of ...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…
...
12 LET vars=FN p(23627)-alen:
POKE ... 23670,FN g(vars): POKE 23671,FN h(vars):
FN p(23627)+alen:
... POKE 23670,FN g(vars): POKE 23671,FN h(vars):
9999 LET vars=FN p(23627): LET check=1813 ...A 128 Routine to Put Tokens in StringsI was writing a DEF FN on the +128k and decided that I'd had enough of not being able to put function tokens in strings without a great palaver and s…
I was writing a DEF FN on the +128k and decided ... a quoted string. So for FN insert UDG F, for AND ... ...
[code]
9990 DATA "fn",168,"and",198,"len",177 ... ";l: RESTORE l: LET a=FN p(23639):
LET la ... b>=ae):
DEF FN p(a)=PEEK a+256 ...Andromeda Inc.Since there was a thread in the games section about Tarantula, I made a search and found the game [URL="http://www.worldofspectrum.org/infoseekid.cgi…
... :
[code]
DEF FN P$(Y)=CHR$ 0+CHR ... :
[code]
DEF FN P$(Y)=CHR$ 19+CHR ...ZX Spectrum Style Encrypter/Decrypter[code] H%kioyl^%%kioyl^(y+yllq1n^1inot[fyinot[fyllq1n^12]yuai]yuai]yuai~kioyl13-im9~inot[f)^llyllq1n^1+yllq1n^1inot[fHkioyl13-13()$*%kioyl^+yllq1n^1…
... ]yuai]yuai~W+yllq1n^1inot[fN+yllq1n^1inot[finot[finot[finot ... ~inot[f44(&**)+yllq1n^1inot[fN%kioyl^%%kioyl^(vinot[fyllq1n^12 ...handy method for passing m/c parametersI knew that a single number or string parameter could be passed to a m/c routine with either: [b]LET a=b+USR address[/b] puts b on the calculator st…
... quicker than using a DEF/FN, as there's no need ... parameters, for which a DEF FN would be better.
