Microcomputer Systems MSI-P602 Manual de usuario descargar pdf (Pagina 15)

pchar$ = MID$(gpsmsg$, i, 1)

GOSUB sendpchar

NEXT i

pchar$ = “*”: GOSUB sendpchar

pchar$ = MID$(pchar1$, 1, 1): GOSUB sendpchar ‘send chechsum

MSD

pchar$ = MID$(pchar1$, 2, 1): GOSUB sendpchar ‘send LSD

pchar$ = CHR$(&HD): GOSUB sendpchar ‘send <CR>

pchar$ = CHR$(&HA): GOSUB sendpchar ‘send <LF>

charcount = 0

WHILE INKEY$ = “” AND charcount < 256’display 256 characters from

GPS

GOSUB getchar

WEND

PRINT “”: PRINT “”: PRINT “Strike any key to continue!”

WHILE INKEY$ = “”: WEND

RETURN

getchecksum:

checksum = 0

FOR i = 2 TO LEN(gpsmsg$)

checksum = checksum XOR ASC(MID$(gpsmsg$, i, 1))

NEXT i

pchar1$ = HEX$(checksum)

RETURN

1 2 ... 10 11 12 13 14 15 16 17

Sin comentarios

Microcomputer Systems MSI-P602 Manual de usuario Pagina 15