Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
1 POKE 106,PEEK(106)-4:GRAPHICS 0:PMB=PEEK(106):FOR I=PMB*256+384 TO PMB*256+1024:POKE I,170:NEXT I
2 POKE 54279,PMB
3 POKE 623,1+16:POKE 53277,3:POKE 53256,3:POKE 53257,3:POKE 53258,3:POKE 53259,3:POKE 53248,112:POKE 53260,255
4 POKE 53249,48:POKE 53250,80:POKE 53251,144:POKE 53255,176:POKE 53254,184:POKE 53253,192:POKE 53252,200
5 POKE 559,46:POKE 704,8:POKE 706,6:POKE 707,10:POKE 705,4:POKE 711,12:POKE 710,0:POKE 709,15
Interesujący sposób wykorzystania grafiki P/M pokazuje program Pawła Kalinowskiego z Pułtuska.
Równie ciekawy, a może nawet ciekawszy efekt można uzyskać, wpisując w wierszu 2 liczbę 224 lub 204 zamiast PMB.
REM DUSZKI OK 3
0 Z=1024
1 DIM P$(Z*2)
2 X=(INT(ADR(P$)/Z)+1)*Z
3 POKE 54279,X/256:POKE 53277,3:POKE 559,46:POKE 623,1+16
4 FOR K=0 TO 7:POKE 704+K,K*32+4:NEXT K
5 FOR K=0 TO 3:POKE 53248+K,48+K*32:POKE 53252+K,176+K*8:NEXT K
6 FOR K=0 TO 4
7 POKE 53256+K,255:L=X+K*128+16+384
8 FOR N=L TO L+88 STEP 8:FOR M=0 TO 3:POKE N+M,170:POKE N+M+4,85:NEXT M:NEXT N
10 NEXT K: POKE 709,202: POKE 710,148
RUN
Jam napisał:
Szkoda, że nie da się tego użyć przy multiplikowaniu duszków w pionie... fajnie by było mieć [s]29[/s] 22 kolorów wielokrotnie dla dowolnego znaku w linii...Od 1 do 17 z 17