17 UND 4 ==========C16== (P) 7/87 COMMODORE WELT[ =======================m( (C) 1987 BY2 WOLFGANG BREIDERHOFF<F BASIC V3.5P C16/116/PLUS4Z =======================d 2340n 8:0,11,6:4,11,4x W(32),A$(32),KA$(32),X(32),WE(32);C$"":I139:C$C$" ":F 2210L[ 1760:X6k1,X,19,"" FR$:1,596,5:2,685,51,X,19," " FR$C3$ XX6 FR$C1$ XX6 X6 X6: X30 X30 X30 X30ANX6:1,AN1,5/ FR$(13) 1,596,30:2,453,30:2709 170H I1 ANz1,0,23,"NAME DES "(I)".SPIELERS:":NA$(I)" 1,0,23,C$,1,810,10:1,854,10:1,881,10:1,917,306KA(I)20@ IJ 1,7,5:T"DER C 16 HAELT DAS BUCH !!":"^"SETZEN SIE MIT > + < ODER MIT"Th:"...............> P < AUF DEN GANZEN POTT"r:"DIE 21, 2 ASSE SOWIE 5 BILDER GEWINNEN"|:"SOFORT !"::"............VIEL VERGNUEGEN !!!" FR$ 450 8:0,11,6:4,11,4 660,10,24,RN$"ICH MISCHE !!!". I1 32F 3,700,2: 1,500,2YX((1)32)1i J1 I1| W(J)X 480 JW(I)XI:PP$BK$""BK$""RE$""RE$"" J0 3: 650:B$(PP$,J21,2)& I1 80 A$,X:U8JI:A$(U)B$A$:X(U)X-: 3,700,2: 1,500,28D I:JGN I1 32_X 3,700,2: 1,500,2bKA$(W(I))A$(I):WE(W(I))X(I)l Iv 1,1C2$RF$ :,0,24,C$:A,11,K,4,D,3,B,2,Z,10,9,9,8,8,7,7Z1:P10:S1 HE$HE$CL$:WS0:WC0:SP0:ZE4:ZZ1/,0,0,NA$(S):,"KAPITAL:"KA(S)X,25,4,RN$"POTT:"RF$(P):,0,1,""m KR(S)0 740 KA(S)KR(S),0,4,FL$"KREDITRUECKZAHLUNG:"FO$(KR(S)) KA(S)KR(S) WA12000:WA:KA(S)KA(S)KR(S):KR(S)0:670 KR(S)0 ,0,1,"KREDIT:"(KR(S)). KA(S)0 1690j:"":(27)"T"p: Z32 1250  1590: 2100WSWSWE(Z):ZZ1:SPSP4:E0 ,25,5,FL$RN$"EINSATZ"RF$FO$(E)* FR$:1,596,5:2,704,54 FR$"+"EP EE1/> FR$(13) 990IH FR$"P" EP: 990YR EP 870c\ 800sf E0 800p,25,5,RN$"EINSATZ"RF$(E)z 1210 WS21 1490 WS21 1400,0,17,RN$FL$"KARTE (J/N) ?"RF$FO$ FR$ FR$"N" 1050$ FR$"+" 800> FR$"P" EP: 990R FR$"J" 990\ 930p Z32 1250,25,5,RN$"EINSATZ"RF$(E) 1590: 2100WSWSWE(Z):ZZ1:SPSP4 890: *** COMPUTER ZIEHT **$,0,17,C$. Z32 135098,0,22,"JETZT KOMMEN MEINE KARTEN!!!"MBSP0:ZE11:ZZ1^LZ32 1350V 1590:1,810,5:1,596,10:2,739,10`WCWCWE(Z):SPSP4:ZZ1j WA1 1000: WAt 1210~ WC21 1400 WC21 1490 WCWS WC17 11008 WCWS ,0,23,"":WC1" ZIEHT !": 1400a WC18 WCWS1400:ՋWCWS 1490g:wW(ZZ)WE(Z) ZZ2 W(1)11W(2)11 WS21:1490FF1:I15:FFFFW(I)5::FFZZ5WS21:1490ZZZZ1: ****** BUCH ENDE ****-,0,23,RN$"DAS BUCH IST ZU ENDE !"RF$^,0,24,RN$FL$"NEUE KARTEN (J/N) ?"RF$FO$i FR$  FR$"N" Z1:1330 FR$"J" WS0:SP0:Z1:1320 1280( CL415:,0,CL,(C$,24):CL2,0,23,C$<,0,24,C$:450:#F,0,23,RN$"DAS BUCH IST ZU ENDE !"RF$2P 450:WC0CZ CL11 24Vd,0,CL,C$: CLjnZZ1:SP0:Z1:x ** SPIELER VERLIERT * SO2301201,750SO,5 SO,0,24,RN$"ZAHLEN UND FROEHLICH SEIN !!!"RF$KA(S)KA(S)E:PPESS1: SAN S1+ WA1 2000: WA5 670Q ** SPIELER GEWINNT **` SO1 31,596,10:1,704,30:2,770,30SO,0,24,RN$"SIE HABEN GEWONNEN !"RF$KA(S)KA(S)E:PPE P0 P10SS1: SAN S1 " WA1 2000: WA,670661,SP,ZE,RN$WH$""b@I19:1,SP,ZEI,RN$WH$".......":J1,SP,ZE10,RN$WH$""TRF$^1,SP1,ZE1,KA$(Z)h1,SP1,ZE9 ,KA$(Z)r1,SP6,ZE9 ,KA$(Z)|1,SP3,ZE5 ,KA$(Z) 1,SP6,ZE1,KA$(Z) 1,1:D :"ICH BEFUERCHTE, SIE BRAUCHEN KREDIT !"d :"WIEVIEL MOECHTEN SIE ?"q :: KR KR(S)KR(S)KR:KA(S)KA(S)KR :"GUT ! SIE SCHULDEN MIR JETZT "KR(S)" $ !"  WA1 2000: WA  670'!0,1:4,1:1,6,6:"....***..******.....**......**.........."W!"...****..**..**.....**......**.........."!"..**.**......**.....**......**.........."!".**..**......**...******....**.**......."!".....**.....**....******....*******.....""".....**....**.......**......*******....."G"".....**...**........**.........**......."w"&".....**..**.........**.........**.......""0 1,7,2":"";"D"...WRITTEN BY W. MANZIUS-BREIDERHOFF...."#N""'#X 1,3,4: 1990W#b"..............."#l"......................"#v"......................"#".."FL$"P"FO$".."FL$"L"FO$;)$".."FL$"A"FO$".."FL$"Y"FO$"."FL$"E"FO$"..."FL$"R"FO$".....Y$"......................."$"....................."$"..............."$1,2$$ 2050$ A,B$ A1 4,1:$ 1,A,B3 % 2000%:/% 345,5,453,5,488,4,516,10T%  571,5,596,10,516,5,571,5,596,5% 704,5,685,5,516,10,571,5,685,5,655,5%  655,15,643,6,596,5,0,1.5,516,5,0,2.5,516,4,0,3,516,6%*-1,0%48%>3,0,3%H X8 1 1%RX%\ SO3 5&fDSO9100&p 1,D,3(&z 2,D1,33& SO,XH&0: I1 50:IQ&8:~&,0,24,RN$"WIRKLICH BEENDEN (J/N)?"RF$& FR$& FR$"J" ,0,24,C$: &:0,1:4,1&RN$BL$".....>>>..E N D R E S U L T A T...<<<..."RF$#':"")':8' I1 ANQ'KA(I)KA(I)KR(I)20e'NA$(I),KA(I):o' I:' NACHSPANN===========' FARBCODES/STEUERCODES'$ WH$(005):RN$(018)'. HE$(019):RE$(028)'8 C3$(029):BL$(031)(B FL$(130):FO$(132)((L BK$(144):C2$(145)B(V RF$(146):CL$(147)Q(` C1$(157)W(j s(t =====================(~ 12277 BYTES MEMORY( 06454 BYTES PROGRAM( 00252 BYTES VARIABLES( 00892 BYTES ARRAYS( 00750 BYTES STRINGS) 03929 BYTES FRE(0)*) =====================C) BITTE BLANKS STATT]) PUNKTE IN FOLGENDENr) ZEILEN SETZEN:) 360,400,1600) 1760-1960,2250) =====================