SHARE
TWEET

IchigoUpdate OUT5 & Video ON

masaakiNakamura Jul 14th, 2016 170 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 5 'IchigoUpdate 10F 20PR 30ALL
  2. 10 S=0:E=5:GOTO40
  3. 20 S=6:E=7:GOTO40
  4. 30 S=0:E=7
  5. 40 VIDEO1:OUT5,0:WAIT30:OUT5,1:WAIT30
  6. 50 H=#1003:UART1,2:?"?"
  7. 60 IFPEEK(H)=0GOTO60ELSEIFINKEY()!=#64GOTO60
  8. 70 GOSUB5110
  9. 80 ?"Synchronized"
  10. 100 GOSUB5100
  11. 130 UART1,2:?"12000"
  12. 150 GOSUB5100
  13. 1000 ?"A 0":GOSUB5000
  14. 1100 ?"U 23130":GOSUB5000
  15. 1200 ?"P ";S;" ";E:GOSUB5000
  16. 1250 ?"E ";S;" ";E:GOSUB5000
  17. 2010 A=S*4096:FORS=STOE:FORP=0TO15
  18. 2100 ?"W 268436224 256":GOSUB5000
  19. 2105 K=0:FORB=0TO255STEP3:ifB%45=0ifB=225?CHR$(63);else?CHR$(77);
  20. 2110 C=USR(#FAA,0):?CHR$(L,M,N,O);:IFB%45=42?""
  21. 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
  22. 2130 ?"P ";S;" ";S:GOSUB5000
  23. 2150 ?"C ";A-256;" 268436224 256":GOSUB5000
  24. 2180 LEDP&1:NEXT:NEXT
  25. 2310 OUT5,0:CLS:VIDEO1:?"カンリョウ":LED0:END
  26. 5000 IFPEEK(H)=0GOTO5000ELSEIFINKEY()!=48GOTO5000
  27. 5010 GOTO5110
  28. 5100 IFPEEK(H)=0GOTO5100ELSEIFINKEY()!=#4BGOTO5100
  29. 5110 IFPEEK(H)<2GOTO5110ELSEF=INKEY():F=INKEY():RETURN
  30.  
  31. POKE#FA6,#00,#78,#70,#47
  32. 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
  33. 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top