★注意：IchigoJamの最新ファームウェアを利用してください。
（古いファームウェアでは sakura.io と正常な通信ができません）


プログラムは２つに分かれています。

LOAD 0 は、GNSSの基本設定です。u-blox社のGNSS用です。
LOAD 1 は、バスロケプログラムの本体です。

LOAD 0 を実行すると、自動的に LOAD 1 も実行されます。

このプログラムはフリーウェアです。無保証です。
改変も自由ですので、素敵なバスロケシステムに発展させてください。
Sujiya Systems.


■LOAD 0に保存しておきます。

1 @ARUN
10 'U-BLOX
20 LED1:?"IchigoLoca":WAIT180:BPS9600:CLS:CLV:UART3
30 FOR L=1 TO 5
40 ?"$PUBX,40,GSA,0,0,0,0,0,0*4E"
50 ?"$PUBX,40,GLL,0,0,0,0,0,0*5C"
60 ?"$PUBX,40,GGA,0,0,0,0,0,0*5A"
70 ?"$PUBX,40,GSV,0,0,0,0,0,0*59"
80 ?"$PUBX,40,VTG,0,0,0,0,0,0*5E"
90 ?"$PUBX,40,RMC,0,3,0,0,0,0*44":NEXT:UART0,1:CLS
100 LRUN1


■LOAD 1に保存しておきます。

10 'SUJIYA
20 CLS:CLV:U=99:?"v1.03":WAIT99:LED0
30 P=#700:H=0
40 A=0:B=0:Q=#780
50 K=INKEY():IF(K!=36)CONT
60 K=INKEY():A=A+K:B=B+1
70 IF(B<5)GOTO60
80 IF(B=5)&(A!=377)&(A!=375)GOTO40
90 B=0:F=0:D=0:E=0:J=0:S=0:I=0:T=0:OUT1,1
100 FOR C=1 TO 46
110  K=INKEY():B=B+1:IF(K=44)F=F+1:G=0:I=0
120  IF(F=3)&(G>7)K=0
130  IF(K=46)|(I>0)I=I+1
140  IF(K=86)E=1
150  IF(K=65)J=1
160  IF(F=7)&(K>47)&(I<4)S=S*10+K-48 
170  IF(F=1)&(G>5)|(K=78)GOTO110
180  IF(F=1)&(G>3)T=T*10+(K-48)
190  OUT1,0:IF(K>47)D=D+1:G=G+1:IF(D<25)POKE Q,K:Q=Q+1
200 NEXT:LED0
210 IF(E=1)|(J=0)?"V":GOTO 40
220 D=0:?HEX$((P-#700)/12+1);".";:IF(S>100)H=1 
230 FOR C=0 TO 23
240  E=PEEK(#780+C):IF(E=65)E=58
250  D=D*16+E-48:IF(C%2=1)&(C<8)?HEX$(D,2);
260  IF(C%2=1)POKE P,D:D=0:P=P+1
270 NEXT:?"-";S:G=0
280 IF(T%30>26)&((P-#700)%24=0)Z=1:?"<TIME> ";
285 IF(Z=0)&(T%30>26)Z=0:?"RETRY":GOTO30
290 IF(P<#778)&(Z=0)CLK:GOTO 40
300 U=U+1:IF(U>10)H=1:?"SEND ";
310 LED0:Z=0:IF(H=0)?"*SKIP":GOTO 30
320 IOT.OUT #700,P-#700:LED1:?" <IoT.OUT>":U=0
330 GOTO 30