Konu : 0-1-2-3-4-5-6-7-8-9- karakterleri ile 0 dan sonsuza kadar kalıp nosu yazma programı
% 
O1728(KALIP NO PROGRAMI)  
G17G69G90G40G49G80  
#10=20(YAZI ALT Y DEGERI + ) 
#11=6(YAZI ARA MESAFESI)
#12=-55(YAZI BAS X DEGERI + ) 
#13=0.5(YAZI DERINLIGI)
#1=1.2(YAZI BUYUKLUGU) 
#15=0(YAZI YAZILACAK YUZEY Z )   
(YAZI KAREKTERLERI) 
#32=[#32+1] 
IF[#32EQ50]GOTO500  
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#10X-#12Z100(***)
G52Y0X-#12Z#15(***)
M98P#2  
G0Y#10X#11 
G52Y0X-[#12-[#11]] 
M98P#3  
G52X0Y0Z0(***) 
G0Z200  
#10=[#10+[10/#1]](***) 
#10=-#10(***) 
(ALT)
G0G90Y-#10X-#12Z100(***) 
G52Y0X-#12Z#15(***)
M98P#2  
G0Y-#10X#11
G52Y0X-[#12-[#11]] 
M98P#3   
(*********)
(ALTTAKI KONUMLAMAYI SAKIN SILME)
G52X0Y0Z0
(**********) 
G0Z200 
M5 
M9 
G69
M99 
N500
M00 (PRG LIMIT ALRM) 
(MAX. NO.49) 
M99
%