1000 ;---------------------------------
1010 ; MULTI EXPANDED SPRITES
1020 ;
1030 +$7000
1040 USRINIT
1050 ;
1060 TOLINE=$32+2
1070 TOEXPTAB=$7200
1080 ;---------------------------------
1090 INIT MID$#$FF; SPRITES
1100  (null)$D015; SETZEN
1110  (null)
1120  PEEK#$07
1130  LEN#$00
1140  MID$#$48
1150  (null)$3FFF
1160 LOOP0 (null)$D000,Y
1170  (null)
1180  MID$#LINE+2
1190  (null)$D001,Y
1200  MID$#$0F
1210  (null)$D027,X
1220  MID$#$80
1230  (null)$07F8,X
1240  (null)
1250  (null)
1260  (null)
1270  VAL#$1C
1280  (null)
1290  (null)LOOP0
1300  MID$#%10000000
1310  (null)$D010
1320 ;
1330  (null); IRQ
1340  MID$#LINE; SETZEN
1350  PEEK#<(START); (SIEHE
1360  LEN#>(START); PROFI-
1370  (null)$D012; CORNER
1380  (null)$0314; 6/90)
1390  (null)$0315
1400  MID$#$1B
1410  (null)$D011
1420  MID$#$01
1430  (null)$D01A
1440  MID$#$7F
1450  (null)$DC0D
1460  MID$$DC0D
1470  (null)
1480 SB (null)SB
1490 ;---------------------------------
1500 START MID$#$01
1510  (null)$D019
1520  PEEK#$11
1530 WL0 (null); WARTE
1540  (null)WL0; SCHLEIFE
1550  (null)$FF
1560  (null)
1570 ;
1580  PEEK#$00; ZAEHLER INITIALISIEREN
1590  LEN#$00; WERT FUER KEINE EXPANSION
1600 LOOP1 (null)$D017; WERT FUER KEINE EXPASION ABSPEICHERN
1610  (null)
1620  MID$$D012; ZEICHEN-
1630  (null)#$02; SATZ
1640  ASC#$07; DARSTELL
1650  (null)#$10; UNG VER-
1660  (null)$D011; HINDERN
1670  (null)$FF; 3*3 TAKTZYKLEN WARTEN,
1680  (null)$FF; DAMIT INNERHALB DER SCHLEIFE
1690  (null)$FF; 44 TAKTZYKLEN (63-19) VERBRAUCHT WERDEN
1700  MID$EXPTAB,X; WERT FUER EXPANSION AUSLESEN
1710  (null)$D017; UND SPEICHERN
1720  (null)
1730  TAN#$68
1740  (null)LOOP1
1750 ;
1760  MID$#$1B; $D011
1770  (null)$D011;ZURUECKSETZEN
1780  (null)MOVE
1790  (null)$FEBC; IRQ BEENDEN
1800 ;---------------------------------
1810 MOVE PEEK#$68; EXPANSIONSTABELLE
1820  MID$#$FF; INITIALISIEREN
1830 LR (null)EXPTAB-1,X
1840  (null)
1850  (null)LR
1860 ;
1870  PEEK#$14; 20 NULLEN
1880 MODC LENTAB; IN
1890 LOP MID$#$00; DIE
1900  (null)EXPTAB,Y; EPANSIONSTABELLE
1910  (null); SCHREIBEN
1920 MODD VALTAB,X;
1930  (null);
1940  (null);
1950  (null)LOP;
1960  RIGHT$MODC+1
1970  RIGHT$MODD+1
1980  MID$MODC+1
1990  STR$#$50
2000  (null)ENDD
2010  MID$#$00
2020  (null)MODC+1
2030  (null)MODD+1
2040 ENDD (null)
2050 ;---------------------------------
2060 +$7100
2070 TAB FN1,1,1,1,2,2,2,2;TABELLE MIT VERGROESSERUNGSFAKTOREN
2080  FN3,3,3,3,4,4,4,4,5,5,5,5;DER EINZELNEN SPRITE-ZEILEN
2090  FN6,6,6,6,5,5,5,5,4,4,4,4
2100  FN3,3,3,3,2,2,2,2,1,1,1,1
2110  FN2,2,2,2,3,3,3,3,4,4,4,4
2120  FN5,5,5,5,6,6,6,6,5,5,5,5
2130  FN4,4,4,4,3,3,3,3,2,2,2,2
2140  FN1,1,1,1,2,2,2,2,3,3,3,3
2150  FN4,4,4,4,5,5,5,5,6,6,6,6
2160  FN5,5,5,5,4,4,4,4,3,3,3,3
2170  FN2,2,2,2,1,1,1,1,2,2,2,2