Procedure LOSC[F$]
   '
   ' Yes, this program used ZONE EDITOR, by Ben Ashley to cut out it's  
   ' zones.  I've no idea why!!!!!!!! 
   '
   '
   ' This is v1.2 of the routine, it now SETS UP THE ZONES AS WELL AS 
   ' LOADS THEM!  
   '
   ' The Values Explained:
   '                      ZON = Maximum amount of zones 
   '                    ZTX(1)= Would be Top Left X corner of ZONE 1  
   '                    ZTY(1)= Would be Top Left Y corner of ZONE 1  
   '                    ZBX(1)= Would be Bottom Right X corner of ZONE 1
   '                    ZBY(1)= Would be Bottom Right Y corner of ZONE 1
   '                       F$ = The filename of the ZONE Co-Ord File  
   '
   Open In 1,F$
   Input #1,ZON$
   ZON=Val(ZON$)
   Dim ZTX(XON),ZTY(ZON),ZBX(ZON),ZBY(ZON)
   Reserve Zone ZON
   For F=1 To ZON
      Input #1,ZTX$
      Input #1,ZTY$
      Input #1,ZBX$
      Input #1,ZBY$
      ZTX(F)=Val(ZTX$) : ZTY(F)=Val(ZTY$) : ZBX(F)=Val(ZBX$) : ZBY(F)=Val(ZBY$)
   Next F
   Close 1
   For F=1 To ZON
      Set Zone F,ZTX(F),ZTY(F) To ZBX(F),ZBY(F)
   Next F
End Proc