subroutine newpen(ipen) C C IPEN(integer) = the pen # ,ie. the color to use C C I've used the HLS args but sofar have only succeeded in C getting 4 colors,ie. the VT125 equivalents C common/init/ilun,factor,imode,ipenst INTEGER IH(8),IL(8),IS(8) DATA IH/0,0,240,120,180,60,120,300/ DATA IL/99,50,35,50,80,25,50,80/ DATA IS/0,100,60,100,25,25,60,60/ C C This is what I wanted to get: C C REGIS VT241 COLORS to simulate 8 pen plotter C IPEN=1 WHITE C IPEN=2 BLUE C IPEN=3 GREEN C IPEN=4 RED C IPEN=5 YELLOW C IPEN=6 PINK C IPEN=7 ORANGE C IPEN=8 TURQUOISE C C only the first 4 work C write(ilun,10)IH(IPEN),IL(IPEN),IS(IPEN) 10 format(' W(I1)W(I(H',I3,'L',I3,'S',I3,'))') return end