//
//  PickList-Demo.vdm              Ch. Ziemski   29.09.2003
//

Reg_Set(103, " Entry 1
Entry 2
Entry 3
Entry 4
Entry 5
Entry 6
Entry 7
Entry 8
")

Call_File(101, "PickList.vdm")

Message("\n You have choosen the following line:\n")

Reg_Type(103)

Message("\n\n That is line# ")
Num_Type(#103)