100 '***************************************
101 '* SUPERCLS.DAT - DATA-Lader von 'CPC' * 102 '*************************************** 103 ' 104 DATA A000,01,09,A0,21,12,A0,C3,D1,1797 105 DATA A008,BC,0E,A0,C3,16,A0,43,4C,474A 106 DATA A010,D3,00,00,00,00,00,16,00,69AC 107 DATA A018,FE,01,20,03,DD,56,00,21,7CE1 108 DATA A020,00,C0,CD,2E,A0,21,01,C0,2E06 109 DATA A028,CD,2E,A0,21,02,C0,01,56,7854 110 DATA A030,15,72,23,23,23,0B,78,B1,1125 111 DATA A038,20,F7,C9,20,ED,22,02,A0,31A4 112 DATA *Ende* 113 adr=&A000:zeile=104 114 MEMORY&9FFF 115 READd$ 116 IF d$="*Ende*" THEN 129 117 pr=0 118 FOR i=1 TO 8 119 READ a$:a=VAL("&"+a$) 120 POKE adr,a:adr=adr+1 121 pr=pr*2:IF pr>65535 THEN pr=pr-65535 122 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+65536 123 NEXT i 124 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THEN pr2=pr2+65536 125 IF pr<>pr2 THEN 128 126 zeile=zeile+1 127 GOTO 115 128 PRINT"Pruefsummenfehler in Zeile";zeile:STOP 129 SAVE"supercls.bin",b,&A000,&3B:CALL &A000:END |