	    iNTERPRETATOR GRAFI^ESKOGO QZYKA DLQ kcgd.

		uprawlenie revimami displeq

pEREWOD DISPLEQ W GRAFI^ESKIJ REVIM : 'ar2' '<' 'ar2' 'r'
wYHOD IZ GRAFI^ESKOGO REVIMA :	'ar2' '\'
pEREHOD K SISTEME KOMAND VT52 :	'AP2' '[' '?' '2' 'l'

	 komandy interpretatora grafi~eskogo qzyka 

H X1 Y1			- SNQTIE CWETA TO^KI
			(^EREZ REGISTR KLAWIATURY WOZWRA]AETSQ KOD
                        CWETA
			TO^KI, UWELI^ENNYJ NA 101(8) )
R P0,P1,...,P15		- ZADANIE PALITRY
			(^ISLA r W (8) SISTEME)
C COLOR			- IZMENENIE TEKU]EGO CWETA RISOWKI
			(COLOR = 0,..,15)
X 0  (X 1)		- USTANOWKA PRIZNAKA NALOVENIQ ILI ZAME]E-
                        NIQ  CWETA  (W REVIME h 1 POWTORNAQ PRORI-
                        SOWKA  WOSSTANAWLIWAET IZOBRAVENIE, NA KO-
                        TOROE  NAKLADYWALSQ   RISUNOK), PO UMOL^A-
                        NI@ 0.
O STRING,PIXEL		- NASTROJKA \KRANA
			(STRING = 240,480 ; PIXEL = 400,800)
T X1,Y1,X2,Y2,X3,Y3	- PERENOS POLQ
			(X1,Y1	- KOORDINATY LEWOGO NIVNEGO UGLA
			 X2,Y2	- KOORDINATY PRAWOGO WERHNEGO UGLA
			 X3,Y3	- NOWYE KOORDINATY LEWOGO  NIVNEGO
			 UGLA)
A X1,Y1,X2,Y2,ALFA	- PRORISOWKA DUGI
			(X1,Y1	- KOORDINATY CENTRA
			 X2,Y2	- KOORDINATY NA^ALA DUGI
			 ALFA	- UGOL POWOROTA W GRADUSAH > 0 )
G X1,Y1,X2,Y2		- ZALIWKA POLQ CWETOM
			(X1,...,Y2 TEVE ^TO I DLQ t)
L X1,Y1,X2,Y2		- PRORISOWKA  LINII  (X1,Y1 - NA^ALO LINII
			 X2,Y2	- KONEC LINII)
D X1,Y1			- POSTANOWKA TO^KI
P X1,Y1			- [TRIHOWKA ZAMKNUTOGO KONTURA
S NUMB,X1,Y1		- WYWOD SPRAJTA  NA  \KRAN, PREDWARITELXNO
                          SPRAJT  DOLVEN  BYTX  ZAPISAN  W  PAMQTX 
                          kcgd PO B ILI M, SM. NIVE
B NUMB,X1,Y1		- WWOD SPRAJTA S \KRANA
M NUMB,A0,A1,...,A63	- WWOD SPRAJTA W kcgd S NOMEROM NUMB
W ADR,NWORD,...		- ZAPOLNENIE PAMQTI kcgd
U ADR,NWORD,...		- WYWOD IZ PAMQTI kcgd
*			- WYWOD W FORMATE PRINTERA
			  (SLEWA-NAPRAWO SWERHU-WNIZ)
Y X1,Y1,NSTR,NWORD,...	- PEREDA^A MATRIC NA \KRAN
			(SLEWA-NAPRAWO SNIZU-WWERH)
Z X1,Y1,NSTR,NWORD,...	- PRIEM MATRIC S \KRANA

------------------
* sPRAJT - PRQMOUGOLXNIK 16H16 (32) DLQ REVIMA 400 (800) TO^EK.

rAZDELITELEM KOMAND SLUVIT PROBEL. kOORDINATY "ZACIKLENY" (0,240 =
0,1 I 400,0 = 1,0). dLQ RISOWKI a-c SIMWOLOW ISPOLXZUETSQ 5-J \LE-
MENT PALITRY, FON RISUETSQ 0-M \LEMENTOM (W REVIME  400  NA  240).
nA^ALO KOORDINAT  RASPOLOVENO W LEWOM NIVNEM UGLU \KRANA.

pRIMER PROGRAMMY, RISU@]EJ DIAGONALX, ONA "DERVIT"\KRAN DO NAVATIQ
<wk>:
	.TITLE	COLOR
	.MCALL	.EXIT,.PRINT,.TTINR

	ESC=033
	JSW=44
	SPEC=40000


START:	BIS	#SPEC,@#JSW
	.PRINT	#L01
13$:	.TTINR
	BCS	13$
14$:	.TTINR
	BCC	14$
	.PRINT	#OFF
	.EXIT

L01:	.BYTE	ESC,'<,ESC,'P		;WKL@^ENIE GRAF.REVIMA

	.ASCII	/R 000,014,000,000,000,004,000,000,000,000,000,000,/
	.ASCII	/000,000,000,000 /

	.ASCII	/C 1 /
	.ASCII	/O 240,400 /
	.ASCIZ	/L 0,0,399,239/

OFF:	.BYTE	ESC,ESC,ESC		;WYKL@^ENIE GRAFIKI,
	.ASCIZ	/[?2l/			;PEREHOD W REV.VT52

	.EVEN
	.END	START

pRI WOZWRATE IZ GRAFI^ESKOGO REVIMA SOHRANQ@TSQ KLAWI[I ^C, ^U I
OSTALXNYE.pRI NAPISANII KOMANDY WOZWRATA NE PUTATX l  I  1  (TAM
L-MALENXKAQ)!

pRIMER FRAGMENTA DLQ ZAPOMINANIQ SPRAJTA WNUTRI  kcgd  I  WYWODA
EGO NA \KRAN, REVIM 240 NA 800 TO^EK.

	.ASCII	/O 240,800 /

	.ASCII	/M 1,/				;ZADANIE SPRAJTA #1
	.ASCII	/65535,65535,65535,65535,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/49152,0,0,3,/
	.ASCII	/65535,65535,65535,65535 /	;DLQ REVIMA 400, 
						;POLNYJ BAJT 
						;255 (?)

	.ASCII	/S 1,250,100 /			;PRORISOWKA SPRAJTA #1
                                                                                                                                                                            