$$ PROGRAM: PTS_TO_TABLE.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT:
$$ DISPLAYS A CHART SHOWING THE X,Y,AND Z
$$ 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
$$
$$ Required Subroutines: (None)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR: M A SICKING
$$ COMPANY: McDonnell Douglas
$$
$$ SYSTEM TYPE: VAXstation 3100
$$
$$ THEORY/VARIABLE USAGE:
$$
ENTITY/$
pt
NUMBER/$
x(100),y(100),z(100)
$$
MASK/2
count = 1
L1:
IFTHEN/count > 10
MESSG/'Max. of 100 points','reached.'
JUMP/L3:
ENDIF
GPOS/'PICK POINT '+ISTR(count)+' - TERM WHEN DONE',$
x(count),y(count),z(count),r
JUMP/L2:,L3:,L3:,,,r
count = count + 1
JUMP/L1:
L2:
count = MAXF(1,count-1)
JUMP/L1:
L3:
PRINT/' ID X Y Z'
PRINT/' '
DO/L4:,loop_count,1,count-1
PRINT/USING,'#@@ #@@@@.@@@@#@@@@.@@@@#@@@@.@@@@',loop_count,$
x(loop_count),y(loop_count),z(loop_count)
L4:
HALT