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 / PAGE3.CDL < prev    next >
Encoding:
Text File  |  1988-01-19  |  3.6 KB  |  108 lines
  1. rem     name:     page3.cdl
  2.  
  3. rem     date:     011288 simon izraelevitz
  4.  
  5. rem     task:     shows on the screen page3.cdl menu
  6.  
  7. rem     -----------------------------------------------
  8.  
  9. rem     Display page3 menu 
  10.  
  11.    cls
  12.    window -hoffset, -voffset,columns*hinc +2*hoffset, rows*vinc + 4*voffset
  13.    mode draw
  14.  
  15. :hlines
  16.    i = -1
  17. :hloop
  18.    i = i + 1
  19.    vline hstart, i*vinc + vstart, 0.0, columns*hinc, i*vinc + vstart, 0.0,, 15
  20.    if (i == rows)
  21.       goto vlines
  22.    goto hloop
  23.  
  24. :vlines
  25.    i = -1
  26. :vloop
  27.    i = i + 1
  28.    vline i*hinc + hstart, vstart, 0.0, i*hinc + hstart, rows*vinc, 0.0,, 15
  29.    if (i == columns)
  30.       goto text
  31.    goto vloop
  32.  
  33. :text
  34. rem    column - 1        row - 1      CADL program
  35.  
  36. text htx + 0 * hinc , vtx + 0 * vinc , '        ' , 0.0 , vtx ,\
  37. pageasp , , 15 , , 0
  38. text htx + 0 * hinc , vtx + 1 * vinc , '        ' , 0.0 , vtx ,\
  39. pageasp , , 15 , , 0
  40. text htx + 0 * hinc , vtx + 2 * vinc , '        ' , 0.0 , vtx ,\
  41. pageasp , , 15 , , 0
  42. text htx + 0 * hinc , vtx + 3 * vinc , '        ' , 0.0 , vtx ,\
  43. pageasp , , 15 , , 0
  44. text htx + 0 * hinc , vtx + 4 * vinc , '        ' , 0.0 , vtx ,\
  45. pageasp , , 15 , , 0
  46. text htx + 0 * hinc , vtx + 5 * vinc , '        ' , 0.0 , vtx ,\
  47. pageasp , , 15 , , 0
  48. text htx + 0 * hinc , vtx + 6 * vinc , '        ' , 0.0 , vtx ,\
  49. pageasp , , 15 , , 0
  50. text htx + 0 * hinc , vtx + 7 * vinc , '        ' , 0.0 , vtx ,\
  51. pageasp , , 15 , , 0
  52. text htx + 1 * hinc , vtx + 0 * vinc , '        ' , 0.0 , vtx ,\
  53. pageasp , , 15 , , 0
  54. text htx + 1 * hinc , vtx + 1 * vinc , '        ' , 0.0 , vtx ,\
  55. pageasp , , 15 , , 0
  56. text htx + 1 * hinc , vtx + 2 * vinc , '        ' , 0.0 , vtx ,\
  57. pageasp , , 15 , , 0
  58. text htx + 1 * hinc , vtx + 3 * vinc , '        ' , 0.0 , vtx ,\
  59. pageasp , , 15 , , 0
  60. text htx + 1 * hinc , vtx + 4 * vinc , '        ' , 0.0 , vtx ,\
  61. pageasp , , 15 , , 0
  62. text htx + 1 * hinc , vtx + 5 * vinc , '        ' , 0.0 , vtx ,\
  63. pageasp , , 15 , , 0
  64. text htx + 1 * hinc , vtx + 6 * vinc , '        ' , 0.0 , vtx ,\
  65. pageasp , , 15 , , 0
  66. text htx + 1 * hinc , vtx + 7 * vinc , '        ' , 0.0 , vtx ,\
  67. pageasp , , 15 , , 0
  68. text htx + 2 * hinc , vtx + 0 * vinc , '        ' , 0.0 , vtx ,\
  69. pageasp , , 15 , , 0
  70. text htx + 2 * hinc , vtx + 1 * vinc , '        ' , 0.0 , vtx ,\
  71. pageasp , , 15 , , 0
  72. text htx + 2 * hinc , vtx + 2 * vinc , '        ' , 0.0 , vtx ,\
  73. pageasp , , 15 , , 0
  74. text htx + 2 * hinc , vtx + 3 * vinc , '        ' , 0.0 , vtx ,\
  75. pageasp , , 15 , , 0
  76. text htx + 2 * hinc , vtx + 4 * vinc , '        ' , 0.0 , vtx ,\
  77. pageasp , , 15 , , 0
  78. text htx + 2 * hinc , vtx + 5 * vinc , '        ' , 0.0 , vtx ,\
  79. pageasp , , 15 , , 0
  80. text htx + 2 * hinc , vtx + 6 * vinc , '        ' , 0.0 , vtx ,\
  81. pageasp , , 15 , , 0
  82. text htx + 2 * hinc , vtx + 7 * vinc , '        ' , 0.0 , vtx ,\
  83. pageasp , , 15 , , 0
  84. text htx + 3 * hinc , vtx + 0 * vinc , '  MORE  ' , 0.0 , vtx ,\
  85. pageasp , , 15 , , 0
  86. text htx + 3 * hinc , vtx + 1 * vinc , '  HELP  ' , 0.0 , vtx ,\
  87. pageasp , , 15 , , 0
  88. text htx + 3 * hinc , vtx + 2 * vinc , '        ' , 0.0 , vtx ,\
  89. pageasp , , 15 , , 0
  90. text htx + 3 * hinc , vtx + 3 * vinc , '        ' , 0.0 , vtx ,\
  91. pageasp , , 15 , , 0
  92. text htx + 3 * hinc , vtx + 4 * vinc , '        ' , 0.0 , vtx ,\
  93. pageasp , , 15 , , 0
  94. text htx + 3 * hinc , vtx + 5 * vinc , '        ' , 0.0 , vtx ,\
  95. pageasp , , 15 , , 0
  96. text htx + 3 * hinc , vtx + 6 * vinc , '        ' , 0.0 , vtx ,\
  97. pageasp , , 15 , , 0
  98. text htx + 3 * hinc , vtx + 7 * vinc , '        ' , 0.0 , vtx ,\
  99. pageasp , , 15 , , 0
  100.  
  101. rem page title
  102. text  hinc , vtx + 8 * vinc - vinc / 6 ,\
  103. 'PROGRAMS MENU PAGE 3' , 0.0 , vtx , pageasp , , 15 , , 0
  104.  
  105. retrflag = 3
  106. chain utility3.cdl
  107.  
  108.