Procedure SET_CALCULATOR_ZONES
' U-Zone generated procedure.
'
' Created on 06-12-1992 at 18:37:08
'
'Zf IFF File Was <DF0:Calc.IFF>
'Zn   1 Photo-cells
'Zw   2 Wind Open 1,32,17,20,3
'Zn   3 Key 7
'Zn   4 Key 8
'Zn   5 Key 9
'Zn   6 Key /
'Zn   7 Key 4
'Zn   8 Key 5
'Zn   9 Key 6
'Zn  10 Key X
'Zn  11 Key 1
'Zn  12 Key 2
'Zn  13 Key 3
'Zn  14 Key -
'Zn  15 Key 0
'Zn  16 Key .
'Zn  17 Key +/-
'Zn  18 Key +
'Zn  19 Key C
'Zn  20 Key AC
'Zn  21 Key =
'Zo  0, 0
   Screen KEYPAD
   Reserve Zone 21
   Set Zone 1,29,5 To 113,13
   Set Zone 2,32,17 To 191,40
   Set Zone 3,35,56 To 69,74
   Set Zone 4,75,56 To 109,74
   Set Zone 5,115,56 To 149,74
   Set Zone 6,155,56 To 189,74
   Set Zone 7,35,77 To 69,95
   Set Zone 8,75,77 To 109,95
   Set Zone 9,115,77 To 149,95
   Set Zone 10,155,77 To 189,95
   Set Zone 11,35,98 To 69,116
   Set Zone 12,75,98 To 109,116
   Set Zone 13,115,98 To 149,116
   Set Zone 14,155,98 To 189,115
   Set Zone 15,35,119 To 69,137
   Set Zone 16,75,119 To 109,137
   Set Zone 17,115,119 To 149,137
   Set Zone 18,155,119 To 189,137
   Set Zone 19,35,140 To 69,158
   Set Zone 20,75,140 To 109,158
   Set Zone 21,115,140 To 189,158
End Proc