PAPA DANCEn 0 X!\G - %>8W+#6++|;; *=\s#rv͎{ ::\ ( ((<2\6!"B\!"D\;;}|;; *=\s#r;;͎{ ::\(!((<2\6!"B\2D\}33scr PM{gｿ޿]wPST?p >9G|BBD???s??0000000000000000888888888888888800000000000000008888888888888888000000000000000088888888888888880000xxxxxxxx0000888888888888888800000000000000008888888888888888000yyyyyyyyyy0008888888888888888000y""""""""y0008888888888888888000y"&&""&&"y0008888888888888888000y"&&""&&"y0008888888888888888000y""""""""y0008888888888888888000yyyyyyyyyy000888888888888888800000000000000008888888888888888000000000000000088888888888888880000000000000000888888888888888800000000000000008888888888888888000000000000000088888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888gr ν E0;0;3,8;" ":"pd":1 5:0:6: g0,1;"Za chwil ukae si plansza z";1,0;"zestawem 24 znakw.Gra polega na";2,0;"takim uoeniu liter zestawu,aby";3,0;"utworzyy one (czytane poziomymi";4,0;"rzdami) 4-ro wyrazowy tekst ";5,0;"bdcy kluczem do odczytania";7,10 ;1;"HASA NR.3" 9 ,0;"Wyrazy tekstu naley oddzieli";10 ,0;"spacjami (biae pola w zestawie)";11 ,0;"Do przesuwania znakw zestawu";12 ,0;"suy puste miejsce,oznaczone na";13 ,0;"planszy kolorem czarnym.Na puste" 014,0;"miejsce mona przesun tylko";15,0;"jeden ze znakw,ktrych numery";16,0;"bd wywietlane przez komputer.";17,0;"Naley poda numer wybranego";18,0;"znaku i wtedy zamieni si on";19,0;"miejscami z pustym polem i.t.d" 41;21,6;"c.d. - nacinij ENTER" 'L=64830>:L13 710 :1;1;0,10 ;" U W A G A !";0;0;2,0;"1)-CAKOWITE uoenie waiwego";3,3;"tekstu zostanie potwierdzone";4,3;"wywietleniem ";1;"HASA NR.3" ʶ5,0;"2)-Trzeci wyraz tekstu";6,3;"zaczyna si na liter T";7,0;"3)-Czwarty wyraz tekstu";8,3;"skada si z 6 liter";9 ,0;"4)-Dobre umieszczenie 3 liter";10 ,3;"i jednej spacji zostanie";11 ,3;"potwierdzone podwietleniem";12 ,3;"znaku";13 ,0;"5)-Nacinicie CAPS/SHIFT+Q - to";14,3;"powrt do 1 czci programu" 15,0;"6)-Nacinicie CAPS/SHIFT+I - to";16,3;"wywietlenie instrukcji i";17,3;"powrt do dawnego stanu gry";1;19,5;" P O W O D Z E N I A !";21,9 ;"Nacinij ENTER" 'L=64830>:L13 718  Ҁp(5,5):n(4,2):z$(25):t$(25):h$(25):k(4):fl=0:p=6:a=4 8204:700  748 5:4::758 qfl=0:p=6:a=4:766:i=125:7;1;19,3+i;t$(i):i  780  t$h$730 `6:5::i=124:7;0;1;2,3+i;t$(i):i 1;5,0;" zespou PAPA DANCE zna tylko ";7,17;1;1;0;"";1;0;8,0;" jego ";1;"";0;a$;1;"";0;" ";9 ,17;1;1;"" 502:600X:605]:595S:502:i=120:j=055:11 ,14;j;"haso nr 3":30:j:i 5;0;13 ,3;"Nacinij:";15,0;"a) - powrt do 1 czci programu";16,0;"b) - skasowanie programu" 2L=64830>:L65AL66B742 L=65A5 }L=66B5:2:0::6;1;10 ,5;"D O W I D Z E N I A !":150:0 [754:i=125:j:h$(i)=(j):i:a$=(70F)+h$(10 )+h$(14) >756:i=125:j:z$(i)=(j):t$(i)=z$(i):i fd=0:i=15:j=15:d=d+1:p(i,j)=d:j:i:x=5:y=5: 85U,82R,79O,75K,73I,32 ,73I,32 ,84T,65A,74J,69E,77M,78N,73I,67C,69E,32 ,77M,85U,90Z,89Y,75K,73I,143 73I,67C,77M,32 ,84T,75K,65A,79O,73I,90Z,73I,75K,32 ,85U,77M,69E,78N,73I,82R,69E,32 ,85U,89Y,74J,143 41;7;1;1,7;"";17,7;"":i=822:1;7;1;1,i;"";17,i;"":i:1;7;1;1,23;"";17,23;"":i=216:1;7;1;i,7;"";i,23;"":i k=1:i=2143:j=04:65432,255:65440,255:6;2;i,8+3*j;"":65432,128:65440,1:6;2;i+1,8+3*j;"";0;+t$(k+j);2;+"":65439,255:65447,255:6;2;i+2,8+3*j;"":1;7;1;i+2,23:65439,128:65447,1:j:k=k+5:i n(1,1)=x:n(2,1)=x-1:n(3,1)=x:n(4,1)=x+1:n(1,2)=y-1:n(2,2)=y:n(3,2)=y+1:n(4,2)=y i=14  w=n(i,1):k=n(i,2) Bw<1w>5k<1k>5k(i)=0:778  3fl=0b$=(5*(w-1)+k):k(i)=b$ /p;a;3*w-1,3*k+6;b$  i:65440,1:  4p0=0:"Numer znaku = ";p$:p$=""780  p$="Q"5 p$="I"700:728 p$<2p$="0"+p$ Xp$>2p$(1)<"0"p$(1)>"9"p$(2)<"0"p$(2)>"9"780  (r=p$:b=0:r=0780  'i=14:r=k(i)p0=1 i:p0=0780  : u=(r-1)/5:u=u:v=r-5*u:u=u+1 M65440,255:fl=1:b$="":p=6:a=2:768  m=0:806& "6;0;m;3+3*(u-1),9 +3*(v-1);z$(p(u,v)):m;3+3*(x-1),9 +3*(y-1);z$(p(x,y)) $2i=125:20,3+i;" ":i: &pp(x,y)=p(u,v):p(u,v)=25:t=x:x=u:u=t:t=v:v=y:y=t:o=5*(x-1)+y:q=5*(u-1)+v (!q$=t$(q):t$(q)=t$(o):t$(o)=q$ *"q=2t$(q)="R"m=1: ,"q=8t$(q)=" "m=1: .#q=12 t$(q)="E"m=1: 0!q=21t$(q)="Z"m=1 2 4i=07:""+i,128:""+i,1:""+i,0:""+i,0:i:65504,255:65535,255: 6 826: 8?i=116:g$:j=07:d:g$+j,d:j:i: :L"A",0,60<,66B,66B,126~,66B,70F,4 ,2 >K"C",8,60<,74J,64@,64@,66B,60<,0 @J"D",0,8,28,32 ,32 ,32 ,28,0 BN"E",0,126~,64@,124|,64@,64@,126~,4 DK"F",0,0,568,68D,120x,64@,60<,4 FL"L",0,64@,80P,96`,64@,64@,126~,0 HK"M",0,16,24,16,480,16,12 ,0 JK"N",8,74J,98b,82R,74J,70F,66B,0 LL"Q",0,16,120x,68D,68D,68D,68D,0 NL "O",8,60<,74J,66B,66B,66B,60<,0 PK"P",0,16,568,68D,68D,68D,568,0 RJ"S",8,60<,64@,60<,2,66B,60<,0 TK"T",0,16,568,64@,568,4,120x,0 VL"G",16,126~,4,8,16,32 ,126~,0 XL"H",0,16,124|,8,16,32 ,124|,0  -ICM TKAOIZIK UMENIRE UYJUROKI I TAJEMNICE MUZYKIUROKI I TAJEMNICE MUZYKIpal dxykwP24rbuvBmtoqQAFAN%pd ??? 0 2:2:0::7;1;10 ,5;"JESZCZE PAR SEKUND!":65128h:65200:64854V:8226 236099\,30:5:6:0::650:1;1,6;" P A P A D A N C E ";0;4,0;"Wita Wszystkich szczliwych";5,0;"posiadaczy niniejszego programu";6,0;"i zaprasza do pierwszej czci";7,0;"wsplnej zabawy z komputerem.";1;10 ,10 ;" ";11 ,10 ;" U W A G A ";12 ,10 ;" ";0;15,0;"Prosimy ";1;" uwanie ";0;" przeczyta";16,0;"instrukcj doczon do pyty";17,0;"a nastpnie ";1;" nacisn ENTER ";20,5;" P O W O D Z E N I A !":655:640:d$="PAPA DANCE":e$=" teledysku":f$="W 40 DNI DOOKOA WIATA":g$="Kiedy odbya si":h$="Ktre miejsce w":i$="KAMIKADZE,WR":j$="i jak piewa piosenk?":k$="zaj zesp ":nr=0:p=0:q=0:r=0:z=1:430:16,12 ;"Jaka bya pierwsza";17,0;"nazwa zespou ";1;d$;"?" 0"NAZWA = ";o$:435:L=84T10 x$="PAPA DOCK":620l:430:16,12 ;"Z jakim pasmem gr";17,0;"kojarzy Ci si zesp ";1;d$ /"GRY = ";o$:435:L=84T20 x$="TATRY":c$=x$5655 c620l:430:16,12 ;g$;17,12 ;"premiera";e$;18,7;f$ #2"MIESIC = ";o$:435:L=84T35# (."ROK = ";o$:435:L=84T40( -x$="101984":620l:430:16,12 ;h$;17,0;"plebiscycie publicznoi OPOLE85";18,0;"zaj zesp ";1;d$;0;19,0;j$ 22"MIEJSCE = ";o$:435:L=84T502 70"TYTU = ";o$:435:L=84T557 <(x$="2KAMIKADZE WR":c$=x$575? A620l:430:16,12 ;"Kto nagra z";17,0;"zespoem ";1;d$;0;" swj przebj";18,0;"sprzed 20 lat?" F/"IMI = ";o$:435:L=84T70F K3"NAZWISKO = ";o$:435:L=84T75K Px$="KATARZYNASOBCZYK":620l:430:16,12 ;"Co jest cisze?!";17,10 ;"A - pena lodwka";18,10 ;"B - PAWE po obiedzie" U"WYBIERZ A lub B ";o$ Zo$"A"o$"B"85U \!435:L=84T85U _535:540:666:1;20,0;"Masz racj":o$="A"20,10 ;" - ale tylko wtedy,gdy";21,0;"niema u PAWA reszty zespou!":105i dT20,10 ;" - ale nie myl,";21,0;"e PAWE jest arokiem!" i10 :635{:430:16,12 ;"Gdzie i kiedy";17,0;"odby si ostatni wystp zespou";18,0;1;d$;0;" w starym skadzie?" n3"MIESIC = ";o$:435:L=84T110n s/"ROK = ";o$:435:L=84T115s x7"MIEJSCOWO = ";o$:435:L=84T120x }x$="121985KATOWICE":620l:430:16,12 ;"Kiedy zawiza si";17,0;"nowy skad zespou ";1;d$;"?" 1"DZIE = ";o$:435:L=84T130 3"MIESIC = ";o$:435:L=84T135 /"ROK = ";o$:435:L=84T140 x$="111986":620l:430:16,12 ;"W ilu teledyskach";17,0;"wystpi na ekranie TVP zesp";18,0;1;d$;0;" do dnia 1986.08.31?" 2"LICZBA = ";o$:435:L=84T150 x$="5":620l:430:16,13 ;"W jakim mieie RFN";17,0;1;d$;0;" nagra obcojzyczn";18,0;"wersj piosenki ";i$ 2"MIASTO = ";o$:435:L=84T160 x$="HAMBURG":620l:430:16,13 ;"Ktr najwysz";17,0;"pozycj na licie przebojw";18,0;"progr. 3-go PR zaja piosenka";19,12 ;"POCZTWKA Z WAKACJI" 2"LICZBA = ";o$:435:L=84T170 x$="6":620l:430:16,13 ;h$;17,0;"konkursie ZOTA 10-tka OPOLE 86";18,0;"zaj zesp ";1;d$;0;19,0;j$ 2"MIEJSCE =";o$:435:L=84T180 "TYTU = ";o$ "435:L=84T185 æx$="3NAJ STORY":620l:430:16,13 ;"Ilu muzykw zespou";17,0;1;d$;0;" wystpuje w teledysku";18,9 ;f$ 2"LICZBA = ";o$:435:L=84T200 x$="3":620l:u$="kakao":n$="czekolada":t$="ros":r$="bita mietana z truskawkami":430:16,13 ;"Przysmaki PAWA to:";17,0;"1-";u$;" 2-";t$;" 3-";n$;18,0;"4-";r$;19,16;"(wybierz dwa)" R"PIERWSZY (cyfra) = ";o$:o=0:485:435:L=84T210 ?"DRUGI (cyfra) = ";o$:o$"1"o$"2"o$"3"o$"4"215 6485:435:L=84To=o-o$:215 .o=102f666:635{:235 625q p430:16,13 ;"Jak ma na imi";17,0;"brzydka krlewna z";e$;18,14;i$ 0"IMI = ";o$:435:L=84T240 x$="MARRY":620l:430:16,13 ;"Przez ile tygodni";17,13 ;"piosenka NAJ STORY";18,0;"znajdowaa si na 1-szym miejscu";19,0;"listy przebojw progr.3-go PR?" 2"LICZBA = ";o$:435:L=84T250 Ex$="2":620l:64800 :p=16v=260:455 434:16,12 ;"Z jakim zagranicznym";17,0;"wokalist wsppracuje i nagrywa";18,15;"zesp ";1;d$  0"IMI = ";o$:435:L=84T265  4"NAZWISKO = ";o$:435:L=84T270 Zx$="JESSYCOOLE":615g:64800 :p+q=16r=0v=280:455 434:16,13 ;"Jak si nazywa";17,0;"jedyny instrumentalny utwr";18,0;1;d$;0;" wydany przez firm";19,22;"Polmark" 1"NAZWA = ";o$:435:L=84T285 "Px$=d$:615g:64800 :p+q=16r=0v=295':455 '434:16,13 ;"""Drogie MYSZY""";17,13 ;"""Gdzie jest OLA""";18,13 ;"""Kasa .... .....""";19,13 ;"""Maa ....""" ,:"WPISZ .... .....?";o$:435:L=84T300, 19"WPISZ .... ? ";o$:435:L=84T3051 6^x$="JEST CHUDAKAWA":615g:64800 :p+q=16r=0v=315;:455 ;a 434:16,13 ;"Kiedy odbya si";17,0;"premiera ";e$;" NAJ STORY" @3"MIESIC = ";o$:435:L=84T320@ E/"ROK = ";o$:435:L=84T325E JUx$="31986":615g:64800 :p+q=16r=0v=335O:455 O5:434:16,13 ;"Z jakiej piosenki";17,0;d$;0;" pochodzi ten fragment":20,8;"Przycinij ENTER":655:j=5 TIi=031:20,i;" ":i:585I:j=0360h Yh21,0;"Zagra jeszcze raz? T=tak,N=nie":L=64830>:L84TL78N345Y ^L=78N360h c 340T h/"TYTU=";o$:435:L=84T360h mPx$="HISTORYJKA Z TALII KART":615g:64800 :p+q=21480 r#p+q=16r=0455 w:505:v$="dalej":nr=161;11 ,1;"MASZ SZANS ZOSTA ";1;"SUPERFANEM!";0:405 |^nr=21v=5:v$="jeszcze raz":1;1;6,10 ;"KONIEC PYTA" &p+q=1p$="PUNKT":400 =p+q=2p+q=3p+q=4p$="PUNKTY":400 p$="PUNKTW" 1;8,7;"ZDOBYE ";1;p+q;0;" ";p$:1;10 ,0;"TO ZA MAO,ABY POZNA HASO NR ";z 13 ,3;"Nacinij :";15,5;"a - aby gra ";v$;16,5;"b - koniec zabawy":p+q>1517,5;"c - druga cz programu" L=64830>:L=66B:2:4:1;7;10 ,4;"D O W I D Z E N I A !":150:0 L=65A640:v L=67C722  405 nr=064001,229:64006,4:64024,250:64032 ,26:64043+,4:64100d,108l:64101e,250:64102f,108l:64103g,250:64990:i=116:64000:i:64800 64800 5:6::64990:i=12 14:i,4;" ":i:i=1621:i,0;" ":i:u=0:o$="":c$="":nr=nr+1:1;16,0;"PYTANIE ";nr;0;" - ": p1;20,u;" ";o$;" ";0;21,0;"Zmieniasz odpowied? T=tak,N=nie":u=u+o$+2 2L=64830>:L84TL78N440 ni=031:21,i;" ":i:L=84Tu=u-o$-2:i=uu+o$+2:20,i;" ":i:  c$=c$+o$: r=1:y=1:z=2:m=12:n=15:65051,5*n:65060$,120x+30*m:65033 :n:m::1;10 ,6;"ZDOBYE ";1;p+q;0;" PUNKTW":2/8,-5:5/8,2:1/8,0:2/8,-1:4/8,-5:1/8,-5:1/8,-5:3/8,2:3/8,4:9 /8,2:1/8,2:2/8,-5:2/8,-3:4/8,-1:3/8,-5:5/8,-3:4/8,7:2/8,4:1/8,4:4/8,2:3/8,4:4/8,-20 ̼610b:655:640:1;0,10 ;"HASO NR ";1;y:j=014:475:i=07:a=(8*):x:""+a,x:i:y=2470 ѿa;1;3,4;" ";4,4;" ";5,4;" ";6,4;" ";7,4;" ";8,4;" ";9 ,4;" ";10 ,4;" ";11 ,4;" ":j:0:610b:655:375w ֲa;1;3,3;" ";4,3;" ";5,3;" ";6,3;" ";7,3;" ";8,3;" ";9 ,3;" ";10 ,3;" ";11 ,3;" ":j:0: M240,15,204,513,170,85U,195,60< 8:1;1;6,9 ;"* WSPANIALE *";0;8,6;"ZDOBYE 21 PUNKTW";10 ,2;"Jeste ";1;"SUPERFANEM";0;" PAPA DANCE":65040,100d:i=10 50210 :65051,502+i:65060$,491+i:65033 :i:i=10 502:65051,100d-i:65060$,99c-i:65033 :i=10 110n20:65051,30+i:65060$,29+i:65033 :i:600X:605]:595S:y=2:460:v$="jeszcze raz":v=5:405 %o$=491o$=u$:o=o+491: %o$=502o$=t$:o=o+502: %o$=513o$=n$:o=o+513: $o$="bita mietana":o=o+524: <p+q<15530:555+:5600:540: Hp+q=16nr=16525 :535:545!:550&: #525 :545!:645: 2;7;1;12 ,5;" ";13 ,5;" LE! ";14,5;" ":i=1172:i/250,11 -i:i/250,11 -i:i:.1}L,-18:.1}L,-6:.1}L,-18:  di=14:.01z# =,1:.01z# =,3:.01z# =,8:.01z# =,3:i: /i=19 :i/200,i-1:i: 0i=117:i/250,i-1:i: 6i=15:2*i/250,-8:i: !/i=18:i/60<,20-i:i: &<65040,20:i=16:65033 :i: +Ui=110 :.01z# =,-15:.01z# =,-3:.01z# =,9 :i: 0Gi=130:.001wn,30-i:.001wn,30+i:i: 5Ri=12:570::j=132 :h:.1}L,h:1:j:i: : 5,9 ,2,5,10 ,2,5,10 ,12 ,4,7,12 ,5,9 ,0,5,7,2,9 ,2,10 ,2,5,10 ,12 ,4,7,12 ,4,0,5,7 ?4580D:i=118:h:.15~,h:i: D-6,-18,-18,-8,-3,-3,-4,-8,-6,-22,-22,9 ,14,13 ,11 ,9 ,11 ,13 I@590N:i=116:h:.3,h:i:j=j-1: N4,-8,-1,4,4,-8,2,4,0,-3,4,7,6,2,9 ,2 Sh=2/10 :h,6:h,11 :h,-25:h,6:h,11 :h,-13 :h,-25:h,2:h,4:h,-29:h,6:h,2:h,-29: Xh=.2~L:h,2:h,-22:h,1:h,-3:h,2:h,-22:h,1:h,-13 :h,-1:h,1:h,-3:h,-27:h,-15:h,-27:h,-27:h,-26:h,2:h,-25:h,1:h,-3:h,2:h,-25:h,1:h,-3:h,-1:h,-3:h,-3:h,-29:h,-17:h,-29:h,-27:h,-15: ]{h,2:h,-22:h,1:h,-3:h,2:h,-22:h,1:h,-3:h,-1:h,1:h,-3:h,-27:h,-15:h,-27:h,-27:h,-26:h,2:h,-25:h,1:h,-3:h,4:h,-25:h,2:h,1:h,2:h,4:h,1:h,2:h,-1:h,-29:2*h,-27: b&13 ,9 ;"Nacinij ENTER": gc$=x$665:635{ lc$=x$666:635{ q 520 vqi=132 :65103O:.001wn,20:.001wn,32 :.001wn,32 -i:i:645 {j=13:65070.,6:65040,5:i=16:65084<,7-i:65093E,2*i:i:65033 :65064(:i:j:525 :530:595S:630v ii=021:3190v :.001wn,i+15:.001wn,i+19:.001wn,i+22:i j65040,40(:65051,255:65060$,238:i=14:65033 :i: ^i=120:0.01z# =,-15+i:0.01z# =,-3+i:0.01z# =,9 -i:i: 'L=64830>:L13 655  q=q+1:667  p=p+1 1;7;1;12 ,4;" ";13 ,4;" DOBRZE ";14,4;" ":64001,233:64006,2:64024,254:64032 ,30:64043+,2 p+q=10 p+q=2064001,229:64006,4:64024,250:64032 ,26:64043+,4:64102f,108l:64103g,250 Di=116:64000:.01z# =,20:2:i: l