[color=Blue]symbol [/color][color=Purple]StartAddress[/color][color=DarkCyan]=[/color][color=Purple]b0[/color]
[color=Blue]symbol [/color][color=Purple]EndAddress[/color][color=DarkCyan]=[/color][color=Purple]b1[/color]
[color=Blue]symbol [/color][color=Purple]Index[/color][color=DarkCyan]=[/color][color=Purple]b3[/color]
[color=Blue]symbol [/color][color=Purple]Value[/color][color=DarkCyan]=[/color][color=Purple]b4[/color]
[color=Blue]symbol [/color][color=Purple]StartObj[/color][color=DarkCyan]=[/color][color=Purple]b5[/color]
[color=Blue]symbol TAW[/color][color=DarkCyan]=[/color][color=Navy]0[/color]
[color=Blue]TABLE TAW[/color][color=Black],[/color][color=Blue]([/color][color=Navy]3[/color][color=Black],[/color][color=Red]"TAW"[/color][color=Black],[/color][color=Navy]75[/color][color=Black],[/color][color=Navy]4[/color][color=Blue])
sertxd ([/color][color=Navy]13[/color][color=Black],[/color][color=Navy]10[/color][color=Black],[/color][color=Red]"read 6 bytes :"[/color][color=Blue])
for [/color][color=Purple]Index[/color][color=DarkCyan]=[/color][color=Navy]0 [/color][color=Blue]to [/color][color=Navy]5
[/color][color=Blue]readtable [/color][color=Purple]Index[/color][color=Black],[/color][color=Purple]b1
[/color][color=Blue]sertxd ([/color][color=Black]#[/color][color=Purple]b1[/color][color=Black],[/color][color=Red]" "[/color][color=Blue])
next [/color][color=Purple]Index[/color]
[color=Blue]sertxd ([/color][color=Navy]13[/color][color=Black],[/color][color=Navy]10[/color][color=Blue])[/color]
[color=Purple]StartAddress[/color][color=DarkCyan]=[/color][color=Blue]TAW [/color][color=Black]: [/color][color=Blue]gosub [/color][color=Black]WriteBoat[/color]
[color=Blue]end[/color]
[color=Black]WriteBoat:[/color]
[color=Green]' sertxd("RECOMMENDED BOAT",13,10)
[/color][color=Blue]serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black],[/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]1[/color][color=Blue])
serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black], [/color][color=Blue]([/color][color=Red]"RECOMMENDED BOAT"[/color][color=Blue])
serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black], [/color][color=Blue]([/color][color=Navy]254[/color][color=Black],[/color][color=Navy]192[/color][color=Blue])
[/color][color=Purple]StartAddress[/color][color=DarkCyan]=[/color][color=Purple]StartObj
[/color][color=Blue]gosub [/color][color=Black]WriteTable
[/color][color=Blue]readtable [/color][color=Purple]Index[/color][color=Black],[/color][color=Purple]Value[/color]
[color=Green]' sertxd(" weight ",#Value)
[/color][color=Blue]serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black], [/color][color=Blue]([/color][color=Red]" W="[/color][color=Black],#[/color][color=Purple]Value[/color][color=Blue])
inc [/color][color=Purple]Index[/color][color=Black]:[/color][color=Blue]readtable [/color][color=Purple]Index[/color][color=Black],[/color][color=Purple]Value[/color]
[color=Green]' sertxd(" Skill level = ",#Value," / 5",13,10)
[/color][color=Blue]serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black], [/color][color=Blue]([/color][color=Red]" Sk="[/color][color=Black],#[/color][color=Purple]Value[/color][color=Black],[/color][color=Red]"/5"[/color][color=Blue])
RETURN[/color]
[color=Black]WriteTable:
[/color][color=Blue]readtable [/color][color=Purple]StartAddress[/color][color=Black],[/color][color=Purple]Value
EndAddress[/color][color=DarkCyan]=[/color][color=Purple]StartAddress[/color][color=DarkCyan]+[/color][color=Purple]Value
[/color][color=Blue]inc [/color][color=Purple]StartAddress
[/color][color=Blue]for [/color][color=Purple]Index[/color][color=DarkCyan]=[/color][color=Purple]StartAddress [/color][color=Blue]to [/color][color=Purple]EndAddress
[/color][color=Blue]readtable [/color][color=Purple]Index[/color][color=Black],[/color][color=Purple]Value
[/color][color=Blue]serout c.3[/color][color=Black],[/color][color=Blue]t2400[/color][color=Black], [/color][color=Blue]([/color][color=Purple]Value[/color][color=Blue])[/color]
[color=Green]' sertxd(Value)
[/color][color=Blue]next[/color]
[color=Green]' sertxd (13,10)[/color]
[color=Blue]RETURN[/color]