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;

-------------------------------------------------------------------



--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Identifier-not-found-MEMW-tp5719166p5719175.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to