'ProgramMode:RUN
'INVENTORY
For 2->A To 7
Locate 3,A,StrMid(Str 9,A,1)+"    |"
Next