; 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 EXTR 91
PRIM STOP 100
:TRIANGLE 4!0 4000 2000 -4000 -2000 -4000 0 4000
NUTR,DNTR,FIG TRIANGLE,ROT -90,MOVE 1000 1000,UPTR,EXTR(1)
STOP