masaakiNakamura

IchigoTerm V1.2

May 14th, 2016
687
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 'IchigoTerm V1.2
  2. 20 UART0
  3. 30 BPS0
  4. 40 INPUT"デゲンヲ イレテ クダサイ",A
  5. 50 BPS0:UART1,0
  6. 60 ?"BPS300":UART1,2
  7. 70 WAIT 60
  8. 100 BPS 300:UART1,2
  9. 110 p=0
  10. 120 ifpeek(#1003)=0goto120
  11. 130 ifp<12[p]=peek(#1004)
  12. 135 IF[P]=10P=-1
  13. 137 IFP>13P=0
  14. 150 P=P+1:?chr$(inkey());
  15. 160 ifp<>12goto 120
  16. 170 IF[0]<>#53GOTO120
  17. 180 IF[1]<>#79goto120
  18. 190 IF[2]<>#6egoto120
  19. 200 IF[3]<>#74GOTO120
  20. 210 IF[4]<>#61GOTO120
  21. 230 IF[6]<>#20GOTO120
  22. 240 IF[7]<>#65GOTO120
  23. 250 IF[8]<>#72GOTO120
  24. 260 IF[9]<>#72GOTO120
  25. 270 IF[10]<>#6FGOTO120
  26. 280 IF[11]<>#72GOTO120
  27. 300 FORI=1TO12:?CHR$(8);:NEXT
  28. 310 GOTO110
  29. OK
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.

×