/PRINT NODES FILE START, OPEN;DEVICE SYS;FILENA NODES.DA;NODES CLEARW ;COUNT LOOP, INCREM ;COUNT LOAD1 ;COUNT READSQ ;NODES GONEG ;END GETREC ;RECORD LOAD1 ;RECORD GOIFEQ ;LOOP ;-1 LOAD1 ;COUNT PRINT 1;TEXT '_' PRINTU ;MASK ;5 LOAD2 ;ET PRINTU ;MASK ;6 LOAD2 ;LT PRINTU ;MASK ;6 GOTO ;LOOP END, EXIT MASK, TEXT ' 0-' COUNT, 0 RECORD, 0 ET, 0;0 LT, 0;0 OCTAL NODES=6200 $