1ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014
2	; (tab) This is series of comments
3	; (tab) it should all be not executable
4        ; (spaces) one of these sets might be a problem
5        ; (spaces) we will have to see.
6EN	; This entry point shouldn't be found without fixing
7 N D
8 S D=1 ;An executable line
9 D T1^ZZCOVTST
10 I '$$T5 W "RETURNED FROM t5",!
11 Q
12 ; This line not executable
13 D T6^ZZCOVTST
14 ;
15% ; a line to test for a problem where % was dropped
16 N Do,Re,Mi
17 S Do="A#"
18T1 ; This line should always be found
19 N D
20 S D=2
21 W !,D,!,"This is the second entry point",!
22 D T2^ZZCOVTST(D)
23 Q
24 ;
25T2(EQ) ; This is debatable and only called with ENT^ROU notation
26 N D
27 S D=3
28 W !,D,!,EQ,"This is the third entry point",!
29 D T3^ZZCOVTST
30 Q
31 ;
32T3  N D S D=4 W D,!,"Fourth Entry point",! Q
33 ;
34T4  N D S D=5 W "Shouldn't be executed"
35 W "Lots to not do"
36 Q
37T5(EQ) ;this entry point is called with a $$ notation
38 W "THIS IS THE $$ NOTATION!",!
39 Q 0
40T6 ; An entry point to show comments inside of "DO" blocks
41 D
42 . W "This is executable code",!
43 . ;This is a comment inside the do block, not executable
44 . S ZZBLAH="blah"
45 W "Ending T6",!
46 ;
47