5 PRINT "[147]"
10 PRINT "TASTEN 1 BIS 4 SCHALTEN DIE RELAIS"
15 R1=-1:R2=-1:R3=-1:R4=-1
20 GET A
30 IF A = 1  THEN R1=R1*-1:GOTO100
40 IF A = 2  THEN R2=R2*-1:GOTO200
50 IF A = 3  THEN R3=R3*-1:GOTO300
60 IF A = 4  THEN R4=R4*-1:GOTO400
100 POKE 214,23
110 POKE 211,38
112 SYS 58640
120 IF R1=1 THEN PRINT "[209]"
127 IF R1=-1THEN PRINT " "
130 GOTO 20
200 POKE 214,23
210 POKE 211,34
220 SYS 58640
225 IF R2=1 THEN PRINT "[209]"
227 IF R2=-1THEN PRINT " "
230 GOTO 20
300 POKE 214,23
310 POKE 211,30
320 SYS 58640
325 IF R3=1 THEN PRINT "[209]"
327 IF R3=-1THEN PRINT " "
330 GOTO 20
400 POKE 214,23
410 POKE 211,26
420 SYS 58640
425 IF R4=1 THEN PRINT "[209]"
427 IF R4=-1THEN PRINT " "
430 GOTO 20