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