-
Random-Access to Microdrive FileI am working on a BASIC program to backup a microdrive text-file to standard tape array-file. To backup a text-file from one microdrive to a secon…
... RandAccess
20 LET udg=USR "a"
99 CLEAR #
POKE DEFADD,0:
POKE DEFADD+1,0
1040 IF CHR$ PEEK (cha+4)"M" THEN ... (511)
1430 PRINT #N;CHR$ PEEK (cha+593);
1440 ... -
Run BASIC program by R. USR xxxxxGuys, please help. Suppose I have BASIC program in my Spectrum 48K starting with line 10. I'd like to start it by RANDOMIZE USR xxxxx. Which paramete…
... in NSPPC with RANDOMIZE USR 7030 did what I ... of BASIC program by RAND. USR call.
... In the vector-adress you poke the adress of your ... /> in 60000/60001 you poke the adress 64000
... :
DEFS "NO BREAK ALLOWED!"+CHR$ (0)
[/code]
Run BASIC program by R. USR xxxxxGuys, please help. Suppose I have BASIC program in my Spectrum 48K starting with line 10. I'd like to start it by RANDOMIZE USR xxxxx. Which paramete…
... in NSPPC with RANDOMIZE USR 7030 did what I ... of BASIC program by RAND. USR call.
... In the vector-adress you poke the adress of your ... /> in 60000/60001 you poke the adress 64000
... :
DEFS "NO BREAK ALLOWED!"+CHR$ (0)
[/code]
New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
... ) you can use this poke:
POKE PEEK 23633 + 256 * PEEK ... "HELLO"
POKE 23618,10: POKE 23619,0 : POKE 23620,2
or
POKE 23618,10: POKE 23619,2 : POKE 23620,0
CHR$(144): REM UDG A
Ways to use double buffering in basicI was meddling with woody's print stream code where you can print characters at any pixel location on screen. I was playing with 12 sprites, very ann…
... /> 1280 let h$=chr$ 17+chr$ 6+chr$ 20+chr$ 1+s$
1290 ...Autorun BASIC programsIs it possible to write a basic program which will autorun after typing in LOAD ""? Thanks
... :READ b:POKE a,b:NEXT a
50 RANDOMIZE USR 50000 ... TO 50024:PRINT FLASH 1;CHR$ PEEK n;:NEXT n
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... FOR f=USR "a" TO USR "b"+7: READ a: POKE f,a ... :
PRINT AT 0,x;CHR$ 144: PRINT AT 21,INT ... 2;CHR$ 145:
LET score=score+1: LET f=USR 3282 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... FOR f=USR "a" TO USR "b"+7: READ a: POKE f,a ... :
PRINT AT 0,x;CHR$ 144: PRINT AT 21,INT ... 2;CHR$ 145:
LET score=score+1: LET f=USR 3282 ... , I have no idea what 'USR 3282' and '1000*ATTR' etc ... : FOR g=1 TO 3: POKE 23692,255: FOR f=21 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... I have no idea what 'USR 3282' and '1000*ATTR' ... :lol:[/QUOTE]
The USR 3282 is a call to ... saves you having to repeatedly POKE the system variable to stop ... 65368 TO 65431: READ a: POKE f,a: NEXT f: LET ... g;CHR$ (145+g): NEXT g:
LET s=s+USR 3282 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... : FOR i=USR "a" TO USR "a"+7: READ k: POKE i,k ... ;" ";AT y/9,x/9;CHR$ 144;: LET o=x: LET ...Using a multiface to exit to BasicBack in the days I was always fascinated with the idea of getting access to BASIC listings inside a program or game. I was able to work a way around …
... :READ b:POKE a,b:NEXT a
50 RANDOMIZE USR 50000 ... TO 50024:PRINT FLASH 1;CHR$ PEEK n;:NEXT n
Using a multiface to exit to BasicBack in the days I was always fascinated with the idea of getting access to BASIC listings inside a program or game. I was able to work a way around …
... br /> 2 LOAD "" CODE : RANDOMIZE USR 0[/code]Numbers in listings ... , the ASCII part, then a CHR$(14) and last, five bytes ... )
2 LOAD "" CODE : RANDOMIZE USR 0
(in memory, decimal ... [/B] 013)[/code]If you POKE the highlighted numbers above WITHOUT ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... x=RND*36+10:
POKE n*(c$(x)>"O ... "),3:
LET c$(x)=CHR$ (CODE c$(x)-40):
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 DEF FN a(r,n)=r-INT (r/n)*n:
READ c$,m,n,v,p:
LET x=RND*36+10:
POKE n*(c$(x)>"O"),3:
LET c$(x)=CHR$ (CODE c$(x)-40):
LET c=FN a(3+PEEK 23673,256):
CLS :
LET x=x+n*(c$(p)BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... Symbol Shift and '9'
CHR$ Caps Shift+Symbol Shift, then ... Symbol Shift and '8'
POKE 'O' at the flashing K ... Symbol Shift and 'F'
USR Caps Shift+Symbol Shift, then ...BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... /> CAT : E : SYM + 9
CHR$ : E : U
CIRCLE : E ... /> POINT : E : SYM + 8
POKE : K : O
PRINT : K ... TO : KLC : SYM + F
USR : E : L
VAL : E ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... problem so far
POKE n,12:
Go to ... the part generated
POKE (m$(p)=b$)*n,6 ... isn't used
POKE (m$(p+d+d)=" ")*n ... in the generatingroutine.
POKE (fNew oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... ,p,f,b,x:
POKE n,12:
LET s ... )+325+2*s/3:
POKE (m$(p)=b$)*n,6 ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[QUOTE=Dr BEEP;266919]It is based on WHEELIE when you must try to get back before the ghostrider does. I altered the plot to a road and pigeon.[/QUOTE]
Good work!
[QUOTE=Digital Prawn;266901]No doubt if Einar logs in and ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... ,b$,n,s,m:
POKE n,12:
LET s ... )+325+2*s/3:
POKE (m$(p)=b$)*n,6 ...Microdrive CATIs there a way in Basic to obtain any more useful info on the contents of a Microdrive? File size, head info for example? Also, is it possible in ge…
... CLS ?: INPUT "Enter Microdrive";A: POKE 55993,A: CLS : PRINT
AT 0,0;: RANDOMIZE USR 55648: LET NO=PEEK 56072 ... =Q+1 TO NO: PRINT CHR$ PEEK N;: NEXT N
Using INPUT without clearing last two lines of screen?I'm trying to print to the 22nd row of the screen using the ol' print #0 trick. Unfortunately, I require user INPUT which seems to wipe out the botto…
... #1;AT 1,0;"Name: ";USR 8385;AT 1,6;b ... wanted! However, what is this POKE that you refer to for ...
2) Nevermind. A chr$ 8 at the end of ...Using INPUT without clearing last two lines of screen?I'm trying to print to the 22nd row of the screen using the ol' print #0 trick. Unfortunately, I require user INPUT which seems to wipe out the botto…
... wanted! However, what is this POKE that you refer to for ...
2) Nevermind. A chr$ 8 at the end of ... ...[/QUOTE]
The exact poke will depend on where the ... #1;AT 1,0;"Name: ";USR 8385;AT 1,6; b ... PEEK f=CODE "b" THEN POKE f-1,202: STOP
Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... FOR F= USR "a" TO USR "u": READ a: POKE F,a: NEXT ... mode by doing: [B]print chr$ 144[/B]. This will print ... graphics A. [B]print chr$(144+1[/B]) will print ...Help loading OPUS data block ?Hi folks, A while back I obtained a Daton Software Card Games compilation which will be in the next Vault update: http://www.worldofspectrum.org/inf…
... copy a simple POKE statement is added. The POKE ensures
... #INT RND:
LOAD *SGN USR 23401;CHR$ INT RND
USR 23401'. After that, the BASIC
file named (CHR$ 0 ... name), with
an added POKE 23377,128 statement following the ...The incredible shrinking screendumpIn this topic I stated that I would be impressed if the screendump could be smaller than 37 bytes. [url="http://www.worldofspectrum.org/forums/viewt…
... plus the solution:
10 POKE 40000, 201 :REM this is ... in MC
20 PRINT USR 40000
30 PRINT TAB ... USR 40000;"OK"
You might ... at the end make the CHR(13) due to lacking a ...+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…
... =28672 TO 28788: READ p: POKE a,p: NEXT a
POKE 23658,8
50 INPUT ... $+"."+s$+CHR$ 255
60 FOR a=28659 TO 28671: POKE a ... a
70 LET open=USR 28672
75 LET f ... PRINT f$;" exists": LET close=USR 28740
100 GO TO ...
