-
Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... )
// s = string to print, can contain:
// \n ...
[code]
// compute initial print position of line
poke with the attribute value. ... to do it a fast way where if there ... -
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…
... sayings flash by really fast untill the desired on ... once used was to POKE the system variable which ... the statement following the PRINT command in both cases.< ...
IF h=1 THEN PRINT "hello";
is ... like
PRINT "hello"(1 TO 5*h ... -
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…
... =0: LET r$="": PRINT "Looking for Lychrel numbers": PRINT "===========================": PRINT : INPUT "number: ";n ... TO l): NEXT l: POKE 23692,255: PRINT a$: IF r$a ... the very old (but very fast) emulator WinZ80, (which I haven ... -
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…
... ), but the generator is very fast and short enough to support ... Maze[/B], generated almost as fast as [B]Labyrin3D[/B]. And ... a routine like this to print the overhead map:
FOR f=...
POKE 22496+f,m(f)*v ... -
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…
... '. I think this is as fast as you're going to ... r$(p+8)="I":
POKE 23692,0:
LET f ... 255:
POKE 23688,f:
POKE 23689,g:
PRINT r$(1 ... ):
READ f,g:
PRINT OVER 1;AT 0,s ... -
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…
... BASIC and it's reasonably fast.[/quote] It certainly is! Is ... doesn't work if I print whole lines with the same ... TO 255: POKE a,f: POKE a+1,g: PRINT r$(1 TO ... 32): READ f,g: PRINT ... ),r$(p+8),s: RESTORE : POKE 23620,23-2*(s> ... -
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 ... -
Printing in 64 columns, from Basic?Not strictly a Sinclair Basic question but... Is there any known machine code utility that allows something similar to PRINT AT that can be called fr…
... is a crap 64 column print subroutine entirely written in ...
[code]
1 REM fast
10 GO SUB 7100 ... yazi rutini ***
2002 POKE 23606,188: POKE 23607,250
2005 ... : LET x=0
2009 PRINT AT x,0;" "
2010 ... -
Print at 128,87? :)The advanced search function didn't help me find the answer to this, and I don't remember seeing anything similar in magazines or books... so please …
... You're completely right. 'Print To' was my own ... it easier to make a fast analysis of 'prtstrm.bin' ... init strm 4)
PRINT AT 3,12;"Hello world ... "Q" then Print "Q is pressed".
30 POKE 23728, CODE " ... INKEY$ #4 = "P" then Print "P is pressed".
[/ ... -
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. …
... . you have a top/bottom PRINT statement. This allows the full ... use of the PRINT features e.g. colours etc ...
140 PRINT AT 0,0;a
145 POKE DTOP,PEEK ... DTOP=DTOP+1
155 POKE DTOP,PEEK CHARS
160 ... -
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. …
...
110 REM *------------------------*
111 POKE 23607,249 : REM 256 less ... =0 TO 87: POKE 23606,f
140 PRINT AT 5,5 ... /> 190 REM *------------------------*
200 POKE 23606,0: POKE 23607,60: REM Reset ... : FOR A=0 TO 79: POKE NUMS+A,PEEK (CHARS+A ... -
A type-in BASIC platformer that's worth a goWorking on some type-ins for TTFn, from Games Computing, I came across [url=http://www.users.globalnet.co.uk/~jg27paw4/pourri/patpostman.zip]The Adve…
... piece of program, it looks fast for a basic program. I ... game programmer do): I first print all the screen with white ... I poke the attributes, it looked like screen is drawn very fast ... array (one row each), and print level data line by line ... -
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. …
... sprite, I only had to poke to the right addresses in ... is faster than do a PRINT to erase a sprite, then ... another PRINT to show the updated one ... . The resulting code was so fast that I had to insert ... -
INSTR function...Hi Folks, Another little program that people might find useful: [CODE]100 DIM i(4) 110 LET a$="This is some sample text" 120 LET b$="text" 130 GO S…
... s$
5b3f edb1 CPIR ; fast search inside t$
5b41 ... TO i+1)))
1030 POKE L,c
1040 LET ... is some text"
2005 PRINT s$'''"looking for 'is'"
PRINT AT 1,p;"^": LET p ... -
Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
... :
[CODE]100 REM Fast
110 REM
120 ... /> 390 REM
400 POKE 23692,255: PRINT a;TAB 8;b ...
440 IF b142 THEN PRINT "142": STOP
450 REM ...
530 REM
540 PRINT : PRINT b101,b142
550 REM ... -
A new multicolor engine called BIFROST*I'm glad to announce the release of a new multicolor engine implemented by yours truly, including high quality 16x16 tiles designed by R-Tape: [IMG]…
... IF a$="2" THEN POKE 56787,254: PRINT AT 20,25;" slow ... )"
260 IF a$="4" THEN POKE ... 56787,198: PRINT AT 20,25;" fast)"
270 ... PRINT AT 20,17;"2"
130 RANDOMIZE NOT USR 65016: POKE ... -
A new multicolor engine called BIFROST*I'm glad to announce the release of a new multicolor engine implemented by yours truly, including high quality 16x16 tiles designed by R-Tape: [IMG]…
... :
[CODE] 230 PRINT AT 22,1;INK 7 ... IF a$="2" THEN POKE 56787,254: PRINT AT 20,25;" ... slow)"
260 IF a$="4" THEN POKE ... 56787,198: PRINT AT 20,25;" fast)"
270 ... TO 240
280 PRINT AT 22,1,,: RETURN[/CODE ... -
A new multicolor engine called BIFROST*I'm glad to announce the release of a new multicolor engine implemented by yours truly, including high quality 16x16 tiles designed by R-Tape: [IMG]…
...
150 BIFROSTresetAnim4Frames()
160 PRINT AT 20,1;"Directly modifying ... /> 192 IF b=0 THEN POKE y,x*8
ELSE ... POKE y,x
END IF< ... $="4" THEN BIFROSTresetAnimFast(): PRINT AT 20,25;" fast)": END IF
270 ... -
Dimming the screen...Hi Folks, I was hoping someone on here could help me with a wee machine code routine. I have written the following example in BASIC: [CODE]100 REM…
... CLS
110 REM FAST
120 BRIGHT 1: FOR ... ": NEXT x: NEXT y: PRINT #0;AT 0,0; BRIGHT ... a=22528 TO 23231: POKE a,PEEK a-(64 ... a
160 REM PRINT AT 0,0; OVER 1 ... Dim Screen
320 PRINT c$
330 REM ... load at runtime. The [B]PRINT c$[/B] (line 320) ... -
Dimming the screen...Hi Folks, I was hoping someone on here could help me with a wee machine code routine. I have written the following example in BASIC: [CODE]100 REM…
... /> 110 REM
120 REM FAST
130 REM
140 ... : PAPER 0: INK 7: CLS : PRINT AT 0,0; INK 4 ... =63541 TO 63552: READ b: POKE a,b: NEXT a
PRINT AT y,x; PAPER 1 ... -
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 …
... /> 160 REM
170 REM FAST
180 REM
190 ... REM
290 POKE P,ATTR (i2,i0): PRINT AT i2,i0 ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... RETURN
113 PRINT "A crocodile can't poke its tongue out ... :p";: RETURN
114 PRINT "Sea ... br /> 127 PRINT "An average person's yearly fast food intake will ... contain 12 pubic hairs.";: RETURN
128 PRINT ... -
Tutorial - learn machine code in 30mins[B][I]Message from the moderators[/I] - bigjon has requested that readers' attention be drawn to a better version of this tutorial, one which is easi…
... the machine code and print the score we have ... our machine code at free, fast-running (over 32768) and ... , go to GAMEOVER.
;print car
;scroll road
10 PRINT AT 0,0; "Your ... per byte.
Try POKE-ing 255 into bytes within ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... awake and they strike pretty fast! Line 2230 is where ... TO 31: READ g: POKE 65368+j,g: NEXT j ... TO 15: INK 1: PRINT AT j,0;CHR$ 143 ... CHR$ 143: NEXT j: REM print background
1220 INK 6 ... =2: LET nw=0: PRINT AT ny,nx; INK 5 ... -200*w
2010 PRINT AT y,x; INK 6 ... -
Graphics questionHello. I was wondering, does anybody here know of a method to display a large (as in, the better part of the screen) bitmap/raster image using ZX Sp…
... in Assembler and so very fast. Boriels ZX Basic Compiler is ... /256): POKE 23606,p-256*PEEK 23607
110 PRINT a$;
900 POKE 23606,0: POKE 23607,60[/code]
print full screen composed of 24 ... -
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…
... to assembler, but it's fast enough.
[url]http ... (23627):
POKE 23618,15:
POKE 23619,39:
POKE 23620,6 ... v()+6)))):
STOP:
PRINT "no code":
STOP:
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$=" …
... )=USR 63000
2 REM FAST
10 CLS
11 ... : FOR x=0 TO 31: PRINT AT y,x; PAPER RND ... -1: READ a
7002 POKE (b+i),a: LET z ... READ a: IF az THEN PRINT "??": STOP
7006 RETURN
