\start83P\
\comment=Program file dated 04/23/00, 21:31
\protected=FALSE
\name=ACCKAL
\file=C:\AM\LISEBERG\ACCEL\ACCKAL.TXT
{1,0}\->\L\6\:Send(L\6\)
{1,1,14}\->\L\6\:Send(L\6\)
3\->\dim(L\5\)
Disp "PIL NED"
Disp "TRYCK ENTER"
{3,.1,10,0}\->\L\6\
Pause 
Send(L\6\)
Get(L\6\)
mean(L\6\)\->\L\5\(1)
Disp "PIL UPP"
Disp "TRYCK ENTER"
{3,.2,10,0}\->\L\6\
Pause 
Send(L\6\)
Get(L\6\)
mean(L\6\)\->\L\5\(2)
2*9.82/(L\5\(2)-L\5\(1))\->\K
Disp "NOLL POS"
Disp "TRYCK ENTER"
{3,.1,10,0}\->\L\6\
Pause 
Send(L\6\)
Get(L\6\)
mean(L\6\)\->\L\5\(3)
\(-)\L\5\(3)*K\->\M
\stop83P\