home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / binaries / readargs.lha / SetPen.e < prev   
Text File  |  1992-03-06  |  1KB  |  43 lines
  1. OPT OSVERSION=37
  2.  
  3. PROC main()
  4.   DEF args:PTR TO LONG,rdargs,outs[50]:STRING,s[10]:STRING
  5.   args:=[0,0,0,0,0,0,0,0,0,0,0,0,0]
  6.   IF rdargs:=ReadArgs('RESET/S,BOLD/S,NOBOLD/S,ITALIC/S,NOITALIC/S,'+
  7.     'UNDERSCORE/S,NOUNDERSCORE/S,REVERSE/S,NOREVERSE/S,ECHOOFF/S,'+
  8.     'ECHOON/S,FGPEN/K/N,BGPEN/K/N',args,NIL)
  9.     StrAdd(outs,'[',1)
  10.     IF args[0] THEN StrAdd(outs,'0;',ALL)
  11.     IF args[1] THEN StrAdd(outs,'1;',ALL)
  12.     IF args[2] THEN StrAdd(outs,'22;',ALL)
  13.     IF args[3] THEN StrAdd(outs,'3;',ALL)
  14.     IF args[4] THEN StrAdd(outs,'23;',ALL)
  15.     IF args[5] THEN StrAdd(outs,'4;',ALL)
  16.     IF args[6] THEN StrAdd(outs,'24;',ALL)
  17.     IF args[7] THEN StrAdd(outs,'7;',ALL)
  18.     IF args[8] THEN StrAdd(outs,'27;',ALL)
  19.     IF args[9] THEN StrAdd(outs,'8;',ALL)
  20.     IF args[10] THEN StrAdd(outs,'28;',ALL)
  21.     IF args[11]
  22.       StrAdd(outs,'3',ALL)
  23.       StringF(s,'\d[1]',Long(args[11]))
  24.       StrAdd(outs,s,1)
  25.       StrAdd(outs,';',1)
  26.     ENDIF
  27.     IF args[12]
  28.       StrAdd(outs,'4',ALL)
  29.       StringF(s,'\d[1]',Long(args[12]))
  30.       StrAdd(outs,s,1)
  31.       StrAdd(outs,';',1)
  32.     ENDIF
  33.     IF Not(StrCmp(outs,'[',ALL))
  34.       MidStr(outs,outs,0,EstrLen(outs)-1)
  35.       StrAdd(outs,'m',1)
  36.       WriteF('\c\s',27,outs)
  37.     ENDIF
  38.     FreeArgs(rdargs)
  39.   ELSE
  40.     WriteF('bad arguments\n')
  41.   ENDIF
  42. ENDPROC
  43.