Forum
Portal

Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  

Search Forums

(Advanced Search)

Forum Statistics
» Members: 259
» Latest member: Jeffreybub
» Forum threads: 1,074
» Forum posts: 6,434

Full Statistics

Online Users
There are currently 269 online users.
» 0 Member(s) | 266 Guest(s)
Baidu, Bing, Google

Latest Threads
.tap file code not execut...
Forum: Help & Support
Last Post: Zoran
04-28-2025, 10:59 AM
» Replies: 4
» Views: 142
Exit from more than one l...
Forum: Wishlist
Last Post: Duefectu
04-23-2025, 10:06 PM
» Replies: 3
» Views: 241
put small ASM programs li...
Forum: How-To & Tutorials
Last Post: Zoran
04-18-2025, 02:02 PM
» Replies: 6
» Views: 1,487
Creating +3 Menus - Loadi...
Forum: Help & Support
Last Post: merlinkv
04-16-2025, 02:08 PM
» Replies: 6
» Views: 501
Randomize not very random...
Forum: Help & Support
Last Post: Zoran
04-08-2025, 10:40 AM
» Replies: 4
» Views: 402
Scope rules
Forum: Bug Reports
Last Post: Zoran
04-04-2025, 09:46 AM
» Replies: 2
» Views: 276
Using constants not allow...
Forum: Bug Reports
Last Post: baltasarq
03-19-2025, 10:00 PM
» Replies: 8
» Views: 995
404 page not found
Forum: Documentation
Last Post: boriel
03-08-2025, 07:16 PM
» Replies: 5
» Views: 2,828
Spectrum keywords codes
Forum: Bug Reports
Last Post: boriel
03-08-2025, 11:00 AM
» Replies: 1
» Views: 383
ZXodus][Engine
Forum: ZX Basic Compiler
Last Post: boriel
02-19-2025, 11:43 PM
» Replies: 69
» Views: 213,377

 
  LN(0.5) = positive!!!!! (solved)
Posted by: zarsoft - 10-07-2024, 07:15 PM - Forum: Bug Reports - Replies (5)

Code:
DIM r1,r2 AS FLOAT

r1 = RND

r2 = (r1)
PRINT "r1=";r2

r2 = LN(r1)
PRINT "LN(r1)=";r2



Attached Files
.tap   Test.tap (Size: 6.18 KB / Downloads: 0)
Print this item

  Error: LET string1 = string1 ( 1 TO LEN string1) (solved)
Posted by: zarsoft - 08-14-2024, 10:45 AM - Forum: Bug Reports - Replies (3)

In my program I had

DIM EDLINE AS STRING ' global variable

and if I wrote

EDLINE = EDLINE( TO LEN EDLINE-2)

then the test

EDLINE = ""

it didn't always work

and I had to use

LEN EDLINE = 0


Then I changed it to

aux = EDLINE( TO LEN EDLINE-2)
EDLINE = aux

and the test

EDLINE = ""

worked well.

Print this item

  Error: loop ends every second (solved)
Posted by: zarsoft - 08-07-2024, 07:37 PM - Forum: Bug Reports - Replies (5)

When you press "1" the loop ends every second.

Code:
SUB Menu
DIM k$ AS STRING
CLS
PRINT
DO
  PRINT
  PRINT
  PRINT "MENU"
  PRINT " 1 - Test"
  PRINT " 0 - Exit"
  DO
    k$ = INKEY$
  LOOP UNTIL (k$ >= "0") AND (k$ <= "1") ' loop ends every second
  'LOOP UNTIL k$ <> "" ' runs OK
  'LOOP UNTIL (k$ = "0") OR (k$ = "1") ' runs OK
  'LOOP UNTIL (k$ >= "0") AND (k$ <= "1") ' loop ends every second
  PRINT
  IF k$ = "1" THEN PRINT "Option 1"
LOOP UNTIL k$ = "0"  
PRINT
PRINT
PRINT
END SUB

Menu
Print this item

  Error: -1
Posted by: zarsoft - 08-06-2024, 08:54 AM - Forum: Bug Reports - Replies (1)

DIM s AS STRING
s = ""
PRINT LEN s-1 ' gives 65535
PRINT LEN ""-1 ' gives -1

Print this item

  attr.bas syntax error
Posted by: csk - 07-14-2024, 05:38 PM - Forum: Bug Reports - Replies (3)

Hi! I'm writing a game about a pig that has to eat various food items. Food items are realized by means of UDG's stored in DATA lines and READ in en masse at the beginning of the game. Then, to draw the necessary items, I move address 23675/-76 to the required location. Until yesterday, the system worked flawlessly. Now I added a new item, and the compiler began to throw the following errors. The highest address an UDG byte is stored is 65294, i.e. AFAIK it is still allowed. I did nothing else than add the new DATA files and jump conditions to draw the new item, and what previously worked impeccably, just stopped doing so. I simply don't know what to do. Could you help? Thanks in advance!


.jpg   Clipboard01.jpg (Size: 232.31 KB / Downloads: 333)

Print this item

  My computer is haunted!
Posted by: zarsoft - 05-22-2024, 10:30 AM - Forum: Bug Reports - No Replies

My program gives intermittent errors.
The result also depends on the emulator.
What's going on here?
Program error? Is the compiler broken?

[Image: Trace.png]
files: files.zip

Print this item

  Includes in ASM
Posted by: bracckets - 03-27-2024, 03:16 PM - Forum: How-To & Tutorials - Replies (2)

Is it possible to use assembler includes in the inline ASM code blocks
so the assembler can be broken down into files, e.g.

INCLUDE maths.asm

Also is it possible to include binary files in the assembler e.g.

BINARY 'test.bin'

Thanks

Print this item

  Store array information in extended memory (128kb)
Posted by: rbiondi - 03-10-2024, 09:42 PM - Forum: Help & Support - Replies (2)

Hello,

Is it possible storing arrays and/or Strings in Zx Spectrum Extended Memory (128kb)? 
How could this would be accomplished?

Thank you very much!
Rogerio

Print this item

  ScrollLeft function scrolling more than 1 pixels left
Posted by: rbiondi - 03-01-2024, 10:42 AM - Forum: Bug Reports - Replies (2)

Hello,

I'm trying to use the ScrollLeft function to create a scrolling chart and the ScrollLeft function seems to be scrolling more than 1 pixel left. 
The screening area on the left also seems to be not to be pixel acurate. 

Sample program:

Code:
#include <scroll.bas>

INK 7
PAPER 0
CLS
sub square(x1 as UBYTE, y1 as UBYTE, x2 as UBYTE, y2 as UBYTE, color as UBYTE)
    DIM x AS UBYTE = 0
    DIM y AS UBYTE = 0
    FOR x = 0 TO x2 - x1
        PLOT INK color; x1 + x, y1
        PLOT INK color; x1 + x, y2
    NEXT x
    FOR y = 0 TO y2 - y1
        PLOT ink color; x1, y1 + y
        PLOT ink color; x2, y1 + y
    NEXT y
END SUB
SUB plott(x as FLOAT, y as FLOAT, sx as FLOAT, sy as FLOAT, x1 as UBYTE, y1 as UBYTE, x2 as UBYTE, y2 as UBYTE, color as UBYTE)
    DIM alfa AS UINTEGER
    DIM beta AS UINTEGER
    DIM mx AS UINTEGER
    alfa = ((x/sx) * (x2 - x1)) + x1
    beta = ((y/sy) * (y2 - y1)) + y1 + ((y2-y1)/2)
    ' Limites da tela
    IF alfa >= x2 - 1 then alfa = x2 - 1
    IF beta <= y1 + 1 then beta = y1 + 1
    mx = alfa mod x2
    IF alfa >= (x2-1) then
        ScrollLeft(x1 + 1, y1 + 1, x2 - 1, y2 - 1)
        alfa = x2-1
    END IF
    PRINT at 10,10; "alfa: "; alfa
    PRINT at 11,10; "beta: "; beta
    PLOT ink color; alfa, beta
END SUB
square(10, 15, 80, 60, 6)
DIM dia AS INTEGER
DIM valor AS float = 0
DIM incremento AS FLOAT = 1
' Create a sample scrolling chart
FOR dia = 1 TO 5000
    plott(dia, valor, 360, 100000, 10, 15, 80, 60, 6)
    valor = valor + 1000 * incremento
    IF valor > 49000 then incremento = -1
    IF valor < -49000 then incremento = 1
NEXT dia


Thank you very much!

Print this item

  string.bas errors when compiling with strict
Posted by: rbiondi - 02-23-2024, 11:29 AM - Forum: Bug Reports - Replies (2)

Hello,

I'm trying to compile my program with --strict option and getting some errors in string.bas:


Code:
zxbasic/src/arch/zx48k/library/string.bas:124: error: strict mode: missing type declaration for 's$'

I just fixed and tried to create a branch and send a merge request to zxbasic git repository but I'm not authorized.


Thank you,
Rogerio

Print this item