' Frank Boettcher7 Ludwig-Renn-Str. 48M Berlin, 1142S(m2 IDEE: J. Goering< "Labyrinth der Denkspiele"F Verlag Neues Leben, Berlin 1987PZPOKE-4152,48:CLS_ 0,31,0,39d D(36):n E(32)x F(9,9): G(26,29)/FA$(2,"FALSCH ")GRI$(2,"RICHTIG ")yUE$" WO SIND DIE ATOME? ? ? "S1$(8,""):S2$S1$""UF$" "UG$" DAS GROSSE ATOMFORSCHER-SPIEL " X10:Y5S4$"ABCDEFGH"(I183E(I)I9BH18RI198910^H1H11kE(H1)I q"I98911,H1H116E(H1)I@JI801010TH1H11^E(H1)Ihr3400|(10,7);"Bedieungsanleitung? (J/N)"L2$:L2$""390,L2$"J" 3990C(10,7);(30," ")OA1$""X660b3130l2560L2$:L2$""460TE(L2$) TE48 VE1: TE13 VE3: VE2 VE 830,1310,2090(2,33);ZA EK1 4603190(23,31);">>ENTER<<".L2$:L2$""5404&D0(0,0);UG$b:(10,7);"Nochmal? (J/N)"yDL2$: L2$""580NL2$"N" 410XOUT 136,128bOUT 128,39:OUT 128,18l 10:OUT 128,3vOUT 136,0:POKE-4152,16 (2,26);"MOMENT!""  I 1 36- D(I)03 A  I1 8O  K1 8\ F(I,K)0f  K,Iv  I 0 26  K0 29 G(I,K)0  K,I SN0:ZA0:P1 A(1)0:A(2)0:A(3)0:A(4)0 *H30:EK0 4 > H TE56 TE65  R TE72 A \ TE65 H5H51:EZTE48:H6H61:ESTE64U f ES0 ES16n p(0,29);(ES64);EZ z H50 H60 H50:H60  F(EZ,ES)1 1080 ES0:EZ0  I0 5 (0,I);" "   I3 15 (0,2I);" "(FA$,I2,1) #  I32 393 (0,I);" "9 C  7:R  I0 39k (0,I);(UE$,I1,1)q } $ZAZA5 . 8 I1 4 B A(I)10EZES I5 L A(I)0 A(I)10EZES:I5 V ` A(1)0 A(2)0 A(3)0 A(4)0 EK1 j(Y2EZ,X2ES);"*") t I0 19 ~(0,I);" "? N  I1 16k (0,2I);" "(RI$,I,1)q   I33 39 (0,I);" "   7: EK1 L3$UE$: L3$UF$  I0 39 (0,I);(L3$,I1,1)  AZAZ4 ES0:EZ0  $ ( TE32 ; 2PP1: P32 P1 < P 1360,1380,1400,1420,1440,1460,1480,1500,1520,1540,1560,1580 F1600 P(Y3,X1);"1":(Y1,X3);"" Z d(Y1,X3);"A":(Y1,X4);"" nx(Y1,X4);"B":(Y1,X5);"",(Y1,X5);"C":(Y1,X6);""2V(Y1,X6);"D":(Y1,X7);""\(Y1,X7);"E":(Y1,X8);""(Y1,X8);"F":(Y1,X9);""(Y1,X9);"G":(Y1,X10);""(Y1,X10);"H":(Y3,X12);""-(Y3,X12);"1":(Y4,X12);""3Y(Y4,X12);"2":(Y5,X12);""_",(Y5,X12);"3":(Y6,X12);""6@JHP12T H 1640,1660,1680,1700,1720,1740,1760,1780,1800,1820,1840,1860^1880h(Y6,X12);"4":(Y7,X12);""r=|(Y7,X12);"5":(Y8,X12);""Ci(Y8,X12);"6":(Y9,X12);""o(Y9,X12);"7":(Y10,X12);"" (Y10,X12);"8":(Y12,X10);""(Y12,X10);"H":(Y12,X9);""(Y12,X9);"G":(Y12,X8);""$J(Y12,X8);"F":(Y12,X7);""Pv(Y12,X7);"E":(Y12,X6);""|(Y12,X6);"D":(Y12,X5);""&0(Y12,X5);"C":(Y12,X4);"":D(Y12,X4);"B":(Y12,X3);""N XHP24Ab H 1910,1930,1950,1970,1990,2010,2030,2050,2070Glmv(Y12,X3);"A":(Y10,X1);""s(Y10,X1);"8":(Y9,X1);""(Y9,X1);"7":(Y8,X1);""(Y8,X1);"6":(Y7,X1);""(Y7,X1);"5":(Y6,X1);""@(Y6,X1);"4":(Y5,X1);""Fj(Y5,X1);"3":(Y4,X1);""p(Y4,X1);"2":(Y3,X1);"" (Y4,X1);"1":(Y1,X3);"" *4 D(P)1 >D(P)1HSNSN1:ZAZA1:H90RZ(E(P)10) \SE(P)Z101f P9 BW4Ip P8 P17 BW3bz P16 P25 BW1t P24 BW2~27603080 BW 2240,2320,2400,2480 Z0 Z9 S0 S9 AB1 10:2990:2200ZZ1:Z0  F(Z,S)1 AB1:IREF(Z,S1)F(Z,S1)F(Z1,S1)F(Z1,S)F(Z1,S1)\ RE1 Z9: F(Z,S1)1 F(Z1,S1)1 BW2: F(Z,S1)1 F(Z1,S1)1 BW3   SS1:S9 $ F(Z,S)1 AB1:. REF(Z1,S)F(Z1,S)F(Z1,S1)F(Z,S1)F(Z1,S1)-8 RE1 S0:VB F(Z1,S)1 F(Z1,S1)1 BW4:}L F(Z1,S)1 F(Z1,S1)1 BW1V ` j SS1: S0 t F(Z,S)1 AB1:~ REF(Z1,S)F(Z1,S)F(Z1,S1)F(Z,S1)F(Z1,S1) RE1 S9:) F(Z1,S)1 F(Z1,S1)1 BW4:P F(Z1,S)1 F(Z1,S1)1 BW1V \ p ZZ1: Z9  F(Z,S)1 AB1: REF(Z,S1)F(Z,S1)F(Z1,S1)F(Z1,S)F(Z1,S1) RE1 Z0: F(Z,S1)1 F(Z1,S1)1 BW2:# F(Z,S1)1 F(Z1,S1)1 BW3) / G (Y,X);"";S2$;""p (Y1,X);" ";S4$:(Y1,X13);"" (Y1,X3);""( (Y2,X);" ";S1$;" "2 I1 8< (Y2I,X);"";(48I);""F (Y2I,X11);"";(48I);""P Z (Y11,X);" ";S1$;" "Cd (Y12,X);" ";S4$:(Y12,X13);""^n (Y13,X);"";S2$;""mx I3 10| K3 10 F(I2,K2)1(YI,XK);A1$: (YI,XK);"" K,I (0,0);UE$ (2,26);"PUNKTE: 0"    BW 2790,2840,2890,2940 & EYY143 EXX2SE (EY,EX);""^ (EY1,EX);(64SN)d q EYY2Z|" EXX1, (EY,EX);""6 (EY,EX1);(64SN)@ J EYY2ZT EXX14^ (EY,EX);""h (EY,EX1);(64SN)r | EYY1 EXX2S! (EY,EX);"": (EY1,EX);(64SN)@ F h AB1 (EY,EX);"":AB0: RE1 (EY,EX);"": Z0 (Y4,X2S);"":(Y3,X2S);(64SN): S9 (Y2Z,X17);"":(Y2Z,X16);(64SN)) Z9(Y17,X2S);"":(Y16,X2S);(64SN):_ S0 (Y2Z,X4);"":(Y2Z,X3);(64SN):e k q } H9H91 G(SN,H9)10ZS& 0 : D Z1(8(1))N S1(8(1))X F(Z,S)1 3140: F(Z,S)1b H3H31 l H33 : 3140v  ; (0,3);" HIER DIE AUFLOESUNG"N (0,29);" "] I1 SNn L1$"":M10x 3320 15 L1$"":M10 3320 5 I   K2 29 Z(G(I,K)10) SG(I,K)Z10  Z0 S0 M11:K29+* M10 (ZY2,SX2);L1$ 34 K9> VH **** ANFANGSBILD ******\R m\ OUT 136,128wf UG$p L1 2z (20,31);"" (21,31);"" 6 I3 15 (4,I);"" K1 5:K OUT 128,7 OUT 128,60-I OUT 128,3 I( I5 209 (I,15);""K K1 5:K Z OUT 128,7lOUT 128,50-I{OUT 128,3I$ I16 30.(20,I);""8 K1 5:KBOUT 128,7LOUT 128,46-IVOUT 128,3`Ij(20,31);"" t(21,31);"" ~ 1. (19,30);""@ (20,33);""U (22,31);""d  I8 40s OUT 128,7 OUT 128,I OUT 128,3 I (20,32);" " (21,31);" "  1 (19,30);" " (20,31);" "! (21,30);" "!(22,30);" "!! 37!((4,3);(13," ")G!24,21,15,15V!<(17," ")e!F0,31,0,39}!P(20,16);(15," ")!Z L!dOUT 128,39:OUT 128,18!n 10!xOUT 128,3!OUT 136,0!! *** TEXT ***"(4,3);"Sie haben die Aufgabe, die in der"A"(6,3);"Nebelkammer versteckten 4 Atome zu"V"(8,3);"finden."(10,3);"Dazu koennen Sie mit einem ""(12,3);"Strahler '' in die Kammer leuchten.""(14,3);"Am Rand der Kammer wird das"#(16,3);"Verhalten des Strahls durch Zeichen"/#(18,3);"markiert."I#(23,30);">>ENTER<<"`#L2$:L2$""4090#(4,3);"Die Zeichen haben folgende Bedeutung:"#(6,3);(34," ")#(8,3);" oder = Eintritts- oder Austritts-" $"(10,3);" punkt eines Strahls"@$,(12,3);" = reflektierter Strahl "n$6(14,3);" = absorbierter Strahl"$@(16,3);(35," ")$J(18,3);(30," ")$TL2$:L2$""4180$^(4,3);"So geht der Strahl durch die Kammer: "%h(6,3);"1. Trifft er auf ein einzelnes Atom,"P%r(8,3);" so wird er absorbiert. () "%|(10,3);"2. Trifft er auf ein Feld, das mehr "%(12,3);" als ein Atom zum Nachbarn hat, "%(14,3);" wird er reflektiert. () "#&(16,3);"3. Bei nur einem benachbarten Atom "V&(18,3);" wird der Strahl um 90 Grad abge-"&(20,3);" lenkt. Sonst geht er glatt durch."&L2$:L2$""4280&(4,3);"Den Strahler bewegen Sie mit 'SPACE'." '(6,3);"Ausloesen koennen Sie mit 'ENTER'. "<'(8,3);"Dabei erhaelt der Strahl einen Buch-"o'(10,3);"staben als Kennzeichen. "'(12,3);"Jeder Schuss kostet einen Punkt. "'(14,3);"Glauben Sie, ein Atom entdeckt zu " ((16,3);"haben, dann geben Sie die Koordinaten">((18,3);"ein. Fehler kosten 5 Punkte. Ein "t((20,3);"Treffer macht das Atom sichtbar. "(L2$:L2$""4380(& I4 22 2(0(I,3);(37," ")(:(D(23,30);" "(NOUT136,128:OUT 128,39:OUT 128,18)X 10)bOUT 128,35)l(11,11);"Hier ein Beispiel:">)v 20a)(11,11);" "j)660)F(6,1)1:F(4,6)1)F(5,6)1:F(6,5)1)A1$"*")2560)(2,26);" BEISPIEL ") 10)TE32)2090: 5:1310) 10 *1310: 3:1310* 5:2090"* 100*  I1 6>*1310: 3D* R** 5:2090[*4 10o*>1310: 3:1310w*H 5*R2090*\ 5*f I1 7*p1310: 3*z* 5*2090* 10*OUT 128,39:OUT 128,18* 10:OUT 128,3+OUT 136,0+3190(+(23,31);">>ENTER<<"?+L2$:L2$""4820E+U+(0,0);UG$z+(10,7);"ACHTUNG! Es geht los!"+ 40+410+(23,31);">>ENTER<<"?+L2$:L2$""4820E+U+(0,0);UG$z+(10,7);"ACHTUNG! Es geht los!"+