2 BREM 255,255,255,255,255,0,0,0,0,0,0,255,255,255,255,255 BREM255,255,255,0,0,11,11,11,11,11,11,0,0,255,255,255 BREM 255,255,0,11,11,11,11,11,11,11,11,11,11,0,255,255 BREM 255,0,11,11,11,11,0,0,11,0,0,11,11,11,0,255 BREM 255,0,11,11,11,0,11,11,0,11,11,0,11,11,0,255 BREM 0,11,11,11,11,0,11,0,0,11,0,0,11,11,11,0 BREM 0,11,11,11,11,0,11,0,0,11,0,0,11,11,11,0 BREM 0,11,11,11,11,11,0,0,11,0,0,11,11,11,11,0 BREM 0,11,11,11,11,11,11,11,11,11,11,11,11,11,11,0 BREM 0,11,11,11,11,11,11,11,11,11,11,11,11,11,11,0 BREM 0,11,11,11,11,0,11,11,11,11,11,0,11,11,11,0 BREM 255,0,11,11,11,11,0,0,0,0,0,11,11,11,0,255 BREM 255,0,11,11,11,11,11,11,9,9,9,11,11,11,0,255 BREM 255,255,0,11,11,11,11,11,11,9,11,11,11,0,255,255 BREM 255,255,255,0,0,11,11,11,11,11,11,0,0,255,255,255 BREM 255,255,255,255,255,0,0,0,0,0,0,255,255,255,255,255
3 PROC SETRR[8,%3000]; REM --- INIT BASIC EXTENSION 10 PROC COLOR[2,13]; PROC CLS 15 PROC DRAW[0,116,319,116,15]
20 PRINT "INIT Sprite 1" 25 LET W=%E003; REM Sprite-Daten 30 LET X=160; REM X-Koordinate 40 LET Y=0; REM Y-Koordinate 50 LET Z=0; REM Slot 60 CALL %8300; REM INIT_SPRITE
120 PRINT "INIT Sprite 2" 125 LET W=%E003; REM Sprite-Daten 130 LET X=260; REM X-Koordinate 140 LET Y=0; REM Y-Koordinate 150 LET Z=1; REM Slot 160 CALL %8300; REM INIT_SPRITE
200 N=50;GOSUB 900 201 V=0;W=2;Y=2;Z=0
209 I=0;Y=2; REM --- DIR DOWN 210 X=GETEB[%D000+I];CALL %830C; REM WALK SPRITE 290 I=I+1;IF I<=N GOTO 210
309 I=I-1;Y=0; REM --- DIR UP 310 X=GETEB[%D000+I];CALL %830C; REM WALK SPRITE 390 I=I-1;IF I>=0 GOTO 310
394 Z=Z$X1; REM --- SWITCH SPRITE 395 GOTO 209
900 REM --- MAKE STEP WIDTH ARRAY 901 S=%D000;I=0;L=0 910 A=(I*I)/N;SETEB[S+I,A-L];L=A 980 I=I+1;IF I<=N GOTO 910 990 RETURN
|