100 REM   SPRITEDEMO BY LEO - 64'ER/93
110 V=53248:REM VIC-BASIS
120 IFLL=0THENLL=1:LOAD"KUGEL",8,1
130 GOSUB550:REM SPIELFELD PRINTEN
140 :
150 REM VARIABLEN INITIALISIEREN
160 :
170 LI=26:RE=214:OB=52:UN=216:S1=190
180 X=LI:Y=OB:D=1:T=1:S=1
190 :
200 REM SPRITES INITIALISIEREN
210 :
220 POKEV,LI:POKEV+1,OB:REM SPRITE 1
230 REM                     SETZTEN
240 :
250 POKEV+3,223:POKEV+2,S1:REM SPRITE 2
260 REM                     SETZTEN
270 :
280 POKEV+21,3:POKEV+28,1:REM SPRITES                            AN+MULTICOLOR
290 :
300 POKE2040,255:POKE2041,254
310 :
320 POKEV+39,11:POKEV+40,1:REM SPRITE-
330 POKEV+37,1:POKEV+38,12:REM FARBEN
340 :
350 REM KUGEL BEWEGEN
360 :
370 POKEV+30,0:X=X+D:Y=Y+T
380 IFX=LI OR X=RE THEND=D*(-1):GOTO410
390 IFY=OB THENT= 1:GOTO410
400 IFY>UN THEN670
410 POKEV,X:POKEV+1,Y
420 :
430 REM JOYSTICK-ABFRAGE
440 :
450 J=PEEK(56320)
460 IFJ=123 THEN S=-1:GOTO490
470 IFJ=119 THEN S= 1:GOTO490
480 GOTO370
490 S1=S1+S:IFS1=LI-1THENS1=LI
500 IFS1=196 THENS1=195
510 POKEV+2,S1:GOTO370
520 :
530 REM SUB ROUTINE KASTEN ZEICHNEN
540 :
550 PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
560 FORI=1TO20
570 PRINT"[165]                       [167]"
580 NEXT
590 PRINT"[180]                       [167]"
600 POKEV+32,0:POKEV+33,0
610 FORI=0TO63:POKE254*64+I,0  :NEXT
620 POKE254*64,255:POKE254*64+1,255:POKE254*64+2,255
630 RETURN
640 :
650 REM KOLLISION PRUEFEN
660 :
670 C0=PEEK(V+30)AND3:REM KOLLISIONS -
680 REM                     PRUEFEN
690 IF C0<>0 THEN T=-1:GOTO370