10 LET A=32767
20 LET D=32766
30 POKE A,7
40 POKE D,255-1
50 POKE A,8
60 POKE D,15
100 LET A$="6AE1AC50123B4754352815F4"
110 GOSUB 500
490 GOTO 100
500 FOR J=0 TO 7
510 LET C=CODE A$-28
520 LET A$=A$(2 TO)
530 LET F=CODE A$-28
540 LET A$=A$(2 TO)
550 LET F=F*16+CODE A$-28
560 LET A$=A$(2 TO)
570 POKE A,0
580 POKE D,F
590 POKE A,1
600 POKE D,C
610 FOR F=0 TO 30
620 NEXT F
630 NEXT J
640 RETURN
