@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:CP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu B}ōP   i ̀i΀i]πiЀ*}i3рiҀʢ ӠG & #̀΀π Ѐ l } DOS 2.5 Command Proces+}sor 3.08 (c) CHAOS software. Winter 1989. J `lXhh8hh  ,} &Xآ   90ɛ @ miݦʈ0Θ0 ҁLlɛ."-}ք  Sǩ LTU`L&lɛ ɛ+0: AG80. .}l *M?Iɛ,ɛ*ɛ 𮅄  L  RL/}ʆlLt   L!RLV䮁L !ɛ  RZ V0= XH0}YR V0 B V0L V8S 샠(   }~ L& ɛ` {1}|L&DE`m.`H) hJJJJ 0:i` 働H BILVB 僩&H V0%H2}:ɛɛ`ۄ˄rŃ-ւDIRRENERACARMEMRUNBOFLo=.... Hi=....BRK at ....3}MOC.Error ...D1:FILENAME.EXT *.*D1:#߅`#ϩҩӭԭ8ԅХՅѠ8fϥ#酐`$ph0'҅Α Ӆ @4}`) ѐF) ?҈遐#҈酰Цѐ$0ֆ8֑ Ӆב ӅLRґ ӅLR`҅Α Ӆ @k __ ?~~~Lb0 ~D ?~~>``vl>>},088|||n6||6}}}4 3}|80;~}}8}~};"`~~2Fxxxx0P7}]%Bc}~q8|80PBc}~q |G:$- \    ?P@@@8}@E@=@y?@HA`B'gPDS"!sD@@A`BH?tS)%()+-*=>3333f9}ffg@ $ȥ`ȥ` `ȥ`ȥ` dȥ` ,:}ȥ`ȱ`  ȱ` ȱ`ȱ`ȱ7`ȱ` `;} ` `` ` 1 1`!````````<}``````77````77```77`=}```77`77`1`1` 1 1`1`1`1`ƌƋ`i>}Ϳ77;7``  S 0͛7͚7`͛7͚7`ͼ7Ϳ7ͽ7`;7` 1`)߱ ?} h1Х-` Ƅ  ` `` 1 11`77`77`77`77`` ( @}  ( L&($ $* eӨ`($ $* A} eӨ`ԥHH豉H hhh` L٢g`B}7`7`I` " ?> Lu`L` uÄ`C}L ń`` pdLS莼7A 77/757`ɀ757@7O7`K: D}mTO` шOUT OF SPAC шYOU DON'T SAY WHAT TO DO WITH шTOO MUCH INSIDE ()' шNOT ENOUGH INPUTS TO шUNEXPECTED ') шI E}DON'T KNOW HOW TO шDIDN'T OUTPUT TO шNUMBER TOO BI D шDOESN'T LIKE AS INPU f шHAS NO VALU шIS A PRIMITIF}V шIS ALREADY DEFINE шIS NOT TRUE OR FALS шFILE NOT FOUN шI CAN'T OPEN шYOU'RE AT TOPLEVE`77G} шSTOPPED ֆ hh  m IN $ י7 pӹ)7 ' y hL L7 7 7-7|7 iȮ7H}iȪH97h hI977 777777 ܍ ʍ1 5 I75Le` 7 I}78ǥȐ!Ǥˆ˄ǦȤ̆̄Ȯ777 7L 77ȍ7J7Ǎ7j7)7) 7Ψ7Χ77΋7ϋ77΋7ϋJ}7 ֋ 7 7`Φ7Υ7 87ˍ77̍7 7eǍ77eȍ7L@l7l774ϤӾ)I1БϤ9Б`9K}QБ`ɭ7L֋0ϥХ 7hh`ɩ 3(eЅА`ʭ7L֋FF.ѥɠ7hhL}`Ʌ %8(а`ͭ7L֋8(аѥ#7hh`_ͩ AiХi`έ7L֋i(Аѥ` 7M}hh`ͅ O8Х`K;7ɠ1`+7JJ(e͐Њm7ѩ%ɪ`7`0 88N}``/ zhh 7 00 I  󢅋 󢅌ȱH h L^071:/` ApO} Ap Ap7_ Ap7J @878; 8ԩ .p B VpBIDEJKLV7P}i7 N F@8< Ŋ` ` l  ȱȱ ȱ 檠Q}ȥ`hh HHL؍ э H =hȵȵ ȵ `HHȱR}L e9L e#1(18`` ` ` t O$ ؍  ה I  f p` p` ;`S} UL t `` ` ` ` ` L L `1` t 7 !. %#!$ L#` IT} x`  t L 2 IL ܍HH І љ yƸhhLt U |O` t  I  `` yU},` L LЏ L $` y yLL s )B` LЏ ُL pL pL $H V}hԐЧԨ`H =h` ȱIƪƩ`7ʴ /7ʼ7 W} / W ɐθ7`ʊH h` 70 L) W` ` 炠 *0U*0(X}ȱ 0 @  f 'L)"ȱ 0 f 'L )@ X 'L]) Q 'L3Y}8ǝO`8O`767 )  (77-7 7 Z ݻ δ7hhh@Z}ӹi<` ӹ)}v ii<`i-ҙФӾ0= 8Lti `[}Ii `I 6`)7L꒭ ͹7770) L꒍7 77777\})7`M77ɭ `) y `)"": " `) }LݙL)&1F#$!  V LVL͚LLk}1# ȘH zhȱ z L 7 kH\ hL J0 L) L[ ܍ o t] L ܍ o l} t ߚL ؠH0 h) h`lc-an膊/ x)X  8    Sm}0  S ש4777 ɐ  } 댩K 놩E 놩S 놩 \B \䩛p ֆ m(C) 1983 LCSI ALL n}RIGHTS RESERVED mWELCOME TO ATARI LOGO.7777II 71 111 1 IL 0o} ؍ t ქ p ăL jLV $L7) )H h  L$ ܍LB `! h ʍ `p} OФ_1LAVRN A 07 IΎ7 R `  e x ăLkLŇ  q}jƍLA Jɭ`M" sL  l L ~$  ӝ 0 l p e h Lk ӝ ҂ r} ܍ IL $ ܍ ܍ ,ȩ1 k $ ȩ1 L9 B w (ȱ E , Q k tL  x  s}7 ҂L:ыȱы B w t  ҂L= LDL E7@ ] ٞ70ȱA1<1 ٞ ٞt} `` ٞ` f {L ͍)% 0 ؍ j x ܍Lb p l ăL ܍ I7 lL#1(1u} ܍ eE `; O y ܍(, )щ ʍ LA72 џLb1717 77v} e7)L џL݇7 17 1` x"ȱ ȱ 1 L` Ѝ Ԉ77` â L !w}` ܆ 0 âL Lu   LQLu  LuL âL L   Lr L L} x}m pɛ 橛p 8嶅Ʋ  Lr ` % â  Ƹ L y}   L   ` â L â LF ע%  L  Ƹz}* ע% â Ƹ L  Ƹ LࢥL7` ܆润pɛ  LuƬ{}`欥 `櫥`ƫ` I` [[`Z` â ﭖ77`77`|}`Ʈƭ`ƲƱ`ɛ`ůŰ```` `` `L`Ųű`…}} R  L*`  ݘ& s_ JL@…L8峥崰 F ע ݘ 85ɛ ƘL~}& R R ݘ -  877 Lo' s J ݘ I`Ⱦ  L` `H}H`7 d rLn7 cL+ q 0 ILP IL  ܆7  u`¥ ΢n77 }= ֆ $¥  r7ɛ7 cL  Q R ֆɛpɛ ȪH &h꩛L& 6` F Q} rLn Q7 V L F Ϣ ZϑF J Ƹ I ߂ 7 ֆ .`iE8} i`aaanaNEa ܍LbURTaL*SLAFaL4aLaL.OTSn7 $ LLOnLUPTUOn7L}Pn Pn әL Pn Pn - `La pLWODNEPnLUNEPnL0IDEnL}En ` Ƅ  }j  t11L 11 ߂ 0 h L yL ܍ . tL  h ` V ܍ . tL7 9 L}̽ L % י yLy ΢777i7 . ܆؅;(F`NDEn `  L SDEn 0 .7} F  H Z [h J ƸLTnL L ` VL7  { w1 LI} ; x Q t  Ƅ OЬ f { E $ " ؍  X x ܍ ؍ 0/ t}ȱ1 `  p 'Lg p % י m DEFINED p % 1 tLYEKaL4L*URa Ŏ eLLOJa x} DکLԩ LYOJa L*L4LDDAPa 8pLELDDAPa |L*IAWn ԍ Ս!  !`KAM}n t  &L1SRIFTUBaLBa ˎ 5 I L< L ܍ $ x t(Ia} ߂ Ƅ j t  ؍ Վ . p oL p fLL_PYTc t יLNIRPcLϪPc t י l ͍ Ƅ }LOHSa t} љ yLROWc & ; & I % OLUPFa Վ t   fL``vl> }>},088|||n6||}}4 3}|80;~}}8}~};"`~~2Fxxxx }0P]%Bc}~q8|80PBc}~q |G:$- \ }    ?P@@@@E@=@y?@HA`B'gPDS"!sD@@A`BH?tS)%()+-*=>3333fffg@ $ȥ`ȥ` `ȥ` }ȥ` dȥ` ,ȥ`ȱ`  ȱ` ȱ`ȱ`ȱ }7`ȱ` ` ` `` ` 1 1`!````` }`````````77````77 }```77````77`77`1`1` 1 1`1`1 }`1`ƌƋ`iͿ77;7``  S 0͛7͚7`͛7͚7`ͼ7Ϳ7ͽ7`;7` }1`)߱  h1Х-` Ƅ  ` `` 1 11`77`77`7 }7`77`` ( ܍  ( L&($ $* eӨ` }($ $* eӨ`ԥHH豉H hhh` L٢ }g`7`7`I` " ?> Lu`L }` uÄ`L ń`` pdLT莼7A 77/75 }7`ɀ757@7O7`K: mOTO` шBRAK MIEJSC шNIE POWIEDZIALES CO ZROBIC Z шZA DUZO W NAWIASAC шZA MALO DANY }CH DLA шZBEDNY ') шNIE WIEM JAK ZROBIC шNIE MA DANEJ DLA шZA DUZA LICZB D шNIE CHCE JAKO DANE f шNIE }MA WARTOSC шJEST PIERWOTN шJEST JUZ OKRESLON шTO NIE PRAWDA, ANI FALS шNIE MA PLIKU шNIE MOGE OTWORZYC шNAJW }YZSZY POZIO`77 шPRZERWANE ֆ hh  m W $ י7 pӹ)7  y hL }L7 7 7-7|7 iȮ7iȪH97h hI977 777777 ܍ ʍ1 5 I }75Le` 7 78ǥȐ!Ǥˆ˄ǦȤ̆̄Ȯ777 7L 77ȍ7J7Ǎ7j7)7) 7Ψ7 }Χ77΋7ϋ77΋7ϋ7 ֋ 7 7`Φ7Υ7 87ˍ77̍7 7eǍ77eȍ7L@l7l774ϤӾ) }I1БϤ9Б`9QБ`ɭ7L֋0ϥХ 7hh`ɩ )(eЅА`ʭ7L }֋FF.ѥɠ7hh`Ʌ 8(а`ͭ7L֋8(аѥ#7hh`_ͩ 7iХi` }έ7L֋i(Аѥ` 7hh`ͅ O8Х`K;7ɠ1`+7JJ(e͐Њm7ѩ%ɪ }`7`0 88``/ zhh 7 00 I  󢅋 󢅌ȱH }h L^071:/` Ap Ap Ap7_ Ap7J @878; 8ԩ .p B Vp }BIDEJKLV7i7 @ F@8< Ŋ` ` l   }ȱȱ ȱ 檠ȥ`hh HHL؍ э H =hȵȵ ȵ } `HHȱL e9L e#1(18`` ` ` t O$ ؍  ה } I  f p` p` ;` UL t `` ` ` ` ` LL `1` t 7 !. }%#!$ L#` I x`  t L 2 IL ܍HH І љ yƸhhLt U |O` } t  I  `` y,` L LЏ L $` y yLL s )B` LЏ ُL pL pL } $H hԐЧԨ`H =h` ȱIƪƩ`7 }ʴ /7ʼ7  / W ɐθ7`ʊH h` 70 L) W }` ` 炠 *0U*0(ȱ 0 @  f 'L)"ȱ 0 f 'L )@ } X 'L]) Q 'L38ǝO`8O`767 ) (7 }7-7 7 Z ػ δ7hhh@ӹi<` ӹ)}v ii<`i-ҙФӾ0=  }8Lti `Ii `I 6`)7L꒭ ͹7770) L꒍7 }77777)7`M77ɭ `) y `)"": " `) }LݙL)&1F#$ }!  V LVL͚LL1# ȘH zhȱ z L 7 kH\ hL J0 L) L[ } ܍ o t] L ܍ o t ߚL ؠH0 h) h`lb-an膊/ x)X  8 }    S0  S ש4777 ɐ  u 댩K 놩E 놩S 놩 \B }\䩛p ֆ m mWITAJ W ATARI LOGO. 7777II Կ 7 }1 111 1 IL 0 ؍ t ქ p ăL jLV $L7) )H h  L } ܍LB `! h ʍ ` OФ_1LAVRN A 07 IΎ7 R ` }  e x ăLkL  jƍLA Jɭ`M" sL  l L ~$  ӝ 0 l } p e h Lk ӝ ҂ ܍ IL $ ܍ ܍ ,ȩ1 k $ ȩ1 L9 B w (ȱ }E , Q k tL  x  7 ҂L:ыȱы B w t  ҂L= LDL E7@ ] ٞ70 }ȱA1<1 ٞ ٞ `` ٞ` f {L ͍)% 0 ؍ j x ܍Lc p l ăL ܍ }I7 lL#1(1 ܍ eE `; O y ܍(, )щ ʍ LA72 } џLc1717 77 e7)L џLև7 17 1` x"ȱ ȱ 1 L` Ѝ }Ԉ77` â L !` ܆ 0 âL Lu   LQLu  LuL âL L  }  Lr L L} m pɛ 橛p 8嶅Ʋ  Lr ` % â }  Ƹ L   L   ` â L â LF } ע%  L  Ƹ* ע% â Ƹ L  Ƹ LࢥL7 }` ܆润pɛ  LuƬ`欥 `櫥`ƫ` I` [[`Z` â } ﭖ77`77``Ʈƭ`ƲƱ`ɛ`ůŰ```` `` ` }L`Ųű`… R  L*`  ݘ& s_ JL@…L8峥崰 F ע } ݘ 85ɛ ƘL& R R ݘ -  877 Lo' s J ݘ I` }Ⱦ  L` `HH`7 d rLn7 cL+ q 0 ILP >L  ܆7  u }`¥ ΢n77 = ֆ $¥  r7ɛ7 cL  Q R ֆɛpɛ ȪH }&h꩛L& 6` F Q rLn Q7 V L F Ϣ ZϑF J Ƹ > }߂ 7 ֆ .`iE8 i`aaanaUJa ܍LcDWARPaL*SLAFaL*aLaL$OTSn7 $ } LLWnL INYWn7LWDOn POn әLOPn EICSn ޭ- `La pLERn  }` Ƅ  j  t11L 11 ߂ 0 h צL ̦ yL ܍ . tL  h ` V ܍ . tL }1 / L½ L % י yLy ΢777i7 . ܆؅;(F`WDERn `  L WDERn % . }7 F  H Z [h J ƸLTOnL L ` VL1  { w }1 LC ; x Q t  Ƅ OЬ f { E $ " ؍  X x ܍ ؍ 0/ }tȱ1 `  p 'LT p % י m OKRESLONA p % 1 tLჿZSIWALKaL4L*ORZa Ŏ } eLLDa x DکLԩ LDPa L*L4OIWa 8pLOIWPa |LAKEZCn ԍ Ս! }  !`YZRPn t  &L1REIPZEBaLBa ˎ 5 I L< L p "}#`NKOn L;ELKSn 7H h LkZOPn ُ A | ۅLZOPn ُ ' x ׅLORWn D A D ' #}  LOPn LL ʏ A U ʏL'Gn 7 o777%^7`En $} }7 ΌLܳTn7 o77`Zn 677``ASIPn p $ %}Ԑ ԹәLLUKASIPa Ⲥӹ)8LKn H h7`PKa 7JLOLOKn p $Ԑ &}әҙLLROLOKa DڤӹLSn өL Pn өLOZWn p $ IәLLROZWa Ⲥ '}ӹ0ILWJADa % 6ԩՊHH   hhL^WZEWn H ٞ s $ oLhै % (} 'H ٞ $hԙ6ȥ` L `CADIWa ⲤӹLAKn ُLPnLdWARPn ߏ t fLLnLWELn ߏ t )} ` tL7`^򞔔 #7 ) * ӅH h D  L1ӹ `ӹ) *}`ҹӨ`9r=H hU L (XLTn 77)7I7L@`ICSJEWa LH +}he`JZILOKa WLJCROPORP.n ӅL>XZOPa LYZOPa LTAKa tLOLTaJLWnL ,}CETSWn ߏIL,NnL&OZRPANn ߏ L ` LCn LAMZn LOSRUKn  ܍ H { f { ܍ -} h`LZOPa   ,  f ܍ x gL?PPa Ⲥӹ yiF1L}T :N]OP ENTY :P - 1 BF :NENDTO POM :P :DEC :HEXIF :P < 1 [OP :HEX]OP POM :P / 16 REMAINDER :DEC :P WORD :HEX ENTY 1 + IA}E*+)F` Lp o̭ }op@}0opHH`===`WHAT` Lp o̭ }opANT ( :DEC / :P ) :CYFRYENDTO DEC.HEX :DECOP WORD "$ POM 4096 :DEC "ENDTO W :LISTA :ELEMENT :NIF OR NOT MEMBERP :ELEME} OPT %110101 ORG $9000PUTLINE EQU $C642KEYCODE EQU 764CHN3 EQU $30EOL EQU $9B_ioz0 EQU 2C}03 LDA #0 STA 710 LDA #255 STA KEYCODE LDX T1 JSR PUD}TLINE LDX T2 JSR PUTLINE LDX T3 JSR PUTLINE E} LDX #CHN3 JSR _getkey LDY #12 STY KEYCODE CMP #'E' BEQ E CMP #'P' F} BEQ P LDA #$FF STA KEYCODE RTSE LDX EDAT JSR PUTLINEG} RTSP LDX PDAT JSR PUTLINE RTST1 DTA C'}What do you want ?',BH}(EOL)T2 DTA C' English LOGO version',B(EOL)T3 DTA C'

