5 rem data loader for porttest program
6 rem be= start addr.
7 rem
10 be= 51456 :l=1000: ad=be
20 deffna(x)=x-(48-7*(x>64))
30 printl"‘":s=0:readb$,c:ifb$="end"thensys ad:end:run
40 fori=0to31:v=fna(asc(mid$(b$,i*2+1,1)))*16+fna(asc(mid$(b$,i*2+2,1)))
50 pokebe+i,v:s=s+v:next:ifs=cthenl=l+10:be=be+32:goto30
60 print"data error in line #"l:stop
90 end
1000 dataa9008d20d08d21d0a940a0c9201eabeaad00dc8519a007a92e46199002a92a99, 3531
1010 data00048810f2ac12d088ad01dc2910d0e0cc12d0d0f4a99f20d2ffa99320d2ff60, 4431
1020 data960e930d0d2020200d9e4d4f55534520504f52542054455354494e479f0d0d0d, 2126
1030 data2e203d20424954204f4646200d0d2a203d20424954204f4e1e0d0d0d0d0d0d0d, 1403
1040 data505245535320535041434520544f2045584954209f0000000000000000000000, 1525
1050 data end,0