SHARE
TWEET

IchigoTerm V1.2

masaakiNakamura May 14th, 2016 122 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
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