IchigoTerm V1.2

10 'IchigoTerm V1.2
20 UART0
30 BPS0
40 INPUT"ﾃﾞｹﾞﾝｦ ｲﾚﾃ ｸﾀﾞｻｲ",A
50 BPS0:UART1,0
60 ?"BPS300":UART1,2
70 WAIT 60
100 BPS 300:UART1,2
110 p=0
120 ifpeek(#1003)=0goto120
130 ifp<12[p]=peek(#1004)
135 IF[P]=10P=-1
137 IFP>13P=0
150 P=P+1:?chr$(inkey());
160 ifp<>12goto 120
170 IF[0]<>#53GOTO120
180 IF[1]<>#79goto120
190 IF[2]<>#6egoto120
200 IF[3]<>#74GOTO120
210 IF[4]<>#61GOTO120
230 IF[6]<>#20GOTO120
240 IF[7]<>#65GOTO120
250 IF[8]<>#72GOTO120
260 IF[9]<>#72GOTO120
270 IF[10]<>#6FGOTO120
280 IF[11]<>#72GOTO120
300 FORI=1TO12:?CHR$(8);:NEXT
310 GOTO110
OK