!	SPACE2.COM
!	V1.04
!	17-SEP-88
!
!
!
!
!  COPYRIGHT 1984,1988 BY COMPUTER PROGRAMMING SERVICES
!
!  ALL RIGHTS RESERVED
!
!
!  Computer Programming Services
!  1925 W. Glenoaks Boulevard
!  Glendale, CA  91201
!
!
!  Users may NOT sell or otherwise distribute copies.
!
!
!
!  COMPUTER PROGRAMMING SERVICES DISCLAIMS ALL WARRANTIES ON
!  THIS SOFTWARE AND SHALL NOT BE LIABLE FOR ANY LOSS OR DAMAGE,
!  INCLUDING INCIDENTAL OR CONSEQUENTIAL DAMAGES, RESULTING FROM
!  ITS USE.  COMPUTER PROGRAMMING SERVICES ASSUMES NO 
!  RESPONSIBILITY OR COMMITMENT TO NOTIFY USERS OF ANY FUTURE
!  CHANGES, UPDATES, AND/OR MODIFICATIONS MADE TO THIS SOFTWARE.
!
!
!********************************************************************
!
!  SPACE2 INSERTS 2000 BLOCK DUMMY FILES BETWEEN EACH 100 FILE GROUP
!  OF DATA FILES.  THIS IS DONE SO THAT THE DISK WILL HAVE TO DO
!  SEEKS ACROSS SIGNIFICANT PORTIONS OF ITS SURFACE(S) DURING
!  RANDOM FILE ACCESSES.  OBVIOUSLY THIS IS INTENDED FOR USE ON
!  RL01 AND LARGER DISKS.
!
!********************************************************************
!
!  COPY THE TEST FILES TO A TEMPORARY STORAGE LOCATION
COPY/NOL XX0:N%%%. XX2:*.*
!
!  DELETE THE DATA FILES N100 THRU N300 ON THE DISK UNDER TEST
DEL/NOQ XX0:N%%%.
!
SQUEEZE/NOQ XX0:
!
!  COPY FILE N100. FROM ITS TEMPORARY LOCATION TO XX0:
COPY XX2:N100. XX0:N100.
!
!  DELETE N100. FROM THE TEMPORARY LOCATION
DEL XX2:N100.
!
SQUEEZE/NOQ XX0:
!
!  CREATE A 2000 BLOCK FILE ON XX0: TO SPACE OUT THE DATA FILES
CREATE XX0:FILE1.BIG/ALLOCATE:2000
!
!  COPY FILES N101 THRU N200 TO XX0:
COPY/NOL XX2:N1%%.,XX2:N200. XX0:*.*
!
!  DELETE N200. FROM THE TEMPORARY LOCATION
DEL XX2:N200.
!
SQUEEZE/NOQ XX0:
!
!  CREATE THE SECOND 2000 BLOCK FILE ON XX0:
CREATE XX0:FILE2.BIG/ALLOCATE:2000
!
!  COPY FILES N201 THRU N300 TO XX0:
COPY/NOL XX2:N2%%.,XX2:N300. XX0:*.*
!
!  MAKE SURE THE DEVICE UNDER TEST IS NICE AND REPRODUCEABLE
SQUEEZE/NOQ XX0:
!
!  DELETE ANY FILES REMAINING IN THE TEMPORARY LOCATION
DELETE/NOQ XX2:N%%%.
!