Attribute VB_Name = "a01_Economics_1"
Option Explicit

Public Sub new_economy_1()
  status "Economy 1"
End Sub