10 OUT7,1:WAIT15:'ONDO 20 POKE #700,0 30 P=I2CR(#39,#700,1,#701,1) 40 A=PEEK(#701):?A 50 R=ASC("_"):GOSUB 200 60 LET H,"OIZ[\5B]^Q" 70 R=ASC(H+(A/10)):?CHR$(R) 80 GOSUB 200:WAIT 10 90 R=ASC("@"):GOSUB 200 100 R=ASC(H+(A%10)):?CHR$(R) 110 GOSUB 200:WAIT 10 170 R=ASC("_"):GOSUB 200 180 WAIT 30 190 GOTO 20 200 ' 210 R=R-64:OUT 7,0:WAIT 1 220 FOR S=0 TO 3+1 230 OUT 7,!( (R >> S)&1 ) 240 WAIT 2 250 NEXT:WAIT 2:'6BIT 260 OUT 7,1 270 WAIT 2 280 RETURN