0 IFIGOTO564 1 V=53248:POKEV+33,0:POKEV+32,0:POKEV+24,18:D$="":DIMW$(1):W$(0)="[154]":W$(1)="[154]":B$="[146]":DEFFNR(I)=INT(I*RND(TI)):I=RND(-TI):FORI=1TO20:W$(0)=W$(0)+"MN":W$(1)=W$(1)+"OP":B$=B$+" ":NEXT:S=54272:SYS4096 2 DIMA(86),F(30),R(1,5),V(30,30):FORI=0TO86:A(I)=99:NEXT:SYS4535:POKEV+21,0:FORI=0TO1:FORJ=0TO5:READR(I,J):NEXTJ,I:FORI=710TO717:POKEI,.:NEXT:FORI=0TO4:FORJ=0TO8:A(12+11*I+J)=.:NEXTJ,I:A(68)=.:A(70)=.:A(72)=.:A(74)=.:DIMB(30),M(30),T(13),RG(30):PRINT"[147]":Z0=8:Z1=1:Z2=10:Z3=36:GOSUB289 3 PRINT"[158]^ K R I E G U M D I E K R O N E [145]_":PRINT"[159] @ 1989 BY THE GERMAN DESIGN GROUP":PRINTSPC(90)"[154]WAS WIRD GEW]NSCHT?":POKE707,123:POKE708,138:PRINT"[150](SPIELSTAND LADEN) [153](NEUES SPIEL) 4 [158]4438:[139][194](708)[179]119[176][194](708)[177]146[137]4 5 [139][194](707)[179]90[137]563 6 [141]296:U$[178]" CMDCMDCMD CMDCMDCMD ONON":[153]"";:[129]I[178]1[164]5:[129]J[178]1[164]4:[153]U$"ONON"U$"";:[130]:[153]U$"";:[130]:[153]"ONON";:[129]I[178]1[164]4:[153]U$"";:[130]:[153]"":[129]I[178]0[164]4:[153][200](D$,4[172]I[170]4)"PRINT#";:[129]J[178]1[164]4:[153]"LENCMDSTR$CMDPEEKONTANTANTANATNCMDLENONCMDONPEEK";:[130]J,I:[129]I[178]0[164]3:[153][200](D$,7[170]4[172]I)""; 7 [129]J[178]1[164]4:[153]"TANTANTANATN STR$";:[130]:[153]"TANTANTAN":[130] 8 I[178][165]R(27)[170]25:[139]A(I)[177].[176]I[178]30[176]I[178]57[137]8 9 Z[178]I[171][181](I[173]11)[172]11:[139]Z[178]1[176]Z[178]9[137]8 10 A(I)[178]90:Z[178]I:[141]288:[153]"CONTONCMDNMNMNCMDCMDCMDCMDCMDPOPOPCMDCMDCMDCMDCMDNMNMNCMDCMDCMDCMDCMDPOPOPCMDCMDCMDCMDCMDNMNMN":[129]I[178]1[164]6 11 Z[178][165]R(63)[170]12:[139]A(Z)[137]11 12 [141]288:J[178][194](211)[170]40[172]([194](211)[177]39)[170]40[172][194](214)[170]1024:[139][194](J[171]84)[178]94[176][194](J[171]160)[178]94[176][194](J[171]76)[178]94[137]11 13 [139][194](J[170]84)[178]94[176][194](J[170]160)[178]94[176][194](J[170]76)[178]94[137]11 14 [153]"POKE(null)(null)(null)CMDCMDCMD(null)ONCMD(null)LIST"[202]("YZ]^%&=>PEEKLENASCCHR$",I[170]I[171]1,2);:[153]"CMDCMD"[202]("[\_ '(?TANSTR$VALLEFT$RIGHT$",[170]I[170]I[171]1,2):F(24[170]I)[178]Z:A(Z)[178]24[170]I:[130]:[129]I[178]1[164]24 15 Z[178][165]R(63)[170]12:[139]A(Z)[137]15 16 [141]288:[139]I[179]5[167][153]"TOTOTOCMDCMDCMDTOTOTOCMDCMDCMDTOTOTO":[137]22 17 [139]I[179]9[167][153]"SYSTOTOTOCMDCMDCMDTOTOTOCMDCMDCMDTOTOTO":[137]22 18 [139]I[179]13[167][153]"FREUSRFRECMDCMDCMDABSINTABSCMDCMDCMDFREUSRFRE":[137]22 19 [139]I[179]17[167][153]"@WAITSIN@WAITCMDCMDCMDCOSPOSSQRCMDCMDCMD@WAITRNDLOG":[137]22 20 [139]I[179]21[167][153]"LISTTSTCMDCMDCMDRQRCMDCMDCMDTST":[137]22 21 [153]"LISTDCDCMDCMDCMDBEFCMDCMDCMDDGH 22 A(Z)=I:F(I)=Z:NEXT:FORI=0TO4:FORJ=0TO4:Z=12+I+I+11*J:IFA(Z)GOTO29 23 Y=FNR(6):K=. 24 K=K+1:Y=Y+1:IFY=6THENY=. 25 X=R(0,Y):IFK>6GOTO28 26 IF(A(Z+X)>.ANDA(Z+X)<25)OR(A(Z+X)=99)THENGOSUB37:GOTO29 27 GOTO24 28 X=0:A(Z)=99:GOSUB37 29 NEXTJ:FORJ=0TO5:Z=13+I+I+11*J:IFA(Z)GOTO36 30 Y=FNR(6):K=. 31 K=K+1:Y=Y+1:IFY=6THENY=. 32 X=R(1,Y):IFK>6GOTO35 33 IF(A(Z+X)>.ANDA(Z+X)<25)OR(A(Z+X)=99)THENGOSUB37:GOTO36 34 GOTO31 35 X=0:A(Z)=99:GOSUB37 36 NEXTJ,I:GOTO46 37 GOSUB288:IFA(Z+X)=99THENPRINT"[157][145][154]NMNMN[157][157][157][157][157]POPOP[157][157][157][157][157]NMNMN[157][157][157][157][157]POPOP"; 38 IFA(Z+X)=99THENPRINT"[157][157][157][157][157]NMNMN":A(Z)=90:RETURN 39 IFA(Z+X)<5THENPRINT"[164][164][164][157][157][157][164][164][164][157][157][157][164][164][164]":GOTO45 40 IFA(Z+X)<9THENPRINT"[158][164][164][164][157][157][157][164][164][164][157][157][157][164][164][164]":GOTO45 41 IFA(Z+X)<13THENPRINT"[184][183][184][157][157][157][182][181][182][157][157][157][184][183][184]":GOTO45 42 IFA(Z+X)<17THENPRINT"@[146][191]@[146][157][157][157][190][185][186][157][157][157]@[146][187][188]":GOTO45 43 IFA(Z+X)<21THENPRINT"[155]TST[157][157][157]RQR[157][157][157]TST":GOTO45 44 PRINT"[155]DCD[157][157][157]BEF[157][157][157]DGH 45 A(Z)[178]A(Z[170]X):[142] 46 [129]I[178]0[164]8:[129]J[178]0[164]4:Z[178]23[170]I[170]11[172]J:[139]A(Z)[177]24[176]A(Z)[179][177]A(Z[171]11)[137]53 47 [141]288:[139]A(Z)[179]5[167][153]"ONTOTOTO":[137]53 48 [139]A(Z)[179]9[167][153]"ONSYSTOTOTO":[137]53 49 [139]A(Z)[179]13[167][153]"ONABSINTABS":[137]53 50 [139]A(Z)[179]17[167][153]"ONCOSEXPCOS":[137]53 51 [139]A(Z)[179]21[167][153]"ONLISTRQR":[137]53 52 [153]"ONLISTBAB 53 NEXTJ,I:FORN=0TO1:FORI=0TO3:FORJ=0TO4:Z=12+I+I+N+11*J:K=Z+12-11*N:IFA(Z)>24ORA(K)>24ORA(Z)<>A(K)GOTO60 54 Z=K:GOSUB288:IFA(Z)<5THENPRINT"[157][164]":GOTO60 55 IFA(Z)<9THENPRINT"[157][158][164]":GOTO60 56 IFA(Z)<13THENPRINT"[157][183]":GOTO60 57 IFA(Z)<17THENPRINT"[157][191]":GOTO60 58 IFA(Z)<21THENPRINT"[157][155]S":GOTO60 59 PRINT"[157][155]C 60 [130]J,I,N:[129]N[178]0[164]1:[129]I[178]0[164]3:[129]J[178]0[164]4:Z[178]12[170]I[170]I[170]12[172]N[170]11[172]J:K[178]Z[170]1[171]11[172]N:[139]A(Z)[177]24[176]A(K)[177]24[176]A(Z)[179][177]A(K)[137]67 61 [141]288:[139]A(Z)[179]5[167][153]"TO":[137]67 62 [139]A(Z)[179]9[167][153]"SYSTO":[137]67 63 [139]A(Z)[179]13[167][153]"USR":[137]67 64 [139]A(Z)[179]17[167][153]"SIN":[137]67 65 [139]A(Z)[179]21[167][153]"LISTS":[137]67 66 [153]"LISTC 67 NEXTJ,I,N:FORI=0TO3:FORJ=0TO4:Z=12+I+I+11*J:IFA(Z)>24ORA(Z)<>A(Z+1)ORA(Z)<>A(Z+12)GOTO69 68 Z=1189+8*I+160*J:POKEZ+S,PEEK(Z+2+S):POKEZ,PEEK(Z+2) 69 NEXTJ,I:FORI=0TO3:FORJ=0TO4:Z=13+I+I+11*J:IFA(Z)>24ORA(Z)<>A(Z+1)ORA(Z)<>A(Z+11)GOTO71 70 Z=1193+8*I+160*J:POKEZ+S,PEEK(Z+2+S):POKEZ,PEEK(Z+2) 71 NEXTJ,I:FORI=0TO3:FORJ=0TO3:Z=12+I+I+11*J:IFA(Z)>24ORA(Z)<>A(Z+12)ORA(Z)<>A(Z+11)GOTO73 72 Z=1269+8*I+160*J:POKEZ+S,PEEK(Z-2+S):POKEZ,PEEK(Z-2) 73 NEXTJ,I:FORI=0TO3:FORJ=0TO3:Z=24+I+I+11*J:IFA(Z)>24ORA(Z)<>A(Z+1)ORA(Z)<>A(Z-10)GOTO75 74 Z=1273+8*I+160*J:POKEZ+S,PEEK(Z+2+S):POKEZ,PEEK(Z+2) 75 NEXTJ,I 76 Y=FNR(4):X=FNR(6):Z=1353+80*Y+4*X:IF(PEEK(Z+S)AND15)<>12GOTO76 77 POKEZ,142:POKES+Z,3:I=0:J=FNR(4) 78 I=I+1:IFI=5GOTO90 79 J=J+1+4*(J=4):ONJ+1GOTO80,84,86,88 80 IF(PEEK(Z+S-40)AND15)<>12OR(PEEK(Z+S-80)AND15)=3GOTO78 81 Z=Z-40:POKEZ,144:POKEZ+S,3:Z=Z-40 82 J=PEEK(Z+S)AND15:IFJ=3ORJ=14GOTO90 83 GOTO77 84 IF(PEEK(Z+S+1)AND15)<>12OR(PEEK(Z+S+4)AND15)=3GOTO78 85 FORJ=0TO1:POKEZ,142:POKEZ+S,3:Z=Z+1:POKEZ,141:POKEZ+S,3:Z=Z+1:NEXT:GOTO82 86 IF(PEEK(Z+S+40)AND15)<>12OR(PEEK(Z+80+S)AND15)=3GOTO78 87 Z=Z+40:POKEZ,144:POKEZ+S,3:Z=Z+40:GOTO82 88 IF(PEEK(Z+S-1)AND15)<>12OR(PEEK(Z-4+S)AND15)=3GOTO78 89 FORJ=0TO1:POKEZ,142:POKEZ+S,3:Z=Z-1:POKEZ,141:POKEZ+S,3:Z=Z-1:NEXT:GOTO82 90 GOSUB166:SYS4466:PRINT" SAGT DAS SPIELFELD ZU? [153](JA) [150](NEIN) ":POKE707,122:POKE708,7 91 SYS4438:IFPEEK(708)>10ORPEEK(707)<102ORPEEK(707)>150GOTO91 92 IFPEEK(707)>122THENRUN 93 GOSUB144:Z0=10:Z1=9:Z2=5:Z3=19:GOSUB289:PRINT"[158]WIEVIELE SPIELER?"SPC(69)"> 1 <[157][157][157][157]";:N=1 94 J=PEEK(56320):IF(JAND16)=.GOTO98 95 IF(JAND4)=.ANDN>1THENN=N-1 96 IF(JAND8)=.ANDN<4THENN=N+1 97 PRINTN"[157][157][157]";:GOTO94 98 SYS4508:PL=N:DIMN$(N),F$(N),C$(N),G$(N),T$(N),Z(5):FORN=1TOPL:Z1=9:Z3=18:Z2=6:Z0=10:GOSUB289:PRINT"[155]SPIELER"N", GIB"SPC(25)"DEINEN NAMEN EIN.":PRINTSPC(11)">[157]";:K=0:J=1 99 J=1-J:PRINTMID$("* ",J+1,1)"[157]";:GETU$:IFU$=CHR$(13)ANDK>2GOTO103 100 IFCHR$(20)=U$ANDK>0THENPRINT" [157][157] [157]";:K=K-1:N$(N)=LEFT$(N$(N),K):GOTO99 101 IFU$<"A"ORU$>"]"ORK=12GOTO99 102 N$(N)=N$(N)+U$:PRINTU$;:K=K+1:GOTO99 103 SYS4508:Z2=7:GOSUB289:PRINT"[159]"N$(N)"?":U$=RIGHT$(N$(N),1):J=0:IFU$="A"ORU$="E"THENJ=1 104 U$=RIGHT$(N$(N),1):IFU$="IS"ORU$="ID"ORU$="IN"ORU$="ES"THENJ=1 105 PRINTSPC(11)"DU BIST "MID$("M[NNWEIB",4*J+1,4)"LICH,"SPC(23)"NICHT WAHR?":PRINTSPC(51)"[153]( JA ) [150](NEIN)":POKE707,76:POKE708,125 106 SYS4438:IFPEEK(708)<115ORPEEK(708)>135GOTO106 107 IFPEEK(707)>76THENGOSUB289:PRINT"ENTSCHULDIGUNG!":J=1-J:FORI=1TO1E3:NEXT 108 G$(N)=" ":IFJTHENG$(N)="IN " 109 T$(N)="BARON"+G$(N) 110 SYS4508:POKE707,76:POKE708,119:Z0=10:Z2=5:Z1=8:Z3=22:GOSUB289:PRINT"[154]"T$(N)N$(N)",":PRINTSPC(10)"W[HLE DEIN WAPPEN:":PRINTSPC(11)"[158][210] [211] [212] [213] [214] [215] [216] [217] [218] 111 [158]4438:[139][194](708)[177]127[176][194](708)[179]112[176][194](707)[179]43[176][194](707)[177]113[137]111 112 C$(N)[178][202]("(null)(null)(null)(null)(null)(null)(null)(null)(null)",([194](707)[171]34)[173]8,1):[139]N[178]1[137]116 113 [129]I[178]1[164]N[171]1:[139]C$(N)[178][201](C$(I),1)[137]115 114 [130]:[137]116 115 Z0[178]14:Z1[178]16:Z2[178]5:Z3[178]13:[141]289:[153]"DIESES WAPPEN"[166]28)"WURDE SCHON";:[153][166]29)"GEW[HLT!":[151]707,111:[151]708,152:[158]4438:[137]110 116 [158]4508:Z0[178]10:Z2[178]5:Z1[178]8:Z3[178]22:[141]289:[153]"CONT"T$(N)N$(N)",":U$[178]"OPENCLRSYSDEFPRINTCONT":[151]707,76:[151]708,119:[153][166]10)"W[HLE DEINE FARBE:":[153][166]13);:[129]I[178]1[164]7:[153][202](U$,I,1)C$(N)" ";:[130] 117 [158]4438:[139][194](708)[177]127[176][194](708)[179]112[176][194](707)[179]52[176][194](707)[177]105[137]117 118 F$(N)[178][202](U$,([194](707)[171]42)[173]8,1):[139]N[178]1[137]122 119 [129]I[178]1[164]N[171]1:[139]F$(N)[178]F$(I)[137]121 120 [130]:[137]122 121 Z0[178]14:Z1[178]18:Z2[178]5:Z3[178]11:[141]289:[153]"DIESE FARBE"[166]29)"WURDE SCHON";:[153][166]30)"GEW[HLT!":[151]707,115:[151]708,152:[158]4438:[137]116 122 C$(N)[178]F$(N)[170]C$(N):[158]4508:Z0[178]11:Z1[178]7:Z2[178]4:Z3[178]24:[141]289:[153]""C$(N)" "T$(N)N$(N)" "C$(N):[153][166]10)"W[HLE EIN SCHLOSS...":[151]707,122:[151]708,122:[158]4438:[158]4508:[151]707,80:[151]708,100 123 [158]4438:X[178][181](([194](707)[171]6)[173]16):J[178]1[175]X:[139]X[179].[176]X[177]8[137]123 124 Y[178][181](([194](708)[171]20[170]16[172]J)[173]32):[139]Y[179].[176]Y[177]4[170]J[137]123 125 Z[178]A(12[170]X[170]11[172]Y):[139]Z[179]25[176]Z[177]30[137]123 126 [139]B(Z)[177].[137]123 127 B(Z)[178]N:M(Z)[178]1:Z[178]F(Z):[141]288:[153]C$(N)"1":[158]4466:[130]N:Z0[178]11:Z1[178]14:Z2[178]5:Z3[178]10:[141]289:[151]707,92:[151]708,130:[153]"SYSTROLLE"[166]33)"BEWOHNEN"[166]32)"DAS LAND":[158]4438:[158]4508:[134]NF(5):NF(5)[178]30[171]PL[172]4:[129]I[178]25[164]30:[139]B(I)[137]129 128 B(I)[178]5:M(I)[178]2:Z[178]F(I):[141]288:[153]"(null)2 129 NEXT:FORI=0TO1:FORJ=1TO21STEP4:Z=I+J:M(Z)=2:B(Z)=5:Z=F(Z):GOSUB288:PRINT"[223]2":NEXTJ,I:SYS4466:FORK=1TO3:FORN=1TOPL:NF(N)=4:Z0=11:Z1=7:Z2=5:Z3=24:GOSUB289:PRINT""C$(N)" "T$(N)N$(N)" "C$(N):PRINTSPC(10)"W[HLE EIN GEBIET...":POKE707,122:POKE708,122:SYS4438:SYS4508:POKE707,80:POKE708,100 130 SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO130 131 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO130 132 Z=A(12+X+11*Y):IFZ>30GOTO130 133 IFB(Z)>.GOTO130 134 B(Z)=N:M(Z)=1:Z=F(Z):GOSUB288:PRINTC$(N)"1":SYS4466:NEXTN,K:FORI=3TO24:IFB(I)GOTO136 135 B(I)=5:M(I)=2:Z=F(I):GOSUB288:PRINT"[223]2 136 [130]:[158]4466:[137]152 137 ZZ[178]0:[139]B(Z)[178]N[176]Z[178]T1[176]Z[178]T2[167]ZZ[178]1:[142] 138 [129]K[178]0[164]13:[139]T(K)[178]Z[167]ZZ[178]1:[142] 139 [130]:[142] 140 [158]4438:[151]53265,11:[158]4508:[129]I[178]0[164]13:[139]T(I)[167][141]143 141 [130]:[151]53265,27:[158]4466:[142] 142 Z0[178]11:Z1[178]12:Z2[178]3:Z3[178]13:[141]289:[153]"TROLL-PHASE":[129]I[178]0[164]333:[130]:[142] 143 X[178]K:K[178]T(I):M(K)[178]M(K)[170]1:[141]292:Z[178]F(K):[141]288:[153]"CLOSE":K[178]X:[142] 144 J[178]0:[129]I[178]74[164]12[169][171]1:J[178]1[171]J:[139]I[173]11[178][181](I[173]11)[167]J[178]1[171]J 145 Z[178]I:[139]A(Z)[177]89[137]149 146 [141]288:[153]"PRINT56CMDCMD78":[129]K[178]0[164]5:ZZ[178]A(Z[170]R(J,K)):[139]ZZ[177]89[176]ZZ[178]A(Z)[137]148 147 V(A(Z),ZZ)[178]1:V(ZZ,A(Z))[178]1 148 [130]K:[158]4508 149 [130]:I[178][165]R(24)[170]1 150 J[178][165]R(24)[170]1:[139]I[178]J[176]V(I,J)[178]1[137]150 151 V(I,J)[178]1:V(J,I)[178]1:Z[178]F(I):[141]288:[153]"PRINT#NOT":T1[178]I:Z[178]F(J):[141]288:[153]"PRINT#NOT":T2[178]J:[158]4466:[142]:[129]I[178]3[164]23[169]4:[129]J[178]0[164]1:Z[178]J[170]I:B(Z)[178]1:M(Z)[178]1:Z[178]F(Z):[141]288:[153]C$(1)"1":[130]J,I:[158]4466 152 Z0[178]11:Z1[178]12:Z2[178]5:Z3[178]12:[141]289:[151]707,92:[151]708,130:[153]"SYSDIE TRUHEN"[166]32)"WERDEN"[166]33)"VERTEILT 153 Z=FNR(24)+1:IFB(Z)<5ORZ=T1ORZ=T2GOTO153 154 T(0)=Z:FORN=1TOPL 155 Z=FNR(6)+25:GOSUB137:IFZZGOTO155 156 T(FNR(3)-2+N*3)=Z:FORI=0TO2:J=N*3-2+I 157 IFT(J)GOTO160 158 Z=FNR(24)+1:GOSUB137:IFZZGOTO157 159 T(J)=Z 160 NEXTI,N:GOSUB140:FORN=1TOPL:Z0=11:Z1=7:Z2=4:Z3=24:GOSUB289:PRINT""C$(N)" "T$(N)N$(N)" "C$(N):PRINTSPC(10)"PLAZIERE DEINE ARMEE.":POKE707,122:POKE708,122:SYS4438:SYS4508:POKE707,80:POKE708,100 161 SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO161 162 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO161 163 K=A(12+X+11*Y):IFK>30GOTO161 164 IFB(K)<>NGOTO161 165 M(K)=M(K)+10:GOSUB292:SYS4466:NEXTN:GOTO548 166 K=1:FORN=12TO74:K=1-K:IFN/11=INT(N/11)THENK=1-K 167 IFA(N)<>90GOTO180 168 J=INT(N/11):Z=1023+160*J+4*(N-11*J)-80*K:J=A(N+R(K,5)):IFJ>89ORA(N-11)>89GOTO171 169 X=Z-82:IF(PEEK(X+S-40)AND15)=3GOTO171 170 GOSUB255 171 J=A(N+R(K,1)):IFJ>89ORA(N-11)>89GOTO174 172 X=Z-78:IF(PEEK(X+S-40)AND15)=3GOTO174 173 GOSUB255 174 J=A(N+R(K,4)):IFJ>89ORA(N+11)>89GOTO177 175 X=Z+78:IF(PEEK(X+S+40)AND15)=3GOTO177 176 GOSUB255 177 J=A(N+R(K,2)):IFJ>89ORA(N+11)>89GOTO180 178 X=Z+82:IF(PEEK(X+S+40)AND15)=3GOTO180 179 GOSUB255 180 NEXTN:IFA(12)<90ANDA(13)<90THENX=1109:IF(PEEK(X+40+S)AND15)<>3THENJ=A(13):GOSUB255 181 IFA(19)<90ANDA(20)<90THENX=1137:IF(PEEK(X+40+S)AND15)<>3THENJ=A(19):GOSUB255 182 IFA(56)<90ANDA(68)<90THENX=1909:IF(PEEK(X-40+S)AND15)<>3THENJ=A(68):GOSUB255 183 IFA(74)<90ANDA(64)<90THENX=1937:IF(PEEK(X-40+S)AND15)<>3THENJ=A(74):GOSUB255 184 FORN=0TO2:J=A(13+N+N):IFJ>89ORA(14+N+N)>89GOTO186 185 X=1113+8*N:IF(PEEK(X+40+S)AND15)<>3THENGOSUB255 186 J=A(15+N+N):IFJ>89ORA(14+N+N)>89GOTO188 187 X=1117+8*N:IF(PEEK(X+40+S)AND15)<>3THENGOSUB255 188 J=A(68+N+N):IFJ>89ORA(58+N+N)>89GOTO190 189 X=1913+8*N:IF(PEEK(X-40+S)AND15)<>3THENGOSUB255 190 J=A(70+N+N):IFJ>89ORA(58+N+N)>89GOTO192 191 X=1917+8*N:IF(PEEK(X-40+S)AND15)<>3THENGOSUB255 192 NEXTN:RETURN 193 SYS4508:JH=JH+1:Z0=10:Z1=14:Z2=8:Z3=10:GOSUB289:PRINT"";:U$=STR$(INT((JH-1)/4)+1)+". JAHR":FORI=1TO7:PRINTMID$("[144][151][152][155]",I,1)U$SPC(40-LEN(U$))"[145]";:FORJ=0TO99:NEXTJ,I:PRINT"";:U$=MID$("FR]HLING SOMMER HERBST WINTER ",((JH-1)AND3)*8+1,8):FORI=1TO7 194 PRINTMID$("[144][151][152][155]",I,1)U$SPC(40-LEN(U$))"[145]";:FORJ=0TO99:NEXTJ,I:PRINTLEFT$(D$,16)SPC(15)"[158]SPIELENDE?"SPC(70)"[153](NEIN)[150](JA)":POKE707,73:POKE708,144 195 SYS4438:IFPEEK(708)<131ORPEEK(708)>148ORPEEK(707)<58ORPEEK(707)>101GOTO195 196 IFPEEK(707)>83GOTO535 197 IFNF(5)=0GOTO229 198 GOSUB142:Z0=14:Z1=18:Z2=5:Z3=10:GOSUB289:PRINT"[158]DIE TROLLE"SPC(30)"VERMEHREN"SPC(33)"SICH...":POKE707,110:POKE708,154:SYS4438:SYS4508:FORI=1TO7:RG(I)=.:NEXT:FORN=1TOTV 199 K=FNR(7)+1:IFRG(K)GOTO199 200 RG(K)=1:Z0=10:Z1=12:Z2=4:Z3=13:GOSUB289:PRINT"[158]...IN DEN"SPC(29);:U$=" GRASEBENEN SANDW]STEN BUSCHL[NDERN WALDGEBIETEN H]GELREGIONEN":U$=U$+" GEBIRGEN SCHL\SSERN":PRINTMID$(U$,13*K-12,13):POKE707,98:POKE708,114:SYS4438:IFK=7GOTO262 201 SYS4508:K=K*4-4:FORI=1TO4:K=K+1:IFB(K)<5GOTO207 202 Z=F(K):GOSUB290:M(K)=M(K)+1:GOSUB292:FORJ=25TO30:IFV(K,J)=.ORB(J)<5GOTO206 203 Z=F(J):POKEV+21,0:GOSUB290:M(J)=M(J)+1:GOSUB288:PRINT"";:IFM(J)>99THENPRINT"[150]"; 204 IFM(J)<10THENPRINT"[151][255]"RIGHT$(STR$(M(J)),1) 205 IFM(J)>9THENPRINTMID$(STR$(M(J)),2,2) 206 NEXTJ 207 POKEV+21,0:NEXTI:SYS4466:NEXTN:IFNF(5)=.GOTO229 208 Z0=10:Z1=12:Z2=5:Z3=14:GOSUB289:PRINT"[158]^DIE TROLLE [145]_"SPC(67)"PLANEN EINEN":PRINTSPC(17)"[145]KRIEG!"SPC(30)"^"SPC(12)"_":POKE707,87:POKE708,119:SYS4438 209 SYS4508:N=5:IFTKGOTO516 210 FORK=1TO30:IFB(K)<5ORM(K)24)*4GOTO228 211 FORG=1TO30:IFB(G)=5ORV(K,G)=.ORG=DRTHENNEXT:GOTO228 212 IFM(K)-1+(K>24)*524THENA=A-5:M(K)=6 216 GOSUB292:SYS4466:AK=35:GK=25 217 IFG>8THENGK=GK+5:IFG>12THENGK=GK+5:IFG>20THENGK=GK+5:IFG>24THENGK=GK+5:AK=21 218 GOSUB566:IFZ(B(G))=GTHENGK=GK+15 219 Z=INT((G-1)/4):GOTO367 220 M(G)=1:A=A-1:Z=F(G):GOSUB288:PRINT"[223][157]";:K=G:I=INT((K-1)/4):PRINTMID$("[146][164][146][158][164][146][182][146][190][155]R[155]B[146][151][255][146][151][255]",I*3+1,3):GOSUB292:IFA<1THENSYS4466:GOTO209 221 J=-1:FORI=1TO30:IFV(I,G)=1ANDG<>IANDB(I)=5THENJ=J+1:RG(J)=I 222 NEXT:IFB(G)=5THENJ=J+1:RG(J)=G 223 X=INT(A/(J+1)):IFX=.THENI=J:GOTO225 224 FORI=0TOJ:K=RG(I):M(K)=M(K)+X:A=A-X:GOSUB292:NEXT:I=J 225 IFA<1THENSYS4466:GOTO209 226 I=I+1:IFI>JTHENI=. 227 K=RG(I):M(K)=M(K)+1:A=A-1:GOSUB292:GOTO225 228 NEXTK:IFNF(5)=30GOTO515 229 IFDD>.ORJH=1GOTO266 230 Z0=11:Z1=11:Z2=3:Z3=15:GOSUB289:PRINT"DRACHEN-PHASE":POKE707,104:POKE708,114:SYS4438:SYS4508:K=DR 231 DR=FNR(24)+1:IFDR=KGOTO231 232 IFK=.GOTO242 233 Z=F(K):GOSUB288:PRINT"";:X=PEEK(211):Y=PEEK(214)+1:IFX>39THENX=X-40:Y=Y+1 234 IFK<5THENPRINT"[164][164][157][157][164][164]":GOTO240 235 IFK<9THENPRINT"[158][164][164][157][157][164][164]":GOTO240 236 IFK<13THENPRINT"[181][182][157][157][183][184]":GOTO240 237 IFK<17THENPRINT"[185][186][157][157][146][187][188]":GOTO240 238 IFK<21THENPRINT"[155]QR[157][157]ST":GOTO240 239 PRINT"[155]EF[157][157]GH 240 [158]4466:Z[178]F(DR):[141]288:I[178][194](211)[170]1:J[178][194](214)[170]1:[139]I[177]39[167]I[178]I[171]40:J[178]J[170]1 241 X[178]X[170][180](I[171]X):Y[178]Y[170][180](J[171]Y):[153][200](D$,Y)[166]X)"PRINT56CMDCMD78":[129]K[178]1[164]99:[130]:[139]X[179][177]I[176]Y[179][177]J[167][158]4508:[137]241 242 Z[178]F(DR):[141]288:[153]"PRINT56CMDCMD78":K[178]DR:[158]4466:[139]M(K)[179]2[137]253 243 [151]709,(DR[171]1)[173]4:[158]50183:[153]""[166]33)"LISTRNDLOGEXPCMDCMDCMDSQRWAIT";:[139]B(DR)[178]5[167][153]"(null)";:[137]245 244 [153]C$(B(DR)); 245 [153]"LISTSINCMDCMDCMDPOSCOSCMDCMDFRECMDUSR":K[178]M(DR)[171]1:[139]Z(B(DR))[178]DR[167]K[178]K[170]1 246 [139]K[177]29[167]K[178]29 247 U$[178]"(null)(null)CMDCMD(null)(null)":[139]B(DR)[179]5[167]U$[178]")*CMDCMD+, 248 FORI=0TOK:PRINTLEFT$(D$,INT(I/6)*3+7)SPC((I-INT(I/6)*6)*4+9)U$;:NEXT:IFZ(B(DR))=DRTHENPRINT"[157][157][217][218][145][157][157][215][216] 249 [158]4612:Z[178][165]R(5)[170]1:[139]M(DR)[179][178]Z[167]Z[178]M(DR)[171]1 250 [151]V[170]2,38:[151]V[170]3,0:[151]V[170]4,80:[151]V[170]5,82:[151]V[170]21,2:[129]I[178]2[164]66[169].1:[151]V[170]3,I:[130]:[153][200](D$,7)[166]9);:ZZ[178]2:[129]N[178]1[164]Z:[129]J[178]0[164]222:[130]:[151]V[170]21,6:[129]J[178]0[164]11:ZZ[178]9[171]ZZ:[151]53289,ZZ:[130]:[151]V[170]23,6:[151]V[170]29,6:[139]B(DR)[178]5[167][153]"LISTMID$(null)CMDCMD(null)(null)ON";:[137]252 251 [153]"LIST-.CMDCMD/0ON"; 252 [129]J[178]0[164]23:ZZ[178]9[171]ZZ:[151]53289,ZZ:[130]:[151]V[170]23,2:[151]V[170]29,2:[129]J[178]0[164]9:ZZ[178]9[171]ZZ:[151]53289,ZZ:[130]:[151]V[170]21,2:[129]I[178]1[164]32:[151]V[170]4,[194](V[170]4)[170]1:[151]V[170]2,[194](V[170]2)[170]1:J[178]2[174]2:[130]I,N:M(DR)[178]M(DR)[171]Z:[153]:[129]I[178]66[164].[169][171].2:[151]V[170]3,I:[130]:K[178]DR:[129]J[178]0[164]222:[130]:[151]53265,11:[158]4508:[151]V[170]21,0:[141]292:[151]53265,27 253 [158]4466:K[178]DR:[139]B(DR)[178]5[175][165]R(4)[177].[137]231 254 [137]266 255 [139]J[179]5[167][151]X,100:[151]X[170]S,5:[142] 256 [139]J[179]9[167][151]X,100:[151]X[170]S,7:[142] 257 [139]J[179]13[167][151]X,117:[151]X[170]S,5:[142] 258 [139]J[179]17[167][151]X,125:[151]X[170]S,5:[142] 259 [139]J[179]21[167][151]X,145:[151]X[170]S,15:[142] 260 [139]J[179]25[167][151]X,129:[151]X[170]S,15:[142] 261 [151]X,94:[151]X[170]S,11:[142] 262 [158]4508:[129]I[178]25[164]30:K[178]I:[139]B(I)[179]5[137]207 263 Z[178]F(K):[141]290:M(K)[178]M(K)[170]1:[141]292:[129]J[178]1[164]24:[139]V(I,J)[178].[176]B(J)[179]5[137]265 264 Z[178]F(J):[151]V[170]21,0:[141]290:M(J)[178]M(J)[170]1:K[178]J:[141]292 265 [130]J:[137]207 266 N[178]0 267 N[178]N[170]1:[139]N[177]PL[137]314 268 [139]NF(N)[178]0[137]267 269 [139]Z(N)[178].[137]300 270 [137]300 271 Z0[178]24 272 Z0[178]Z0[170]1:[139]Z0[177]30[167]Z0[178]1 273 [139]B(Z0)[179][177]N[137]272 274 Z[178]F(Z0):[141]290:A[178]0 275 [153]""K[171]A"CMD MANN ";:[139]K[171]A[177]1[167][153]"CMDCMDCMDCMDCMDCMD[NNER " 276 J[178][194](56320):[139](J[175]16)[178].[137]286 277 [139](J[175]8)[178].[175]A[179]K[167]A[178]A[170]1:[137]282 278 [139](J[175]4)[178].[175]A[177].[167]A[178]A[171]1:[137]282 279 [139](J[175]1)[178].[167]A[178]A[170]10:A[178]A[170](A[177]K)[172](A[171]K):[137]282 280 [139](J[175]2)[178].[167]A[178]A[171]10:A[178][171]A[172](A[177].):[137]282 281 [137]276 282 J[178]M(Z0)[170]A:Z[178]F(Z0):[141]288:[153]"";:[139]J[177]9[137]284 283 [153][202]("WAITTOWAITSYSTOWAITUSRWAITSINLISTSLISTCWAITPOKE(null)WAITPOKE(null)",[181]((Z0[171]1)[173]4)[172]3[170]1,3)"WAIT"[201]([196](J),1):[137]275 284 [139]J[177]99[167][153]"DEF"; 285 [153][202]([196](J),2,2):[137]275 286 [151]V[170]21,0:K[178]K[171]A:M(Z0)[178]M(Z0)[170]A:[139]K[137]272 287 [153]""W$(0):[158]4466:[142] 288 ZZ[178][181](Z[173]11):[153][200](D$,ZZ[172]4[171]2[171]2[172]((Z[171]11[172]ZZ)[173]2[177][181]((Z[171]11[172]ZZ)[173]2)))[166]4[172](Z[171]11[172]ZZ)[171]2);:[142] 289 [153][200](D$,Z0)[166]Z1)[202]("OPENCLRSYSFORDEFPRINT#PRINTCONTLIST",[165]R(11)[170]1,1)"^";:[129]I[178]1[164]Z3:[153]"AND";:[130]:[153]"="[166]38[171]Z3);:[129]I[178]1[164]Z2:[153]"<"[200](B$,Z3[170]1)"<"[166]38[171]Z3);:[130]:[153]"OR";:[129]I[178]1[164]Z3:[153]">";:[130]:[153]"SGN"[200](D$,Z0[170]1)[166]Z1[170]1);:[142] 290 Y[178][181](Z[173]11):X[178]Z[171]11[172]Y:Y[178]46[170]32[172]Y[170]16[172](X[175]1):X[178]30[170]32[172]X:[151]V[170]16,0:[139]X[177]255[167][151]V[170]16,1:X[178]X[171]256 291 [151]V,X:[151]V[170]1,Y:[151]V[170]21,1:[129]ZZ[178]0[164]500:[130]:[142] 292 Z[178]F(K):[141]288:[153]"";:[139]M(K)[177]9[137]294 293 [153][202]("WAITTOWAITSYSTOWAITUSRWAITSINLISTSLISTCWAITPOKE(null)WAITPOKE(null)",[181]((K[171]1)[173]4)[172]3[170]1,3)"WAIT"[201]([196](M(K)),1):[142] 294 [139]M(K)[177]99[167][153]"DEF"; 295 [153][202]([196](M(K)),2,2):[142] 296 [153]"LOAD";:[129]I[178]1[164]12:[153]W$(0)W$(1);:[130]:[153][200](W$(0),40)"NCMD"[199](148)"M":[142] 297 [139]Y[178]5[167][142] 298 [151]709[170]Y,[194](709[170]Y)[170]1:[139][194](709[170]Y)[177]4[167][151]709[170]Y,.:[151]713[170]Y,[194](713[170]Y)[170]1 299 [142] 300 Z0[178]10:Z2[178]5:Z1[178]8:Z3[178]22:[141]289:[153]C$(N)[166]20)C$(N)[166]19)"SYS"T$(N)N$(N)",":[153][166]10)"VERST[RKUNG TRIFFT":[153][166]10)"ONEIN:";:K[178][181](NF(N)[173]2[170].5):[129]I[178]25[164]30:[139]B(I)[178]N[167][129]J[178]1[164]24:K[178]K[171](V(I,J)[178]1[175]B(J)[178]N):[130] 301 [130]:[129]I[178]1[164]21[169]4:[139]B(I)[178]N[175]B(I[170]1)[178]N[175]B(I[170]2)[178]N[175]B(I[170]3)[178]N[167]K[178]K[170]2 302 [130]:[139]K[179]4[167]K[178]4 303 [153]K"MANN":[151]707,117:[151]708,119:[158]4438:[139]Z(N)[137]313 304 Z0[178]15:Z1[178]16:Z2[178]6:Z3[178]18:[141]289:[153]"SYSWILLST DU EINEN":[153][166]17)"ZAUBERER ANWERBEN?":[153][166]18)"PRINT( JA ) DEF(NEIN)":[151]707,106:[151]708,164 305 [158]4438:[139][194](708)[179]154[176][194](708)[177]174[137]305 306 [139][194](707)[177]114[137]313 307 K[178]K[171]2:[158]4508:[153]" WOHIN? ":[151]707,80:[151]708,100 308 [158]4438:X[178][181](([194](707)[171]6)[173]16):J[178]1[175]X:[139]X[179].[176]X[177]8[137]308 309 Y[178][181](([194](708)[171]20[170]16[172]J)[173]32):[139]Y[179].[176]Y[177]4[170]J[137]308 310 J[178]A(12[170]X[170]11[172]Y):[139]J[177]30[137]308 311 [139]B(J)[179][177]N[137]308 312 Z(N)[178]J:Z[178]F(J):[141]288:[153]"THENCONTMNMNMNMNMN":[158]4466 313 [158]4508:[141]271:[137]267 314 N[178]0:[129]I[178]1[164]4:[151]717[170]I,2:[130] 315 N[178]N[170]1:[139]N[177]PL[137]193 316 [139]NF(N)[178].[137]315 317 [158]4508:[139][194](717[170]N)[179]2[175][194](713[170]N)[178].[137]315 318 [139][194](717[170]N)[178].[137]315 319 Z0[178]8:Z2[178]9:Z1[178]7:Z3[178]22:[141]289:[153]C$(N)[166]20)C$(N)[166]19)"SYS"T$(N)N$(N)",":[153][166]9)"W[HLE DAS GEBIET AN,":[153][166]9)"ONWELCHES DU ANGREIFEN":[153][166]9)"M\CHTEST. WILLST DU":[153][166]9)"ONKEINEN KRIEG F]HREN,":[153][166]9)"SO W[HLE EINS DEINER":[153][166]9)"ONEIGENEN FELDER AN...":[153][166]8)C$(N)[166]20)C$(N) 320 [139][194](717[170]N)[178]1[167][153][200](D$,9)[166]10)"EXTRA-ANGRIFF ("; 321 [139][194](717[170]N)[178]1[167][153][202]([196]([194](713[170]N)),2)") 322 POKE707,113:POKE708,137:SYS4438:SYS4508:POKE707,80:POKE708,100 323 SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO323 324 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO323 325 G=A(12+X+11*Y):IFG>30ORDR=GGOTO323 326 IFB(G)=NGOTO315 327 Z0=9:Z1=12:Z2=4:Z3=14:GOSUB289:PRINT"REKRUTIERE"SPC(29)"DEINE ARMEE!":POKE707,100:POKE708,105:SYS4438:SYS4508:A=0 328 FORI=1TO30:IFV(I,G)=.GOTO340 329 IFB(I)<>NORM(I)<2GOTO340 330 Z=F(I):GOSUB290:K=0 331 PRINT" ^ ARMEE:"A+K"[157] _ ":J=PEEK(56320):Z=0:IF(JAND16)=.GOTO339 332 IF(JAND8)=.THENIFM(I)>1THENZ=1 333 IF(JAND4)=.THENIFKTHENZ=-1 334 IF(JAND1)=.THENZ=10:IFM(I)<11THENZ=M(I)-1 335 IF(JAND2)=.THENZ=-10:IFK<10THENZ=-K 336 IFZ=.GOTO331 337 K=K+Z:M(I)=M(I)-Z:Z=F(I):GOSUB288:Z=INT((I-1)/4):PRINT"";:IFM(I)>9THENPRINTMID$("[150]",1-(M(I)>99),1)MID$(STR$(M(I)),2,2):GOTO331 338 PRINTMID$("[146][164][146][158][164][146][183][146][191][155]S[155]C[146][151][255][146][151][255]",Z*3+1,3)"[146]"RIGHT$(STR$(M(I)),1):GOTO331 339 POKEV+21,0:PRINT""W$(0):A=A+K 340 NEXTI:SYS4466:IFAGOTO342 341 Z0=10:Z1=14:Z2=5:Z3=9:GOSUB289:PRINT"ANGRIFF"SPC(34)"NICHT"SPC(34)"M\GLICH":POKE707,92:POKE708,121:SYS4438:SYS4508:GOTO319 342 Z0=10:Z1=11:Z2=9:Z3=16:GOSUB289:PRINT"[158]^TRUPPENST[RKE:[145]_":POKE707,80:POKE708,141:PRINTSPC(15)A"MANN":PRINTSPC(13)"WILLST DU MEHR":PRINTSPC(13)"[145]MOBILISIEREN?":PRINTSPC(92)"^[145][153]( JA ) [150](NEIN)[158]_ 343 [158]4438:[139][194](708)[179]132[176][194](708)[177]151[137]343 344 [139][194](707)[179]81[167][158]4508:[137]328 345 [139]Z(N)[178]0[137]351 346 Z0[178]16:Z1[178]16:Z2[178]7:Z3[178]14:[141]289:[153]"LISTM\CHTEST DU"[166]29)"DEN ZAUBERER":[151]707,96:[151]708,172:[153][166]18)"ONHINZUZIEHEN?":[153][166]58)"PRINT( JA )DEF(NEIN) 347 SYS4438:IFPEEK(708)<165ORPEEK(708)>181GOTO347 348 Z(0)=0:IFPEEK(707)<97THENZ(0)=1 349 SYS4508:IFZ(0)=.GOTO351 350 Z=F(Z(N)):GOSUB288:PRINT"";:Z=INT((Z(N)-1)/4):PRINTMID$("[146][164][146][158][164][146][182][146][190][155]R[155]B[146][151][255][146][151][255]",Z*3+1,3):SYS4466 351 GOSUB566:Z0=5:Z1=4:Z2=10:Z3=30:GOSUB289:PRINT"[158]ANGRIFF GEPLANT GEGEN:":IFB(G)=5THENPRINTSPC(7)"[223] DAS REICH DER TROLLE [223]":GOTO353 352 PRINTSPC(6)C$(B(G))" "T$(B(G))N$(B(G))" "C$(B(G)) 353 GK=0:PRINTSPC(5)"[158]"M(G)"MANN BESATZUNG ";:IFZ(B(G))=GTHENPRINT"+ [167] ";:GK=15 354 FORI=0TO12:IFT(I)=GTHENPRINT"[150]([160])"; 355 NEXT:PRINT:Z=INT((G-1)/4):PRINTSPC(6)"[129][145]TERRAIN: ";:IFZ=0THENPRINT"GRAS 356 [139]Z[178]1[167][153]"SYSSAND 357 IFZ=2THENPRINT"B]SCHE (+5%)":GK=GK+5 358 IFZ=3THENPRINT"WALD (+10%)":GK=GK+10 359 IFZ=4THENPRINT"[155]H]GEL (+10%)":GK=GK+10 360 IFZ=5THENPRINT"[155]BERGE (+15%)":GK=GK+15 361 IFZ>5THENPRINT"[155]BURG (+20%)":GK=GK+20 362 J=25:IFB(G)>4THENJ=35 363 GK=GK+J:PRINTSPC(6)"[158]VERTEIDIGUNGSST[RKE:"GK"[157]%":PRINTSPC(6)"ANGRIFFSARMEE:"A"MANN ";:AK=25:IFZ(0)THENPRINT"+ [207]";:AK=40 364 IFG>24THENAK=AK*.6 365 PRINT:PRINTSPC(6)"[145]ANGRIFFSST[RKE:"AK"[157]%":POKE707,132:POKE708,122:SYS4438:Z0=9:Z1=6:Z2=8:Z3=31:GOSUB289:PRINT"[158]^IN DER NUN FOLGENDEN SCHLACHT[145]_":PRINTSPC(8)"KANN "C$(N)" "T$(N)N$(N)" "C$(N):PRINTSPC(8)"[158]MIT DEM FEUERKNOPF DAS SIGNAL":PRINTSPC(8)"[145]ZUM R]CKZUG GEBEN ODER MIT 366 [153][166]8)"EINER JOYSTICKBEWEGUNG DEN":[153][166]7)"^ONANGRIFF FORTSETZEN..."[166]8)"_":[151]707,143:[151]708,136:[158]4438 367 [158]4508:Z[178][181]((G[171]1)[173]4):[139]Z[178]7[167]Z[178]6 368 [139][194](717[170]N)[178]1[167][151]713[170]N,[194](713[170]N)[171]1 369 [151]709,Z:[158]50156:[153]""[166]36)"LISTRNDLOGEXPCMDCMDCMDSQRWAIT";:[139]B(G)[178]5[167][153]"(null)";:[137]371 370 [153]C$(B(G)); 371 [153]"LISTSINCMDCMDCMDPOSCOSCMDCMDFRECMDUSR":[153][202](D$,20)[166]36)"LISTRNDLOGEXPCMDCMDCMDSQRWAIT";:[139]N[178]5[167][153]"(null)";:[137]373 372 [153]C$(N); 373 [153]"LISTSINCMDCMDCMDPOSCOSCMDCMDFRECMDUSR":ZG[178]M(G):[139]Z(B(G))[178]G[167]ZG[178]ZG[170]1 374 XG[178]0:YG[178]0:[139]ZG[177]64[167]ZG[178]64:[137]379 375 [139]ZG[177]48[167]379 376 [139]ZG[177]44[167]YG[178]1:[137]379 377 [139]ZG[177]33[167]XG[178]1:[137]379 378 XG[178]1:YG[178]1 379 U$[178]"(null)(null)CMDCMD(null)(null)ON":[139]B(G)[178]5[167]U$[178]"12CMDCMD34ON 380 J=0:I=16-5*XG:PRINTLEFT$(D$,9)"";:IFZ(B(G))=GTHENJ=1:PRINT"[215][216][157][157][217][218][145]";:IFXGTHENPRINT""; 381 PRINTU$;:J=J+1:IFXGTHENPRINT""; 382 IFZG=JGOTO385 383 IFJ/I=INT(J/I)THENPRINTSPC(8-XG)"[145][145][145]";:IFYGTHENPRINT"[145]"; 384 GOTO381 385 ZA=A:IFZ(0)THENZA=ZA+1 386 XA=0:YA=0:IFZA>64THENZA=64:GOTO391 387 IFZA>48THEN391 388 IFZA>44THENYA=1:GOTO391 389 IFZA>33THENXA=1:GOTO391 390 XA=1:YA=1 391 X=0:U$=")*[157][157]+,[145]":IFN=5THENU$="[206][207][157][157][208][209][145] 392 J[178]0:I[178]16[171]5[172]XA:[153][200](D$,17)"";:[139]Z(0)[167]J[178]1:[153]"(null)(null)CMDCMD(null)(null)ON";:[139]XA[167][153]""; 393 [153]U$;:J[178]J[170]1:[139]XA[167][153]""; 394 [139]ZA[178]J[137]414 395 [139]J[173]I[178][181](J[173]I)[167][153][166]8[171]XA)"";:[139]YA[167][153]""; 396 [137]393 397 VA[178][165]R(GK[172]M(G)[173]100[170].5)[170][181](M(G)[173]6):[139]VA[178].[167][139][165]R(99)[179]GK[167]VA[178]1 398 VG[178][165]R(AK[172]A[173]100[170].5)[170][181](A[173]6[173](2[170](G[179]25))):[139]VG[178].[167][139][165]R(99)[179]AK[167]VG[178]1 399 [139]VG[177]M(G)[167]VG[178]M(G) 400 [139]VA[177]A[167]VA[178]A 401 [139]A[171]VA[178].[175]M(G)[171]VG[178]0[167]VG[178]VG[171]1 402 X[178]1:[139]VA[178].[137]408 403 U$[178]"LIST-.CMDCMD/0":[139]N[178]5[167]U$[178]"LISTMID$(null)CMDCMD(null)(null) 404 FORI=1TOVA:A=A-1:K=INT((ZA-1)/(16-5*XA)):IFA=>ZA+(Z(0)>.)GOTO407 405 ZA=ZA-1:PRINTLEFT$(D$,17+K*(2+YA))SPC(2+(2+XA)*(ZA-K*(16-5*XA)))U$;:IFXATHENPRINT"[157]"; 406 IFA=0ANDZA=1THENPRINT"[157][157][157][157][145]"U$:Z(N)=0:Z(0)=0 407 NEXTI 408 IFVG=.GOTO414 409 U$="[155]-.[157][157]/0":IFB(G)=5THENU$="[155][202][203][157][157][204][205] 410 [129]I[178]1[164]VG:M(G)[178]M(G)[171]1:K[178][181]((ZG[171]1)[173](16[171]5[172]XG)):[139]M(G)[178][177]ZG[170](Z(B(G))[178]G)[137]413 411 ZG[178]ZG[171]1:[153][200](D$,9[171]K[172](2[170]YG))[166]2[170](2[170]XG)[172](ZG[171]K[172](16[171]5[172]XG)))U$;:[139]XG[167][153]"CMD"; 412 [139]M(G)[178]0[175]ZG[178]1[167][153]"CMDCMDCMDCMDON"U$:Z(B(G))[178]0 413 [130]I 414 [153]"WAIT"[166]35)[202]([196](M(G))[170]" ",1,4)"CMDCMDCMDCMDMANNCMDCMDCMDCMD_";:[153][201]([196](GK),2)"%"D$"ONON"[166]36)[202]([196](A)[170]" ",1,4)"CMDCMDCMDCMDMANN":[151]2020,31:[151]56292,1:[151]2021,48[170]AK[173]10:[151]56293,1:[151]2022,48[170]AK[171]10[172][181](AK[173]10):[151]56294,1:[151]2023,37:[151]56295,1:[139]M(G)[178]0[137]426 415 [139]A[178]0[137]420 416 J[178][194](56320):[139](J[175]16)[178].[175]X[178]1[175]N[179]5[137]451 417 [139](J[175]31)[178]31[137]416 418 [139]N[178]5[175]TA[178]1[167][139]A[170]A[179][178]M(G)[137]457 419 [137]397 420 [139]B(G)[179]5[167][153]" "C$(B(G))" "T$(B(G))N$(B(G))" HAT GESIEGT! "C$(B(G))" " 421 Y[178]B(G):[141]297:[139]B(G)[178]5[167][153]" (null) DIE TROLLE HABEN GESIEGT! (null) " 422 [151]707,80:[151]708,99:[158]4438:[139]N[178]5[167]K[178]G:[158]4508:[141]292:[158]4466:[137]209 423 Z(0)[178]0:K[178]G:[158]4508:[141]292:[158]4466 424 [139]N[179]5[167][151]717[170]N,[194](717[170]N)[171]1:[139][194](717)[170]N[177].[137]317 425 [137]315 426 [139]N[178]5[167][153]D$" (null) DIE TROLLE HABEN GESIEGT! (null)  427 Y=N:GOSUB297:IFN<5THENPRINTD$" "C$(N)" "T$(N)N$(N)" HAT GESIEGT "C$(N)"  428 NF(B(G))[178]NF(B(G))[171]1:NF(N)[178]NF(N)[170]1:B(G)[178]N:[151]707,80:[151]708,99:[158]4438:[158]4508:[139]N[178]5[137]220 429 M(G)[178]1:A[178]A[171]1:Z[178]F(G):[141]288:[153]C$(N):K[178]G:[141]292:I[178][181]((G[171]1)[173]4):Z[178]F(G):[141]288:[153]""[202]("WAITTOWAITSYSTOWAITABSWAITCOSLISTRLISTBWAITPOKE(null)WAITPOKE(null)",I[172]3[170]1,3):[139]Z(0)[167]Z(N)[178]G:Z(0)[178].:Z[178]F(G):[141]288:[153]"THEN 430 SYS4466:IFA=.GOTO449 431 Z0=6:Z1=8:Z2=12:Z3=22:GOSUB289:PRINTC$(N)SPC(20)C$(N)SPC(19);:PRINT"[158]"T$(N)N$(N)",":PRINTSPC(10):PRINT"ES SIND"A"SOLDATEN":PRINTSPC(10)"[145]]BRIG, DIE AUF DIE":PRINTSPC(10)"AN DER SCHLACHT BE-":PRINTSPC(10)"[145]TEILIGTEN FELDER VER-":PRINTSPC(10)"TEILT WERDEN K\NNEN. 432 [153][166]10)"ONVERTEILUNG DURCH JOY-":[153][166]10)"STICKBEWEGUNG, FELD-":[153][166]10)"ONWECHSEL MIT DEM"[166]25)"FEUERKNOPF.":[151]707,117:[151]708,146:[158]4438:[158]4508:Z0[178]30 433 Z0[178]Z0[170]1:[139]Z0[177]30[167]Z0[178]1:[139]B(G)[178]N[167]Z0[178]0:[137]435 434 [139]B(Z0)[179][177]N[176]V(Z0,G)[178].[137]433 435 Z1[178]Z0:[139]Z1[178]0[167]Z1[178]G 436 Z[178]F(Z1):[141]290:K[178]0 437 [153]""A[171]K"CMD MANN ";:[139]A[171]K[177]1[167][153]"CMDCMDCMDCMDCMDCMD[NNER " 438 J[178][194](56320):[139](J[175]16)[178].[137]448 439 [139](J[175]8)[178].[175]K[179]A[167]K[178]K[170]1:[137]444 440 [139](J[175]4)[178].[175]K[177].[167]K[178]K[171]1:[137]444 441 [139](J[175]1)[178].[167]K[178]K[170]10:K[178]K[170](K[177]A)[172](K[171]A):[137]444 442 [139](J[175]2)[178].[167]K[178]K[171]10:K[178][171]K[172](K[177].):[137]444 443 [137]438 444 J[178]M(Z1)[170]K:Z[178]F(Z1):[141]288:[153]"";:[139]J[177]9[137]446 445 [153][202]("WAITTOWAITSYSTOWAITUSRWAITSINLISTSLISTCWAITPOKE(null)WAITPOKE(null)",[181]((Z1[171]1)[173]4)[172]3[170]1,3)"WAIT"[201]([196](J),1):[137]437 446 [139]J[177]99[167][153]"DEF"; 447 [153][202]([196](J),2,2):[137]437 448 [151]V[170]21,0:A[178]A[171]K:M(Z1)[178]M(Z1)[170]K:[139]A[137]433 449 [153]""W$(0):[158]4466:[129]K[178]0[164]13:[139]G[178]T(K)[175]N[178]B(G)[137]462 450 [130]:[137]424 451 Z0[178]16:Z1[178]8:Z2[178]7:Z3[178]22:[141]289:[153]C$(N)[166]20)C$(N)[166]19);:[153]"SYS"T$(N)N$(N)",":[153][166]10):[153]"DEINE ARMEE FLIEHT!":K[178][165]R(GK[172]M(G)[173]100[170].5):[139]K[178].[167][139][165]R(99)[179]GK[167]K[178]1 452 [139]K[177]A[167]K[178]A 453 A[178]A[171]K:[139]A[178].[167][139]Z(0)[167]Z(0)[178].:Z(N)[178]. 454 [139]K[167][153][166]9)"ON"K"SOLDATEN VERLIERST":[153][166]10)"DU AUF DER FLUCHT. 455 PRINTSPC(9)"^[145]WELCH EINE SCHANDE! _":POKE707,117:POKE708,186:SYS4438:SYS4508:K=G:GOSUB292:IFZ(.)THENZ(0)=.:Z=F(Z(N)):GOSUB288:PRINT"[167] 456 [137]430 457 Z0[178]16:Z1[178]8:Z2[178]6:Z3[178]23:[141]289:[153]"(null)DIE TROLLE ZIEHEN ON(null)":Y[178]B(G):[141]297:[153][166]10):[153]"SICH VOM KAMPF ZUR]CK!":K[178][165]R(GK[172]M(G)[173]100[170].5):[139]K[178].[167][139][165]R(99)[179]GK[167]K[178]1 458 [139]K[177]A[167]K[178]A 459 A[178]A[171]K:[139]K[167][153][166]9)"ON"K"TROLLE FALLEN AUF":[153][166]10)"DER FLUCHT. 460 POKE707,117:POKE708,186:SYS4438:SYS4508:K=G:GOSUB292:IFA=.THENSYS4466:GOTO209 461 GOTO221 462 Z0=5:Z1=4:Z2=15:Z3=30:GOSUB289:PRINTC$(N)SPC(28)C$(N)SPC(12)"[158]"T$(N)N$(N)",":PRINTSPC(5)"[145]^ DU HAST EINE TRUHE EROBERT _":FORI=0TO1:PRINTLEFT$(D$,19+I)SPC(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":NEXT:PRINTSPC(6)"[145][145][145][153]IJ[157][157][129]KL[213][214][145][157][157][210][211][210][211][157][157][213][214][213][214][145][157][157][210][211][129][179][180][157][157][181][182]"; 463 PRINT"[213][214][145][157][157][210][211]!#[157][157]$[193]":POKE707,130:POKE708,162:SYS4438:FORI=0TO8:PRINTLEFT$(D$,18)SPC(14+I)" [157][164]+,[145][157][157])*":FORJ=0TO299:NEXTJ,I:FORI=1TO1E3:NEXT:IFK<=N*3ANDK=>N*3-2GOTO465 464 PRINTLEFT$(D$,15)SPC(20)"ICH BEKOMME[157][157][157][157][157][157][157][157][157][157][157][157]SIE NICHT AUF![157][157][157][157][157][157][157][157]/":POKE707,130:POKE708,162:SYS4438:SYS4508:GOTO424 465 T(K)=0:K=K-N*3+3:U$="[158][173][174][145][157][157]":IFK>1THENU$="[159][175][176][145][157][157]":IFK=3THENU$="[158][171][157][150][172][145][157] 466 [153][200](D$,18)[166]25)"FOR>=ONONONCMDCMD";:[129]I[178]0[164]1E3:[130]:[129]I[178]0[164]100[169]2:[153]"WAIT CMD ONCMDCMD";:[129]J[178]I[164]100:[130]:[153]U$;:[129]J[178]0[164]I:[130]J,I:U$[178]"E KRONE":[139]K[177]1[167]U$[178]" ZEPTER":[139]K[178]3[167]U$[178]"EN REICHSAPFEL 467 PRINTLEFT$(D$,10)SPC(7)"[146][150]DU HAST DEIN"U$:PRINTSPC(7)"GEFUNDEN. DAHER WIRST DU":PRINTSPC(7)"[145]HIERMIT ZUM";:IFRIGHT$(T$(N),3)="IN "THENPRINT"[157]R"; 468 PRINT" ";:IFLEFT$(T$(N),1)="F"THENT$(N)="K\NIG 469 [139][200](T$(N),1)[178]"G"[167]T$(N)[178]"F]RST 470 IFLEFT$(T$(N),1)="B"THENT$(N)="GRAF 471 [139][194](1481)[178]18[167]T$(N)[178]T$(N)[170]"IN":[139][200](T$(N),1)[178]"G"[167]T$(N)[178]"GR[FIN 472 T$(N)=T$(N)+" ":PRINTT$(N)"ERNANNT.":POKE707,130:POKE708,162:SYS4438:SYS4508:Z=F(G):GOSUB288:PRINT""MID$("[146][164][146][158][164][146][184]@[155]T[155]D[146][151][255][146][151][255]",INT((G-1)/4)*3+1,3):SYS4466:IFLEFT$(T$(N),1)="K"GOTO499 473 Z0=9:Z1=8:Z2=7:Z3=22:GOSUB289:PRINTC$(N)SPC(20)C$(N)SPC(19)"[158]"T$(N)N$(N)",":PRINTSPC(10)"[145][158]DIES GEW[HRT ES DIR,":IFK=1THENPRINTSPC(10)"8 SOLDATEN BELIEBIG":PRINTSPC(10)"[145]AUF DEINE FELDER ZU 474 [139]K[178]1[167][153][166]10)"VERTEILEN. 475 IFK=3THENPRINTSPC(10)"12 M[NNER AUF EINEM":PRINTSPC(10)"[145]DEINER FELDER ZU 476 [139]K[178]3[167][153][166]10)"PLAZIEREN. 477 IFK=2THENPRINTSPC(10)"10 BELIBIGE M[NNER":PRINTSPC(10)"[145]EINES GEGNERN ZU 478 [139]K[178]2[167][153][166]10)"VERNICHTEN. 479 POKE707,117:POKE708,130:SYS4438:SYS4508:POKE707,80:POKE708,100:ONKGOTO480,492,487 480 A=8 481 PRINT""A"[157] MANN ":SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO481 482 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO481 483 K=A(12+X+11*Y):IFK>30GOTO481 484 IFB(K)<>NGOTO481 485 M(K)=M(K)+1:GOSUB292:A=A-1:IFAGOTO481 486 PRINT""W$(0):SYS4466:GOTO424 487 SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO487 488 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO487 489 K=A(12+X+11*Y):IFK>30GOTO487 490 IFB(K)<>NGOTO487 491 M(K)=M(K)+12:GOSUB292:SYS4466:GOTO424 492 A=10 493 PRINT""A"[157] MANN ":SYS4438:X=INT((PEEK(707)-6)/16):J=1ANDX:IFX<.ORX>8GOTO493 494 Y=INT((PEEK(708)-20+16*J)/32):IFY<.ORY>4+JGOTO493 495 K=A(12+X+11*Y):IFK>30GOTO493 496 IFB(K)=NGOTO493 497 M(K)=M(K)+(M(K)>1):GOSUB292:A=A-1:IFAGOTO493 498 PRINT""W$(0):SYS4466:GOTO424 499 Z0=9:Z1=8:Z2=9:Z3=22:FORK=1TO9:GOSUB289:NEXT:PRINTC$(N)SPC(20)C$(N)SPC(19)"[158]"T$(N)N$(N)",":PRINTSPC(10)"[145][158]DU WIRST ALS ERFOLG-":PRINTSPC(10)"REICHSTER SPIELER":PRINTSPC(10)"[145]ZUM K\NIG AUSGERUFEN.":PRINTSPC(10)"DU HAST DAS SPIEL":PRINTSPC(10)"[145]GEWONNEN!":PRINTSPC(49)"_[159][175][176][158][173][174][150][172][145][157][158][171][146]^ 500 [151]707,115:[151]708,145 501 [158]4438:[158]4508:[139]PL[178]1[137]507 502 [129]I[178]1[164]PL:RG(I)[178]NF(I):U$[178][200](T$(I),1):[139]U$[178]"K"[167]RG(I)[178]300 503 [139]U$[178]"F"[167]RG(I)[178]RG(I)[170]200 504 [139]U$[178]"G"[167]RG(I)[178]RG(I)[170]100 505 [130]:[129]I[178]2[164]PL:[129]J[178]1[164]I:[139]RG(I)[177]RG(J)[167][141]514 506 [130]J,I 507 Z0[178]2:Z1[178]5:Z2[178]16[170]PL:Z3[178]27:[141]289:[153]"^ SPIELENDE ON_":[129]I[178]1[164]PL:[153][200](D$,5[170]I)[166]7)C$(I)" "T$(I)N$(I);:[139]I[179]PL[167][153]", 508 PRINTLEFT$(D$,5+I)SPC(32)C$(I):NEXT:PRINTLEFT$(D$,7+PL)SPC(10)"[158]WENN DU";:IFPL>1THENPRINT"[157][157]IHR"; 509 PRINT" AN WEITEREN":PRINTLEFT$(D$,8+PL)SPC(7)"SPIELEN VON UNS INTERESSE":PRINTLEFT$(D$,9+PL)SPC(8)"HAS";:IFPL>1THENPRINT"[157]B"; 510 PRINT"T, DANN SCHREIBE";:IFPL>1THENPRINT"[157]T"; 511 PRINT" AN:"LEFT$(D$,11+PL)SPC(10)"GERMAN DESIGN GROUP";:PRINTSPC(21)"R]DIGER RINSCHEIDT"SPC(22)"BUCHHOLZSTRASSE 17";:PRINTSPC(22)"4755 HOLZWICKEDE"SPC(23)"[150]HOTLINE: (02301) 12647";:PRINTSPC(16)"(FREITAGS 16.00-18.00 UHR)"SPC(15)"[158]DU";:IFPL>1THENPRINT"[157][157]IHR"; 512 PRINT" ERH[LS";:IFPL>1THENPRINT"[157][157][157]ALTE"; 513 PRINT"T DANN UNSEREN"SPC(17)"KOSTENLOSEN KATALOG...":POKE707,118:POKE708,126:SYS4438:RUN 514 U$=T$(I):T$(I)=T$(J):T$(J)=U$:U$=C$(I):C$(I)=C$(J):C$(J)=U$:K=RG(I):RG(I)=RG(J):RG(J)=K:U$=N$(I):N$(I)=N$(J):N$(J)=U$:RETURN 515 Z0=9:Z1=8:Z2=8:Z3=22:FORK=1TO9:GOSUB289:NEXT:PRINT"[206][207][157][157][208][209][146] DIE TROLLE 34[145][157][157]12":PRINTSPC(90)"HABEN ALLE MENSCHEN":PRINTSPC(10)"[145]VOM ANTLITZ DER ERDE":PRINTSPC(10)"VERTILGT. DIE TROLLE":PRINTSPC(10)"[145]HABEN GEWONNEN.":PRINTSPC(10)"WAS F]R EINE SCHANDE!":POKE707,115:POKE708,138:GOTO501 516 G=1 517 IFB(G)=5ORG=DRGOTO526 518 IFTAGOTO529 519 A=0:FORK=1TO30:IFB(K)<5ORV(G,K)=.ORM(K)24)*4GOTO522 520 Z=F(K):GOSUB290:A=A+M(K)-1:M(K)=1:IFK>24THENA=A-5:M(K)=6 521 GOSUB292 522 NEXTK:Z=F(G):IFA=.GOTO526 523 GOSUB290 524 IFPEEK(56320)AND16GOTO524 525 POKEV+21,0:SYS4466:AK=35:GK=25:GOTO217 526 G=G+1:IFG<31GOTO517 527 IFNF(5)=30GOTO515 528 GOTO229 529 FORI=1TO7:RG(I)=0:NEXT:J=0:A=0:FORK=1TO30:IFB(K)<5ORV(G,K)=.ORM(K)24)*4GOTO531 530 A=A+M(K)-1+(K>24)*5:J=J+1:RG(J)=K 531 NEXTK:IFA24)*5:GOSUB292 534 NEXTI:Z=F(G):GOTO523 535 Z0=17:Z1=21:Z2=6:Z3=12:GOSUB289:PRINT"SPIELABBRUCH":POKE707,100:POKE708,182:PRINTSPC(22)"[158]GANZ SICHER?":PRINTSPC(22)"[153](NEIN)[150]( JA ) 536 [158]4438:[139][194](708)[179]172[176][194](708)[177]185[176][194](707)[179]86[176][194](707)[177]136[137]536 537 [139][194](707)[179]113[137]197 538 Z0[178]14:Z1[178]15:Z2[178]5:Z3[178]16:[141]289:[153]"SPIEL SPEICHERN?":[151]707,86:[151]708,142:[153][166]57)"PRINT( JA )DEF (NEIN) 539 SYS4438:IFPEEK(708)<134ORPEEK(708)>148ORPEEK(707)<66ORPEEK(707)>142GOTO539 540 IFPEEK(707)>96GOTO546 541 Z0=11:Z1=19:Z2=6:Z3=16:GOSUB289:PRINT"SPIEL SPEICHERN!":PRINTSPC(20)"[158]BITTE EINE DISK"SPC(27)"EINLEGEN UND";:POKE198,0:PRINTSPC(28)"(F7) [158]DR]CKEN. 542 [161]U$:[139]U$[179][177]"LET"[137]542 543 [158]4508:[160]1:[159]1,8,15,"S:SAV?.KUDK":[160]1:[159]1,8,1,"SAVA.KUDK,P,W":[152]1,[199](0)[199](160);:[129]I[178]1024[164]2047:[152]1,[199]([194](I));:[130]:[129]I[178]55296[164]56295:[152]1,[199]([194](I));:[130]:[160]1:[159]1,8,1,"SAVB.KUDK,P,W":[152]1,PL:[129]N[178]1[164]PL:[152]1,N$(N):[152]1,T$(N):[152]1,C$(N):[152]1,Z(N) 544 [152]1,F$(N):[152]1,NF(N):[130]:[152]1,NF(5):[129]I[178]0[164]86:[152]1,A(I):[130]:[129]I[178]0[164]30:[152]1,F(I):[152]1,B(I):[152]1,M(I):[130]:[129]I[178]0[164]13:[152]1,T(I):[130]:[129]I[178]1[164]30:[129]J[178]1[164]30:[152]1,V(I,J):[130]J,I:[152]1,JH:[152]1,DR:[152]1,TV:[152]1,TA:[152]1,TK:[152]1,DD:[129]I[178]710[164]721:[152]1,[194](I):[130] 545 [160]1:JH[178]JH[171]1:[137]193 546 [158]4508:[139]PL[178]1[137]507 547 [137]502 548 Z0[178]9:Z1[178]9:Z2[178]7:Z3[178]19:[141]289:[153]"(null)SYSWIE OFT PRO RUNDEON(null)":[153][166]52)"SYSSOLLEN SICH DIE":[153][166]11)"TROLLE VERMEHREN?":[153][166]17)"DEF> 132ORPEEK(707)<40ORPEEK(707)>113GOTO560 561 IFPEEK(707)>79THENDD=1 562 SYS4508:GOTO193 563 Z0=16:Z1=18:Z2=6:Z3=17:GOSUB289:PRINT"SPIELSTAND LADEN!":PRINTSPC(60)"[158]BITTE SPEICHER-"SPC(26)"DISK EINLEGEN.":POKE707,136:POKE708,178:SYS4438:PRINT"[144][147]":FORI=1TO9:PRINT"R[213]":NEXT:PRINT"":POKE631,13:POKE198,1:LOAD"SAVA.KUDK",8,1 564 GOSUB296:SYS4508:OPEN1,8,0,"SAVB.KUDK,P,R":INPUT#1,PL:DIMN$(PL),F$(PL),C$(PL),G$(PL),T$(PL),Z(5):FORN=1TOPL:INPUT#1,N$(N):INPUT#1,T$(N):INPUT#1,C$(N):INPUT#1,Z(N):INPUT#1,F$(N):INPUT#1,NF(N):NEXT:INPUT#1,NF(5):FORI=0TO86:INPUT#1,A(I):NEXT:FORI=0TO30:INPUT#1,F(I):INPUT#1,B(I):INPUT#1,M(I):NEXT 565 FORI=0TO13:INPUT#1,T(I):NEXT:FORI=1TO30:FORJ=1TO30:INPUT#1,V(I,J):NEXTJ,I:INPUT#1,JH:INPUT#1,DR:INPUT#1,TV:INPUT#1,TA:INPUT#1,TK:INPUT#1,DD:FORI=710TO721:INPUT#1,J:POKEI,J:NEXT:GOTO545 566 SYS4508:IFZ(B(G))=.ORZ(B(G))=GTHENRETURN 567 Z0=9:Z1=6:Z2=12:Z3=26:GOSUB289:PRINT""C$(B(G))" "T$(B(G))N$(B(G))" "C$(B(G)):PRINTSPC(9)"DU WIRST ANGEGRIFFEN!":PRINTSPC(8)"[145]"A"MANN ";:IFN<5THENIFZ(0)THENPRINT"+[167] "; 568 PRINT"GEGEN DEINE":PRINTSPC(8)M(G)"[157]-MANN VERTEIDIGUNG":PRINTSPC(9)"[158]WILLST DU DEN ZAUBERER":PRINTSPC(9)"[145]ZUM KAMPF HINZUZIEHEN?":POKE707,80:POKE708,158:PRINTSPC(52)"[153]( JA ) [150](NEIN)":SYS4438:SYS4508:IFPEEK(707)>80THENRETURN 569 Z=F(Z(B(G))):GOSUB288:PRINT"";:Z=INT((Z(B(G))-1)/4):PRINTMID$("[146][164][146][158][164][146][182][146][190][155]R[155]B[146][151][255][146][151][255]",Z*3+1,3):Z=F(G):GOSUB288:PRINT"[167]":SYS4466:Z(B(G))=G:RETURN:DATA-11,1,12,11,10,-1,-11,-10,1,11,-1,-12