Konu : 0-1-2-3-4-5-6-7-8-9- karakterleri ile 0 dan sonsuza kadar kalıp nosu yazma programı
BU PROGRAMDAN ÖNCE ismailusta NIN PROGRAMINI KULLANIYORDUK AMA MAZAK TEZGAHIMIZ HAFIZASI O PROGRAMA YETMİYOR NO LARI ELLE NUMARÖRLE VURUYORDUK AMA BU PROGRAM ESKİSİNİN %1 İ KADAR. PROBLEMİ BU PROGRAMI YAPARAK ÇÖZDÜM KUSURSUZ ÇALIŞIYOR ŞU ANDA.                                            TÜM PROGRAMCI ARKADAŞLARA ZİHİN AÇIKLIGI DİLEGİMLE    KOLAY GESİN    :)
İSTEK OLURSA PROGRAMI DEŞİFRELİSİNİ VEREBİLİRİM .   ELİMDE HER İŞYERİNDE KULLANILABİLENECEK MACRO PROGRAMLAR VAR.  CADCAMDA SAATLERCE HAZIRLANAN PROGRAMLARI SİZ 1 DAKİKADADA ÇALIŞTIRABİLİRSİNİZ. CNC DE C++  PROGRAM DİLİ MÜKEMMEL BİRSEY TABİ MATEMATİKTE ÖYLE DEGİLMİ.
% 
O1728(10 karekter ile sonsuz otomatik artan kalıp no pro)
 (BİZDE KALIPLAR İKİ PARÇA OLDUGU İÇİN NO YU İKİ KERE YAZIYOR ALT VE UST) 
G17G69G90G40G49G80  
#10=20      (NO ALT Y DEGERI) 
#11=6        (NO ARA MESAFESI)
#12=-55     (NO BAS X DEGERI) 
#13=0.5     (NO DERINLIGI)
#1=1.2       (NO BUYUKLUGU) 
#15=50       (NO YAZILACAK YUZEY Z DEGERI)   
(BURADAN SONRASI SABİT ) 
#32=[#32+1] 
IF[#32EQ50]GOTO500 
(**********************************)
  (BU KISIM SONUZA KADAR UZALTILABİLİR)
IF[#32GE0]THEN#2=0 
IF[#32GE0]THEN#3=#32 
IF[#32GE10]THEN#2=1
IF[#32GE10]THEN#3=[#32-10] 
IF[#32GE20]THEN#2=2
IF[#32GE20]THEN#3=[#32-20] 
IF[#32GE30]THEN#2=3
IF[#32GE30]THEN#3=[#32-30] 
IF[#32GE40]THEN#2=4
IF[#32GE40]THEN#3=[#32-40] 
(***********************)
N10T09M06
M01
S8000M03 
G55
B0.
G04X2  
(UST)
G0G90Y#:)X-#:)Z100(***)
G:)Y0X-#:)Z#15(***)
M98P#2  
G0Y#:)X#:) 
G:)Y0X-[#:)-[#:)]] 
M98P#3  
G:)X0Y0Z0(***) 
G0Z200  
#10=[#10+[8/#1]](***) 
#10=-#10(***) 
(ALT)
G0G90Y-#:)X-#:)Z100(***) 
G:)Y0X-#:)Z#15(***)
M98P#2  
G0Y-#:)X#:)
G:)Y0X-[#:)-[#:)]] 
M98P#3   
(*********)
(ALTTAKI KONUMLAMAYI SAKIN SILME)
G:)X0Y0Z0
(**********) 
G0Z200 
M5 
M9 
G69
M99 
N500
M00 (PRG LIMIT ALRM) 
(MAX. NO.49) 
M99
%
ALT PROGRAMLAR
O0000   O0001      O0002    O0003   O0004    O0005    O0006    O0007    O0008   O0009   
(BU KADAR)