home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / UTILITY2.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  2.0 KB  |  123 lines
  1. rem     name:     utility2.cdl
  2.  
  3. rem     date:     011288 simon izraelevitz
  4.  
  5. rem     task:     utility program to call cadl programs from a menu on
  6. rem               the screen
  7.  
  8. rem     -----------------------------------------------
  9.  
  10. rem  Display page2 menu and get choice
  11.  
  12.    if (retrflag > 1)
  13.       goto getmenu
  14.  
  15. :dspmenu
  16.    chain page2.cdl
  17.  
  18. :getmenu
  19.    menopt = 1
  20.    getpos "Cursor-indicate CADL program to run", menopt
  21.    if (@key <= -2)
  22.       goto end
  23.    if (@key != 1)
  24.       goto getmenu
  25.    col = floor (@xview / hinc)
  26.    row = floor (@yview / vinc)
  27.  
  28.    on col goto col1,col2,col3,col4,
  29.  
  30. :col1
  31.    on row goto pos11,pos12,pos13,pos14,pos15,pos16,pos17,pos18,
  32.  
  33. :col2
  34.    on row goto pos21,pos22,pos23,pos24,pos25,pos26,pos27,pos28,
  35.  
  36. :col3
  37.    on row goto pos31,pos32,pos33,pos34,pos35,pos36,pos37,pos38,
  38.  
  39. :col4
  40.    on row goto pos41,pos42,pos43,pos44,pos45,pos46,pos47,pos48,
  41.  
  42. :pos11
  43.    dosub restore
  44.    chain cincispl.cdl
  45. :pos12
  46.    goto open
  47. :pos13
  48.    goto open
  49. :pos14
  50.    goto open
  51. :pos15
  52.    goto open
  53. :pos16
  54.    goto open
  55. :pos17
  56.    dosub restore
  57.    chain cirlnend.cdl
  58. :pos18
  59.    dosub restore
  60.    chain cylint.cdl
  61. :pos21
  62.    goto open
  63. :pos22
  64.    goto open
  65. :pos23
  66.    goto open
  67. :pos24
  68.    goto open
  69. :pos25
  70.    goto open
  71. :pos26
  72.    dosub restore
  73.    chain splflip.cdl
  74. :pos27
  75.    dosub restore
  76.    chain arcflip.cdl
  77. :pos28
  78.    dosub restore
  79.    chain twoptsvw.cdl
  80. :pos31
  81.    goto open
  82. :pos32
  83.    goto open
  84. :pos33
  85.    goto open
  86. :pos34
  87.    goto open
  88. :pos35
  89.    goto open
  90. :pos36
  91.    goto open
  92. :pos37
  93.    goto open
  94. :pos38
  95.    goto open
  96. :pos41
  97. rem                  MORE chains to the next menu
  98.    chain utility3.cdl
  99. :pos42
  100. rem                  HELP calls help.cdl
  101.    chain help.cdl
  102. :pos43
  103.    goto open
  104. :pos44
  105.    goto open
  106. :pos45
  107.    goto open
  108. :pos46
  109.    goto open
  110. :pos47
  111.    goto open
  112. :pos48
  113.    goto open
  114.  
  115. :open
  116. prompt "No program is called by this box. Select again."
  117. wait 2
  118. goto getmenu
  119.  
  120. :end
  121.    chain restore.cdl
  122.  
  123.