10 REM ***** Sub- und Superscript fuer den CPC464 *****
20 REM ***** BASIC-Lader ***** 30 REM ***** copyright by Dieter Kronegger, February 1986 ***** 40 him=HIMEM-161:MEMORY him-1 50 ps=0 60 FOR i=him TO him+159 70 READ p$:p=VAL("&"+p$):POKE i,p:ps=ps+p 80 NEXT i 90 READ p:IF p<>ps THEN PRINT "Fehler in den Zeilen von 200 bis 290":STOP 100 adr=him+PEEK(him+16) 110 POKE him+19,INT(adr/256):POKE him+16,adr-256*PEEK(him+19) 120 FOR i=1 TO 16 130 READ p$:p=VAL("&"+p$) 140 adr=him+256*PEEK(him+p+1)+PEEK(him+p) 150 POKE him+p+1,INT(adr/256):POKE him+p,adr-256*PEEK(him+p+1) 160 ps=ps+p 170 NEXT i 180 READ p:IF p<>ps THEN PRINT "Fehler in Zeile 300":STOP 190 CALL him:NEW 200 DATA 01,1A,00,21,9E,00,CD,D1,BC,21,D3,BD,36,C3,23,36 210 DATA 5F,23,36,00,21,00,00,36,C9,C9,25,00,C3,34,00,C3 220 DATA 3D,00,C3,46,00,53,55,C2,53,55,50,45,D2,4E,4F,52 230 DATA 4D,41,CC,00,CD,4B,00,3E,03,32,9C,00,C9,CD,4B,00 240 DATA 3E,01,32,9C,00,C9,AF,32,9C,00,C9,FE,02,F0,B7,3E 250 DATA 03,28,08,DD,7E,00,B7,28,F5,E6,07,32,9D,00,C9,F5 260 DATA 3A,9C,00,E6,01,28,03,F1,18,04,F1,C3,4A,13,E5,CD 270 DATA A5,BB,11,98,B2,D5,CD,53,BC,D1,E1,CD,1A,BC,F5,3A 280 DATA 9D,00,4F,3A,9C,00,E6,02,28,08,CD,26,BC,0D,20,FA 290 DATA 18,06,CD,29,BC,0D,20,FA,F1,C3,5A,13,00,03,00,00,16151 300 DATA 01,04,15,1A,1D,20,23,35,3A,3E,43,48,5C,61,80,84,17060 |