Попытался написать что-то своё:
Как же так, что аргумент у B.DRAW типа SHORTINT, т.е. принимает значение +127 и я не могу линию на весь экран нарисовать длиной 255.MODULE DIC1;
IMPORT B := Basic;
PROCEDURE Main* ;
VAR
a,b : SHORTINT;
x, h, w: SHORTINT;
BEGIN
B.Init;
B.BORDER(B.Black); B.PAPER(B.Black); B.INK(B.White); B.CLS;
h := 127; w := 127;
B.OVER(B.On);
FOR x := 0 TO 124 BY 2 DO
B.PLOT(x, x); B.DRAW(h, 0); B.DRAW(0, w); B.DRAW(-h,0); B.DRAW(0, -w);
h := h-4; w := w-4;
END;
B.OVER(B.Off);
REPEAT
FOR a := 0 TO 10 DO
FOR b := 10 TO 0 BY -1 DO
B.BEEP(100, a); B.BEEP(100,b);
END;
END;
UNTIL TRUE;
END Main;
END DIC1.
TRD того, что получилось во вложении.