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 / UTILITY1.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  2.0 KB  |  125 lines
  1. rem     name:     utility1.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 page1 menu and get choice
  11.  
  12.    if (retrflag > 0)
  13.       goto getmenu
  14.  
  15. :dspmenu
  16.    chain page1.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 2dxform.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 postrim.cdl
  58. :pos18
  59.    dosub restore
  60.    chain ptvector.cdl
  61. :pos21
  62.    dosub restore
  63.    chain 3dxform.cdl
  64. :pos22
  65.    goto open
  66. :pos23
  67.    goto open
  68. :pos24
  69.    dosub restore
  70. :pos25
  71.    dosub restore
  72.    chain lnpptan.cdl
  73. :pos26
  74.    dosub restore
  75.    chain lnpartan.cdl
  76. :pos27
  77.    dosub restore
  78.    chain lnptang.cdl
  79. :pos28
  80.    goto open
  81. :pos31
  82.    dosub restore
  83.    chain 3drot.cdl
  84. :pos32
  85.    goto open
  86. :pos33
  87.    goto open
  88. :pos34
  89.    goto open
  90. :pos35
  91.    goto open
  92. :pos36
  93.    goto open
  94. :pos37
  95.    goto open
  96. :pos38
  97.    goto open
  98. :pos41
  99. rem                  MORE chains to the next menu
  100.    chain utility2.cdl
  101. :pos42
  102. rem                  HELP calls help.cdl
  103.    chain help.cdl
  104. :pos43
  105.    goto open
  106. :pos44
  107.    goto open
  108. :pos45
  109.    goto open
  110. :pos46
  111.    goto open
  112. :pos47
  113.    goto open
  114. :pos48
  115.    goto open
  116.  
  117. :open
  118. prompt "No program is called by this box. Select again."
  119. wait 2
  120. goto getmenu
  121.  
  122. :end
  123.    chain restore.cdl
  124.  
  125.