diff -r 8f7fcf4d2b7e -r 9f527cc360cf src/newgrf_industries.cpp
--- a/src/newgrf_industries.cpp	Sat Sep 22 12:59:43 2007 +0000
+++ b/src/newgrf_industries.cpp	Sat Sep 22 13:56:38 2007 +0000
@@ -243,6 +243,9 @@
 		case 0x67:
 		case 0x68: return GetCountAndDistanceOfClosestInstance(parameter, variable == 0x68 ? GB(GetRegister(0x101), 0, 8) : 0, industry);
 
+		/* Get a variable from the persistent storage */
+		case 0x7C: return industry->psa.Get(parameter);
+
 		/* Industry structure access*/
 		case 0x80: return industry->xy;
 		case 0x81: return GB(industry->xy, 8, 8);
@@ -323,6 +326,7 @@
 	res->GetVariable   = IndustryGetVariable;
 	res->ResolveReal   = IndustryResolveReal;
 
+	res->psa             = &indus->psa;
 	res->u.industry.tile = tile;
 	res->u.industry.ind  = indus;
 	res->u.industry.gfx  = INVALID_INDUSTRYTILE;