-
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)…
... that the nested and recursive FN methods were both overly complicated ... , "PRINT AT 0,0;STR$ USR digital" will run it.
128 BASIC-compatible way of loading BASIC as code?On a 48K Speccy (or from 48 BASIC or USR 0 mode on a 128K machine), one can do a silly trick like this: [code];; load a 4000 byte BASIC program ld i…
... PEEK 23731:
LET VARS=FN p(23627): POKE 23680,PEEK ... 23628:
LET ELINE=FN p(23641): POKE 23627,PEEK ... :
CLEAR FN p(23677)
9005 PRINT USR 65368
... with "RANDOMIZE bytes: CLS: PRINT USR 65390"
LOADPROG:< ...Break into programIs there any way of stopping people using the break option in my software productions so they can list the code.
... . There's no direct USR call to the trap routine ... tadd={trap address}: LET sp=FN p(23613): READ tlen:< ... : NEXT a:
RANDOMIZE FN p(sp): POKE 23680,PEEK ... RANDOMIZE: RETURN
9994 DEF FN p(a)=PEEK a+256 ...
9996 LET sp=FN p(23613): POKE sp, ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... to A
cp 237 ; USR?
jr nz, s_stk_lst ; jump ... not
bit 6, (hl) ; USR number?
jr nz, s_stk_lst ...IF EXIST?In MS-DOS scripting, there is an IF EXIST command that lets you check wether a file exists in disk or not. There are any way to check it out from BA…
... /> [code]
2 DEF FN o(f$)=USR 32768
10 CAT ... f$
20 LET exists=FN o(f$+CHR$ 255)
FN o(f$) arg
ld ...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…
... routine as well as from FN s$().
So ... /> ; LET ScrDol0=num1+(num2+(num3+USR BlockGen))-(num1+num2+num3)
; LET ScrDol0=USR BlockGen
; where num1, etc ... br /> ; DEF FN s$(r,c)=STR$ USR ScrDol0
; ... FN s$(row ...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…
... "CONTINUE",
"COPY", "DATA", "DEF FN", "DIM", "DRAW", "ERASE", "FLASH", "FORMAT ... "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY$", "INT",
"IN", "LEN ... "SIN", "SQR", "STR$", "TAN", "TO", "USR", "VAL$", "VAL",
"AT", "LINE ...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…
... ", "CONTINUE",
"COPY", "DATA", "DEF FN", "DIM", "DRAW", "ERASE", "FLASH", "FORMAT ... ", "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY$", "INT",
"IN", "LEN ... ", "SIN", "SQR", "STR$", "TAN", "TO", "USR", "VAL$", "VAL",
"AT", "LINE ...Binary to REMHi, I'd like to convert binary data stored on tape into BASIC rem statements that I will then save to disk. Is there a utility to extract the files …
... its first byte, then RANDOMIZE USR (rv+1) will run it ... memory, then RESTORE 10: RANDOMIZE USR (FN p(23639)+6) will run ... it; otherwise, RESTORE 10: RANDOMIZE USR (PEEK 23639+256*PEEK 23640 ...Turbo save?I'm doing some experiments with turbo loaders, and I don't know how to save turbo blocks on virtual tapes. Spectaculator and fuse don't seem to save…
... via [b]DEF FN A(A,B,C)=USR 65170[/b]. When ... using FN, A is 0 ...Turbo save?I'm doing some experiments with turbo loaders, and I don't know how to save turbo blocks on virtual tapes. Spectaculator and fuse don't seem to save…
... /> - I don't use DEF FN to load. Instead, I load ... loaded at 24532 and the USR is 31904 (but the BASIC ...Exploding routineI've been mucking about with 'Explode' from YS Program Pitstop, but I can not get it to work independently of the basic program. LET L=USR 61456 doe…
... line 10. It's function FN e(), which is defined as ... :
[code]10 DEF FN e(a,b,c,d ... ,g,h,i,j,k)=USR 60000[/code]
Where:
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…
... br /> 9900 RESTORE 9992: RANDOMIZE USR (FN p(23639)+6):
RESTORE ... br /> RESTORE 9991: LET s1=FN p(23639)+6:
DATA ... o,"Name ";o$: LET o=FN i(o,2,7): GO ... br /> FOR i=FN p(s1) TO FN p(s1+2)- ... br /> LET i=i+2+FN p(i+1): PRINT "$" ...quick RAM copy using LET in BASICI'm in the process of reviewing, revising and refining all the programming tips & utility routines which I've posted on this forum over the last eigh…
... =Crisis;759807]put the DEF FN of line 2 at start ... 128 editor, and because the USR call is integrated with the ...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…
... [code]
9999 DEF FN p(a)=PEEK a+256 ... a+1):
DEF FN v()=FN p(23627):
POKE ... AND (PEEK FN v()193 OR FN p(FN v()+4)1900 ... OR marg> PEEK (FN v()+9))):
LET tabs ... RANDOMIZE marg=(tabs=USR (FN p(FN v()+6)-(63600-(FN v()+6)))):
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…
... program being listed had a FN with the same name, and ... +11))):
RANDOMIZE m=(t=USR (v+6+c-63600)):
Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
... up a couple of DEF FN statements to some machine code ... like this:
GO SUB FN b(val1,val2,opcode,bits ... 're called with PRINT USR rather than DEF FN. (Looking at them ...Basic program malfunctionHello. Please does anyone know why this basic program 10 LET x=0 20 LET x=x+0.1 30 print x 40 if x<>1 then goto 20 50 STOP does not properly work o…
... method - "DEF FN p$(n,l,r)=STR$ USR padnum" returns number ...Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
... ]1 DEF FN a(x,y,h,v)=USR 63000
2 ... 0
25 LET i=FN a(5,5,20,15 ...Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
Game of Life.Last year (I think) or maybe the year before, I entered a Game of Life simulator into the CSS CGC compo but for the Sinclair ZX81. I decided to port…
... br /> [code] 3 DEF FN p(a)=PEEK a+256 ... CLEAR 32767:
LET cd=FN p(23730)+1: REM LOAD ... 5 LET InitG=FN p(cd): LET InitP=FN p(cd+2 ... ):
LET GenPG=FN p(cd+4): LET InitS ... />
GenPG: ;LET bc=USR GenPG
di
ld ...Game of Life.Last year (I think) or maybe the year before, I entered a Game of Life simulator into the CSS CGC compo but for the Sinclair ZX81. I decided to port…
...
[code]
3 DEF FN p(a)=PEEK a+256 ... CLEAR 32767:
LET cd=FN p(23730)+1: REM LOAD ... InitS=FN p(cd+6)
11 RANDOMIZE 0: LET bc=USR ... bc=den=((i-1)*32)+USR InitG: NEXT i:
... ";gen'p$:
LET bc=USR GenPG: IF INKEY$=" " THEN GO ...The 20th comp.sys.sinclair Crap Games Competition thread!Hi all, [SIZE="7"][B][CENTER]ANNOUNCEMENT![/CENTER][/B][/SIZE] The comp.sys.sinclair Crap Games Competition 2015 is now well and truly OPEN! [url]…
... BIN CHR$ CODE COS EXP FN IN INKEY$ INT LEN LN ... SIN SQR STR$ TAB TAN USR VAL VAL$
RND ...Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
... />
1 DEF FN l(x,y)=USR 60000
and ... a block with, say, RANDOMIZE FN l(16384, 6912)
;; uncomment to USR 0 on tape error
;; definition like FN l(x,y). The first ...
