1 ! Ett funktion som ritar en i fylld triangel
2 ! Program av Magnus <8042> 1992
10 INTEGER : EXTEND 
1000 DEF FNTriangel(X1,Y1,X2,Y2,X3,Y3,F)
1005   FGPOINT X1,Y1,F : FGLINE X2,Y2 : FGLINE X3,Y3 : FGLINE X1,Y1
1010   G=0
1015   IF X1-X2<0 THEN Xq=1 ELSE Xq=0
1020   IF Y1-Y2<0 THEN Yq=1 ELSE Yq=0
1025   X=ABS(X1-X2) : Y=ABS(Y1-Y2)
1030   IF X=0 THEN 1080
1035   W=X : X=X/W : Y=Y/W
1040   Xa=X1 : Ya=Y1
1045   FGPOINT X3,Y3,F : FGLINE Xa,Ya
1050   IF Xq=1 THEN Xa=Xa+X ELSE Xa=Xa-X
1055   IF Yq=1 THEN Ya=Ya+Y ELSE Ya=Ya-Y
1060   IF INT(Xa)=INT(X2) THEN 1070
1065   GOTO 1045
1070   IF G=1 THEN 1080
1075   Qx=X3 : Qy=Y3 : X3=X2 : Y3=Y2 : X2=Qx : Y2=Qy : G=1 : GOTO 1015
1080   RETURN 0
1085 FNEND