Page:Calligraphy for computers (Hershey, 1967) (IA DTIC AD0662398).djvu/40

 PART I

MATHEMATICAL REPERTORY

STRETCH SUBROUTINE TO EXTRACT CHARACTER DATA FROM BLOCK 0130

SUBROUTINE XCD130 (NC, IC)


 * NC = CHARACTER NUMBER (FORTRAN INTEGER)
 * IC = CHARACTER ARRAY (SYMBOLIC ADDRESS)