cI22	;VERRASSING ;%I22 [ 02/07/02  10:10 AM ]
	;
1	S UCI="MGR" D UCI
11	S DEV=$R(79) I DEV<64!(DEV=79) G 11
13	O DEV::2 E  G 2
15	C DEV G 11
	;
2	ZU DEV F K=1:1:30 W !
21	D S1,S2
23	W !?20,"**   T H E                        **" D S2
25	W !?20,"**      P I N K                   **" D S2
27	W !?20,"**         P A N T H E R          **" D S2
29	W !?20,"**            S T R I K E S       **" D S2
31	W !?20,"**               A G A I N    !   **" D S2,S1 W !!!!
	;
YZ	H
	;
S1	W !?20,"************************************"
S1Z	Q
	;
S2	W !?20,"**                                **"
S2Z	Q
	;
UCI	D INT^cQMSMSW Q
	;
Z	X ^cZ Q
ZZ	; 07.02.02 - 11 u 22 * V7.91