PROGRAM LISTING: 85-06/UPDATES.ACT

; 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