ZXTape!UMADN _M_MaM M.A.D.N.   1984 Nilles Romain   GRAPHIKEN 'e$=" " n="a""q"+7 a:n,a n >1;10 ,0;" SPIELREGELN sehen (j/n) ?" ##="j"Ŧ="J"8000@:80P %="n"Ŧ="N"80P ' 35# (Q126~,129,129,129,129,129,129,126~ 260<,66B,129,129,129,129,66B,60<,0,0,0,255,0,0,0,0,16,16,16,16,16,16,16,16 <0,130,68D,40(,16,0,0,0,0,0,0,16,40(,68D,130,0 A255,255,255,231,231,255,255,255,255,255,159,159,243,243,255,255,255,159,159,231,231,249,249,255 F255,153,153,255,255,153,153,255,153,153,255,231,231,255,153,153,255,153,255,153,255,153,255,255,0,66B,153,60<,153,60<,126~,255,24,24,60<,60<,24,24,60<,126~ K60<,24,153,255,255,153,24,60<,24,60<,126~,255,255,126~,60<,24,0,546,127,127,127,62>,28,8 L VARIABLEN P-n$(4,8):u(4):p(4) Rcomp=0 U&move=1:fp=1:lp=4 Z`a(9 ):b(9 ):c(9 ):d(9 ):e(9 ):f(9 ):g(9 ):h(9 ) _`st=0:u$="":x$="""j"" zum Bewegen der Figur":y$="":z$="**** UNKORREKTE EINGABE ****" `Ta(5)=40(:c(5)=10 :e(5)=20:g(5)=30 dx(40():y(40() i EINGABE DER DATEN j n.1;5;"ANZAHL DER SPIELER ? ";pl xLpl1pl>4#0;z$:2,-30:502:110n }@0,0;1;"""#"" ALS PREFIX ->COMPUTER SPIELT" n=1pl e"Name des ";(n);".ten Spielers ? ";;a$:a$>0a$(1)="#"comp=1:a$=a$(2) Da$0űa$>8#0;z$:2,-30:140 n$(n)=a$:n=1 *"Welche Farbe bitte fuer ";(a$);" ";u(n) Fu(n)<0u(n)>5#0;z$:2,-30:150 N5+n,5;u(n);7;1;n;0;n$(n);" FARBE : ";u(n) n  KOORDINATEN DES BRETTS n=140( x(n),y(n) n ȷ20,12 ,18,12 ,16,12 ,14,12 ,12 ,12 ,12 ,10 ,12 ,8,12 ,6,12 ,4,10 ,4,8,4,8,6,8,8,8,10 ,8,12 ,6,12 ,4,12 ,2,12 ,0,12 ,0,14,0,16,2,16,4,16,6,16,8,16,8,18,8,20,8,22,8,24,10 ,24,12 ,24,12 ,22,12 ,20,12 ,18,12 ,16,14,16,16,16,18,16,20,16,20,14 n=69 )a(n),b(n),c(n),d(n),e(n),f(n),g(n),h(n) n 18,14,10 ,6,2,14,10 ,22,16,14,10 ,8,4,14,10 ,20,14,14,10 ,10 ,6,14,10 ,18,12 ,14,10 ,12 ,8,14,10 ,16  SPIELBRETT ZEICHNEN 6:6:0: u8,4;" ";8,16;" ";12 ,4;" ";12 ,16;" " 40,12 ;" ";20,12 ;" " n=13 202 3n-12 ,12 ;"";n-12 ,16;"" 6!n,12 ;"";n,16;"" @n J,9 ,4;"";11 ,4;"" T.9 ,24;"";11 ,24;"" cn=140( hx(n),y(n);1;"" rn |n=69 a(n),b(n);u(1);"";c(n),d(n);u(2)+6*(2>pl);"";e(n),f(n);u(3)+6*(3>pl);"";g(n),h(n);u(4)+6*(4>pl);"" 1a(n)ɺa(n)a(n),b(n);1;u(1);"" 1c(n)ɺc(n)c(n),d(n);1;u(2);"" 1e(n)ɺe(n)e(n),f(n);1;u(3);"" 1g(n)ɺg(n)g(n),h(n);1;u(4);"" n /19,11 ;"";20,11 ;"" 7,4;"->" -0,17;"";1,17;"" 13 ,23;"<-" n=1pl a17-(n1n4)*13 ,24-(n3n4)*24;1;n$(n) n  SPIELFIGUREN ZEICHNEN n=1pl Vx=19-(n1n4)*17:y=27-(n3n4)*26 x,y;" " i=3p(n)+b(n)-1 &x,y+i;u(n);(156+n) 0i :n Dn=1pl F0a(n)0x(a(n)),y(a(n));u(1);"" H0c(n)0x(c(n)),y(c(n));u(2);"" J0e(n)0x(e(n)),y(e(n));u(3);"" L0g(n)0x(g(n)),y(g(n));u(4);"" Nn X HAUPTPROGRAMM Z[15,19;0;1;"** SPIELER **";16,20;"-";n$(move);" -" ]17-(move1move4)*13 ,24-(move3move4)*24;1;n$(move+(move=0)) bpu$""21,0;1;u$:.2~L,30:.3,28:.4L,26:u$="":502 g}move=comp21,0;" *** COMPUTER SPIELT *** ":.3,0:.2~L,1:.1}L,2:640 lG21,0;0;"* TASTE DRUECKEN ZUM WUERFELN *":0 q="!"85004! v="@"8600!:250 {="#"100d: 21,0;e$ %5,18;" " n=1̥*10 +3  .05|L,n dice=(*6)+1 H5,18+n;(149+dice):5,18+n-1;" " n (1000*move) ƈ17-(move1move4)*13 ,24-(move3move4)*24;1;0;n$(move+(move=0)) move=move+1 move>plmove=1  fp=1:lp=4 %#st=1st=0:500 * 580D  SPIELER 1 RUNDE  6000p &dice=65000:1800  FIGUR AUSWAEHLEN  &comp=16500d:1110V  k=fplp $a(k)=01100L 8+1;u(1);x(a(k)),y(a(k));"" =321,0;0;1;k;0;x$ B80:="j"Ŧ="J"21,0;e$:1110V G"u(1);x(a(k)),y(a(k));"" Lk:1050 Q FIGUR BEWEGEN  Vr=1dice `(x(a(k)),y(a(k));0;1;"" ta(k)=a(5)1700 ~a(k)=a(k)+1 8x(a(k)),y(a(k));u(1);"":.1}L,*-20 r  JEMAND GEPUSTET ?  t=14 'a(k)=a(t)tk7100:1300 #a(k)=c(t)7000X:2300 #a(k)=e(t)7000X:3300 #a(k)=g(t)7000X:4300 t   GEPUSTET ! x=t #0tp(1)a(t)=a(p(1)):x=p(1) P9a(x)=0:p(1)=p(1)-1:st=1 Z  ? IM HAUS ANGEKOMMEN ? dice=dice-r:a(k)=41)-r (dice>35100:1180: pos=6+dice *a(pos)ɺa(pos)5300:1180: Oa(pos),b(pos);u(1);1;"":a(pos)=a(pos)+.1}L:a(k)=0 &.1}L,20:.1}L,30 >b(1)=b(1)+1:p(1)=p(1)-1  b(1)=49000(#  710  NEUE FIGUR NEHMEN  -p(1)+b(1)=45200P: r=1p(1) &a(r)=15400: 0r :p(1)=p(1)+1 D$k=14:a(k)0k Ia(k)=1 N 1180 S 5900  X 500  SPIELER 2 RUNDE  6000p &dice=65000:2800  FIGUR AUSWAEHLEN   k=fplp  c(k)=021004  +1;u(2);x(c(k)),y(c(k));"" %321,0;0;1;k;0;x$ *80:="j"Ŧ="J"21,0;e$:2110> /"u(2);x(c(k)),y(c(k));"" 4k:2050 9 FIGUR BEWEGEN  >r=1dice H(x(c(k)),y(c(k));0;1;"" Rc(k)=40(c(k)=0 \c(k)=c(5)2700 fc(k)=c(k)+1 p8x(c(k)),y(c(k));u(2);"":.1}L,*-20 zr  JEMAND GEPUSTET ?  t=14 'c(k)=c(t)tk7100:2300 #c(k)=a(t)7000X:1300 #c(k)=e(t)7000X:3300 #c(k)=g(t)7000X:4300 t   GEPUSTET ! x=t 0tp(2)c(t)=c(p(2)):x=p(2) 89c(x)=0:p(2)=p(2)-1:st=1 B  ? IM HAUS ANGEKOMMEN ? dice=dice-r:c(k)=11 -r (dice>35100:2180: pos=6+dice *c(pos)ɺc(pos)5300:2180: Oc(pos),d(pos);u(2);1;"":c(pos)=c(pos)+.1}L:c(k)=0 &.1}L,20:.1}L,30 >b(2)=b(2)+1:p(2)=p(2)-1 b(2)=49000(# 710  NEUE FIGUR NEHMEN  -p(2)+b(2)=45200P: r=1p(2) c(r)=11 5400: r "p(2)=p(2)+1 ,$k=14:c(k)0k 1c(k)=11 6 2180 ; 5900  @ 500  SPIELER 3 RUNDE 6000p &dice=65000:3800  FIGUR AUSWAEHLEN  k=fplp e(k)=03100 +1;u(3);x(e(k)),y(e(k));"" 321,0;0;1;k;0;x$ 80:="j"Ŧ="J"21,0;e$:3110& "u(3);x(e(k)),y(e(k));"" k:3050 ! FIGUR BEWEGEN  &r=1dice 0(x(e(k)),y(e(k));0;1;"" :e(k)=40(e(k)=0 De(k)=e(5)3700t Ne(k)=e(k)+1 X8x(e(k)),y(e(k));u(3);"":.1}L,*-20 br g JEMAND GEPUSTET ?  lt=14 q'e(k)=e(t)tk7100:3300 v#e(k)=a(t)7000X:1300 #e(k)=c(t)7000X:2300 #e(k)=g(t)7000X:4300 t   GEPUSTET ! x=t 0tp(3)e(t)=e(p(3)):x=p(3) 9e(x)=0:p(3)=p(3)-1:st=1 * t ? IM HAUS ANGEKOMMEN ? ~dice=dice-r:e(k)=21-r (dice>35100:3180l : pos=6+dice *e(pos)ɺe(pos)5300:3180l : Oe(pos),f(pos);u(3);1;"":e(pos)=e(pos)+.1}L:e(k)=0 &.1}L,20:.1}L,30 >b(3)=b(3)+1:p(3)=p(3)-1  b(3)=49000(#  710  NEUE FIGUR NEHMEN  -p(3)+b(3)=45200P: r=1p(3) e(r)=215400: r  p(3)=p(3)+1 $k=14:e(k)0k e(k)=21  3180l # 5900  ( 500  SPIELER 4 RUNDE  6000p &dice=65000:4800  FIGUR AUSWAEHLEN   k=fplp g(k)=04100 +1;u(4);x(g(k)),y(g(k));"" 321,0;0;1;k;0;x$ 80:="j"Ŧ="J"21,0;e$:4110 "u(4);x(g(k)),y(g(k));"" k:4050   FIGUR BEWEGEN  r=1dice (x(g(k)),y(g(k));0;1;"" "g(k)=40(g(k)=0 ,g(k)=g(5)4700\ 6g(k)=g(k)+1 @8x(g(k)),y(g(k));u(4);"":.1}L,*-20 Jr O JEMAND GEPUSTET ?  Tt=14 Y'g(k)=g(t)tk7100:4300 ^#g(k)=a(t)7000X:1300 h#g(k)=c(t)7000X:2300 r#g(k)=e(t)7000X:3300 |t   GEPUSTET ! x=t 0tp(4)g(t)=g(p(4)):x=p(4) 9g(x)=0:p(4)=p(4)-1:st=1  \ ? IM HAUS ANGEKOMMEN ? fdice=dice-r:g(k)=31-r p(dice>35100:4180T: zpos=6+dice *g(pos)ɺg(pos)5300:4180T: Og(pos),h(pos);u(4);1;"":g(pos)=g(pos)+.1}L:g(k)=0 &.1}L,20:.1}L,30 >b(4)=b(4)+1:p(4)=p(4)-1  b(4)=49000(#  710  NEUE FIGUR NEHMEN  -p(4)+b(4)=45200P: r=1p(4) g(r)=315400: r p(4)=p(4)+1 $k=14:g(k)0k g(k)=31  4180T  5900   500  SUBROUTINES  'NE "6" GEWORFEN  $6,20;1;"66666" n=05242.67*G  .05|L,n n 6,20;" "   PASST NICHT INS HAUS  &.5,-5:.5,-4 521,0;"* SCHADE ! AUGENZAHL ZU GROSS *"  100d 21,0;e$  100d P FIGUREN SIND ALLE  UN=015 Z.025{L,n dn n521,0;" FIGUREN SIND ALLE " x2,0 21,0;e$ 3move=move-1:u$=" ** UND GLEICH NOCHMAL **"   BESETZT !!  ]21,0;"SCHADE ! BESETZT ":1.5@,0:100d:21,0;e$: KEINE NEUE FIGUR MOEGL. 1,40( "!U$=" ** UND GLEICH NOCHMAL ** " '?21,0;"** KEINE NEUE FIGUR MOEGLICH **":502 ,move=move-1 121,0;e$ 6   !! ZUGZWANG !! p(move)+b(move)=4  fp=k:lp=fp  =21,0;1;" * * * * * ZUGZWANG * * * * * " *9.3,3:.25~,15:.4L,26 421,0;e$ > p ZUERST "6" WUERFELN  z*p(move)=0dice66030  D21,0;2;7;" ZUERST 'NE ""6"" WUERFELN " <.5,-20:.5,-20:.5,-15 21,0;e$  710 d COMPUTER=SPIELER 1 n KANN ICH JEMAND PUSTEN sfp=lpk=fp: xk=14 u=14 a(k)=06590 a(k)+dice=c(u) a(k)+dice=e(u) a(k)+dice=g(u) u k  1.FIGUR SUCHEN  k=14 Za(k)a(1)a(k)a(2)a(k)a(3)a(k)a(4)a(k)06625 k g=k  PASST INS HAUS  mv=(a(k)+dice)-40( 7mv>0mv<5a(5+mv)=a(5+mv) , ** GEFAHR **  6k=41-1 @[x=a(k)+dice:x=a(1)x=a(2)x=a(3)x=a(4)a(k)=06790 Ju=14 T7>a(k) ^c(u)-1+u+k=a(k) he(u)-1+u+k=a(k) rg(u)-1+u+k=a(k) |u k  1. FIGUR BEWEGEN  mv0k=g:  k=14:x=a(k)+dice Xa(k)=a(g)x=a(1)x=a(2)x=a(3)x=a(4)a(k)=06860  k:k=g  X PUST-ROUTINE bn=110 la=12 vA6,20;(156+a);ں(*5);7;"PUST!" {.05|L,n/a a n 1,46. !6,20;" "   SELBST GEPUSTET *i=13:n=144160 I6,18;ں(*7);7;n;"BOOOH":.1}L,n/4 n:i _21,0;1;" ***** SELBSTGEPUSTET ***** ":100d:21,0;e$ .6,18;6;6;" "  st=1  @ SPIELREGELN J T,4;" ******** SPIELREGELN ******** " ^3"M.A.D.N. IST EIN SPIEL FUER 2 BIS 4 SPIELER" h'"DIE SPIELEGELN VON M.A.D.N. SIND FAST IDENTISCH MIT DENEN DES WOHLBEKANNTEN BRETTSPIELS (BIS AUF EINIGE AUSNAHMEN)" rQ'"1) DER COMPUTER KONTROLLIERT DASGANZE SPIEL (WUERFELN U. BEWEGENDER FIGUREN)" |U'"2) SOBALD EINE FIGUR IM ""HAUS"" ANGELANGT IST,IST IHRE POSITION UNVERAENDERBAR" x'"3) DIE FIGUREN SIND VERSCHIEDEN VON DENEN DES ORIGINALSPIELS UNDES KOENNEN SOGAR 2 FIGUREN DIE GLEICHE FARBE HABEN"  0: a'"OBEN RECHTS WIRD DER WUERFEL ERSCHEINEN UND UNTEN RECHTS DER NAME DES JEWEILIGEN SPIELERS" S'"ZUM SELEKTIEREN DER ZU BEWEGEN- DEN FIGUR IST JEDE TASTE AUSSER ""J"" MOEGLICH" <'"ES BENOETIGT EINER ""6"" UM EINE FIGUR HERAUSZUNEHMEN " r'"AUF EINEM FELD DARF NUR EINE FIGUR SEIN.FALLS MEHRERE UEBER- NIMMT DER COMPUTER DAS ""RAUS- SCHMEISSEN"""  0: '"SIE KOENNEN AUCH GEGEN DEN COM- PUTER SPIELEN INDEM SIE ""#"" ALS ERSTEN BUCHSTABEN EINGEBEN WENN AUFGEFORDERT.DER COMPUTER IST DANN SPIELER 1." F'"UM EIN BEGONNENES SPIEL AUF BANDZU SPEICHERN BITTE ""!"" EINGEBEN" }'"UM EIN SOLCHES PROGRAM WIEDER ZULADEN BITTE ""@"" EINGEBEN (DAS PROGRAMM KANN ABER AUCH EINZELN WIEDER GELADEN WERDEN)" /'"UM WIEDER NEU ANZUFANGEN ""#"" EINGEBEN" 0'''1;" BEREIT ? (J) " "j"Ʀ"J"8150  !4 BEGONNENES SPIEL SAVEN !>"NAME DES SPIELS ";y$ !C y$=""űy$>10 8510>! !H@9990':1;2;7;"SPEICHERE SPIEL ->";y$ !Ry$8560p! !\y$"a",21*8 !f 250 !py$ !z 250 ! BEGONNENES SPIEL LADEN !'"NAME DES (zu ladenden) SPIELS ";y$ ! y$=""űy$>10 8610! !49990':"LADE SPIEL ->";y$:0,0; !y$ ! 250 #( SPIEL IST UM #-tr$=" ** SPIEL IST UM **":1;1;9 ,5;r$;11 ,5;r$:.5,13 :300, #2 #<n=144,4 #F|64@+n,88X,43+:192-n,88X,43+:128,132-n,43+:128,44,+n,43+ #Pn #Uu$""move=move+1 #ZUmove=comp#0;1;1;" COMPUTER HAT GEWONNEN ":9070n# #d?#0;1;1;n$(move);" HAT DAS SPIEL GEWONNEN" # 300, #="NOCHEINMAL SPIELEN ? ";a$:a$="j"a$="JA"a$="J"a$="ja" #-:10 ,5;" O.K. SCHADE DRUM !! " $ & GANZES SPIEL SAVEN &9:len=(23627K\+256*23628L\)-20480P & 9990' &64;1;"  1984 VON ROMAIN NILLES " &"madn"20480P,len: ' BILDSCHIRM ''e$=" " ' n=07:n;n;e$;7-n;7-n;e$:n:1;1;" " ' |