Mikrovilag magazine, C64 Basic

mikrovilag_basic_checksum_1988.bas

100 data 78,a9,0d,8d,04,03,a9,c0,8d,05,03,58,1048
110 data 60,a5,14,85,a7,a5,15,85,a8,a9,00,8d,1378
120 data 00,ff,a2,1f,b5,c7,9d,a7,c0,ca,10,f8,1810
130 data a9,13,20,d2,ff,a9,12,20,d2,ff,a0,00,1529
140 data 84,b4,84,b0,88,e6,b4,c8,b9,00,02,f0,1793
150 data 2e,c9,22,d0,08,48,a5,b0,49,ff,85,b0,1547
160 data 68,48,c9,20,d0,07,a5,b0,d0,03,68,d0,1488
170 data e2,68,a6,b4,18,a5,a7,79,00,02,85,a7,1455
180 data a5,a8,69,00,85,a8,ca,d0,ef,f0,ca,a5,1995
190 data a7,45,a8,48,29,0f,a8,b9,97,c0,20,d2,1470
200 data ff,68,4a,4a,4a,4a,a8,b9,97,c0,20,d2,1593
210 data ff,a2,1f,bd,a7,c0,95,c7,ca,10,f8,a9,1979
220 data 92,20,d2,ff,4c,7c,a5,30,31,32,33,34,1258
230 data 35,36,37,38,39,41,42,43,44,45,46,00,680
240 z=100:
250 j$="ok!" :r$="hibas!"
260 for i=1 to 168
270 read x$
280 a$=left$(x$, 1)
290 x1=asc(a$)-48:if a$>"9" then x1=x1-7
300 a$=right$(x$, 1)
310 x2=asc(a$)-48:if a$>"9" then x2=x2-7
320 x=x1*16+x2
330 poke 49151+i,x:s=s+x:if i/12=int(i/12) then gosub 390
340 next
350 print tab(13)"commodore  64"
360 print tab(15)"ellenorzo"
370 print tab(12)"mikrovilag/1988"
380 sys 49152 : new
390 print "data-sor:";:read x:if x=s then s=0: print z;j$:z=z+10:return
400 print z;r$;s