; Primitives "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
:SQUARE 5!2000 4000 2000 -4000 -2000 -4000 -2000 4000 2000 4000
:DISP [NUTR,DNTR,FIG #1,ROT #2,UPTR,EXTR(1)]
DISP TRIANGLE -90
DISP SQUARE 0
STOP