Creating table file x,y,z,i,j,k from points on a surface

[Jeff Herrera]

i have been racking my brain trying to figure out how to change a points to table GRIP file to include vector (IJK) data. I have searched far and wide across the internet to no avail. if anyone has any suggestions please let me know. i will paste the current program i am using below.

$$ PROGRAM: PT_VEC_TO_TABLE.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT:
$$ DISPLAYS A CHART SHOWING THE X,Y,Z AND I, J, K DATA
$$ COORDINATES OF X AMOUNT OF GENERIC POINTS.
$$
$$ RELEASE HISTORY:
$$ 01-FEB-91 Modified slightly by:
$$ Ken Lambrecht
$$ CAD Potential, Inc.
$$ 2820 Wilderness Place, Suite D
$$ Boulder, CO 80301-5454
$$ (303) 938-1224
$$
$$ EDIT HISTORY:
$$ 31-MAY-20 Modified slightly by:
$$ Jeff Herrera
$$
$$ Required Subroutines: (None)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR: M A SICKING
$$ COMPANY: McDonnell Douglas
$$
$$ SYSTEM TYPE: VAXstation 3100
$$
$$ THEORY/VARIABLE USAGE:
$$
ENTITY/$
MYPNT(8100)
NUMBER/$
x,y,z,MUM
$$
MASK/2
count = 1
L1:
MASK/2
IDENT/'PICK POINTS',MYPNT,CNT,MUM,RSP
JUMP/L1:,L4:,,RSP

IFTHEN/count > 8100
MESSG/'Max. of 8100 points','reached. Select less points'
JUMP/L1:
ENDIF

PRINT/' ID X Y Z I J K'
PRINT/' '

DO/LB1:,I,1,MUM

OBTAIN/MYPNT(I),X,Y,Z,I,J,K

PRINT/USING,'#@@@ #@@@@.@@@@#@@@@.@@@@#@@@@.@@@@#@.@@@@#@.@@@@#@.@@@@',I,$
x,y,z,i,j,k

LB1:


L4:
HALT