CIMFIL/ON,MACHIN $$ Startcode
rslt=POSTF(13) $$ MUST DO
SEQNO/OFF
prmpt=TEXT/'ENTER PROGRAM NUMBER'
rslt=FILEF(0,1,prmpt) $$ File function and write to screen
prgnm=TEXT/READ,0 $$ Read from the screen
INSERT/'O',prgnm,'$'
PREFUN/90,NEXT $$ G90
PREFUN/80,NEXT $$ G80
PREFUN/17,NEXT $$ G17
PREFUN/0 $$ G00
CIMFIL/OFF
會輸出
Oxxxx ------- 你輸入的值
G90G80G17G00 |