Set ZapGenerated$Path ""
IfWrite ZapUser:Generated Then Set ZapGenerated$Path ZapUser:Generated.<Zap$Country>.,ZapUser:Generated.
If ZapGenerated$Path>"" Then Set ZapGenerated$Write ZapUser:Generated.<Zap$Country>
If ZapGenerated$Path="" Then If "<Wimp$ScrapDir>">"" Then IfWrite <Wimp$ScrapDir> Then Set ZapGenerated$Path <Wimp$ScrapDir>.Zap.
If (ZapGenerated$Path RIGHT 5)=".Zap." Then Set ZapGenerated$Write <Wimp$ScrapDir>.Zap
If ZapGenerated$Path="" Then If "<Wimp$ScrapDir>"="" Then Error Can't find a writeable area for temporary files
IfThere <ZapGenerated$Write> Then Else CDir <ZapGenerated$Write>
