[fpc-pascal] Identifier not found "MEMW"

Tomas Hajny XHajT03 at hajny.biz
Fri May 9 10:30:51 CEST 2014


On Fri, May 9, 2014 09:00, nitinjain wrote:
> Thanks for your prompt reply on this.
> my code is like below, is there any option to implemet the same thing?
>
> -------------------------------------------------------------------
> PROCEDURE window_object.appear;
>
> VAR
>    width_offset,
>    height_offset    : BYTE;
>    current_location : location_pointer;
>
> BEGIN
>      current_location:=first_location;
>      FOR height_offset:=y TO (y+y_offset-1) DO
>      BEGIN
>           FOR width_offset:=x TO (x+x_offset-1) DO
>           BEGIN
>                *MEMW[$B800:(width_offset-1)*2
>                          +(height_offset-1)*160]:=current_location^.code;*
> current_location:=current_location^.next;
>           END;
>      END;
>      current_location^.next:=NIL;
> END;
> -------------------------------------------------------------------

This type of code would be probably best ported using unit Video - after
initializing of this unit, you can write to the provided screen buffer and
have the console window (or full screen if you use that) updated based
based on content of that screen buffer.

Which platform do you target?

Tomas





More information about the fpc-pascal mailing list