; UPDATES (LISTING 5)››PROC Uview():Position(22,15)›vflag==+1:IF vflag>1 THEN vflag=0 FI›IF vflag=0 THEN Print("ðåòóðåãôéöå")›ELSE Print("ïòôèïçïîáì ") FI:RETURN››PROC Ueye():BYTE i:Position(5,17)›FOR i=0 TO 2 DO›  IF eye(i)<-10 THEN eye(i)=-10›  ELSEIF eye(i)>10 THEN eye(i)=10 FI›  PrintI(eye(i)):Put(' )›OD Position(24,17)›IF eye(3)>200 THEN eye(3)=200›ELSEIF eye(3)<10 THEN eye(3)=10 FI›PrintI(eye(3)):Put(' ):RETURN››PROC Umag():Position(37,17):mag==+1›IF mag>9 THEN mag=1 FI:PrintI(mag):RETURN››PROC Urot():Position(12,18):PrintI(rx)›Put(' ):PrintI(ry):Put(' )›PrintI(rz):Pb(2)›FixR():FixM():CLR():Draw(P):RETURN››PROC Uri():Position(35,18) ›PrintI(ri):Put(' ):RETURN››PROC Ucen(INT x,y):Position(8,19)›PrintI(x):Put(' )›PrintI(y):Put(' ):RETURN››PROC Ufoc(INT ARRAY v):BYTE i›Position(24,19)›FOR i=0 TO 2 DO PrintI(v(i)):Put(' ) OD›RETURN››PROC Upt(INT n):Position(5,22):PrintI(n)›Put(' ):IF n<100 THEN Put(' ) FI›Position(30,22):Pb(8):RETURN››PROC Ucxyz(INT ARRAY pt):BYTE i›Position(15,22):PrintB(pt(3) & 3)›IF pt(3)<16 THEN Print("  LineTo ")›ELSE Print("   Plot  ") FI›FOR i=0 TO 2 DO PrintI(pt(i)):Put(' ) OD›RETURN››PROC Ugr():Position(1,15)›IF gflag=7 THEN gflag=8:cx==+80:CP=C8›  Print("xox GRAPHICS 8 xox"):Gr8(dl1)›ELSE gflag=7:cx==-80:CP=C7›  Print("x GRAPHICS 7PLUS x"):Gr7(dl1)›FI Ucen(cx,cy)›CPon():CLR():Draw(P):RETURN››PROC UReset():BYTE i›Position(5,17):Pb(12)›Position(12,18):Pb(12)›Position(8,19):Pb(9)›Position(24,19):Pb(14)›FOR i=1 TO 8 DO P(i)=Q(i) OD›mag=3:rx=0:ry=0:rz=0:ri=30:FixE()›Ueye():Ufoc(foc):Umag():Urot():Uri()›cy=90:cx=160:gflag=8:Ugr():RETURN››