Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement