100 POKE53280,0:POKE53281,0:
110 DATA1,2,3,4,5,6,7,8
120 A$(0)=" [215]  ":A$(1)="[150] [209]  "
130 FORI=0TO7:READT$(I):NEXT:Z=0
140 POKE56579,255
150 PRINT"[147][155]          LAMPENTEST"
160 PRINT"          [163][163][163][163][163][163][163][163][163][163]"
170 PRINT"<1> <2> <3> <4> <5> <6> <7> <8>"
180 PRINT"<1> BIS <8> - LAMPE AUS/EIN"
190 PRINT"<RETURN>    - ALLE LAMPEN EIN"
200 PRINT"<SPACE>     - ALLE LAMPEN AUS"
210 POKE56577,Z:PRINT"[158]WORK"
220 FORI=0TO7
230 IF(ZAND(2^I))=0THENPRINTA$(0);:GOTO250
240 PRINTA$(1);
250 NEXT:PRINT
260 PRINT"       ":POKE198,0:WAIT198,1:GETZ$
270 FORI=0TO7:IFZ$=T$(I)THEND=I:GOTO330
280 NEXT
290 IFZ$=CHR$(13)THENZ=255:GOTO210
300 IFZ$=" "THENZ=0:GOTO210
310 GOTO260
320 :
330 IF(ZAND(2^D))>0THENZ=ZAND(255-(2^D)):GOTO210
340 Z=ZOR(2^D):GOTO210