Click above to get retro games delivered to your door ever month!

 Error 37                   Untyped File Required                     pp 322

 Source:  Compiler

 Cause:   Block operations require Untyped files.

 Remedy:  Examine the statement ahead of the error cursor for the above
          condition.  Verify the file Type declaration as Untyped.


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


 Program  ScreenDump;
   Const
     Blocks     = 128                          ; { Write 128 blocks         }
     DestName   = 'D:B800.DMP'                 ; { Destination file name    }

   Var
     Dest       : Text                         ; { Wrong   - needs Untyped  }
   { Dest       : File                         ;   Correct - Untyped File   }
     Result     : Integer                      ; { Bytes read on last block }
     Buffer     : Array [0..$3FFF] of Byte       { 16383 bytes of buffer    }
                  Absolute $0B800:$0           ; { Absolute buffer address  }

   Begin
     Assign     (Dest, DestName)               ; { Assign name to handle    }
     ReWrite    (Dest)                         ; { Open and clear the data  }
     BlockWrite (Dest, Buffer, Blocks, Result) ; { Write buffer to file     }
     Close      (Dest)                         ; { Destination file         }
   End.