"** 10-36-55.pdf page 18
" p5

frfac = 0774000 " loss in vel to friction
toptest: 02000+01000-0177700
bottest: -02000-01000
righttest: 02000+040400-0177700
lefttest: -02000-040400
minvx: -02000 " vel below whitch vel is set zero
fsin: 0203 " sine of fine rotation angle
csin: 02534 " sine of coarse rotation angle
mfsin: -0203 " negative of fsin
mcsin: -02534 " negative of csin
fcos: 0177777 " cosine of fine rotation angle
ccos: 0177761 " cosine of coarse rotation angle

nball = 16

d1: 1
o17: 017
o300000: 0300000
dm1: -1
o142000: 0142000
o164000: 0164000
o400000: 0400000
o177777: 0177777
o2000: 02000
o100000: 0100000
o124000: 0124000
qsin: 0177777
qcos: 0
dmpname: <pd>;<um>;<p 040; 040040
nballp: nball
listpm1: list-1

outline:
	0065047
	0140000 0400
	0164000 04
	0220414
	0124000 01000-010-020
	0225010
	0221010
	0124000 0777-010-020
	0224414
	0221444
	0120000 0777-010-020
	0221404
	0224454
	0126000 0777-010-020
	0221050
	0225050
	0126000 01000-010-020
	0220454
	0225404
	0122000 0777-010-020
	0225444
noutline = .-outline

circle:
	0212000
	0220002
	0220002
"** 10-36-55.pdf page 19
	0224101
	0220002
	0224101
	0224101
	0224101
	0224101
	0224101
	0224101
	0224101
	0224101
	0224200
	0224101
	0224200
	0224200
	0224200
	0224200
	0224141
	0224200
	0224141
	0224141
	0224141
	0224141
	0224141
	0224141
	0224141
	0224141
	0220042
	0224141
	0220042
	0220042
	0220042
	0220042
	0220141
	0220042
	0220141
	0220141
	0220141
	0220141
	0220141
	0220141
	0220141
	0220141
	0220200
	0220141
	0220200
	0220200
	0220200
	0220200
	0220101
	0220200
	0220101
	0220101
	0220101
	0220101
	0220101
	0220101
	0220101
	0220101
	0220002
	0220101
	0220002
"** 10-36-55.pdf page 20
	0220002
	circsize = .-circle

.pb: .=.+1
.sw: .=.+1
stime: .=.+1
waitup: .=.+1
sin: .=.+1
cos: .=.+1
vp1: .=.+1
vp2: .=.+1
vt1: .=.+1
vt2: .=.+1
displist: .=.+1
9: .=.+t
ball1:
	sflg = .-ball1
	.=.+1
	x = .-ball1
	.=.+1
	y = .-ball1
	.=.+1
	vx = .-ball1
	.=.+1
	vy = .-ball1
	.=.+1
bvsize = .-ball1
ball2:
	.=.+bvsize
list: