masaakiNakamura

IchigoUpdate OUT5 & Video ON

Jul 14th, 2016
770
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×