-
LZ77 en/decodingI've written an LZ77 en/decoding routine as I couldn't find one around for the Spectrum. Initially I'm just doing it in BASIC to get the logic right.…
... NOT PI: LET t1=FN t(): RANDOMIZE USR m(2):
... LET t2=FN t(): PRINT ' ... t2-t1:
DEF FN p(a)=VAL "PEEK a ... y))/2:
DEF FN u()=VAL "65536*PEEK 23674 ... 50:
DEF FN t()=FN m(FN u(),FN u())
[/code ... -
+3 DOS questionHey all, Is it possible to catalogue a +3 disk to a variable somehow from BASIC? I'm looking at extending my Snapshot to Microdrive utility, so it s…
... />
[code]
2 DEF FN p(a)=PEEK a+256 ... 23740,15:
LET k1=FN p(23643): CAT : LET k2 ... =FN p(23643):
POKE 23739, ... )
22 PAUSE 0: RANDOMIZE USR 5808: GO TO 21
simplest method to pass a string to m/code?The statement "RANDOMIZE numvar+USR mc" is a simple way of passing a single numeric parameter to a m/c routine, as mc can retrieve numvar from the to…
Placing your USR call in a DEF FN and calling it with a ... /> [code]
10 DEF FN a(s$)=USR 4e4
20 LET ... s$="Hello World"
30 RANDOMIZE FN ...Store and restore attribute valuesI am needing ideas on how to write a machine code routine that will store/restore (more important to restore) attribute values to the 22528 area. I …
... /> POKE 23660,FN g(dd): POKE 23661,FN h(dd)
USR pg
org ... /> ----- BASIC version
DEF FN p(a)=PEEK a+256 ... ): POKE 23563,FN g(dd): POKE 23564,FN h(dd):
FN g(attadd),FN h(attadd),0,2 ...Need to scroll one column using m.c.I've used many of the available routines to scroll the entire screen in any direction, but I'm not being able to find one that would allow me to scro…
... ]
DEF FN l(c,t,b,a,p)=USR address
...
LET bc=FN l(column ... yes/no. So "LET bc=FN l(column,0,21,0 ... /> 1 DEF FN l(c,t,b,a,p)=USR 23296:
DEF FN r(a,z ...OpenSE BASIC 3.1.1The eagle-eyed will have noticed that [url="http://www.worldofspectrum.org/infoseekid.cgi?id=0027510"]SE BASIC[/url] got an update last week. As a te…
... errors both in numeric FN's and string FN's :)
FN handling, but because the USR function doesn't ... that your implementation of the USR function didn't return the ...OpenSE BASIC 3.1.1The eagle-eyed will have noticed that [url="http://www.worldofspectrum.org/infoseekid.cgi?id=0027510"]SE BASIC[/url] got an update last week. As a te…
... errors both in numeric FN's and string FN's :)[/quote]
FN handling, but because the USR function doesn't ... that your implementation of the USR function didn't return the ...General purpose full screen input routineHi Folks, One of the things that annoyed me back in the 1980s with most BASICs was the lack of a full screen "formatted" input function. You could …
... reduced to simply: "IF i6+USR valkey THEN ... [OK]"
[code]
100 DEF FN i(x,y,l,t ... table..."
....
GO SUB FN a(xcoord,ycoord,length,type ...General purpose full screen input routineHi Folks, One of the things that annoyed me back in the 1980s with most BASICs was the lack of a full screen "formatted" input function. You could …
... FUNCtion like DEF FN A(p1,p2,p3)=usr start
and ... then the lines under the DEF FN ... the procedure like a RANDOMIZE FN A(1,2,3)
Switching 48/128 modes within a BASIC programI'm not sure what use this would be; ie. being able to switch between 48k and 128k modes and back again from within a continuously running BASIC prog…
... /> [code]
2 DEF FN m(v)=v-(-1+(256 ... IF m$="s" THEN RANDOMIZE USR 32834
2013 IF m ... br /> 9000 PRINT "Report code ";FN m(PEEK 23681);" at line ... LET trap=32768: LET sp=FN p(23613):
POKE sp ... 9121 LET sp=FN p(23613): POKE sp,FN g(ret): POKE ...DooM on Spectrum 128kHello my fellow WoS'ers My hope is that you can help me, recently I discovered a DooM clone -esque on the Humble spectrum, - here is a [URL="https:/…
... /> 2 DEF FN r()=USR VAL "46118": DEF FN b()=VAL " ... 7: RANDOMIZE USR 46162
21 LET bc=FN r(): ... mb,16+7: RANDOMIZE USR 46180: STOP
115 ... r,b$: POKE mb,FN b():
POKE VAL ... 180":
RANDOMIZE USR r: LET bc=FN r():
RETURN ...A new ZX spectrum cloneOver the past 12 months i have been developing a new spectrum clone as a hobby project to waste my spare time on. It is still not fully complete yet …
... ... wait: how functions like USR with numeric argument, FN, VAL, string functions ...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…
... up things by using "PRINT USR a$,a[,b...,z];" method ... lose the flexibility of the FN method, which can be used ... 's wrong with LET dummy=USR etc...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…
... 's wrong with LET dummy=USR etc...[/QUOTE]
It ... -delimited list of parameters are FN, PRINT, DATA and READ. I ... was to put the DEF FN at the top of the ...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…
I use the PRINT USR [list of arguments] method ... hence the use of a FN - has to be at least ... is quicker, but adding the FN search overhead makes it slower ... I'd considered saving the FN address when the function is ... time the first one is "FN without DEF" which is ...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…
... [,d2...,dn])=STR$ USR md:
LET a$=FN a$("ds",d1 ... a TO b)
(virtual1): FN a$(a$,d1[,d2...,dn ... ]
Note that "STR$ USR md" does not return "STR ... DATA element specified by the FN parameters. In the "virtual" ...CAT!RAM and PUTRAMLast year sometime I posted a couple of routines to: * catalogue the 128k RAMdisk in BASIC; * move RAMTOP and the stacks from BASIC. CAT!RAM and PUTR…
... file data
2 DEF FN p(a)=PEEK a+256 ... )
9900 LET a=FN p(23427): LET e=(60416 ... br /> 9905 LET r=FN p(23730): IF r> ... /> LET f(n,d)=FN p(b)+VAL p$(PEEK ... /> LET f(n,d)=FN p(b): LET d=d ... >49151 THEN RANDOMIZE r+USR m
9951 RETURN ...BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... the 128k version the RANDOMIZE USR 16384 statement must be the ... want to use the DEF FN for the PEEKs, rather than ...BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... clear that now the RANDOMIZE USR 16384 statement must be the ... same line (like the DEF FN) then it won't work ...BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... DATA 1,2,3: DEF FN a(b,c)=b+c ... "a"+COS B+EXP c+FN a(b,c): LET b ... $=STR$ 12345: PRINT TAN a+USR b
35 LET a ... =USR "a": LET b=VAL "b": ...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…
... /> [b]LET a$="b$()"+STR$ USR address[/b]
and use ... , or else use the DEF FN method. Alternatively, you could do ... a$=(b$(p1,p2)+STR$ USR address)(TO 0)[/b]
USR code, but returns a null ...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…
... DEF FN (in this case, DEF FN a(a,b,c)=USR 65170 ...Designing an icon-driven adventure: looking for adviceHi fellas, after the release of Funky Fungus, I am currently contemplating the possibility of designing an icon-driven adventure with location graph…
... - maybe passing using DEF FN with a USR call. There is sure ...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…
... in the listing. The USR call returns a 32-digit ... answer and so "STR$ USR" must be used to call ...
102 PRINT STR$ USR LMUL10: GO TO 100
102 PRINT STR$ USR (LMUL10+3): GO TO 101 ... G)+FN b$(K)+FN b$(H)+FN b$(L)+
; FN b$(V)+FN ...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)…
... put the DEF FN in 1001 and the FN call in line ... />
[code]
1001 DEF FN t$(n,t,d)=STR ... t>500)
+VAL$ (("FN t$("
+STR$ (n-INT ...
