Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Not so much a bug, as slow!
#9
Code:
asm
jr ZXBASICBorielVersionEnd
db "ZX Boriel BASIC version 1.3.0-s924"
ZXBASICBorielVersionEnd:
end asm


DIM x AS FLOAT
DIM y AS FLOAT
'DIM x AS INTEGER
'DIM y AS INTEGER

POKE 23674,0: POKE 23673,0: POKE 23672,0
FOR x=-100 TO 100
FOR y=-100 TO 100
IF (x/2-25)*(x/2-25)+(y-50)*(y-50)<200 OR (x/2+25)*(x/2+25)+(y-50)*(y-50)<200 THEN
PLOT x+100,96-y ' zxb version
'PLOT x+100,y-100 ' original BASIC version
END IF
NEXT y: NEXT x
PRINT (65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50

This program gives me:

Original BASIC
2040.34

ZX Boriel BASIC version 1.3.0-s924
1477

ZX Boriel BASIC version 1.3.0-s967
1491

ZX Boriel BASIC version 1.3.0-s979
1491
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 2 Guest(s)