IchigoUpdate OUT5 version

5 'IchigoUpdate 10F 20PR 30ALL
10 S=0:E=5:GOTO40
20 S=6:E=7:GOTO40
30 S=0:E=7
40 VIDEO0:OUT5,0:WAIT30:OUT5,1:WAIT30
50 H=#1003:UART1,2:?"?"
60 IFPEEK(H)=0GOTO60ELSEIFINKEY()!=#64GOTO60
70 GOSUB5110
80 ?"Synchronized"
100 GOSUB5100
130 UART1,2:?"12000"
150 GOSUB5100
1000 ?"A 0":GOSUB5000
1100 ?"U 23130":GOSUB5000
1200 ?"P ";S;" ";E:GOSUB5000
1250 ?"E ";S;" ";E:GOSUB5000
2010 A=S*4096:FORS=STOE:FORP=0TO15
2100 ?"W 268436224 256":GOSUB5000
2105 K=0:FORB=0TO255STEP3:ifB%45=0ifB=225?CHR$(63);else?CHR$(77);
2110 C=USR(#FAA,0):?CHR$(L,M,N,O);:IFB%45=42?""
2120 next:A=A-2:?:K=K-USR(#FA6,A)-USR(#FA6,A+1):X=(K>>1)/5:Y=K-X*10:?X;Y:GOSUB5100
2130 ?"P ";S;" ";S:GOSUB5000
2150 ?"C ";A-256;" 268436224 256":GOSUB5000
2180 LEDP&1:NEXT:NEXT
2310 OUT5,0:CLS:VIDEO1:?"ｶﾝﾘｮｳ":LED0:END
5000 IFPEEK(H)=0GOTO5000ELSEIFINKEY()!=48GOTO5000
5010 GOTO5110
5100 IFPEEK(H)=0GOTO5100ELSEIFINKEY()!=#4BGOTO5100
5110 IFPEEK(H)<2GOTO5110ELSEF=INKEY():F=INKEY():RETURN

POKE#FA6,#00,#78,#70,#47
POKE#FAA,16,#B5,#8c,34,18,1,#89,24,#c,#8c,#88,#89,3,#78,#e4,24,26,4,67,#78,#e4,24,27,2,26,67,#83,#78,#e4,24,26,67,3,48,#88,#81,#c,#84,63,35,#90,#c,0,#d1
POKE#FD6,64,32,32,48,72,#84,16,11,24,64,0,#d1,64,32,32,48,#88,#84,#90,9,24,64,0,#d1,64,32,32,48,#c8,#84,26,64,0,#d1,64,34,32,50,#a,#85,16,#bd