Procedure SET_POCKETBOOK_ZONES
' U-Zone generated procedure.
'
' Created on 06-12-1992 at 18:35:57
'
'Zf IFF File Was <DF0:Calc.IFF>
'Zn   1 Photo-cells
'Zw   2 Wind Open 1,336,17,20,8
'Zn   3 Light
'Zs   4 Hslider 334,88 To 498,94,TOTAL,POS,SIZE
'Zs   5 Vslider 508,16 To 520,83,TOTAL,POS,SIZE
'Zn   6 Key OFF
'Zn   7 Key A
'Zn   8 Key B
'Zn   9 Key C
'Zn  10 Key D
'Zn  11 Key E
'Zn  12 Key F
'Zn  13 Key !
'Zn  14 Key £
'Zn  15 Key $
'Zn  16 Key %
'Zn  17 Key CLEAR
'Zn  18 Key ^
'Zn  19 Key v
'Zn  20 Key ON
'Zo  0, 0
   Screen POCKETBOOK
   Set Slider 0,0,1,31,0,0,1,1
   Reserve Zone 20
   Set Zone 1,331,5 To 415,13
   Set Zone 2,336,17 To 496,81
   Set Zone 3,508,4 To 522,12
   Set Zone 4,334,88 To 498,94
   Set Zone 5,508,16 To 520,83
   Set Zone 6,508,88 To 520,94
   Set Zone 7,331,100 To 365,118
   Set Zone 8,371,100 To 405,118
   Set Zone 9,411,100 To 445,118
   Set Zone 10,451,100 To 485,118
   Set Zone 11,491,100 To 525,118
   Set Zone 12,331,121 To 365,139
   Set Zone 13,371,121 To 405,139
   Set Zone 14,411,121 To 445,139
   Set Zone 15,451,121 To 485,139
   Set Zone 16,491,121 To 525,139
   Set Zone 17,331,142 To 405,160
   Set Zone 18,411,142 To 445,160
   Set Zone 19,451,142 To 485,160
   Set Zone 20,491,142 To 525,160
End Proc