SUPER GRAFIK 2  "CRT:M2": R$(H) R$(p):R$()"CERNA ":R$()"MODRA ":R$()"CERVENA ":R$(@)"FIALOVA ":R$()"ZELENA ":R$( )"AZUROVA ":R$(@)"ZLUTA ":R$(`)"BILA ":R$()"SEDA "R$()"S.MODRA ":R$( )"S.CERVENA":R$(0)"S.FIALOVA":R$(@)"S.ZELENA ":R$(P)"S.AZUROVA":R$(`)"S.ZLUTA ":R$(p)"S.BILA "$(,:@,2I:[] I,pI,"GRAFIK",,,:[ ]4I,\I,"SUPER",,,:I:[@] ,p,"SUPER",,,:[`]H,,"GRAFIK",,,< X$: X$"" <F.P" 0-9,Q-Y ............ J "!Q" B .................. B"$R" C .................. C""T" L .................. L"#U" P .................. P"{V" S .................. Z 1. D .................. Z 2. ? .................. C ":/W"\^/":"_ ................. P":X"/\"::"\^/":"_ + SPACE BAR...... Z":"/\"/Y:" !!! V "PZ" (BARVA 1).U L,B,C (S,D)."-[" U P (P) "-c" (BARVA 2) SPACE + "(d" , BARVA 1.",e" P S D"n X$: X$"" nVx:[],4,,,,,,4,,4X,8:"BARVA 1:":[p],@,"BARVA 2:",,,JX :Y4:M:N:,:@,@6A(): A , , , , , , , YY: YY:XX: XX: XX:YY: YY: YY:XX: XX: XX:YY X X X X Y4 Y Y Y41Z(X,Y):[p]X,Y:[F]M,N:MX:NY:FZ.B(): B A FC1$ X$:SP(): X$"" ) X$"0" SP R:: \" X$"Q" SP :[p],@,R$( ),,,:C2 :: ,8:R$( ):C1 , X$"W" SP :[p],@,R$(0),,,:C20:: ,8:R$(0):C106 X$"E" SP :[p],@,R$(@),,,:C2@:: ,8:R$(@):C1@@ X$"R" SP :[p],@,R$(P),,,:C2P:: ,8:R$(P):C1PJ X$"T" SP :[p],@,R$(`),,,:C2`:: ,8:R$(`):C1`T X$"Y" SP :[p],@,R$(p),,,:C2p:: ,8:R$(p):C1p*^ X$"1" SP R:: \*h X$"2" SP R:: \*r X$"3" SP R:: \*| X$"4" SP R:: \* X$"5" SP R:: \* X$"6" SP R:: \* X$"7" SP R:: \* X$"8" SP R:: \* X$"9" SP R:: \E X$"S" :X1X:Y1Y:FC1: ,8:"S1":X2X1:Y2Y1P X$"D" X2X:Y2Y:FC1:[p] ,@,"S2",,,  X$"L" [C1]X1,Y1,X2,Y2  X$"B" [C1]X1,Y1,X2,Y2q X$"C" [F]X1,Y1:[F]X2,Y2:[C1](X1X2),(Y1Y2),((X2X1)(Y2Y1))  X$"P" [C2]X,Y,C1:FC2n X$"?" []@,@,,H,:[p]@,@,R$(Z),,, X$"V" 4m X$"A" S(X1,Y1):D(X2,Y2):[p]X1,Y1::[p]X2,Y2:z:[S]X1,Y1:[D]X2,Y2 X K [] ,G,0,8,:X1X2:X2X1:Y1Y2:Y2Y1:***VLAC-7.6.1987**J4@,8: "";D0:h,8:"";D1:,8:"";D2w>[C1](X1X2),(Y1Y2),((X2X1)(Y2Y1)),D0,D1,D2:@,8:(p):wR[],@,,G,:XB(X$):[p],@,R$(XB),,,:C2XB:/\XB(X$):,8: R$(XB):C1XB:3[],@,,G,: