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 / TBWRTT.CDL < prev    next >
Encoding:
Text File  |  1980-01-03  |  952 b   |  45 lines
  1. REM ************************************************************************
  2. REM       Text template maker --- subroutine (tbwrtt.cdl)
  3.  
  4. REM    Purpose:  To write the entire text template onto the part
  5. REM ************************************************************************
  6.  
  7.  
  8.    SET devin, $tplname
  9. :read_fld
  10.    INPUT "%d %s %d",sqnum,$tmp,nchar
  11.  
  12.    CLEAR    $fldtxt
  13.    ARRAY    $fldtxt[nchar+1]
  14.  
  15. REM   *** dummy read two characters
  16.    INPUT "%c %c",$fldtxt[0],$fldtxt[1]
  17.  
  18.    i = 0
  19. :txtloop
  20.    INPUT "%c",$fldtxt[i]
  21.    IF ($fldtxt[i] == 34)
  22.       GOTO read_more
  23.    i = i + 1
  24.    goto txtloop
  25.  
  26. :read_more
  27.    $fldtxt[i] = 0
  28.    INPUT "%f %f %f %f %f %d %d\n",dx,dy,fldlngth,txtht,asprat,font,pen
  29.  
  30.    IF (sqnum != 10000)
  31.       GOTO write_txt
  32.    GOTO exit
  33.  
  34. :write_txt
  35.    txtx = bpx + dx
  36.    txty = bpy + dy
  37.    TEXT txtx,txty,$fldtxt,0,txtht,asprat,0,0,0,font,0,0,pen
  38.    GOTO read_fld
  39.  
  40.  
  41. :exit
  42.    CLOSE devin
  43.    EXIT
  44.  
  45.