MODULE››; WERSJA OSTATECZNA NA SRONKE AOL (2010)››;INCLUDE "RUNTIME.ACT"›;INCLUDE "RT.ACT"›;INCLUDE "1.ACT"››;INCLUDE "RT2.ACT"››BYTE ARRAY MI1=[1 8 15 22 1 8 15 22 29],›MI2=[1 1 1 1 8 8 8 8 9],›MI21=[1 34 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 4 10 14 20 24 30],›MI32=[2  10 6 2  2  6  10],›MI41=[14 22 12 15 24 9 28 1 4 32 35 37],›MI42=[6  6  1   1  1 8 8  8 8  8 8  8],›MI51=[1 6 1 6 13 18 13 18 25 30 25 30 36 36 8  13 18 23 32],›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 36 35 31 29 28 ],›MI72=[1 1 1  6  6 6 17 17 6  6  10 10 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 57 $F]›;BYTE ARRAY ILP=[0 1 2 3 4 5 6 7 $F]›BYTE ARRAY ILP=[0 15 16 17 18 19 20 21 $F]›BYTE X,Y,Q,A,B,PR,Q1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,AA,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›BYTE K=764››CARD Z,FA,FB,FC›BYTE ARRAY GA=[0 241 241 195 0 255 255 255 0 127 255 255 0 197 199 15],GB=[0 84 81 0 243 243 243 243 0 85 85 0 255› 255 255 255],GC=[61 61 61 61 61 61 61 61 234 234 234 234 234 234 234 234]›BYTE ARRAY P2=[149 101 89 84 84 84 84 84 85 85 85 0 234 234 234 234],P4=[86 91 111 63 63 63 63 63 84 84 84 84 84 91› 111 191],P6=[234 234 234 234 0 255 255 255 63 63 63 63 63 223 247 253],P8=[84 84 84 84 84 84 84 84 63 63 63 63 63 63› 63 63]›BYTE ARRAY OK2=[0 0 63 63 53 53 52 52 0 0 255 255 85 85 0 0],OK4=[0 0 252 252 92 92 28 28 52 52› 53 53 63 63 0 0],OK6=[0 0 85 85 255 255 0 0 28 28 92 92 252 252 0 0],OK8=[52 52 52 52 52 52 52 52›28 28 28 28 28 28 28 28]›BYTE ARRAY PR2=[0 0 0 0 0 10 9 7 0 0 0 0 0 64 192 192],PR4=[255 5 1 6 5 255 255 255 252 64 0 64 64 252 255 255],›PR6=[0 0 0 3 0 0 240 252 0 0 0 4 196 213 116 92],PR8=[63 63 63 255 255 255 255 255 ›92 83 64 192 192 240 240 252],PR10=[0 0 0 0 0 240 255 15 0 0 0 0 192 49 53 29]›BYTE ARRAY LI=[168 136 136 136 136 136 136 168 8 8 8 8 8 8 8 8 168 8 8 168 128 128 128 168 168 8 8 168 8 8 8 168›136 136 136 168 8 8 8 8 168 128 128 168 8 8 8 168 168 128 128 168 136 136 136 168 168 8 8 8 8 8 8 8›168 136 136 168 136 136 136 168 168 136 136 168 8 8 8 168 0 252 192 252 12 12 252 0 0 252 192 192 192 192 252 0  ›0 252 204 204 204 204 252 0 0 252 204 252 240 204 204 0 0 252 192 240 192 192 252 0›85 255 255 255 255 255 255 255 204 68 136 136 136 68 204 0],›KANAL=[255 255 252 252 252 252 240 240 240 240 240 192 192 192 192 0 0 0 2 2 2 2 9 9 9 9 38 38 38 38 154 170›170 149 106 106 106 106 170 170 170 170 170 170 170 170 170 170 170 85 170 170 170 170 170 170 170 86 171 171 171 171›175 175 175 175 175 175 191 191 191 191],›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]››INCLUDE "PLAYER.ACT"›INCLUDE "WG.ACT"››PROC PO(BYTE A,B)POSITION(A,B)RETURN PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURN›PROC TYU()›COLOR=84 PLOT(2,22)DR(STR/4-2,22)›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 PU1=0 PU2=0 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›COLOR=68+PU1 PLOT(11,23)›COLOR=68+PU2 PLOT(10,23)›COLOR=68+PU3 PLOT(9,23)›COLOR=68+PU4 PLOT(8,23)›COLOR=68+PU5 PLOT(7,23)›COLOR=68+PU6 PLOT(6,23)›COLOR=69+ZYC PLOT(17,23)›RETURN›PROC ERT()›COLOR=68 PLOT(12,23)PLOT(13,23)RPU()PO(0,23)PRINTD(6,"ÎÏÐÑÒ")TYU()›RETURN›PROC RTY()›IF PLA=1 THEN Q=RAND(9)A=MI1(Q)B=MI2(Q)FI›IF PLA=2 THEN Q=RAND(11)A=MI21(Q)B=MI22(Q)FI›IF PLA=3 THEN Q=RAND(7)A=MI31(Q)B=MI32(Q)FI›IF PLA=4 THEN Q=RAND(12)A=MI41(Q)B=MI42(Q)FI›IF PLA=5 THEN Q=RAND(19)A=MI51(Q)B=MI52(Q)FI›IF PLA=6 THEN Q=RAND(9)A=MI61(Q)B=MI62(Q)FI›IF PLA=7 THEN Q=RAND(13)A=MI71(Q)B=MI72(Q)FI›RETURN›PROC MUREK(BYTE A,B,MA,MB)›FOR FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DO PO(FA,FB)PRINTD(6,"#$")PO(FA,FB+1)PRINTD(6,"#$")OD OD›RETURN›PROC MUREK1(BYTE A,B,MA,MB)›; Z WL. ATRYBUTEM›FOR FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DO PO(FA,FB)PRINTD(6,"£¤")PO(FA,FB+1)PRINTD(6,"£¤")OD OD›RETURN›PROC KRA(BYTE A,B,MA)FOR FA=A TO MA STEP 2 DO PO(FA,B)PRINTD(6,"%&")OD›RETURN›PROC KRA1(BYTE A,B,MA)FOR FA=A TO MA STEP 2 DO PO(FA,B)PRINTD(6,"¥¦")OD›;RYS. KRAWE. Z 5 ATRYBUTEM›RETURN›PROC OKNO(BYTE A,B)›PO(A,B)PRINTD(6,"12223")PO(A,B+1)PRINTD(6,"7   8")PO(A,B+2)PRINTD(6,"7   8")PO(A,B+3)PRINTD(6,"45556")›RETURN›PROC PRZ1(BYTE X,Y)›PO(X+1,Y+1)PRINTD(6,"º»")PO(X+1,Y+2)PRINTD(6,"<=")›RETURN›PROC PRZ2(BYTE X,Y)›PO(X+1,Y+1)PRINTD(6,">?")PO(X+1,Y+2)PRINTD(6,"@A")›RETURN›PROC PRZ3(BYTE X,Y)›PO(X+1,Y+1)PRINTD(6,"  ")PO(X+1,Y+2)PRINTD(6,"BC")›RETURN›PROC PUD(BYTE A,B)›PO(A,B)PRINTD(6,")****+")PO(A,B+1)PRINTD(6,"/((((0")PO(A,B+2)PRINTD(6,"/((((0")PO(A,B+3)PRINTD(6,",----.")›RETURN›PROC PLO(BYTE A,B,MA,MB)›FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"'")OD OD›RETURN›PROC PLO1(BYTE A,B,MA,MB)›;PLOT + 5 ATRYB.›FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"§")OD OD›RETURN›PROC ZAM(BYTE A,B,MA,MB)›FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"9")OD OD›RETURN›PROC ZAM2(BYTE A,B,MA,MB)›FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"S")OD OD›RETURN›PROC ZAM21(BYTE A,B,MA,MB)›;SCHODKI + 5 ATR.›FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"Ó")OD OD›RETURN›PROC WLAZ(BYTE A,B)PO(A,B)PRINTD(6,"U  WY[\")PO(A,B+1)PRINTD(6,"V  XZZ]")›RETURN›PROC ZZN()›;FOR FA=0 TO 1024 DO FB=PEEK(224*256+FA)POKE(144*256+FA,FB)OD›;FOR FA=0 TO 16 DO FB=GA(FA)POKE(144*256+FA+24,FB)OD FOR FA=0 TO 16 DO FB=GB(FA) POKE(144*256+40+FA,FB)OD›;FOR FA=0 TO 16 DO FB=GC(FA)POKE(144*256+56+FA,FB)OD FOR FA=0 TO 16 DO FB=P2(FA) POKE(144*256+72+FA,FB)OD›;FOR FA=0 TO 16 DO FB=P4(FA)POKE(144*256+88+FA,FB)OD FOR FA=0 TO 16 DO FB=P6(FA) POKE(144*256+104+FA,FB)OD›;FOR FA=0 TO 16 DO FB=P8(FA)POKE(144*256+120+FA,FB)OD FOR FA=0 TO 16 DO FB=OK2(FA) POKE(144*256+136+FA,FB)OD›;FOR FA=0 TO 16 DO FB=OK4(FA)POKE(144*256+152+FA,FB)OD FOR FA=0 TO 16 DO FB=OK6(FA) POKE(144*256+168+FA,FB)OD›;FOR FA=0 TO 16 DO FB=OK8(FA)POKE(144*256+184+FA,FB)OD›;FOR FA=0 TO 7 DO POKE(144*256+200+FA,255)OD›;FOR FA=0 TO 16 DO FB=PR2(FA)POKE(144*256+208+FA,FB)OD›;FOR FA=0 TO 16 DO FB=PR4(FA)POKE(144*256+224+FA,FB)OD›;FOR FA=0 TO 16 DO FB=PR6(FA)POKE(144*256+240+FA,FB)OD›;FOR FA=0 TO 16 DO FB=PR8(FA)POKE(144*256+256+FA,FB)OD›;FOR FA=0 TO 16 DO FB=PR10(FA)POKE(144*256+272+FA,FB)OD›;FOR FA=0 TO 136 DO FB=LI(FA)POKE(144*256+288+FA,FB)OD›;FOR FA=0 TO 72 DO FB=KANAL(FA)POKE(144*256+424+FA,FB)OD›RETURN›PROC GR()›GRAPHICS(12+16)POKE(559,0)›RETURN›PROC PAU()›FOR XX=0 TO 85 DO ›IF PEEK(764)=28 THEN POKE(764,255)›;POKE(704,5)POKE(705,5)›;BREAK()›FI ›OD ›RETURN››PROC PAU_R()›;FOR XX=0 TO 85 DO ›FOR XX=0 TO 30 DO ›IF PEEK(764)=28 THEN POKE(764,255)›;POKE(704,5)POKE(705,5)›;BREAK()›FI ›IF STRIG(0)=0 THEN EXIT FI›IF PEEK(53279)=6 THEN EXIT FI›OD›RETURN››PROC CEL()›POKE(53248,C)POKE(53249,C+8)›FOR Q=0 TO 29 DO Q1=CEL1(Q)POKE(Z+1024+Q+D,Q1)Q2=CEL2(Q)POKE(Z+1280+Q+D,Q2)OD›RETURN›PROC POCZ()›D=120 FOR C=0 TO 120 DO ›[173 $D40B 201 110 208 249]›;PAU()PAU()›CEL()OD›RETURN›PROC PUR()›SNDRST()›WHILE STR>0 DO COLOR=32 PLOT(STR/4,22)STR==-1›PU1==+1›;PU1==+2 PU2==+1 ›RPU()Q=15 WHILE Q>0 DO ›PAU()›SOUND(0,25,10,Q)Q==-3 OD›OD›RETURN›PROC UIO()›POKE(559,0)COLOR=125 PLOT(0,0)ERT()›RETURN›PROC RYSP()›SNDRST()››IF PLA=1 THEN UIO()PLO(30,0,39,19)KRA(0,20,39)OKNO(29,9)MUREK(0,0,29,15)FOR X=0 TO 7 DO OKNO(MI1(X),MI2(X))OD ZAM(0,16,39,19)›ZAM(30,15,39,19)PUD(30,12)››POKE(708,$16)POKE(709,$18)POKE(710,$14)›FI›IF PLA=2 THEN UIO()MUREK1(0,0,39,20)FOR X=0 TO 11 DO OKNO(MI21(X),MI22(X))OD ZAM(13,5,27,5)› PLO(13,6,27,8)ZAM(13,9,27,9)› ZAM21(8,9,12,17)ZAM(8,0,32,0)› ZAM(7,4,7,17)ZAM(33,4,33,17)PLO(7,14,7,16)› PLO(33,14,33,16)ZAM21(28,9,32,17)› ZAM(13,5,13,17)ZAM(27,5,27,17)› PLO(13,14,13,16)PLO(27,14,27,16)› ZAM(0,18,39,21)ZAM(0,15,6,18)ZAM(34,15,39,18)››POKE(708,$06)POKE(709,$08)POKE(710,$F4)›FI›IF PLA=3 THEN UIO()TYU()PLO(0,0,4,14)›ZAM(0,15,39,20)›MUREK1(34,0,39,16)› ZAM(34,17,39,18)››OKNO(35,2)›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)››POKE(708,$06)POKE(709,$08)POKE(710,$04)›POKE(712,$90)›FI›IF PLA=4 THEN UIO()TYU()MUREK1(0,11,10,14)MUREK1(29,11,39,14)ZAM(0,14,39,20)PLO(12,5,28,15)KRA1(12,4,29)OKNO(14,6)›OKNO(22,6)››ZAM2(0,19,2,19)›PO(32,19)PRINTD(6,")****+")›PO(32,20)PRINTD(6,"/((((0")›KRA(38,13,39)››POKE(708,$06)POKE(709,$78)POKE(710,$C4)POKE(712,0)›FI›IF PLA=5 THEN UIO()TYU()MUREK1(0,0,39,19)›ZAM(2,18,39,20)PO(0,18)PRINTD(6,"  ")PO(0,19)PRINTD(6,"  ")›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))OD MUREK(0,0,0,16)OKNO(1,1)OKNO(1,5)››POKE(708,$06)POKE(709,$08)POKE(710,$F4)›FI›IF PLA=6 THEN UIO()TYU()ZAM(0,17,39,20)›WLAZ(5,18)WLAZ(29,18)›;PLO1(0,11,39,16)›MUREK1(0,11,39,16)››MUREK(0,0,39,10)FOR X=0 TO 6 DO›OKNO(MI61(X),MI62(X))OD PLO(2,5,16,8)PLO(25,5,39,8)›PLO1(0,11,39,11)›››POKE(708,$06)POKE(709,$78)POKE(710,$04)›FI›IF PLA=7 THEN UIO()TYU()MUREK(0,0,22,16)FOR X=0 TO 6 DO OKNO(MI71(X),MI72(X))OD ZAM(0,16,39,20)WLAZ(32,18)WLAZ(23,18)› ZAM(23,14,39,16)› PUD(28,13)PUD(34,13)PUD(34,9)› ZAM(23,0,23,16)››POKE(708,$16)POKE(709,$18)POKE(710,$14)› FI›POKE(559,62)›RETURN›PROC RST()›POKE(53250,C+4)POKE(706,ST1)›FOR Q=1 TO 15 DO Q1=GWI(Q) POKE(Z+1536+D+6+Q,Q1) OD›RETURN›PROC RST1()›POKE(53251,C+4)POKE(707,ST1)›FOR Q=1 TO 15 DO Q1=GWI(Q) POKE(Z+1792+D+6+Q,Q1) OD›RETURN›PROC STRZAL()›STR==-1›CC=C/4-10 DD=D/8-2›IF PR<5 AND PR>0 AND CC>A AND CC<A+3 AND DD>B+1 AND DD<B+3 THEN ›POKE(712,0)›IF PLA=3 THEN POKE(712,$90)FI›PR=7 PRZ2(A,B)ILP1==+1 SOUND(1,0,0,0)››PU1==+3;TO SA PUNKTY ZA ZAB. PRZEC››RPU()COLOR=32 PLOT(38,23)FI›IF PEEK(87)=12 AND EE>0 AND C-40>E AND C-40<E+8 AND D+15>F AND D+15<F+24 THEN FF=4 EE=2 E1=0 ›IF RE=0 THEN PU2==+2 RPU()FI IF RE=1 AND STR<150 THEN STR==+5 TYU()FI FI›IF PEEK(87)=12 THEN COLOR=32 PLOT(STR/4,22)FI›IF ST1=0 THEN ST1=15 RST() RETURN FI›IF ST2=0 THEN ST2=15 RST1() RETURN FI›››;IF ST2#0 THEN ST2=15 RST1() RETURN FI››;ZERO(Z+1792,255)››ZERO(Z+1535,$FF)ST1=15 RST()›RETURN››;TU ^ POPRAWIAM BO ZMIENILEM ST2 ABY R.T. NIE WARIOWAL››;ZERO(Z+1535,$FF)ST1=15 RST()›;RETURN›PROC QWE()›IF ZW=0 THEN ZW=1 RETURN FI›IF ZW=1 THEN ZW=2 RETURN FI›IF ZW=2 THEN ZW=0 RETURN FI›RETURN›PROC SA1()›POKE(53252,54+E)›POKE(53253,52+E)›POKE(53254,50+E)›POKE(53255,48+E)›RETURN›PROC SA2()›FOR W1=0 TO 25 DO Q=SAK(W1) POKE(Z+768+F+W1,Q)OD SA1()›RETURN›PROC SA3()›FOR W1=0 TO 21 DO Q=SAK1(W1) POKE(Z+768+F+W1,Q)OD SA1()›RETURN›PROC SAKIEWKA()›IF RE=0 THEN SA2()RETURN FI›IF RE=1 THEN SA3()RETURN FI›RETURN›PROC DUCH()›POKE(54279,136)POKE(53277,3)›POKE(704,$CF)›POKE(705,$CF)›Z=136*256 POKE(559,62)POKE(623,17)›RETURN›PROC WER()›P==+1›IF P>75 THEN P=0 FI›RETURN›PROC ZAB()›CC=C DD=D COLOR=32 PLOT(38,23)›ZERO(Z+1536,510)C=A*4+50 D=B*8+38 RST() SOUND(1,0,0,0)›FOR Q=0 TO 5 DO ST1=15 DO PAU()PAU()PAU()SOUND(0,ST1,8,ST1)POKE(706,ST1)ST1==-1›IF ST1=9 THEN EXIT FI OD OD WHILE ST1>0 DO FOR Q=0 TO 2 DO PAU()OD ST1==-1 SOUND(0,ST1,8,ST1)POKE(706,ST1)OD C=CC D=DD ›STR=45 ZYC=ZYC-1 RPU() ILP1=0 TYU()›RETURN››PROC AS()›GR()›POKE(53248,0)POKE(53249,0)›SNDRST()POKE(707,0)POKE(706,0)PLA=1 ››DUCH()POKE(756,144)ZERO(Z+768,1280)›;POKE(711,$0D)›POKE(711,$0B)›POKE(53248,0)POKE(53249,0)D=120›;CEL()› D=0› PR=5 GL=0 ST1=0 ST2=0 ZW=0 AA=0 STR=45 STT=1 ILP1=0 P=0 PU1=0 PU2=0 PU3=0 PU4=0›ZYC=2 PU5=0 E=0 F=0 EE=0 FF=1 E1=0 PU6=0 RE=0 OP=245›RYSP()›ERT()POKE(559,62)POCZ()›DO›[173 $D40B 201 110 208 249]›;PAU()›QWE()POKE(77,0)›SOUND(0,10,8,GL)›IF EE=0 THEN Q=RAND(0)IF Q=0 THEN EE=1 E=RAND(140)F=20 FF=1 RE=RAND(2)FI FI›IF EE=1 THEN F==+1 F==+1 SAKIEWKA()FI›IF EE=1 AND F>186 THEN ZERO(Z+768,$FF)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 PAU()FI›IF ZYC=255 THEN EXIT FI›IF STR<7 THEN SOUND(2,P,10,3)FI›IF STR=0 AND PR<5 THEN SOUND(2,0,0,0)PR=6 ZAB()FI›IF GL>0 THEN GL==-1 FI›IF ILP(PLA)+ILPX=ILP1 THEN ZERO(Z+1024,1020)PUR()››PLA=PLA+1 IF PLA=8 THEN PLA=1› IF ILPX<200 THEN ILPX==+5 FI› IF CZP<240 THEN CZP==+2 FI›FI››STR=45 RYSP()PR=5 POKE(559,62)ILP1=0 POCZ()ST1=0 ST2=0 GL=0 FI›IF STRIG(0)=1 THEN STT=1 OP==-5 FI›IF STR>0 AND STT=1 AND STRIG(0)=0 THEN STT=0 GL=15 STRZAL()FI››;ABY RUNTIME NIE WARIIOWAL:›;IF ST1=0 AND ST2=0 THEN ST2=15 FI››IF ZW=1 AND ST1>0 THEN ST1==-1 POKE(706,ST1) FI›IF ST1=0 THEN POKE(53250,0)ZERO(Z+1536,$FF)FI›IF ZW=1 AND ST2>0 THEN ST2==-1 POKE(707,ST2) FI›IF PR=5 THEN ››Q=RAND(0)›;IF Q<5 THEN RTY()PR=3 PRZ1(A,B)FI›IF Q<CZP THEN RTY()PR=3 PRZ1(A,B)FI››FI››IF PR>0 AND PR<4 AND P=1 THEN PR==-1 SOUND(1,PR+5,10,2)COLOR=68+PR PLOT(38,23)FI›IF PR=0 THEN POKE(712,0)› IF PLA=3 THEN POKE(712,$90)FI› ZAB()PR=6 FI WER()›IF PR=1 THEN POKE(712,3)FI›IF PR=6 AND P=1 THEN PR=11 FI›IF PR=7 AND P=1 THEN ;PRZ3(A,B)› PR=8 FI›IF PR>7 AND (P=1 OR P=37) THEN PR==+1› IF PR=10 THEN PRZ3(A,B)FI› FI›IF PR>=11 THEN PR=5 PO(A+1,B+1)PRINTD(6,"  ")PO(A+1,B+2)PRINTD(6,"  ")FI››;^^^››IF ST2=0 THEN POKE(53251,0)ZERO(Z+1792,$FF)FI›IF STICK(0)=11 AND C>48 THEN C==-1 CEL()FI›IF STICK(0)=7 AND C<193 THEN C==+1 CEL()FI›IF STICK(0)=14 AND D>30 THEN D==-2 CEL()FI›IF STICK(0)=13 AND D<185 THEN D==+2 CEL()FI›IF STICK(0)=10 AND C>48 AND D>30 THEN C==-1 D==-2 CEL()FI›IF STICK(0)=9 AND C>48 AND D<185 THEN C==-1 D==+2 CEL()FI›IF STICK(0)=5 AND C<193 AND D<185 THEN C==+1 D==+2 CEL()FI›IF STICK(0)=6 AND C<193 AND D>30 THEN C==+1 D==-2 CEL()FI›IF PEEK(764)=33 THEN SNDRST()› W2=0 W3=PEEK(710)› WHILE K=33 DO › [173 $D40B 201 15 208 249]› W2==+1› Q=W2› FOR W1=0 TO 154› DO›  G8=1 G9=Q›  Q==+1 › OD› G8=1 G9=W3› IF K<>33 THEN K=255 EXIT FI› OD›FI››OD›RETURN›PROC ASD()›IF FA=1 THEN C==+12 IF C>180 THEN FA=2 FI FI›IF FA=2 THEN C==-12 D==+14› IF D>190 THEN C=55 D=60 FA=3 ›  W3=1›  POKE(53250,0)POKE(53251,0)› ;PAU()› ;ZERO(Z+768,1280)›  ZERO(Z+768+768,512)›FI FI›IF FA=3 THEN POKE(706,0) › POKE(53248,0)POKE(53249,0)›FOR X=0 TO 155 DO PAU_R() OD FA=1 FI›RETURN›PROC REK()›CARD ADRQ›GRAPHICS(13+16)ZERO(53248,8)DUCH()ZZN()POKE(756,144)›POKE(711,$76)›POKE(708,$98)›POKE(709,$0A)›POKE(559,0)›PO(4,0)PRINTD(6,"#   #  $#  $#$   $#   #$  #   #")›PO(4,1)PRINTD(6,"#   # #  $ $  # #    $  # #   #")›PO(4,2)PRINTD(6,"#   # #  $ $#$   $#  $  # #   #")›PO(4,3)PRINTD(6,"# # # #$#$ $ $     $ $#$# # # #")›PO(4,4)PRINTD(6,"#$#$# #  $ $  #  $#  $  # #$#$#")›PO(10,6)PRINTD(6," ¤£  ¤ ¤£¤£¤ ¤   ¤")›PO(10,7)PRINTD(6,"£  ¤ ¤   ¤   ¤   ¤")›PO(10,8)PRINTD(6,"£    ¤   ¤   ¤£¤£¤")›PO(10,9)PRINTD(6,"£  ¤ ¤   ¤     ¤")›PO(10,10)PRINTD(6," ¤£  ¤   ¤     ¤")››;PO(2,11)PRINTD(6,"1989, 2010  code: tdc  msx: miker")›PO(3,11)PRINTD(6,"EMLMg FDED  codef tdc  msxf miker")››ADRQ=PEEKC(560)›POKE(ADRQ+16,112)› POKE(ADRQ+17,4)›;POKE(ADRQ+17,2)›POKE(ADRQ+18,65)›POKEC(ADRQ+19,ADRQ)››POKE(559,62)››ST1=0 ST2=0 ZW=0 C=55 D=60 FA=1›RETURN››PROC PRE1()›IF W3>0 THEN RETURN FI››COLOR=32 PLOT(0,0)DR(0,0)DR(0,0)›QWE()›SOUND(0,15,8,GL)›IF ZW=1 AND GL>0 THEN GL==-1 FI›IF ST1=0 THEN GL=15 ZERO(Z+1535,255)ASD()STRZAL()FI›IF ST2=0 THEN GL=15 ZERO(Z+1792,255)ASD() STRZAL()FI›IF ZW=1 AND ST1>0 THEN ST1==-1 POKE(706,ST1)FI›IF ZW=1 AND ST2>0 THEN ST2==-1 POKE(707,ST2)FI›RETURN››PROC PRE()›POKE(566,158);BREAK›;ADRREP=DOS("D:WCITY.REP")›;ADRMUS=DOS("D:WCITY.CMC")›› WG("D1:WCITY.FNT",$9000,$400,4,128)›››;ADRREP=DOS("D:SONG.REP")› WG("D1:SONG.REP",$69C8-6,$2024,4,128)›;ADRMUS=DOS("D:WCITY.CMC")› WG("D1:WCITY.CMC",$6000-6,$9C8,4,128)›››;BREAK()›› ADRREP=$69C8› ADRMUS=$6000››  COMM=ADRREP+3 TAKT=ADRREP+6 ABC=ADRMUS AND $FF BCD=ADRMUS RSH 8 COMM($70,ABC,BCD)››REK()››   ;WG("D1:WCITY.FNT",$9000,$400,8,128)›››W1=0 W2=0 W3=0››DO›ILPX=0 CZP=3››POKE(77,0)››IF W3=0 THEN› PRE1()› IF FA=3 THEN › C=0 D=0 ST1=0 ST2=0 ›;ZERO(Z+768,1280)› FI›ELSE ZERO(53248,8)›FI››;ZERO(53248,8)›;PAU()›IF STRIG(0)=0 THEN › IF W2>49 THEN SETV(0)COMM($40,0,0)FI› FA=0 AS()SNDRST()REK()› W1=0 W2=0› W3=0›FI›IF PEEK(53279)=6 THEN › IF W2>49 THEN SETV(0)COMM($40,0,0)FI› FA=0 AS()SNDRST()REK()› W1=0 W2=0› W3=0›FI››W1==+1›IF W1=250 THEN W2==+1 W1=0›› IF W2=28 AND W1=0 THEN ›      COMM(0,0,0)›  SETV(GRAJ)› FI›› IF W2>250 THEN W2=250 FI› FI››OD›RETURN››