pL  IS  $0  Parameter: Zeiger auf eine Linie 
return  IS  $1  sichern der R"ucksprungadresse 
abstand  IS  $2  Unterprogramm R"uckgabe 
pA  IS  $3  Unterprog.-Parameter: Zeiger auf Anfangspunkt  
pE  IS  $4  Unterprog.-Parameter: Zeiger auf Endpunkt 

Laenge GET  return,:rJ    
       LDA  pA,pL,:Linie:anfang
       LDA  pE,pL,:Linie:ende
       PUSHJ abstand,:Punkt:Abstand
       PUT  :rJ,return
       SET  $0,abstand 
       POP 1,0