Оберон-клуб «ВЄДАsoft»

hi trying to print chars all over the screen:

MODULE hi;
IMPORT B := Basic;
PROCEDURE Main* ;
VAR
x,y:INTEGER;
gameboard:ARRAY 32,24 OF SHORTINT;
BEGIN B.Init;

gameboard[0][0]:=1;
gameboard[31][23]:=1;
gameboard[14][14]:=1;

B.BORDER(B.Green);
B.PAPER(B.Black);
B.CLS;


FOR x:= 0 TO 31 BY 1 DO
FOR y:= 0 TO 23 BY 1 DO
B.AT(y,x);
IF gameboard[x][y]=1 THEN
B.PRSTR("y");
ELSE
B.PRSTR("n");
END;
END;
END;

B.PAUSE(B.WaitAKey);
B.Quit;

END Main;

END hi.



it only prints chars on the left side

uif you reverse the x and y coords it prints as you would expect

Oh I just realized that the spectrum screen is 24 chars high
but BASIC can only access 0-21

Y first and X second is a ZX-Basic tradition that I adhere into my module "Basic".

In the module Console will be procedure At(x, y), of course.

Look into the module configurator Obj/BasicCfg.h:

You need to comment this line:
Make sure that SDCC found this configurator first, but not any other (for example, not "ZXDev/Lib/Obj/BasicCfg.h").