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 / TBOX.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.7 KB  |  74 lines
  1. REM ************************************************************************
  2. REM       Text template maker --- main program (tbox.cdl)
  3.  
  4. REM    Purpose:  To make and modify a text template for use as a title 
  5. REM          block, or other application.  The four major commands
  6. REM          are:
  7.  
  8. REM        Create template:  allows user to define field positions,
  9. REM                  widths, and text attributes
  10. REM        Modify Field:      allows user to modify any single field parameter
  11. REM        Write Field:      writes a single field onto the part
  12. REM        Write Template:      writes all fields onto the part
  13.  
  14. REM          The template description is saved as an ASCII file, and
  15. REM          can be recalled for use by the TBOX cadl program
  16. REM ************************************************************************
  17.  
  18.  
  19.    CLEAR
  20.  
  21.    txtht = @dimht
  22.    asprat = @txtasp
  23.    pen = @pen
  24.    font = 1
  25.    def1 = 1
  26.    def3 = 3
  27.    $tplname = "tbox"
  28.    $defstr = " "
  29.    $deftxt = " "
  30.    $fldname = " "
  31.  
  32. :get_tplname
  33.    GETSTR "Enter template name (%s):",$tplname,$tplname
  34.    ON (@KEY + 3) GOTO exit,exit,
  35.  
  36. :ind_basept
  37.    GETPOS  "Indicate template base position",def3
  38.    ON (@KEY + 3) GOTO exit,get_tplname,ind_basept,
  39.    bpx = @XVIEW
  40.    bpy = @YVIEW
  41.  
  42. :menu
  43.    GETMENU "Select option.",\
  44.             "CRT TPL",\
  45.             "APP FLD",\
  46.             "MOD FLD",\
  47.             "WRT FLD",\
  48.             "WRT TPL"
  49.    ON (@KEY + 3) GOTO exit,exit,menu,menu,crt_tpl,app_fld,mod_fld,\
  50.                       wrt_fld,wrt_tpl,
  51.  
  52. :crt_tpl
  53.    makeflg = 0
  54.    DOSUB tbmake
  55.    GOTO menu
  56.  
  57. :app_fld
  58.    DOSUB tbappnd
  59.    GOTO menu
  60.  
  61. :mod_fld
  62.    DOSUB tbmod
  63.    GOTO menu
  64.  
  65. :wrt_fld
  66.    DOSUB tbwrtf
  67.    GOTO menu
  68.  
  69. :wrt_tpl
  70.    DOSUB tbwrtt
  71.    GOTO menu
  72.  
  73. :exit
  74.