Logicielsmoto.com

4 REM console ,,,,3
5 print CHR$(&h1b)+CHR$(&h5e)
7 screen 0,0,0: lmax = 20 :cls
39 rem boxf (20,0)-(120,60),9
40 RAM = &h4000
41 dim bubble%(128)
42 for i=0 to 63: read bubble%(i):next
43 for i=0 to 15 : C= bubble%(4*i+1): D= bubble%(4*i+3) : GOSUB 200
46 for k=0 to 7 : ADR = RAM+40*i+4*k :A=PEEK(ADR) : B = peek (ADR+1):POKE ADR,(FILTREA AND A) + (C AND (not FILTREA)) :  POKE ADR+1,(FILTREB AND B) + (D AND (not FILTREB))
47 next : next :  i=peek(&hE7C3): i=(i OR 1): poke(&he7c3),i
50 for i=0 to 15 :C= bubble%(4*i): D= bubble%(4*i+2) : GOSUB 200
53 for k=0 to 7 : ADR = RAM+40*i+4*k :A=PEEK(ADR) : B = peek (ADR+1):POKE ADR,(FILTREA AND A) + (C AND (not FILTREA)) :  POKE ADR+1,(FILTREB AND B) + (D AND (not FILTREB))
54 next : next :  i=peek(&hE7C3): i=(i OR 1): poke(&he7c3),i
70 a$=inkey$: if a$="" goto 70
71 color 3,4
72 END
100 REM Data BUBBLE GAUCHE1
101 DATA 255,243,255,255, 255,51,255,255
102 DATA 242,34,51,255 ,34,34,35,255
103 DATA 114,114,47,255, 2,7,35,63
104 DATA 2,7,34,63, 2,7,50,255
105 DATA 2,7,50,63, 114,119,2,63
106 DATA 7,0,37,255, 34,34,37,95
107 DATA 7,114,37,82, 7,119,34,50
108 DATA 87,85,34,34, 87,85,82,47
200 IF (C AND 240) = 240 then FILTREA= 240 ELSE FILTREA = 0
201 IF (C AND 15) = 15 then FILTREA= FILTREA+15
202 IF (D AND 240) = 240 then FILTREB= 240 ELSE FILTREB = 0
203 IF (D AND 15) = 15 then FILTREB= FILTREB+15
204 RETURN

POKE &HE7C3, PEEK (&HE7C3) AND 254

En Machine comme pour le BASIC
LDA   $E7C3 (PEEK)
AND.A #$FE
STA   $E7C3 (POKE)

(* Fichier Main *)
PROGRAM TESTMONI1;
VAR C, D, I, RAM : INTEGER;
T : ARRAY [0..63] of INTEGER;

PROCEDURE POKE (ADR, VAL : INTEGER);
BEGIN ENCODE ('10AE58EC56E7A4'); END;

FUNCTION PEEK (ADR: INTEGER): INTEGER;
BEGIN ENCODE ('10AE58E6A44FEDC4'); END;

PROCEDURE TRACEPT(C,D, I, RAM : INTEGER);
VAR K, F1, F2, ADR, A, B: INTEGER;
BEGIN
    if C AND 240 = 240 THEN F1:=240 else F1:=0;
    if C AND 15 = 15 THEN F1:=F1+15;
    if D AND 240 = 240 THEN F2:=240 else F2:=0;
    if D AND 15 = 15 THEN F2:=F2+15;
    FOR k:=0 TO 49 DO
        BEGIN
        ADR := RAM + 40*I+4*(K MOD 8) + 600*(K DIV 8);
        A:=PEEK(ADR);
        B := peek (ADR+1);
        POKE (ADR, F1 AND A + C AND NOT F1);
        POKE (ADR+1,F2 AND B + D AND NOT F2);
        END;
END;
(*$main1*)

(*fichier main1*)
BEGIN
T[0]:=255; T[1]:=243; T[2]:=255; T[3]:=255; T[4]:=255; T[5]:=51; T[6]:=255; T[7]:=255;
T[8]:= 242; T[9]:=34; T[10]:=51;T[11]:=255; T[12]:=34; T[13]:=34; T[14]:=35; T[15]:=255;
T[16]:= 114; T[17]:=114; T[18]:=47; T[19]:=255; T[20]:=2;T[21]:=7; T[22]:=35; T[23]:=63 ;
T[24]:=2; T[25]:=7; T[26]:=34; T[27]:=63; T[28]:=2; T[29]:=7; T[30]:=50;T[31]:=255;
T[32]:= 2; T[33]:=7; T[34]:=50; T[35]:=63; T[36]:=114; T[37]:=119; T[38]:=2; T[39]:=63;
T[40]:= 7;T[41]:=0; T[42]:=37; T[43]:=255; T[44]:=34; T[45]:=34; T[46]:=37; T[47]:=95;
T[48]:= 7; T[49]:=114; T[50]:=37;T[51]:=82; T[52]:=7; T[53]:=119; T[54]:=34; T[55]:=50;
T[56]:= 87; T[57]:=85; T[58]:=34; T[59]:=34; T[60]:=87;T[61]:=85; T[62]:=82; T[63]:=47;
write(CHR(27),CHR(94));

RAM:=#4000;
FOR I:=0 TO 15 DO
    BEGIN
    C := T[4*I+1];
    D := T[4*I+3];
    TRACEPT(C,D,I, RAM);
    END;
i:=peek(#E7C3) OR 1;
poke(#E7C3,i);
FOR I:=0 TO 15 DO
    BEGIN
    C := T[4*I];
    D := T[4*I+2];
    TRACEPT(C,D,I, RAM);
    END;
i:=peek(#E7C3) AND 254;
poke(#E7C3,i);
END.