0  BEGIN PGM CALC4 MM 
1  FN 17: SYSWRITE ID 212 =+3
2  Q71 = Q70 * Q108 ;Ueberlappung
3  Q53 = Q32 / 2 - Q108 ;Bereich X
4  Q50 = Q53 / Q71 ;Anzahl Zust.
5  Q51 = INT Q50 ;Gerade
6  Q52 = FRAC Q50 ;Nachkomma
7  FN 9: IF +Q51 EQU +0 GOTO LBL 20
8  Q51 = Q51 + 1
9  LBL 20
10 Q71 = Q53 / Q51 ;Zust. X
11 Q72 = ( Q33 / 2 - Q108 ) / Q51 ;Zust. Y
12 Q61 = Q71
13 Q62 = Q72
14 Q53 = Q51 + 1
15 Q67 = ( Q72 - Q62 ) / 2 ;DEP
16 FN 11: IF +Q35 GT +0 GOTO LBL 99
17 Q72 = NEG Q72
18 Q62 = NEG Q62
19 LBL 99
20 ;FN 37: EXPORT Q0 - Q99
21 END PGM CALC4 MM 
