NNNNNN&p   @o! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ / @ `  @` @`  @o! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ / @ `  @` @`GLUCKRAD 2. 2.. ACHTUNG 2[ALLERLEIFRA 2zA_1991 FRA 2 rB_1991 FRA 2DELIKAT FRA 2e ERGEBNISDAT 2GEBRAUCHTXT 2GLUCKRADFTH 2aGLUCKRADPRG 2xLSGLUCKUSETXT 2 KONTAKT TXT 2LIESMICHTXT 2NATUR FRA 2 RAD NEO 2}SACHEN FRA 2SSACHEN USE f25B_1991 USE ɝ2>ALLERLEIUSE d2J GLCKSRAD ST ist PD. Jeder darf es frei kopieren und sollte es an mglichst viele ST-Benutzer weitergeben. Updates sind von mir erhltlich gegen Unkostenbeitrag von DM 20 in bar. Wer mir seine/ihre eigenen .FRA-Dateien zur Verfgung stellt erhlt sein Update umsonst! Mir bekannte Benutzer von Glcksrad sind in GLCKUSE.TXT erfasst. Bitte nehmen Sie zu mglichst vielen Spielern Kontakt auf. Eine PC-Version ist in Vorbereitung. Die amerikanische Version Wheel of Misfortune fr MS-DOS ist von jedem PD-Hndler erhltlich. Heinrich Pesch Tiistilnkuja 1 E 50 SF-02230 Espoo Ein erfolgreiches Jahr 1990 wnscht allen Glcksrad- Freunden Heinrich Pesch 23.12.89 F`o 1-q)ڷGo ^_{7طJ`o 1-ZP-#o 1#x`o 1-f;Ko 1-Z#x`o 1-Z0%o 1#x`o 1-q*Ű@yo 1-Z#x`o 1-ZE1:Vo 1#x`o 1J9ުQx`o 1-Z#x`o 1-ZE1:Vo 1Wqo 1-(кKo 1-Z#x`o 1-Zv6'Q޹" 1#x`o 1O}?ӲBo`\LZ#x`o 1-Zh1.o 1#x`o 1-f3ֱ#x`oa_Cw1Ы#x`o 1-ZmŴ14Lϴ#\v#x`o 1]f;ѰFso 1-Z#x`o 1-ZM-2o 1#x`o 1Ef3۾Po 1-Z#x`o 1-ZD,2QԼ& 1#x`o 1Ou4ѼM mo EBZ#x`o 1-ZLx`o 1#x`o 1-q3۫Jx`o REd` #x`o 1-ZS+/o 1Lx`o 1-/ƼMŲo \Hg9ݼMx`o 1-ZW=,o 1#x`o 1-{7J`o T_q2#x`o 1-ZW=,o 1#x`o 1-f/ũF odE-u7#x`o 1-ZW=,o 1Gxr 1-dv?#x`o T_}4#x`o 1-ZW=,o 1#x`o 1Gx?Vx ro 1-Z#x`o 1-ZW=,o 1#x`o 1-}?#x`o{D@q/Mx`o 1-ZW=,o 1#x`o 1IfZ#x`ohSHv?Ǿ#x`o 1-ZW=,o 1V l1Cw2Fx`ol]Bq4з#x`e 1-ZW=,o 1#x`o 1Z}2۸@ qo 1-Z#x`o 1-ZD,2QԼ& 1#x`o 1-u6ضMx`o 1-Z#x`o 1-ZW=,o 1#x`o 1-|5ƭA lo 1-Z#x`o 1-ZW=,o 1#x`o 1-q4۰Px`o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-{(׻Bx`o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-a)ƻBx`o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-{6#x`o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-})ݶ@`o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-|5D o 1-Z#x`o 1-ZE1:Vo 1#x`o 1-{9ݪFso 1-Z#x`o 1-ZE1:Vo 1#x`o 1-u,ԫL`o 1-Z#x`o 1-ZS+/o 1#x`o 1-}9ڵBx`ojPXq)֬#x`o 1-ZV=2Po 1#x`o 1-}?#x`oa_H})ֱFx`~n]AZNa;(Qo 1Gx *{ 1-}.Fx`aTKxZ#x`sYHZNa;(Qo 1Jx z 1-q?߬M o 1-Z#x`o 1-ZNa;(Qo 1#x`o 1_`1Sjol1Zx<#x`o 1-ZNa;(Qo 1BŬd1Egf?Vxw{TEzZ#x`o 1-ZQ=7Qߤ! 1Feo 1-{2ܲB `o 1-Z#x`o 1-ZW=,o 1#x`o 1-q(O{ofWHZ#x`o 1-ZNa;(Qo 1#x`o 1IqZ#x`obTOg.ԭJx`o 1-ZW=,o 1#x`o 1F}?Gx`o EHz?#x`o 1-ZW=,o 1Jx`o 1@})Qmg1-Z#x>m n1-ZW=,o 1Fk 1W})ֱFx`z1XpZܾFx`o 1-ZNa;(Qo 1Jx`o 1Xq4ѵJ`zYD|.#x`o 1-ZW=,o 1F|{1L?۽Fţo~]YZ#x`o 1-ZW=,o 1#x`o 1-x;Ao 1-Z#x`o 1-ZLx`o 1#x`o 1-u4BxojXAZ#x`o 1-ZLx`o 1#x`o 1B`?ǰM`o 1-Z#x`o 1-ZLx`o 1#x`o 1-a.Mxpo 1-Z#x`o 1-ZS+/o 1#x`o 1-}6٠#ko 1-Z#x`o 1-ZS+/o 1#x`o 1@f=ԫFx`oaENq(#x`o 1-ZS+/o 1#x`o 1Bw;Spo 1-Z#x`o 1-ZS+/o 1#x`o 1Ow1ܷD`ohP^Z#x`o 1-ZLx`o 1#x`o 1IfZ`O `po 1-Z#x`o 1-ZLx`o 1#x`o 1IfZޫFx`o 1-Z#x`o 1-ZLx`o 1#x`o 1IqZŠQqgVDq2#x`o 1-ZLx`o 1#x`o 1]z.ڿE{o 1-Z#x`o 1-ZS+/o 1#x`o 1F}?Vx`o CDp?#x`o 1-ZW=,o 1Jx`o 1-v(Fx`o ZLu7ԪLx`o 1-ZW=,o 1Mk 1Cw2#x`o VBpZ#x`o 1-ZW=,o 1#x`o 1Lg3ֱWxqoeFCZ#x`o 1-ZW=,o 1#x`o 1-q5ǾFť o 1-Z#x`o 1-ZS+/o 1#x`o 1-xMmo 1-Z#x`o 1-ZN1+o 1#x`o 1-u6ټM o 1-Z#x`o 1-ZS+/;E1#x`o 1-c;Gx`ojCH6ܺKx`o 1-ZS+/o 1Qx  1-}9TxqoaZNq4#x`z XAZQ=.^ɥo 1Fxlo 1-1бQxko 1-Z#x`o 1-ZQ=.^ɥo 1Ox zo 1-(ڪWx|o 1-Z#x`o 1-ZQ=.^ɥo 1Jzo 1-d;#xmohU-x)Jxjo|\-u9Q=.^ɥo 1B zo 1^|7ܼGxgT-gZݼJx`lo 1-ZQ=.^ɥo 1Jzo 1Zf7Ы#oe1HzZ#x`~ KBZQ=.^ɥo 1#x`o 1-q6пBx`o 1-Z#x`o 1-ZP0%o 1#x`o 1-u)ЫG mo 1-Z#x`o 1-ZP0%o 1Bj 1-Z#x`o 1-Z#x`o 1-ZP0%o 1#x`o 1-f5ƭ# wo 1-Z#x`o 1-ZQ=.^ɥo 1Prosit 1991! #x`o 1-u.Mx`o 1-Z#x`o 1-Zj43]Ѵ$ 1Qqo 1-{(ƺKolE_yZ#x`o 1-ZLx`o 1#x`o 1-u6ܵFx`on]Dq3#x`o 1-ZS+/o 1#x`o 1-q(ư@ xohW@z4#x`o 1-ZA-&o 1#x`o 1^|3ٽAo}TD|Z#x`o 1-ZA*)Yo 1#x`o 1-{4ѼQodCFZ#x`o 1-ZD=.Kڿ+ 1#x`o 1-u>ܶSro 1-Z#x`o 1-ZA*)Yo 1#x`o 1-a)ƭF `o 1-Z#x`o 1-ZA*)Yo 1#x`o 1-u(ԽJu`o P]q6#x`o 1-ZD-3o 1#x`o 1Xx;Pzo 1-Z#x`o 1-ZA*)Yo 1#x`o 1-u=ԻVx`o 1-Z#x`o 1-ZS+/o 1#x`o 1X`?ܵP wo 1-Z#x`o 1-ZA*)Yo 1#x`o 1Zx<ƪ@ ko 1-Z#x`o 1-ZLx`o 1#x`o 1^|7ܼQ|x`o 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1K}4ƺK mo 1-Z#x`o 1-ZS+/o 1#x`o 1Kg.ƩJlo 1-Z#x`o 1-ZLx`o 1#x`o 1Ka9ݭJ lobT@Z#x`o 1-ZD=.Kڿ+ 1#x`o 1-q/ЫB o 1-Z#x`o 1-ZA*)Yo 1#x`o 1-v)No 1-Z#x`o 1-ZA*)Yo 1#x`o 1-u>ذQx`o 1-Z#x`o 1-ZS+/o 1#x`o 1Ld?Wqo 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1Ls?ۭJo 1-Z#x`o 1-ZS+/o 1#x`o 1Ln4аN olCHZ#x`o 1-ZA*)Yo 1#x`o 1Lg)ūB`o 1-Z#x`o 1-ZA*)Yo 1Jo 1-g9ݵVu`o GH;#x`o 1-ZF1'Vo 1#x`o 1Ow1зHqo 1-Z#x`o 1-ZHq(%K޸# 1#x`o 1Oa9ݪ@zo 1-Z#x`o 1-ZA*)Yo 1#x`o 1Oa7ƺK`o 1-Z#x`o 1-ZLx`o 1#x`o 1-q=аP xo 1-Z#x`o 1-ZA*)Yo 1#x`o 1-q3ӸOx`o 1-Z#x`o 1-ZA*)Yo 1#x`o 1O|;۽Oo 1-q3Ƽ#x`o 1-ZA*)Yo 1#x`o 1-{*ܼ#x`o 1-Z#x`o 1-ZD=.Kڿ+ 1Jzo 1]{=ǸN zT_u6Y`pl1-ZQ=.^ɥo 1Fx }1-{ZٸMxro{_CzZװPx`mjE-ZQ=.^ɥo 1J k 1-q(Bx kolBH;٪#jo|\-u9Q=.^ɥo 1#x`o 1Fq>ܭH o 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1Fdw2з@`o 1-Z#x`o 1-ZS+/o 1#x`o 1-f5޶Gx`o 1-Z#x`o 1-ZW*`o 1#x`o 1Fu7ſB `o 1-Z#x`o 1-ZHq(%K޸# 1#x`o 1Ff8еTo 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1-u4ѼPzo 1-Z#x`o 1-ZLx`o 1#x`o 1-a(ưUyo 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1-a4ƭPogT_q7#x`o 1-ZD=.Kڿ+ 1#x`o 1-}*żMo 1-Z#x`o 1-ZD=.Kڿ+ 1#x`o 1-a)S`o 1-Z#x`o 1-ZA*)Yo 1#x`o 1@s?ۯFx`o 1^}7جMx`o 1-ZA*)Yo 1#x`o 1-q3ټM o 1-Z#x`o 1-ZLx`o 1#x`o 1-})ƼQo 1-Z#x`o 1-ZA*)Yo 1#x`o 1-q"ܲB `o 1-Z#x`o 1-ZS+/o 1#x`o 1-}1ǶS`o 1-Z#x`o 1-ZD=.Kڿ+ 1Auf geht's! Frisch aus dem Wrterbuch eigenhndig abgeschrieben. (14.1.91) HP #x`o 1-x;ƪFzo 1-Z#x`o 1-ZS+/o 1#x`o 1Jg9wEu`o 1-2ǼQx`o 1-ZS+/o 1#x`o 1-u*еOzo 1-Z#x`o 1-ZS+/o 1#x`o 1Fz3ۺKko 1-Z#x`o 1-ZP13o 1#x`o 1-u(ܲB `o 1-Z#x`o 1-ZA*)Yo 1#x`o 1Ff/ƪFx`o 1-Z#x`o 1-ZD63^յo 1#x`o 1F}7ԲBu`o}^]qZ#x`o 1-ZA*)Yo 1#x`o 1F}4޼M mo 1-Z#x`o 1-ZS+/o 1#x`o 1-x/׳B`o 1-Z#x`o 1-ZG?`o 1#x`o 1-z;ٵF o 1-Z#x`o 1-ZA*)Yo 1#x`o 1^}?ӼOko 1-Z#x`o 1-ZG?`o 1#x`o 1-z?ܿYo 1-Z#x`o 1-ZG?`o 1#x`o 1F{8ٸVzo 1-Z#x`o 1-ZG?`o 1#x`o 1-{)зH o 1-Z#x`o 1-ZM-2o 1#x`o 1^q7ԷMzo 1-Z#x`o 1-ZG?`o 1#x`o 1-zſW wo 1-Z#x`o 1-ZG?`o 1#x`o 1-zũF o 1-Z#x`o 1-ZLx`o 1#x`o 1Fr<ЫWio 1-Z#x`o 1-ZS+/o 1#x`o 1Ns4ԺPto 1-Z#x`o 1-ZG?`o 1#x`o 1F|6ЩBo 1-Z#x`o 1-ZG?`o 1#x`o 1Jc?ݫHo 1-Z#x`o 1-ZG?`o 1#x`o 1Lr?ٲLo 1-Z#x`o 1-ZG?`o 1#x`o 1Fz>ܭLx`o 1-Z#x`o 1-ZS+/o 1@~ 1-ZHko 1-Z#x`o 1-ZP13o 1#x`o 1Fq>ܭKx`o 1-Z#x`o 1-ZS+/o 1#x`o 1-}7ڷBx`o 1-Z#x`o 1-ZD*To 1#x`o 1-}?ҼP o 1-Z#x`o 1-ZG?`o 1#x`o 1A`?ǸWvo 1-Z#x`o 1-ZB"%\ӿ:N1#x`o 1Aw1öDx`o 1-Z#x`o 1-ZA*)Yo 1#x`o 1Ar.׸O`o 1-Z#x`o 1-ZG?`o 1#x`o 1Ads?۽Fmo 1-Z#x`o 1-ZG?`o 1#x`o 1Agg9ݻO `o 1-Z#x`o 1-ZG?`o 1#x`o 1-u)ܼQ~o 1-Z#x`o 1-ZG?`o 1#x`o 1-u.Mimo 1-Z#x`o 1-ZS+/o 1#x`o 1_q)зAmo 1-Z#x`o 1-ZP13o 1#x`o 1-{>еA`o 1-Z#x`o 1-ZLx`o 1#x`o 1_gg.޸E`o 1-Z#x`o 1-ZD-3o 1#x`o 1_dw1׵Jx`o 1-Z#x`o 1-ZA*)Yo 1#x`o 1-a>ЫA `o 1-Z#x`o 1-ZG?`o 1#x`o 1-2ǼJx`o 1-Z#x`o 1-ZP13o 1#x`o 1-u6ϿBx`o 1-Z#x`o 1-ZG?`o 1#x`o 1-u7ؼO ro 1-Z#x`o 1-ZA*)Yo 1#x`o 1^`.еPoo 1-Z#x`o 1-ZG?`o 1#x`o 1^f= `o 1-Z#x`o 1-ZS+/o 1#x`o 1^|ѼOzo 1-Z#x`o 1-ZLx`o 1#x`o 1^|;ӣ o 1-Z#x`o 1-ZS+/o 1#x`o 1^|;Fmo 1-Z#x`o 1-ZS+/o 1#x`o 1-{4Ѫ@o 1-Z#x`o 1-ZM-2o 1#x`o 1^|7ЫYx`o TFpy*ӬMx`o 1-ZA*)Yo 1#x`o 1^|7ЭW xo 1-Z#x`o 1-ZM-2o 1#x`o 1-`?ũGo 1-Z#x`o 1-ZG?`o 1#x`o 1-a*ЫPo 1-Z#x`o 1-ZG?`o 1#x`o 1^f;ӾF jo 1-Z#x`o 1-ZG?`o 1#x`o 1-q7żQ o 1-Z#x`o 1-ZM-2o 1#x`o 1Ya)ֱKo 1-Z#x`o 1-ZA*)Yo 1#x`o 1Yz4ܪPzo 1-Z#x`o 1-ZG?`o 1#x`o 1-{(Mo 1-Z#x`o 1-ZP13o 1#x`o 1-f;һB`o 1-Z#x`o 1-ZG?`o 1#x`o 1Yu/׼Mo 1-Z#x`o 1-ZD*To 1#x`o 1Wg9ݸVu`o{SqZ#x`o 1-ZLx`o 1#x`o 1Y}6ټQ zo 1-Z#x`o 1-ZG?`o 1#x`o 1Ya*żM mooTJz=#x`o 1-ZP13o 1Bitte fr mich auch eine Portion! Lx`o 1-g.ǶDo 1-Z#x`o 1-Znx`o 1#x`o 1Jpz)еF `o 1]g.ЭFx`o 1-Zf0-\ТۼQ |o 1-Z#x`o 1-Za0!X޿o 1#x`o 1Ey7е#`mo 1-Z#x`o 1-Zby`o 1#x`o 1Av)޸Vx`o 1-Z#x`o 1-Zcx`o 1#x`o 1Og7ԫ@qo 1-Z#x`o 1-Zf2ˡo 1#x`o 1Kf?ٵFx`od]Af3Bx`o 1-ZN5ao 1#x`o 1@n;ǭH o 1-Z#x`o 1-Zf2Lϴn 1#x`o 1^w2ЫW o 1-Z#x`o 1-ZnŅ=3Z5[1#x`o 1@|4ƭQ o 1-Z#x`o 1-Zb0-So 1J o 1-ZcQx`o 1-dֲOx`o 1-Zn-4o 1#x`o 1Wf,еB ko 1-Z#x`o 1-Znx`o 1#x`o 1-q3۲Q `o 1-Z#x`o 1-Zj,`^ع*1Fq 1-)ԬF ko 1-Z#x`o 1-Zvx/Q @1E j 1Fu9ޮo 1-Z#x`o 1-Zj=`o 1#x`o 1Kx)ֱFzo 1-Z#x`o 1-Zj)SԦ&Zy#x`o 1Of=Ы#so 1-Z#x`o 1-ZnŃ=.wڽ< 1#x`o 1@x9ݮFo 1-Z#x`o 1-Z`9&Q.Z#x`o 1Er?ǻQx`o 1-Z#x`o 1-Zl=.o 1#x`o 1K{)ֱPzo 1-Z#x`o 1-Z loadflag @ 1 = and if cls oldload putname to-dta pathbuffer 0 dos open fileh ! fileh @ length @ filebottom @ dos read fileh @ dos close 2drop 1 loadflag ! else 0 loadflag ! endif ; : saveproc vdi show emptyname newsave namebuffer pathbuffer aes file-selector 1 = if cls oldsave save-it endif ; : puzzamount length @ 204 - 75 / lastdone ! ; : clearmarks usedstart @ lastdone @ erase ; : used-write fileh @ lastdone @ usedstart @ dos write fileh @ close 2drop ; : used-save use-extend newload putname pathbuffer 0 dos open fileh ! fileh @ 0 > if used-write endif ; : load-usefile use-extend puzzamount clearmarks putname pathbuffer 0 dos open fileh ! fileh @ 0 < if pathbuffer 0 dos create fileh ! used-write else fileh @ lastdone @ usedstart @ dos read fileh @ close 2drop endif ; forth-st special also create file-name 20 allot create nachricht 200 allot create merkki $015f w, create string 90 allot create mainbox mainbox gem e" [0][ Willkommen zum GLCKSRAD ST | | Was mcht en Sie | zunchst tun? ][ Spielen | INFO | EDIT ] " 0 w, create editbox editbox gem e" [2][ Wie geht's weiter? | Alte Datei laden oder | eine neue grnden? | ][LADEN|GRNDEN|Quit]" 0 w, create savebox savebox e" [2][ Was tun mit der Datei? | | |] [SICHERN|NDERN|QUIT]" 0 w, special also create 1zeile 40 allot : curse-it zeichen @ yc @ cursxy ; : zeile 0 zeichen ! curse-it 1zeile 40 32 fill begin 2 bios conin $ff and dup 13 = if 39 zeichen ! endif dup 0> if dup 8 = zeichen @ 0> and if zeichen 1-! drop curse-it else dup 1zeile zeichen @ + c! zeichen 1+! emit endif endif zeichen @ 39 > until ; : get-message 5 0 do i 10 + yc ! zeile 1zeile nachricht i 40 * + 40 special move loop ; create nationbox nationbox gem e" [2][ Mchtest Du andere Special-| zeichen verwe nden als | ?| ][ NIE! | IMMERZU! ]" 0 w, : cursorfill 1 vdi is-fill-type 1 vdi is-fill-color ; : primestring string 90 32 fill ; : search-char 0 cflag ! 32 0 do uppercase i + c@ viim @ = if 1 cflag ! leave endif loop cflag @ 0= if 32 0 do lowercase i + c@ viim @ = if 1 cflag ! uppercase i + c@ viim ! leave endif loop endif ; \ editor special also : stringplace cursx @ cursy @ 15 * + ; : xbox cursx @ breite @ * alkux @ + ; : ybox cursy @ breite @ * alkuy @ + ; : dofillbox xbox ybox breite @ dup vdi filled-rounded-rectangle ; : dobox xbox ybox breite @ dup vdi rounded-rectangle ; : charout xbox xchar @ + ybox yheight @ + ychar @ 1 1 vdi justified-text ; : oldchar stringplace string + c@ merkki 1+ c! merkki charout ; : putnew blankfill dobox oldchar ; : putsame blankfill dofillbox oldchar ; : neuzeichen viim @ stringplace string + c! putnew ; : putold cursorfill dofillbox oldchar ; \ cursor : up cursy @ 1 < if 3 cursy ! else cursy 1-! endif ; : down cursy @ 3 = if 0 cursy ! else cursy 1+! endif ; : links cursx @ 0= if 14 cursx ! up else cursx 1-! endif ; : rechts cursx @ 14 = if 0 cursx ! down else cursx 1+! endif ; : right cursx @ 14 = if 0 cursx ! else cursx 1+! endif ; : left cursx @ 0= if 14 cursx ! else cursx 1-! endif ; : backspec 32 viim ! neuzeichen putsame left putold ; : backnorm 32 viim ! neuzeichen putsame links putold ; : cursorkey putnew viim @ >w< $ff and case $48 of putsame up putold endof $4D of putsame rechts putold endof $4B of putsame links putold endof $50 of putsame down putold endof $3F of 1 effive ! 1 stop ! endof endcase ; : normkey viim @ $ff and viim ! search-char cflag @ 1 = if putsame neuzeichen rechts putold endif viim @ 8 = if backnorm endif ; : speckey viim @ $ff and dup viim ! 8 = if backspec else putsame neuzeichen right putold endif ; : didcursor 1 specuse ! ; : speccursor putnew viim @ >w< $ff and case $4b of putsame left putold didcursor endof $4d of putsame right putold didcursor endof $58 of 1 effive ! 1 stop ! didcursor endof endcase ; : encode-puzzle 75 0 do string i + dup c@ CODEBUFFER i + c@ xor swap c! loop ; \ : edittext ychar @ res @ - vdi is-character-height 1 vdi is-fill-index 7 vdi is-text-color 1 vdi is-writing-mode 0 is-text-effect cursoff ; : taste 2 bios conin dup viim ! $ff and 13 = if 1 stop ! else cursorkey normkey endif ; : baseinput 0 stop ! puzznum @ 7 vdi is-text-color begin taste stop @ 0> until putsame ; : lastpuzz filestart @ puzznum @ 75 * + ; : specin 2 bios conin dup viim ! 0 specuse ! $ff and dup 13 = if 1 stop ! drop else speccursor specuse @ 0= if speckey endif endif ; : specquest 10 res @ * 15 cursxy ." JETZT DIE ERKLRUNG: " ; : specinput specquest 5 cursy ! 0 cursx ! putold 0 stop ! 3 vdi is-text-color begin specin stop @ 0> until putsame string 75 + string 60 + 15 special move encode-puzzle string lastpuzz 75 special move ; : title-look 32 vdi is-character-height 5 is-text-color 1 is-text-effect ; : main-title " GLCKSRAD ST" ; : gametitle title-look main-title 20 res @ * 25 res @ * 280 res @ * 1 1 vdi justified-text ; : edit-title " GLCKSRAD EDITOR" ; : titleout title-look edit-title 0 res @ * 25 res @ * 320 res @ * 1 1 vdi justified-text ; : numbering res @ 10 * 22 cursxy ." FRAGE NUMMER: " puzznum @ 1+ . ." " ; : wipe-old cursorfill 0 vdi is-fill-color alkux @ alkuy @ breite @ 15 * breite @ 6 * vdi bar ; : grossklein leer 4 32 fill 4 0 do 9 0 do j nationchar + c@ i 9+ fremd + c@ = if i fremd + c@ leer j + c! leave endif loop loop leer lowercase 28 + 4 special move ; \ get number from keyboard special also variables lkey ; : all-in pad 20 expect ; : rein all-in span @ 0 ?do pad i + c@ $30 - lkey ! lkey @ 10 < lkey @ -1 > and if puzznum @ 10 * lkey @ + puzznum ! endif loop ; : holrein 0 puzznum ! rein ; : file-to-string lastpuzz string 75 special move encode-puzzle string 60 + string 75 + 15 special move ; : display-object 0 0 cursx ! cursy ! blankfill 60 0 do putnew rechts loop 0 0 cursx ! cursy ! putold ; : display-spec 0 cursx ! 5 cursy ! blankfill 15 0 do putnew right loop 0 cursx ! 5 cursy ! putold ; : howmuch ." Die Datei hat " lastdone @ . ." Fragen." ; : getnumber clearstack res @ 10 * 17 cursxy howmuch res @ 10 * 21 cursxy curson ." Wir beginnen mit Frage No: " holrein puzznum 1-! res @ 10 * 21 cursxy ." " cursoff ; : newobject primestring wipe-old display-object numbering baseinput effive @ 0= if display-spec specinput puzznum 1+! 1 lastdone +! endif ; : oldobject wipe-old file-to-string display-object numbering baseinput effive @ 0= if display-spec specinput puzznum 1+! endif ; : f5info 10 res @ * 23 cursxy ." F5 = DAS REICHT!" ; : messageread 5 0 do 40 0 do filebottom @ j 40 * + i + c@ emit loop cr loop ; : nationals 0 nowchar ! nationchar 20 32 fill begin key 8 = nowchar @ 0> and -1 = if lastkey @ emit nowchar 1-! else lastkey @ nationchar nowchar @ + c! lastkey @ emit nowchar 1+! endif lastkey @ 13 = until grossklein nationchar uppercase 28 + 4 special move nationchar filestart @ 4 special move ; : putexot filebottom @ 200 + uppercase 28 + 4 special move filebottom @ 200 + nationchar 4 special move ; : loadproc loadfile loadflag @ 0> if cls messageread CR ." DRCKE EINE BELIEBIGE TASTE" putexot grossklein 204 filestart +! puzzamount KEY endif ; : enter-message cls ." SCHREIBE EINEN TEXT (5 * 40 ZEICHEN)" cr ." DER MIT DER DATEI GESPEICHERT WIRD:" cr cr get-message nachricht filestart @ 200 special move 200 filestart +! 1 nationbox aes alert 2 = if cls ." BITTE UM DIE NEUEN ZEICHEN!" cr ." Maximal 4 (vier) Stck." ." Bitte GROSSbuchstaben!" cr ." Korrekturen mit !" cr ." : " nationals else $8E999A20 filestart @ ! \ putexot endif cls cursoff filestart 4+! ; : editfile cls vdi hide titleout edittext f5info getnumber 0 effive ! begin lastdone @ puzznum @ > if oldobject else newobject endif effive @ 0> until vdi show ; : nosave cls ." Dateisicherung desaktiviert! " key . cls ; : editproc editfile begin 0 stop ! 1 savebox aes alert case 1 of saveproc endof 2 of editfile endof 3 of 22 stop ! endof endcase stop @ 22 = until ; : file-entry curson enter-message cls titleout 0 puzznum ! vdi hide edittext 0 effive ! f5info begin newobject effive @ 0> until begin vdi show puzznum @ lastdone ! 1 savebox aes alert case 1 of saveproc endof 2 of editproc endof 3 of 22 stop ! endof endcase stop @ 22 = until ; : edit-proc cls titleout edittext initpaths begin filebottom @ filestart ! primestring cursoff clearstack 1 editbox aes alert case 1 of loadproc cls loadflag @ 1 = if editproc endif endof 2 of file-entry endof 3 of 33 stop ! endof endcase stop @ 33 = until ; : edstart mono? here 1000 + filebottom ! edit-proc ; \ end of editor-part \ start of game-part create viesti 16 allot create unten %00000110 w, 1 w, 1 w, 1 w, 1 w, 0 w, 0 w, 640 w, 400 w, 0 w, 0 , 0 , 0 w, 0 w, create oben %00000110 w, 1 w, 1 w, 0 w, 1 w, 0 w, 0 w, 640 w, 400 w, 0 w, 0 , 0 , 0 w, 0 w, create short %100011 w, 1 w, 1 w, 1 w, 1 w, 0 w, 0 w, 640 w, 400 w, 0 w, 0 w, 0 w, 0 w, 0 w, 200 w, 0 w, : womaus 2drop 2drop drop ymouse ! xmouse ! ; : knopf unten viesti aes multiple womaus oben viesti aes multiple womaus ; : nix short viesti aes multiple what? ! 2drop 2drop 2drop oben viesti aes multiple clearstack ; \ neue Form fr forefinger-mouse create macfinger 2 w, 1 w, 1 w, 0 w, 1 w, %0011110000000000 w, %1111111000000000 w, %1111111100000000 w, %1111111100000000 w, %1111111100000000 w, %1111111100000000 w, %1111111111111100 w, %1111111111111110 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %1111111111111111 w, %0000000000000000 w, %0011110000000000 w, %0100001000000000 w, %0100001000000000 w, %0100001000000000 w, %0100001000000000 w, %0100001000000000 w, %0100001111111100 w, %0100001000100010 w, %0100001000100010 w, %0100000000000010 w, %0100000000000010 w, %0100000000000010 w, %0100000000000010 w, %0111111111111110 w, %0000000000000000 w, : machiiri macfinger aes is-mouse ; variable zeit variable what? create viesti 16 allot create short %100010 w, 1 w, 1 w, 1 w, 1 w, 0 w, 0 w, 100 w, 100 w, 0 w, 0 w, 0 w, 0 w, 0 w, 200 w, 0 w, : nix short viesti aes multiple what? ! 2drop 2drop 2drop ; : zeitstr " Noch 20 sek.!" ; : -1sek zeit @ 10 / $30 + zeitstr 6+ c! zeit @ 10 mod $30 + zeitstr 7+ c! zeit @ 1- zeit ! ; : zeitout zeitstr 100 100 200 0 0 vdi justified-text ; : zeitproc 19 zeit ! $3230 zeitstr 6+ w! 1000 short 28 + w! begin zeitout nix zeit @ -1 > what? @ dup . 2 <> and while -1sek repeat ; create einbau $20202020 , create fremd \ mauskontrolle alt : knopf begin vdi mouse-state what? ! ymouse ! xmouse ! what? @ 0> until mousestop ; : actions begin knopf xmouse @ xmin @ > xmouse @ xmax @ < and ymouse @ ymin @ > ymouse @ ymax @ < and and -1 = until ; : action-click xact @ dup xmin ! leveys @ 4* + xmax ! yaakkbox @ dup ymin ! salittu @ + ymax ! actions ; : vowel-click xaakkbox @ dup xmin ! leveys @ 10 * + xmax ! yaakkbox @ dup pituus @ 2* + ymin ! pituus @ 3 * + ymax ! actions ; \ integer zu string : z$ " M " ; : zahl luku ! 1000000 teiler ! z$ 2+ dup stelle ! 8 32 fill luku @ 0< if 0 luku ! endif luku @ teiler @ > if 0 luku ! endif begin luku @ dup teiler @ / dup $30 + stelle @ c! teiler @ * - luku ! teiler @ 10 / teiler ! 1 stelle +! teiler @ 0= until z$ 2+ 48 enclose 2drop 32 fill 48 z$ 8+ c! ; : allchars " BCDFGHJKLMNPQRSTVWXZAEIOUY - " ; create muisti 60 allot create store 60 allot create olleet 30 allot create spectext 16 allot 15 spectext c! create puzzle 75 allot : textlook vdi is-writing-mode vdi is-text-effect vdi is-character-height vdi is-text-color ; : fillook vdi is-fill-type vdi is-fill-index vdi is-fill-color vdi is-writing-mode ; : now-name 15 perustext @ 0 1 textlook ; : not-name 9 perustext @ 2 1 textlook ; : helltext pituus @ 3- 2 3 textlook ; : normtext pituus @ 3- 0 2 textlook ; : used-konsonant-text 8 helltext ; : fresh-konsonant-text 1 normtext ; : action-on-text 2 normtext ; : action-off-text 8 helltext ; : vocal-on-text 1 normtext ; : vocal-off-text 8 helltext ; : smalltext 1 pituus @ res @ 1 = if 3 / else 2/ endif 0 3 textlook ; : spintext 1 perustext @ 0 1 textlook ; : comm-fill 1 6 9 1 fillook ; : fillhow 2 9 4 1 fillook ; : res? xbios getrez case 0 of 1 res ! endof 1 of 1 res ! endof 2 of 2 res ! endof endcase 0 0 320 res @ * 200 res @ * vdi is-clip 10 res @ * leveys ! 16 res @ * pituus ! 20 res @ * ypuzzbox ! 160 res @ * xpuzzbox ! 150 res @ * yaakkbox ! 160 res @ * xaakkbox ! xaakkbox @ leveys @ 11 * + xact ! xpuzzbox @ leveys @ + xspec ! ypuzzbox @ pituus @ 4 * + yspec ! ypuzzbox @ pituus @ 6 * + ycomm ! 24 res @ * yecke ! res @ 1 = if 6 10 else 13 20 endif abstand ! perustext ! ; : clearbox 1 vdi is-writing-mode 0 vdi is-fill-type ; : fullbox 2 vdi is-fill-type ; : mousestop begin vdi mouse-state nip nip 0= until ; : shadefill 3 vdi is-writing-mode 3 vdi is-fill-type ; : comm-off comm-fill vdi hide xpuzzbox @ ycomm @ leveys @ 16 * pituus @ vdi filled-rounded-rectangle vdi show ; : 1object found @ 15 mod leveys @ * xpuzzbox @ + found @ 15 / pituus @ * ypuzzbox @ + leveys @ pituus @ vdi bar ; : 1kirjain fillhow merkki column @ leveys @ * 2+ xpuzzbox @ + row @ pituus @ * 3- ypuzzbox @ + vdi text ; create saldos 12 allot create pocket 12 allot create freespins 12 allot : show-frees yecke @ yname ! spintext pelaaja-luku @ 0 do freespins i 4* + @ 48 + merkki 1+ c! merkki 144 yname @ vdi text 24 res @ * yname +! loop ; : show-account yecke @ yname ! spintext pelaaja-luku @ 0 do pocket i 4* + @ zahl z$ 72 yname @ vdi text saldos i 4* + @ zahl z$ 72 yname @ perustext @ + 2+ vdi text 24 res @ * yname +! loop ; : add-money palkka @ play-account +! play-account @ pocket now-player @ 4* + ! show-account ; : insound 17 0 do w, loop ; hex create pling FF00 0f00 0e07 0d00 0c0F 0b0F 0a00 0900 0811 07fe 0600 0500 0400 0300 0200 0101 0000 insound CREATE stille FF00 0f00 0e07 0d00 0c00 0b00 0a00 0900 0800 07FE 0600 0500 0400 0300 0200 0100 0000 insound create summ FF00 0f00 0e07 0d0D 0c00 0b0F 0a00 0900 0811 07fe 0600 0500 0400 0300 0200 010A 0000 insound create knac FF00 0f00 0e07 0d0D 0c00 0b0F 0a00 0900 0811 07f7 0600 0500 0400 0300 0200 010A 0000 insound decimal : pip pling xbios dosound ; : ruhe stille xbios dosound ; : summm summ xbios dosound ; : baddy summm 1000 aes wait ruhe ; : gotit pip 200 aes wait ruhe ; : goody 5 0 do gotit loop ; : knack knac xbios dosound 5 aes wait ruhe ; create voittoluvut 0 w, 300 w, 800 w, 400 w, 600 w, 0 w, 200 w, 700 w, 1000 w, 400 w, 0 w, 400 w, 200 w, 2000 w, 0 w, 300 w, 200 w, 350 w, 400 w, 0 w, 200 w, 450 w, 500 w, 200 w, create voittostring ," 50 % 300 800 400 600FREI 200 7001000 400100% 400 200200050 % 300 200 350 400RAUS 200 450 500 200" create 1voitto 5 allot 4 1voitto c! : 1raus 1voitto voittox @ voittoy @ vdi text ; : nowstring voittostring 1+ voitto-num @ 4* + 1voitto 1+ 4 special move ; : comm-out vdi hide smalltext xpuzzbox @ ycomm @ pituus @ 2 3 */ + vdi text vdi show ; : nix-da " Steuerflchtling?" ; : losetext " Der nchste bitte!" ; : sorrytext " Leider kein ! " ; : winstring " M pro Buchstabe!" ; : taxstring " Dank vom Finanzamt" ; : freestring " Ein Freispiel! " ; : sorry-out sorrytext comm-out ; : sorry! sorry-out baddy comm-off ; : winstring-out voittostring 1+ voitto-num @ 4* + winstring 3 + 4 special move winstring comm-out ; : 100%act play-account @ 0= if nix-da else taxstring endif comm-out baddy 1000 aes wait comm-off 0 pocket now-player @ 4* + ! show-account 0 choose ! ; : freeact freestring comm-out goody 2 choose ! 1 now-player @ 4* freespins + +! show-frees ; : loseact losetext comm-out baddy 1000 aes wait 0 choose ! comm-off ; : spin-origo res @ dup 25 * voittox ! 108 * voittoy ! ; : 9raus spin-origo 9 0 do nowstring 1raus abstand @ voittoy +! voitto-num @ 1+ 24 mod voitto-num ! loop knack ; : 50%act play-account @ 0= if nix-da else taxstring endif comm-out baddy 1000 aes wait comm-off play-account @ 2/ pocket now-player @ 4* + ! show-account 0 choose ! ; : moneyact nowstring winstring-out 1 choose ! voitto-num @ 2* voittoluvut + w@ palkka ! ; : windisplay step-num @ 3 + 24 mod voitto-num ! voitto-num @ case 0 of 50%act endof 5 of freeact endof 10 of 100%act endof 14 of 50%act endof 19 of loseact endof moneyact \ default endcase ; : spinrahmen 4 vdi is-fill-color voittox @ 10 - voittoy @ abstand @ - 50 abstand @ 9 * 2 res @ * + vdi bar ; : free-rahmen yecke @ yname ! 0 vdi is-fill-type pelaaja-luku @ 0 do 142 yname @ perustext @ 2+ - 12 perustext @ 6+ vdi bar 24 res @ * yname +! loop ; : k-shadow vdi hide shadefill xaakkbox @ yaakkbox @ leveys @ 10 * pituus @ 2* vdi bar vdi show ; : a-shadow vdi hide shadefill xaakkbox @ yaakkbox @ leveys @ 10 * pituus @ 3 * vdi bar vdi show ; : v-shadow vdi hide shadefill xaakkbox @ yaakkbox @ pituus @ 2* + leveys @ 10 * pituus @ vdi bar vdi show ; special also : marker voittox @ 4- voittoy @ pituus @ 2* + 38 abstand @ vdi bar ; : voittospin begin step-num @ voitto-num ! 9raus pause @ aes wait step-num @ 1+ 24 mod step-num ! spintime 1-! spintime @ 10 < if 100 pause +! endif pause @ 1000 = until ; : spin-display spintext 0 vdi is-fill-type spin-origo spinrahmen marker 0 pause ! xbios random 30 mod 20 + spintime ! voittospin windisplay ; : buy " Vokal" ; : spin " DREH!" ; : know " Lsung" ; : actionarea 3 0 do vdi hide xact @ yaakkbox @ pituus @ i * + leveys @ 4* pituus @ vdi bar loop vdi show ; : know-out know vdi hide xact @ yaakkbox @ pituus @ + 3 - leveys @ 4* 1 1 vdi justified-text vdi show ; : spin-out vdi hide spin xact @ yaakkbox @ pituus @ 2* + 3 - leveys @ 4* 1 1 vdi justified-text vdi show ; : buy-out vdi hide buy xact @ yaakkbox @ pituus @ 3 * + 3 - leveys @ 4* 1 1 vdi justified-text vdi show ; : act-texts action-on-text know-out spin-out buy-out ; : 1st-spin spin-origo spintext 0 vdi is-fill-type spinrahmen marker 9raus ; \ mauskontrolle : right-mouse? xmouse @ xmin @ > xmouse @ xmax @ < and ymouse @ ymin @ > ymouse @ ymax @ < and and ; : actions begin knopf right-mouse? -1 = until ; : action-click xact @ dup xmin ! leveys @ 4* + xmax ! yaakkbox @ dup ymin ! salittu @ + ymax ! actions ; : vowel-click xaakkbox @ dup xmin ! leveys @ 10 * + xmax ! yaakkbox @ dup pituus @ 2* + ymin ! pituus @ 3 * + ymax ! actions ; : letter-click xaakkbox @ dup xmin ! leveys @ 10 * + xmax ! yaakkbox @ dup ymin ! pituus @ 3 * + ymax ! ; : konso-click xaakkbox @ dup xmin ! leveys @ 10 * + xmax ! yaakkbox @ dup ymin ! pituus @ 2* + ymax ! actions ; : mplace xmouse @ xaakkbox @ - leveys @ / ymouse @ yaakkbox @ - pituus @ / 10 * + paikka ! ; create konsit $42434446 , $47484a4b , $4c4d4e50 , $51525354 , $5657585a , \ B C D F G H J K L M N P Q R S T V W X Z : kons? 20 0 do dup i konsit + c@ = if konsnum 1+! drop leave endif loop ; : tausta vdi hide found @ 10 mod leveys @ * xaakkbox @ + found @ 10 / pituus @ * yaakkbox @ + leveys @ pituus @ vdi bar vdi show ; : kirjain-out found @ allchars 1+ + c@ merkki 1+ c! vdi hide merkki found @ 10 mod leveys @ * xaakkbox @ + 2+ found @ 10 / 1+ pituus @ * yaakkbox @ + 3- vdi text vdi show ; : put-at dup 15 mod column ! 15 / 1+ row ! 2 normtext 1kirjain ; : put-strich 2 muisti found @ + c! clearbox 1object 32 merkki 1+ c! found @ put-at 45 store found @ + c! 45 merkki 1+ c! found @ put-at ; : scan-object 0 letternum ! 0 konsnum ! vdi hide 1 vdi is-writing-mode 60 0 do i found ! puzzle i + c@ present ! present @ dup 32 > if 45 = if put-strich else 1 letternum +! 1 muisti i + c! clearbox 1object puzzle i + c@ kons? endif else 0 muisti i + c! fullbox 1object endif loop vdi show ; : aakkot fillhow vdi hide fresh-konsonant-text 20 0 do i found ! kirjain-out 0 vdi is-fill-type tausta loop vocal-on-text 30 20 do i found ! kirjain-out 0 vdi is-fill-type tausta loop vdi show ; : reverse-old found @ allchars 1+ + c@ merkki 1+ c! found @ 20 < if used-konsonant-text else vocal-off-text endif kirjain-out ; : store-it cursorplace @ store + c! ; : look-for 0 success ! 60 0 do puzzle i + c@ found @ = if found @ merkki 1+ c! 1 doneletters +! i put-at found @ i store + c! 2 i muisti + c! 1 success +! gotit endif loop comm-off success @ 0= if found @ sorrytext 14 + c! sorry! endif ; : get-letter action-off-text know-out letter-click actions mplace paikka @ dup found ! olleet + c@ 0 = if 1 found @ olleet + c! reverse-old found @ allchars 1+ + c@ dup found ! 32 <> if look-for endif endif action-on-text know-out ; : put-empty mplace gotit cursorplace @ found ! clearbox 1object paikka @ allchars 1+ + c@ dup merkki 1+ c! store-it 2 normtext 1kirjain 1 doneletters +! ; : get-empty letter-click actions put-empty ; : no-good " Nicht ganz !" ; : ok " Stimmt genau!" ; : correction 0 60 0 do puzzle i + c@ store i + c@ - + loop 0<> if 60 0 do i muisti + c@ 255 = if 32 store i + c! 1 muisti i + c! i found ! clearbox 1object doneletters 1-! endif loop comm-off no-good comm-out baddy comm-off 0 success ! else comm-off ok comm-out goody comm-off 1 success ! endif ; create tiedostonimi 13 allot 12 tiedostonimi c! : spec-out puzzle 60 + spectext 1+ 15 special move smalltext clearbox xspec @ yspec @ leveys @ 13 * pituus @ vdi bar spectext xspec @ 2+ yspec @ pituus @ 2 * 3 / + vdi text spintext namebuffer tiedostonimi 1+ 12 special move tiedostonimi xspec @ leveys @ + yspec @ pituus @ 5 * 3 / + vdi text ; : virgin 255 cursorplace ! 60 0 do muisti i + c@ 1 = if i cursorplace ! 255 i muisti + c! leave endif loop ; create habsbox gem e" [2][ Sie wollen lsen? | ][ Bestimmt | Irrtum ]" 0 w, : write-it " Flle die Lcken! " ; : write-in action-on-text know-out action-off-text spin-out buy-out comm-off write-it comm-out 1 habsbox aes alert 1 = if begin virgin cursorplace @ 255 < if 95 merkki 1+ c! cursorplace @ put-at get-empty endif doneletters @ letternum @ = until correction comm-off else 66 irrtum ! endif action-on-text spin-out buy-out ; : get-vowel action-off-text know-out spin-out k-shadow comm-off -250 palkka ! vowel-click mplace paikka @ dup found ! olleet + c@ 0 = if 1 found @ olleet + c! reverse-old found @ allchars 1+ + c@ dup found ! 32 <> if look-for add-money endif endif action-on-text know-out spin-out k-shadow ; : get-konso action-off-text know-out v-shadow 0 success ! begin comm-off spin-display choose @ 2 < until choose @ 1 = if konso-click mplace paikka @ dup found ! olleet + c@ 0 = if 1 found @ olleet + c! reverse-old found @ allchars 1+ + c@ dup found ! 32 <> if look-for success @ konsnum -! success @ palkka @ * ratkaistu @ 2 = if 2* endif palkka ! add-money endif endif endif action-on-text know-out buy-out v-shadow ; create inputname 20 allot create allnames 24 allot create monikobox gem e" [2][ Willkommen zum GLCKSRAD | D-Versio n 2.5 (1/90) | Wieviele spielen heute mit? ][ Liste | 2 | 3 ]" 0 w, create roundbox gem e" [0][ Sieger dieser Runde ist: | | | Gut gemacht! ][ Fertig zur nchsten! ]" 0 w, create runoutbox gem e" [1][ Alle Konsonanten sind weg! | Weitermachen oder aufg eben? ][ Weiter | Aufgabe ]" 0 w, create freespinbox gem e" [2][ Mchten Sie ein | Freispiel benutzen? | | ][ JA | Noch nicht ]" 0 w, : welldone " Gut gemacht! " ; : atleast " Na endlich! " ; create doublebox gem e" [3][ gewinnt ! | Ihr Gewinn verdoppelt sich| wenn Sie das | folgende Rtsel lsen. | Bedenkzeit 20 Se kunden! ][ Her damit ]" 0 w, create winnerbox gem e" [0][ Der Sieger heit: | | Weitermachen | mit der selben Datei? ][ Ja! | Neu | Men ]" 0 w, create infobox gem e" [0][ Fr 20 DM die Save-Version | von Heinrich Pesch | Tiistilnkuja 1 E 50 | SF 02230 Espoo ][ OK | ??? ]" 0 w, create whosebox gem e" [0][ Zur Bestellung bitte das | Formular BESTELLE.TXT aus | diesem Ordner benutzen! ][ Ausdruck | Morgen | Desktop ]" 0 w, create dritte gem e" [1][ Auf zur letzten Runde! | | DOPPELTE GEWINNE !! | ][ Hurra! ]" 0 w, \ druckereinbinden hidden definitions : pemit ( c -- ) \ gebe zustzlich auf dem drucker aus dup \ byte kopieren Dos conout \ byte auf dem bildschirm ausgeben Begin ?terminal If drop Exit Endif prtoutstat Until \ warte auf drucker prtout \ byte auf den drucker lenken drop \ vergesse das flag ; forth-st hidden also : printer-on [ ' pemit ] Literal [ ' emit 2 + ] Literal ! ; : printer-off [ Dos ' conout ] Literal [ ' emit 2 + ] Literal ! ; forth-st special also : dick-ein $45 27 $47 27 emit emit emit emit ; create lomake ," bestelle.txt" 0 , create druckbox gem e" [1][ Bitte Drucker einschalten! | ][ Weiter | STOP ]" 0 w, : ausdruck cls vdi hide special cursoff lomake 1+ 0 dos open fileh ! fileh @ 0> if fileh @ 10000 filebottom @ dos read halt ! fileh @ dos close drop vdi show 1 druckbox aes alert vdi hide 1 = if printer-on dick-ein halt @ 0 do filebottom @ i + c@ hidden pemit loop printer-off key endif endif ; : infoproc 1 infobox aes alert 2 = if 2 whosebox aes alert case 1 of ausdruck endof 3 of 99 loppu ! endof endcase endif vdi show ; \ genug Geld fr Vokale? noch Konsonanten vorhanden? : whats-allowed? play-account @ 250 < if action-off-text buy-out pituus @ 2* salittu ! else action-on-text buy-out pituus @ 3 * salittu ! endif ; : richtigtext " Richtig wre:" ; : wartetext " Klick!" ; : zeig-richtig richtigtext comm-out 60 0 do i puzzle + c@ merkki 1+ c! i dup 15 mod column ! 15 / 1+ row ! 2 normtext 1kirjain loop goody goody comm-off wartetext comm-out key comm-off ; : roundwinner now-player @ 8* allnames + roundbox 40 + 8 special move konsnum @ 0= if atleast 1+ else welldone 1+ endif roundbox 64 + 14 special move mousestop 1 roundbox aes alert drop ; : run-out? konsnum @ 1 < if 1 runoutbox aes alert 1 = if 0 else zeig-richtig 1 endif endflag ! endif ; : namestring " :" ; : show-names yecke @ yname ! spintext pelaaja-luku @ 0 do i now-player @ = if now-name else not-name endif allnames i 8 * + namestring 1+ 8 special move namestring 0 yname @ vdi text 24 res @ * yname +! loop ; : turnstring " ist dran! " ; : turnout allnames now-player @ 8* + turnstring 3+ 8 special move comm-off turnstring comm-out ; : end-game doneletters @ letternum @ = if now-player @ 4* pocket + @ now-player @ 4* saldos + @ + now-player @ 4* saldos + ! pocket 12 erase show-account roundwinner 1 endflag ! ratkaistu 1+! else run-out? endflag @ 1 = if pocket 12 erase freespins 12 erase show-account endif endif ; : 1play machiiri now-player @ 4* pocket + @ play-account ! show-names show-account show-frees begin whats-allowed? turnout a-shadow action-click a-shadow comm-off ymouse @ yaakkbox @ - pituus @ / case 0 of write-in endof 1 of get-konso endof 2 of get-vowel endof endcase end-game doneletters @ letternum @ = success @ 0= or endflag @ 1 = or until ; : take-free? 1 freespinbox aes alert 1 = if -1 freespins now-player @ 4* + +! show-frees 1play endif ; : jatko? endflag @ 0= freespins now-player @ 4* + @ 0 > and if take-free? endif ; : decode-puzzle 75 0 do puzzle i + dup c@ CODEBUFFER i + c@ xor swap c! loop ; : coin 0 tries ! begin tries 1+! tries @ 100 > if clearmarks endif xbios random lastdone @ mod nowpuzz ! nowpuzz @ usedstart @ + c@ 0= until 1 nowpuzz @ usedstart @ + c! nowpuzz @ 75 * filestart @ + puzzle 75 special move decode-puzzle ; create konsbuffer 6 allot : 5kons " Whle 5 Konsonanten!" ; : 1vok " Und noch 1 Vokal!" ; : seuraava-kirjain virgin cursorplace @ 255 < if 95 merkki 1+ c! cursorplace @ 15 mod column ! cursorplace @ 15 / 1+ row ! 2 normtext 1kirjain else 66 irrtum ! endif ; : final correction comm-off success @ 0= if zeig-richtig endif ; : write-up action-on-text know-out action-off-text spin-out buy-out comm-off write-it comm-out begin doneletters @ letternum @ < while seuraava-kirjain get-empty repeat final action-on-text spin-out buy-out ; create sekmulti %100010 w, 1 w, 1 w, 1 w, 1 w, 0 w, 0 w, 640 w, 400 w, 0 w, 0 w, 0 w, 0 w, 0 w, 1000 w, 0 w, : clickright? what? ! 2drop 2drop ymouse ! xmouse ! ; : do-sek sekmulti viesti aes multiple mousestop clickright? what? @ 2 = if right-mouse? -1 = if 1 halt ! put-empty endif endif ; : zeitstr " Noch 20 sek.!" ; : -1sek zeit @ 10 / $30 + zeitstr 6+ c! zeit @ 10 mod $30 + zeitstr 7+ c! zeit @ 1- zeit ! ; : zeitout comm-off zeitstr comm-out ; : zeitproc 19 zeit ! $3230 zeitstr 6+ w! letter-click 0 halt ! seuraava-kirjain begin zeitout do-sek zeit @ -1 > halt @ 0= and while -1sek repeat halt @ 1 = if write-up else final endif ; : do-screen olleet 30 erase aakkot store 60 32 fill actionarea act-texts 0 doneletters ! scan-object spec-out free-rahmen ; : double coin do-screen 1st-spin comm-off 5kons comm-out action-off-text know-out buy-out spin-out v-shadow 5 0 do konso-click mplace paikka @ dup found ! olleet + c@ 0 = if 1 found @ olleet + c! reverse-old found @ allchars 1+ + c@ konsbuffer i + c! endif begin vdi mouse-state nip nip 0= until loop v-shadow comm-off 1vok comm-out k-shadow vowel-click mplace paikka @ dup found ! olleet + c@ 0 = if 1 found @ olleet + c! reverse-old found @ allchars 1+ + c@ konsbuffer 5 + c! endif mousestop k-shadow comm-off 6 0 do konsbuffer i + c@ found ! look-for loop doneletters @ letternum @ < if zeitproc endif doneletters @ letternum @ = if best @ 2* best ! endif now-player @ 1+ pelaaja-luku @ mod now-player ! ; : prep-double allnames winner @ 8* + doublebox 6 + 8 special move best @ zahl z$ 1+ doublebox 25 + 8 special move 1 doublebox aes alert ; : who-wins? 0 best ! pelaaja-luku @ 0 do i 4* saldos + @ best @ > if i 4* saldos + @ best ! i winner ! endif loop winner @ now-player ! show-names best @ 200 < if 200 best ! endif winner @ 8* allnames + winnerbox 30 + 8 special move ; : loadpuzz filebottom @ filestart ! initpaths loadproc loadflag @ 0> if filebottom @ 200 + allchars 27 + 4 special move filebottom @ length @ + 100 + usedstart ! load-usefile cls endif ; : sieg1 " Sieger des Tages ist: " ; : sieg2 " " ; : sieg3 " Die Preissumme betrgt " ; : sieg4 " DEM steuerfrei!" ; : sieg5 " Herzlichen Glckwunsch!" ; : sieg6 " Klick! " ; : siegraus sieg2 5+ 8 32 fill sieg4 5+ 8 32 fill allnames winner @ 8* + sieg2 5+ 8 special move best @ zahl z$ 2+ sieg4 5+ 7 special move 12 res @ * vdi is-character-height cls sieg6 sieg5 sieg4 sieg3 sieg2 sieg1 7 1 do 40 res @ * 20 res @ * i * 240 res @ * 0 0 vdi justified-text loop key ; special also variables tulos sormi highscore ; create nimet 88 allot create voittaja 8 allot create numerot 44 allot numerot 44 erase : from-score highscore @ numerot 44 special move highscore @ 44 + nimet 88 special move ; : to-score numerot highscore @ 44 special move nimet highscore @ 44 + 88 special move ; create results ," ergebnis.dat" 0 , : respath results 1+ last\ 16 special move ; : do-scores respath begin pathbuffer 0 dos create dup fileh ! 0> until highscore @ 132 erase nimet 88 erase fileh @ 132 highscore @ dos write drop fileh @ dos close drop ; \ sort highscore : mihin tulos ! 44 sormi ! 44 4 do numerot i + @ tulos @ > if i sormi ! leave endif 4 +loop numerot 4+ numerot sormi @ 4- special move tulos @ numerot sormi @ 4- + ! nimet 8+ nimet sormi @ 2* 8- special move winner @ 8* allnames + nimet sormi @ 2* 8- + 8 special move ; : ort special cursxy ; : scorelist cls 10 5 ort ." Die Ehrentafel:" 10 6 ort ." ---------------" 0 10 do 10 18 i - ort 11 i - . 12 18 i - ort ." . " 8 0 do nimet j 8* i + + c@ emit loop 25 18 i - ort ." DM " numerot i 4* + @ . -1 +loop 1000 aes wait cr cr ." drcke eine Taste!" key drop ; : scoreload respath pathbuffer 0 dos open fileh ! fileh @ 0< if do-scores else fileh @ 132 highscore @ read fileh @ close endif from-score best @ 0> if best @ mihin to-score pathbuffer 0 dos open fileh ! fileh @ 132 highscore @ write fileh @ close clearstack forth-st special also 0 best ! endif scorelist ; : 1game 0 endflag ! 0 best ! ratkaistu @ 2 = if 1 dritte aes alert drop endif coin do-screen 1st-spin begin 1play jatko? irrtum @ 33 <> if 0 irrtum ! now-player @ 1+ pelaaja-luku @ mod now-player ! endif endflag @ 1 = until ; : whatnow pelaaja-luku @ 1 > if cls 1 winnerbox aes alert dup case 1 of 1 newload? ! endof 2 of 0 newload? ! endof endcase endif ; \ nimien saanto : einname inputname 20 32 fill inputname 20 expect begin 0 500 0 do getkey + loop 0= until ; : anzahlfrage 0 pelaaja-luku ! 2 monikobox aes alert pelaaja-luku ! ; : 0input inputname 0 enclose nip nip ; : dienamen ." Nur nicht drngeln!" cr cr special curson ." 1. Spieler: " einname 0input allnames swap special move ." 2. Spieler: " einname 0input allnames 8 + swap special move pelaaja-luku @ 3 = if ." 3. Spieler: " einname 0input allnames 16 + swap special move endif ; : playersnum? 32 yname ! anzahlfrage pelaaja-luku @ 1 > if 0 15 special cursxy dienamen cursoff cls newload? @ 0= if loadpuzz 0 now-player ! endif else scoreload cls endif ; : play-proc 0 newload? ! 0 allused ! 0 loppu ! initpaths begin cls gametitle allnames 24 32 fill playersnum? 1000 aes wait loadflag @ 0> pelaaja-luku @ 1 > and if pocket 12 erase saldos 12 erase freespins 12 erase 0 ratkaistu ! begin ratkaistu @ 3 < while 1game repeat who-wins? prep-double drop double siegraus scoreload used-save endif whatnow 3 = until ; : knopf1 short viesti aes multiple oben viesti aes multiple ; special variables inkr size file kerta keskx kesky ; : klick1 1 short 28 + w! begin nix what? @ 32 = while kerta @ dup vdi is-fill-index 1+ 9 mod kerta ! keskx @ kesky @ size @ inkr @ dup 250 + vdi pie 1 kerta +! inkr @ 250 + 3600 mod inkr ! repeat ; : highalku 0 inkr ! 50 res @ * size ! 0 kerta ! cls 2 vdi is-fill-type vdi hide cursoff 60 res @ * keskx ! 75 res @ * kesky ! ; : do-wheel 1 vdi is-fill-type 20 0 do i 10 mod 1+ vdi is-fill-color keskx @ kesky @ size @ 180 i * dup 180 + vdi pie loop ; create newpal 32 allot create oldpal 32 allot create neoname ," rad.neo" : siirto special move ; : circulate-col newpal 2+ w@ newpal 4+ newpal 2+ 18 siirto newpal 20 + w! newpal xbios setpalette ; : klick2 begin nix what? @ 3 > while circulate-col repeat ; : get-neo cls vdi hide special cursoff neoname 1+ 0 dos open fileh ! fileh @ 0> if fileh @ 32128 filebottom @ dos read drop fileh @ dos close drop filebottom @ 4+ newpal 32 siirto newpal xbios setpalette filebottom @ 128 + xbios physbase 32000 siirto vdi show else highalku do-wheel klick2 endif ; : savepal 16 0 do i 1 xbios setcolor dup i 2* oldpal + w! i swap xbios setcolor drop loop oldpal newpal 32 special move ; : lowalku savepal get-neo klick2 oldpal xbios setpalette ; : straighttext 0 vdi is-angle 0 vdi is-text-effect 0 vdi is-text-color ; : main res? mono? here 1000 + filebottom ! here 500 + highscore ! res @ 2 = if highalku klick1 else lowalku endif straighttext vdi show begin special cursoff cls gametitle 1 mainbox aes alert case 1 of play-proc endof 2 of infoproc endof 3 of edit-proc endof endcase loppu @ 99 = until cursoff dos term ; ' main $52ef8 p! forth-st \ end of source-code `S0,o.. .N <//Bg?<JNAa oBNA n"| Sf$|N`"FIDDENN.ۋD920GPECIAL۞N.1)+41 &IAFCOSKN.X*62]6wDIOSN.zF?V~EBIOSN.oX{#U2EINEAN.4{ ^ISSEMBLERN.J"pO`io"K>.^(}[*W"AiCES-vN.bŚ;{XO ÚŇ:ŴCDIN.̞ʦ̈́טxͯYqhTJ/CEMN.--uKؿO>'Nu PPLICATIONN-OLD yN TACKDEPTH NPNURRENT^NFIDTHN ICTLIMITN0ASEfN LDNPLNINN#DOX // oN$?DO跋gX +/+/ oN _ PN%EAVE _ `N#OFfXNuY _ PNFIND>"[ Sr~ GSE$HƇ։fJ4 fDQX&g'<`Bg'<`Bg'<`B'< Nu$C"R( fB NufRANCH yX0N#XNugBRANCH yX Jf0N#XNuERFORM [ PNNu0N LEARSTACK&yBNuP!5&SNuP@' Nu0N'LEARRSG W.yNУP!ڳ.[Nu>IO HH&Nu>I H&NuXTENDJkBNu' "&Nu* &Nu* &Nu* &Nu6* &Nu/ &Nu/ &Nu/ &Nu6/ &Nu+[RNu+gTNu+sVNu+XNu+ZNu+\Nu+^Nu+PNu+ Nu-SNu-kUNu-WNu-{YNu-[Nu-]Nu-_Nu-QNu- NuALSEOBNuRUE'Jn`<>Jf`g`m`n`=Go`>sf`=Ylt`<Jk JkrQ`JjRQDD`=n +gBNu&NuITHIN" oBNuo&NuXECUTE [NNuTOGGLE [ NuVEN+gRNuXITXNuEXITJgXNuOUNT SRBPNuOOPdNuMOVE "[ [JgSfNuMOVE> "[ [Jg  SfNuILL+ " [JgSfNuNCLOSE  SrR0g'0ggR`fR''Nu'R'Nu>CFA SX&Nu>PFA( S &Nu>LFAD S&Nu>NFA S]YJ jS&Nu>LFA~ Nu>CFA]Nu>NFAj SYJ jS&Nu>LFAYNu>PFA\NuICKx '3NuOLLp "3"K IX!!YnX'Nu Я'Nu'}'/Nu!Y /Я'Nu''/Nu!y /Я 'Nu''/NuR/Nu@'NuR@b/NuDROP%XNu2DROPtPNu _ NuUSHߺ"W [.//<NѣP@'Nu'Nu''/Nu'/Nu' '/ Nu3'/Nu''/Nu*S &Nu/g "H&NuMOD "HAH&Nu* &Nu/ "7ABSNuMOD "HA7ABSNu+! [RNu+! [XNu+! [ PNu! [ Nu-! [SNu-! [YNu-! [ PNu! [ Nu@f S&Nu!; [ NuP@ S P&NuP!V [ P NuP+ NuPICKv &NuP+ NuOVE "[ [JgnSf`  SfNuNSTR,(".&t"G*S$D fQ&'<` RRQBNu=., F"Gz f Q&`n&`&S'BNu,] yX #XNuONVERTX [4209v"|R0k*  o o_lHBBBԁԃ2HBJkR`67S'NuNIT'' ' NuUT"h$h 2 5@ 4NuET$h 5@ 4&NuINE1| $[!Z"!Z!R 1@, 1@* 1@( 1@&NuLINE1| $[!Z.!Z21Z$!Z!R 1@* 1@( 1@&NuHOW"h$hBj5|BQ NuIDEN Nu RANSFORM"hr\$["Q NuNDRAW$[ NuRAW$[ ["  Nu ECTANGLE1| $[1Z$!Z.!Z21Z6!Z8!Z\1|@p20 _"_Q00NuOLYGONР"[&.,SF*((1Y$!Y.!Y21Y6!Y8!Y?+?<NNX&NuHYSBASE?<NNT'NuOGBASE?<NNT'NuETREZ?<NNT7BcNu ETSCREEN ?//?<NNPXNu ETPALETTE/?<NN\NuETCOLOR9 ? ??<NN\7BcNuLOPRDt ?QB/?<NNH'NuLOPWRyt ?QB/?< NNH'NuLOPFMT ?// ??<NNPNuDISINT ??<NNXNuENABINT ??<NNXNuIACCESSV ??+?<NN\7@NuFFGIBIT ??<NNXNuNGIBIT ??<NNXNuBTIMER/ ? ? ??<NNPXNuOSOUND/?< NN\NuETPRT?+?<!NNX7@BSNuBDVBASE?<"NNT'NuBRATE ??+?<#NN\7@NuRTBLK/?<$NN\NuVBL?<%NNTNuUPEXECq/?<&NN\NuETMPB/BgNM\Nu ONINSTAT?+?<NMXH&NuONIN?+?<NMX&NuONOUT& ? ??<NM\NuWABS ? ? ?/?+?<NMP\H&NuETEXEC/?+?<NMP&NuICKCAL?<NMT'NuETBPB?+?<NMX&Nu ONOUTSTATa?+?<NMXH&NuEDIACH?+?< NMX7@BSNuRVMAP?< NMT'NuBSHIFT?+?< NMX7@BSNuERMBgNANuONIN?<NAT'NuONOUT ??<NAXNuUXIN?<NATB#BcNuUXOUT @??<NAXNuRTOUT?+?<NAXH&NuAWCONIOL?+?<NAX&NuCIWE?<NAT'Nu RINTLINE/?< NA\'NuEADLINE /?< NA\7BcNuONSTAT?< NATH'NuETDRV?+?<NAX7@BSNu RTOUTSTAT@?<NATH'Nu UXINSTAT?<NATH'Nu UXOUTSTAT?<NATH'Nu URRENTDISKz?<NAT7BcNuETDTA/?<NA\NuUPER+/?< NA\&NuETDATE?<*NAT7BcNuETDATEB ??<+NAXNuETTIMEq?<,NAT7BcNuETTIMEt ??<-NAXNuETDTAZ?</NAT'Nu ETVERSION?<0NAT7BcNu EEPPROCESS ?/?<1NANuETDFS ?/?<6NAPNuKDIR/?<9NA\H'NuMDIRO/?<:NA\H'NuHDIR /?<;NA\H'NuREATEf ?/?<NAXH&NuEAD//?+?<?NAPX&NuRITE//?+?<@NAPX&NuNLINK/?<ANA\H'NuSEEK ? ?/?<BNAPT'NuHMOD ? ?/?<CNAPTH'NuETDIR ?/?<GNAPH'NuALLOC/?<HNA\&NuFREE/?<INA\H'NuETBLOCK//Bg?<JNAPXH&NuXEC/// ??<KNANuFIRST ?/?<NNAPH'NuNEXT?<ONATH'NuENAME//Bg?<VNAPXH'NuSDTOF} ? ?/?<WNAPTNuDUPJg'NuOUNDS &ѫNuUPt'NuWAPܼ &'@NuROPXNuVER'+NuOTLH&NuROTRLH'@NuRI''NuIP9&NuNDER9L'@&'NuDUPp'+'+NuSWAPLHH NuDROP]PNuOVER'+ '+ NuROTL?HH0Nu&;CODE yn P\ NuONTRLNz NTINN6 NTOUTN    TSINNALLOT TSOUT>N  ( xX LOBALN@LLOT t DDRINNdALLOT DDROUTNALLOT DIPBN,N>`ESPBNr,>HANDLEaNVDI/ps"<NBNuAES"< <NBNuT3.NuaT3,Nu #&/NT''<'< NN8a79>BcNu &'@NT'<'< N3N"a`a`79@Bc79BBcNua79DBc79FBcNua79HBc79JBcNuT3TT3RT3PT3NNu/Nx'' [T'<, &'@BN'+ SBP'+ [TTRRe oNXPB &'@ [TXNu'<L'@&' ѓ &N &'@ &BNUL'@&' [TRe oNXPXNu79`Bc79bBcNua79dBc79fBcNu'<`B'<L'@&' ѓ &, &'@N'<` NIT'<pNrNXIT'<`Z ILE-SELECTOR{##'<Nr79@BcNu NTNH#NuEAD-APa'<N RITE-APa'<(NEY'<NNUTTONSBN4'<lN/N'NuOUSE NTN,'<NrNAITR H@&#,'<NrESSAGE3#'<NrULTIPLE#'<,'< N'<(N/N'Nu2ORMULAR%'<pN3 ESERVE7BNT'<'<N<'<NrREE'<`6 ENTER-IS#'<N4LERT'< NF UBBER-BOXN4'<,NrNGNN'<>'+'<\N\'<` &'@'<N79BcNueLOSE-VIRTUAL-SCREENԠ'<NLEAR-WORKSTATION'<NPDATE-WORKSTATION'<"Nr ECTANGLEa'<RN '+ '+ N ѓ/ ѓ'N ARa'<zN OUNDED-RECTANGLE^a'<ʼN  ILLED-ROUNDED-RECTANGLEan'<NS-CLIP&aF'<'<&NO-CLIP֚B`INEӝB3f'<dN *ST'<N0H7BcN REAa3˴'<˲NARKa3'<NEXTN'< N,'<Ng ILL-CONTOURNN'<:N NR/BBBB'BB'<NRC˿a'<pN IEa'<̴N IRCLEBBNBB'<N'<N NRN LLIPTIC-PIEքa'<N  LLIPTIC-ARC-a'<LN LLIPSEYN '<xN  USTIFIED-TEXTNTNHBN '<ͨN,'<,'<079ͨBc'TT3ͨ &N'<͢N S-WRITING-MODEК'<N ET-COLORNTBN,'<FN S-LINE-COLOR'<zN S-LINE-TYPEΆ'<ΤNqS-LINE-PATTERN'<N S-LINE-WIDTH'BN'<Nl RE-LINE-ENDSNH'<,N S-MARK-TYPE'<\NS-MARK-HEIGHTα#N'<φN S-MARK-COLORϓ'<ϸN S-CHARACTER-HEIGHT%#N'<NkS-CELL-HEIGHTi'<N S-ANGLE'<DNS-FONTQ'<jN S-TEXT-COLOR'<ЎNjS-TEXT-EFFECTv'<иN'RE-TEXT-ALIGNMENTS8NH'<N S-FILL-TYPEP'<N S-FILL-INDEXz'<DN S-FILL-COLOR'<nNhS-FILL-PERIMETER'<јNpS-FILL-PATTERNѤ ST'<,30H7BcN'<Nm OPY-OPAQUE:aa*'<Ny##NT'+ '+ N ѓ/ ѓ''<NNʆOPY-TRANSPARENTa'<'<N'+'<\N\'<` &'@'<NOLOR-ISNH'<N/NX'Nu#INE-IS'<(NN79`BcNu$ARK-IS$'<\NNN%ILL-ISG'<׌NN&EXT-IS'<׶NNXNt EXT-WH-IS'<N,'<N79dBc79jBcNuuELL-IS'<.N79`Bc79dBc79hBcNus NPUT-MODE-IS2'<lNPEN-INNPEN-OUTؖNtt    ( xXESSAGE-BUFFERNALLOT EY-EVENT-BUFFERN6 VENT-FLAGNUTTONNLICKSNYNXNP-ID'<NuHANDLE2NTATENSP$NONTEXT\N000000OFVOCSN#wNENCENOC-LINKNJISKNSN ORTHCASH NFIRST'<8NuIMIT y'<NuREVN|/BUF'<Nu/BLK'<NuSCRNCRUNLKN/L'<@NuTIBNTIBڜNPAN^NUTN ISK-ERRORNOLDR/W?9 "SAA??</?<JgSW?<NMH#NNuIB '9NuMITONR4NuPACE'< NܮCANCODEN HIFTSTATENASTKEYN NKEY'<NETKEYN$BSNuEYf'<ِ'<dN@##/#PPN####'Nu TERMINALSN$ H@&'<aNAITN$V  fNNV  fNuREAK?N$ + fBNNV  fNu H@&'<aNSC'<NܮNܮU4NuLSN '<EN 9&'9XDNuc'9N  o^0 y#&NuSN8fNu/WN^LOCKx. yb f&NuLm y:bg f &Y#bNu`Lm y:#b&X/g ''BN|'''<N| yb Nu2A4B6Cy%g3 333Nu3333NuECIMAL3 NuEXߟ3NuIN3NuLANK%< NRASEBN MPTY-BUFFERS y:"9LBNCSP#fNuATEST@ yn'NuESTRICT7 yn P  Nu EFINITIONS8#|nNuLSO'<|'<ڀ'<N 9ڱgR9ڱNuOSS 9ڱgS9ڱ'<ڀ'<|'<NNuNLYb3ڰNPC yn P NuRROR9NRYPEܔN JjB &ѫN L WBPNܮRe oNXPN TRAILING'BN  k gN2SRe oNXPNu."V Wp''T@@їN " W'pT@@їNuPACESjJjBBN NRe oNXPNuR/'JjDNNjNN 'NN G'JjDNNjNNN NݨNnNB[3][Noch Parameter auf dem Stack.|Definition noch nicht beendet?][weiter]CSP\ffNu'<'<N N[3][Parameter auf dem Stack|stimmen nicht berein.|Falsch geschachtelte Struktur?][weiter]PAIRS'g'<'<N NNu "&N  &'@(@N "& &'@ (<}N[3][Stack berfllt.][weiter][3][Zu wenig Zahlen auf dem Stack.][weiter]STACK 9Bl'<'<N NFo'<'<N NNu[3][M/ milungen.][weiter]/N'<'<xN N//N'N0= N=D@NpN<=N'+'+ JfN2Nh&&N:PNNuABSH'N&JfN^D@Nu'OMPILE yX"_0 #XNGITERAL(J9Wg yX0'< #XNuXPECTNUERY'9'<NB# Nu OLDEXPECTR/''JjBBN NN +f* +gNܮN'<NܮS`X` + fXNN2 + lXS`Nܮ S&Re oNXP [B# Nu[3][Weder ein Befehl|noch eine Zahl.][weiter]UMBER/9 SB' (-fR|`|#Nj gZ gL gF g8 g( g'<'<N N3`3 `3B`XJgD#NuD.Nx &ѫN W'NܮRe oNXPNORDJ۾g'9۾N`'9 9Г&'@N ѹ$k$[ yX&SBQ NuINDCFA Spr"HS@ Aam Azn AQAIPA/09ڰH'<|'ѫN W P 'gN`JgNuXXe oNXPB yn|g&gN`JgXNu y*|gng&gN`NuXNuNfirst adress, only NuNsecond adress, only NuNdn NuNan NuN(an) NuN(an)+ NuN-(an) NuNd(an) NuN d(a,x.w/l) NuN.w NuN.l NuNd(pc) NuN d(pc,x.w/l) NuN# NuNccr NuNsr NuNusp NuN bcc .s<-- ? N/ JgXXNuJgN`NpgN8pgNDpgNPpgN^pgNnp gN~p@gN <gN <gN <gN <gN <gN <gN < gN <@gNNIND N0JgX&RJfDNu[3][Ist eine restrict Definition.|Darf nur beim kompilieren|benutzt werden.][weiter] NTERPRETER'< NN0JfNNN2`J9Wf*PJg'<'<NN N [NN2`JgP [NN2`"yXPJ+g [ PNug2`#X`n2N"#X`^Jyg ygNN`NߊNuJy g y gNN`NߊNuJy"g y"gNN`NߊNu09HyHyNu09HyHyNu'<'<NhB9WNuPWNuAXNu'< 79Bc79BcN.B79Bc79BcN.N&NBU'Nߊ[3][Das Dictionary ist voll.][weiter] REATEHEAD 9Xm'<'<pN N'< NN0Jg8 '9XNtNschon mal im Dictionary. NX$|X*Rpv"4MgRCaQ*Ryo9- MRP"yn" $"Nu[3][Nur im Ausfhrungsmodus benutzen.][weiter]AJ9Wg'<'<N N 9Xm'<'<pN N'< NN0Jg8 '9XNtNschon mal im Dictionary. N$|X*Rpv"4MgRCaQ*Ryo9- MRP"yn#|" $&' '< #fPWNuaN'< N^ yX0Nu#XB9W [ NuIECURSIVE yn"yX PX2N"#XNuEFERiN yX0N #XNu09HHyNu09HHyNuREATEN yX0N #XNuARIABLEN yX0N B#XNu ARIABLES'< N [ f ;fNuJfUNup R@N` _(N:N yX0'< 0Nu#XNONSTANTN yX0'< 0Nu#XNOVEP.L,'<H#!!NZ |Hf"Ndn d(an) or d(an) dn!N yf Nl@`NZNߊNߊNOVEP.W,'<N#NZ |Hg"Ndn dn or -(an) -(an)!N*_NZ yf@U'N*_0Nr3N&09*_NpeOES>@ yX0N 0'#XNu*_33NZ3"pNNfJy g &'@NNzN*_#NZNNfN*_ yf:3NBpNNfJy g &'@NߊN#NZ0<NNfNߊNXN*_#NZNZNp NTERPRET9N OCABULARYN yXB #X''<N#XN#|NuEORTHN.џ`2\Lr<~'3?VJhdϬ˝{kFџΩsEqOP9BpORTH-STN@N3 BNu*_3" yf83N&NNf yfN`NXN#NZN@N,*_3N&pNNfNEPTH 9B'NuTACK 9NuSBf"NNDer Stack ist leer.Nu '9B'NN Я'Nn'< NNJgN2'< ї⑱k oNXPNu3*_3NZ3"N3NUITB۾B9WNNNJ9WfJ9gN8N ok. N` OLDERROR&yBNN3 N#۾۬#J۾gN Screen Nr. '9۾NBNN Line Nr. '9'<@N'NBN'9۾N &'@'<@N ѓ'<@N NB۾UN'<^`'9'9N N'<J۾f'<'<N NBR۾J9۝g'9N'9۾NB#NuOAD~'<۾N'<NB#۾NLOAD 4 9۾ѓN 6IST -N/93 N#۬N Screen Nr. NB'<'<N N Я'''<NN'9۬NNJgN2Re oNXPNB۬#NuNDEXN'<N3 R &'@N N Я''<NNB Я'NNJgN2Re oNXPNRIAD'VNN Я'N Re oNXPNuHRURNN 2 Я'N 6Re oNXPNuTHRURNN l Я'N jRe oNXPNu[3][Durch fence geschtzt.][weiter][3][Context und current mssen gleich sein.][weiter][3][Nur ein context Vokabular erlaubt.][weiter] ORGET-IT$ 9ڱg'<'< N N 9|ng'<'< N N/ l'<'< nN N yo P`#"y|o N@NP'''Y [BX'N "W Q m P`"Xe oNXP S&JfX#XNuORGETN NN [3][File kann nicht geschlossen werden.][weiter][3][File kann nicht beschrieben werden.][weiter][3][File kann nicht erzeugt werden.][weiter] AVE-SYSTEM'< NNx'< l& [B#X'<'<N3`3 9X# 9#BN/Jj'<'< |N N'9X'<NJj'<'< KN 'NJg'<'< N NuNPUT 0NN'9'<N"_ yX0Jg("[  lN distance ? N`"["BQ0#XN"_ yX0Jg"[  lN@`"["PN 3N& _0y yX0Jf Nlabel isn't setted N"[  lN distance ? NNODEiJ9Wg0NNNur beim ausfhren verwenden.NNBy$3NABNBBNNNߊN _''NuABS'< N [ f ;fNuJfUNup R@N`LEARX [BNuLRLABS'< N [ f ;fNuJfUNup R@N N [B`QUNb0N:1N:2N:3#N:47N:5KN:6_N:7sN:8N:9N:AN:BN:CN:CN:DN:DN:E'N:F;N:XG,#NZ yfNl yf@@`@`NZ yf@`@HNrOVE, y@f3NB0,'<gNu,'<fNu,'<oNu,'<lNu=,'<mNu=,'<nNuC,y'<eNuS,N'<dNu, '<jNuS,'<hNuC,~'<iNu,'<kNuF,(SNߊ'9XNuHEN,'9XNLSE,-'<`NߊN'9XNuEGIN,$'9XNuGAIN,'<`Nߊ'9X &'@NNTIL,"Nߊ'9X &'@NHILE,Nߊ'9X &'@NuEPEAT,NNO,'9XNuOOP,3N&09@Q'Nߊ'9X  lN distance ? NN(A,A.W)"'< '< N|(A,D.W)'< '< N|(A,A.L)3'<  &R'< N|(A,D.L)W'<  &R'< N| (PC,A.W)'< '< N (PC,D.W)'< '< N (PC,A.L)'<  &R'< N (PC,D.L)'<  &R'< NUBQ.B,>NQUBQ.W,NNQ@UBQ.L,dNQOVEM.W,N8HOVEM.L,N8HOVE.B,NOVE.W,N0OVE.L,N OR.B,NOR.W,N@OR.L,NMPM.B,& NMPM.W,@NHMPM.L,TNDDQ.B,VNPDDQ.W,|NP@DDQ.L,NPCHG,N@CLR,NSET,NTST,NDDX.B,NDDX.W,N@UBX.B,NUBX.W,.N@BCD,NDD.L,"NxЀDDA.L,"NDDI.L,"NDDX.L,NрND.L,#GNxNDI.L,#vNSL.L,#NdSR.L,#NdRA,$gN`SR,NaSR.S,/NaEQ,%NgNE,%NfLR.L,&7NBMP.L,&eNMPA.L,&|NMPI.L,&N ORI.L,(N SL.L,(NdSR.L,) NdOVEA.L,)N @ULU,NBCD,)NHEG.L,){NDEGX.L,)N@OT.L,)NFR.L,*NxRI.L,*?NOL.L,*NdOR.L,*NdOXL.L,+NdOXR.L,+ZNdTE,NzNsTS,NzNuBCD,hNUB.L,,NxUBA.L,,NUBI.L,- NUBX.L,BNWAP,QNH@ST.L,-aNJ0N 1N  2 N @3N `4/N 5AN 6SN 7!N 0N 1eN $2wN D3N dPN d4N 5N 6N 7N P-N A0) N A1)N (A2)-N HA3) 0N hSP)UN hA4)AN A5)}N A6)N A7) N RP)N A0)+N  A1)+N ,A2)+N LA3)+N lSP)+ N lA4)+ N A5)+ DN A7)+N RP)+ lN A6)+ XN (A0)N (A1) N 0(A2) N P(A3)!\N p(SP) N p(A4) N (A5)! N (A6)! N (A7)!4N (RP)!HN (A0)!N (A1)!N 5(A2)!N U(A3)"N u(SP)!N u(A4)!N (A5)!N (A6)"\N (RP)"$N (A7)!pN WN L"9N >(PC))NN ]N SP N @RN CRN DD.B,NxDD.W,"Nx@DDA.W,NDDI.B,#NDDI.W,iN@ND.B,NxND.W,#/Nx@NDI.B,N!NDI.W,#^N@SL, NSL.B,#NdSL.W,#Nd@SR,NSR.B,#NdSR.W,#Nd@RA.S,N`CC,ANdCC.S,$NdCS,$-NeCS.S,$ANeEQ.S,UNgGE,$SNlGE.S,${NlGT,$NnGT.S,$NnHI,$NbHI.S,$NbLE,$NoLE.S,$NoLS,$NcLS.S,%NcLT,%%NmLT.S,%9NmMI,%KNkMI.S,%_NkNE.S,gNfPL,%qNjPL.S,%NjVC,%NhVC.S,%NhVS,%NiVS.S,%NiHK,"NALR.B,NBLR.W,&!NB@MP.B,NMP.W,&MN@MPA.W,hNMPI.B,N MPI.W,&N @BRA,NJQBT,&NJPBCC,&NJTBCS,&NJUBEQ,&NJWBLE,' NJ_BLS,'NJSBLT,'0NJ]BGE,'BNJ\BGT,'TNJ^BHI,'fNJRBMI,'xNJ[BNE,'NJVBPL,'NJZBVC,'NJXBVS,'NJYIVS,'NORI.B,(?N! ORI.W,'N @XT.W,cNHXT.L,(+NHLLEGAL,NzJMP,NNSR,(iNNEA,4NASL,(NSL.B,(NdSL.W,(NdHSR,NSR.B,(NdSR.W,(NdHOVEA.W,N0@ULS,0NIVU,'NEG.B,pNDEG.W,)eND@EGX.B,N@EGX.W,)N@@OP,NzNqOT.B,FNFOT.W,)NF@R.B,NxR.W,)Nx@RI.B,N!RI.W,*'N@EA,NH@ESET,+oNzNpOL,*kNOL.B,*NdOL.W,*NdXOR,NOR.B,*NdOR.W,*NdXOXL,NOXL.B,*NdOXL.W,+ NdPOXR,NOXR.B,+2NdOXR.W,+FNdPTR,NzNwT,NPHI,+NRLS,+NSCC,+NTCS,+NUNE,+NVEQ,+NWVC,+NXVS,, NYPL,,NZMI,,3N[GE,,GN\LT,,[N]GT,,oN^LE,,N_UB.B,zNxUB.W,,Nx@UBA.W,NUBI.B,NUBI.W,,N@AS,NJRAPV,NzNvST.B,-#NJST.W,-KNJ@BORT/&yBNN\'<bN<'<?Nܮ'<cN<'<0NܮN'<vN'<NF=z'<N5N'<PN;N'<2N;&N'< N:N'<N;vN'< N;N'< N;NN>'<NF>'<N5N'<PN;N'<dN;&N'< N:N'<N;vN'<N;N'<N;NN>XNu LANKFILL:BN8'<NьNu AMEBUFFER<0NALLOT ATHBUFFER;NALLOT 2 OADBUFFER;NALLOT AVEBUFFER;NALLOT ATABUFFER6NALLOT ILEBUFFER<N ALLOT ODEBUFFER;NX@?O) 4zX@?O) 4zX@?O) 4zX@?O) 4z OWERCASE>Nabcdefghijklmnopqrstuvwxyz - PPERCASE9NABCDEFGHIJKLMNOPQRSTUVWXYZ - REMD?N EER@XN ATIONCHAR>7N OLK>]N:\*.FRANuPOLK@N:\*.USENuAST\@N>lN>l'<P ѓNA Я' SBP'<\NPJfNA Я'RN2'< ї⑱k oNXPNuAME-END@N>F'<.NX &'@XNu MPTYNAME;N>F'<NNuLOPPY@N'<A ѓN>l [VNuILLPATHB)NB4NA0RN>lR'<NNuILENAMEBSN?'< ѓN?R'< NNu XTEND-NAMEBNA0XNA ѓ'<NNu SE-EXTENDA@NAJXNA ѓ'<NNu NITPATHS9AN>l'<PNNB`NBN>lN>'<PNN>lN?8'<PNNuUTNAMEA'N>FNAd'<NNuLDLOADN>lN>'<PNNuLDSAVECN>lN?8'<PNNuO-PATH:N>l'<PNNuEWLOADAN>NCNBNuEWSAVEDN>NCNuOPATH?NBNCN>lBNN:NNuO-DTACN?N6N>lBN"N?'< ѓNnN:NNBNu OUNT-LENGTH?N< Nn'<KN'< ѓN:NNuAVE-IT?)NDNDNN:NnN:NnN<&NnNN:NnNNuELECTEN>FN>lNN:NNuOADFILEAZNBN:NNDN^NEjN>F SBP'< NhN:Nn'<NP JfNFN^NCNCNDN>lBNN:NN:NnN:NnN<&NnNN:NnNP'<N:NNFBN:NNuAVEPROCE_NNBND4N>FN>lN'<NPJfNFN^NCNENu UZZAMOUNTCvN:Nn'< '<KNN< NNu LEARMARKSDN:NnN< NnNNu SED-WRITEBN:NnN< NnN:NnNN:NnNPNu SED-SAVEGcNBNDNCN>lBNN:NN:NnBNhJfNHNGrNu OAD-USEFILEENBNGNGBNCN>lBNN:NN:NnBN\JfNHN>lBNN:NNGrNHN:NnN< NnN:NnNN:NnNPNu ILE-NAMEBNALLOT ACHRICHTD(NALLOT 8ERKKI NPNQ2NuUTSAMEQgN> NPNQ2Nu EUZEICHENMN;bNnNONI ѓ [VNQrNuUTOLDQNNBNPNQ2NuPGN;NNn'<N\JfNRB'<N;NNNRLN;N [SNuOWNPN;NNn'<NPJfNRBN;NNNRN;N [RNuINKSHN;:NnNJfNR'<N;:NNRNRN;: [SNuECHTS7N;:Nn'<NPJfNS2BN;:NNRXNS'< N;bNNQNQNSNQNuACKNORMS'< N;bNNQNQNRNQNu URSORKEYPNQrN;bNn H@&'< '<HNFTNQNRNQNUT'<MNFTNQNRNQNUT'<KNFTNQNRNQNUT'<PNFUNQNRXNQNUT'<?NFUR'<N;N'<N;NNUTXNuORMKEYQN;bNn'< N;bNNNN;Nn'<NPJfNUNQNQNRNQN;bNn'<NPJfNUNTNuPECKEYON;bNn'< 'N;bN'<NPJfNV@NSNVXNQNQNSHNQNu IDCURSORRO'<N96NNu PECCURSORUNQrN;bNn H@&'< '<KNFVNQNSNQNVhNWL'<MNFW NQNSHNQNVhNWL'<XNFWJ'<N;N'<N;NNVhNWLXNu NCODE-PUZZLEJ'<KBNWNI Я' ѓ' SBPN@ Я' ѓ SBP  &'@ [VRe oNXPNuDITTEXTWNN;NnN5Nn N'<Nb'<NЬ'<N:BNNNuASTEDw'<NP'N;bN'< '< NPJfNX'<N;NNXNTVNUbNu ASEINPUTTBN;NN;Nn'<NЬNX:N;NnN6JfNXNQNuASTPUZZSN9 NnN;Nn'<KN ѓNuPECINV}'<NP'N;bNBN96N'< ''< NPJfNY'<N;NXNYNVN96NnNJfNYNUNu PECQUESTY1'< N5NnN'<NވNJETZT DIE ERKLRUNG: Nu PECINPUTYNY'<N;NNBN;:NNQBN;N'<NЬNYN@'<'< N'<BN^ '< BN]NLNA ѓ SBP Я' N@ ѓ SBPNPJfN] Я'N@ ѓ SBPN@NL ѓ [VN2Re oNXPRe oNXPN@N@f'< ѓ'<NNuKEYXNLL-IN;N'<NNuEINS>N^NNNnBN _:N Я' ѓ SBP'<0 N^8NN^8Nn'< N\N^8Nn' '< '<BN`NQrNSHRe oNXPBN;:N'<N;NNNQNuOWMUCH_! NN: NcNg'< N9 NnNNdN^NN9 [XNuDITFILEeN^N N[NWNbNa"BN;NN< NnN;NnNhJfNh"NbNh(NbN;NnN6JfNgNNuOSAVEcN^NDateisicherung desaktiviert! NNNBN^NuDITPROCgNgBN;N'<NKdN '<NFhNFNi,'<NFiNgNi,'<NFi*'<N;NNi,XN;Nn'<NPJfNhNu ILE-ENTRYbNNeN^N[BN;NN NWBN;NNbNbN;NnN6JfNiNN;NnN< N'<NKdN '<NFjNFNjZ'<NFj0NhNjZ'<NFjX'<N;NNjZXN;Nn'<NPJfNiNu DIT-PROChN^N[NWNC&N<&NnN9 NNNlN&yB'<NJN '<NFk*NehN^N:Nn'<NPJfNk$NhNkp'<NFkFNi`Nkp'<NFkn'<!N;NNkpXN;Nn'<!NPJfNjNuDSTARTj~N'< N5NnNN5N'<N5NnNN5rN'<N5NnNN5N'<N5NnNN5N'<N5NnNN5N'<N5NnNN5NN5NnN5Nn'< N ѓN6NN5NnN5Nn ѓN7NN5NnN5rNn'<N ѓN7,NN5NnN5rNn'<N ѓN7VN'<N5NnNN8XNN5Nn'<NPJfNvd'<'< Nvp'< '<N7NN7NNuLEARBOXsV'<N:BN8NuULLBOXs'<N:'<N8Nu OUSESTOPoN4&&NJfNvNu HADEFILLs''<N:'<N8NuOMM-OFFvNsdN N5NnN7VNnN5Nn'<NN5rNnNNNuOBJECTKN6vNn'<NN5NnNN5Nn ѓN6vNn'<NN5rNnNN5Nn ѓN5NnN5rNnNʮNuKIRJAINwNsNIN6"NnN5NnNTN5Nn ѓN6 NnN5rNnNWN5Nn ѓNNuALDOSvNALLOT OCKETpNALLOT REESPINSvNALLOT HOW-FREESxN8XNnN8.NNs4N8NnBNyNx Я' & ѓNn'<0 ѓNIR [VNI'<N8.NnN'<N5NnNN8. [ ѐRe oNXPNu HOW-ACCOUNTy N8XNnN8.NNs4N8NnBNzNx Я' & ѓNnNmNm'<HN8.NnNNx Я' & ѓNnNmNm'<HN8.NnN7Nn ѓTN'<N5NnNN8. [ ѐRe oNXPNu DD-MONEYrXN7lNnN7 [ ѐN7NnNxN7Nn & ѓNNyNuNSOUNDC'<BN{vNߊRe oNXPNuLINGxN   TILLEyN UMM{N   NAClN   IP{xN{NdNuUHEsN{NdNuUMMM{N{NdNuADDYXN|z'<NN|bNuOTITaN|J'<NN|bNuOODY|'<BN}N|Re oNXPNuNACK|N|Nd'<NN|bNu OITTOLUVUTrN, X,^ OITTOSTRING},N`50 % 300 800 400 600FREI 200 7001000 400100% 400 200200050 % 300 200 350 400RAUS 200 450 500 200 VOITTOx+NALLORAUS}N}N4NnN4NnNNu OWSTRINGqN}RN5Nn & ѓN}R'<NNuOMM-OUTw'N NrN5NnN7VNnN5rNn'<'<N ѓNNNuIX-DA~4NSteuerflchtling?NuOSETEXTe[N Der nchste bitte!Nu ORRYTEXT|pN Leider kein ! Nu INSTRINGl}N M pro Buchstabe!Nu AXSTRINGpN Dank vom FinanzamtNu REESTRINGxN Ein Freispiel! Nu ORRY-OUT(N6N~NuORRY!NN|Nw4Nu INSTRING-OUTPN}RN5Nn & ѓN^'< ѓ'<NN^N~Nu00%ACT~N7NnNJfNN~NNN~N|'<NNw4N7NnN: [ ѐBNxN7Nn & ѓNNyBN8DNNuREEACTNN~N|'<N8DN'<N7Nn &Nx ѓ [ ѐNyNuOSEACT~N N~N|'<NBN8DNNw4Nu PIN-ORIGON5Nn''<NN4N'<lNN4NNuRAUSKN'< BN|N~BN~N7NnN4 [ ѐN5NnR'<NN5NRe oNXPN} Nu0%ACTN7NnNJfNN~NNN~N|'<NNw4N7Nn &N: [ ѐN7Nn &NxN7Nn & ѓNNyBN8DNNuONEYACTvN~BN '<N8DNN5Nn &N}< ѓNN7lNNu INDISPLAYN50Nn'< ѓ'<NN5NN5NnBNFNNz'<NFNNz'< NF:NtNz'<NFVNNz'<NFrN~NzNRXNu PINRAHMEN'<NьN4Nn'< N4NnN7Nn '<2N7Nn'< N'<N5NnN ѓNʮNu REE-RAHMENN8XNnN8.NBN8N8NnBN'<N8.NnN7NnT '< N7Nn\Nʮ'<N5NnNN8. [ ѐRe oNXPNu-SHADOW}N Nw N5NnN5NnN5Nn'< NN5rNn &NʮNNu-SHADOWzN Nw N5NnN5NnN5Nn'< NN5rNn'<NNʮNNu-SHADOW}sN Nw N5NnN5NnN5rNn & ѓN5Nn'< NN5rNnNʮNNuARKEREN4NnYN4NnN5rNn & ѓ'<&N7NnNʮNu OITTOSPINN50NnN5NN N5DNnNN50NnR'<NN50NN5\ [SN5\Nn'< N\JfN'<dN5D [ ѐN5DNn'<NPJfNNu PIN-DISPLAY}Ns4BN8NNN&BN5DNN'<N'< ѓN5\NNNNuUY|NVokalNuPIN9NDREH!NuNOWNLsung Nu CTIONAREA1'<BNN N6NnN5NnN5rNn Я'N ѓN5Nn &N5rNnNʮRe oNXPNNuNOW-OUTNN N6NnN5NnN5rNn ѓ'< N5Nn &'<'<NNNuPIN-OUTN NN6NnN5NnN5rNn & ѓ'< N5Nn &'<'<NNNuUY-OUTN NN6NnN5NnN5rNn'<N ѓ'< N5Nn &'<'<NNNu CT-TEXTSNrJNNNNuST-SPINhNNs4BN8NN&N Nu IGHT-MOUSE?|YN6LNnN9NnNhN6LNnN9NnN\ N6bNnN9NnNhN6bNnN9NnN\  NuCTIONSNlNv'FNR'< NNN7NnN5Nn ѓN7,NnN5rNn'<N'<N ѓNNuIRGIN'<N6N'<N'<NF'<cN:DNNXNNuHATS-ALLOWED?eN7Nn'<N\JfNbNrlNN5rNn &N:0NNNrJNN5rNn'<NN:0NNu ICHTIGTEXTN Richtig wre: Nu ARTETEXTN Klick!Nu EIG-RICHTIGmNN~'<N>N>N>Nw4N6bNnN5Nn N5rNnNBNFpNtN'<NFNN'<NFNNXNN6NnN6NnNPN7BNnN N7Nn'<NP JfNNu AKE-FREE?2'<NN '<NPJfNx'NNNuOUBLEN`NNlBN'N:NN6JfNN Nn'<NN4'<XNN:Nn'<N NnNXN:NnNXNuIHINNN'<,NN'<,'<N2N Я' ѓNnNNnNhJfN Я'NNN2'< ї⑱k oNXPNXNNNnYNNNnNNNnY ѓNN4PN4NNn &QNN9vNn &Nl ѓN4NNn &Q ѓ'<NNuRTNވNu CORELISTN^'< '<NNDie Ehrentafel:'< '<NN---------------B'< NĈ'< '< Я' N'< Я' NB'< '< Я' NN. '<BN"N4NL & Я' ѓ ѓ SBPNܮRe oNXP'<'< Я' NN $ N Я' & ѓNnNB'< ї⑱k oNXP'<NNNN drcke eine Taste!N`XNu CORELOADNN>lBNN:NN:NnN&JfN NNVN:Nn'<N NnNN:NnNNN9`NnN6JfNN9`NnNNRN>lBNN:NN:Nn'<N NnNN:NnN&yBN\NfBN9`NN NuGAMEBN7NBN9`NN`NNNuIGHALKUBN˦N'<2N5NnNN˺NBNNN^'<N8N N'<ƺKo 1-Z#x`o 1-ZM`o 1#x`o 1Ev3ֱWx`o 1-Z#x`o 1-Zax`o 1#x`o 1Jpz)оF `o 1-Z#x`o 1-Zax`o 1#x`o 1W`(ڷF zo 1-Z#x`o 1-Zm6`o 1#x`o 1Yz4зYo 1-Z#x`o 1-Zax`o 1#x`o 1Jc3F zo 1-Z#x`o 1-Zax`o 1#x`o 1Og9ݮJu`o 1-)ֱFx`o 1-Zm6`o 1#x`o 1Kz=ЫKx`o 1-Z#x`o 1-Zm6`o 1#x`o 1^}4ۼM o 1-Z#x`o 1-Zm6`o 1#x`o 1Ya)зG} zo 1-Z#x`o 1-Zm6`o 1#x`o 1Zx>ڱQo 1-Z#x`o 1-Zax`o 1#x`o 1Ow2ƭF`o 1-Z#x`o 1-Zm6`o 1#x`o 1J}6ټ#x`o 1-Z#x`o 1-Zm6`o 1#x`o 1Zx1Ai mo 1-Z#x`o 1-Zm6`o 1#x`o 1[f-ܭW o̧CYzZ#x`o 1-Zm6`o 1#x`o 1Wf)ŵJzozT-Z#x`o 1-Zm6`o 1#x`o 1^|-ԵAko 1-Z#x`o 1-Zax`o 1Fw g1-Z#x`o 1-Z#x`o 1-Zax`o 1#x`o 1Z`.ЫOzo 1-Z#x`o 1-Zax`o 1#x`o 1^z>ƭFlo 1-Z#x`o 1-Zax`o 1#x`o 1Kw2M qo 1-Z#x`o 1-Zm6`o 1#x`o 1^y*#x`o 1-Z#x`o 1-Zm6`o 1#x`o 1Oa7ǰMx`o 1-Z#x`o 1-Zax`o 1#x`o 1H`?ۿOx`o 1-Z#x`o 1-Zax`o 1#x`o 1^|4ЩEx`o 1-Z#x`o 1-Zm6`o 1#x`o 1Dq6#x`o 1-Z#x`o 1-Zm6`o 1#x`o 1^y*ӽLo 1-Z׵Vx`o 1-Zm6`o 1#x`o 1Lc;ƪFx`o ZApf;۵Bx`o 1-Zm6`o 1#x`o 1^z=ƺK`o 1-Z#x`o 1-Zax`o 1#x`o 1-f;Bx`o 1-Z#x`o 1-Zax`o 1`P0PDR v'p3 . ????? ???< < < ~888xxxp<p????<<<???888<??xxx8??ppp===x888p xpxpxp<??ppp??~???????????`?????sss```~gy<7;<<<?~~~????π 8<??l?<??4<??v?<???<???<????<???xxx?ppp`??|~????~~?77~~????? <| <>>< || X|| <? pp<< ``?? p p??~ x?< ??<??? >> ??? <<|| 88<<88???? xx<<pp?? xxxxpp ?? ~?~???>> ?????? ?? ??x?? ??oo00>??< ``<< oo;;xx 99xxpp ;;xx 33??ww  ??>>8g8g <<pp99 qqqq??? ?? ss  ???>>???``?????????????????????888>>>|||qqqxxxw;w;w;ùܹ???888w;w;w;ùܹ???888???888;;;888???qqq888;;;p8p8p8???<<<|||??????|||??????p8p8p8>8>8>8???888|||~~~???Àppp|||ppp|~|~|~ssspppwww;;;sssppp~w~w~w;;;sss888ssspppwww;;;|||888sss~w~w~wppp?????????Jetzt aufgepat! Allerlei kleine und groe Dinge um uns umher... #x`o 1-u9޶Ex`o 1-Z#x`o 1-Zfyx`o 1#x`o 1-q<ǰF zo 1-Z#x`o 1-Zbx`o 1#x`o 1-`/ݵ#x`o 1-Z#x`o 1-Zf63^յo 1#x`o 1-})ֱ#x`o 1-Z#x`o 1-Zf63^յo 1#x`o 1-q4ƭFx`o 1-Z#x`o 1-Zf63^յo 1#x`o 1-f/ֲFx`o 1-Z#x`o 1-Zf63^յo 1#x`o 1-x?ܪW `o 1-Z#x`o 1-Zf63^յo 1#x`o 1-q*Ű@x`o 1-Z#x`o 1-Zf63^յo 1#x`o 1-a9#x`o 1-Z#x`o 1-Zjx`o 1#x`o 1-Z׼Wx`o 1-Z#x`o 1-ZJx`o 1#x`o 1-w2ǸMx`o 1-Z#x`o 1-ZJx`o 1#x`o 1-u7ż#x`o 1-Z#x`o 1-ZJx`o 1#x`o 1-g9ݫFko 1-Z#x`o 1-ZJx`o 1#x`o 1-q3Mx`o 1-Z#x`o 1-ZJx`o 1#x`o 1-x3оFzo 1-Z#x`o 1-ZJx`o 1#x`o 1Ig1ЭWx`o 1-Z#x`o 1-ZJx`o 1#x`o 1-w2O`o 1-Z#x`o 1-ZJx`o 1#x`o 1-a)ֱFx`o 1-Z#x`o 1-ZG`o 1#x`o 1-u>ЮB`o 1-Z#x`o 1-ZG`o 1#x`o 1-{(ݸMx`o 1-Z#x`o 1-ZG`o 1#x`o 1-f?ũFx`o 1-Z#x`o 1-ZG`o 1#x`o 1-u/ƭx`o 1-Z#x`o 1-ZG`o 1#x`o 1-u/#x`o 1-Z#x`o 1-ZG`o 1#x`o 1-}?ҼP o 1-Z#x`o 1-ZG`o 1#x`o 1-f3ٵFx`o 1-Z#x`o 1-ZG`o 1#x`o 1-Z#x`ofP_a7#x`o 1-ZLx`o 1#x`o 1-f8аW zo 1-Z#x`o 1-ZLx`o 1#x`o 1-q6ټQx`o 1-Z#x`o 1-ZLx`o 1#x`o 1-u9#x`o 1-Z#x`o 1-ZLx`o 1#x`o 1-}4#x`o 1-Z#x`o 1-ZLx`o 1#x`o 1-|?ԭFx`o 1-Z#x`o 1-ZLx`o 1#x`o 1-`(ԪPx`o 1-Z#x`o 1-ZLx`o 1#x`o 1-q=зPo 1-Z#x`o 1-ZG`o 1#x`o 1-q6пLx`o 1-Z#x`o 1-ZG`o 1#x`o 1-w2ǼJx`o 1@g9ݰMx`o 1-ZG`o 1#x`o 1-{7ŬWx`o 1-Z#x`o 1-ZG`o 1#x`o 1-q(۪F `o 1-Z#x`o 1-ZG`o 1#x`o 1-u>ܶ#x`o 1-Z#x`o 1-ZG`o 1#x`o 1-f;شL`o 1-Z#x`o 1-ZG`o 1#x`o 1-x;F so 1-Z#x`o 1-ZG`o 1#x`o 1-}1Ƕ#x`ol]H|?ǽ#x`o 1-ZG`o 1#x`o 1-2٪@o 1-Z#x`o 1-ZG`o 1#x`o 1-f5Fo 1-Z#x`o 1-ZJx`o 1#x`o 1-u4E`o 1-Z#x`o 1-ZG`o 1#x`o 1-u)Ƽ#x`o 1-Z#x`o 1-ZG`o 1#x`o 1-u<ӼFmo 1-Z#x`o 1-ZG`o 1#x`o 1-}6ϱVx`o 1-Z#x`o 1-ZG`o 1#x`o 1-u4Ѫ@`o 1-Z#x`o 1-ZG`o 1#x`o 1Zz.ЫPso 1-Z#x`o 1-ZG`o 1#x`o 1-{7ؼQso 1-Z#x`o 1-ZG`o 1L lo 1-Z#x`o 1-Z#x`o 1-ZG`o 1M o 1-Z#x`o 1-Z#x`o 1-ZJx`o 1#x`o 1Ew2ϼJ {o 1-Z#x`o 1-ZG?`o 1