/* ATP2_Snapshot.atxt */

ADDRESS 'AmiTekst_port'
OPTIONS RESULTS

PARSE ARG tryb

IF tryb='O' THEN

DO		/* Ustaw okna i wczytaj zawartoôê */

	STATUS Windows
	Ile = RESULT

	DO a=1 TO Ile-1
		CLOSEWINDOW
	END

	STATUS NumWin
	Okno = RESULT

	CALL OPEN Plik , 'AmiTekst:AmiTekst.snapshot' , READ
	IleOkien = READLN(Plik)

	DO a=1 TO IleOkien
		Nazwa  = READLN(Plik)
		Rozm   = READLN(Plik)
		Szer   = READLN(Plik)
		Wys    = READLN(Plik)
		PosX   = READLN(Plik)
		PosY   = READLN(Plik)
		Offset = READLN(Plik)

		OPENWINDOW PosX PosY Szer Wys

		IF Rozm ~= 0 THEN
			DO
				OPENFILE Nazwa
				JUMPTOOFFSET Offset
			END
		ELSE SETFULLNAME Nazwa
	END

	CALL CLOSE Plik

	AREXXWINDOW Okno
	CLOSEWINDOW
	NEXTWINDOW
END

IF (tryb='Z') | (tryb='Q') | (tryb='I') THEN

DO		/* Nagraj pozycjë, wymiary i zawartoôê okien */

	STATUS Windows
	IleOkien = RESULT

	CALL OPEN Plik , 'AmiTekst:AmiTekst.snapshot' , WRITE

	CALL WRITELN Plik , IleOkien

	DO a=1 TO IleOkien

		STATUS FullName
		CALL WRITELN Plik , RESULT

		STATUS Size
		CALL WRITELN Plik , RESULT

		STATUS WindowWidth
		CALL WRITELN Plik , RESULT

		STATUS WindowHeight
		CALL WRITELN Plik , RESULT

		STATUS WindowPosX
		CALL WRITELN Plik , RESULT

		STATUS WindowPosY
		CALL WRITELN Plik , RESULT

		STATUS CursorOffset
		CALL WRITELN Plik , RESULT

		NEXTWINDOW
		ACTIVATEWINDOW RESULT

	END

	CALL CLOSE Plik

IF tryb='Q' THEN Quit
IF tryb='I' THEN Iconify
END

EXIT 0