5 rem data loader
6 rem be= start addr.  e= end addr.
7 rem
10 be=8192:e=12288:gosub300:goto200
20 deffna(x)=x-(48-7*(x>64))
30 printl"[UP]":s=0:readb$,c:ifb$="end"thenend: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
200 if(peek(251)+peek(252)*256)>(peek(253)+peek(254)*256)goto260
210 print"[CLEAR][2 UP]"1000+peek(255)*10"data";
220 a$="0123456789abcdef":a=peek(251)+peek(252)*256:s=0
230 fori=0to31:v=peek(a+i):printmid$(a$,v/16+1,1)mid$(a$,(v and 15)+1,1);
240 s=s+v:next:print","s:poke255,peek(255)+1:be=a+32:gosub320
250 poke631,13:poke632,13:poke198,2:print"[HOME][4 UP]goto200[HOME]";:end
260 print"[CLEAR][2 UP] 10 be="peek(139)+peek(140)*256":l=1000"
270 printpeek(255)*10+1000"data end,0":fori=200to260step10:printi:next
280 print"goto290":gosub330:print"[HOME]";:end
290print"[CLEAR][2 UP]";:fori=270to340step10:printi:next:gosub330:print"[HOME]";
295 end
300 poke254,e/256:poke253,e-peek(254)*256:poke255,0
310 poke140,be/256:poke139,be-peek(140)*256
320 poke252,be/256:poke251,be-peek(252)*256:return
330 fori=631to640:pokei,13:next:poke198,10:return
340 rem   by ilker ficicilar