home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 05 / grafsys / blokfile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-02  |  529 b   |  24 lines
  1. {************************************************}
  2. {*              BLOKFILE.PAS                    *}
  3. {* Programm zur Erzeugung der Datenbufferdatei  *}
  4. {*          (C) 1989 S.Szkaradnik & TOOLBOX     *}
  5. {************************************************}
  6.  
  7. TYPE
  8.   scr = ARRAY [0..1023] OF BYTE ;
  9.  
  10. VAR
  11.   f : FILE OF scr ;
  12.   blk : scr ;
  13.   i : INTEGER ;
  14.  
  15. BEGIN
  16.   Assign ( f, 'BITMAP.PIC' ) ;
  17.   ReWrite ( f ) ;
  18.   FOR i:=0 TO 1023 DO
  19.     blk[i] := 0 ;
  20.   FOR i:=1 TO 91 DO
  21.     Write ( f, blk ) ;
  22.   Close (f)
  23. END.
  24.