isel automation C 116-4 Hardware-Beschreibung Seite 84

isel-CNC-Betriebssystem 5.x
Programmierbeispiel
PAL-PC
#axis xy;
reference xy;
moveto 50(500),300(900);
moveto 20(200),30(900);
moveto 0(21),00(2000);
stop.
14
GW-BASIC
100 open"com1.9600,N,8,1,DS,CD"as #1
110 print#1,"@03":gosub 1000
120 print#1,"@0M50,500,300,900"
125 gosub 1000
130 print#1,"@0M20,200,30,900"
135 gosub 1000
140 print#1,"@0M 0,21,700,2000"
145 gosub 1000
150 stop
1000 if loc(1)<1 then goto 1000
1010 a$=input$(1,1)
1015 if a$="0" then return
1020 print "Karte meldet Fehler : ";a$
1030 stop
iselautomation KG