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
%