1 POKE &6700,&02,&00,&88,&60,&00,&61,&08,&12,&5D,&60,&3F,&DD,&D2,&2A,&03,&61
2 POKE &6710,&80,&DD,&61,&40,&DD,&49,&29,&10,&12,&5E,&61,&02,&5F,&60,&FD,&5F
3 POKE &6720,&37
4 END 
100 "A" CLS :WAIT 0:PRINT "LED Light Effect"
110 Q=1:V=0:B=0:K=7
120 FOR I=0 TO K
130 X=PEEK (&6800+8*B+I)
140 POKE &6701,X:CALL &6700
150 CURSOR 0:PRINT X;"  "
160 A$=INKEY$ :IF A$ GOSUB 200
170 FOR J=0 TO V:NEXT J
180 NEXT I
190 GOTO 120
200 IF A$="P"GOTO 250
210 IF A$="O"GOTO 300
220 V=(A$="+")-((A$="-")AND V>0)+V
230 PRINT 
240 RETURN 
250 CURSOR 24:INPUT "Show program:";B
260 IF B<0 OR B>100 GOTO 250
270 GOTO 230
300 CURSOR 48:INPUT "Number of programs:";Q
310 IF Q<1 OR Q>100 GOTO 300
320 K=8*Q-1
330 GOTO 230
400 "=" INPUT "Edit program:";B
410 IF B<0 OR B>100 GOTO 400
420 FOR I=0 TO 7
430 INPUT "(?)=";R
440 POKE (&6800+8*B+I),R
450 NEXT I
460 B=B+1:PRINT "Edit program:";B
470 GOTO 420
500 "S" CLS:WAIT 0:PRINT "TEST LED Light Effect"
510 FOR I=0 TO 255
520 POKE &6701,I:CALL &6700
530 NEXT I
540 GOTO 510
550 END