10 lin=11:size=(20*lin)-1:add=42001
20 FOR mark=add TO add+size 30 READ a$:IF LEN(a$)=4 THEN GOSUB 120 40 byte=VAL("&"+a$):tot=tot+byte 50 POKE mark,byte 60 NEXT mark 70 ' De-REM the following two lines if your machine is 664 or 6128 80 ' POKE &A418,&66:POKE &A49F,&66:POKE &AEA2,&68 90 'POKE &AEA9,&6A:POKE &AEAC,&6C 100 SAVE "data.bin",b,add,size 110 END 120 chk=VAL("&"+a$):IF chk<>tot THEN PRINT "Error in data":PRINT CHR$(7):END 130 READ a$:tot=0:RETURN 140 DATA 21,00,00,22,D9,A4,2A,83,AE,2B,2B,DD,56,03,DD,5E,02,DD,46,00,0707 150 DATA C5,CD,30,A4,C1,10,F9,CD,78,A4,C9,3E,47,77,23,23,73,23,72,23,094F 160 DATA 3E,8C,77,23,3E,20,77,23,06,14,C5,CD,AF,A4,E5,2A,D9,A4,3A,D8,08F9 170 DATA A4,4F,06,00,09,22,D9,A4,E1,C1,3E,2C,77,23,10,E6,DD,21,D9,A4,08B8 180 DATA DD,7E,01,CD,B4,A4,DD,7E,00,CD,B4,A4,3E,00,DD,77,00,DD,77,01,09E8 190 DATA 77,23,C9,3E,0A,77,23,23,73,23,72,23,3E,BF,77,23,3E,22,77,23,0624 200 DATA 3E,A4,77,23,3E,4A,77,23,3E,54,77,23,3E,00,77,23,77,23,77,23,05D6 210 DATA 77,22,83,AE,22,85,AE,01,09,00,09,22,87,AE,22,89,AE,C9,1A,32,06F7 220 DATA D8,A4,13,06,00,4F,CB,1F,CB,1F,CB,1F,CB,1F,E6,0F,FE,0A,30,06,07BF 230 DATA C6,30,77,23,18,04,C6,37,77,23,78,FE,01,C8,79,06,01,18,E7,E7,07E8 240 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0000 |