pro GetLineSpec, QCol,QSty,QThi,QSym,QKey QCol = 0 print, " > Enter the line COLOUR: " read, QCol QSty = 0 print, " > Enter the line STYLE: " read, QSty QThi = 0 print, " > Enter the line THICKNESS: " read, QThi QSym = 0 print, " > Enter the line SYMBOL: " read, QSym QKey = "" print, " > Enter the line KEY (""=OK): " read, QKey end