Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
100 CLEAR:WINDOW:CLS:PRINT:PRINT " 1 = Bingo":PRINT:PRINT " 2 = Bomber"
101 PRINT:PRINT " 3 = 17 + 4":PRINT:PRINT " 4 = Master Mind"
102 PRINT
104 PRINT " 8 = Ende der Spiele":PRINT:PRINT:PRINT:PRINT:PRINT " Welches ";
105 PRINT "Spiel":PRINT:PRINT " moechten Sie spielen?:":POKE-4440,32
106 POKE-4457,127:A$=INKEY$:IF A$="" THEN 106
107 PRINT AT(16,23);A$:IF A$="1" THEN 1000
108 IF A$="2" THEN 7000
109 IF A$="3" THEN 5000
113 IF A$="4" THEN 6000
114 IF A$="8" THEN 116
115 GOTO 106
116 CLS:PRINT AT(10,12);"Auf Wiedersehen !":POKE-5120,32:PAUSE 50:CLS:END
1000 WINDOW:CLS:CLEAR
1001 DIM P(7),W(9),T(7,2),A(9),C$(9):FOR K=1 TO 9:C$(K)=".":NEXT K
1002 PRINT:FOR K=0 TO 7:FOR J=0 TO 2
1003 DATA 1,2,3,4,5,6,7,8,9,1,5,9,1,4,7
1004 DATA 2,5,8,3,6,9,3,5,7
1005 READ T(K,J):NEXT J:NEXT K
1006 M=INT(RND(9)*10)
1007 IF M<1 OR M>9 THEN 1006
1008 GOSUB 1046:PRINT:PRINT " Wer soll beginnen ?";
1009 PRINT " Sie oder Ich ?:";
1010 Q$=INKEY$:IF CHR$(13)<>Q$ AND Q$<>"I" AND Q$<>"S" AND Q$<>"D" THEN 1010
1011 PRINT Q$:CLS:IF Q$="I"THEN 1019
1012 Z=0:IF X=3 AND W(5)=10 AND (P(3)>10 OR P(7)>10) THEN LET Z=1
1013 IF (X=2 OR X=3) AND (P(1)=11 OR P(5)=11) THEN LET Z=1
1014 IF Z=1 THEN LET M=INT(RND(9)*10)
1015 IF Z=1 AND (M<1 OR M>9 OR W(M)>0) THEN 1014
1016 CLS:PRINT " Mein Satz:";M
1017 C$(M)="R":GOSUB 1046:X=X+1:W(M)=10
1018 IF S=20 THEN PRINT:PRINT:PRINT:PRINT " Hurra!! Ich habe gewonnen!":GOTO 1042
1019 IF X>8 THEN PRINT:PRINT:PRINT:PRINT " Gerade nochmal Glueck gehabt, nur";
1020 IF X>8 THEN PRINT " remis":GOTO 1042
1021 PRINT:PRINT:PRINT:PRINT:PRINT " Ihr Satz:";
1022 M$=INKEY$:IF M$="" THEN 1022
1023 M=VAL(M$):IF M<1 OR M>9 THEN 1022
1024 PRINT M
1025 IF W(M)>0 THEN PRINT:PRINT " Besser aufpassen!";M;" bereits belegt!"
1026 IF W(M)>0 THEN 1021
1027 C$(M)="X":GOSUB 1046:W(M)=W(M)+1:X=X+1:POKE-4560,32:FOR K=0 TO 7:S=0
1028 FOR J=0 TO 2:S=S+W(T(K,J)):NEXT J
1029 IF S=3 THEN CLS:PRINT " So ein Mist! Sie haben gewonnen!":GOTO 1042
1030 P(K)=S:NEXT K:I=0:IF X>8 THEN CLS::PRINT " Gerade nochmal Glueck ";
1031 IF X>8 THEN PRINT "gehabt, nur remis":GOTO 1042
1032 FOR K=0 TO 7:A(K+1)=0:IF P(K)=20 THEN 1040
1033 NEXT K:A(9)=0:FOR K=0 TO 7 :IF P(K)=2 THEN 1040
1034 S=11+ABS(X=8):IF P(K)>=S THEN 1036
1035 FOR J=0 TO 2:W=T(K,J):A(W)=A(W)+1+ABS(P(K)=10):NEXT J
1036 NEXT K:V=0:FOR K=1 TO 9:O=A(K):Y=RND(2)
1037 IF W(K)=0 AND O=V AND Y<0.5 THEN LET M=K
1038 IF W(K)=0 AND O>V THEN LET V=O:M=K
1039 NEXT K:GOTO 1012
1040 FOR J=0 TO 2:W=T(K,J):IF W(W)=0 THEN LET M=W
1041 NEXT J:S=P(K):K=7:NEXT K:GOTO 1016
1042 PRINT:PRINT:PRINT:PRINT " Nochmal? (J / N):";
1043 B$=INKEY$:IF B$<>"J" AND B$<>"N" THEN 1043
1044 PRINT B$:IF B$="J" THEN 1000
1045 GOTO 100
1046 WINDOW 2,10,10,39:PRINT " BINGO":PRINT:PRINT
1047 PRINT C$(7);" ";C$(8);" ";C$(9);" 7 8 9":PRINT
1048 PRINT C$(4);" ";C$(5);" ";C$(6);" 4 5 6":PRINT
1049 PRINT C$(1);" ";C$(2);" ";C$(3);" 1 2 3":WINDOW 14,23,0,39:RETURN
5000 WINDOW:CLS:CLEAR
5001 GOSUB 5113
5002 A(1)=ASC("")
5003 A(2)=ASC("")
5004 A(3)=ASC("")
5005 A(4)=ASC("")
5006 WINDOW:CLS:PRINT AT(23,31);"0 : 0":FOR I=1 TO 4
5007 FOR J=1 TO 8
5008 K(I,J)=1
5009 NEXT J
5010 NEXT I
5011 W=32:H=1:S=0:Z=0:C(1)=0:C(2)=0:U=0:YY=0:LK=0
5012 GOSUB 5102:IF LK=1 THEN GOSUB 5110:LK=0
5013 IF H$="N" THEN GOTO 5024
5014 GOSUB 5079:C(1)=C(1)+O:U=U+1
5015 WINDOW 23,23,30,39:CLS
5016 PRINT C(1);":";C(2);:WINDOW
5017 IF C(1)>=22 THEN GOTO 5039
5018 IF S+Z>=4 THEN GOTO 5020
5019 GOTO 5012
5020 IF Z=1 THEN GOTO 5022
5021 S=0:Z=1:GOTO 5012
5022 LK=1
5023 S=0:Z=0:GOTO 5012
5024 IF U<2 THEN GOSUB 5255
5025 U=0:WINDOW 15,20,31,39:PRINT "Moment":PRINT:PRINT "bitte,":PRINT
5026 PRINT "ich ziehe";:WINDOW:GOSUB 5110:S=0:Z=0
5027 GOSUB 5079
5028 C(2)=C(2)+O:U=U+1
5029 WINDOW 23,23,30,39:CLS:POKE -5120,247:PRINT C(1);":";C(2);:POKE-4161,32
5030 POKE-4162,32:IF PEEK(-4163)>57 THEN POKE-4163,32
5031 PAUSE 20:WINDOW:IF C(2)=>20 THEN GOTO 5039
5032 IF C(2)>11-YY AND YY>0 THEN 5039
5033 IF C(2)<13 THEN GOTO 5035
5034 IF RND(1)<(C(2)-12)/8 THEN 5039
5035 IF S+Z>=4 THEN GOTO 5037
5036 GOTO 5027
5037 IF Z=1 THEN GOTO 5026
5038 S=0:Z=1:GOTO 5027
5039 WINDOW:CLS
5040 IF C(2)=22 THEN GOTO 5053
5041 IF C(1)=22 THEN GOTO 5049
5042 IF C(1)>22 THEN GOTO 5057
5043 IF C(2)>22 THEN GOTO 5053
5044 IF C(1)>C(2) THEN QM=QM+1:GOTO 5061
5045 PRINT AT(4,6);"Hurra !! Ich habe gewonnen !":QR=QR+1
5046 IF C(1)<C(2) THEN PRINT AT(7,6);"Klasse setzt sich eben durch !"
5047 IF C(1)=C(2) THEN PRINT AT(7,6);"Ihren Wert erreiche ich allemal !"
5048 GOTO 5071
5049 IF U=2 THEN QM=QM+2:GOTO 5064
5050 PRINT AT(4,8);"Ich habe gewonnen !":QR=QR+1
5051 PRINT AT(7,8);"Sie spielen zu risikovoll !"
5052 GOTO 5071
5053 IF U=2 THEN QR=QR+2:GOTO 5064
5054 PRINT AT(4,2);"Ich habe Sie mal gewinnen lassen,":QM=QM+1
5055 PRINT AT(7,2);"damit Sie den Mut nicht verlieren !"
5056 GOTO 5071
5057 PRINT AT(4,8);"Das war keine Glanzleistung !":QR=QR+1
5058 PRINT AT(7,8);"Ihr Glueck, dass wir nicht um"
5059 PRINT AT(10,8);"Geld gespielt haben !"
5060 GOTO 5071
5061 PRINT AT(4,8);"Sie haben gewonnen !"
5062 PRINT AT(7,8);"Dumm hat eben Schwein !"
5063 GOTO 5071
5064 FOR Z=1 TO 20:BEEP:NEXT Z:PRINT AT(2,5);" "
5065 PRINT AT(3,5);" "
5066 PRINT AT(4,5);" "
5067 PRINT AT(5,5);" "
5068 IF C(1)=22 THEN PRINT AT(10,5);"Ich gratuliere Ihnen zum Sieg !"
5069 IF C(2)=22 THEN PRINT AT(10,5);"Ich habe gewonnen !"
5070 IF C(2)=22 THEN PRINT AT(13,5);"Das war das Glueck des Tuechtigen !"
5071 WINDOW 15,21,0,39:FOR I=0 TO 39:PRINT "";:NEXT I
5072 PRINT:PRINT " Gesamtstand: Sie:";QM;" Ich:";QR:PRINT
5073 PRINT:PRINT:PRINT " Neues Spiel? (J/N):";
5074 B$=INKEY$:IF B$="" THEN 5074
5075 IF B$="J" THEN PRINT B$:GOTO 5006
5076 IF B$="N" THEN PRINT B$:GOTO 100
5077 GOTO 5074
5078 WINDOW:CLS
5079 REM UP "KARTE ZIEHEN"
5080 X=INT(W*RND(32)+1)
5081 Y=0
5082 FOR I=1 TO 4
5083 FOR J=1 TO 8
5084 IF K(I,J)=1 THEN Y=Y+1
5085 IF Y=X THEN GOTO 5088
5086 NEXT J
5087 NEXT I
5088 W=W-1
5089 K(I,J)=0
5090 IF W=1 THEN RETURN
5091 F$=CHR$(A(I))
5092 IF J=1 THEN GOSUB 5175
5093 IF J=2 THEN GOSUB 5184
5094 IF J=3 THEN GOSUB 5197
5095 IF J=4 THEN GOSUB 5210
5096 IF J=5 THEN GOSUB 5223
5097 IF J=6 THEN GOSUB 5148
5098 IF J=7 THEN GOSUB 5157
5099 IF J=8 THEN GOSUB 5166
5100 S=S+1
5101 RETURN
5102 WINDOW 14,19,31,39
5103 IF W<32 THEN POKE -5120,247
5104 PRINT "Karte ge-"
5105 PRINT "wuenscht?":PRINT "(J / N):";
5106 H$=INKEY$:IF H$=""THEN 5106
5107 IF H$="J" OR H$="N" THEN CLS:WINDOW:RETURN
5108 GOTO 5102
5109 RETURN
5110 WINDOW 0,12,0,39:CLS
5111 WINDOW 13,23,0,30:CLS
5112 WINDOW:RETURN
5113 FOR I=0 TO 1
5114 FOR J=0 TO 39
5115 PRINT AT (22*I,J);""
5116 PRINT AT (22*I+1,J);""
5117 NEXT J
5118 NEXT I
5119 FOR I=2 TO 21
5120 FOR J=0 TO 1
5121 PRINT AT (I,38*J);""
5122 NEXT J
5123 NEXT I
5124 FOR I=8 TO 15
5125 PRINT AT (I,10);""
5126 NEXT I
5127 FOR I= 8 TO 10
5128 PRINT AT (I,13);""
5129 NEXT I
5130 PRINT AT (8,14);""
5131 FOR I=8 TO 15
5132 PRINT AT (I,17);""
5133 NEXT I
5134 PRINT AT (10,21);""
5135 PRINT AT (11,20);""
5136 PRINT AT (12,20);""
5137 PRINT AT (13,21);""
5138 FOR I=8 TO 12
5139 PRINT AT (I,25);""
5140 NEXT I
5141 PRINT AT (12,26);""
5142 FOR I=8 TO 15
5143 PRINT AT (I,29);""
5144 NEXT I
5145 PAUSE 30
5146 CLS
5147 RETURN
5148 REM UP " 7 "
5149 GOSUB 5236
5150 PRINT AT (ZU+2,SU+2);"7 "+F$+F$+" 7"
5151 PRINT AT (ZU+3,SU+3);F$+F$+F$
5152 PRINT AT (ZU+4,SU+4);F$+F$
5153 PRINT AT (ZU+7,SU+4);F$+F$
5154 PRINT AT (ZU+8,SU+4);F$+F$+F$
5155 PRINT AT (ZU+9,SU+2);"7 "+F$+F$+" 7"
5156 O=7:RETURN
5157 REM UP " 8 "
5158 GOSUB 5236
5159 PRINT AT (ZU+2,SU+2);"8 "+F$+F$+" 8"
5160 PRINT AT (ZU+3,SU+3);F$+F$+F$+F$
5161 PRINT AT (ZU+4,SU+4);F$+F$
5162 PRINT AT (ZU+7,SU+4);F$+F$
5163 PRINT AT (ZU+8,SU+3);F$+F$+F$+F$
5164 PRINT AT (ZU+9,SU+2);"8 "+F$+F$+" 8"
5165 O=8:RETURN
5166 REM UP " 9 "
5167 GOSUB 5236
5168 PRINT AT (ZU+2,SU+2);"9 "+F$+F$+" 9"
5169 PRINT AT (ZU+3,SU+3);F$+F$+F$+F$
5170 PRINT AT (ZU+4,SU+4);F$+F$+F$
5171 PRINT AT (ZU+7,SU+3);F$+F$+F$
5172 PRINT AT (ZU+8,SU+3);F$+F$+F$+F$
5173 PRINT AT (ZU+9,SU+2);"9 "+F$+F$+" 9"
5174 O=9:RETURN
5175 REM UP " 10 "
5176 GOSUB 5236
5177 PRINT AT (ZU+2,SU+2);"10"+F$+F$+"10"
5178 PRINT AT (ZU+3,SU+4);F$+F$
5179 PRINT AT (ZU+4,SU+2);F$+F$+F$+F$+F$+F$
5180 PRINT AT (ZU+7,SU+2);F$+F$+F$+F$+F$+F$
5181 PRINT AT (ZU+8,SU+4);F$+F$
5182 PRINT AT (ZU+9,SU+2);"10"+F$+F$+"10"
5183 O=10:RETURN
5184 REM UP "BUBE"
5185 GOSUB 5236
5186 PRINT AT (ZU+1,SU+2);F$+" "+F$
5187 PRINT AT (ZU+2,SU+1);F$+"B B"+F$
5188 PRINT AT (ZU+3,SU+3);""
5189 PRINT AT (ZU+4,SU+2);" "
5190 PRINT AT (ZU+5,SU+3);""
5191 PRINT AT (ZU+6,SU+2);""
5192 PRINT AT (ZU+7,SU+2);""
5193 PRINT AT (ZU+8,SU+3);""
5194 PRINT AT (ZU+9,SU+1);F$+"B B"+F$
5195 PRINT AT (ZU+10,SU+2);F$+" "+F$
5196 O=2:RETURN
5197 REM UP "DAME"
5198 GOSUB 5236
5199 PRINT AT (ZU+1,SU+2);F$+" "+F$
5200 PRINT AT (ZU+2,SU+1);F$+"D D"+F$
5201 PRINT AT (ZU+3,SU+2);F$+" "+F$
5202 PRINT AT (ZU+4,SU+3);""
5203 PRINT AT (ZU+5,SU+1);""
5204 PRINT AT (ZU+6,SU+1);""
5205 PRINT AT (ZU+7,SU+3);""
5206 PRINT AT (ZU+8,SU+2);F$+" "+F$
5207 PRINT AT (ZU+9,SU+1);F$+"D D"+F$
5208 PRINT AT (ZU+10,SU+2);F$+" "+F$
5209 O=3:RETURN
5210 REM UP"KOENIG"
5211 GOSUB 5236
5212 PRINT AT (ZU+1,SU+2);F$+" "+F$
5213 PRINT AT (ZU+2,SU+1);F$+"K"+F$+" "+F$+"K"+F$
5214 PRINT AT (ZU+3,SU+2);F$+" "+F$
5215 PRINT AT (ZU+4,SU+2);""
5216 PRINT AT (ZU+5,SU+1);""
5217 PRINT AT (ZU+6,SU+1);""
5218 PRINT AT (ZU+7,SU+2);""
5219 PRINT AT (ZU+8,SU+2);F$+" "+F$
5220 PRINT AT (ZU+9,SU+1);F$+"K"+F$+" "+F$+"K"+F$
5221 PRINT AT (ZU+10,SU+2);F$+" "+F$
5222 O=4:RETURN
5223 REM UP " AS "
5224 GOSUB 5236
5225 PRINT AT (ZU+1,SU+1);F$+" "+F$
5226 PRINT AT (ZU+2,SU+2);F$+""+F$
5227 PRINT AT (ZU+3,SU+3);F$+" "+F$
5228 PRINT AT (ZU+4,SU+1);""
5229 PRINT AT (ZU+5,SU+1);""
5230 PRINT AT (ZU+6,SU+1);""
5231 PRINT AT (ZU+7,SU+1);" "
5232 PRINT AT (ZU+8,SU+3);F$+" "+F$
5233 PRINT AT (ZU+9,SU+2);F$+""+F$
5234 PRINT AT (ZU+10,SU+1);F$+" "+F$
5235 O=11:RETURN
5236 REM UP "RAND"
5237 ZU=12*Z:SU=10*S
5238 PRINT AT (ZU,SU);"":POKE-5120,247
5239 FOR I=1 TO 8
5240 PRINT AT (ZU,SU+I);""
5241 NEXT I
5242 PRINT AT (ZU,SU+9);""
5243 FOR I=1 TO 10
5244 PRINT AT (ZU+I,SU+9);""
5245 NEXT I
5246 PRINT AT (ZU+11,SU+9);""
5247 FOR I=8 TO 1 STEP -1
5248 PRINT AT (ZU+11,SU+I);""
5249 NEXT I
5250 PRINT AT (ZU+11,SU);""
5251 FOR I=10 TO 1 STEP -1
5252 PRINT AT (ZU+I,SU);""
5253 NEXT I
5254 RETURN
5255 WINDOW 0,22,0,39:CLS:PRINT AT(8,8);"Jetzt haben Sie einen ent-"
5256 PRINT AT(11,8);"scheidenden Fehler gemacht !":POKE-5120,32:PAUSE 40
5257 YY=1+10*ABS(U=0):CLS:RETURN
6000 CLEAR:WINDOW:CLS:DIM A$(20):PRINT SPC(14)"MASTER MIND":PRINT
6001 PRINT AT(4,23);"":FOR I=5 TO 22:PRINT AT(I,39);""
6002 NEXT I:PRINT AT(23,39);"":FOR I=38 TO 24 STEP-1:PRINT AT(23,I);""
6003 NEXT I:PRINT AT(23,23);"":FOR I=22 TO 5 STEP-1:PRINT AT(I,23);""
6004 NEXT I:PRINT AT(4,32);"":FOR I=5 TO 22:PRINT AT(I,32);"":NEXT I
6005 PRINT AT(23,32);""
6006 PRINT " Bisher 0 Versuche":C$="":D$="":FOR I=6 TO 10
6007 A=INT(9*RND(9))+1:IF A<1 OR A>9 THEN 6007
6008 A$(I)=STR$(A):NEXT I:WINDOW 5,22,0,39
6009 FOR I=6 TO 10:A$(I*2)="J":NEXT I:Q=0:INPUT " 5 Ziffern (1 ... 9): ";B$
6010 Z=0:M=M+1:T=21:IF M<9 THEN T=2*M+3
6011 PRINT AT(T,1);" ":POKE-4240-40*(21-T),32
6012 POKE-4217,161:POKE-4208,161:POKE-4201,161
6013 PRINT AT(T,30);" ":FOR I=1 TO 5:A$(I)=" "+MID$(B$,I,1)
6014 IF A$(I)=A$(I+5) THEN Q=Q+1
6015 FOR K=6 TO 10
6016 IF A$(2*K)="J" AND A$(I)=A$(K) THEN A$(2*K)="N":K=11:Z=Z+1
6017 NEXT K:NEXT I:PRINT AT(T,33);LEFT$(D$,Q),LEFT$(C$,Z-Q):PRINT SPC(23)"";
6018 PRINT " ":POKE-4241,161:PRINT AT(22,32);" "
6019 POKE-4217,161:N$=STR$(M):IF M=1 THEN POKE-5021,32
6020 IF M=2 THEN POKE-5021,101
6021 FOR I=1 TO LEN(N$):POKE-5030-LEN(N$)+I,ASC(MID$(N$,I,1)):NEXT I
6022 H$=B$:B$=" ":IF Q<5 THEN 6009
6023 PAUSE 20:WINDOW 5,23,0,39:CLS:PRINT:PRINT AT(4,23);" "
6024 PRINT:PRINT " Richtige Kombination: ";H$
6025 PRINT
6026 PRINT:PRINT:PRINT:IF M<8 THEN PRINT " Sie sind ja hervorragend in";
6027 IF M<8 THEN PRINT " Form !"
6028 IF M>7 AND M<12 THEN PRINT " Schon ganz gut,":PRINT:PRINT " bis zum";
6029 IF M>7 AND M<12 THEN PRINT " Genie ist":PRINT:PRINT " es aber noch";
6030 IF M>7 AND M<12 THEN PRINT " ein weiter Weg !"
6031 IF M>11 AND M<16 THEN PRINT " Ihre Konzentrationsfaehigkeit":PRINT
6032 IF M>11 AND M<16 THEN PRINT " laesst doch sehr zu Wuenschen uebrig !"
6033 IF M>15 THEN PRINT " Sagen Sie das bloss keinem weiter,":PRINT
6034 IF M>15 THEN PRINT " dass Sie insgesamt":PRINT:PRINT M;"Versuche";
6035 IF M>15 THEN PRINT " benoetigt haben !"
6036 PRINT:PRINT:PRINT:PRINT " Nochmal? (J / N):";
6037 F$=INKEY$:IF F$<>"J" AND F$<>"N" THEN 6037
6038 PRINT F$:IF F$="J" THEN 6000
6039 GOTO 100
7000 CLS:A=0
7001 PRINT AT(5,11);"B O M B E R"
7002 PRINT AT(10,1);"Durch die Taste '' koennen Sie eine"
7003 PRINT AT(9,18);"":PRINT AT(12,1);"Bombe ausloesen ! Waehrend die Bombe"
7004 PRINT AT(14,1);"faellt, kann keine weitere ausgeloest"
7005 PRINT AT(16,1);"werden. Wenn Sie gegen eine Hauswand "
7006 PRINT AT(18,1);"prallen, ist das Spiel beendet.":POKE-5120,32
7007 PRINT AT(23,29);">>ENTER<<":IF INKEY$="" THEN 7007
7008 Q=0:CLS:S=0:FOR I=0 TO 39:N=INT(5*RND(2)+16):S=S+N:POKE-5120,166:FOR J=0 TO N
7009 POKE-4200+I-40*J,194:NEXT J:NEXT I:L=-5120:N=S
7010 POKE L,166:PAUSE 2:IF PEEK(L+1)=194 THEN POKE L,32:GOTO 7024
7011 FOR I=1 TO 3:A$=INKEY$+CHR$(1):IF ASC(A$)=10 THEN 7017
7012 NEXT I:POKE L,32
7013 IF L/40=INT(L/40)AND RND(2)<0.2 AND L>-5120 THEN POKE L,32:L=L-40:GOTO 7010
7014 IF L<-4161 THEN L=L+1:GOTO 7010
7015 CLS:PRINT AT(8,4);"Fast unmoeglich !":POKE-5120,32
7016 PRINT AT(10,4);"Sie sind ein hervorragender Pilot !":GOTO 7038
7017 K=L
7018 IF PEEK(K+40)=194 THEN 7044
7019 IF K+40>-4200 THEN POKE K,32:PAUSE 2:POKE L,32:L=L+1:GOTO 7010
7020 IF PEEK(L+1)=194 THEN 7024
7021 POKE K,32:POKE L,32:K=K+40:L=L+1:POKE K,138:POKE L,166
7022 IF PEEK(L+1)=194 THEN POKE L,32:GOTO 7024
7023 PAUSE 1:GOTO 7018
7024 POKE L,32:L=L+1:POKE L,139:BEEP:POKE K,32:PAUSE 3:POKE L,196:BEEP:PAUSE 6
7025 POKE L,138:B=L/40:C=(L+1)/40:D=(L-1)/40:E=(L+2)/40
7026 IF L<-4200 THEN POKE L+40,130
7027 POKE L-40,131:IF B<>INT(B) THEN POKE L-1,129
7028 IF C<>INT(C) THEN POKE L+1,128
7029 PAUSE 3:IF C<>INT(C) THEN POKE L-39,173:IF L<-4200 THEN POKE L+41,172
7030 IF B<>INT(B) THEN POKE L+39,171:IF L<-4200 THEN POKE L-41,174
7031 PAUSE 4
7032 IF D<>INT(D) AND B<>INT(B)THEN POKE L-82,174:IF L<-4240 THEN POKE L+78,171
7033 IF E<>INT(E) AND C<>INT(C)THEN POKE L-78,173:IF L<-4239 THEN POKE L+82,172
7034 PAUSE 50:CLS
7035 PRINT AT(8,4);"Die Telegramme an Ihre":POKE-5120,32
7036 PRINT AT(10,4);"Angehoerigen sind unterwegs !"
7037 IF Q>A THEN A=Q
7038 PRINT AT(17,4);"Getroffen: ",Q," WE"
7039 PRINT AT(19,4);"Rekord bei: ",A," WE"
7040 PRINT AT(23,3);" Neues Spiel gewuenscht ? (J/N) :"
7041 C$=INKEY$:IF C$<>"J" AND C$<>"N"THEN 7041
7042 PRINT AT(23,36);C$:IF C$="J" THEN 7008
7043 GOTO 100
7044 IF(RND(2)-0.1)>(N/S)THEN POKE K,32:POKE L,32:L=L+1:GOTO 7010
7045 E=ABS(INT((K+40)/40))-104:Z=(INT(RND(2)*E))+1:N=N-Z:Q=Q+Z
7046 BEEP:POKE K,196:PAUSE 3:FOR I=1 TO Z:POKE K+40*I,32:NEXT I:POKE K,32:GOTO 7010