; 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 SCALE 66
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
  FIG SQUARE
  ROT -45
  MOVE -2000 0
]
:DISP [NUTR,DNTR,SHAPES,UPTR,EXTR(1)]
DISP SHAPES
PRMACS
STOP