/*› * Deep Blue C Linker v 1.2› * (C) 1982 John Howard Palevich› */›#include "clinkg"››charstab[stsize],›buf[block],›type[maxsym],›eof;››intslink[maxsym],›vtab[vtsize], *vbp,vbase[maxf],›ctab[ctsize], *cbp,cbase[maxf],›sptr,›fptr,›bptr,›bad,›input,›output,›errcnt,›pc;››main()$(›pl("\fDeep Blue C linker v1.2");›pl("(C) 1982 John Howard Palevich");›while(command())putchar('\g');›$)››/* get command line & respond to the› * three types of command --› * link, duplicate, quit› */››command()$(›char inline[80],c;›int foff;›pl("\nLink program, Duplicate file or Quit");›gets(inline);›if((c=inline[0])<='Z')c=c+32;›if(c=='q')›return 0; /* quit */››if(c!='d' & c!='l')$(›ps("'");›putchar(c);›pl("' is not a valid command.");›return 1; /* loop */›$)››if((foff=find(inline,›find(inline,80,0),' '))<0)$(›pl("file name?");›gets(inline);›foff=0;›$)›else ++foff; /* skip space */››if(c=='l')$( /* link */›normalize(inline+foff,"LNK");›link(inline+foff);›$)›else if(c=='d')$( /* duplicate */›normalize(inline+foff,"CCC");›duplicate(inline+foff);›$)›return 1; /* get another command */›$)›