Sub Main()
Dim wf,wpw,sw

DoOEMButton(169) 'G-kód bezárása
OpenTeachFile "_shaw.tap"

wf=Abs(GetUserDRO(1000))
wpw=Abs(GetUserDRO(1001))
sw=Abs(GetUserDRO(1002))

If wf<(wpw+2*sw+15) Then
  MsgBox "Adatok helytelenül vannak kitöltve! Ellenőrizd!"
  Exit Sub
End If

If (sw=0) Or (wpw<2) Then
  MsgBox "Fűrész vagy a levágandó agyag szélessége kicsi!"
  Exit Sub
End If

Code "(Anyag sz.:" & wf &" mm)"
Code "(Levág.sz:" & wpw &" mm)"
Code "(Fűrész sz:" & sw &" mm)"

Code "G90 G21"
Code "M3"
Code "G0 X"&(wf-10)
Code "M7 M1"
Code "G91"
Code "G0 X-"&(wpw+sw)
Code "M7 M1"
Code "M5 M2"
CloseTeachFile
SaveWizard()
Call LoadTeachFile()
LoadStandardLayout()
End Sub