;PROCEDURY Z POCZATKU KODU›; PLIK PROC1.ACT››PROC WG(CHAR ARRAY TX CARD G,I BYTE A)›CLOSE(2)OPEN(2,TX,A,128)IF A=4 THEN POKE($362,7) ELSE POKE($362,11) FI›POKEC($364,G)POKEC($368,I)[162 32 32 $56 $E4 133 $A3]CLOSE(2)›RETURN››PROC DU()›P(54279)=$90 P(53277)=3›;P(559)=62› P(623)=17›;P(704)=14 P(705)=$0F P(706)=$0F P(707)=$16   ›Z=$90*256+1024 ZERO(53256,5)ZERO(Z-256,256*5)›P(53260)=255›DD(0)=Z DD(1)=Z+256 DD(2)=Z+512 DD(3)=Z+768 DD(4)=Z-256›[96]››PROC HMOV()›Q=0 Q1=0›IF JO1=14 THEN Q=2 FI›IF JO1=10 THEN Q=2 FI›IF JO1=6 THEN Q=2 FI››IF JO1=13 THEN Q=1 FI›IF JO1=9 THEN Q=1 FI›IF JO1=5 THEN Q=1 FI››IF JO1=7 THEN Q1=4 FI›IF JO1=6 THEN Q1=4 FI›IF JO1=5 THEN Q1=4 FI››IF JO1=11 THEN Q1=3 FI›IF JO1=10 THEN Q1=3 FI›IF JO1=9 THEN Q1=3 FI››IF Q=1 AND B<216 THEN B==+3 FI›IF Q=2 AND B>60 THEN B==-3 FI›IF Q1=3 AND A>48 THEN A==-2 FI›IF Q1=4 AND A<160 THEN A==+2 FI››;P(53252)=A+6 P(53253)=A+4 P(53254)=A+2 P(53255)=A+0›[96]››PROC PU()›IF PU1>25 THEN PU2==+1 PU1==-10 FI›IF PU2>25 THEN PU3==+1 PU2==-10 FI›IF PU3>25 THEN PU4==+1 PU3==-10 FI›IF PU4>25 THEN IF PU5<25 THEN PU5==+1 FI PU4==-10 FI›[96]››PROC VSYNC()› IF C>0 THEN C==-1 ELSE P1=0 FI› IF D>0 THEN D==-1 ELSE P2=0 FI›››[173 $D40B 201 26 208 249]›› D4A=1;[234]›;GG=2›;FOR Q=0 TO 215 DO;D4A=1›FOR Q=0 TO 71 DO;D4A=1›  AD1==+P1 S1=P(AD1);OR $10›  AD2==+P2 S2=P(AD2);OR $10›OD›;GG=14›D3=PRX(4) D4=PRX(3)› P(53268)=PRC(4)P(53269)=PRC(3)›;P(53268)=$FF P(53269)=$FF   ›;GG=2›D4A=1›FOR Q=0 TO 150 DO;D4A=1› AD1==+P1 S1=P(AD1) AD2==+P2 S2=P(AD2)›OD›;GG=14 D4A=1 GG=0›[96]››PROC SPLW(BYTE Q5)›IF C>0 THEN Q6=2 FI›IF D>0 THEN Q6=1 FI››IF Q5=0 THEN › IF Q6=1 THEN AD1=$8100 P1=1 C=5› ELSE AD2=$8100 P2=1 D=5 FI›FI›IF Q5=1 THEN › IF Q6=1 THEN AD1=$8600 P1=1 C=5› ELSE AD2=$8600 P2=1 D=5 FI›FI›IF Q5=2 THEN › IF Q6=1 THEN AD1=$8B00 P1=1 C=5› ELSE AD2=$8B00 P2=1 D=5 FI›FI›IF Q5=3 THEN › IF Q6=1 THEN AD1=$8600 P1=2 C=5› ELSE AD2=$8600 P2=2 D=5 FI›FI›IF Q5=4 THEN › IF Q6=1 THEN AD1=$8100 P1=1 C=5› ELSE AD2=$8100 P2=1 D=5 FI›FI›IF Q5=5 THEN › IF Q6=1 THEN AD1=$8100 P1=1 C=5› ELSE AD2=$8100 P2=1 D=5 FI›FI›[96]›››