Here is some simple program templates.
1: ! =============================== ;
1: LBL[1] ;
2: ;
3: R[3:Counter]=R[3:Counter]+1 ;
4: ;
5: IF R[3:Counter]=1, JMP LBL[10] ;
6: IF R[3:Counter]=2, JMP LBL[20] ;
7: IF R[3:Counter]=3, JMP LBL[30] ;
8: JMP LBL[999] ;
9: ;
10: LBL[10] ;
11: PR[1,1:TEST]=0 ;
12: JMP LBL[100] ;
13: ;
14: LBL[20] ;
15: PR[1,1:TEST]=50 ;
16: JMP LBL[100] ;
17: ;
18: LBL[30] ;
19: PR[1,1:TEST]=100 ;
20: JMP LBL[100] ;
21: ;
22: LBL[100] ;
23: ;
24:L P[1] 100mm/sec FINE Offset,PR[1:TEST] ;
25: ;
26: IF R[3:Counter]<3, JMP LBL[1] ;
27: ;
28: LBL[999] ;
29: END ;
1: ! =============================== ;
1: PR[1,1]=(-50) ;
2: ;
3: LBL[1] ;
4: ;
5: R[3:Counter]=R[3:Counter]+1 ;
6: ;
7: PR[1,1]=PR[1,1]+50 ;
8: ;
9:L P[1] 100mm/sec FINE Offset,PR[1] ;
10: ;
11: IF R[3:Counter]<3, JMP LBL[1] ;
12: ;
13: END ;
1: ! =============================== ;
1: R[3:Counter]=(-1) ;
2: ;
3: LBL[1] ;
4: ;
5: R[3:Counter]=R[3:Counter]+1 ;
6: ;
7: PR[1,1]=R[3:Counter]*50 ;
8: ;
9:L P[1] 100mm/sec FINE Offset,PR[1] ;
10: ;
11: IF R[3:Counter]<2, JMP LBL[1] ;
12: ;
13: END ;