Polish LOGO version',B(EOL)EDAT DTA C'D1:LOGOI}ANG.',B(EOL)PDAT DTA C'D1:LOGOPOL1.',B(EOL)_iocb equ $340_ciov equ $E456_skctl equ $D20F_open sta _J}iocb+4,X tya sta _iocb+5,X lda #3 sta _iocb+2,X lda #4 bcc *+3 K} asl @ (*2) sta _iocb+10,X lda #0 sta _iocb+11,X jmp _ciov_close lda #12 L} sta _iocb+2,X jsr _ciov php lda #3 sta _skctl (keep silence) plp rtsM}_getkey lda <_kbdnam ldy >_kbdnam clc (read) jsr _open lda #7 sta _iocb+2,X N} lda #0 sta _iocb+8,X sta _iocb+9,X jsr _ciov pha jsr _close pla O} rts_kbdnam dta c'K:',b($9B)_iomode dta b(3) ORG $2E0 DTA A($9000) END pla rTO SCROLL :ZMIENNA :ILEREPEAT :ILE [MAKE :ZMIENNA LPUT FIRST THING :ZMIENNA BF THING :ZMIENNA]ENDTO WCZYT :ZMIENNAMAKE "Q}POMOCNICZA RLIF EMPTYP :POMOCNICZA [STOP]DODAJ :ZMIENNA :POMOCNICZAWCZYT :ZMIENNAENDTO WCZYTAJ :NAZWA :ZMIENNASETREAD R}[]SETREAD :NAZWAKASUJ :ZMIENNAWCZYT :ZMIENNASETREAD []ENDTO ZAP :ZMIENNAIF :ZMIENNA = [] [STOP]PRINT FIRST :ZMIENNAS}ZAP BF :ZMIENNAENDTO ZAPISZ :ZMIENNA :NAZWASETWRITE []SETWRITE :NAZWAZAP :ZMIENNASETWRITE []ENDTO AKTPKTOP LIST XCT}OR YCORENDTO ODBIJ :ZMIENNA :WEKTORMAKE :ZMIENNA ODB THING :ZMIENNA FIRST :WEKTOR LAST :WEKTORENDTO ODB :LISTA :DX :DYU}IF EMPTYP :LISTA [OP [] STOP]MAKE "PUNKT1 FIRST :LISTAMAKE "NPUNKT LIST ( 2 * :DX ) - FIRST :PUNKT1 ( 2 * :DY ) - LAST :PUV}NKT1OP SE BL LIST :NPUNKT [] ODB BF :LISTA :DX :DYENDTO KASUJ :ZMIENNAMAKE :ZMIENNA []ENDTO NOTUJ :ZMIENNADODAJ :ZMIW}ENNA AKTPKTENDTO PRZESUN :ZMIENNA :WEKTORMAKE :ZMIENNA PRZES THING :ZMIENNA FIRST :WEKTOR LAST :WEKTORENDTO PRZES :LISX}TA :DX :DYIF EMPTYP :LISTA [OP [] STOP]MAKE "PUNKT1 FIRST :LISTAMAKE "NPUNKT LIST :DX + FIRST :PUNKT1 :DY + LAST :PUNKT1OY}P SE BL LIST :NPUNKT [] PRZES BF :LISTA :DX :DYENDTO PRZEJDZ :LISTAIF EMPTYP :LISTA [STOP]SETPOS FIRST :LISTAPRZEJDZ BFZ} :LISTAENDTO PRZEOBRAZ :LISTA1 :LISTA2 :USUWANIE :ILEKROKOWMAKE "OPCJA MEMBERP :USUWANIE [T t]RYSUJ [PD] :LISTA1MAKE "F[}IGPOPRZ :LISTA1MAKE "KROK 0REPEAT :ILEKROKOW [POM :LISTA1 :LISTA2 :ILEKROKOW]ENDTO RYSUJ :STANPIORA :LISTAIF EMPTYP :LI\}STA [STOP]PENUPSETPOS FIRST :LISTARUN :STANPIORAPRZEJDZ :LISTAENDTO TRANSF :LISTA1 :LISTA2 :ILEKROKOWIF OR EMPTYP :LI]}STA1 EMPTYP :LISTA2 [OP [] STOP]MAKE "PUNKT1 FIRST :LISTA1MAKE "PUNKT2 FIRST :LISTA2MAKE "X1 FIRST :PUNKT1MAKE "X2 FIRST ^}:PUNKT2MAKE "Y1 LAST :PUNKT1MAKE "Y2 LAST :PUNKT2MAKE "NPUNKT LIST SUM :X1 ( :X2 - :X1 ) / :ILEKROKOW SUM :Y1 ( :Y2 - :Y1 _}) / :ILEKROKOWOP SE BL LIST :NPUNKT [] TRANSF BF :LISTA1 BF :LISTA2 :ILEKROKOWENDTO POM :LISTA1 :LISTA2 :ILEKROKOWMAKE "`}KROK :KROK + 1 MAKE "FIGNAST TRANSF :LISTA1 :LISTA2 :ILEKROKOW / :KROKIF :OPCJA [RYSUJ [PE] :FIGPOPRZ] [] RYSUJ [PD] :FIGNASa}T MAKE "FIGPOPRZ :FIGNASTENDTO DODAJ :LISTA :OBIEKTMAKE :LISTA LPUT :OBIEKT SE THING :LISTA []END] RYSUJ [PD] :FIGNASi-125 50-115 20-120 20-120 -10-125 -10-130 -10-130 20-135 20-125 5050 -40] [50 -20] [70 -20]]MAKE "KROK 10MAKE "A [ KTO RYS :B :S :CIF AND ( INT XCOR ) = INT FIRST :B ( INT YCOR ) = LAST :B [STOP]FD :C RT :SRYS :B :S :CENDTO RYSUJ :S :C%d}MAKE "POMOC LIST XCOR YCORFD :C RT :SRYS :POMOC :S :CENDMAKE "POMOC [0 0]FD :C RT :SRYS :B :S :CENDTO RYSUJ :S :C$QTO SPRZETYHOP [PRAWO 35 PRZOD 55 GORA 10]KIBELHOP [LEWO 35 TYL 55 DOL 10]ENDTO KIBELKOSTKA 10 10 5HOP [PRAWO 2.5] PRO)f}ST.XY 5 5HOP [TYL 5] PROST.XZ 5 5ODC 0 5 -5PRAWO 5ODC 2.5 0 2.5PRZOD 5ODC -2.5 0 2.5LEWO 5ODC -2.5 0 -2.5TYL 5ODC 2)g}.5 0 -2.5HOP [PRAWO 5]ODC 0 -5 5ODC 2.5 5 -2.5HOP [PRZOD 5]ODC -2.5 -5 2.5GORA 5HOP [LEWO 5]DOL 5ODC -2.5 5 -2.5HOP)q}B%DOS SYSB )CP SYSB5LOGOANG BLOGOPOL1 B=HEXDEC B?AUTORUN SYSBBWHAT ASMBPMORPH BbZM BcRYSUJ B+e3D BZWIERZE B3DPODST BLOSOWE BPROLOG BZWIEZE BSREDNIA BPRAWDOPO B PROBA B NATURALN B TROJKAT B WHAT COMBDRZEWO BODWOTNA BPOEZJA B1DYWAN [TYL 5]ODC 2.5 -5 2.5HOP [PRZOD 6.875 PRAWO 1.875 GORA 10]KOSTKA 1.25 1.25 1.25HOP [LEWO 1.875 TYL 5.5417 DOL 5]TYL 1.6)r}6666666ODC 1.66666666 0 -1.666666PRAWO 1.66666666ODC 1.66666666 0 1.666666PRZOD 1.66666666ODC -1.66666666 0 1.666666LEW)s}O 1.66666666ODC -1.66666666 0 -1.666666HOP [PRZOD 3.75 LEWO 2.5 DOL 5]ENDTO CPSH :FIRST :SECONDMAKE "POMOCNICZA GETSH :)t}FIRSTPUTSH :SECOND :POMOCNICZAENDTO OSIE :X :Y :ZMAKE "KATX :XMAKE "KATY :YMAKE "KATZ :ZENDTO PRZUT "WZEROPRZYKL)u}ADENDTO PRZYKLADHOP [TYL 40] SZ 40 HOP [PRZOD 40]HOP [LEWO 40] SZ 40 HOP [PRAWO 40]HOP [PRZOD 40] SZ 40 HOP [TYL 40]HO)v}P [PRAWO 40] SZ 40 HOP [LEWO 40]ENDTO UKLADHOP [HOME]PRAWO 200 HOP [HOME]GORA 200 HOP [HOME]PRZOD 200 HOP [HOME]END)w}TO SZ :KRSETPN 0ODC :KR :KR 0ODC 0 ( - :KR ) :KRODC ( - :KR ) :KR 0ODC 0 ( - :KR ) ( - :KR )HOP [GORA :KR]ODC :KR ( - )x}:KR ) 0ODC 0 :KR :KRODC ( - :KR ) ( - :KR ) 0ODC 0 :KR ( - :KR )HOP [DOL :KR]SETPN 2KOSTKA :KR :KR :KRENDTO KOLORYS)y}ETBG 16 * 7SETPC 0 11SETPC 1 29SETPC 2 95ENDTO OBROCONE :KATMAKE "KATX :KATX + :KATMAKE "KATY :KATY + :KATMAKE "KATZ)z} :KATZ + :KATENDTO SYMETR.XZMAKE "KATY :KATY + 180ENDTO OD.SPODUSYMETR.XZ SYMETR.YZENDTO SYMETR.YZMAKE "KATX :KAT){}X + 180ENDTO SYMETR.XYMAKE "KATZ :KATZ + 180ENDTO PODZIALKI :X :Y :ZMAKE "PODZX :XMAKE "PODZY :YMAKE "PODZZ :ZEND)|}TO DIRCATALOG "D:ENDTO PROST.XZ :X :ZPRZOD :Z PRAWO :XTYL :Z LEWO :XENDTO ODC :DX :DY :DZMAKE "NOW.XCOR ( XCOR + ()}} :PODZX * :DX * SIN :KATX ) + ( :PODZY * :DY * SIN :KATY ) + ( :PODZZ * :DZ * SIN :KATZ ) )MAKE "NOW.YCOR ( YCOR + ( :PODZX )~}* :DX * COS :KATX ) + ( :PODZY * :DY * COS :KATY ) + ( :PODZZ * :DZ * COS :KATZ ) )SETPOS LIST :NOW.XCOR :NOW.YCORENDTO P)}ROST.YZ :Y :ZGORA :Y PRZOD :ZDOL :Y TYL :ZENDTO FUNDAMENTYPROST.XY 100 10PROST.YZ 10 40PRAWO 100PROST.YZ 10 60PRZOD)} 60LEWO 70PROST.XY 70 10TYL 20PROST.YZ 10 20LEWO 30PROST.XY 30 10TYL 40ENDTO PROST.XY :X :YGORA :Y PRAWO :XDOL :Y)} LEWO :XENDTO POKOJEHOP [GORA 10]KOSTKA 30 20 20PRZOD 20KOSTKA 30 20 20PRZOD 20 PRAWO 30KOSTKA 20 20 20PRAWO 20 TYL)} 20 KOSTKA 50 20 40PRAWO 20 TYL 20 KOSTKA 30 20 20LEWO 40 PROST.XY 40 20HOP [LEWO 30 DOL 10]ENDTO DRZWI.XYKOSTKA 10 15)} 1HOP [PRAWO 7 GORA 8]KOSTKA 2 1 1HOP [LEWO 7 DOL 8]ENDTO DRZWI.YZKOSTKA 1 15 10HOP [PRZOD 1 GORA 8]KOSTKA 1 1 2HOP)} [TYL 1 DOL 8]ENDTO DRZWIHOP [PRAWO 29 GORA 10 PRZOD 5]DRZWI.YZHOP [PRZOD 20]DRZWI.YZHOP [PRZOD 15 PRAWO 6]DRZWI.XY)}HOP [PRAWO 20 TYL 20]DRZWI.XYHOP [PRAWO 15 TYL 15]DRZWI.YZHOP [TYL 5 LEWO 35]DRZWI.XYHOP [LEWO 35 DOL 10]ENDTO DOL :)}ODLSETH 180 + :KATYFD :ODL * :PODZYENDTO OKNO.XYKOSTKA 5.7 8 1HOP [GORA 8.6]KOSTKA 5.7 2.4 1HOP [DOL 8.6 PRAWO 6.3])}KOSTKA 5.7 11 1HOP [LEWO 6.3]ENDTO OKNO.YZKOSTKA 1 8 5.7HOP [GORA 8.6]KOSTKA 1 2.4 5.7HOP [DOL 8.6 PRZOD 6.3]KOSTKA )}1 11 5.7HOP [TYL 6.3]ENDTO GORA :ODLSETH :KATYFD :ODL * :PODZYENDTO OKNAHOP [GORA 16 PRZOD 4]OKNO.YZHOP [PRZOD 20)}]OKNO.YZHOP [PRZOD 35 PRAWO 60]OKNO.XYHOP [PRAWO 20]OKNO.XYHOP [PRAWO 19 TYL 55]OKNO.YZHOP [DOL 16 TYL 4 LEWO 99]END)}TO LEWO :ODLSETH 180 + :KATXFD :ODL * :PODZXENDTO PRZOD :ODLSETH :KATZFD :ODL * :PODZZENDTO KOSTKA :X :Y :ZPROST)}.XY :X :YPROST.XZ :X :ZHOP [PRZOD :Z] PROST.XY :X :YHOP [TYL :Z GORA :Y]PROST.XZ :X :ZHOP [DOL :Y]ENDTO TYL :ODLSETH)} 180 + :KATZFD :ODL * :PODZZENDTO PRAWO :ODLSETH :KATXFD :ODL * :PODZXENDTO HOP :CO.ZROBICPU RUN :CO.ZROBIC PDEND)}TO SCHODKIHOP [PRAWO 30 TYL 15]KOSTKA 20 2 3 HOP [PRZOD 3]KOSTKA 20 4 3 HOP [PRZOD 3]KOSTKA 20 6 3 HOP [PRZOD 3]KOSTKA )}20 8 3 HOP [PRZOD 3]KOSTKA 20 10 3 HOP [PRZOD 3]HOP [LEWO 30]ENDTO DOMSETPN 2SCHODKIFUNDAMENTYSETPN 1SPRZETYDRZWI)}OKNASETPN 0POKOJEENDTO ZEROHOP [HOME GORA :Y.0 PRAWO :X.0 PRZOD :Z.0]ENDTO WOKOL.PUNKTU :X :Y :ZMAKE "X.0 ( - :X ))}MAKE "Y.0 ( - :Y )MAKE "Z.0 ( - :Z )ENDTO ZBLIZENIE :KROTNOSCPODZIALKI :KROTNOSC * :PODZX :KROTNOSC * :PODZY :KROTNOSC *)} :PODZZENDTO OD.TYLUSYMETR.XY SYMETR.YZENDTO RZUT :NAZWAWINDOWIF MEMBERP :NAZWA [PROSTOKATNY P] [OSIE 90 0 255 PODZI)}ALKI 1 1 0.5 CS STOP]IF MEMBERP :NAZWA [JEDNOMIAROWY J] [OSIE 120 0 240 PODZIALKI 1 1 1 CS STOP]IF MEMBERP :NAZWA [WOJSKOWY)}TO KLEJ :D :W :NIF :D = :W [OP :N]IF WORDP :D [OP :D]OP FPUT PYTANIE :D LIST KLEJ WARIANT.TAK :D :W :N KLEJ WARIANT.NIE :D-} :W :NENDTO DODAJ :PYT :POP :NIEPMAKE "BAZA KLEJ :BAZA :NIEP FPUT :PYT LIST :POP :NIEPENDTO NAUKA :NIEPPR [OJEJ, POMY-}LILEM SIE. CO TO JEST ?]MAKE "POP ( LAST RL )PR [NAPISZ PYTANIE, NA KTORE ODPOWIESZ]PR ( SE ["TAK" GDY ZWIERZECIEM JEST] :-}POP )PR ( SE [NATOMIAST "NIE" GDY ZWIERZECIEM JEST] :NIEPMAKE "PYT RLDODAJ :PYT :POP :NIEPENDTO WARIANT.NIE :DANEOP LA-}ST :DANEENDTO WARIANT.TAK :DANEOP FIRST BF :DANEENDTO PYTANIE :DANEOP FIRST :DANEENDTO ODPOWIEDZ :PYT( TYPE :PYT -}"? )MAKE "R RLIF NOT EMPTYP :R [MAKE "R FIRST :R]IF MEMBERP :R [TAK T] [OP [TAK]]IF MEMBERP :R [NIE N] [OP [NIE]]PR [ODP-}OWIEDZ PROSZE "TAK" LUB "NIE"]OP ODPOWIEDZ :PYTENDTO PROBA :ZWIERZAKMAKE "PYT ( SE [CZY TO JEST] :ZWIERZAK )MAKE "R ODP-}OWIEDZ :PYTIF :R = [TAK] [PR [WIDZISZ, JAKI JESTEM SPRYTNY] STOP]NAUKA :ZWIERZAKENDTO ZGADNIJ :DANEIF ( WORDP :DANE ) [-}PROBA :DANE STOP]MAKE "ODP ODPOWIEDZ ( PYTANIE :DANE )IF :ODP = [TAK] [ZGADNIJ WARIANT.TAK :DANE STOP]ZGADNIJ WARIANT.NIE -}:DANEENDTO ZWIERZECT PR [WYMYSL SOBIE JAKIES ZWIRZATKO]PR [A JA SPROBOJE ZGADNAC JEGO NAZWE]PR [STAWIAJAC PYTANIA. GOTO-}WE? ZACZYNAM:]PR []ZGADNIJ :BAZAPR [SPROBOJ JESZCZE RAZ]WAIT 500 ZWIERZEENDMAKE "FBAZA [[CZY MA CZTERY NOGI] [[CZY JE-}ST UDOMOWIONE] [[CZY MA WASY] [[CZY GROMADZI ZIARNO W NORCE] CHOMIK KOT] [[CZY SZCZEKA] PIES [[CZY MA RYJEK] SWINKA KON]]] [[-}CZY TO MA KOLCE] JEZ [[CZY MA TRABE] SLON [[CZY MA MALE KOPYTKA] SARNA [[CZY MA TORBE] KANGUR [[CZY OBAWIA SIE KOTA] MYSZKA L-}EW]] [[CZY ZYJE W WODZIE] [[CZY MA OSIEM RAMION] OSMIORNICA [[CZY MA SZCZYPCE] RAK RYBA]] [[CZY HUKA] SOWA [[CZY MA BLONIASTE-} SKRZYDLA] NIETOPERZ [[CZY LADNIE SPIEWA] KANAREK [[CZY PELZA W TRAWIE] [[CZY BYWA JADOWITY] WAZ GASIENNICA] [[CZY JEST GROZN-}Y] SKORPION MUCHA]]]]]]]]]]]MAKE "POP "KANAREKMAKE "R "NIEMAKE "PYT [CZY TO JEST KOT]MAKE "ODP [TAK]MAKE "BAZA [[CZY MA -}CZTERY NOGI] [[CZY JEST UDOMOWIONE] [[CZY MA WASY] [[CZY GROMADZI ZIARNO W NORCE] CHOMIK KOT] [[CZY SZCZEKA] PIES [[CZY MA RY-}JEK] SWINKA KON]]] [[CZY TO MA KOLCE] JEZ [[CZY MA TRABE] SLON [[CZY MA MALE KOPYTKA] SARNA [[CZY MA TORBE] KANGUR [[CZY OBAW-}IA SIE KOTA] MYSZKA LEW]] [[CZY ZYJE W WODZIE] [[CZY MA OSIEM RAMION] OSMIORNICA [[CZY MA SZCZYPCE] RAK RYBA]] [[CZY HUKA] SO-}WA [[CZY MA BLONIASTE SKRZYDLA] NIETOPERZ [[CZY LADNIE SPIEWA] KANAREK [[CZY PELZA W TRAWIE] [[CZY BYWA JADOWITY] WAZ GASIENN-}ICA] [[CZY JEST GROZNY] SKORPION MUCHA]]]]]]]]]]]DNIE SPIEWA] KANAREK [[CZY PELZA W TRAWIE] [[CZY BYWA JADOWITY] WAZ GASIENN,2 W] [OSIE 135 0 255 PODZIALKI 1 0.5 1 CS STOP]IF MEMBERP :NAZWA [GORNY G] [OSIE 90 0 180 PODZIALKI 1 0 1 CS STOP]IF MEMBERP)} :NAZWA [BOCZNY B] [OSIE 0 0 90 PODZIALKI 0 1 1 CS STOP]IF MEMBERP :NAZWA [Z.PRZODU Z] [OSIE 90 0 0 PODZIALKI 1 1 0 CS STOP])}IF MEMBERP :NAZWA [TRZY.CZWARTE T] [OSIE 100 0 235 PODZIALKI 1 1 0.65 CS STOP]PRINT [NIE ZNAM TAKIEGO RZUTU]ENDTO RRZUT)} "G ZBLIZENIE 2 WOKOL.PUNKTU 50 0 30 ZERO DOMENDTO STRZALKAPUTSH 1 :SHAPESETSH 1ENDMAKE "SHAPE [0 0 0 0 0 0 0 0 0 14)} 12 14 11 1 0 0]MAKE "Z.0 -30MAKE "Y.0 0MAKE "X.0 -50MAKE "NOW.YCOR -42.6666MAKE "KATZ 180MAKE "PODZZ 2MAKE "KATY 0MA)}KE "PODZY 0MAKE "KATX 90MAKE "PODZX 2MAKE "NOW.XCOR -25KE "NOW.YCOR -42.6666MAKE "KATZ 180MAKE "PODZZ 2MAKE "KATY 0MA(;TO CPSH :FIRST :SECONDMAKE "POMOCNICZA GETSH :FIRSTPUTSH :SECOND :POMOCNICZAENDTO OSIE :X :Y :ZMAKE "KATX :XMAKE "KATY1} :YMAKE "KATZ :ZENDTO UKLADHOP [HOME]PRAWO 200 HOP [HOME]GORA 200 HOP [HOME]PRZOD 200 HOP [HOME]ENDTO KOLORYSETBG1} 16 * 7SETPC 0 11SETPC 1 29SETPC 2 95ENDTO OBROCONE :KATMAKE "KATX :KATX + :KATMAKE "KATY :KATY + :KATMAKE "KATZ :KA1}TZ + :KATENDTO SYMETR.XZMAKE "KATY :KATY + 180ENDTO OD.SPODUSYMETR.XZ SYMETR.YZENDTO SYMETR.YZMAKE "KATX :KATX + 1}180ENDTO SYMETR.XYMAKE "KATZ :KATZ + 180ENDTO PODZIALKI :X :Y :ZMAKE "PODZX :XMAKE "PODZY :YMAKE "PODZZ :ZENDTO 1}DIRCATALOG "D:ENDTO PROST.XZ :X :ZPRZOD :Z PRAWO :XTYL :Z LEWO :XENDTO ODC :DX :DY :DZMAKE "NOW.XCOR ( XCOR + ( :PO1}DZX * :DX * SIN :KATX ) + ( :PODZY * :DY * SIN :KATY ) + ( :PODZZ * :DZ * SIN :KATZ ) )MAKE "NOW.YCOR ( YCOR + ( :PODZX * :D1}X * COS :KATX ) + ( :PODZY * :DY * COS :KATY ) + ( :PODZZ * :DZ * COS :KATZ ) )SETPOS LIST :NOW.XCOR :NOW.YCORENDTO PROST1}.YZ :Y :ZGORA :Y PRZOD :ZDOL :Y TYL :ZENDTO PROST.XY :X :YGORA :Y PRAWO :XDOL :Y LEWO :XENDTO DOL :ODLSETH 180 + :1}KATYFD :ODL * :PODZYENDTO GORA :ODLSETH :KATYFD :ODL * :PODZYENDTO LEWO :ODLSETH 180 + :KATXFD :ODL * :PODZXEND1}TO PRZOD :ODLSETH :KATZFD :ODL * :PODZZENDTO KOSTKA :X :Y :ZPROST.XY :X :YPROST.XZ :X :ZHOP [PRZOD :Z] PROST.XY :X :Y1}HOP [TYL :Z GORA :Y]PROST.XZ :X :ZHOP [DOL :Y]ENDTO TYL :ODLSETH 180 + :KATZFD :ODL * :PODZZENDTO PRAWO :ODLSETH 1}:KATXFD :ODL * :PODZXENDTO HOP :CO.ZROBICPU RUN :CO.ZROBIC PDENDTO ZEROHOP [HOME GORA :Y.0 PRAWO :X.0 PRZOD :Z.0]EN1}DTO WOKOL.PUNKTU :X :Y :ZMAKE "X.0 ( - :X )MAKE "Y.0 ( - :Y )MAKE "Z.0 ( - :Z )ENDTO ZBLIZENIE :KROTNOSCPODZIALKI :K1}ROTNOSC * :PODZX :KROTNOSC * :PODZY :KROTNOSC * :PODZZENDTO OD.TYLUSYMETR.XY SYMETR.YZENDTO RZUT :NAZWAWINDOWIF MEMB1}ERP :NAZWA [PROSTOKATNY P] [OSIE 90 0 255 PODZIALKI 1 1 0.5 CS STOP]IF MEMBERP :NAZWA [JEDNOMIAROWY J] [OSIE 120 0 240 PODZI1}ALKI 1 1 1 CS STOP]IF MEMBERP :NAZWA [WOJSKOWY W] [OSIE 135 0 255 PODZIALKI 1 0.5 1 CS STOP]IF MEMBERP :NAZWA [GORNY G] [OS1}IE 90 0 180 PODZIALKI 1 0 1 CS STOP]IF MEMBERP :NAZWA [BOCZNY B] [OSIE 0 0 90 PODZIALKI 0 1 1 CS STOP]IF MEMBERP :NAZWA [Z.1}PRZODU Z] [OSIE 90 0 0 PODZIALKI 1 1 0 CS STOP]IF MEMBERP :NAZWA [TRZY.CZWARTE T] [OSIE 100 0 235 PODZIALKI 1 1 0.65 CS STOP1}]PRINT [NIE ZNAM TAKIEGO RZUTU]ENDTO STRZALKAPUTSH 1 :SHAPESETSH 1ENDMAKE "SHAPE [0 0 0 0 0 0 0 0 0 14 12 14 11 1 01} 0]MAKE "Z.0 -30MAKE "Y.0 0MAKE "X.0 -50MAKE "NOW.YCOR -42.6666MAKE "KATZ 180MAKE "PODZZ 2MAKE "KATY 0MAKE "PODZY 0M1}AKE "KATX 90MAKE "PODZX 2MAKE "NOW.XCOR -25KE "NOW.YCOR -42.6666MAKE "KATZ 180MAKE "PODZZ 2MAKE "KATY 0MAKE "PODZY 0M0.TO IMSETC 0 REPEAT 126 [SETC COLOR + 1]WAIT 100ENDTO LOSCS FSPUTSH 3 [0 0 0 0 0 0 0 0 16 0 0 0 0 0 0 0]TELL [0 1 2 3]5}SETSH 3PU EACH [SETPOS LIST RANDOM 1000 RANDOM 1000] EACH [RT RANDOM 360] SETSP 30 PDWHEN 16 [IM] WHEN 17 [IM] WHEN 18 [IM5}] WHEN 19 [IM] WHEN 20 [IM] WHEN 21 [IM]REPEAT 1000 [REPEAT 1000 [EACH [RT ( ( RANDOM 90 ) - 45 )]]]ENDTO KWADRATYEACH [5}REPEAT 4 [FD ( 20 + WHO * 20 ) RT 90] RT 45 FD ( 1.4142135 * ( WHO * 20 + 20 ) )]ENDTO ROZSTAWTELL [0 1 2 3]RT 90PUBK 5}40EACH [FD 20 * WHO]END ) RT 90] RT 45 FD ( 1.4142135 * ( WHO * 20 + 20 ) )]ENDTO ROZSTAWTELL [0 1 2 3]RT 90PUBK 4TO . :TRUEORFALSEIF LISTP :TRUEORFALSE [PRINT :TRUEORFALSE STOP]IF :TRUEORFALSE = TRUE [PRINT "YES.] [PRINT "NO.]ENDTO D9}EFINIOWANA :OBIEKT :CECHAIF ( FIRST BF BF THING :CECHA ) = "AND [OP AND IS :OBIEKT FIRST BF THING :CECHA IS :OBIEKT FIRST BF9} BF BF THING :CECHA]IF ( FIRST BF BF THING :CECHA ) = "OR [OP OR IS :OBIEKT FIRST BF THING :CECHA IS :OBIEKT FIRST BF BF BF 9}THING :CECHA]IF ( FIRST BF THING :CECHA ) = "NOT [OP NOT IS :OBIEKT FIRST BF BF THING :CECHA]ENDTO DEF :CECHA :LISTAMAKE9} :CECHA FPUT "@ :LISTAENDTO ADD :OBIEKT :CECHAIF NOT NAMEP :CECHA [MAKE :CECHA []]IF NOT NAMEP "OBIEKTY [MAKE "OBIEKTY [9}]]IF NOT MEMBERP :OBIEKT :OBIEKTY [MAKE "OBIEKTY LPUT :OBIEKT :OBIEKTY]IF MEMBERP :OBIEKT THING :CECHA [STOP]IF NOT ( FIRS9}T THING :CECHA ) = "@ [MAKE :CECHA LPUT :OBIEKT THING :CECHA]ENDTO DO :N :LISTAIF :N > COUNT :LISTA [OP :LISTA]IF :N = C9}OUNT :LISTA [OP :LISTA]OP DO :N BL :LISTAENDTO OD :N :LISTAIF :N > COUNT :LISTA [OP []]IF :N = 1 [OP :LISTA]OP OD :N -9} 1 BF :LISTAENDTO ELEMENT :N :LISTAIF :N > COUNT :LISTA [OP []]IF :N = 1 [OP FIRST :LISTA]OP ELEMENT :N - 1 BF :LISTAE9}NDTO WICH :CECHAIF OR NOT NAMEP "OBIEKTY NOT NAMEP :CECHA [OP []]OP W :CECHA :OBIEKTYENDTO IS :OBIEKT :CECHAIF NOT NA9}MEP :CECHA [OP FALSE]IF ( FIRST THING :CECHA ) = "@ [OP DEFINIOWANA :OBIEKT :CECHA]IF MEMBERP :OBIEKT THING :CECHA [OP TRUE9}] [OP FALSE]ENDTO W :CECHA :OBIF EMPTYP :OB [OP []]IF IS FIRST :OB :CECHA [OP FPUT FIRST :OB W :CECHA BF :OB] [OP W :CEC9}HA BF :OB]ENDMAKE "BRZYTKI [@ NOT LADNY]MAKE "LADNY [EWA MAGDA ANKA]MAKE "MADRY [SOBIECH SZYMON KAMIL EWA KUCIAP TIBOR]9}MAKE "BRZYDKI [@ NOT LADNY]MAKE "GLUPI [@ NOT MADRY KOBZA KOBZA]MAKE "GLUPIBRZYDKI [@ GLUPI AND BRZYDKI]MAKE "NIEPRZYDATN9}Y [@ GLUPIBRZYDKI OR SZALONY]MAKE "PRZYDATNY [@ NOT NIEPRZYDATNY]MAKE "OBIEKTY [SOBIECH SZYMON KAMIL EWA MAGDA ANKA KUCIAP 9}TO KLEJ :D :W :NIF :D = :W [OP :N]IF WORDP :D [OP :D]OP FPUT PYTANIE :D LIST KLEJ WARIANT.TAK :D :W :N KLEJ WARIANT.NIE :D=} :W :NENDTO DODAJ :PYT :POP :NIEPMAKE "BAZA KLEJ :BAZA :NIEP FPUT :PYT LIST :POP :NIEPENDTO NAUKA :NIEPPR [OJEJ, POMY=}LILEM SIE. CO TO JEST ?]MAKE "POP ( LAST RL )PR [NAPISZ PYTANIE, NA KTORE ODPOWIESZ]PR ( SE ["TAK" GDY ZWIERZECIEM JEST] :=}POP )PR ( SE [NATOMIAST "NIE" GDY ZWIERZECIEM JEST] :NIEPMAKE "PYT RLDODAJ :PYT :POP :NIEPENDTO WARIANT.NIE :DANEOP LA=}ST :DANEENDTO WARIANT.TAK :DANEOP FIRST BF :DANEENDTO PYTANIE :DANEOP FIRST :DANEENDTO ODPOWIEDZ :PYT( TYPE :PYT =}"? )MAKE "R RLIF NOT EMPTYP :R [MAKE "R FIRST :R]IF MEMBERP :R [TAK T] [OP [TAK]]IF MEMBERP :R [NIE N] [OP [NIE]]PR [ODP=}OWIEDZ PROSZE "TAK" LUB "NIE"]OP ODPOWIEDZ :PYTENDTO PROBA :ZWIERZAKMAKE "PYT ( SE [CZY TO JEST] :ZWIERZAK )MAKE "R ODP=}OWIEDZ :PYTIF :R = [TAK] [PR [WIDZISZ, JAKI JESTEM SPRYTNY] STOP]NAUKA :ZWIERZAKENDTO ZGADNIJ :DANEIF ( WORDP :DANE ) [=}PROBA :DANE STOP]MAKE "ODP ODPOWIEDZ ( PYTANIE :DANE )IF :ODP = [TAK] [ZGADNIJ WARIANT.TAK :DANE STOP]ZGADNIJ WARIANT.NIE =}:DANEENDTO ZWIERZECT PR [WYMYSL SOBIE JAKIES ZWIRZATKO]PR [A JA SPROBOJE ZGADNAC JEGO NAZWE]PR [STAWIAJAC PYTANIA. GOTO=}WE? ZACZYNAM:]PR []ZGADNIJ :BAZAPR [SPROBOJ JESZCZE RAZ]WAIT 500 ZWIERZEENDMAKE "FBAZA [[CZY MA CZTERY NOGI] [[CZY JE=}ST UDOMOWIONE] [[CZY MA WASY] [[CZY GROMADZI ZIARNO W NORCE] CHOMIK KOT] [[CZY SZCZEKA] PIES [[CZY MA RYJEK] SWINKA KON]]] [[=}CZY TO MA KOLCE] JEZ [[CZY MA TRABE] SLON [[CZY MA MALE KOPYTKA] SARNA [[CZY MA TORBE] KANGUR [[CZY OBAWIA SIE KOTA] MYSZKA L=}EW]] [[CZY ZYJE W WODZIE] [[CZY MA OSIEM RAMION] OSMIORNICA [[CZY MA SZCZYPCE] RAK RYBA]] [[CZY HUKA] SOWA [[CZY MA BLONIASTE=} SKRZYDLA] NIETOPERZ [[CZY LADNIE SPIEWA] KANAREK [[CZY PELZA W TRAWIE] [[CZY BYWA JADOWITY] WAZ GASIENNICA] [[CZY JEST GROZN=}Y] SKORPION MUCHA]]]]]]]]]]]MAKE "POP "JEZMAKE "R [NIE]MAKE "PYT [CZY MA KOLCE]MAKE "ODP [NIE]MAKE "BAZA [[CZY MA CZTERY=} KONCZYNY] [[CZY MA WASY] [[CZY GROMADZI ZIARNO W NORCE] CHOMIK KOT] [[CZY DAJE MLEKO] KROWA [[CZY JEST BARDZO CIEZKI] [[CZY =}JEST ZWIERZECIEM WODNOLADOWYM] HIPOPOTAM [[CZY MA ROG NA NOSIE] NOSOROZEC SLON]] [[CZY MA RYJEK] SWINIA [[CZY MA KOLCE] JEZ K=}ON]]]]] [[CZY MA OSIEM RAMION] OSMIORNICA [[CZY LATA] [[CZY LADNIE SPIEWA] KANAREK [[CZY MA BLONIASTE SKRZYDLA] [[CZY NIE LAT=}A W NOCY] MUCHA NIETOPERZ] SOWA]] [[CZY MA SZCZYPCE] [[CZY JEST JADOWITY] SKORPION RAK] RYBA]]]]ASTE SKRZYDLA] [[CZY NIE LAT<aTO S :LISTA :SUMKAIF EMPTYP :LISTA [OP 0]OP ( S BF :LISTA :SUMKA ) + ( FIRST :LISTA )ENDTO SUMA :LISTAIF EMPTYP :LISTA A}[OP 0]OP S :LISTA 0ENDTO SREDNIA :LISTAOP ( SUMA :LISTA ) / ( COUNT :LISTA )ENDENDTO SUMA :LISTAIF EMPTYP :LISTA @XTO P :N :KMAKE "QB1 :NREPEAT :K - 1 [MAKE "QB1 :QB1 * :N]OP :QB1ENDTO LICZ :I :N :S :KIF :I > :N [OP :S] [OP :S + LICZE} ( :I + 1 ) :N ( :I * Q :I :N :K - 1 ) :K]ENDTO Q :I :N :KIF :K = 0 [OP 1] [OP LICZ :I :N 0 :K]ENDTO F :N :KOP Q 1 :NE} :KENDTO NAJ :NMAKE "ZM 0MAKE "QC1 :NREPEAT 9999 [MAKE "ZM ( :ZM + ( PRAWD :N :QC1 ) * :QC1 ) MAKE "QC1 :QC1 + 1]ENDE}TO PRAWD :N :KOP ( ( S ( :N - 1 ) ) / ( P :N ( :K - 1 ) ) ) * F ( :N - 1 ) ( :K - :N )ENDTO SUMUJ :N :IMAKE "QC1 :IREPEE}AT :N [MAKE "ZM ( :ZM + ( PRAWD :N :QC1 ) * :QC1 ) MAKE "QC1 :QC1 + 1]ENDTO S :NMAKE "QA1 1 MAKE "QA2 1REPEAT :N - 1 [MAE}KE "QA1 ( :QA1 + 1 ) MAKE "QA2 ( :QA2 * :QA1 )]OP :QA2ENDMAKE "QC1 15MAKE "QB1 10077696MAKE "ZM 5.32530981MAKE "QA2 1E}20MAKE "QA1 5+ 1 ) MAKE "QA2 ( :QA2 * :QA1 )]OP :QA2ENDMAKE "QC1 15MAKE "QB1 10077696MAKE "ZM 5.32530981MAKE "QA2 1DKOBZA TIBOR]YDKI OR SZALONY]MAKE "PRZYDATNY [@ NOT NIEPRZYDATNY]MAKE "OBIEKTY [SOBIECH SZYMON KAMIL EWA MAGDA ANKA KUCIAP 8 TO REPLACE :L1 :L2 :W :KSHOW :L1 PR ". SHOW :L2IF NOT EQUALP :W FIRST :L2 [OP REMOVE A :L1 FIRST :L2 BF :L2 :W :K] [OP ( A I}A :L1 :K BF :L2]ENDTO . :ARGIF :ARG = TRUE [PR "YES. STOP]IF :ARG = FALSE [PR "NO. STOP]PR :ARGENDTO IS :RELACJA :LII}STAIF NOT NAMEP :RELACJA [OP FALSE]IF NOT MEMBERP "X :LISTA [OP MEMBERP :LISTA THING :RELACJA]ENDTO TED "REMOVE FORGET I}"GLUPI [NIKODEM]RNDENDTO A :L1 :L2SHOW :L1 PR COUNT :L1SHOW :L2 PR COUNT :L2IF 0 = COUNT :L1 [OP :L2]IF 1 = COUNT :L1I} [OP LIST :L1 :L2] [OP LPUT :L2 :L1]ENDTO LERN :RELACJA :LISTAIF NOT NAMEP :RELACJA [MAKE :RELACJA []]IF MEMBERP :LISTA I}THING :RELACJA [PR [I ALREADY KNOW.] STOP]MAKE :RELACJA FPUT :LISTA THING :RELACJAPR [OK.]ENDTO FORGET :RELACJA :LISTAII}F OR NOT NAMEP :RELACJA NOT MEMBERP :LISTA THING :RELACJA [STOP]MAKE :RELACJA REMOVE [] THING :RELACJA :LISTAPR [OK.]ENDI}TO REMOVE :L1 :L2 :WIF AND NOT EMPTYP :L2 NOT EQUALP :W FIRST :L2 [OP REMOVE A :L1 FIRST :L2 BF :L2 :W] [OP SE :L1 BF :L2]EI}NDMAKE "G [A 1 [B 2] [C 3] [E 5]]MAKE "KOCHA [[KAMIL ANKA] [KAMIL EWA] [KAMIL MONIKA]]MAKE "GLUPI [[A 1] [B 2] [C 3] [D I}4] [E 5]]"G [A 1 [B 2] [C 3] [E 5]]MAKE "KOCHA [[KAMIL ANKA] [KAMIL EWA] [KAMIL MONIKA]]MAKE "GLUPI [[A 1] [B 2] [C 3] [D H TO #_ZEROOP "ENDTO BIN_ZEROOP "0ENDTO #_PRED :AOP BL :AENDTO #_SUCC :AOP WORD :A "#ENDTO POTEGA :A :BIF :B =N} ZERO [OP JEDEN]OP ILOCZYN :A POTEGA :A PRED :BENDTO BIN_SUCC :LICZBAIF :LICZBA = "0 [OP "1]MAKE "C :LICZBAMAKE "X "DN}OD 1OP WORD :C :XENDTO BIN_PRED :LICZBAIF :LICZBA = "1 [OP "0]MAKE "C :LICZBAMAKE "X "ODJ 1IF AND EMPTYP :C ( "0 = FN}IRST :X ) [OP BF :X] [OP WORD :C :X]ENDTO ILOCZYN :A :BIF :B = ZERO [OP ZERO]OP SUMA :A ILOCZYN :A PRED :BENDTO SUMA N}:A :BIF :B = ZERO [OP :A]OP SUCC ( SUMA :A PRED :B )ENDTO JEDENOP SUCC ZEROENDTO ZEROOP #_ZEROENDTO ODJ :PIF :PN} = 0 [STOP]IF EMPTYP :C [MAKE "Y - :P] [MAKE "Y ( LAST :C ) - :P]IF :Y = 0 [MAKE "X WORD "0 :X] [MAKE "X WORD "1 :X]IF NOTN} EMPTYP :C [MAKE "C BL :C]IF :Y = 0 [ODJ 0] [ODJ 1]ENDTO PRED :AOP #_PRED :AENDTO DOD :PIF :P = 0 [STOP]IF EMPTYP :N}C [MAKE "Y :P] [MAKE "Y :P + LAST :C]IF OR :Y = 2 :Y = 0 [MAKE "X WORD "0 :X] [MAKE "X WORD "1 :X]IF NOT EMPTYP :C [MAKE "CN} BL :C]IF :Y < 2 [DOD 0] [DOD 1]ENDTO SUCC :AOP #_SUCC :AENDMAKE "Y 1MAKE "X "1MAKE "C "IF NOT EMPTYP :C [MAKE "CLdTO EXECS HT PU SETPOS [-80 -55] PD RT 30TROJ 160ENDTO HOMCSPUBK 50RT 90BK 150LT 60PDENDTO ODC :BOKIF :BOK < 1R }0 [FD :BOK STOP]ODC :BOK / 2RT 120FD :BOK / 2LT 120ODC :BOK / 2LT 120FD :BOK / 2RT 120ODC :BOK / 2ENDTO TROJ :BOKR}G BƢ\ BƢu BƢ0 ِ E P` B` B`}What do you want ? English LOGO version Polish LOGO versionD1:LOGOANG.D1:LOGOPOL1.DEB JKLV B V(` BHI VH V }h`K:O versionD1:LOGOANG.D1:LOGOPOL1.DEB JKLV B V(` BHI VH T NT :LISTA EMPTYP :LISTA [OP 0]IF :ELEMENT = FIRST :LISTA [OP :N]OP W BF :LISTA :ELEMENT :N + 1ENDTO HEX.DEC :HEXOP MOP }4096 BF :HEX 0ENDTO WICH :LISTA :ELEMENTOP W :LISTA :ELEMENT 0ENDTO MOP :P :HEX :DECIF :P < 1 [OP :DEC]OP MOP :P / 1}6 BF :HEX :DEC + PRODUCT :P WICH :CYFRY FIRST :HEXENDTO LEWO :KATREPEAT INT ( :KAT / :PRO ) [LT :PRO]LT REMAINDER :KAT :}TO EXECS PU BK 50 PDNOWY 160 30 0.3ENDTO NOWY :N :KAT :OIF :N < 10 [FD :N PU BK :N PD] [FD :N * :O LT :KAT NOWY :N * ( Z}1 - :O ) :KAT :O RT SUM :KAT :KAT NOWY :N * ( 1 - :O ) :KAT :O LT :KAT PU BK :N * :O PD]ENDD :N * :O LT :KAT NOWY :N * ( X_TO TESTCLST. [3 5 ADD 4 8 ADD MUL 6 3 MUL 2 5 2 ADD MUL ADD SUB]PONSENDTO CLSTMAKE "STOS []ENDTO . :LISTAIF EMPTYP^} :LISTA [STOP]PR :STOSIF NUMBERP FIRST :LISTA [MAKE "STOS LPUT FIRST :LISTA :STOS . BF :LISTA STOP]IF NOT MEMBERP FIRST :L^}ISTA [ADD SUB MUL DIV] [STOP]IF ( FIRST :LISTA ) = "ADD [MAKE "STOS ( LPUT ( ( LAST BL :STOS ) + ( LAST :STOS ) ) BL BL :STO^}S]IF ( FIRST :LISTA ) = "SUB [MAKE "STOS ( LPUT ( ( LAST BL :STOS ) - ( LAST :STOS ) ) BL BL :STOS]IF ( FIRST :LISTA ) = "M^}UL [MAKE "STOS ( LPUT ( ( LAST BL :STOS ) * ( LAST :STOS ) ) BL BL :STOS]IF ( FIRST :LISTA ) = "DIV [MAKE "STOS ( LPUT ( ( L^}AST BL :STOS ) / ( LAST :STOS ) ) BL BL :STOS]. BF :LISTAENDMAKE "STOS [64]RST :LISTA ) = "DIV [MAKE "STOS ( LPUT ( ( L\QPROENDTO IDZ :ODLREPEAT INT ( :ODL / :PRC ) [FD :PRC]FD REMAINDER :ODL :PRCENDTO PRAWO :KATREPEAT INT ( :KAT / :PRO }) [RT :PRO]RT REMAINDER :KAT :PROENDMAKE "CYFRY [0 1 2 3 4 5 6 7 8 9 A B C D E F]MAKE "PRC 10MAKE "PRO 10:KAT / :PRO qODC :BOKREPEAT 2 [RT 120 FD :BOK]RT 120ENDLT 120ODC :BOK / 2LT 120FD :BOK / 2RT 120ODC :BOK / 2ENDTO TROJ :BOKP1TO RDOP I ( RANDOM COUNT :WD ) + 1 :WDENDTO RCCOP I ( RANDOM COUNT :WCC ) + 1 :WCCENDTO RBOP I ( RANDOM COUNT :WB ) b}+ 1 :WBENDTO RAOP I ( RANDOM COUNT :WA ) + 1 :WAENDTO RZECZ.BIF :L2 = 1 [OP RA]IF :L2 = 2 [OP RB]IF :L2 = 3 [OP RCCb}]IF :L2 = 4 [OP RD]ENDTO RZECZ.AIF :L1 = 1 [OP RA]IF :L1 = 2 [OP RB]IF :L1 = 3 [OP RCC]IF :L1 = 4 [OP RD]ENDTO CZAb}SOP I ( RANDOM COUNT :C1 ) + 1 :C1ENDTO RZECZOP I ( RANDOM COUNT :R1 ) + 1 :R1ENDTO PRZYMOP I ( RANDOM COUNT :P1 ) +b } 1 :P1ENDTO LOSOWANIEMAKE "L1 ( RANDOM 4 ) + 1MAKE "L2 ( RANDOM 4 ) + 1IF :L1 = :L2 [LOSOWANIE]ENDTO I :N :OIF EMPTb!}YP :O [OP "]IF :N = 1 [OP FIRST :O]OP I :N - 1 BF :OENDTO ZWROTKALOSOWANIEREPEAT 2 [( PR PRZYM RZECZ CZAS RZECZ.A ) ( b"}PR PRZYM RZECZ CZAS RZECZ.B )]ENDTO PRZERWAPR []ENDTO TYTULOP I ( RANDOM COUNT :TYT ) + 1 :TYTENDTO POEZJA :NPR Tb#}YTULPRZERWAREPEAT :N [ZWROTKA PRZERWA]ENDMAKE "P1 [[KLEISTY] [CZYSTY] [BRUDNY] [WSTRETNY] [NADOBNY] [GORYLOPODOBNY] [ZAb$}PADLY] [ZAJADLY] [OWDOWIALY] [OSIWIALY] [WYLYSIALY] [HUCZNY] [DUSZNY] [SAMOSIEWNY] [KOPALNY] [MROCZNY] [JASNY] [DRANSKI] [POGb%}ANSKI] [WYLACZNY] [PIERONSKI] [WYBITNY] [ZAROZUMIALY] [ZAPYZIALY] [WALACY] [TRWAJACY]]MAKE "R1 [[SIENNIK] [ZIELNIK] [IGIELNIb&}K] [WIR] [KAT] [WODZIREJ] [KANAREK] [PIES] [WYRWIDAB] [HAZARD] [PUSTELNIK] [KAPLAN] [GALGAN] [MROWKA] [KROWKA] [SZWAGIER] [MEb'}CZENNIK] [CZAROWNIK] [ZAWODNIK] [STRACH] [DRWAL] [BAL] [MALPA] [AUTOMOBIL]]MAKE "C1 [[SZARGAL] [PIESCIL] [KLOCIL] [DUSIL] [Kb(}ARCIL] [TULIL] [MIESCIL] [MOSCIL] [CHWALIL] [SACZYL] [WIERCIL] [BURZYL] [NOSIL] [PROSIL] [GROZIL] [MROZIL] [MACIL] [TRACAL] [b)}MIJAL] [UBIJAL]]MAKE "WB [[WIERZCHOLKIEM] [TOBOLKIEM] [KOZIOLKIEM] [MATOLKIEM] [KOLKIEM] [STOLKIEM] [KRECIOLKIEM] [BAWOLKIEMb*}] [ANIOLKIEM]]MAKE "WA [[DEBEM] [KLEBEM] [ZEBEM] [LADEM] [FRONTEM] [SADEM] [KATEM] [DRABEM] [ZBOJEM] [KROLEM] [PRADEM]]MAKEb+} "WCC [[WORAMI] [MURAMI] [KRAMI] [GRAMI] [CHMURAMI] [KWIATAMI] [LATAMI] [MARAMI] [BZDURAMI] [CECHAMI] [BORAMI] [LASAMI] [FALAb,}MI] [POLAMI] [WZORAMI] [DOGMARAMI] [KOBIETAMI] [DZIEWCZYNAMI] [KROWAMI] [WIERTARKAMI] [SLOWAMI] [RELIGIAMI]]MAKE "WD [[NOCA]b-} [PROCA] [PRACA] [GRACA] [MOCA] [NIEMOCA] [LANCA] [OWCA] [PRZEMOCA] [POMOCA] [EMOCJA] [PODLOSCIA] [WSZECHSTRONNOSCIA] [WIEDZAb.}] [GLUPOTA]]MAKE "L2 3MAKE "L1 1MAKE "TYT [[ETIUDA] [CZYSTA BZDURA] [POETYCZNOSC] [DADAIZM] [ATARIZM] [SLOWOMANIA] [LEPISZb/}CZE] [ZADZIWIENIE] [BZDURODOGMAT] [SPIEW PTASZAT BLADYM SWITEM] [DURNOWATOSC] [BEZ TYTULU] [JEDYNA PRAWDZIWA POEZJA] [RAFAELIb0}ZM]][ZADZIWIENIE] [BZDURODOGMAT] [SPIEW PTASZAT BLADYM SWITEM] [DURNOWATOSC] [BEZ TYTULU] [JEDYNA PRAWDZIWA POEZJA] [RAFAELI`TO HOMCSPUBK 50RT 90BK 150LT 45PDENDTO EXECS HT HOM PDDYWAN 180ENDTO DYWAN :PRZIF :PRZ > 10 [DYWAN :PRZ * 0.3f2}333333 LT 90 DYWAN :PRZ * 0.3333333 RT 90 DYWAN :PRZ * 0.3333333 RT 90 DYWAN :PRZ * 0.33333333 DYWAN :PRZ * 0.33333333 RT 90 f3}DYWAN :PRZ * 0.3333333 RT 90 DYWAN :PRZ * 0.3333333 RT 90 PU FD :PRZ * 0.3333333 PD DYWAN :PRZ * 0.3333333] [FD :PRZ]END d|0