Code Gallery: Fischertechnik-Interface

10 rem interface programm fuer commodore 64 20 rem copyright (c) artur fischer forschung 1984 30 rem aufruf des programms mit 40 rem sys m1,ein sys m1,aus 50 rem sys m1,rechts sys m1,links 60 rem usr(e1) usr(ex) usr(ey) 70 rem m1 bis m4 sind motoransteuerungen 80 rem e1 bis e8 sind digitaleingaenge 90 rem ex und ey sind analogeingaenge 100 data 52736,169,0,240,38,169,3,208,10,53573 110 data 169,12,208,6,169,48,208,2,54395 120 data 169,192,120,133,255,32,253,174,55723 130 data 165,254,5,255,133,254,32,158,56979 140 data 183,138,37,255,133,255,165,254,58399 150 data 69,255,133,254,168,169,63,141,59651 160 data 3,221,162,8,169,48,6,254,60522 170 data 144,2,9,4,141,1,221,9,61053 180 data 8,141,1,221,202,208,237,169,62240 190 data 57,141,1,221,132,254,88,96,63230 200 data 120,32,161,183,224,162,240,51,64403 210 data 224,146,240,47,134,255,169,50,65668 220 data 141,1,221,9,8,141,1,221,66411 230 data 162,8,10,44,1,221,16,2,66875 240 data 9,1,160,48,140,1,221,160,67615 250 data 56,140,1,221,202,208,235,37,68715 260 data 255,168,240,2,160,1,32,162,69735 270 data 179,88,96,169,255,141,4,221,70888 280 data 141,5,221,169,185,141,14,221,71985 290 data 142,1,221,162,58,142,1,221,72933 300 data 173,4,221,162,3,202,208,253,74159 310 data 56,237,4,221,208,242,162,56,75345 320 data 142,1,221,56,169,255,237,4,76430 330 data 221,168,169,255,237,5,221,32,77738 340 data 145,179,76,137,206,0,0,0,78481 350 data 1,2,4,8,16,32,64,128,78736 360 data 162,146,255,170,85,85,80,206,79925 370 read init : m1=init 380 for m3=0 to 24 : for m2=0 to 7 390 read m4 : poke init+m3*8+m2,m4 400 m1=m1+m4 : next 410 read m4 : if m1<>m4 then print"datafehler in zeile";m3*10+100:end 420 next 430 read e1,e2,e3,e4,e5,e6,e7,e8 440 m1=m1+e1+e2+e3+e4+e5+e6+e7+e8 450 read m4 : if m1<>m4 then print"datafehler in zeile 350" : end 460 read ex,ey,aus,links,rechts,ein,m2,m3 470 m1=m1+ex+ey+aus+links+rechts+ein+m2+m3 480 read m4 : if m1<>m4 then print"datafehler in zeile 360" : end 485 poke785,m2 : poke786,m3 490 m1=init+4 : m2=m1+4 : m3=m2+4 : m4=m3+4