... particular demo.

A couple of extra notes:
LET a$(a TO b)=string expression" (it won't work); re-POKE ... the destination parameters to match the slice and use "LET a ... $=string expression".
[*]Because of the POKE overhead the ...

... (a+1)
12 RESTORE 11: DIM v$(20*32): LET da ... =FN p(23639)+8
13 RANDOMIZE FN a("a"(1)): LET ... pa=23563: LET pv=da: GO SUB ...
17 LET a$=v$(TO 160): STOP
90 POKE pa+1 ...

... br /> [CODE]640 LET dio=64440
920 LET dir=61000
945 POKE dir,PEEK dio
... IF PEEK dio=9 THEN LET enemy=enemy+1
970 LET a$(pos TO pos+1)=s ... TO 2)
980 LET a$(pos+32 TO pos+ ... 1010 NEXT x
1020 LET pos=pos+32
...

... STEP 16: LET u=t: LET b$="":
FOR a=1 TO 31 ... )+t$(u): LET u=u+1: NEXT a:
LET v$=v$+b ... $+b$: [strike]LET v=v ... GO SUB 1000: LET ft=t0
60 PRINT v$;"Time : ";INT ...

... Bunny;756801]Here's a similar idea. Line 35 times ... STEP 16: LET u=t: LET b$="":
FOR a=1 TO ... t$(u): LET u=u+1: NEXT a:
LET v$=v$+ ... b$+b$: LET v=v+ ... GO SUB 1000: LET ft=t0
60 PRINT v$;"Time : "; ...

... ]
...
10 LET a=bytes: LET iv=0: LET bt=0: DIM n ...
PRINT "[";: FOR d=1 TO 5: LET n(d)=PEEK (a+d ... ): NEXT d: GO SUB 2000:
PRINT ... ynk; FLASH ynk=2;number;: PRINT "]";: LET a=a+6: GO TO 21

... LET loc=VAL VAL$ (CHR$ PEEK (a-3)+"$"):POKE a+1,FN l(loc): POKE a ... +2,FN h(loc): POKE a+3 ... ,FN l(l): POKE a+4 ... ,FN h(l)
7 POKE a,0: NEXT a: LET a$=b$: POKE da ...

Here's a BASIC routine which adds or ... -45 do the operation on a single pair of digits and ... 2: "'z$:
LET o$="+-"((o$="-")+1): LET n$="-+"((o$="-")+1)
15 LET y$=y$( TO 16-(16- ...

... a as uinteger

for a=0 to 4
print peek ... (@datalabel+a)
next a

datalabel ... =1 to 10
30 let a(f)=peek (54999+f)

... a as uinteger

for a=0 to 4
print peek ... (@datalabel+a)
next a

datalabel ... =1 to 10
30 let a(f)=peek (54999+f)
Cheers LCD, I'll take a look at that in my ...

... /> [CODE]10 LET X=10:LET Y=10
20 LET a$="AB"
30 LET b$="CD"
40 LET c$=" "
45 LET ... OX=X:LET OY=Y
a" THEN LET Y=Y+1
100 PRINT AT OY ... C$
101 PRINT AT Y,X;a$;AT Y+1,X ...

[QUOTE=ccowley;772349]Doesn't that mean that POKE is ~40% faster than PRINT with OVER 1?[/QUOTE]

For a single character. For a sequence, PRINT is faster.

... wait for the magazines to print the pokes for the games ... .

Whenever anyone said a game was unhackable, the genius ... in, or a poke file on tape which would load, poke and run ... . I have managed to make a poke file that works in ALLRAM ...

... i$(1): LET w=x: LET z=y:
LET a$=CHR$ 18+CHR ... $ 1+"CD":
LET c$=" ": PRINT AT x,y;a$: PRINT AT x+1 ... ,y;b$
45 LET ... w=X: LET ...

... wait for the magazines to print the pokes for the games ... .

Whenever anyone said a game was unhackable, the genius ... in, or a poke file on tape which would load, poke and run ... . I have managed to make a poke file that works in ALLRAM ...

... 1
70 LET a=IN 65339
80 PRINT "a=";a[/CODE]

... i$(1): LET w=x: LET z=y:
LET a$=CHR$ 18+CHR ... $ 1+"CD":
LET c$=" ": PRINT AT x,y;a$: PRINT AT x+1 ... ,y;b$
45 LET ... w=X: LET ...

... br /> IF SPCOLL jj THEN PRINT AT 3,30:"jj" : ... PAUSE 4 : PRINT AT 3,30;" ":SPRITE COLLIDE ... br /> 360 LET a$=INKEY$
370 IF a$"x" AND a$" " THEN YIELD ... 1,30;"jj": PAUSE 4: PRINT AT 1,30;" ": SPRITE ... 2,30;"kk": PAUSE 4: PRINT AT 2,30;" ": SPRITE ...

This also ...

10 let a = 1/2

20 if a .5 then print "failed"

I belive it's because the speccy uses the same FP routines as the zx81, which even with the "improved rom" never held certain numbers correctly.

... /> 10 let a = 1/2

20 if a .5 then print "failed ... .[/QUOTE]
Yep that's a well known ROM bug discovered ...

... LET x=0
20 LET x=x+0.1
30 print ... point numbers only have a finite precision and can ... therefore only represent a small set of numbers ... point formal only has a 32-bit mantissa. This ... 10 let a = 1/2

20 if a .5 then print "failed ...

... ,6"
1020 LET np=0
1025 PRINT #5;AT 1 ... GO TO 1060
1040 PRINT #5;AT (np+3)*8 ... ,0;o$;". ";t$
1050 LET np=np+1: GO TO ... /> 1060 CLOSE #5
1070 PRINT #0;AT 1,0;"CHOOSE ... LOAD"
1080 PAUSE 0: LET a$=INKEY$
1090 RESTORE

... w(a$,"."):
LET a$=a$+(".0" AND NOT ap): LET n$(a)=a$: LET al=LEN a$:
LET ... -1)+"."+a$(ap+1 TO ): LET o$(a)=n$(a):
NEXT a:
PRINT "start ...

... :
LET i=FN a(x,y,h,v,a)
to print the ... box. Here's a ... ' ;store attribute byte in A'
ld a,(a63092) ;get row y ... %00000111
ld h,a
ld a,l
and %11100000 ...

... :

10 LET A=IN 31
20 PRINT AT 5,5 ... ;A;" ";
30 GO TO ...

And if you want some colour...

10 LET A=IN 31
20 PRINT AT 5,5;A;" ";
30 IF A7 THEN BORDER A/2-1
50 GO TO 10

[B][I]Mark[/I][/B]

... TO 1
30 LET n$=STR$ a+STR$ b+STR$ c ... /> NEXT b:
NEXT a
60 PRINT n$[/code]

50 PRINT h$;l$[/code]

30 PRINT FN b$(INT (n/16 ... /> 50 GOTO 30
60 PRINT n$[/code]

And ...

Similar to Battle Bunny:

[CODE]
10 INPUT A: LET s$= "": PRINT A; "=";
20 LET s$= STR$(A-2*INT(A/2)) + s$
30 LET A= INT(A/2): IF A THEN GO TO 20
40 PRINT s$: GO TO 10
[/CODE]

... /> 10 INPUT A: LET s$= "": LET N= 128: PRINT A; "=";
20 IF A>255 ... THEN PRINT "Incorrect number ... A: LET S= 0: LET N= 128: PRINT A; "=";
20 IF A>255 THEN PRINT ...

Let's find a poke to obtain infinite deaths.