home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / GBROUTE1,03PLUS.DMS / in.adf / ARexx / GBRZOOM.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1991-09-12  |  2.8 KB  |  93 lines
  1. /*****************************************************************************
  2. **                                                                          **
  3. **                       GBRoute Plus ARexx Script                          **
  4. **                                                                          **
  5. **                       (c) 1991 Complex Computers                         **
  6. **                                                                          **
  7. **  Name : gbrzoom.rexx                                                     **
  8. **                                                                          **
  9. **  Description : Rolling Zoom demo                                         **
  10. **                                                                          **
  11. *****************************************************************************/
  12.  
  13.                                         /* get host                         */
  14. address GBR
  15.                                         /* push GBRoute screen to front     */
  16. scrn 1
  17.  
  18. roads 1                                 /* turn roads on                    */
  19.                                  
  20. reset                                   /* clear all input buffers          */
  21. short                                   /* select shortest route            */
  22.  
  23. do p=1 to 2                             /* loop twice (filled and wireframe)*/
  24.  
  25.    fill p // 2
  26.  
  27.    from frome                           /* enter route Frome to Pratt's Bum */
  28.    to "pratt's bottom"
  29.  
  30.    go                                   /* calc that route!                 */
  31.  
  32.    gbin(1)                              /* in.. out.. up and down...        */
  33.    gblft(2)
  34.    gbin(1)
  35.    gbdwn(1)
  36.    gbin(1)
  37.    gbrgt(7)
  38.    gbup(1)
  39.    gbrgt(4)
  40.    gbup(1)
  41.    gbrgt(5)
  42. end
  43.  
  44. scrn 0                                  /* back to cli reality              */
  45.  
  46. exit                                    /* and exit ARexx script            */
  47.  
  48.                                         /* screen navigation functions      */
  49.                                         /* in each case 'i' is the number   */
  50.                                         /* of operations                    */
  51.  
  52. gbup:                                   /* Up 'i' times                     */
  53. arg i
  54. do j=1 to i 
  55.    zup
  56. end
  57. return 1
  58.  
  59. gbdwn:                                  /* Down 'i' times                   */
  60. arg i
  61. do j=1 to i
  62.    zdown
  63. end
  64. return 1
  65.  
  66. gblft:                                  /* Left 'i' times                   */
  67. arg i
  68. do j=1 to i
  69.    zleft
  70. end
  71. return 1
  72.  
  73. gbrgt:                                  /* Right 'i' times                  */
  74. arg i
  75. do j=1 to i
  76.    zright
  77. end
  78. return 1
  79.  
  80. gbin:                                   /* In 'i' times                     */
  81. arg i
  82. do j=1 to i
  83.    zin
  84. end
  85. return 1
  86.  
  87. gbout:                                  /* Out 'i' times                    */
  88. arg i
  89. do j=1 to i
  90.    zout
  91. end
  92. return 1
  93.