5 PRINT"[147]":POKE53280,12
10 d
1,15
20 do5,5," STROMLAUFPLAN EINER WECHSELSCHALTUNG",1,1,8
25 do5,165," MIT EINER WECHSELSCHALTUNG IST ES MOEGLICH,",1,1,7
26 do5,175," EINEN VERBRAUCHER VON 2 STELLEN AUS ",1,1,7
27 do5,185," UNABHAENGIG VONEINANDER ZU SCHALTEN.",1,1,7
30 do5,11," ------------------------------------",1,1,8
31 do45,125,"SCHALTER 1",1,1,8
32 do 155,125,"SCHALTER 2",1,1,8
33 do45,135,"JOYSTICK P.II",1,1,6
34 do 155,135,"JOYSTICK P.II",1,1,6
35 do 45,145,"LINKS,RECHTS",1,1,6
36 do 155,145,"OBEN,UNTEN",1,1,6
40 d8,45,48,1,1
50 d 18,48,150,48,1
60 dB 160,48,10,10,1
70 d156,41,163,56,1:d164,41,156,56,1
90 d 170,48,300,48,1
110 d8,100,18,1,1
120 d 18,103,95,103,1
150 d90,100,81,1,1:d110,90,81,1,1:d110,110,81,1,1
160 d200,90,81,1,1:d200,110,81,1,1:d220,100,81,1,1
180 d 112,114,200,114,1
210 d 112,94,200,94,1
240 d 222,104,300,104,1
270 d300,48,300,104,1
291 d203,93,220,103,1
292 d220,106,206,113,1
300 d93,103,112,95,1
302 d93,103,112,112,1
309 X=dQ
310 IF dX(111,112)ANDdX(206,113)=1THEN:POKE53280,1
311 IF dX(111,112)ANDdX(206,113)=0THEN:POKE53280,0
312 IF dX(111,95)ANDdX(203,93)=1THEN:POKE53280,1
313 IF dX(111,95)ANDdX(203,93)=00THEN:POKE53280,0
318 IFX=7THEN d93,103,112,95,0:d93,103,112,112,1
319 IFX=7THEN d93,103,112,95,0:d93,103,112,112,1
320 IFX=7THEN d93,103,112,95,0:d93,103,112,112,1
321 IFX=3THENd93,103,112,112,0:d93,103,112,95,1
340 IFX=5THEN d203,93,220,103,0:d220,106,206,113,1
350 IFX=1THEN d220,106,206,113,0:d203,93,220,103,1
500 GOTO  309