; Primitives updated from "Blue tape" 12/8/77
PRIM : 28
PRIM NUTR 61, PRIM DNTR 62, PRIM UPTR 63, PRIM FIG 64
PRIM ROT 67
PRIM MOVE 65
PRIM LIN 71, PRIM HARM 72
PRIM EXTR 91
PRIM STOP 100
PRIM PRMACS 103
PRIM SG 101
PRIM EG 102
:TRIANGLE 4!0 4000 2000 -4000 -2000 -4000 0 4000
:DISP [SG #2,NUTR,DNTR,FIG #1,LIN 0 5 #2,ROT 0 -90,MOVE 0 0 1000 1000
  UPTR,EXTR(1),EG]
DISP TRIANGLE 0
DISP TRIANGLE 1
DISP TRIANGLE 2
DISP TRIANGLE 3
DISP TRIANGLE 4
DISP TRIANGLE 5
STOP