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