0 POKE792,193:POKE775,.:OPEN2,8,2,"GAME-MANAGER/008,S,R":INPUT#2,ZY,D,KA,KB,DA,KS$,KT$,KU$,KV$,KW$,KX$,BG,BH,SA$,SB$,SC$,SD$,SE$,SF$:INPUT#2,SG$,SH$,SI$,SJ$,SK$,SL$,SM$,SN$,SO$,SQ$,SA,SB,SC,SD,SE,SF,SG,SH,SI,SJ 1 INPUT#2,SK,SL,SM,SN,SO,SQ,GA$,GB$,GC$,GD$,GE$,GF$,GG$,GH$,GI$,GJ$,GK$,GL$,GA:INPUT#2,GB,GC,GD,GE,GF,GG,GH,GI,GJ,GK,GL,HB$,HC$,HD$,HE$,HF$,HG$,HH$,HI$:INPUT#2,HJ$,HK$,HL$,HA,HB,HC,HD,HE,HF,HG,HH,HI,HJ,HK,HL,KC$,KE$,KF$,KD$,KG$ 2 INPUT#2,KC,KD,KE,KF,ZI,ZL,PA$,PB$,PC$,PD$,PE$,PF$,PG$,PH$,PI$,PJ$,PK$,PL$,PM$:INPUT#2,PN$,PO$,PA(1),PA(2),PA(3),PA(4),PA(5),PA(6),PA(7),PA(8),PA(9),PB(1):INPUT#2,PB(2),PB(3),PB(4),PB(5),PB(6),NA(1),NA(2),NA(3),NA(4),NA(5),NA(6) 3 INPUT#2,NA(7),NA(8),NA(9),NB(1),NB(2),NB(3),NB(4),NB(5),NB(6),NA$,NB$,NC$,ND$:INPUT#2,NE$,NF$,NG$,NH$,NI$,NJ$,NK$,NL$,NN$,NM$,NO$,WA$,WB$,WC$,WA,WB,WC,HA$:INPUT#2,ZA$,ZB$,ZC$,ZD$,ZE$,ZF$,ZG$,ZH$,ZI$,ZJ$,ZK$,ZL$:CLOSE2 4 POKE53280,6:POKE53281,6:GOSUB5:GOTO6 5 PRINT"[147] GAME-MANAGER BY SASCHA HERBRIG ":RETURN 6 PRINT"[154]WIEVIELE SPIELER (1 ODER 2) ?":D=1 7 GETA$:IFA$=""THEN7 8 IFA$="1"THENSY=1 9 IFA$="2"THENSY=2 10 PRINT"[153]":X=21:Y=6:TE$="NAME DES 1.SPIELERS?":LE=15:BY=1:GOSUB833:FA$=I$:IFSY=2THENX=21:Y=8:TE$="NAME DES 2.SPIELERS?":LE=15:BY=1:GOSUB833:FB$=I$ 11 PRINT:PRINT"[158] SIND IHRE EINGABEN RICHTIG (J/N) ? 12 [161]A$:[139]A$[178]""[167]12 13 [139]A$[178]"J"[167]15 14 [137]4 15 [151]53280,6:[151]53281,6:[141]16:[141]17:[137]19 16 [153]"LOADGAME-MANAGER BY SASCHA HERBRIGWAIT"DA"CMD.RUNDE":[142] 17 [139]D[178]1[167][153]"CONT"FA$:[153]"KAP."KA:[142] 18 [153]"CONT"FB$:[153]"KAP."KB:[142] 19 [153]"PRINT SPIEL HERSTELLEN  EINNAHMEN/AUSGABEN  TOP-15 ANSEHEN  WERBUNG MACHEN  SPIELSTAND LADEN  SPIELSTAND SPEICHERN  BANK  ZUG BEENDEN 20 PRINT"":GOSUB35:ZE=1 21 IFPEEK(56320)=125THENGOSUB36:PRINT:GOSUB35:ZE=ZE+1 22 IFPEEK(56320)=126THENGOSUB36:PRINT"[145][145][145][145]":GOSUB35:ZE=ZE-1 23 IFZE=9THENGOSUB36:PRINT"":GOSUB35:ZE=1 24 IFZE=0THENGOSUB36:PRINT"":GOSUB35:ZE=8 25 IFPEEK(56320)=111THEN27 26 GOTO21 27 IFZE=1THEN42 28 IFZE=2THEN288 29 IFZE=3THENM=1:GOTO557 30 IFZE=4THEN767 31 IFZE=5THENP=1:GOTO788 32 IFZE=6THENP=2:GOTO788 33 IFZE=7THEN293 34 IFZE=8THEN39 35 PRINT"[154] [192][192][192]___":RETURN 36 PRINT"[145]  ":RETURN 37 PRINT"[154]___ [192][192][192]":RETURN 38 PRINT"[145] ":RETURN 39 IFSY=2ANDD=1THEND=2:GOTO41 40 GOTO419 41 GOSUB16:GOSUB17:GOTO19 42 GOSUB16:GOSUB17:GOSUB279:PRINT"[153] WIE SOLL IHR SPIEL HEI\EN? [158]":X=16:Y=6:TE$="SPIELNAME?":BY=1:LE=16:GOSUB833:SR$=I$:PRINT:PRINT"[154] SIND SIE SICH SICHER (J/N)? 43 [161]A$:[139]A$[178]""[167]43 44 [139]A$[178]"J"[167]326 45 [137]15 46 [139]D[178]1[167]51 47 [139]KP[178]0[167]KV$[178]SR$:ZO[178]1:LX[178]1:[137]255 48 [139]KQ[178]0[167]KW$[178]SR$:ZO[178]2:LY[178]1:[137]255 49 [139]KR[178]0[167]KX$[178]SR$:ZO[178]3:LZ[178]1:[137]255 50 [137]395 51 [139]KL[178]0[167]KS$[178]SR$:ZP[178]1:LU[178]1:[137]255 52 [139]KM[178]0[167]KT$[178]SR$:ZP[178]2:LV[178]1:[137]255 53 [139]KN[178]0[167]KU$[178]SR$:ZP[178]3:LW[178]1:[137]255 54 [137]399 55 [141]16:[141]17:[153]"PRINT BITTE W;HLEN SIE DEN PROGRAMMIERER !":[139]D[178]1[167]103 56 [139]KB[179]0[167]105 57 [153]"SYS "HA$:[153]"ON"HA:[153]" "HB$:[153]"ON"HB:[153]" "HC$:[153]"ON"HC:[153]" "HD$:[153]"ON"HD:[153]" "HE$:[153]"ON"HE 58 [153]" "HF$:[153]"ON"HF:[153]" "HG$:[153]"ON"HG:[153]" "HH$:[153]"ON"HH:[153]" "HI$:[153]"ON"HI:[153]" "HJ$:[153]"ON"HJ 59 [153]" "HK$:[153]"ON"HK:[153]" "HL$:[153]"ON"HL 60 [153]"":[141]37:ZE[178]1 61 [139][194](56320)[178]125[167][141]38:[153]"ON":[141]37:ZE[178]ZE[170]1 62 [139][194](56320)[178]126[167][141]38:[153]"ONONON":[141]37:ZE[178]ZE[171]1 63 [139]ZE[178]13[167][141]38:[137]60 64 [139]ZE[178]0[167][141]38:[153]"":[141]37:ZE[178]12 65 [139][194](56320)[178]111[167]67 66 [137]61 67 [139]ZE[178]1[167]79 68 [139]ZE[178]2[167]81 69 [139]ZE[178]3[167]83 70 [139]ZE[178]4[167]85 71 [139]ZE[178]5[167]87 72 [139]ZE[178]6[167]89 73 [139]ZE[178]7[167]91 74 [139]ZE[178]8[167]93 75 [139]ZE[178]9[167]95 76 [139]ZE[178]10[167]97 77 [139]ZE[178]11[167]99 78 [139]ZE[178]12[167]101 79 [139]D[178]1[167]KA[178]KA[171]HA:HZ[178]HA:[137]108 80 KB[178]KB[171]HA:HZ[178]HA:[137]108 81 [139]D[178]1[167]KA[178]KA[171]HB:HZ[178]HB:[137]108 82 KB[178]KB[171]HB:HZ[178]HB:[137]108 83 [139]D[178]1[167]KA[178]KA[171]HC:HZ[178]HC:[137]108 84 KB[178]KB[171]HC:HZ[178]HC:[137]108 85 [139]D[178]1[167]KA[178]KA[171]HD:HZ[178]HD:[137]108 86 KB[178]KB[171]HD:HZ[178]HD:[137]108 87 [139]D[178]1[167]KA[178]KA[171]HE:HZ[178]HE:[137]108 88 KB[178]KB[171]HE:HZ[178]HE:[137]108 89 [139]D[178]1[167]KA[178]KA[171]HF:HZ[178]HF:[137]108 90 KB[178]KB[171]HF:HZ[178]HF:[137]108 91 [139]D[178]1[167]KA[178]KA[171]HG:HZ[178]HG:[137]108 92 KB[178]KB[171]HG:HZ[178]HG:[137]108 93 [139]D[178]1[167]KA[178]KA[171]HH:HZ[178]HH:[137]108 94 KB[178]KB[171]HH:HZ[178]HH:[137]108 95 [139]D[178]1[167]KA[178]KA[171]HI:HZ[178]HI:[137]108 96 KB[178]KB[171]HI:HZ[178]HI:[137]108 97 [139]D[178]1[167]KA[178]KA[171]HJ:HZ[178]HJ:[137]108 98 KB[178]KB[171]HJ:HZ[178]HJ:[137]108 99 [139]D[178]1[167]KA[178]KA[171]HK:HZ[178]HK:[137]108 100 KB[178]KB[171]HK:HZ[178]HK:[137]108 101 [139]D[178]1[167]KA[178]KA[171]HL:HZ[178]HL:[137]108 102 KB[178]KB[171]HL:HZ[178]HL:[137]108 103 [139]KA[179]0[167]105 104 [137]57 105 [153]"SYS WERFEN SIE DOCH MAL EINEN BLICK AUF IHREN KONTOSTAND.... 106 IFPEEK(56320)=111THEN15 107 GOTO106 108 GOSUB16:GOSUB17:PRINT"[153] BITTE W;HLEN SIE DEN GRAFIKER !":IFD=1THEN156 109 IFKB<0THENKB=KB+HZ:GOTO158 110 PRINT"[158] "GA$:PRINT"[145]"GA:PRINT" "GB$:PRINT"[145]"GB:PRINT" "GC$:PRINT"[145]"GC:PRINT" "GD$:PRINT"[145]"GD:PRINT" "GE$:PRINT"[145]"GE 111 PRINT" "GF$:PRINT"[145]"GF:PRINT" "GG$:PRINT"[145]"GG:PRINT" "GH$:PRINT"[145]"GH:PRINT" "GI$:PRINT"[145]"GI:PRINT" "GJ$:PRINT"[145]"GJ 112 PRINT" "GK$:PRINT"[145]"GK:PRINT" "GL$:PRINT"[145]"GL 113 PRINT"":GOSUB37:ZE=1 114 IFPEEK(56320)=125THENGOSUB38:PRINT"[145]":GOSUB37:ZE=ZE+1 115 IFPEEK(56320)=126THENGOSUB38:PRINT"[145][145][145]":GOSUB37:ZE=ZE-1 116 IFZE=13THENGOSUB38:GOTO113 117 IFZE=0THENGOSUB38:PRINT"":GOSUB37:ZE=12 118 IFPEEK(56320)=111THEN120 119 GOTO114 120 IFZE=1THEN132 121 IFZE=2THEN134 122 IFZE=3THEN136 123 IFZE=4THEN138 124 IFZE=5THEN140 125 IFZE=6THEN142 126 IFZE=7THEN144 127 IFZE=8THEN146 128 IFZE=9THEN148 129 IFZE=10THEN150 130 IFZE=11THEN152 131 IFZE=12THEN154 132 IFD=1THENKA=KA-GA:GZ=GA:GOTO161 133 KB=KB-GA:GZ=GA:GOTO161 134 IFD=1THENKA=KA-GB:GZ=GB:GOTO161 135 KB=KB-GB:GZ=GB:GOTO161 136 IFD=1THENKA=KA-GC:GZ=GC:GOTO161 137 KB=KB-GC:GZ=GC:GOTO161 138 IFD=1THENKA=KA-GD:GZ=GD:GOTO161 139 KB=KB-GD:GZ=GD:GOTO161 140 IFD=1THENKA=KA-GE:GZ=GE:GOTO161 141 KB=KB-GE:GZ=GE:GOTO161 142 IFD=1THENKA=KA-GF:GZ=GF:GOTO161 143 KB=KB-GF:GZ=GF:GOTO161 144 IFD=1THENKA=KA-GG:GZ=GG:GOTO161 145 KB=KB-GG:GZ=GG:GOTO161 146 IFD=1THENKA=KA-GH:GZ=GH:GOTO161 147 KB=KB-GH:GZ=GH:GOTO161 148 IFD=1THENKA=KA-GI:GZ=GI:GOTO161 149 KB=KB-GI:GZ=GI:GOTO161 150 IFD=1THENKA=KA-GJ:GZ=GJ:GOTO161 151 KB=KB-GJ:GZ=GJ:GOTO161 152 IFD=1THENKA=KA-GK:GZ=GK:GOTO161 153 KB=KB-GK:GZ=GK:GOTO161 154 IFD=1THENKA=KA-GL:GZ=GL:GOTO161 155 KB=KB-GL:GZ=GL:GOTO161 156 IFKA<0THENKA=KA+HZ:GOTO158 157 GOTO110 158 PRINT"[158] SIE HABEN NICHT GENUG KNETE.... 159 [139][194](56320)[178]111[167]15 160 [137]159 161 [141]16:[141]17:[153]"PRINT BITTE W;HLEN SIE DEN SOUNDMACHER !":[139]D[178]1[167]222 162 [139]KB[179]0[167]KB[178]KB[170]HZ[170]GZ:[137]224 163 [153]"SYS "SA$:[153]"ON"SA:[153]" "SB$:[153]"ON"SB:[153]" "SC$:[153]"ON"SC:[153]" "SD$:[153]"ON"SD:[153]" "SE$:[153]"ON"SE 164 [153]" "SF$:[153]"ON"SF:[153]" "SG$:[153]"ON"SG:[153]" "SH$:[153]"ON"SH:[153]" "SI$:[153]"ON"SI:[153]" "SJ$:[153]"ON"SJ 165 [153]" "SK$:[153]"ON"SK:[153]" "SL$:[153]"ON"SL:[153]" "SM$:[153]"ON"SM:[153]" "SN$:[153]"ON"SN:[153]" "SO$:[153]"ON"SO 166 [153]" "SQ$:[153]"ON"SQ 167 [153]"":[141]37:ZE[178]1 168 [139][194](56320)[178]125[167][141]38:[153]"ON":[141]37:ZE[178]ZE[170]1 169 [139][194](56320)[178]126[167][141]38:[153]"ONONON":[141]37:ZE[178]ZE[171]1 170 [139]ZE[178]17[167][141]38:[137]167 171 [139]ZE[178]0[167][141]38:[153]"":[141]37:ZE[178]16 172 [139][194](56320)[178]111[167]174 173 [137]168 174 [139]ZE[178]1[167]190 175 [139]ZE[178]2[167]192 176 [139]ZE[178]3[167]194 177 [139]ZE[178]4[167]196 178 [139]ZE[178]5[167]198 179 [139]ZE[178]6[167]200 180 [139]ZE[178]7[167]202 181 [139]ZE[178]8[167]204 182 [139]ZE[178]9[167]206 183 [139]ZE[178]10[167]208 184 [139]ZE[178]11[167]210 185 [139]ZE[178]12[167]212 186 [139]ZE[178]13[167]214 187 [139]ZE[178]14[167]216 188 [139]ZE[178]15[167]218 189 [139]ZE[178]16[167]220 190 [139]D[178]1[167]KA[178]KA[171]SA:SZ[178]SA:[137]227 191 KB[178]KB[171]SA:SZ[178]SA:[137]227 192 [139]D[178]1[167]KA[178]KA[171]SB:SZ[178]SB:[137]227 193 KB[178]KB[171]SB:SZ[178]SB:[137]227 194 [139]D[178]1[167]KA[178]KA[171]SC:SZ[178]SC:[137]227 195 KB[178]KB[171]SC:SZ[178]SC:[137]227 196 [139]D[178]1[167]KA[178]KA[171]SD:SZ[178]SD:[137]227 197 KB[178]KB[171]SD:SZ[178]SD:[137]227 198 [139]D[178]1[167]KA[178]KA[171]SE:SZ[178]SE:[137]227 199 KB[178]KB[171]SE:SZ[178]SE:[137]227 200 [139]D[178]1[167]KA[178]KA[171]SF:SZ[178]SF:[137]227 201 KB[178]KB[171]SF:SZ[178]SF:[137]227 202 [139]D[178]1[167]KA[178]KA[171]SG:SZ[178]SG:[137]227 203 KB[178]KB[171]SG:SZ[178]SG:[137]227 204 [139]D[178]1[167]KA[178]KA[171]SH:SZ[178]SH:[137]227 205 KB[178]KB[171]SH:SZ[178]SH:[137]227 206 [139]D[178]1[167]KA[178]KA[171]SI:SZ[178]SI:[137]227 207 KB[178]KB[171]SI:SZ[178]SI:[137]227 208 [139]D[178]1[167]KA[178]KA[171]SJ:SZ[178]SJ:[137]227 209 KB[178]KB[171]SJ:SZ[178]SJ:[137]227 210 [139]D[178]1[167]KA[178]KA[171]SK:SZ[178]SK:[137]227 211 KB[178]KB[171]SK:SZ[178]SK:[137]227 212 [139]D[178]1[167]KA[178]KA[171]SL:SZ[178]SL:[137]227 213 KB[178]KB[171]SL:SZ[178]SL:[137]227 214 [139]D[178]1[167]KA[178]KA[171]SM:SZ[178]SM:[137]227 215 KB[178]KB[171]SM:SZ[178]SM:[137]227 216 [139]D[178]1[167]KA[178]KA[171]SN:SZ[178]SN:[137]227 217 KB[178]KB[171]SN:SZ[178]SN:[137]227 218 [139]D[178]1[167]KA[178]KA[171]SO:SZ[178]SO:[137]227 219 KB[178]KB[171]SO:SZ[178]SO:[137]227 220 [139]D[178]1[167]KA[178]KA[171]SQ:SZ[178]SQ:[137]227 221 KB[178]KB[171]SQ:SZ[178]SQ:[137]227 222 [139]KA[179]0[167]KA[178]KA[170]HZ[170]GZ:[137]224 223 [137]163 224 [153]"SYS SIE HABEN NICHT GENUG GELD..... 225 IFPEEK(56320)=111THEN15 226 GOTO225 227 GOSUB16:GOSUB17:PRINT"[153] BITTE W;HLEN SIE DEN KOPIERSCHUTZ !":IFD=1THEN250 228 IFKB<0THENKB=KB+HZ+GZ+SZ:GOTO252 229 PRINT"[158] "KC$:PRINT"[145]"KC:PRINT" "KD$:PRINT"[145]"KD:PRINT" "KE$:PRINT"[145]"KE:PRINT" "KF$:PRINT"[145]"KF:PRINT" "KG$ 230 PRINT"":GOSUB37:ZE=1 231 IFPEEK(56320)=125THENGOSUB38:PRINT"[145]":GOSUB37:ZE=ZE+1 232 IFPEEK(56320)=126THENGOSUB38:PRINT"[145][145][145]":GOSUB37:ZE=ZE-1 233 IFZE=6THENGOSUB38:GOTO230 234 IFZE=0THENGOSUB38:PRINT"":GOSUB37:ZE=5 235 IFPEEK(56320)=111THEN237 236 GOTO231 237 IFZE=1THEN242 238 IFZE=2THEN244 239 IFZE=3THEN246 240 IFZE=4THEN248 241 IFZE=5THENIZ=0:GOTO46 242 IFD=1THENKA=KA-KC:IZ=KC:GOTO46 243 KB=KB-KC:IZ=KC:GOTO46 244 IFD=1THENKA=KA-KD:IZ=KD:GOTO46 245 KB=KB-KD:IZ=KD:GOTO46 246 IFD=1THENKA=KA-KE:IZ=KE:GOTO46 247 KB=KB-KE:IZ=KE:GOTO46 248 IFD=1THENKA=KA-KF:IZ=KF:GOTO46 249 KB=KB-KF:IZ=KF:GOTO46 250 IFKA<0THENKA=KA+HZ+GZ+SZ:GOTO252 251 GOTO229 252 PRINT"[158] SIE HABEN NICHT GENUG MONEY.... 253 [139][194](56320)[178]111[167]15 254 [137]253 255 [133]"CONTWIE TEUER SOLL IHR SPIEL SEIN";KO:[139]KO[179]5[176]KO[177]80[167][153]"ONONONON":[137]255 256 [139]KS$[178]SR$[167]HS[178]HZ:GS[178]GZ:SS[178]SZ:KS[178]IZ:LU[178].:[137]262 257 [139]KT$[178]SR$[167]HT[178]HZ:GT[178]GZ:SR[178]SZ:KT[178]IZ:LV[178].:[137]262 258 [139]KU$[178]SR$[167]HU[178]HZ:GU[178]GZ:SU[178]SZ:KU[178]IZ:[137]262 259 [139]KV$[178]SR$[167]HV[178]HZ:GV[178]GZ:SV[178]SZ:KV[178]IZ:[137]262 260 [139]KW$[178]SR$[167]HW[178]HZ:GW[178]GZ:SW[178]SZ:KW[178]IZ:[137]262 261 [139]KX$[178]SR$[167]HX[178]HZ:GX[178]GZ:SX[178]SZ:KX[178]IZ:[137]262 262 PR[178]1:[139]HZ[177]120000[167]PR[178]PR[170]2:[137]264 263 [139]HZ[177]80000[167]PR[178]PR[170]1:[137]264 264 [139]GZ[177]120000[167]PR[178]PR[170]2:[137]266 265 [139]GZ[177]80000[167]PR[178]PR[170]1:[137]266 266 [139]SZ[177]80000[167]PR[178]PR[170]2:[137]268 267 [139]SZ[177]60000[167]PR[178]PR[170]1:[137]268 268 MW[178]KO[172]15[173]100:MW[178]2[172]MW:DR[178]KO[172]5[173]100:DS[178]KO[172]20[173]100:KO[178]KO[171]MW[171]DR[171]DS:[139]KS$[178]SR$[167]AS[178]KO:KL[178]1 269 [139]KT$[178]SR$[167]AT[178]KO:KM[178]1 270 [139]KU$[178]SR$[167]AU[178]KO:KN[178]1 271 [139]KV$[178]SR$[167]AV[178]KO:KP[178]1 272 [139]KW$[178]SR$[167]AW[178]KO:KQ[178]1 273 [139]KX$[178]SR$[167]AX[178]KO:KR[178]1 274 [153]"NACH ABZ@GEN(Z.B.UMSATZST.)MACHEN SIE EINEN GEWINN VON"KO"DM PRO SPIEL. DIE PRODUKTION WIRD"PR"MONATE DAUERN.":[137]277 275 [139][194](56320)[178]111[167]15 276 [137]275 277 [139]D[178]1[167]PS[178]PR:[137]275 278 PT[178]PR:[137]275 279 [139]D[178]1[167]283 280 [139]PT[177]0[167][153]"SYS SIE SCHLINGEL! SIE PRODUZIEREN DOCH 281 IFPT>0THENPRINT" SCHON GERADE EIN SPIEL !":GOTO286 282 RETURN 283 IFPS>0THENPRINT"[158] SIE SCHLINGEL! SIE PRODUZIEREN DOCH 284 [139]PS[177]0[167][153]" SCHON GERADE EIN SPIEL !":[137]286 285 [142] 286 [139][194](56320)[178]111[167]15 287 [137]286 288 [141]16:[141]17:[153]"PRINTNAME DES SPIELS AUSGABEN EINNAHMEN":[139]D[178]1[167]290 289 GY[178]HV[170]GV[170]SV[170]KV:[153]"SYS"KV$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"GP:GY[178]HW[170]GW[170]SW[170]KW:[153]""KW$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"GQ:GY[178]HX[170]GX[170]SX[170]KX:[153]""KX$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"GR:[137]291 290 GY[178]HS[170]GS[170]SS[170]KS:[153]"SYS"KS$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"GM:GY[178]HT[170]GT[170]SR[170]KT:[153]""KT$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"GN:GY[178]HU[170]GU[170]SU[170]KU:[153]""KU$:[153]"ON"GY:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"G 291 [139][194](56320)[178]111[167]15 292 [137]291 293 [141]16:[141]17:[153]"PRINT KREDIT AUFNEHMEN  KREDIT ABZAHLEN  GELD VERSCHENKEN  GELD LEIHEN  GELD ABZAHLEN  HAUPTMEN@ ":[141]35:ZE[178]1 294 [139][194](56320)[178]125[167][141]36:[153]:[141]35:ZE[178]ZE[170]1 295 [139][194](56320)[178]126[167][141]36:[153]"ONONONON":[141]35:ZE[178]ZE[171]1 296 [139]ZE[178]7[167][141]36:[153]"":[141]35:ZE[178]1 297 [139]ZE[178]0[167][141]36:[153]"":[141]35:ZE[178]6 298 [139][194](56320)[178]111[167]300 299 [137]294 300 [139]ZE[178]1[167]341 301 [139]ZE[178]2[167]355 302 [139]ZE[178]3[167]306 303 [139]ZE[178]4[167]376 304 [139]ZE[178]5[167]403 305 [139]ZE[178]6[167]15 306 [141]16:[141]17:[139]SY[178]1[167][153]"CONT SIE SPIELEN DOCH SOLO!":[137]414 307 [153]"PRINT WIEVIEL GELD WOLLEN SIE AN IHREN MIT-":[139]D[178]1[167][153]"SPIELER VERSCHENKEN(MAX."KA"DM) 308 IFD=1THENINPUT"[158] ";BQ:GOTO310 309 PRINT"SPIELER VERSCHENKEN(MAX."KB"DM)":INPUT"[158] ";BQ:GOTO319 310 IFBS>KATHENPRINT"[154] DAZU HABEN SIE ZU WENIG GELD !":GOTO317 311 IFBS<0THENPRINT"[154] SIE SIND MIR VIELLEICHT EIN SCHURKE !":GOTO317 312 PRINT" SIND SIE SICH SICHER (J/N) ? 313 [161]A$:[139]A$[178]""[167]313 314 [139]A$[178]"J"[167]KA[178]KA[171]BQ:KB[178]KB[170]BQ:[137]316 315 [137]293 316 [153]"CONT DAS GELD GEH:RT NUN SPIELER 2 ! 317 IFPEEK(56320)=111THEN293 318 GOTO317 319 IFBQ>KBTHENPRINT"[154] DAZU HABEN SIE ZU WENIG GELD !":GOTO317 320 IFBQ<0THENPRINT"[154] SIE SIND MIR VIELLEICHT EIN SCHURKE !":GOTO317 321 PRINT" SIND SIE SICH SICHER (J/N) ? 322 [161]A$:[139]A$[178]""[167]322 323 [139]A$[178]"J"[167]KB[178]KB[171]BQ:KA[178]KA[170]BQ:[137]325 324 [137]293 325 [153]"CONT DAS GELD GEH:RT NUN SPIELER 1 !":[137]317 326 [141]16:[141]17:[153]"PRINT WAS F@R EIN SPIEL SOLL ES WERDEN ? SYS "ZA$:[153]" "ZB$:[153]" "ZC$:[153]" "ZD$:[153]" "ZE$:[153]" "ZF$:[153]" "ZG$:[153]" "ZH$:[153]" "ZI$:[153]" "ZJ$:[153]" "ZK$:[153]" "ZL$ 327 [153]"":[141]35:ZE[178]1 328 [139][194](56320)[178]125[167][141]36:[153]"ON":[141]35:ZE[178]ZE[170]1 329 [139][194](56320)[178]126[167][141]36:[153]"ONONON":[141]35:ZE[178]ZE[171]1 330 [139]ZE[178]13[167][141]36:[137]327 331 [139]ZE[178]0[167][141]36:[153]"":[141]35:ZE[178]12 332 [139][194](56320)[178]111[167]334 333 [137]328 334 [139]KS$[178]SR$[167]BS[178]ZE 335 [139]KT$[178]SR$[167]BT[178]ZE 336 [139]KU$[178]SR$[167]BU[178]ZE 337 [139]KV$[178]SR$[167]BV[178]ZE 338 [139]KW$[178]SR$[167]BW[178]ZE 339 [139]KX$[178]SR$[167]BX[178]ZE 340 [137]55 341 [141]16:[141]17:[153]"PRINT WIEVIEL GELD WOLLEN SIE SICH LEIHEN ?":[139]D[178]1[167]ZF[178]750000[171]ZB:[137]343 342 ZF[178]750000[171]ZC 343 [153]"(MAX."ZF"DM) SYS 0CMDCMDCMD";:[133]ZA:[139]ZA[177]ZF[167][153]" SOVIEL GELD K:NNEN SIE NICHT LEIHEN !":[137]353 344 [139]D[178]1[167]ZB[178]ZA[170]ZB:ZD[178]ZB[172]14[173]100:[137]346 345 ZC[178]ZA[170]ZC:ZD[178]ZC[172]14[173]100 346 [153]"CONT SIE M@SSEN DANN BEI EINEM ZINSSATZ VON 14% PRO SPIELRUNDE"ZD"DM ZAHLEN.  SIND SIE EINVERSTANDEN (J/N) ? 347 GETA$:IFA$=""THEN347 348 IFA$="J"THEN351 349 IFD=1THENZB=ZB-ZA:GOTO293 350 ZC=ZC-ZA:GOTO293 351 IFD=1THENKA=KA+ZA:GOTO293 352 KB=KB+ZA:GOTO293 353 IFPEEK(56320)=111THEN293 354 GOTO353 355 GOSUB16:GOSUB17:IFD=1THENPRINT"[153] SIE SCHULDEN DER BANK"ZB"DM !":GOTO357 356 PRINT"[153] SIE SCHULDEN DER BANK"ZC"DM ! 357 [153]" WIEVIEL GELD WOLLEN SIE ZUR@CKZAHLEN?":[139]D[178]1[167][153]"(MAX."KA"DM) SYS 0CMDCMDCMD";:[133]ZA:[137]359 358 [153]"(MAX."KB"DM) SYS 0CMDCMDCMD";:[133]ZA 359 [139]D[178]1[167][153]:[139]ZA[177]KA[167][153]" SOVIEL GELD HABEN SIE NICHT...":[137]374 360 [139]D[178]2[167][153]:[139]ZA[177]KB[167][153]" SOVIEL GELD HABEN SIE NICHT...":[137]374 361 [139]D[178]1[167][153]:[139]ZA[177]ZB[167][153]" SIE SIND ABER GROSSZ@GIG !":[137]374 362 [139]D[178]2[167][153]:[139]ZA[177]ZC[167][153]" SIE SIND ABER GROSSZ@GIG !":[137]374 363 [139]D[178]1[167]ZB[178]ZB[171]ZA:ZD[178]ZB[172]14[173]100:[137]365 364 ZC[178]ZC[171]ZA:ZD[178]ZC[172]14[173]100 365 [139]D[178]1[167][153]"CONTSIE SCHULDEN DER BANK NOCH"ZB"DM!":[137]367 366 [153]"CONTSIE SCHULDEN DER BANK NOCH"ZC"DM! 367 PRINT" SIE M@SSEN DANN BEI EINEM ZINSSATZ VON 14% PRO SPIELRUNDE"ZD"DM ZAHLEN.  SIND SIE EINVERSTANDEN (J/N) ? 368 [161]A$:[139]A$[178]""[167]368 369 [139]A$[178]"J"[167]372 370 [139]D[178]1[167]ZB[178]ZB[170]ZA:[137]293 371 ZC[178]ZC[170]ZA:[137]293 372 [139]D[178]1[167]KA[178]KA[171]ZA:[137]293 373 KB[178]KB[171]ZA:[137]293 374 [139][194](56320)[178]111[167]293 375 [137]374 376 [141]16:[141]17:[141]390:[139]SY[178]1[167][153]"CONT SIE SPIELEN DOCH SOLO!":[137]414 377 [153]"PRINTSPIELER"D"CMD,WIEVIEL GELD WOLLEN SIE SICH":[139]D[178]1[167][153]"LEIHEN (MAX."KB"DM) SYS 0CMDCMDCMD";:[133]ZG:[137]379 378 [153]"LEIHEN (MAX."KA"DM) SYS 0CMDCMDCMD";:[133]ZN:[137]388 379 [153]"SPIELER 2,SIND SIE DAMIT EINVERSTANDEN ?":[141]380:[137]383 380 [161]A$:[139]A$[178]""[167]380 381 [139]A$[178]"J"[167][142] 382 [137]293 383 [153]"SPIELER 2,WIEVIEL DM ZINSEN WOLLEN SIE ?":[133]" SYS 0CMDCMDCMD";ZH:[153]"SPIELER 2,WIE LANGE SOLL DER KREDIT":[133]"LAUFEN SYS 6CMDCMDCMD";ZI:[153]"CONT SIND ALLE DAMIT EINVERSTANDEN (J/N) ?":[141]384:[137]387 384 [161]A$:[139]A$[178]""[167]384 385 [139]A$[178]"J"[167][142] 386 [137]293 387 ZJ[178]ZJ[170]ZG[170]ZH:KA[178]KA[170]ZG:KB[178]KB[171]ZG:[137]293 388 [153]"PRINTSPIELER 1,SIND SIE DAMIT EINVERSTANDEN ?":[141]380:[153]"SPIELER 1,WIEVIEL DM ZINSEN WOLLEN SIE ?":[133]" SYS 0CMDCMDCMD";ZK:[153]"PRINTSPIELER 1,WIE LANGE SOLL DER KREDIT":[133]"LAUFEN SYS 6CMDCMDCMD";ZL:[153]"CONT SIND ALLE DAMIT EINVERSTANDEN (J/N) ?":[141]384 389 ZM[178]ZM[170]ZN[170]ZK:KA[178]KA[171]ZN:KB[178]KB[170]ZN:[137]293 390 [139]D[178]1[167][153]:[139]ZI[177][171]1[167][153]"PRINT SIE HABEN SICH SCHON GELD GELIEHEN !":[137]393 391 [139]D[178]2[167][153]:[139]ZL[177][171]1[167][153]"PRINT SIE HABEN SICH SCHON GELD GELIEHEN !":[137]393 392 [142] 393 [139][194](56320)[178]111[167]293 394 [137]393 395 [139]ZO[178]3[167]KV$[178]SR$:ZO[178]1:LX[178]1:GP[178].:[137]255 396 [139]ZO[178]1[167]KW$[178]SR$:ZO[178]2:LY[178]1:GQ[178].:[137]255 397 [139]ZO[178]2[167]KX$[178]SR$:ZO[178]3:LZ[178]1:GR[178].:[137]255 398 [137]255 399 [139]ZP[178]3[167]KS$[178]SR$:ZP[178]1:LU[178]1:GM[178].:[137]255 400 [139]ZP[178]1[167]KT$[178]SR$:ZP[178]2:LV[178]1:GN[178].:[137]255 401 [139]ZP[178]2[167]KU$[178]SR$:ZP[178]3:LW[178]1:G[178].:[137]255 402 [137]255 403 [141]16:[141]17:[153]"PRINTSPIELER"D"CMD,SIE HABEN BEI IHREM MIT-":[139]D[178]1[167][153]:[153]"ONSPIELER EINEN KREDIT VON"ZJ"DM!":[141]405:[137]409 404 [153]"SPIELER EINEN KREDIT VON"ZM"DM!":[141]405:[137]416 405 [153]"WOLLEN SIE WIRKLICH ZUR@CKZAHLEN (J/N)? 406 GETA$:IFA$=""THEN406 407 IFA$="J"THENRETURN 408 GOTO293 409 IFKA7E-05THENPRINT"BEIN.KRANKENHAUSKOSTEN 256DM !":ZR=256:GOSUB465 425 IFZX<7E-05ANDZX>6E-05THENPRINT"[153]SIE SPENDEN EINEM HEIM 530DM !":ZR=530:GOSUB465 426 IFZX<6E-05ANDZX>5E-05THENPRINT"[153]BEI EINER WETTE";:GOTO815 427 IFZX<5E-05ANDZX>4E-05THENPRINT"[153]SIE FEIERN EINE PARTY FUER 333DM !":GOTO816 428 IFZX<4E-05ANDZX>3E-05THENPRINT"[153]SIE KAUFEN SICH EINEN NEUEN COMPUTER- 429 [139]ZX[179]4E[171]05[175]ZX[177]3E[171]05[167][153]"TISCH FUER 498DM !":ZR[178]498:[141]465 430 [139]ZX[179]3E[171]05[175]ZX[177]2E[171]05[167][153]"PRINTSIE VERLIEREN BEIM ROULETTE 59DM !":ZR[178]59:[141]465 431 [139]ZX[179]2E[171]05[175]ZX[177]1E[171]05[167][153]"PRINTCOMPUTERREPARATUR.KOSTEN=168DM !":ZR[178]168:[141]465 432 [139]ZX[179]1E[171]05[175]ZX[177]9E[171]06[167][153]"PRINTDIE ABBUCHUNG F@R DAS ABO DER MAGIC DISK"; 433 [139]ZX[179]1E[171]05[175]ZX[177]9E[171]06[167][153]"WIRD WIEDER F;LLIG.KOSTEN 114DM!":ZR[178]114:[141]465 434 [139]ZX[179]9E[171]06[175]ZX[177]8E[171]06[167][153]"PRINTSIE VERWETTEN 500DM BEIM";:[137]817 435 [139]ZX[179]8E[171]06[175]ZX[177]7E[171]06[167][153]"PRINTSIE ERBEN VON IHREM ONKEL";:[137]818 436 [139]ZX[179]7E[171]06[175]ZX[177]6E[171]06[167][153]"PRINTSCHENKUNG IHRER GROSSMUTTER";:[137]819 437 [139]ZX[179]6E[171]06[175]ZX[177]5E[171]06[167][153]"PRINTSIE FINDEN EINEN 5-MARK SCHEIN !":ZR[178]5:[141]467 438 [139]ZX[179]5E[171]06[175]ZX[177]4E[171]06[167]820 439 [139]ZX[179]5E[171]06[175]ZX[177]4E[171]06[167][153]"DER EINES IHRER SPIELE KOPIERT HAT.SIE 440 IFZX<5E-06ANDZX>4E-06THENPRINT"ERHALTEN 15.000DM SCHADENSERSATZ!":ZR=15000:GOSUB467 441 IFZX<4E-06ANDZX>3E-06THENPRINT"[153]SIE FINDEN EINE BRIEFTASCHE MIT 678DM !":GOTO469 442 IFZX<3E-06ANDZX>2E-06THENPRINT"[153]WOLLEN SIE EINE FAMILIE EINHEIRATEN ?":GOTO826 443 IFZX<2E-06ANDZX>1E-06THEN484 444 IFZX<1E-06ORZX>9E-05THEN491 445 GOSUB446:PRINT"[153]DAS WAR'S AUCH SCHON F@R DIESE RUNDE!":GOTO455 446 IFZY=2THEN452 447 GOTO449 448 KA=KA+(ZM/2)+ZM:ZM=0:RETURN 449 IFZI<0ANDZJ>0THENPRINT"[153]SIE HABEN NICHT DEN KREDIT AN":GOTO451 450 RETURN 451 PRINTFB$" ZUR@CKGEZAHLT."FB$" BE- KOMMT JETZT SEIN GELD VON IHNEN ZUR@CK. AUSSERDEM ZAHLEN SIE"ZJ/2"[157]DM STRAFE!":KA=KA-(ZJ/2)-ZJ:KB=KB+(ZJ/2)+ZJ:ZJ=0:RETURN 452 IFZL<0ANDZM>0THENPRINT"[153]SIE HABEN NICHT DEN KREDIT AN":GOTO454 453 RETURN 454 PRINTFA$" ZUR@CKGEZAHLT."FA$" BE- KOMMT JETZT SEIN GELD VON IHNEN ZUR@CK.AUSSERDEM ZAHLEN SIE"ZM/2"[157]DM STRAFE!":KB=KB-(ZM/2)-ZM:GOTO448 455 ZY=ZY+1:IFZY=2ANDSY=2THEN457 456 ZY=1:GOTO555 457 PRINT""FB$:ZX=RND(-TI):GOTO422 458 IFKB<-10000000THENPRINT"DAS SPIEL IST F@R "FB$" GESTOPPT.":GOTO460 459 GOTO421 460 PRINT"SIE HABEN MEHR ALS 10.000.000DM MINUS!":D=1:GOTO421 461 IFKA<-10000000THENPRINT"DAS SPIEL IST F@R "FA$" GESTOPPT.":GOTO464 462 IFSY=2THEN458 463 GOTO421 464 PRINT"SIE HABEN MEHR ALS 10.000.000 DM MINUS!":D=2:IFSY=2THEN458:GOTO421 465 IFZY=1THENKA=KA-ZR:RETURN 466 KB=KB-ZR:RETURN 467 IFZY=1THENKA=KA+ZR:RETURN 468 KB=KB+ZR:RETURN 469 PRINT"[144]WOLLEN SIE DIE BRIEFTASCHE ABGEBEN(J/N)? 470 [161]A$:[139]A$[178]""[167]470 471 [139]A$[178]"J"[167][153]"SIE ERHALTEN 212DM FINDERLOHN.":ZR[178]212:[141]467:[137]442 472 [153]"SIE BEHALTEN DIE 678DM!":ZR[178]678:[141]467:[139]ZY[178]1[167]ZQ[178]1:[137]442 473 ZZ[178]1:[137]445 474 [161]A$:[139]A$[178]""[167]474 475 [139]A$[178]"J"[167]ZS[178][181](5[172][187](1))[170]1:[137]477 476 [153]"DIE HOCHZEIT WIRD ABGESAGT !":[137]443 477 [139]ZS[178]1[167]ZR[178]4000 478 [139]ZS[178]2[167]ZR[178]8000 479 [139]ZS[178]3[167]ZR[178]12000 480 [139]ZS[178]4[167]ZR[178]16000 481 [139]ZS[178]5[167]ZR[178]20000 482 [153]"DIE MITGIFT BETR;GT"ZR"CMDDM !":[139]ZY[178]1[167]ZT[178]1:[141]467:[137]443 483 ZU[178]1:[141]467:[137]443 484 [141]488:[139]ZQ[178]1[167][153]"PRINTDIE POLIZEI HAT AUF EINEN ANONYMEN HIN-":[137]486 485 [137]444 486 [153]"WEIS HIN HERAUSGEFUNDEN,DA\ SIE EINE BRIEFTASCHE GEFUNDEN UND NICHT ABGEGE- BEN HABEN.GELDSTRAFE=2000DM !":ZR[178]2000:[139]ZY[178]1[167][141]465:ZV[178]ZV[171]0.1:ZQ[178]0:[137]444 487 [141]465:ZW[178]ZW[171]0.1:ZZ[178]0:[137]444 488 [139]ZY[178]1[167][142] 489 [139]ZZ[178]1[167][153]"PRINTDIE POLIZEI HAT AUF EINEN ANONYMEN HIN-":[137]486 490 [137]444 491 [139]ZY[178]1[167]529 492 [139]PT[178]0[167]494 493 [137]445 494 [139]GP[178]0[175]HV[177]0[167]GY[178]HV[170]GV[170]SV:GM$[178]KV$:[137]500 495 [139]GQ[178]0[175]HW[177]0[167]498 496 [139]GR[178]0[175]HX[177]0[167]499 497 [137]445 498 GY[178]HW[170]GW[170]SW:GM$[178]KW$:[137]500 499 GY[178]HX[170]GX[170]SX:GM$[178]KX$ 500 [139]GY[179]150000[167][141]503:[137]504 501 [139]GY[177]300000[167][141]503:[137]508 502 [137]445 503 [153]"PRINTDIE GAME ON HAT IHR IN DIESEM MONAT FER-TIG GESTELLTES SPIEL SYS"GM$"PRINT":[142] 504 [153]"ZUM FLOP DES MONATS ERNANNT !":[139]GM$[178]KV$[167]HQ[178]1 505 [139]GM$[178]KW$[167]HR[178]1 506 [139]GM$[178]KX$[167]HY[178]1 507 ZW[178]ZW[171]0.25:[137]445 508 [153]"MIT EINEM HIGHLIGHT-STERN AUSGEZEICHNET!":[139]GM$[178]KV$[167]AP[178]1 509 [139]GM$[178]KW$[167]AQ[178]1 510 [139]GM$[178]KX$[167]AR[178]1 511 ZW[178]ZW[170]0.25:[137]445 512 [139]GM[178]0[175]HS[177]0[167]GY[178]HS[170]GS[170]SS:GM$[178]KS$:[137]518 513 [139]GQ[178]0[175]HT[177]0[167]516 514 [139]GR[178]0[175]HU[177]0[167]517 515 [137]445 516 GY[178]HT[170]GT[170]SR:GM$[178]KT$:[137]518 517 GY[178]HU[170]GU[170]SU:GM$[178]KU$ 518 [139]GY[179]150000[167][141]503:[137]521 519 [139]GY[177]300000[167][141]503:[137]525 520 [137]445 521 [153]"ZUM FLOP DES MONATS ERNANNT !":[139]GM$[178]KS$[167]HN[178]1 522 [139]GM$[178]KT$[167]HO[178]1 523 [139]GM$[178]KU$[167]HP[178]1 524 ZV[178]ZV[171]0.25:[137]445 525 [153]"MIT EINEM HIGHLIGHT-STERN AUSGEZEICHNET!":[139]GM$[178]KS$[167]AM[178]1 526 [139]GM$[178]KT$[167]AN[178]1 527 [139]GM$[178]KU$[167]AO[178]1 528 ZV[178]ZV[170]0.25:[137]445 529 [139]PS[178]0[167]512 530 [137]445 531 [151]53280,2:[151]53281,2:[141]5:[153]"ONSYS SPIELPRODUKTION PRINT"FA$:ZY[178]1 532 [139]ZY[178]1[167]535 533 [139]PT[178]1[167]537 534 [137]538 535 [139]PS[178]1[167]537 536 [137]542 537 [153]"DEFIHR NEUES SPIEL IST JETZT FERTIG !":[141]548:[137]545 538 [139]PT[177]0[167][153]"DEFDIE PRODUKTION L;UFT AUF HOCHTOUREN !":[137]544 539 [153]"DEFSIE PRODUZIEREN ZUR ZEIT KEIN SPIEL.":[137]545 540 [139][194](56320)[178]111[167]420 541 [137]540 542 [139]PS[177]0[167][153]"DEFDIE PRODUKTION L;UFT AUF HOCHTOUREN !":[137]547 543 [137]539 544 [153]"SIE M@SSEN NOCH"PT[171]1"MONATE WARTEN. 545 IFZY=1ANDSY=2THENZY=ZY+1:PRINT"[153]"FB$:GOTO532 546 ZY=1:PS=PS-1:PT=PT-1:GOTO540 547 PRINT"SIE M@SSEN NOCH"PS-1"MONATE WARTEN.":GOTO545 548 IFHS>0ANDGM=0THENLU=1 549 IFHT>0ANDGN=0THENLV=1 550 IFHU>0ANDG=0THENLW=1 551 IFHV>0ANDGP=0THENLX=1 552 IFHW>0ANDGQ=0THENLY=1 553 IFHX>0ANDGR=0THENLZ=1 554 RETURN 555 IFPEEK(56320)=111THENM=2:GOTO557 556 GOTO555 557 POKE53280,10:POKE53281,10:GOSUB5:PRINT"[145][158] SPIELEVERKAUFSCHARTS ":IFM=1THEN702 558 GOSUB659:FORP=1TO9:NA(P)=NA(P)-(INT(200*RND(1))+1):NA(P)=NA(P)+(INT(200*RND(1))+1):NEXTP:FORP=1TO6:NB(P)=NB(P)-(INT(200*RND(1))+1):NB(P)=NB(P)+(INT(200*RND(1))+1):NEXTP:YA=. 559 YA=YA+1:IFYA=1THEN565 560 IFYA=2THEN575 561 IFYA=3THEN596 562 IFYA=4THEN604 563 IFYA=5THEN612 564 IFYA=6THEN620 565 P=1:YB(1)=(HS+SS+GS+(2*KS)+(ZV*11111))/50:GOSUB570:GOSUB573:IFAS>22.5THENYB(1)=YB(1)-500 566 IFAS>29.25THENYB(1)=YB(1)-500 567 IFAS<15.75THENYB(1)=YB(1)+500 568 IFAS<9THENYB(1)=YB(1)+500 569 B=BS:GOSUB583:GOSUB574:LT=LU:GOSUB628:GOTO559 570 IFHN=1THENYB(1)=YB(1)-1234 571 IFAM=1THENYB(1)=YB(1)+987 572 RETURN 573 YB(P)=YB(P)-(INT(200*RND(1))+1):RETURN 574 YB(P)=INT(YB(P)+.5):RETURN 575 P=2:YB(2)=(HT+SR+GT+(2*KT)+(ZV*11111))/50:GOSUB580:GOSUB573:IFAT>22.5THENYB(2)=YB(2)-500 576 IFAT>29.25THENYB(2)=YB(2)-500 577 IFAT<15.75THENYB(2)=YB(2)+500 578 IFAT<9THENYB(2)=YB(2)+500 579 B=BT:GOSUB583:GOSUB574:LT=LV:GOSUB628:GOTO559 580 IFHO=1THENYB(2)=YB(2)-1234 581 IFAN=1THENYB(2)=YB(2)+987 582 RETURN 583 IFB=10THENYB(P)=YB(P)+100 584 IFB=5THENYB(P)=YB(P)+80 585 IFB=6THENYB(P)=YB(P)+60 586 IFB=1THENYB(P)=YB(P)+40 587 IFB=7THENYB(P)=YB(P)+20 588 IFB=8THENYB(P)=YB(P)+0 589 IFB=9THENYB(P)=YB(P)-20 590 IFB=2THENYB(P)=YB(P)-40 591 IFB=11THENYB(P)=YB(P)-60 592 IFB=4THENYB(P)=YB(P)-80 593 IFB=3THENYB(P)=YB(P)-90 594 IFB=12THENYB(P)=YB(P)-100 595 RETURN 596 P=3:YB(3)=(HU+SU+GU+(2*KU)+(ZV*11111))/50:GOSUB601:GOSUB573:IFAU>22.5THENYB(3)=YB(3)-500 597 IFAU>29.25THENYB(3)=YB(3)-500 598 IFAU<15.75THENYB(3)=YB(3)+500 599 IFAU<9THENYB(3)=YB(3)+500 600 B=BU:GOSUB583:GOSUB574:LT=LW:GOSUB628:GOTO559 601 IFHP=1THENYB(3)=YB(3)-1234 602 IFAO=1THENYB(3)=YB(3)+987 603 RETURN 604 P=4:YB(4)=(HV+SV+GV+(2*KV)+(ZW*11111))/50:GOSUB609:GOSUB573:IFAV>22.5THENYB(4)=YB(4)-500 605 IFAV>29.25THENYB(4)=YB(4)-500 606 IFAV<15.75THENYB(4)=YB(4)+500 607 IFAV<9THENYB(4)=YB(4)+500 608 B=BV:GOSUB583:GOSUB574:LT=LX:GOSUB628:GOTO559 609 IFHQ=1THENYB(4)=YB(4)-1234 610 IFAP=1THENYB(4)=YB(4)+987 611 RETURN 612 P=5:YB(5)=(HW+SW+GW+(2*KW)+(ZW*11111))/50:GOSUB617:GOSUB573:IFAW>22.5THENYB(5)=YB(5)-500 613 IFAW>29.25THENYB(5)=YB(5)-500 614 IFAW<15.75THENYB(5)=YB(5)+500 615 IFAW<9THENYB(5)=YB(5)+500 616 B=BW:GOSUB583:GOSUB574:LT=LY:GOSUB628:GOTO559 617 IFHR=1THENYB(5)=YB(5)-1234 618 IFAQ=1THENYB(5)=YB(5)+987 619 RETURN 620 P=6:YB(6)=(HX+SX+GX+(2*KX)+(ZW*11111))/50:GOSUB625:GOSUB573:IFAX>22.5THENYB(6)=YB(6)-500 621 IFAX>29.25THENYB(6)=YB(6)-500 622 IFAX<15.75THENYB(6)=YB(6)+500 623 IFAX<9THENYB(6)=YB(6)+500 624 B=BX:GOSUB583:GOSUB574:LT=LZ:GOSUB628:GOTO638 625 IFHY=1THENYB(6)=YB(6)-1234 626 IFAR=1THENYB(6)=YB(6)+987 627 RETURN 628 IFLT=2THENYB(P)=YB(P)-1555 629 IFLT=3THENYB(P)=YB(P)-3111 630 IFLT=4THENYB(P)=YB(P)-7777 631 IFLT=5THENYB(P)=YB(P)-9888 632 IFLT=6THENYB(P)=YB(P)-11999 633 IFLT=7THENYB(P)=YB(P)-14000 634 IFLT=8THENYB(P)=YB(P)-16111 635 IFLT=9THENYB(P)=YB(P)-19222 636 IFLT>9THENYB(P)=0 637 RETURN 638 GOSUB639:GOSUB641:GOTO660 639 FORP=1TO6:IFYB(P)<0THENYB(P)=0 640 NEXTP:RETURN 641 IFGM=0ANDHS>0ANDPS=0THEN644 642 IFGM>0ANDHS>0ANDLU>0THEN644 643 YB(1)=0 644 IFGN=0ANDHT>0ANDPS=0THEN647 645 IFGN>0ANDHT>0ANDLV>0THEN647 646 YB(2)=0 647 IFG=0ANDHU>0ANDPS=0THEN650 648 IFG>0ANDHU>0ANDLW>0THEN650 649 YB(3)=0 650 IFGP=0ANDHV>0ANDPT=0THEN653 651 IFGP>0ANDHV>0ANDLX>0THEN653 652 YB(4)=0 653 IFGQ=0ANDHW>0ANDPT=0THEN656 654 IFGQ>0ANDHW>0ANDLY>0THEN656 655 YB(5)=0 656 IFGR=0ANDHX>0ANDPT=0THENRETURN 657 IFGR>0ANDHX>0ANDLZ>0THENRETURN 658 YB(6)=0:RETURN 659 NA$=PA$:NB$=PB$:NC$=PC$:ND$=PD$:NE$=PE$:NF$=PF$:NG$=PG$:NH$=PH$:NI$=PI$:NJ$=PJ$:NK$=PK$:NL$=PL$:NM$=PM$:NN$=PN$:NO$=PO$:FORP=1TO9:NA(P)=PA(P):NEXTP:FORP=1TO6:NB(P)=PB(P):NEXTP:RETURN 660 GM=GM+(YB(1)*AS):GN=GN+(YB(2)*AT):G=G+(YB(3)*AU):GP=GP+(YB(4)*AV):GQ=GQ+(YB(5)*AW):GR=GR+(YB(6)*AX):FORP=1TO6:IFYB(P)=>NA(1)THEN676 661 IFYB(P)=>NA(2)ANDYB(P)NA(3)ANDYB(P)NA(4)ANDYB(P)NA(5)ANDYB(P)NA(6)ANDYB(P)NA(7)ANDYB(P)NA(8)ANDYB(P)NA(9)ANDYB(P)NB(1)ANDYB(P)NB(2)ANDYB(P)NB(3)ANDYB(P)NB(4)ANDYB(P)NB(5)ANDYB(P)NB(6)ANDYB(P)375000ANDLT<13ANDP>0THENPOKE646,MX:PRINT" "MX$:GOTO743 747 RETURN 748 PRINT"[155] DAS WAREN SIE ! 749 [139][194](56320)[178]111[167]753 750 [137]749 751 [151]53280,.:[151]53281,.:[153]"LOADSYS DAS SPIEL IST ZUENDE.  LOADING...":[159]1,8,15,"S:GAME-MANAGER/004":[159]2,8,2,"GAME-MANAGER/004,S,W":[152]2,ZV:[152]2,ZW:[152]2,KA:[152]2,KB:[152]2,ZB:[152]2,ZC:[152]2,ZJ:[152]2,ZM:[152]2,FA$:[152]2,FB$:[160]1:[160]2:[151]828,.:[153]" 752 PRINT"[144]LOAD"CHR$(34)"GAME-MANAGER/007"CHR$(34)",8,1 RUN":POKE631,13:POKE632,13:POKE198,2:PRINT"";:END:END 753 POKE53280,4:POKE53281,4:GOSUB5:PRINT"[145][159] GESAMT@BERSICHT [145][150] NACH DER"DA"[157].RUNDE [155]======================================== [144][145][145][145][145][145][145][145][145][145][145][145][145][145]":ZD=ZC*14/100:KB=KB-ZD:ZD=ZB*14/100:KA=KA-ZD:P=ZI:GOTO831 754 IFP<0THENP=0 755 PRINTFA$:PRINT"[158]GEWINN IM LETZTEN MONAT"IX:PRINT"[158]KAPITAL"KA:PRINT"[145][158]BELIEBTHEIT"ZV:PRINT"[158]KREDIT"ZB:PRINT"[145][158]ZINSEN"ZD:PRINT"[158]KREDIT BEIM MITSPIELER"ZJ:PRINT"[158]ABZAHLUNGSTERMIN IN"P"[158]MONATEN":IFSY=2THEN757 756 GOTO760 757 P=ZL:IFP<0THENP=0 758 PRINT"[144]"FB$:PRINT"[158]GEWINN IM LETZTEN MONAT"IY:PRINT"[158]KAPITAL"KB:PRINT"[145][158]BELIEBTHEIT"ZW:PRINT"[158]KREDIT"ZC:ZD=ZC*14/100:GOTO832 759 PRINT"[145][158]ZINSEN"ZD:PRINT"[158]KREDIT BEIM MITSPIELER"ZM:PRINT"[158]ABZAHLUNGSTERMIN IN"P"[158]MONATEN 760 [139][194](56320)[178]111[167]762 761 [137]760 762 [139]DA[178]200[167]751 763 DA[178]DA[170]1:D[178]1:ZI[178]ZI[171]1:ZL[178]ZL[171]1:LT[178]LU:[141]764:LU[178]LT:LT[178]LV:[141]764:LV[178]LT:LT[178]LW:[141]764:LW[178]LT:LT[178]LX:[141]764:LX[178]LT:LT[178]LY:[141]764:LY[178]LT:LT[178]LZ:[141]764:LZ[178]LT:ZV[178]ZV[170]0.01:ZW[178]ZW[170]0.01:[137]766 764 [139]LT[178]0[167][142] 765 LT[178]LT[170]1:[142]:LT[178]LT[170]1:[142] 766 [140]:[137]15 767 [141]16:[141]17:[153]"PRINT WIE WOLLEN SIE WERBUNG MACHEN? SYS "WA$:[153]"ON"WA:[153]" "WB$:[153]"ON"WB:[153]" "WC$:[153]"ON"WC:[153]" KEINE WERBUNG 768 PRINT"":GOSUB37:ZE=1 769 IFPEEK(56320)=125THENGOSUB38:PRINT"[145]":GOSUB37:ZE=ZE+1 770 IFPEEK(56320)=126THENGOSUB38:PRINT"[145][145][145]":GOSUB37:ZE=ZE-1 771 IFZE=5THENGOSUB38:GOTO768 772 IFZE=0THENGOSUB38:PRINT"":GOSUB37:ZE=4 773 IFPEEK(56320)=111THEN775 774 GOTO769 775 IFZE=1THENP=WA:GOTO779 776 IFZE=2THENP=WB:GOTO779 777 IFZE=3THENP=WC:GOTO779 778 IFZE=4THEN15 779 IFD=2THEN784 780 KA=KA-P:IFP=WATHENZV=ZV+0.03 781 IFP=WBTHENZV=ZV+0.02 782 IFP=WCTHENZV=ZV+0.01 783 RESTORE:GOTO15 784 KB=KB-P:IFP=WATHENZW=ZW+0.03 785 IFP=WBTHENZW=ZW+0.02 786 IFP=WCTHENZW=ZW+0.01 787 RESTORE:GOTO15 788 GOSUB16:GOSUB17:PRINT"[153] WELCHE SPIELSTANDNUMMER ? [158] SPIELSTAND 1 SPIELSTAND 2 SPIELSTAND 3 SPIELSTAND 4 SPIELSTAND 5 HAUPTMEN@ 789 [153]"":[141]37:ZE[178]1 790 [139][194](56320)[178]125[167][141]38:[153]"ON":[141]37:ZE[178]ZE[170]1 791 [139][194](56320)[178]126[167][141]38:[153]"ONONON":[141]37:ZE[178]ZE[171]1 792 [139]ZE[178]7[167][141]38:[137]789 793 [139]ZE[178]0[167][141]38:[153]"":[141]37:ZE[178]6 794 [139][194](56320)[178]111[167]796 795 [137]790 796 [139]ZE[178]1[167]G$[178]"GAME-MANAGER/SP1":[137]802 797 [139]ZE[178]2[167]G$[178]"GAME-MANAGER/SP2":[137]802 798 [139]ZE[178]3[167]G$[178]"GAME-MANAGER/SP3":[137]802 799 [139]ZE[178]4[167]G$[178]"GAME-MANAGER/SP4":[137]802 800 [139]ZE[178]5[167]G$[178]"GAME-MANAGER/SP5":[137]802 801 [139]ZE[178]6[167][140]:[137]15 802 [139]P[178]2[167]804 803 [137]807 804 [159]1,8,15,"S:"[170]G$:[159]2,8,2,G$[170]",S,W":[132]1,P,A$,ZX,ZS:[139]P[177]0[167][160]1:[160]2:[137]15 805 [139]FB$[178]""[167]FB$[178]"- 806 PRINT#2,AM:PRINT#2,AN:PRINT#2,AO:PRINT#2,AP:PRINT#2,AQ:PRINT#2,AR:PRINT#2,AS:PRINT#2,AT:PRINT#2,AU:PRINT#2,AV:PRINT#2,AW:PRINT#2,AX:PRINT#2,BS:PRINT#2,BT:PRINT#2,BU:PRINT#2,BV:PRINT#2,BW:PRINT#2,BX:PRINT#2,D:GOTO811 807 OPEN1,8,15:OPEN2,8,2,G$+",S,R":INPUT#1,P,A$,ZX,ZS:IFP<>0THENCLOSE1:CLOSE2:GOTO15 808 INPUT#2,AM,AN,AO,AP,AQ,AR,AS,AT,AU,AV,AW,AX,BS,BT,BU,BV,BW,BX,D,DA,FA$,FB$:INPUT#2,G,GM,GN,GP,GQ,GR,GS,GT,GU,GV,GW,GX,HN,HO,HP,HQ,HR,HS,HT,HU,HV,HW,HX:INPUT#2,HY,IX,IY,K,KA,KB,KH,KI,KJ,KL,KM,KN,KP,KQ,KR,KS$,KT$,KU$,KV$,KW$ 809 INPUT#2,KX$,KS,KT,KU,KV,KW,KX,KZ,LU,LV,LW,LX,LY,LZ,M,NA$,NB$,NC$,ND$,NE$:INPUT#2,NF$,NG$,NH$,NI$,NJ$,NK$,NL$,NM$,NN$,NO$:FORP=1TO9:INPUT#2,NA(P):NEXTP:FORP=1TO6:INPUT#2,NB(P):NEXTP:INPUT#2,PS,PT,SS,SR,SU,SV,SW,SX,SY,WS,WT,WU,WV,WW,WX,YA,YB,ZA,ZB,ZC,ZD,ZF 810 INPUT#2,ZG,ZH,ZI,ZJ,ZK,ZL,ZM,ZN,ZO,ZP,ZQ,ZR,ZT,ZU,ZV,ZW,ZZ:CLOSE1:CLOSE2:GOTO15 811 PRINT#2,DA:PRINT#2,FA$:PRINT#2,FB$:PRINT#2,G:PRINT#2,GM:PRINT#2,GN:PRINT#2,GP:PRINT#2,GQ:PRINT#2,GR:PRINT#2,GS:PRINT#2,GT:PRINT#2,GU:PRINT#2,GV:PRINT#2,GW:PRINT#2,GX:PRINT#2,HN:PRINT#2,HO:PRINT#2,HP:PRINT#2,HQ:PRINT#2,HR:PRINT#2,HS:PRINT#2,HT:PRINT#2,HU:PRINT#2,HV:PRINT#2,HW:PRINT#2,HX:PRINT#2,HY:PRINT#2,IX:PRINT#2,IY:PRINT#2,K:PRINT#2,KA:PRINT#2,KB:PRINT#2,KH:PRINT#2,KI:PRINT#2,KJ:PRINT#2,KL:PRINT#2,KM:PRINT#2,KN:PRINT#2,KP:PRINT#2,KQ 812 PRINT#2,KR:PRINT#2,KS$:PRINT#2,KT$:PRINT#2,KU$:PRINT#2,KV$:PRINT#2,KW$:PRINT#2,KX$:PRINT#2,KS:PRINT#2,KT:PRINT#2,KU:PRINT#2,KV:PRINT#2,KW:PRINT#2,KX:PRINT#2,KZ:PRINT#2,LU:PRINT#2,LV:PRINT#2,LW:PRINT#2,LX:PRINT#2,LY:PRINT#2,LZ:PRINT#2,M:PRINT#2,NA$:PRINT#2,NB$:PRINT#2,NC$:PRINT#2,ND$:PRINT#2,NE$:PRINT#2,NF$:PRINT#2,NG$:PRINT#2,NH$:PRINT#2,NI$:PRINT#2,NJ$:PRINT#2,NK$:PRINT#2,NL$:PRINT#2,NM$:PRINT#2,NN$:PRINT#2,NO$ 813 FORP=1TO9:PRINT#2,NA(P):NEXTP:FORP=1TO6:PRINT#2,NB(P):NEXTP:PRINT#2,PS:PRINT#2,PT:PRINT#2,SS:PRINT#2,SR:PRINT#2,SU:PRINT#2,SV:PRINT#2,SW:PRINT#2,SX:PRINT#2,SY:PRINT#2,WS:PRINT#2,WT:PRINT#2,WU:PRINT#2,WV:PRINT#2,WW:PRINT#2,WX:PRINT#2,YA:PRINT#2,YB:PRINT#2,ZA:PRINT#2,ZB:PRINT#2,ZC:PRINT#2,ZD:PRINT#2,ZF:PRINT#2,ZG:PRINT#2,ZH:PRINT#2,ZI:PRINT#2,ZJ:PRINT#2,ZK:PRINT#2,ZL:PRINT#2,ZM:PRINT#2,ZN:PRINT#2,ZO:PRINT#2,ZP:PRINT#2,ZQ 814 PRINT#2,ZR:PRINT#2,ZT:PRINT#2,ZU:PRINT#2,ZV:PRINT#2,ZW:PRINT#2,ZZ:CLOSE1:CLOSE2:GOTO15 815 PRINT" VERLIEREN SIE 100DM !":ZR=100:GOSUB465:GOTO427 816 ZR=333:GOSUB465:GOTO428 817 PRINT" PFERDERENNEN!":ZR=500:GOSUB467:GOTO435 818 PRINT" 10.000DM !":ZR=10000:GOSUB467:GOTO436 819 PRINT"=1507DM !":ZR=1507:GOSUB467:GOTO437 820 IFZY=1THEN823 821 IFGP>0ORGQ>0ORGR>0THEN825 822 GOTO441 823 IFGM>0ORGN>0ORG>0THEN825 824 GOTO441 825 PRINT"[153]DIE POLIZEI NIMMT EINEN CRACKER FEST,":GOTO439 826 IFZY=1ANDZT=1THEN829 827 IFZY=2ANDZU=1THEN829 828 GOTO474 829 PRINT"[145][153]SIE LASSEN SICH SCHEIDEN UND M@SSEN NUN 10.000DM AN IHRE FRAU ZAHLEN !":ZR=10000:GOSUB465:IFZY=1THENZT=0:GOTO443 830 ZU=0:GOTO443 831 IX=INT(IX*10^2+.5)/10^2:KA=INT(KA*10^2+.5)/10^2:ZV=INT(ZV*10^2+.5)/10^2:ZD=INT(ZD*10^2+.5)/10^2:IY=INT(IY*10^2+.5)/10^2:KB=INT(KB*10^2+.5)/10^2:ZW=INT(ZW*10^2+.5)/10^2:ZC=INT(ZC*10^2+.5)/10^2:GOTO754 832 ZD=INT(ZD*10^2+.5)/10^2:GOTO759 833 I$="":POKE214,Y:POKE211,X-LEN(TE$)-1:SYS58732:PRINTTE$" ";:P=. 834 POKE204,.:POKE198,.:WAIT198,1:GETX$:POKE207,.:POKE204,1:PRINT" [157]";:IFP>0ANDASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO834 835 IFASC(X$)=13THEN840 836 IFP=LETHEN834 837 IFBY=.AND(X$<"0"ORX$>"9")THEN834 838 IFBY=1AND(X$<" "OR(X$>""ANDX$<"[160]"))THEN834 839 PRINTX$;:I$=I$+X$:P=P+1:GOTO834 840 RETURN