; Inserts X Invects
HIDEDEBUG
DEBUGOFF

Question How many rows to insert?

COMPARE DIALOG \DIALOG
ISEQUAL abort

COMPARE DIALOG 1
ISLESS abort

setstring count 0
LABEL loop
ADD 1 count
vbkey {INSERT}
COMPARE DIALOG count
ISGREATER loop

LABEL abort

ENDSCRIPT