MODULE››; DIGITALIZACJE›; TESTOWANIE I KONWERTOWANIE››;INCLUDE "D:RT_MIR2.ACT"›››BYTE› S1=$D201,S2=$D203› ,A=$AF,B=$AE,P1=$A9,P2=$A8,C=$A7,D=$A6› ,D4A=$D40A›CARD X›,AD1=$AC,AD2=$AA›››BYTE›  Q,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,›ZYC,LEV,PU1=40526,PU2=40525,PU3=40524,PU4=40523,PU5=40522,›K=764,JO1=$278,R=$D20A,GG=53274,NMI=$D403,PORTB=$D301›,L,M,LE,LE1›,PT1,PX1,PY1,PS1,PT2,PX2,PY2,PS2,PT3,PX3,PY3,PS3›,PA1,PA2,PA3››››CARD QQ,QQ1,DL=560,ADR,TI›,FNT=[$9000],ANI=[$9400],Z›,EKR=[40000],DUA=[$8320]››BYTE ARRAY›P=0››CARD ARRAY FY(28),DD(7)››;BYTE ARRAY DLIBIN=[72 173 254 6 77 255 6 141 254 6 234 141 9 212 104 64];ORYGINAL›BYTE ARRAY DLIBIN=[72 173 254 6 77 255 6 141 254 6 234 234 141 9 212 104 64]››;INCLUDE"D:MOVEZERO.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 VSYNC()›[173 $D40B 201 0 208 249]›[96]›››PROC GRA()›;P(559)=0;P($D400)=0›FOR Q=0 TO 27 DO FY(Q)=Q*40 OD›››;WG("D:ANIM.FNT",ANI,$400,4)›;WG("D:DL.DAT",$9B72,40,4)››;GRAPHICS(0)› P(756)=$90›;P(709)=12 P(710)=0 P(712)=0››ZERO(EKR,1040)››;WG("D:F.FNT",$9000,$400,4)›;WG("D:F2.FNT",$9400,$400,4)›;WG("D:DU.DAT",DUA,$200,4)››;MOVEBLOCK(Z-255+80,DUA+98,150)››WHILE K#28›DO››[173 $D40B 201 0 208 249]›;VSYNC()›P(53278)=1›››;GG=$08››;HMOV()›;GG=$19›››;WHILE K#33 DO OD K=255›››››P(77)=0›OD›K=42›ZERO(53256,5)› GRAPHICS(0)›[96]›››PROC PLAY()›;FOR X=$4000 TO $9000 DO›;A=PEEK(X) S2=A OR $10› ;D3=A +$60› ;D3=A +$60›› FOR AD1=$4000 TO $9000 DO› A=P(AD1) S1=A OR $10›› D4A=1››;IF CON<>7 THEN EXIT FI›OD›[96]››PROC CONVERT()› QQ=$9000› FOR X=$5000 TO $5000+1250 STEP 1 DO› P(QQ)=P(X) QQ==+1› OD››;WG("D:PER3.DGT",$9000,$4E2,8)››[96]››PROC TEST();PROCEDURY 2 KANALOW:›BYTE ARRAY DIS=[112 112 112 66 64 156›112 112 112 112 112 112 112 112 112 112›112 112 112 112 112 112 112 112 112 112›112 112 112 112 65 0 0]›FOR X=0 TO 50 DO P(40700+X)=DIS(X) OD›DL=40700››AD1=$5000 AD2=$4010›P1=1 P2=1›C=3 D=3››DO›› IF STRIG(0)=0 THEN AD1=$8000 P1=1 C=5 FI›;IF STRIG(0)=0 THEN AD1=$7500 P1=5 C=5 FI››;IF STICK(0)=7 THEN AD2=$6000 P2=2 D=25 FI› IF STICK(0)=7 THEN AD2=$5000 P2=1 D= 5 FI›› IF C>0 THEN C==-1 ELSE P1=0 FI› IF D>0 THEN D==-1 ELSE P2=0 FI› [173 $D40B 201 28 208 249]›› D4A=1›;[234][234][234][234][234][234][234][234]› GG=8›FOR Q=0 TO 250 DO›;D4A=1›  AD1==+P1 S1=P(AD1);OR $10›;GG=4›  AD2==+P2 S2=P(AD2);OR $10›;GG=0›OD›GG=14›D4A=1› GG=0›››OD›GRAPHICS(0)›[96]››PROC MAIN()›;WG("D:SZCZEK.DGT",$4000,$5000,4)›;WG("D:LAS.DGT",$4000,$5000,4)› WG("D2:PERK*.DAT",$4000,$5000,4)› FOR AD1=$4000 TO $9000 DO P(AD1)=P(AD1) OR $10 GG=AD1 OD››;WG("D:      .DGT",$8A00,$4E2,8)››;CONVERT()›› TEST()›››AD1=$4000 AD2=$4010 X=$4001›P1=1 P2=1››WHILE K#28›DO››› [173 $D40B 201 8 208 249]› D4A=1› D4A=1›GG=8› AD1==+1› S1=P(AD1);OR $10› GG=4› AD2==+1› S2=P(AD2);OR $10›GG=0›› D4A=1›;[234][234][234][234][234][234][234][234]›GG=8› AD1==+P1› S1=P(AD1);OR $10›GG=4› AD2==+P2› S2=P(AD2);OR $10›GG=0››;D4A=1 D4A=1›;GG=14 X==+1 Q=PEEK(X) S2=Q OR $10 GG=0›››;PLAY()›››OD›K=42›[96]›