; Primitives 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 EXTR 91
PRIM STOP 100
:PIC[DNTR,##,UPTR]
:TRIANGLE 4!0 4000 2000 -4000 -2000 -4000 0 4000
:SQUARE 5!2000 4000 2000 -4000 -2000 -4000 -2000 4000 2000 4000
:SHAPES [
  FIG TRIANGLE
  PIC SQ1
  SCALE 50 50
]
:SQ1 [
  FIG SQUARE
  PIC SQ2
  MOVE 4000 0
  ]
:SQ2 [
  FIG SQUARE
  ROT 60
  MOVE -2000 0
  ]
:DISP [NUTR,DNTR,SHAPES,UPTR,EXTR(1)]
DISP SHAPES
STOP