■MixSoda LOAD 0

10 @ARUN
20 N=#0005
30 LRUN 1

■MixSoda LOAD 1
// 10 O=5 を必要に応じて変更
//    O=5 15秒
//    O=3  9秒

10 O=5
20 CLS
30 VIDEO 5
40 ?"MixSoda":?:?
50 ?" No.";HEX$(N)
60 DRAW 0,4,50,4
70 DRAW 0,9,50,9
80 WAIT 180
90 VIDEO 1
100 POKE #700+12*O,N /256,N MOD 256
110 POKE #702+12*O,#BB,#BB
120 'U-BLOX OR MT3333
130 BPS9600:CLS:UART3
140 FOR L=1 TO 5
141 ?"$PMTK314,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0*37"
150 ?"$PUBX,40,GSA,0,0,0,0,0,0*4E"
160 ?"$PUBX,40,GLL,0,0,0,0,0,0*5C"
170 ?"$PUBX,40,GGA,0,0,0,0,0,0*5A"
180 ?"$PUBX,40,GSV,0,0,0,0,0,0*59"
190 ?"$PUBX,40,VTG,0,0,0,0,0,0*5E"
200 ?"$PUBX,40,RMC,0,3,0,0,0,0*44":NEXT:UART0,1:CLS
210 CLS:L=#700
220 CLS:U=99:R=#780:W=#700
230 LRUN2

■MixSoda LOAD 2

10 CLS:M=0:?"IchigoLoca + MixSoda V.0.4"
20 P=W:H=0:V=0
30 A=0:B=0:Q=R
40 K=INKEY():IF(K!=36)CONT
50 K=INKEY():A=A+K:B=B+1
60 IF(B<5)GOTO50
70 IF(B=5)&(A!=377)&(A!=375)GOTO30
80 B=0:F=0:D=0:E=0:J=0:S=0:I=0:T=0
90 FOR C=1 TO 46
100  K=INKEY():B=B+1:IF(K=44)F=F+1:G=0:I=0
110  IF(F=3)&(G>7)K=0
120  IF(K=46)|(I>0)I=I+1
130  IF(K=86)E=1
140  IF(K=65)J=1
150  IF(F=7)&(K>47)&(I<4)S=S*10+K-48
160  IF(F=1)&(G>5)|(K=78)GOTO100
170  IF(F=1)&(G>3)T=T*10+(K-48)
180  IF(K>47)D=D+1:G=G+1:IF(D<25)POKE Q,K:Q=Q+1
190 NEXT
200 IF(E=1)|(J=0)V=V+1:?"V ";V:GOTO 30
210 D=0:?HEX$((P-L)/12+1);".";:IF(S>99)H=1
220 FOR C=0 TO 23
230  E=PEEK(R+C):IF(E=65)E=58
240  D=D*16+E-48:IF(C%2=1)&(C<8)?HEX$(D,2);
250  IF(C%2=1)POKE P,D:D=0:P=P+1
260 NEXT:?"-";S;"-";M:G=0
270 IF P<#700+12*O GOTO 30
280 U=U+1:IF(U>7)H=1
290 Z=0:IF(H=0)?"*SKIP ";U:GOTO 20
300 P=P+4
310 ?"IoT.OUT ";P-W;" (";M;")"
320 M=M+(M<30000)
330 IOT.OUT #700,P-W
340 U=0:V=0:GOTO20