00100	BEGIN	"TVTAKE"
00200		REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300		REQUIRE "TIMER[SYS,BGB]" SOURCE_FILE;
00400		INTERNAL INTEGER XSAMPLE,YLINE,WIDTH,BUFCNT;
00500		EXTERNAL PROCEDURE TV;
00600		INTERNAL INTEGER ARRAY TVBUF[1:10368];
00700	
00800	PROCEDURE TVTAKE(INTEGER X,Y,DX,DY);
00900	BEGIN
01000		XSAMPLE		←	X - 144;
01100		YLINE		←	Y - 108;
01200		WIDTH		←	32;
01300		BUFCNT		←	3*DY*WIDTH;
01400	BEGIN
01500		INTERNAL INTEGER ARRAY BUF0,BUF2,BUF4,BUF6[1:6912];
01600		TV;
01700	END;
01800	END;
01900		INTEGER X,Y,FLG;
02000		INTEGER ARRAY HEADER[0:9];
02100		STRING STR;
02200		X	←	172;
02300		Y	←	128;
02400		WHILE TRUE DO
02500	BEGIN	"FOREVER"
02600	DO BEGIN
02700		OUTSTR("	FILE = ");
02800		STR	←	INCHWL;
02900	END	UNTIL LENGTH(STR)≥1 ∧ "A"≤STR ∧ STR≤"Z";
03000		INTIME;
03100		TVTAKE(X,Y,16,108);
03200		HEADER[2]	←	6;
03300		HEADER[5]	←	Y-108;
03400		HEADER[6]	←	Y+108-1;
03500		HEADER[7]	←	X-144;
03600		HEADER[8]	←	X+144-1;
03700		OPEN(2,"DSK",'10,0,3,0,0,0);
03800		ENTER(2,STR&".TMP[DAT,BGB]",FLG);
03900		ARRYOUT(2,HEADER[0],10);
04000		ARRYOUT(2,TVBUF[1],10368);
04100		RELEASE(2);
04200		OUTIME;
04300	END	"FOREVER";
04400	
04500	END	"TVTAKE";