PROCEDURE WINDOW(SPA1,ZEI1,SPA2,ZEI2:INTEGER); (*GOTOXY,POKE,PEEK must be insert*)¢VAR¢ H,V,Z,Y,W1:INTEGER;¢begin¢ W1:=PEEK(752);¢ POKE(752,2);¢ H:=SPA2-SPA1-1;¢ V:=ZEI2-ZEI1-1;¢ GOTOXY(SPA1,ZEI1);¢ write(CHR(6));¢ for Z:=1 to H do write(CHR(13));¢ writeln(CHR(7));¢ for Z:=1 to V do begin¢ GOTOXY(SPA1,ZEI1+Z);¢ write(CHR(22));¢ for Y:=1 to H do write(CHR(32));¢ writeln(CHR(2));¢ end;¢ GOTOXY(SPA1,ZEI2);¢ write(CHR(7));¢ for Z:=1 to H do write(CHR(14));¢ writeln(CHR(6));¢ POKE(752,W1);¢end;¢
