cwTest
 Quit
 
LKT
 New I,J,cwLKT,cwLD
 Write @F11,@F1
 For I=1:1:30 For J=1:1:9 s $P(cwLKT(I),D,J)=I*100+J
 Do INIT^vhLIST("CW","LKT",.cwLD),WRITE^vhLIST(.cwLD)
 For  Set Input=$$SCROLL^vhLIST(.cwLD,,$P(cwLD("SET"),"`",9)) Quit:Input="-"  Do
 . w !,$h
 Quit