MODULE››; W. C. PLUS - 2010››; SAME ZMIENNE I PIERWSZE PROC.›››BYTE ARRAY MI1=[1 8 15 22 1 8 15 22 29],›MI2=[1 1 1 1 8 8 8 8 9],›MI21=[0 35 9 14 19 27›9 27 15 19 20 34 37 0],›MI22=[1 1 1 1 1 1 ›5 5 13 13 13 12 12 0],››;MI21=[0 35 8 13 18 23 28 ›;8 28 13 18 23 14 14],›;MI22=[1 1 1 1 1 1 1 ›;5 5 14 14 14 10 10],›MI31=[35 35 35 35 35 4 10 14 20 24 30 6 7 8 9 25 26 27 28 12 13 14 16 17 19 20 21 22 1],›MI32=[2 2 2 2 2 10 6 2 2 6 10 6 6 6 6 6 6 6 6 2 2 2 2 2 2 2 2 2 1],›MI41=[14 22 12 13 14 16 17 18 20 22 24 25 26 1 2 3 4 5 7 9 28 29 31 32 33 34 35 36 37],›MI42=[6 6 1 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8],›MI51=[1 6 1 6 13 18 13 18 25 30 25 30 37 37 8 13 18 23 33],›MI52=[1 1 5 5 1 1 5 5 1 1 5 5 1 5 11 11 11 11 11],›MI61=[2 7 12 18 25 30 35 5 29],›MI62=[1 1 1 1 1 1 1 17 17],›MI71=[1 8 15 15 8 1 32 23 33 34 35 36 27 28 29 30 31›36›12 17 22 29 35 18 20 34 36 35 14 33 0 0 1 2 36›],›MI72=[1 1 1 7 7 7 17 17 6 6 6 6 10 10 10 10 10›1›1 1 1 1 1 9 9 9 9 9 17 17 9 9 9 9 10›] ›BYTE ARRAY CEL1=[0 0 3 13 17 17 33 33 65 65 64 64 128 128 248 248 128 128 64 64 65 65 33 33 17 17 13 3 0 0]›BYTE ARRAY CEL2=[0 0 128 96 16 16 8 8 4 4 4 4 2 2 62 62 2 2 4 4 4 4 8 8 16 16 96 128 0 0]›BYTE ARRAY GWI=[16 16 16 17 26 26 28 252 120 60 31 28 40 40 72 8]›;BYTE ARRAY ILP=[0 3 3 3 2 3 3 3 57 $F]›;BYTE ARRAY ILP=[0 1 2 3 4 5 6 7 8 $F]› BYTE ARRAY ILP=[0 1 1 1 1 1 1 1 1 $F]›;BYTE ARRAY ILP=[0 15 16 17 18 19 20 21 22 $F]›BYTE X,Y,Q,A,B,PR,Q1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,STR,STT,PLA,ILP1,XX,PU1=1536,PU2=1537,PU3=1538,PU4=1539›,PU5=1540,PU6=1541,ZYC,E,F,EE,FF,E1,RE,OP›BYTE ILPX,CZP,W1,W2,W3,G9=53272,G8=$D40A,G7=53274,G6=53273,G5=53271,G4=53270›BYTE K=764,KK=53279››CARD Z,FA,FB,FC,DL=560,ADREKR,QQ›BYTE ARRAY POK=0›BYTE ARRAY SAK=[0 0 4 22 60 56 26 4 24 0 24 60 108 70 94 198 246 246 246 198 238 250 100 56 0 0],›SAK1=[0 0 8 28 28 62 62 62 0 62 62 62 62 58 58 58 58 62 0 127 0 0]››;BYTE ARRAY DLREK=[112 112 112 68 160 155 ›BYTE ARRAY DLREK=[112 112 112 69 128 157 ›5 5 5 5 112 5 5 5 5 5 112 112 4 112 4 65 0 0›112 112 112 112 112 112 112 112 112 112 112 112 112 69 $3D $9F 65 0 0]›BYTE PLA1,KON,LG,DIF,LGM›››CARD ADRREP,ADRMUS,VVBLKD=$224›BYTE CON=$D01F,ABC,BCD›››;INCLUDE "PLAYER.ACT"›;INCLUDE "WG.ACT"››;PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURN›;PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(ADREKR+X+Y*40+Q1-1,Q2)OD RETURN›PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=ADREKR+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]››PROC SZ(BYTE X,Y,W)POK(ADREKR+X+Y*40)=W[96]››PROC TYU()›;COLOR=84 PLOT(1,22)DR(STR/4-1,22)› ;POK(QQ+STR/4)=0›IF STR>3 THEN›SETBLOCK(ADREKR+1+880,STR/4-1,52)FI› ;22*40=880›RETURN››PROC RPU()›IF PU1>9 THEN PU1==-10 PU2==+1 FI ›IF PU2>9 THEN PU2==-10 PU3==+1 FI ›IF PU3>9 THEN › IF PU1>9 THEN PU1==-10 FI IF PU2>9 THEN PU2==-10 FI› PU3=0 PU4==+1 FI›IF PU4>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5==+1 FI›IF PU5>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5=0 PU6==+1 FI› QQ=ADREKR+920›;SZ(11,23,36+PU1)› POK(QQ+11)=36+PU1›;SZ(10,23,36+PU2)› POK(QQ+10)=36+PU2›;SZ(9,23,36+PU3)› POK(QQ+9)=36+PU3›;SZ(8,23,36+PU4)› POK(QQ+8)=36+PU4›;SZ(7,23,36+PU5)› POK(QQ+7)=36+PU5›;SZ(6,23,36+PU6)› POK(QQ+6)=36+PU6›;SZ(22,23,36+ZYC);+1› POK(QQ+22)=36+ZYC›RETURN››PROC ERT()›;ZERO(ADREKR+22*40,78)›;COLOR=68 PLOT(12,23)PLOT(13,23)›SZ(12,23,36)SZ(13,23,36)RPU()›TX(0,23,"®¯°±²")TX(16,23,"lives")TX(33,23,"time")›TYU()›RETURN›PROC RTY()›IF PLA=1 THEN Q=RAND(9)A=MI1(Q)B=MI2(Q)›;ELSEIF PLA=2 THEN Q=RAND(12)A=MI21(Q)B=MI22(Q)›ELSEIF PLA=2 THEN Q=RAND(13)A=MI21(Q)B=MI22(Q)›;ELSEIF PLA=3 THEN Q=RAND(7)A=MI31(Q)B=MI32(Q)›ELSEIF PLA=3 THEN Q=RAND(28)A=MI31(Q)B=MI32(Q)›;ELSEIF PLA=4 THEN Q=RAND(12)A=MI41(Q)B=MI42(Q)›ELSEIF PLA=4 THEN Q=RAND(29)A=MI41(Q)B=MI42(Q)›ELSEIF PLA=5 THEN Q=RAND(19)A=MI51(Q)B=MI52(Q)›ELSEIF PLA=6 THEN Q=RAND(9)A=MI61(Q)B=MI62(Q)›;ELSEIF PLA=7 THEN Q=RAND(13)A=MI71(Q)B=MI72(Q)›ELSEIF PLA=7 THEN Q=RAND(17)A=MI71(Q)B=MI72(Q)›ELSEIF PLA=8 THEN Q=RAND(16)A=MI71(Q+18)B=MI72(Q+18)›FI›RETURN›PROC MUREK(BYTE A,B,MA,MB,T)›QQ=B*40›; Z WL. ATRYBUTEM›IF T=1 OR T=5 THEN ›FOR FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DO›IF T=1 THEN TX(FA,FB,"ƒ„")TX(FA,FB+1,"ƒ„")›ELSE TX(FA,FB,"")TX(FA,FB+1,"")FI›OD OD›ELSE FOR FB=B TO MB STEP 2 DO FOR FA=A TO MA STEP 2 DO ›IF T=2 THEN POK(ADREKR+FA+QQ)=69 POK(ADREKR+FA+QQ+1)=70 POK(ADREKR+FA+QQ+40)=70 POK(ADREKR+FA+QQ+41)=69›ELSEIF T=3 THEN POK(ADREKR+FA+QQ)=65 POK(ADREKR+FA+QQ+1)=66 POK(ADREKR+FA+QQ+40)=65 POK(ADREKR+FA+QQ+41)=66›ELSEIF T=4 THEN POK(ADREKR+FA+QQ)=67 POK(ADREKR+FA+QQ+1)=68 POK(ADREKR+FA+QQ+40)=68 POK(ADREKR+FA+QQ+41)=67 FI›OD QQ==+80 OD FI[96]›PROC KRA(BYTE A,B,MA,T)›FOR FA=A TO MA STEP 2 DO›IF T=0 THEN TX(FA,B,"")›ELSE TX(FA,B,"…†");RYS. KRAWE. Z 5 ATRYBUTEM›FI›OD›RETURN›PROC OKNO(BYTE A,B,T)›IF T=1 THEN TX(A,B,"")TX(A,B+1,"")TX(A,B+2,"")TX(A,B+3,"")›ELSEIF T=2 THEN TX(A,B,"UVVVW")TX(A,B+1,"[\")TX(A,B+2,"[\")TX(A,B+3,"XVVVZ")›ELSEIF T=3 THEN TX(A,B,"JKKKL")TX(A,B+1,"PQ")TX(A,B+2,"PQ")TX(A,B+3,"RNNNS")›ELSEIF T=4 THEN TX(A,B+1,"PQ")TX(A,B+2,"PQ")TX(A,B+3,"PQ")TX(A,B+4,"MKKKO")FI›RETURN›PROC PRZ1(BYTE X,Y)›TX(X+1,Y+1,"š")TX(X+1,Y+2,"")[96]›PROC PRZ2(BYTE X,Y)›TX(X+1,Y+1,"")TX(X+1,Y+2," !")[96]›PROC PRZ3(BYTE X,Y)›TX(X+1,Y+1,"")››SZ(X+1,Y+2,34)›IF POK(ADREKR+X+3+Y*40+80)=0 THEN›TX(X+2,Y+2,"#")›ELSE›TX(X+2,Y+2,"#")›FI[96]›PROC FIL(BYTE A,B,MA,MB,KOL)›QQ=B*40›FOR FB=B TO MB DO›FOR FA=A TO MA DO ›POK(ADREKR+FA+QQ)=KOL›OD ›QQ==+40›OD›[96]›PROC PUD(BYTE A,B)›TX(A,B," ")TX(A,B+1,"")TX(A,B+2,"")TX(A,B+3," ")›RETURN›PROC PLO(BYTE A,B,MA,MB)›FIL(A,B,MA,MB,7)›;SZ(FA,FB,7)OD OD›RETURN›PROC PLO1(BYTE A,B,MA,MB)›;PLOT + 5 ATRYB.›FIL(A,B,MA,MB,135)›RETURN›PROC ZAM(BYTE A,B,MA,MB)›FIL(A,B,MA,MB,25)›RETURN›PROC ZAM2(BYTE A,B,MA,MB)›FIL(A,B,MA,MB,51)›RETURN›PROC ZAM21(BYTE A,B,MA,MB)›;SCHODKI + 5 ATR.›FIL(A,B,MA,MB,179)›RETURN›PROC WLAZ(BYTE A,B)TX(A,B,"579;<")TX(A,B+1,"68::=")›RETURN››PROC TR1(BYTE W)›W1=RAND(POK($9401))+POK($9402) W2=RAND(4)+POK($9403)›SZ(W1,W2,W)›[96]››PROC TR2()›W1=RAND(POK($9401))+POK($9402) W2=RAND(POK($9403))+POK($9404)[96]››PROC TRAWKA(BYTE A,B,MA,MB,X)›FIL(A,B,MA,MB,73)››POK($9401)=MA-A+1 POK($9402)=A POK($9403)=B›FOR Q=0 TO 40 DO IF X>0 THEN TR1(27)FI TR1(30)TR1(34)OD››FOR Q=0 TO 40 DO›TR1();POK(ADREKR+W1+W2*40)=54›SZ(W1,W2,54)›TR1()›;POK(ADREKR+W1+W2*40)=63›SZ(W1,W2,63)››OD››POK($9401)=MA-A+1 POK($9402)=A POK($9403)=B+3›FOR Q=0 TO 40 DO›;W1=RAND(MA-A)+A W2=RAND(4)+B+3›TR1()›;POK(ADREKR+W1+W2*40)=53›SZ(W1,W2,53)›IF X>0 THEN›TR1()›;POK(ADREKR+W1+W2*40)=72›SZ(W1,W2,72)FI›OD››FOR Q=0 TO 60 DO›TR1()›;POK(ADREKR+W1+W2*40)=32›SZ(W1,W2,32)››OD››POK($9401)=MA-A+1 POK($9402)=A POK($9403)=MB-B POK($9404)=B›FOR Q=0 TO A DO›TR2()›;POK(ADREKR+W1+W2*40)=63›SZ(W1,W2,63)›IF X>0 THEN›TR2()›;POK(ADREKR+W1+W2*40)=71›SZ(W1,W2,71)›TR2()›;POK(ADREKR+W1+W2*40)=72›SZ(W1,W2,72)›TR2()›;POK(ADREKR+W1+W2*40)=64›SZ(W1,W2,64)››TR2()›;POK(ADREKR+W1+W2*40)=35›SZ(W1,W2,35)›TR2()›;POK(ADREKR+W1+W2*40)=31›SZ(W1,W2,31)›TR2()›;POK(ADREKR+W1+W2*40)=26›SZ(W1,W2,26)›TR2()›;POK(ADREKR+W1+W2*40)=27›SZ(W1,W2,27)›TR2()›;POK(ADREKR+W1+W2*40)=29›SZ(W1,W2,29)›FI››TR2()›;POK(ADREKR+W1+W2*40)=30›SZ(W1,W2,30)›TR2()›;POK(ADREKR+W1+W2*40)=54›SZ(W1,W2,54)›OD››FOR Q=0 TO X DO›;POK(ADREKR+W1+W2*40)=64›››;IF RAND(50)>25 THEN›IF PEEK($D20A)>128 THEN›TR2()›;POK(ADREKR+W1+W2*40)=64›SZ(W1,W2,64)›TR2()›;POK(ADREKR+W1+W2*40)=68›SZ(W1,W2,68)›TR2()›;POK(ADREKR+W1+W2*40)=62›SZ(W1,W2,62)›TR2()›;POK(ADREKR+W1+W2*40)=65›SZ(W1,W2,65)›FI›OD››[96]››PROC GR()›GRAPHICS(12+16);POKE(559,0)›ADREKR=PEEKC(88)›RETURN›PROC PAU()›FOR XX=0 TO 85 DO ›IF PEEK(764)=27 THEN POK(764)=255›;POKE(704,5)POKE(705,5)›FI ›OD ›RETURN››PROC PAU_R()›;FOR XX=0 TO 85 DO ›FOR XX=0 TO 30 DO ›IF PEEK(764)=28 THEN POK(764)=255›;POKE(704,5)POKE(705,5)›;BREAK()›FI ›IF STRIG(0)=0 THEN EXIT FI›IF KK=6 THEN EXIT FI›OD›RETURN››PROC CEL()›POK(53248)=C POK(53249)=C+8›FOR Q=0 TO 29 DO Q1=CEL1(Q)POK(Z+1024+Q+D)=Q1 Q2=CEL2(Q)POK(Z+1280+Q+D)=Q2 OD›RETURN››PROC ZMKOL()›G8=1;G8=1›G9=$14 ;710›;G7=0 ;712›; ^^^ !!!!!!!!!!!!!!!›G6=$0B ;711›G5=$18 ;709›G4=$16 ;708›[173 $D40B 201 107 208 249]›G8=1 G8=1›G6=$8B›G5=$B8›[96]››PROC POCZ()›IF LG=0 THEN›D=120 FOR C=0 TO 120 DO ›[173 $D40B 201 103 208 249]›ZMKOL()›;PAU()PAU()›IF K=33 OR K=28 THEN C=120 K=255 CEL()EXIT FI›CEL()OD FI›RETURN››PROC SA1()POK(53252)=54+E POK(53253)=52+E POK(53254)=50+E POK(53255)=48+E[96]››PROC SAKIEWKA()›IF RE=0 THEN›;SA2()›SA1()›FOR W1=0 TO 25 DO Q=SAK(W1)POK(Z+768+F+W1)=Q OD››ELSE;RE=1›;SA3()›SA1()›FOR W1=0 TO 21 DO Q=SAK1(W1)POK(Z+768+F+W1)=Q OD›FI›[96]››PROC OBJ()›IF EE=1 THEN F==+2 › IF LG=1 AND PLA1>7 THEN F==+1 POK(Z+768+F-1)=0 FI› SAKIEWKA()FI›;IF EE=1 AND F>186 THEN ZERO(Z+768+186,26)EE=0 FI›IF EE=1 AND F>203 THEN ZERO(Z+768+203,27)EE=0 FI›IF EE=2 AND F>48 THEN E1==+1 FF==-1 FOR X=0 TO FF DO F==-1 SAKIEWKA()OD FI›IF EE=2 AND F<=48 THEN E1=0 EE=1 FI›IF EE=2 AND E1=4 THEN EE=1 E1=0 FF=1 FI››IF EE>0 THEN›;ZERO(Z+768+200,26)›ZERO(Z+968,27);W LG=1 26+1›;SETBLOCK(Z+768+6,26,255)›ZERO(Z+774,26)›FI››[96]››PROC PUR()›SNDRST()›WHILE STR>0 DO ›IF K=255 THEN› [173 $D40B 201 103 208 249]ZMKOL()›FI››;COLOR=32 ›;IF EE=0 THEN POK(QQ+STR/4)=0;SZ(STR/4,22,0);PLOT(STR/4,22)›;ELSE POK(QQ+STR/4)=0 FI›QQ=ADREKR+880›POK(QQ+STR/4)=0›STR==-1›PU1==+1›;PU1==+2 PU2==+1 ›SOUND(0,25,10,15)›OBJ()›RPU()›IF K=255 THEN› SOUND(0,25,10,10)› [173 $D40B 201 103 208 249]ZMKOL()› OBJ()›FI›SOUND(0,25,10,5)››;Q=15 WHILE Q>0 DO PAU()SOUND(0,25,10,Q)Q==-5 OD›;IF K=28 OR K=33 THEN SNDRST()K=255 EXIT FI›OD›SNDRST()K=255›RETURN››PROC UIO()›;ZERO(ADREKR,23*40)›ZERO(ADREKR,920)›RETURN››PROC RYSP()›SNDRST()›ZERO(Z+768,1280)›;ZERO(53248,8)››UIO()››IF PLA=1 THEN › PLO(30,0,39,19)KRA(0,20,39,0)MUREK(0,0,29,15,5)›› FOR Q=0 TO 55 DO› W1=RAND(15)*2 W2=RAND(16)› SZ(W1,W2,69)›; POK(ADREKR+W1+W2*40)=69› W1=RAND(15)*2 W2=RAND(16)› SZ(W1+1,W2,70)›;POK(ADREKR+W1+W2*40+1)=70› OD››FOR X=0 TO 7 DO OKNO(MI1(X),MI2(X),1)OD ZAM(0,16,39,19)› ZAM(30,15,39,19)PUD(30,12)›;POK(ADREKR+0+3*40)=69 POK(ADREKR+0+9*40)=70› TX(30,9,"]]]^")TX(30,10,"_")TX(30,11,"_")››FI›IF PLA=2 THEN ›;TRAWKA(0,8,39,20,1)›TRAWKA(0,10,39,20,1)›MUREK(0,0,13,14,4)MUREK(13,0,39,13,4)›MUREK(14,11,26,12,3)›OKNO(24,1,3)›FOR X=0 TO 1 DO OKNO(MI21(X),MI22(X),1)OD ZAM(13,5,27,5)›;FOR X=2 TO 11 DO OKNO(MI21(X),MI22(X),3)OD›FOR X=2 TO 8 DO OKNO(MI21(X),MI22(X),3)OD›OKNO(9,4,4)OKNO(27,4,4)›OKNO(14,13,3)OKNO(19,13,3)›;POLOWICZNE OKNO:›OKNO(24,13,3)›SZ(26,1,76)›SZ(26,2,81)SZ(26,3,81)›SZ(26,4,83)››;ZAM(14,5,25,5)› FIL(14,5,26,5,78)› PLO(15,6,25,8) ;ZAM(13,9,27,9)› FIL(9,9,13,16,64);SCHODY1› ZAM(7,0,33,0);SUFIT› ZAM(8,5,8,16)ZAM(32,5,32,16)PLO(8,13,8,15)› PLO(32,13,32,15)› FIL(27,9,31,16,64);SCHODY2› ZAM(14,6,14,16)ZAM(26,6,26,17)› PLO(14,13,14,15)PLO(26,13,26,15)›;ZAM(0,18,33,21)› ZAM(0,17,33,20)› ZAM(0,15,6,18)› SZ(8,12,51)SZ(14,12,51)SZ(26,12,51)SZ(32,12,51)› SZ(8,17,51)SZ(14,17,51)SZ(26,17,51)SZ(32,17,51)› SZ(7,17,51)SZ(33,17,51)› SZ(15,17,51)SZ(25,17,51)›› SZ(33,16,25)SZ(7,16,25)› SZ(15,12,78)SZ(25,12,78)› SZ(15,16,25)SZ(25,16,25)›› PLO(15,13,15,15)PLO(25,13,25,15)›› FIL(15,9,25,10,119)› FIL(7,8,7,15,119)› FIL(33,8,33,15,119)›› FIL(34,9,34,20,16)›››;OKNA SZATNI:› FIL(35,13,39,14,0)› FIL(37,13,37,14,91)››;KRAW.:› FIL(35,15,39,15,6)› SZ(38,15,5)››FI›IF PLA=3 THEN ›;FOR X=0 TO 27 DO OKNO(MI31(X),MI32(X),1)OD››MUREK(0,0,3,14,5)›ZAM(0,15,39,20)›MUREK(34,0,39,16,2)› ZAM(34,17,39,18)››OKNO(35,2,1)›PUD(4,13)PUD(10,13)PUD(16,13)PUD(22,13)PUD(28,13)PUD(7,9)PUD(13,9)PUD(19,9)PUD(25,9)PUD(13,5)PUD(19,5)ZAM(4,0,4,12)›ZAM(33,0,33,12)››FI›IF PLA=4 THEN›;FOR X=0 TO 29 DO OKNO(MI41(X),MI42(X),1)OD›MUREK(0,11,10,14,3)MUREK(29,11,39,14,3)MUREK(29,11,30,14,5)››TRAWKA(0,14,39,20,3)››PLO(12,5,28,15)KRA(12,4,29,1)OKNO(14,6,1)›OKNO(22,6,1)››ZAM2(0,19,2,19)›TX(32,19," ")TX(32,20,"")›KRA(38,13,39,0)››FI›IF PLA=5 THEN››TRAWKA(0,14,39,20,1)››;TX(0,18,"")TX(0,19,"")›FIL(0,18,1,20,0)›POK($9401)=2 POK($9402)=0 POK($9403)=RAND(5)+13›TR1(30)POK($9403)=RAND(5)+13›TR1(34)POK($9403)=RAND(5)+13›TR1(54)POK($9403)=RAND(5)+13›TR1(63)››MUREK(0,0,39,17,3)››ZAM(6,10,29,18)ZAM2(6,18,29,18)PLO(6,13,6,15)PLO(29,13,29,15)›FOR X=0 TO 18 DO OKNO(MI51(X),MI52(X),2)OD MUREK(0,0,0,16,5)OKNO(1,1,2)OKNO(1,5,2)››FI›IF PLA=6 THEN›ZAM(0,17,39,20)›WLAZ(5,18)WLAZ(29,18)›FIL(0,11,39,16,71)›MUREK(0,0,39,10,5)FOR X=0 TO 6 DO›OKNO(MI61(X),MI62(X),1)OD PLO(2,5,16,8)PLO(25,5,39,8)›FIL(0,11,39,11,72)››FI›IF PLA=7 THEN› MUREK(0,0,22,16,5)› FOR Q=0 TO 30 DO› W1=RAND(12)*2 W2=RAND(16)SZ(W1,W2,69)› W1=RAND(12)*2 W2=RAND(16)SZ(W1+1,W2,70)› OD›› FOR X=0 TO 6 DO OKNO(MI71(X),MI72(X),1)OD ZAM(0,16,39,20)WLAZ(32,18)WLAZ(23,18)›;FOR X=0 TO 16 DO OKNO(MI71(X),MI72(X),1)OD ZAM(0,16,39,20)WLAZ(32,18)WLAZ(23,18)› ZAM(23,15,39,15)› FIL(23,14,39,14,63)› PUD(28,13)PUD(34,13)PUD(34,9)› ZAM(23,0,23,16)› SZ(0,3,69)SZ(0,4,69)› SZ(0,8,69)SZ(0,9,69)››FI››IF PLA=8 THEN›;TRAWKA(10,12,39,16,0)›;TRAWKA(10,13,39,20,0)›;TRAWKA(9,11,39,20,0)› TRAWKA(0,10,39,20,0)› FIL(1,2,4,11,0)›› FIL(7,0,39,9,119)› FOR X=0 TO 4 DO OKNO(MI71(X+18),MI72(X+18),1)OD›;FOR X=0 TO 15 DO OKNO(MI71(X+18),MI72(X+18),1)OD››› FIL(0,0,6,1,119)› FIL(0,1,0,9,119)› FIL(1,1,6,1,0)› FIL(5,1,6,11,89)› FIL(1,1,5,3,89)› FIL(7,10,39,11,25)›;KRA(10,12,39,0)› FIL(9,12,39,12,6)› FOR X=12 TO 39 STEP 4 DO SZ(X,12,5)OD›› FIL(9,0,9,6,15)› SZ(9,7,22)››› SZ(0,10,63)SZ(0,11,25)› FIL(7,10,39,10,63)››;PR:›;FOR X=0 TO 1 DO OKNO(MI71(X+23),MI72(X+23),2)OD›;FOR X=0 TO 1 DO OKNO(MI71(X),MI72(X),2)OD›;OKNO(MI71(23),MI72(23),2)OKNO(MI71(24),MI72(24),2)›;OKNO(18,9,2)OKNO(20,9,2)›› FIL(19,10,22,11,0)› FIL(35,10,38,11,0)›› ZAM(0,17,39,20)› WLAZ(14,18)WLAZ(33,18)› PLO(35,5,39,8)› FIL(7,12,8,16,71)FIL(0,12,6,16,64)›FI››RETURN››