1 REM *********************************
2 REM *                               *
3 REM *  BEISPIELPROGRAMM ZU SPRITES  *
4 REM *                               *
5 REM * HEIMO PONNATH   HAMBURG  1985 *
6 REM *                               *
7 REM *********************************
8 REM
45 REM **** BILDSCHIRMFARBEN ****
50 POKE53280,0:POKE53281,0:POKE646,14
95 REM **** EINLESEN SPRITE-DATEN ****
100 FORI=704TO766:READD:POKEI,D:NEXTI
110 FORI=832TO894:READD:POKEI,D:NEXTI
115 REM ****** DATAS VON SPRITE 1 ******
120 DATA0,0,0,0,0,0,3,255,192,1,3,128
130 DATA1,51,128,1,115,128,1,59,192
140 DATA129,186,254,255,255,255,129,2,1
150 DATA129,2,1,253,254,127,222,0,157
160 DATA255,255,190,62,0,62,28,0,28
170 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
175 REM ****** DATAS VON SPRITE 2 ******
180 DATA128,8,0,160,40,0,168,168,0
190 DATA40,168,0,42,170,0,10,234,160
200 DATA43,250,128,43,250,0,170,232,0
210 DATA170,168,0,165,168,0,129,90,0
220 DATA129,86,0,0,80,128,0,80,0
230 DATA0,16,20,0,16,85,0,17,84,0,21,0
240 DATA0,16,0,0,16,0
245 REM **** SPRITE-ZEIGER ****
250 POKE2040,11:POKE2041,13
255 REM **** EINSCHALTEN ****
260 POKE53269,PEEK(53269)OR(2^0):POKE53269,PEEK(53269)OR(2^1)
265 REM **** SPRITE-POSITIONEN ****
270 FORN=0TO1:PRINT"SPRITE"N;:INPUT"X,Y=";X(N),Y(N)
280 POKE53249+2*N,Y(N)
290 IFX(N)>255THENPOKE53248+2*N,X(N)-256:POKE53264,PEEK(53264)OR(2^N):GOTO305
300 POKE53248+2*N,X(N):POKE53264,PEEK(53264)AND(255-2^N)
305 IFK=1THENRETURN
310 NEXTN
315 REM **** SPRITE-FARBEN ****
320 POKE53287,3:REM SPRITE 0 =CYAN
330 POKE53285,5:REM SPRITE 1 KENNUNG 01=GRUEN
340 POKE53286,7:REM KENNUNG 11=GELB
350 POKE53288,2:REM KENNUNG 10=ROT
360 POKE53276,PEEK(53276)OR(2^1):REM MULTICOLORMODUS EINGESCHALTET
365 REM *** SPRITE-GROESSEN ***
367 REM +++++ 3 WEITERE SPRITES +++++
370 POKE2042,11:POKE2043,13:POKE2044,11:REM SPRITEZEIGER AUF VORHANDENE DATEN
380 POKE53269,PEEK(53269)OR(2^2):POKE53269,PEEK(53269)OR(2^3)
385 POKE53269,PEEK(53269)OR(2^4):REM ANSCHALTEN
390 POKE53248+2*2,100:POKE53249+2*2,100:POKE53248+2*3,80:POKE53249+2*3,200
395 POKE53248+2*4,150:POKE53249+2*4,150:POKE53291,4
400 POKE53289,1:POKE53290,6:POKE53276,PEEK(53276)OR(2^3):REM POSITIONEN+FARBEN
405 REM +++++ DIESE VERGROESSERN +++++
410 POKE53277,PEEK(53277)OR(2^2):REM SPRITE 2 IN X-RICHTUNG VERDOPPELN
420 POKE53271,PEEK(53271)OR(2^3):REM SPRITE 3 IN Y-RICHTUNG VERDOPPELN
430 POKE53271,PEEK(53271)OR(2^4):POKE53277,PEEK(53277)OR(2^4):REM SPRITE 4 X+Y
435 REM **** VORFAHRT-REGELUNG *****
440 POKE53275,PEEK(53275)OR(2^0):POKE53275,PEEK(53275)OR(2^2)
450 POKE53275,PEEK(53275)OR(2^4):REM ALLE AUTOS HINTER BILDSCHIRMZEICHEN
455 REM *** KOLLISIONEN VORBEREITEN ***
460 A=PEEK(53278):A=PEEK(53279)
465 REM *** STEUERN VON SPRITE 0 ***
470 PRINTCHR$(147):N=0
480 GETA$:IFA$=""THEN480
490 IFA$=CHR$(17)THENPOKE53249,PEEK(53249)+3:REM ABWAERTS
500 IFA$=CHR$(145)THENPOKE53249,PEEK(53249)-3:REM AUFWAERTS
510 IFA$=CHR$(157)THENX(N)=X(N)-3:K=1:GOSUB290:K=0:REM LINKS
520 IFA$=CHR$(29)THENX(N)=X(N)+3:K=1:GOSUB290:K=0:REM RECHTS
525 REM *** SPRITE/SPRITE-KOLLISION ***
530 A=PEEK(53278)
540 IFA=3ORA=9THENGOSUB600:REM KOLLISION MIT BLUMEN ?
545 REM *** ENDE ABFRAGESCHLEIFE ***
550 IFA$="_"THENEND:REM PROGRAMMENDE
560 GOTO480:REM ERNEUTE ABFRAGE
565 REM *** KOLLISIONSFOLGE ***
600 F=PEEK(53287)+1:IFF>255THENF=0:REM FARBCODE SPRITE 0 ERHOEHEN
610 POKE53287,F:RETURN:REM IN FARBREGISTER VON SPRITE 0