home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd454 / calc.asc < prev    next >
Text File  |  1992-12-06  |  1KB  |  53 lines
  1. Procedure SET_CALCULATOR_ZONES
  2. ' U-Zone generated procedure.
  3. '
  4. ' Created on 06-12-1992 at 18:37:08
  5. '
  6. 'Zf IFF File Was <DF0:Calc.IFF>
  7. 'Zn   1 Photo-cells
  8. 'Zw   2 Wind Open 1,32,17,20,3
  9. 'Zn   3 Key 7
  10. 'Zn   4 Key 8
  11. 'Zn   5 Key 9
  12. 'Zn   6 Key /
  13. 'Zn   7 Key 4
  14. 'Zn   8 Key 5
  15. 'Zn   9 Key 6
  16. 'Zn  10 Key X
  17. 'Zn  11 Key 1
  18. 'Zn  12 Key 2
  19. 'Zn  13 Key 3
  20. 'Zn  14 Key -
  21. 'Zn  15 Key 0
  22. 'Zn  16 Key .
  23. 'Zn  17 Key +/-
  24. 'Zn  18 Key +
  25. 'Zn  19 Key C
  26. 'Zn  20 Key AC
  27. 'Zn  21 Key =
  28. 'Zo  0, 0
  29.    Screen KEYPAD
  30.    Reserve Zone 21
  31.    Set Zone 1,29,5 To 113,13
  32.    Set Zone 2,32,17 To 191,40
  33.    Set Zone 3,35,56 To 69,74
  34.    Set Zone 4,75,56 To 109,74
  35.    Set Zone 5,115,56 To 149,74
  36.    Set Zone 6,155,56 To 189,74
  37.    Set Zone 7,35,77 To 69,95
  38.    Set Zone 8,75,77 To 109,95
  39.    Set Zone 9,115,77 To 149,95
  40.    Set Zone 10,155,77 To 189,95
  41.    Set Zone 11,35,98 To 69,116
  42.    Set Zone 12,75,98 To 109,116
  43.    Set Zone 13,115,98 To 149,116
  44.    Set Zone 14,155,98 To 189,115
  45.    Set Zone 15,35,119 To 69,137
  46.    Set Zone 16,75,119 To 109,137
  47.    Set Zone 17,115,119 To 149,137
  48.    Set Zone 18,155,119 To 189,137
  49.    Set Zone 19,35,140 To 69,158
  50.    Set Zone 20,75,140 To 109,158
  51.    Set Zone 21,115,140 To 189,158
  52. End Proc
  53.