'===========================================================================
' Subject: READ FILES THAT WERE CLIPPED      Date: 12-18-97 (23:15)       
' Author:  Bert van Dam                      Code: QB, QBasic, PDS        
' Origin:  bd1rsd@usa.net                  Packet: GRAPHICS.ABC
'===========================================================================
'READCLIP.BAS

'Program to read files that were made with clip, and display them on
'the screen. This is meant as an example source.

'This program is donated to the public domain by Bert van Dam. I can be
'reached at Fido 2:285/750.16 or the net BD1RSD@USA.NET

SCREEN 9
CLS

'Filename of the clipped file
Bewaar$ = "c:\qb45\pictures\test.dat"

OPEN Bewaar$ FOR INPUT AS #1
INPUT #1, PicSize
REDIM Image(1 TO PicSize)  AS INTEGER
FOR t = 1 TO PicSize
        INPUT #1, Image(t)
NEXT t
CLOSE #1
PUT (1, 1), Image