0  BEGIN PGM CALC5 MM 
1  FN 17: SYSWRITE ID 212 =+3
2  Q71 = Q70 * Q108 ;Ueberlappung
3  Q53 = Q31 - Q108 ;Bereich
4  Q50 = Q53 / Q71 ;Anzahl Zust.
5  Q51 = INT Q50 ;Gerade
6  Q52 = FRAC Q50 ;Nachkomma
7  Q54 = Q51
8  FN 9: IF +Q50 EQU +1 GOTO LBL 21
9  FN 9: IF +Q52 EQU +0 GOTO LBL 20
10 Q54 = Q51 + 1
11 FN 11: IF +Q50 GT +1 GOTO LBL 20
12 LBL 21
13 Q54 = Q54 + 1
14 LBL 20
15 Q71 = Q53 / Q54
16 Q72 = Q71 / 2 ;
17 Q73 = Q71 + Q72
18 Q83 = Q73
19 ;FN 37: EXPORT Q0 - Q99
20 END PGM CALC5 MM 
