Haas renishaw

Kod: Zaznacz cały

O03020 (DPRNT EXAMPLES, NGC)
(NOTE, IF PROGRAM WILL NOT LOAD, REMOVE COLONS ":" AND)
(REPLACE SPACES WITH "*")
(":" ONLY ALLOWED IN SW VERSION 100.17.000.2037 AND NEWER)

G04 P1. (1 SECOND DWELL, JUST SO WE HAVE A CYCLE TIME)

G103 P1 (LIMIT LOOKAHEAD)

(* CAN BE USED AS SPACES)
DPRNT[------------------] 
DPRNT[*******HAAS] 
DPRNT[**TIP-OF-THE-DAY] 
DPRNT[**DPRNT*EXAMPLES] 
DPRNT[------------------] 

(DPRNT BLANK LINE)
DPRNT[]

(DPRNTS ALL TEXT, A PART NUMBER)
DPRNT[ PART NUMBER: 265-4183, REV. X2] 

(DPRNT BLANK LINE)
DPRNT[]

(SET MACRO VARIABLE #100)
#100= 123456789.12 

(DPRNTS MACRO VARIABLE INFO)
(THE 92 IS OUTPUT FORMAT. NINE INTEGERS, TWO NUMBERS PAST DECIMAL)
(NOTE HOW IT DPRNTS FIRST #100 AS TEXT, NO FORMAT NUMBER AFTER IT)
DPRNT[*MACRO*#100:*#100[92]]

(DPRNT BLANK LINE)
DPRNT[]

(SIMPLE DATE AND TIME)
DPRNT[ DATE YYMMDD: #3011[60]]
DPRNT[ TIME HHMMSS: #3012[60]]

(DPRNT BLANK LINE)
DPRNT[]

(ALTERNATE DATE/TIME EUROPE FORMAT)
(YEAR) #10= FIX[ #3011 / 10000 ] 
(MONTH)#11= FIX[ [ #3011 - [ #10 * 10000 ] ] / 100 ] 
(DAY)  #12= FIX[ [ #3011 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ] 
DPRNT[ DATE:*20#10[40]-#11[20]-#12[20]]
(HOUR)   #10= FIX[ #3012 / 10000 ] 
(MINUTE) #11= FIX[ [ #3012 - [ #10 * 10000 ] ] / 100 ] 
(SECOND) #12= FIX[ [ #3012 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ] 
DPRNT[ TIME:*#10[20]:#11[20]:#12[20]]

(DPRNT BLANK LINE)
DPRNT[]

(ALTERNATE DATE/TIME US FORMAT)
(YEAR) #10= FIX[ #3011 / 10000 ] 
(MONTH)#11= FIX[ [ #3011 - [ #10 * 10000 ] ] / 100 ] 
(DAY)  #12= FIX[ [ #3011 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ] 
DPRNT[ DATE:*#11[20]-#12[20]-20#10[40]]
(HOUR)  #10= FIX[ #3012 / 10000 ] 
(MINUTE)#11= FIX[ [ #3012 - [ #10 * 10000 ] ] / 100 ] 
(SECOND)#12= FIX[ [ #3012 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ] 
DPRNT[ TIME: #10[20]:#11[20]:#12[20]]

(DPRNT BLANK LINE)
DPRNT[]

(PROBED DIMENSIONS)
(SEE RENISHAW INSPECTION PLUS MANUAL)
(SECTION 4-2 FOR VARIABLE LIST)

(PROBED BORE DIAMETER, #188)
DPRNT[*PROBED*BORE*DIA.:**#188[14]]

(BORE XY CENTER, #185, #186)
DPRNT[*BORE*CENTERLINE :*X#185[24]*Y#186[24]]

(DPRNT BLANK LINE)
DPRNT[]

(#3901 PARTS COUNTER)
DPRNT[*PARTS*MADE:*#3901[90]]

(DPRNT BLANK LINE)
DPRNT[]

(#3024 LAST PART TIMER)
DPRNT[*TIME,*LAST PART:*#3024[40]*SECONDS]

(DPRNT BLANK LINE)
DPRNT[]

DPRNT[------------------]
DPRNT[***END*EXAMPLES**]
DPRNT[------------------]

G103 (RETURN TO NORMAL LOOKAHEAD)
M30