... [B]10 BORDER 6 : PAUSE 1 : BORDER 2 : PAUSE 1 : GOTO 10[/B] on ...

... so. 10 RANDOMIZE USR update:PAUSE 1:GO TO 10 will work ...

... so. 10 RANDOMIZE USR update:PAUSE 1:GO TO 10 will work ...

... you are then:-

1. The PEEK dialog thinks address ... BASIC program:
10 PAUSE 1: POKE 22528,1: POKE 22528,30: GOTO ... , I'm wrong about number 1. It's only that the ...

... you are then:-

1. The PEEK dialog thinks address ... , I'm wrong about number 1. It's only that the ... BASIC program:
10 PAUSE 1: POKE 22528,1: POKE 22528,30: GOTO ...

... code like [code]50 => [:pause, 1, ':', :randomize, :usr, 0xc005, ':', :goto, 50 ...

... timing you should need is PAUSE 1 to sync with the frame ...

... timing you should need is PAUSE 1 to sync with the frame ... pressing a key aborts any PAUSE command, at least in normal ... used PAUSE 1, then that won't damage the timing, as PAUSE 1 will ...

... routine is that it uses 1.5K of memory to ...
105 BORDER 1: PAPER 1: INK 7: BRIGHT 1: PAUSE 1: CLS
... br /> 150 LET DTOP=DTOP+1
155 POKE DTOP, ... br /> 160 LET DTOP=DTOP+1
165 LET CHARS= ... CHARS+1: LET a=a+1: LET count=count+1
...

... routine is that it uses 1.5K of memory to ...
105 BORDER 1: PAPER 1: INK 7: BRIGHT 1: PAUSE 1: CLS
... br /> 150 LET DTOP=DTOP+1
155 POKE DTOP, ... br /> 160 LET DTOP=DTOP+1
165 LET CHARS= ... CHARS+1: LET a=a+1: LET count=count+1
...

...
[CODE]100 PAUSE 1: BRIGHT 1: BORDER 1: PAPER 1: INK 7: CLS
260 FOR a=1 TO LEN (p$)
...
320 FOR b=1 TO 2
340 PRINT ...
370 FOR c=1 TO 4
380 ... /> 410 LET ca=ca+1
420 NEXT c ... /> 440 LET y=y+1
450 NEXT b ...

... Spectrum.

Program 1 generates the chatacter set data ... 0: INK 7: BRIGHT 0: PAUSE 1: CLS
110 LET ... br /> 150 LET DTOP=DTOP+1
155 POKE DTOP, ... br /> 160 LET DTOP=DTOP+1
165 LET CHARS= ... CHARS+1: LET a=a+1: LET count=count+1
...

... 0: PAPER 0: INK 7: PAUSE 1: BORDER 0: CLS
... RANDOMIZE : DIM p$(50,1): FOR a=1 TO 50: LET p ... $=p$(a): LET b=a-1: LET done=0
... $(b)=p$(b+1): LET b=b+1: GO TO 210 ... $(b)=t$: LET a=a-1: GO TO 190
... .6% better than Bubble Sort 1.

Can anyone ...

... 0: PAPER 0: INK 7: PAUSE 1: BORDER 0: CLS
... RANDOMIZE : DIM p$(50,1): FOR a=1 TO 50: LET p ... $=p$(a): LET b=a-1: LET done=0
... $(b)=p$(b+1): LET b=b+1: GO TO 210 ... $(b)=t$: LET a=a-1: GO TO 190
... .6% better than Bubble Sort 1.

Can anyone ...

... 0: PAPER 0: INK 7: PAUSE 1: BORDER 0: CLS
110 ... RANDOMIZE : DIM p$(50,1): FOR a=1 TO 50: LET p ...

Hi Dr. Beep,

Tried one of the tricks you said (move the code nearer the top) and a couple of other optimisations and the Shell Sort now averages 10.3 seconds rather than 11.57.

[CODE]100 GO SUB 250
110 REM SHELL SORT V2

Hi Battle Bunny,

Never ceases to amaze me the difference in performance between BASIC and MCODE. Sounds like you have a powerful routine there.

I have modified my demo version so that it can be used (for future generations ;)) as ...

Hi Dr Beep etc.

Come on guys - you know more about Sinclair BASIC than is healthy! :smile: Surely you have some tips to optimise/speed up the following code.

[CODE]100 GO SUB 250
110 REM SHELL SORT V4
120 LET b=INT (n ...

... original V1 Comb Sort (using 1.3 divider) = ~19 seconds< ... 's V2 Comb Sort (using 1.3 divider) = ~27 seconds ... 0
150 FOR a=1 TO n-b:
... d)=b$:
LET c=1
160 NEXT a< ... br /> 170 IF c=1 THEN GO TO 140
180 IF b=1 THEN GO TO 220

... 0:
INK 7:
PAUSE 1:
BORDER 0:
CLS ... 0:
LET o=1:
DIM l$(1,10):
RANDOMIZE ... /> DIM a$(n,1):
FOR a=1 TO n:
... ,0;"Progress : "; PAPER 5;l$(1,1 TO ):
RETURN
...

... 0:
INK 7:
PAUSE 1:
BORDER 0:
CLS ... Data
260 DIM l$(1,10):
RANDOMIZE :
... /> DIM a$(n,1):
FOR a=1 TO n:
... ,0;"Progress : "; PAPER 5;l$(1,1 TO ):
RETURN
...

... THEN
LET b$(1)=a$(a):
LET ... IF c OR b>1
THEN
... br /> INK 7:
PAUSE 1:
BORDER 0:
... b,1):
DIM b$(1,1):
FOR a=1 TO ... is quicker than using 1.3 although not sure ...

... is quicker than using 1.3 although not sure ... $="":
FOR a=1 TO n-1:
IF a ... :
INK 7:
PAUSE 1:
BORDER 0:
...
DIM b$(1):
FOR a=1 TO b:
1): DIM b$(1,1)[/B] with [B ...

... br /> 170 LET I(1)=16: LET I(2)=5 ... 9030 REM I(4)=Numeric (1)
9035 REM Integer ( ... 9075 REM *---------------------*
9080 REM 1.0: 26-Jul-2010 - Initial ... AT I(2),I(1);I$;L$(1, TO 3):
... I(6)=0:
PAUSE 2:
LET I( ...

... y=0
220 OVER 1
230 LET ar1=ATTR ... LET ar2=ATTR (y+1,0)
250 PAUSE 1
260 POKE ... AT y,0;l$(1)
280 PAUSE 0
290 ... /> PRINT AT y,0;l$(1, TO 32);:
POKE 23693 ... ,ar2:
PRINT l$(1, TO 32):
LET y ...

... y=0
220 OVER 1
230 LET ar1=ATTR ... POKE 23693,WhiBlu1
260 PAUSE 1
270 PRINT AT y ... ,0;,,,,
280 PAUSE 0
290 LET k ...

... 1)+1,0):
POKE 23693,WhiBlu1:
PAUSE 1:
PRINT AT b(1 ... ),0;,,,,
220 PAUSE 0:< ... br /> IF b(5)b(1)
THEN
... /> PRINT ,,:
LET b(1)=b(5):
GO TO ...

... />
pause 1
pause 0

test()

pause 1
pause 0 ...

... .

You can use PAUSE 1 in BASIC to effectively raise ...