,MAPS ,6,EXAMPLES #1_4 ,A MAPS 6,A PRIME US+ ! UNCONTRACT$ "R-PO9T+ >R[ IS WRITT5 ,A $33O ,A' #2_4 ,A MAPS 6,A PRIME US+ ! 3TRACT$ "R-PO9T+ >R[ IS WRITT5 ,A $O ,A' #3_4 ,TRIANGLE ,A,B,C MAPS 6TRIANGLE ,A PRIME ;,B PRIME ;,C PRIME IS WRITT5 $T ,A,B,C $O $T ,A',B',C' #4_4 ,OP5 P>5!SIS ;X -MA ;Y CLOSE P>5!SIS MAPS 6OP5 P>5!SIS ;X PLUS ?REE -MA ;Y M9US #2 CLOSE P>5!SIS IS WRITT5 (X, Y) $O (X+3, Y-2) #5_4 ,! FUNC;N ;F MAPP+ ELE;TS ( ;,X 6ELE;TS ( ;,Y IS WRITT5 ;F_3,X $O ,Y #A