cI36(TT) ;Debug-hulpje ;%I36 ; [ 03/27/00  12:31 PM ]
 ;
1 D P^cA612(5,1,12,80,1,0,0,0,TT,0,1,7,0,0)
11 W /CUP(1,1),@F1,/CUP(9,1) N K,RK,WINL S WINL=4
 ;
2 S $ZT="TRAP^"_$T(+0)
21 W !,"X>" D ^cAFA0("",WINL+11,4,76,7,"27\31\32",0,0,0) G YZ:RK=27
23 I RK=31 G 21:WINL<1 S WINL=WINL-1 W /WMOVE(WINL,0) G 21
25 I RK=32 G 21:WINL>11 S WINL=WINL+1 W /WMOVE(WINL,0) G 21
27 G 2:RK'=28,2:K="",YZ:K="-"!(K=",")!(K="^")!(K="H")!(K="h")
29 W ! X K G 2
 ;
YZ D C^cA612 Q
 ;
TRAP W !,$ZE G 2
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3