/*
** $VER: Split Index 1.0 (14.07.98) by M&F
**
** Splits Aminet index into smallest file
**
** Select the window containing the Aminet index
** and run this script. The window will disappear and 
** will reappear only when the work will be finished.
** This increases the process speed as there is not
** graphic rendering in the index window.
*/

OPTIONS RESULTS

/*
SetInputLock ON
SetDisplayLock ON
SetStatusBar "Working..."
ControlWindow OFF
*/

SetPrefs CLIPBOARDUNIT 314

doc = 'empty'
path = 'ram:'
exit = FALSE

MoveSOF
Find "|-----"
MoveDown
SetBookMark 0
'Move COLUMN=20'

DO FOREVER
   
  IF exit == TRUE THEN BREAK 
	
 	GetWord
	IF RC = 0 THEN DO
		dir = RESULT
		IF dir == doc THEN MoveDown
		ELSE DO
			IF doc ~= 'empty' THEN DO
				MoveUp
				MoveEOL
				SetBookMark 1
				MarkBlk
				MoveBookMark 0
				CopyBlk
				SaveClip path || doc
				
				MoveBookMark 1
				MoveDown
				MoveSOL
				SetBookMark 0
				'Move COLUMN=20'
				
			END
			doc = dir
		END
	END
	ELSE DO
		MoveDown
		IF RC ~= 0 THEN exit = TRUE	
	END
	
END

MoveUp
MoveEOL
SetBookMark 1
MarkBlk
MoveBookMark 0
CopyBlk
SaveClip path || doc

SetInputLock OFF
SetDisplayLock OFF
ControlWindow ON
SetStatusBar "Done"

SetPrefs CLIPBOARDUNIT 0
ADDRESS COMMAND 'Delete CLIPS:314 QUIET'