5 rem data loader
6 rem be= start addr.  e= end addr.
7 rem
10 be= 51712 :l=1000
20 deffna(x)=x-(48-7*(x>64))
30 printl"":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
1000 data4c20ca4c76ca4cb9ca4c91ca4cefca4cf9cb4cd1cb4c40cc4c9dcc4ce1cb0000, 4410
1010 data78a9238d1803a9cb8d1903a003b916cd9904dd8810f7a97f8d0ddda9908d0ddd, 3744
1020 dataad02cd8d07cd8d09cdc88c06cd8c08cd8c00cdad00dd29fb8d1ccd09048d1dcd, 3785
1030 data8d00ddad03dd29be09028d03dd58600000000000000078a97f8d0ddda9478d18, 2746
1040 data03a9fe8d1903ad00dd09048d00dd5818602c1acd100bad01dd29fd8d01dd2c1a, 2996
1050 datacd500aa91320efcaad00cd30fba97f8d0ddda9808d00cd1860ad18ca8d06ddad, 4007
1060 data16cd8d04ddad17cd8d05dd8d07dd8d00cda9908d0ddd2c1acd100bad01dd0902, 3472
1070 data8d01dd2c1acd5005a91120efca18600848ad00cd30fb78a9818d0ddda9118d0e, 3393
1080 datadda9088d15cda9808d00cd688d13cdad1ccd8d00dd4e13cd9003ad1dcd8d1bcd, 3874
1090 data28607848ad0ddd103c2903f0412902d053ad1bcd8d00ddad1dcd4e13cdb003ad, 3322
1100 data1ccd8d1bcdce15cd300cf0026840ad1dcd8d1bcd6840a9108d0edda9018d0ddd, 3562
1110 data8d00cd68408a489848a0004c56fea9118d0fdda9108d0ddda9828d0ddda9088d, 3639
1120 data14cd6840ad01dd4a6e12cdce14cdf0026840a9028d0ddda9108d0fddad08cd8d, 3671
1130 dataaccbad09cd8dadcbad12cd8d3274ee08cdd017ee09cd18ad02cd6d04cdcd09cd, 4257
1140 dataf002b006ad02cd8d09cda9908d0ddd68400848ad12d0c9f2b004c92cb0f54cf1, 4100
1150 dataca8d1ecd0a0aa8a200b920cd9d16cd9d04ddc8e8e004d0f160ad06cdcd08cdd0, 4331
1160 data0cad07cdcd09cdd00438a90060ad06cd8d1accad07cd8d1bccad00908d10cdee, 3778
1170 data06cdd01aee07cd18ad02cd6d04cdcd07cdf002b006ad02cd8d07cdad10cd1860, 3705
1180 datac9049048c9d09004c9e09040a8a51948a51a48841aa9008519a07f9891198810, 3550
1190 datafaa05a980920911988c040d0f6a07a9829df911988c060d0f6a0da98295f9119, 4291
1200 data88c0bfd0f6a008a9149119a8a908911968851a688519186000000000002000ca, 2894
1210 dataa90d20d2ffa9008519a9ce851a2015ca20e4fff006a8b119200cca200fcab009, 3606
1220 dataa8b11920d2ff4cbbccad00dc2910d0e02003ca18600000000000000000000000, 2573
1230 data0000000000000000000000000000000000000000000000000000000000000000, 0
1240 data011090801010009000900080008000000a000a0000ff9701a20100c3c3c70200, 2046
1250 data000d100d340342039701a201c700d00085008b0060006500410044002f003200, 1587
1260 data5245414420544845204d414e55414c0d4f522041542020204c45415354202020, 1943
1270 data544849533a20200d524f5554494e4553204a554d502020205441424c453a200d, 1987
1280 data46524f4d20202020244341303020544f202443413146200d534554555020200d, 1737
1290 data554e494e53544c0d454e41424c45200d44495341424c450d53454e444954200d, 2051
1300 data474554425954200d505554425954200d4153435441424c0d5445524d2020200d, 1981
1310 data5350454544200d0d544845204120524547495354455220205041535345532020, 1985
1320 data43484152532e200d2439303030204953344b20425546460d24434430302d2020, 1724
1330 data4152452053455454494e47532020200d4344314120495320464c4f5720434e54, 2024
1340 data2430303d4e4f4e452438303d525453202434303d584f4e202443303d424f5448, 1966
1350 data202020202020200d454e412f44495320434f4e54524f4c5354484520464c4f57, 1949
1360 data202020202020200d5445524d204953204558414d504c45205445524d494e414c, 1929
1370 data50524f4752414d0d4354524c2d4a20205155495453200d0d202020202020200d, 1742
1380 data425920494c4b4552202031393937200d00000000000000000000000000000000, 889
1390 data000000000000000000000000000000009f9f9f9f9f9f9f9f9f9f9f9f9f9f9f9f, 2544
1400 data end,0