home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1985 June
/
Antic_Magazine_1985_06_Antic_Side_B.atr
/
updates.act
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
; 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¢¢