
CANVAS ON              ; Let user see all action
        CLEAR
        PAINTCANVAS ATTRIBUTE 31 0, 0, 24, 79
        STYLE ATTRIBUTE 30
        @ 2, 0
? "   Key in the Old directory name, below, e.g.    h:\progs\uja"
? "   "
ACCEPT "A50"
TO Directory1
? "   "
{Ask} Typein Directory1 + "\\P5" Enter 
Menu {Image} {Zoom} {Field} {SSN} Example  "SSN" Enter 
Menu {Image} {Zoom} {Field} {App_Date}  "P" Backspace Example  "APP" Enter 
Menu {Image} {Zoom} {Field} {KSA} Example  "KSA" Enter 
Menu {Image} {Zoom} {Field} {Mo_Exper}  Example  "ME" Enter 
Menu {Image} {Zoom} {Field} {DtMostRExp} Example  "DT" Enter 
Menu {Image} {Zoom} {Field} {SkillLevel} Example  "SK" Enter 
Menu {Image} {Zoom} {Field} {MoSpvExper} Example  "MOS" Enter 
Menu {Image} {Zoom} {Field} {171Locaton} Example  "171" Enter 
Menu {Image} {Zoom} {Field} {Salary} Example  "SAL" Enter 
Menu {Ask} {P5}  "INSERT" Enter 
Example  "SSN" Enter Example  "APP" Enter Example  "KSA" Enter 
Example  "ME" Enter Example  "DT" Enter Example  "SK" Enter 
Example  "MOS" Enter Example  "171" Enter 
Menu {Image} {Zoom} {Field} {Salary} Example  "SAL" Enter 
Do_It! ClearAll
? "                 OLD VERSION 3.3 PERSONAL KSAs CONVERTED"
SLEEP 5000