MENSCH AERGERE IkÍ MENSCH AERGERE DICH NICHT FUER MZ-700 25.10.1983 ( A.Z.2 . BBG 26.11.1983<F,,,:`3P"MENSCH AERGERE DICH NICHT!!!!"Z USR DEF.d"A4A4A4"Mn CO():CO():CO() :CO()@:CO(@)`[x C1():C1():C1()():C1(@):C1()@ NM$()% ----- MENSCH RGERE DICH NICHT N1 MAX. ZAHL DER SPIELER+ N2 MAX. ZAHL DER FIGUREN PRO SPIELER M1 ZAHL DER SPIELFELDER! M2 GESAMTZAHL ALLER FELDER M3 FELDER + HEIMPLAETZEM1`N1:N2 N3N1N2 M3N3M1M2M1(N1N2)% S(N3) AKTUELLER PLATZ DER FIG.# S9(N3) SAGT, OB ZUG MOEGLICH, SR(2*N3) GIBT REIHENFOLGE DER FIGUREN2 SP NEUE MOEGLICHE SPRUNG-ADR., WENN S9(I)=1" X,Y KOORD. DER FELDER!, A SYMBOLE DER SPIELFELDER6 W1 WUERFELZEICHEN+@ E1,E2 EIN-, AUSSPRUNG-NR. DER FELDER!J E3 HOECHSTES AKT. ZIELFELDT F SYMBOLE DER FIGUREN5^ PP SAGT, OB SPIELER VORH., COMP. ODER DRAUSSEN4h FP SAGT, OB NOCH MIN. 1 FIG. IM SPIEL, DANN=1,rA(M2),X(M2),Y(M2),E1(N1),E2(N1),E3(N1)?|S(N3),S9(N3),SR(N3),SP(N3),F(N2),W1(@,)FP(N1),PP(N1) BELEGEN DER SPIELFELDERI %JIN3:X(J)I:Y(J) ,JIN3`:X(J)8I:Y(J),JIN3`:X(J)X:Y(J)I,JIN3(:X(J)P:Y(J)pI,JIN3 :X(J)0:Y(J) I,JIN3L:X(J):Y(J)0I,JIN38:X(J)0:Y(J)PI,JIN3:X(J):Y(J)III,JIN3 :X(J)0I:Y(J) ,JIN3:X(J)XI:Y(J)`,JIN3:X(J)I:Y(J)`,&JIN3<:X(J)PI:Y(J) 0I: ZIELFELDERDI,NJIM3:X(J) :Y(J) I,XJIM3:X(J)XI:Y(J)@,bJIM3@:X(J) :Y(J)I%lJIM3:X(J)PI:Y(J)@vI HEIMFELDERHX()P:X()p:X( )H:X(@)XHX(@)P:X()p:X(`)H:X()XHX(P)P:X(`)p:X()H:X( )XHX(p)P:X()p:X(0)H:X(@)XIY() :Y() :Y( ) :Y(@) HY(@)`:Y()`:Y(`)`:Y()`HY(P):Y(`):Y():Y( )HY(p):Y():Y(0):Y(@)$ BELEGEN DER SPIELFELD-SYMBOLE IM2:A(I)\:I/IN3:A(I):A(IM3):IHA(|)C:A(()A:A( )D:A(D)B7 BELEGEN DER EIN,- AUSSPRUNG-NRN., HOECHSTPLAETZEL E1()|:E1()(:E1(@) :E1()DLE2()t:E2():E2(@):E2()<L E3():E3() :E3(@)(:E3()0!* BELEGEN DER ANFANGSPLAETZE4IN3:S(I)I:IH>S()|:S()(:S(@) :S()D H BELEGEN DER FIGUR-SYMBOLEBRF()G:F()&:F(@):F() \ BELEGEN DER WUERFELZAHLENfI@pJzI W1(I,J)  W1(I,J)J&I(I) W1(I, )  I ,W1(I,):W1(I,)I ,W1(I,@):W1(I,`)IOW1(@,):W1(@,@):W1(@, ) PROGRAM-ERKLAERUNGEN,"":[,]"ES GEHT LOS !!!!"::[@,]"MAX. 4 SPIELER KOENNEN MITMISCHEN".$::[@,]"DU HAST DIE WAHL:":/."SPIELER HAT KEIN STARTRECHT (0)"/8"SPIELER WIRD DURCH COMPUTER ERSETZT (1)"/B"DU WILLST SELBST SPIELEN (2)"LV`:"CGDFCGDFF"`I2j,,C1(I),:"SPIELER ";I;" = (0,1,2) ?"tQ$:Q$"" t~"";(p);Q$Q$"1" Q$"2" Q$"0"     j#PP(I):FP(I): PP(I): PP(I)FP(I)"NAME";:NM$(I):I: IPGPS IPP(I) <PGPG(PP(I) <2PSPS<I:,,,FPG d P @ Z dInPP(I) xI , , , S(): S(): S(@)@: S()F(I)I PROGRAMM-ERKLAERUNGEN   AUFBAU DES SPIELFELDES     . BEMERKUNG, WENN FALSCHE TASTE GEDRUECKT :"PASS DOCH BESSER AUF !"`:"CGEFCF"Tz:T#" "0"" ",$6 BEMERKUNG, WENN KEINE SPIELER!@"":`:"GCFCA"JT::TDT"WENN DU MEINST, DU KANNST MICH ....":Tz:T:""<^T::T:"DANN MEINST DU DAS AUCH NUR !!"hTz:Tr`:"GAEFCFCA"|+ PROGRAMM-ERKLAERUNGEN (PRIORITAETEN)"";(`);" "(`);" Ç "(`);" "(`);" "(`);" ŷ "(`);" ĉ "%"";(P);"SPIELREGELN !!"`:"CGDEFH"J`: "PRIOITTEN :""CDEF"J: >[,]"WICHTIGSTER ZUG: WERFEN, WENN MGLICH !"J : ;[,]"DANACH: FREIMACHEN NACH '6'"&J0: ;0[,]"DANACH: EINSETZEN BEI '6'":J@: :D[,]"SONST: EINE FIGUR SETZEN,";N[,]" DIE SPRINGEN KANN !"XJp: b[@,]"WARNUNG:"l"GDGDGDGD"vJ: =[@,]"SOLLTE AUS VERSEHEN DER EIGENE SPIELER";[@,]"GETROFFEN WERDEN, FLIEGT ER RAUS !!!""DEFAGGFGC"J: $"SPIELREGELN BEGRIFFEN ? ---""ECGHGA"J : '"DANN BELIEBIGE TASTE DRUECKEN !""EFGCDECC"PS T$:T$""  BEWEGEN VON MUND + AUGE`:"G" I "":();"" T :T*"":();""4T :T>IH"":();"{"RTH:T\"":();""fTH:TpIJ::Iz AUFBAU DES SPIELFELDES[,]"";NM$():[,]"";NM$():[@,]"";NM$():[,]"";NM$(@)IM2N(Y(I)) X(I)O,A(I):(Y(I)) X(I),PD5, ::,:,@:8@,`I EINSETZEN DER SPIELERKN3X0X(S(K)):Y0Y(S(K)) ZZ((K)N2) Z0F(ZZ)X(Y0) X0O,Z0:(Y0) X0,CO((K}L))`:"A" K , SPIELPROGRAMM (P0=AKTUELLER SPIELER)$ P0. NP8 P0P0B P0P0 L NPNP:NP fV FP(P0) 8 ` PP(P0) 8 j 0t PP(P0) ~ ZF ABFRAGE AUF SECHS# WELCHE FIGUREN SIND MOEGL. ? I0(P0) I I1I0I:SSS(I1)W0$ S9(I1):S(I1)  W0@   S9(I1) :SSE1(P0) |  S(I1)  S(I1)E3(P0)   SSE3(P0)   S9(I1)@:SP(I1)SS! PP(P0)S9(I1)8 ABFRAGE, OB ANDERE FIGUR IM ZIELPLATZ DAVOR STEHT L( LI x 2 S(I0L)E3(P0) x < S(I0L) x F S(I1)S(I0L) x P SSS(I0L) d Z S9(I1):  d SSS(I0L) x n S9(I1):  x L  # SSSSSS SSE2(P0) ^  S(I1)E2(P0)  S(I1)SS ^  KANN INS ZIEL SPRINGEN+ S8(P0)SSE2(P0) S8E3(P0)  SSS8 ABFRAGE, OB FIGUR DAVOR L LI @  S(I0L)E3(P0) @  SSS(I0L) ,  S(I0L) @ " S9(I1):  , SSS(I0L) @ 6 S9(I1):  @ L/J S9(I1):PP(P0)S9(I1) T  ^ NORMALER SPRUNG&h ABFRAGE, OB NEUER PLATZ BESETZTr S9(I1)| L LP0  J IJ  SSS(I0J)  S9(I1):   J   J# SSS((L)J)  S9(I1)  S9(I1):   S9(I1)`:   J L SP(I1)SS I"& BEREITS ALLE SPIELER DRIN ?0 W0@ N : PP(P0) N D N JJX I!b S(I0I)JJJJl Iv JJ  FREIMACHEN MOEGLICH ? I S9(I0I)  S9(I0I)  S(I0I)E1(P0)  S9(I0I)@ I ENTSCHEIDUNG, WELCHER ZUG NM:PS I S9(I0I)   NMNM PSS9(I0I)   PSS9(I0I) III I NM H * W0@ > 4 PP(P0)  > "H DIE VORDERSTE FIGUR SUCHENR I\ V0S(I0I)f S(I0I) p S(I0I) .z V0S(I0I)E2(P0):V0V0V0` V0V0 SR(I)V0 I V1 J V2* I:SR(I)V2  V3I:V2SR(I) I, SR(V1)V3:SR(V3)V1:V1V1 J5 WENN MEHRERE ZUEGE GLEICHWERTIG, NIMM VORDEREN PP(P0) BPS IS9(I0SR(I))PS .$IISR(I): 8.I 8 BW0@ V L VPS  ` jT/tZ$:Z$""  ~ T    `Z$"1" Z$"2" Z$"3" Z$"4"   2  `  II(Z$)@! ABPRUEFEN, OB ZUG ERLAUBTS7S9(I0SR(II)) S7  ZUG NICHT MOEGLICHZFZF(ZF F 2  < FZF d P  Z "d -- SPIELREGELN ERLAEUTERN n  x     ZF :"GGF"  `S7 ! WERFE EIGENEN SPIELER RAUS- :"GGGGGG":TH:T:   PSS7  ANDERER ZUG GEHT VOR ! :"DDDDDD": `IISR(II)6X0X(S(I0II)):Y0Y(S(I0II)):Z0A(S(I0II)): 2X0X(SP(I0II)):Y0Y(SP(I0II)):Z0F(P0): S(I0II)SP(I0II)*"S(I0II)E3(P0)E3(P0)E3(P0)$, ABFRAGE, OB SPIELER GETROFFEN6S9(I0II)` T@S9(I0II) T J TI^II0II rhSP(I0II)S(I) | rI:3|MM((I)):S(I)I:SP(I)I#X0X(S(I)):Y0Y(S(I)):Z0F(MM) :@:"EDCC"  W0@ WPP0:W0:   j # ABFRAGE, OB SPIELER RAUS ISTNPIS(I0I)E3(P0) NPNPINP &FP(P0)PP(P0)WPP0:W0:  & . 0 WUERFELN (W0):WPP0DWPWPNFP(WP) vXPP(WP) vbWPWP l DvW0   WPP0$W0(@())   MALEN DES WUERFELS  W0@ `:"CFC"   DARSTELLEN DES WUERFELS$ WP AKTUELLER SPIELER; W0 ZAHLWP , , , *$ X0:Y0:CO: 4$X0:Y0:CO : 4$ X0:Y08:CO@: 4$*X0:Y08:CO`: 44I>AAW1(W0,I)HJ2((I)@)RJ1IJ2@ \XXX0J1 fYYY0J2%p(YY) XXO,AA"z(YY) XX,COI TEXTE ZUR SECHS#I(0())PP(P0) .3I , , , , , , , , , , $=T1$" ":T2$" " :T3$" !!": =T1$"N, WER ":T2$"SAGTS DENN" :T3$" !! ": =T1$"TSCHI ":T2$"B " :T3$"D !!": =T1$"HA HA ":T2$"HI HI " :T3$"AETSCH ": =T1$"H H H ":T2$"H H H " :T3$"AETSCH ": =T1$"DEM GUTEN ":T2$"DAS GLUECK" :T3$" !...! ": =T1$"HTTEST DE":T2$"AUCH WOHL " :T3$"GERN ?? ": =T1$"IST NICHT ":T2$"GEMOGELT " :T3$" !!! ": =T1$"JETZT NOCH":T2$"5 MAL NE " :T3$"SECHS ?? ": =T1$"TRALALI ":T2$"JAWOHL, " :T3$"JAWOHL ": =$T1$"DAS GLCK ":T2$"DEM KNNER" :T3$" !": 3.I 8, B, L, V, `, j, t, ~, , , =8T1$"DIE DUEMM-":T2$"STEN SAEUE" :T3$"WERFEN 6 ": =BT1$"MANCHE HA-":T2$"BEN MEHR ." :T3$".ALS GRIPS": =LT1$"DU KANNST ":T2$"AUCH NICHT" :T3$"DAFUER ! ": =VT1$"HAST WOHL ":T2$" " :T3$" ???? ": =`T1$"DAS SOLLTE":T2$"VERBOTEN " :T3$"WERDEN !! ": =jT1$"MACH MAL ":T2$"SCHLUSS " :T3$"MITDE 6'EN": =tT1$"VERDIENT ":T2$"HASSE SE " :T3$"NICH !!! ": =~T1$"MANNE MAN ":T2$"WO SOLLS " :T3$"NOCH ENDEN": =T1$"HASSE DA ":T2$"NOCH TNE " :T3$"NONNE 6 !": =T1$"L '":T2$" " :T3$"SEXI 6 !! ": =T1$"6, ABER ":T2$"KEIN VER-" :T3$"STAND NICH":  ANFRAGE NACH SPIELER#I(0())3I , , , , , , , , , , (=T1$"WELCHEN ":T2$"SPIELER ?":T3$" (1-4) ": =T1$"WELCHES ":T2$"N":T3$" (1-4) ? ": =T1$"W ":T2$"K .":T3$" (1-4) ? ": =T1$"S":T2$"1,2,3 ODER":T3$"AUCH 4 ?? ": =T1$"ZIEH ":T2$"ST":T3$" (1-4) ? ": =T1$"' ":T2$", ":T3$"U ?": =T1$"WIE ' ":T2$" 1.":T3$"? 2-4?": = T1$"GUT .":T2$" 1/2 '":T3$": 1-4?": =T1$"MACH WAS, ":T2$"TU' WAS ":T3$" (1-4) ? ": =T1$"H' ":T2$" .... ":T3$" (1-4) ? ": =(T1$"WELCHEN ":T2$"S ":T3$" (1-4) ? ": %2 TEXTE BEI FALSCHEM TASTENDRUCK#<I( ())FI P, Z, d, n, x=PT1$"RICHTIGE !":T2$"TASTE NEH-":T3$"MEN (1-4)! ": =ZT1$"DEINE FIN-":T2$"GER TREFFN":T3$"FALSCH !!! ": =dT1$"MACH'S ":T2$"BESSER ":T3$" (1-4) ! ": =nT1$"SETZ' DIE ":T2$"BRILLE AUF":T3$" (1-4) ! ": =xT1$"DU PENNER,":T2$"SUGLING ":T3$" (1-4) ! ": & :"CCDE":Tz:T! TEXTE BEI ZU LANGEM WARTEN#I( ())I , , , , =T1$"AUSGE- ":T2$"SCHLAFEN ":T3$" ??? ": =T1$"GUTEN MOR-":T2$"GEN !!!!! ":T3$" ??? ": =T1$"SCHICK' NE":T2$"POSTKARTE ":T3$" ??? ": =T1$"HALLO ":T2$"AUFWACHEN ":T3$" ??? ": =T1$"LASS KNAK-":T2$"KEN, ABER ":T3$"BALD !!!!!!": % ::"CDEFG":`GK@:"CFGDHVNFBGRTFFGDHRTFGH":K:TH:T! WERFE EIGENEN SPIELER RAUS=T1$"DAS WAR ":T2$"DEINER, ":T3$"DU DUMMKOPF": # TEXT WENN ZUG NICHT MOEGLICH" I=INT(11*RND(1))+1 ,I36I @, J, T, ^, h, r, |, , , , =@T1$"ZUG NICHT ":T2$"MOEGLICH, ":T3$"PASS AUF !!": =JT1$"**********":T2$"**********":T3$".**********": =TT1$"**********":T2$"**********":T3$".**********": =^T1$"**********":T2$"**********":T3$".**********": =hT1$"**********":T2$"**********":T3$".**********": =rT1$"**********":T2$"**********":T3$".**********": =|T1$"**********":T2$"**********":T3$".**********": =T1$"**********":T2$"**********":T3$".**********": =T1$"**********":T2$"**********":T3$".**********": =T1$"**********":T2$"**********":T3$".**********": =T1$"**********":T2$"**********":T3$".**********": LHSV:L# BESSER AUFPASSEN BEI ZUGWAHL=T1$"DENK ANNE ":T2$"SPIELREGLN":T3$"DU DUMMKOPF":  ANDERER ZUG GEHT VOR !=T1$"EIN ANDRER":T2$"ZUG GEHT ":T3$"VOR !!!!! ": SV  SCHREIBEN EINER BEMERKUNG# SPIELER P0, TEXT T1$,T2$,T3$P0 , 0, X,  [,]"";T1$,[,]T2$:[,]T3$ & =0[,]"";T1$8:[,]"";T2$8D[,]"";T3$ N KX[,]"";T1$8b[,]"";T2$8l[,]"";T3$ v .[@,]"";T1$,[@,]T2$:[@,]T3$ T1$" "   SV: LOESCHEN DES TEXTEST1$" "T2$" "T3$" "  '(Z0)(Z0)(Z0C)COP(Z0G)(Z0)CO!(Z0&)(Z0)CO ! (Z0)(Z0)CO@(Z0)(Z0)CO` M H*(Y0) X0O,:(Y0) X0,PC4(Y0) X0O,Z0:(Y0) X0,CO>MCH(Y0) X0O,Z0:(Y0) X0,CO R "A1"\f ENDE ------------- p""zM "") ();"pppp w p pppw pppp"% ();"p pw p p p p) ();"ppp pvwp p p ppp ") ();"p p vp p p p ") ();"pppp p v pppu pppp"`:"CCCFE"TH:T""();" *"();" *** "();"*****"();" *** "();" *"T :TM $"A1".Z$:Z$"" . 8