100 '*************************************
101 '* NEWGOSUB.DAT - DATA-Lader * 102 '************************************* 103 ' 104 DATA A630,03,F1,C1,C5,F5,3E,2A,80,2E34 105 DATA A638,91,C0,E5,2A,83,AE,ED,5B,61A1 106 DATA A640,81,AE,CD,DA,FF,EB,D1,3E,7AC8 107 DATA A648,C0,ED,B1,7B,1E,08,E0,5F,4B9F 108 DATA A650,E5,D5,C5,CD,61,A6,C1,D1,5373 109 DATA A658,E1,38,EC,CD,F3,E8,EB,C1,6AFF 110 DATA A660,C9,7E,CD,7B,FF,47,1A,E6,6326 111 DATA A668,7F,CD,7B,FF,30,07,23,13,0D99 112 DATA A670,B8,37,C0,18,EC,7E,CD,7B,4F39 113 DATA A678,FF,C9,00,00,18,3C,7E,FF,4DF3 114 DATA *ENDE* 115 adr=&A630:zeile=104:MEMORY adr-1 116 READ d$:IF d$="*ENDE*"THEN 127 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 PRINT"Pruefsummenfehler in Zeile";zeile:STOP 126 zeile=zeile+1:GOTO 116 127 SAVE"NEWGOSUB.BIN",B,&A630,&50:END |