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 / SH_SCRN.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  806 b   |  42 lines
  1. rem     name:     sh_scrn.cdl
  2.  
  3. rem     date:     010389 simon izraelevitz
  4.  
  5. rem     task:     shows on the screen the icon menu
  6.  
  7. rem     -----------------------------------------------
  8.  
  9. rem     Display icon screen
  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,, 5
  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,, 5
  29.    IF (i == columns)
  30.       GOTO icons
  31.    GOTO vloop
  32.  
  33. :icons
  34. DOSUB i_opnsl
  35. DOSUB i_rndsl
  36. DOSUB i_shrpsl
  37. DOSUB i_radsl
  38. DOSUB i_keyout
  39. DOSUB i_keyin
  40. DOSUB i_2arcbl
  41. DOSUB i_oval
  42.