寫個FIL 問你!
試試看..::?::?::?
CIMFIL/ON,MACHIN $$ Startcode
rslt=POSTF(13) $$ MUST DO
SEQNO/OFF
prmpt=TEXT/'ENTER WORK OFFSET'
rslt=FILEF(0,1,prmpt) $$ File function and write to screen
wkoset=TEXT/READ,0 $$ Read from the screen
PREFUN/90,NEXT $$ G90
PREFUN/80,NEXT $$ G80
PREFUN/17,NEXT $$ G17
PREFUN/0 $$ G00
INSERT/'G',wkoset,'$'
CIMFIL/OFF |