Benchmark 1 ------------------------------------------------- "D1:PALB1.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 FOR K=1 TO 1000
500 NEXT K
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END

Benchmark 2 ------------------------------------------------- "D1:PALB2.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
500 K=K+1
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END

Benchmark 3 ------------------------------------------------- "D1:PALB3.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
500 K=K+1
510 LET A=K/K*K+K-K
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END

Benchmark 4 ------------------------------------------------- "D1:PALB4.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
500 K=K+1
510 LET A=K/2*3+4-5
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END

Benchmark 5 ------------------------------------------------- "D1:PALB5.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END
820 RETURN

Benchmark 6 ------------------------------------------------- "D1:PALB6.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
430 DIM M(5)
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
530 FOR L=1 TO 5
540 NEXT L
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END
820 RETURN

Benchmark 7 ------------------------------------------------- "D1:PALB7.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
430 DIM M(5)
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
530 FOR L=1 TO 5
535 M(L)=A
540 NEXT L
600 IF K<1000 THEN 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END
820 RETURN

Benchmark 8 ------------------------------------------------- "D1:PALB8.BAS"
10 POKE 18,0:POKE 19,0:POKE 20,0
300 PRINT"START"
400 K=0
500 K=K+1
530 A=K^2
540 B=LOG(K)
550 C=SIN(K)
600 IF K<1000 THEN GOTO 500
700 PRINT"END"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 50):END

Convert PAL to NTSC, enter this ----------------------------- "D1:NTSC.LST"
800 PRINT INT((PEEK(18)*65536 + PEEK(19)*256 + PEEK(20)) / 60):END

Remove all timing additional lines, enter this -------------- "D1:PURE.LST"
10
800 END