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.
10 OPEN #1,8,0,"H:SCREEN.PBM"
20 ? #1;"P4";CHR$(10);320;CHR$(10);192;CHR$(10);
30 S=DPEEK(88):CHS=256*PEEK(756)
40 FOR Y=0 TO 23:FOR I=0 TO 7
60 FOR X=S TO S+39:M=(PEEK(X)>127)*255:PUT #1,PEEK(CHS+8*PEEK(X)&127+I) EXOR M:NEXT X
70 NEXT I:S=S+40:NEXT Y
80 CLOSE #1
100 GRAPHICS %0:POKE 710,%0:POKE 82,%1:POKE 752,%1
110 AD=DPEEK(88)
120 EXEC BZDET:EXEC SAVE_SCR
130 FOR B=%0 TO 20:EXEC LOAD_SCR:? :NEXT B:? :? "Klepnij cos, ale nie konia"
514 GET KEY:GRAPHICS %0:END
515 ------------------------------
520 PROC SAVE_SCR:OPEN #%1,8,%0,"D:SCR.DAT":BPUT #%1,AD,992:CLOSE #%1:ENDPROC
530 PROC LOAD_SCR:OPEN #%1,4,%0,"D:SCR.DAT":CLOSE #%1:ENDPROC
540 PROC BZDET:FOR A=%0 TO 11:? "X X X X X X X X X X X X X X X X X X X":? " X X X X X X X X X X X X X X X X X X X"
550 NEXT A:ENDPROC
Od 1 do 18 z 18