100 REM ANTIMONOPOLY BY KNIGHT - SOFT 110 PRINT"[147]":POKE53280,0:POKE53281,0:POKE832,0:CLR:GOSUB1670 120 PG$=" SCHWARZ, HL. BLAU, LILA, ORANGE, ROT, WEISS, GRUEN, DK. BLAU" 130 DIMPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42) 140 DIM P$(2),PL(2),O(2),JT(2),M(2),CJ(2):GOSUB300:Q$="N" 150 GOTO160 160 INPUT"WILLST DU JACKPOT AUF'FREI PARKEN'";Q$:IFLEFT$(Q$,1)="Y"THENPF=1:FP=500 170 M(1)=30000:M(2)=30000:PL(1)=1:PL(2)=1:DV=2 180 CD$="":CR$="" 190 ZQ=RND(-TI):X1=8:Y1=10:X2=23:Y2=10:RX=6:RY=18:TN=832:TT=886 200 E$=" [146]":RM$="DRUECKE 'R'ODER'T'[146]" 210 PRINT"[147][159]BITTE GEDULD (C)KNIGHT - SOFT " 220 FORI=1TO4:P(6+((I-1)*10),8)=100:NEXT:P(13,8)=75:P(29,8)=75 230 CH=INT(RND(1)*16)+1:CC=INT(RND(1)*16)+1 240 FORI=1TO41:FORJ=0TO1:READD(I,J):NEXT:NEXT 250 P$(1)=" SPIELER 1[146]":P$(2)=" SPIELER 2[146]" 260 FORI=1TO41:GOSUB7000:NEXT:FORI=1TO41:READPT$(I):IFPT$(I)<>"P"THEN280 270 READC$(I):FORJ=1TO9:READP(I,J):NEXTJ 280 NEXTI 290 FORI=1TO16:READCH$(I):NEXT:FORI=1TO16:READCC$(I):NEXT:GOTO370 300 PRINT" KNIGHT - SOFT COMPUTERCLUB " 310 PRINT" PRESENS ANTIMONOPOLY " 320 PRINT" WRITTEN BY ERWIN DISSER " 330 PRINT" (C) COPYRIGHT ONLY BY KNIGHT - SOFT AND SOMME FRANDS" 340 PRINT"DRUECKE 'R' ZUM WUERFELN UND 'T' ZUM ABFRAGEN DER GESCHAEFTE" 350 PRINT"MIT '0' KOMMST DU ZUM UNTERPROGRAMM ZURUECK" 360 PRINT:PRINT"VERSUCHE DEIN EIGENTUM ZU VERSCHLEUDERN":PRINT:RETURN 370 POKE54277,79:POKE54284,79:POKE54291,79 380 POKE54278,248:POKE54286,248:POKE54292,248 390 POKE54276,33:POKE54288,33:POKE54290,33 400 G(1)=54272:G(2)=54273:G(3)=54279:G(4)=54280:G(5)=54286:G(6)=54287 410 FORI=1TO6:POKEG(I),0:NEXT 420 POKE54296,15:IFPEEK(832)<>160THENGOSUB6560 430 GOSUB1400:FORPK=1TO2:POKED(1,PK-1),48+PK:O(PK)=D(1,PK-1):PT=PK:NEXT:GOSUB6650 440 GOSUB1700:IFR1=R2THEN440 450 PT=(R1>R2)+2 460 POKED(PL(1),0),49:POKED(PL(2),1),50 470 PT$=STR$(PT) 480 MS$="SPIELER"+PT$+" START [146]" 490 X=RX:Y=RY:Z$=MS$:GOSUB1650:FORDE=1TO1500:NEXT:Z$=E$:GOSUB1650:GOTO700 500 DV=2:MF=0:JB=0 510 IFPL(PT)=41THEN610 520 JT(PT)=0 530 GOSUB1700:DF=1 540 IFDB=3THENSYSTN:GOSUB3300:SYSTT:GOSUB6650:GOTO640 550 FORM=1TODR:PL(PT)=PL(PT)+1 560 POKEO(PT),160:IFPL(PT)>40THENPL(PT)=PL(PT)-40:SYSTN:GOSUB1800:SYSTT 570 POKED(PL(PT),PT-1),48+PT 580 O(PT)=D(PL(PT),PT-1) 590 FORT=1TO50STEP6+PT:FORI=1TO6:POKEG(I),T:NEXT:NEXT:NEXT 600 FORI=1TO6:POKEG(I),0:NEXT 610 POKED(PL(PT),PT-1),48+PT:GOSUB6650 620 SYSTN:GOSUB1870:SYSTT:GOSUB6650:IFM(PT)<0THENGOSUB6390:SYSTT 630 IFPL(PT)=11THENPOKED(41,PT-1),160:POKED(11,PT-1),48+PT 640 IFJBTHENJB=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO550 650 IFMFTHENMF=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO610 660 IFJETHENJE=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO700 670 IFJFTHENJF=0:POKED(PL(PT),PT-1),48+PT:POKEO(PT),160:O(PT)=D(PL(PT),PT-1) 680 IFDBTHEN700 690 PT=3-PT 700 Z$=P$(PT):X=RX:Y=RY-1:GOSUB1650 710 Z$=RM$:X=RX:Y=RY:GOSUB1650 720 GETBC$:IFBC$<>""THEN720 730 GETA$:IFA$=""THEN730 740 IFA$="T"THENSYSTN:GOSUB4280:SYSTT:GOSUB6650:GOTO700 750 Z$=E$:X=RX:Y=RY:GOSUB1650 760 GOTO500 770 DATA1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921 780 DATA1959,1958,1956,1955,1953,1952,1950,1949,1944,1904 790 DATA1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425 800 DATA1346,1347,1264,1265,1184,1185,1104,1105 810 DATA1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045 820 DATA1047,1048,1130,1131,1053,1054,1096,1097 830 DATA1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618 840 DATA1697,1698,1777,1778,1857,1858,1906,1907 850 DATA"START[155]","[155]STEINHEIMER STR.[155]","[158]GEMEIDEPLATZ[155]","[155]ROSENGASSE[155]" 860 DATA"[154]AMTSGERICHT[155]" 870 DATA"[152]SUED-BAHNHOF [155]","[159]EINHARD-STR.[155]","[150]CHANCE[155]","[159]ELLENSEESTRASSE[155]" 880 DATA"[159]SCHULGASSE[155]" 890 DATA"[150]BADESTRASSE[155]","[156]SEE STRASSE[155]","[153]RWE[155]","[156]UFERSTRASSE[155]" 900 DATA"[156]NEW LINE STREET[155]","[152]WEST-BAHNHOF [155]","[129]COMPUTER STREET[155]" 910 DATA"[158]GEMEINDEPLATZ[155]" 920 DATA"[129]LINDENSTRASSE [155]","[129]FRANKENSTR.[155]","[149]THE CASINO [155]","FRESS - GASS[155]" 930 DATA"[150]CHANCE[155]","MUSEUMSTRASSE[155]","KINOPLATZ [155]","[152]NORD-BAHNHOF [155]" 940 DATA"[158]FRANKFURTERSTR.[155]" 950 DATA"[158]SCHILLERSTR.[155]","[153]WASSERTURM[155]","[158]VON STEIN STR.[155]","[150]GO[155] [154]TO[155] KNAST[155]" 960 DATA"RATHAUS STR.[155]" 970 DATA"HAUPTSTRASSE [155]","[158]GEMEINDEPLATZ[155]","BAHNHOFSTR.[155]" 980 DATA"[152]HAUPT-BAHNHOF[155]" 990 DATA"[150]CHANCE[155]","CITY STREET[155]","[154]LUXUSSTEUER[155]","QUALLENALLEE[155]","[150]GEFAENGNIS 1000 [131]GO,P,SCHWARZ,60,2,10,30,90,160,250,30,50,CC,P,SCHWARZ,60,4,20,60,180,320 1010 [131]450,30,50,IT,RR,P,HL. BLAU,100,6,30,90,270,400,550,50,50,CH,P,HL. BLAU 1020 [131] 100,6,30,90,270,400,550,50,50,P,HL. BLAU,120,8,40,100,300,450,600,60,5 1030 [131]JV,P,LILA,140,10,50,150,450,625,750,70,100,U,P,LILA,140,10,50,150,450 1040 [131]625,750,70,100,P,LILA,160,12,60,180,500,700,900,80,100,RR 1050 [131]P,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE 1060 [131] 180,14,70,200,550,750,950,90,100 1070 [131]P,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,ROT 1080 [131] 220,18,90,250,700,875 1090 [131]1050,110,150,CH,P,ROT,220,18,90,250,700,875,1050,110,150,P,ROT,240 1100 [131] 20,100,300 1110 [131]750,925,1100,120,150,RR,P,WEISS,260,22,110,330,800,975,1150,130,150 1120 [131] P,WEISS,260 1130 [131]22,110,330,800,975,1150,130,150,U,P,WEISS,280,24,120,360,850,1025,1200 1140 [131] 140 1150 [131]150,GTJ,P,GRUEN,300,26,130,390,900,1100,1275,150,200,P,GRUEN 1160 [131] 300,26,130,390,900 1170 [131]1100,1275,150,200,CC,P,GRUEN,320,28,150,450,1000,1200,1400 1180 [131] 160,200,RR,CH 1190 [131]P,DK. BLAU,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLAU 1200 [131] 400,50,200,600,1400 1210 [131]1700,2000,200,200,IJ 1220 [131] ZAHLE ARMENSTEUER $15,GEH IN'S GEFAENGNIS,RUECKE NACH GO(KASSIERE $200) 1230 [131] DU BEKOMMST ZINSEN KASSIERE $150 1240 [131] RUECKE VOR ZUM NAECHSTEN BAHNHOF ZAHLE 2 X MIETE 1250 [131]RUECKE ZUR FRRESSGASSE, BANK ZAHLT DIR EINE DIVIDENDE VON $50 1260 [131]GEH AUS DEM KNAST,ZAHLE JEDEM SPIELER $50,RUECKE VOR ZUR ???.STRASSE 1270 [131]RUECKE VOR BIS SUED-BAHNHOF,GEHE 3 FELDER ZURUECK,RUECKE ZUR QUALLENALL 1280 [131]DU RENOVIERST ZAHLE $25 FUER JEDES HAUS $100 FUER JEDES HOTEL 1290 [131] RUECKE ZUM NAECHSTEN BAHNHOF ZAHLE 2 X MIETE 1300 [131] RUECKE ZUM NAECHSTEN STADTWERK WUERFLE & ZAHLE 10 * WUERFELWERT 1310 [131] GEH AUS DEM KNAST,GEH IN DEN KNAST,RUECKE NACH GO UND KASSIERE $200 1320 [131] VOM VERKAUF ERHAELST DU $45,KASSIERE $50 VON JEDEM SPIELER 1330 [131] ERHALTE FUER LEISTUNG $25,ZAHLE SCHULSTEUER $150,STEUERRUECKZAHLUNG $20 1340 [131] PREIS FUER REPARATUR $40 PRO HAUS $115 PRO HOTEL 1350 [131] DU HAST IM PREISAUSSCHREIBEN GEWONNEN DU BEKOMMST $10 1360 [131] DU ERBST $100,DU BEKOMMST WEIHNACHTSGELD $100,ZAHLE AN'S HOSPITAL $100 1370 [131] BANKFEHLER ZU DEINEM GUNSTEN DU BEKOMMST $200,HONORAR FUER DOKTOR $50 1380 [131] LEBENSVERSICHERUNG FAELLIG ZAHLE $100 1390 [137]6550 1400 [153]"LOADVERIFY CLOSELISTFNCLOSECLOSEFNCLOSECLOSEFNCLOSECLOSEFNCLOSE+PRINT#SINSINSINLISTFNCLOSECLOSEFN FNPRINTWTLISTFNCLOSECLOSEDEFFNK. WAIT" 1410 [153]"VERIFYCLOSEC.CLOSELISTFNCLOSECLOSEFNDEF?LISTCLOSEFNCLOSECLOSEFNCLOSE+PRINT# CLOSECLOSELISTFNCLOSECLOSEFNCLOSE FNPRINTOR>LISTSGNCLOSECLOSECONTFN WAIT" 1420 [153]"VERIFY CLOSESGN LISTFNCLOSECLOSE CLOSECLOSEFN +PRINT#NBHSYSFN FNCLOSECLOSELISTFNCLOSECLOSESYSSGNCLOSECLOSEFNVAL(null) LISTWAIT" 1430 [153]"USRUSRUSRFORUSRLIST(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)USRLISTUSRUSRUSRWAIT" 1440 [153]" FOR LISTFN (null)(null) + LISTCLOSE WAIT" 1450 [153]"TAB(TAB(TAB(FORTAB(LISTFN SYS LIST(null) 1- +TAB(LISTTAB(TAB(TAB(WAIT" 1460 [153]" FOR LISTFN(null)SYSGP LIST(null) +TOLISTTOTOTOWAIT" 1470 [153]"TAB(TAB(TAB(TAB(FN(null)SYS LIST 2- + WAIT" 1480 [153]"SYSGPLIST FN (null)(null) +SYSGPLIST WAIT" 1490 [153]"TAB(TAB(TAB(FORTAB(LISTFN TOTOTO TOTOTO THENTAB(LISTTAB(TAB(TAB(WAIT" 1500 [153]"TOTOTOFORTOLISTFN THEN LISTFN THEN LISTFN +TOLISTTOTOTOWAIT" 1510 [153]"PRINT#SINWBHLISTFN THEN LISTFN  KNIGHT LIST THEN LISTFN THENPRINT#SINHBHWAIT" 1520 [153]"SIN SINLISTFN THEN LISTFN  SOFT LIST THEN LISTFN THENPRINT#SIN SINLISTWAIT" 1530 [153]"TAB(TAB(TAB(CLRTAB(LISTFN TAB(TAB(TAB( TAB(TAB(TAB( +TAB(TAB(TAB(TAB(WAIT" 1540 [153]" CLR LISTFN + DEF?LIST WAIT" 1550 [153]"TAB(TAB(TAB(CLRTAB(LISTFN (null)(null) +TAB(LISTTAB(TAB(TAB(WAIT" 1560 [153]"TOTOTOCLRTOLISTFN DEF LIST(null)+TOLISTTOTOTOWAIT" 1570 [153]" PRINTRWELISTFN (null)DEF???LIST(null)+CONTAG.LIST WAIT" 1580 [153]" FN (null)DEF LIST + WAIT" 1590 [153]"TAB(TAB(TAB(CLRTAB(LISTFN (null)(null) +TAB(LISTTAB(TAB(TAB(WAIT" 1600 [153]"ANDANDANDCLRANDLIST(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRANDLISTANDANDANDWAIT" 1610 [153]"DEF LISTSGN OPENSGN FN LISTSGN OPENSGN PRINT#SBHLISTSGN WAIT SGN WAIT SGN WAIT" 1620 [153]"DEF LISTFN FN FN FNDEF?LISTCLOSEFNCLOSECLOSEPRINT#FNCLOSECLOSELISTFNCLOSECLOSEFNCLOSECLOSEFN FN GO WAIT" 1630 [153]"DEF TAB(TAB(TAB(LISTFN FN FN FN PRINT#SINSINSINCONTAG.LISTFN FNSYSGPLISTFN FN_TAN WAIT" 1640 [142] 1650 [153]"LIST";[200](CR$,X);[200](CD$,Y);Z$;"" 1660 [142] 1670 DC$(1)[178]" CMDCMDCMD (null) CMDCMDCMD WAIT":DC$(2)[178]" (null)CMDCMDCMD CMDCMDCMD(null) WAIT" 1680 DC$(3)[178]"(null) CMDCMDCMD (null) CMDCMDCMD (null)WAIT":DC$(4)[178]"(null) (null)CMDCMDCMD CMDCMDCMD(null) (null)WAIT" 1690 DC$(5)[178]"(null) (null)CMDCMDCMD (null) CMDCMDCMD(null) (null)WAIT":DC$(6)[178]"(null) (null)CMDCMDCMD(null) (null)CMDCMDCMD(null) (null)WAIT":[142] 1700 CT[178]0 1710 R1[178][181]([187](1)[172]6)[170]1:R2[178][181]([187](1)[172]6)[170]1:DR[178]R1[170]R2 1720 [129]I[178]1[164]6:[151]G(I),DR[172]10:[130] 1730 [153]"";[200](CR$,X1);[200](CD$,Y1);DC$(R1) 1740 [153]"";[200](CR$,X2);[200](CD$,Y2);DC$(R2) 1750 [129]I[178]1[164]6:[151]G(I),0:[130] 1760 CT[178]CT[170]1:[139]CT[179]7[167]1710 1770 [139]R1[178]R2[167]DB[178]DB[170]1:[137]1790 1780 DB[178]0 1790 [142] 1800 [153]"LOAD":[153] 1810 [153]" DU GEWINNST DIE KOHLE !!! *NEW*RNDCMDCMDCMDCMDCMDLOGCOSLOGCOSWAIT" 1820 M(PT)[178]M(PT)[170]200:[153]:[153]:[153]:[129]I[178]1[164]6:[151]G(I),0:[130] 1830 [153]" DRUECKE EINE TASTE WAIT" 1840 [161]W$:[139]W$[179][177]""[167]1840 1850 [161]K$:[139]K$[178]""[167]1850 1860 [142] 1870 [151]198,0:PT$[178]PT$(PL(PT)) 1880 [139]PT$[178]"P"[167]2000 1890 [139]PT$[178]"RR"[167]2490 1900 [139]PT$[178]"GO"[167][142] 1910 [139]PT$[178]"U"[167]2850 1920 [139]PT$[178]"FP"[167]3160 1930 [139]PT$[178]"JV"[167][142] 1940 [139]PT$[178]"GTJ"[167]3300 1950 [139]PT$[178]"IT"[167]3410 1960 [139]PT$[178]"LT"[167]3390 1970 [139]PT$[178]"CC"[167]3430 1980 [139]PT$[178]"CH"[167]3670 1990 [139]PT$[178]"IJ"[167]4080 2000 [153]"LOAD";[163]15);"GRUNDSTUECK" 2010 [139]GF[167]2050 2020 [153]" SPIELER"PT 2030 PO[178]3[171]PT 2040 PL[178]PL(PT):P7[178]PT 2050 [153][163]20[171]([195](PN$(PL))[171]1)[173]2)"";PN$(PL)"WAIT" 2060 [153][200](PN$(PL),1):QR[178][194](646):[151]53280,QR:[153]"ONON" 2070 [153] 2080 [153]" MIETE $";P(PL,2) 2090 [153]" MIT 1 HAUS $";P(PL,3) 2100 [153]" MIT 2 HAEUSERN $";P(PL,4) 2110 [153]" MIT 3 HAEUSERN $";P(PL,5) 2120 [153]" MIT 4 HAEUSERN $";P(PL,6) 2130 [153]" MIT 1 HOTEL $";P(PL,7) 2140 [153] 2150 [153]" HYPOTHEKWERT $";P(PL,8) 2160 [153]" HAEUSERPREIS $";P(PL,9);"JEDES" 2170 [153]" HOTEL $";P(PL,9);"PLUS 4 HAEUSER" 2180 [139]GF[167][153]:[153]:[141]1830:[151]53280,0:[142] 2190 [153]:[129]I[178]1[164]41:[139]C$(PL)[178]C$(I)[175]I[179][177]PL[167][141]2210 2200 [130]:[137]2230 2210 [139]PS(I)[167][153]" "PN$(I)" EIGENTUM VON SPIELER "PS(I):[142] 2220 [153]" "PN$(I)" IST NOCH FREI ":[142] 2230 [153] 2240 [139]MG(PL)[178]1[167][153]" HYPOTHEKBELASTUNG $"P(PL,8) 2250 [153]" PREIS $";P(PL,1) 2260 [139]PS(PL)[178]0[167]2310 2270 [153]"  EIGENTUM WAIT VON SPIELER"PS(PL):[139]H(PL)[167][153]"MIT "; 2280 [139]H(PL)[179]5[167][153]H(PL)"HAEUSERN" 2290 [139]H(PL)[178]5[167][153]" 1 HOTEL" 2300 [137]2360 2310 [153]" DU HAST $";M(P7) 2320 [153]" WILLST DU KAUFEN ";:A$[178]"Y":[133]A$:A$[178][200](A$,1) 2330 [139]A$[178]"N"[167]2420 2340 [139]A$[179][177]"Y"[167][153]"ONON":[137]2320 2350 [153]" OK! GEKAUFT: ";PN$(PL)"":M(P7)[178]M(P7)[171]P(PL,1):PS(PL)[178]PT:[137]2410 2360 OW[178]P(PL,H(PL)[170]2):[139]PS(PL)[178]PT[167]2410 2370 [139]MG(PL)[167]2410 2380 P5[178]PO:P6[178]PS(PL):[141]2430:[139]OA[167][139]H(PL)[178]0[167]OW[178]OW[172]2 2390 M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW:[153]" ZAHLE MIETE $";OW 2400 M(PS(PL))[178]M(PS(PL))[170]OW 2410 [141]1830:[151]53280,0:[142] 2420 [141]6230:[137]2410 2430 MG[178]0:OA[178]0:PC[178]0:[129]I[178]1[164]41:[139]C$(PL)[178]C$(I)[175]PS(I)[178]P5[167]PC[178]PC[170]1:[139]MG(I)[167]MG[178]MG 2440 [130] 2450 [139]PC[178]2[175]C$(PL)[178]"SCHWARZ"[167]OA[178]1:[142] 2460 [139]PC[178]2[175]C$(PL)[178]"DK. BLAU"[167]OA[178]1:[142] 2470 [139]PC[178]3[167]OA[178]1:[142] 2480 [142] 2490 [153]"LOAD":PL[178]PL(PT) 2500 [153]"SPIELER"PT 2510 [153]" DEF(null)PRINT# *WAIT" 2520 [153]"  WAIT" 2530 [153]" (null)VERIFY(null) (null)" 2540 [153] 2550 [153][163]20[171][195](PN$(PL))[173]2)"";PN$(PL)"WAIT" 2560 [151]54276,129:[151]54288,17:[151]54290,17 2570 KO[178]129:[129]T[178]1[164]2:[129]I[178]1[164]6:[151]G(I),KO:[130]:[129]DL[178]1[164]400:[130] 2580 [129]I[178]1[164]6:[151]G(I),0:[130]:[129]DL[178]1[164]60:[130]:[130] 2590 [151]54276,33:[151]54288,33:[151]54290,33 2600 [153]:[153]"MIETE FUER 1 BAHNHOF $25" 2610 [153]"MIT 2 BAHNHOEFEN ZAHLE $50" 2620 [153]"MIT 3 BAHNHOEFEN ZAHLE $100" 2630 [153]"MIT 4 BAHNHOEFEN ZAHLE $200" 2640 [153] 2650 [153]" HYPOTHEKWERT $100" 2660 [153]:[139]MG(PL)[178]1[167][153]"HYPOTHEKBELASTUNG $100":[137]2840 2670 [153]"PREIS $200" 2680 [153]:[129]I[178]1[164]41:[139]PT$(I)[178]"RR"[167][141]2700 2690 [130]:[137]2720 2700 [139]PS(I)[167][153]PN$(I)" EIGENTUM VON SPIELER ";PS(I):[142] 2710 [153]PN$(I)" IST NOCH FREI ":[142] 2720 [139]PS(PL)[167][153]" EIGENTUM WAIT VON SPIELER ";PS(PL):[137]2800 2730 [153]" DU HAST $"M(PT) 2740 [153]" WILLST DU KAUFEN ";:B$[178]"Y":[133]B$:B$[178][200](B$,1) 2750 [139]B$[178]"N"[167][141]6230:[137]2840 2760 [139]B$[179][177]"Y"[167][153]"ONON":[137]2740 2770 M(PT)[178]M(PT)[171]200:PS(PL)[178]PT 2780 [153]" OK! GEKAUFT: " 2790 [137]2840 2800 OW[178]0:O7[178]0 2810 [139]PS(PL)[178]PT[167]2840 2820 OW[178]25:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[175]PS(I)[178]PS(PL)[167]OW[178]OW[172]2 2830 [130]:OW[178]OW[173]DV:[153]"ZAHLE MIETE $";OW:M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW 2840 [141]1830:[142] 2850 [153]"LOAD" 2860 [153]"SPIELER"PT 2870 [153]" SYS(null)TAB((null) PRINT#(null)(null)(null) " 2880 [153]" SYS(null)DEF^SYS(null) PRINT#-TAN>TANTANTANRIGHT$ " 2890 [153]" SYSFNFN PRINT#-TANTANTANTANRIGHT$LEFT$ " 2900 [153]" SPC( /EXP ":[153] 2910 PL[178]PL(PT) 2920 [153][163]20[171][195](PN$(PL))[173]2)"";PN$(PL)"WAIT" 2930 [153]:[153]"WENN EIN STADTWERK VERKAUFT IST ZAHLE 4 X DEN WUERFELWERT" 2940 [153] 2950 [153]"WENN ZWEI STADTWERKE VERKAUFT SIND ZAHLE10 X DEN WUERFELWERT" 2960 D1[178][181]([187](1)[172]6)[170]1:D2[178][181]([187](1)[172]6)[170]1 2970 [139]DF[167]D1[178]R1:D2[178]R2 2980 [153]:[153]"HYPOTHEKWERT $75":[153] 2990 [139]MG(PL)[178]1[167][153]"HYPOTHEKBELASTUNG $75":[137]3150 3000 [139]PS(42[171]PL)[167][153]PN$(42[171]PL)" EIGENTUM VON SPIELER"PS(42[171]PL):[137]3020 3010 [153]PN$(42[171]PL)" IST NOCH FREI " 3020 [153]:[139]PS(PL)[167][153]" EIGENTUM WAIT VON SPIELER ";PS(PL):[137]3100 3030 [153]" DU HAST $"M(PT) 3040 B$[178]"Y":[133]" WILLST DU KAUFEN ";B$:B$[178][200](B$,1) 3050 [139]B$[178]"N"[167][141]6230:[137]3150 3060 [139]B$[179][177]"Y"[167][153]"ONON":[137]3040 3070 [153]" OK! GEKAUFT: ";PN$(PL)"" 3080 M(PT)[178]M(PT)[171]150 3090 PS(PL)[178]PT:[137]3150 3100 [139]PS(PL)[178]PT[167]3150 3110 [153]"WUERFEL ZEIGEN"D1"AND"D2"." 3120 MT[178]4:[139]PS(13)[178]PS(PL)[175]PS(29)[178]PS(PL)[167]MT[178]10 3130 [139]DF[178]0[167]MT[178]10 3140 OW[178]MT[172](D1[170]D2):[153]"ZAHLE $";OW:M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW 3150 MT[178]0:[141]1830:[142] 3160 [153]"LOAD" 3170 [153]" FORFREI 3180 PRINT" [213][195][195][195][195][195][201]" 3190 PRINT" [194] [159][176][192][174] [200] 3200 [153]" (null) OPEN/TANEXP (null) 3210 PRINT" [200] [149][213][195][201] [194] 3220 [153]" (null)TANEXP VERIFYPEEKPRINT#(null)VERIFYLEFT$ /TANRIGHT$ 3230 PRINT" [221] [149][202][198][203] [221] 3240 [153]" /TANPRINT#NOTTANTANTANTANTANPRINT#NOTTANEXP 3250 PRINT" [152][166] [166] 3260 [153]:[153]" FORPARKEN ":[153] 3270 [139]PF[178]0[167][141]1830:[142] 3280 [153]:[153]" DU KANNST FREI PARKEN" 3290 [153]" JACKPOT VON $"FP"!":M(PT)[178]M(PT)[170]FP:FP[178]0:[153]:[141]1830:[142] 3300 [153]"LOAD";[163]11);"GEH IN'S GEFAENGNIS" 3310 [139]DB[178]3[167][153]:[153]" DU HAST 3 X IN SERIE EINEN PASCH GEWUERFELT!!":[153] 3320 [153][163]16);"POKEOR======^":[129]I[178]1[164]5:[153][163]16);"(null)(null)(null)(null)(null)(null)(null)(null)":[130] 3330 [153][163]16);"/>>>>>>EXP":[153]:PL(PT)[178]41:JF[178]1:DB[178]0 3340 [129]KO[178]1[164]3:[129]T[178]60[164]110[169]1.7:[129]I[178]1[164]6:[151]G(I),T:[130]:[130] 3350 [129]DL[178]1[164]10:[130] 3360 [129]T[178]110[164]60[169][171]1.7:[129]I[178]1[164]6:[151]G(I),T:[130]:[130]:[130] 3370 [129]I[178]1[164]6:[151]G(I),0:[130] 3380 [153]"";:[141]1830:[142] 3390 [153]"LOAD";[163]15);"LUXUSSTEUER":[153]:[153][163]16);"ZAHLE $75" 3400 [153]:[153]:[153]:M(PT)[178]M(PT)[171]75:FP[178]FP[170]75:[141]1830:[142] 3410 [153]"LOAD";[163]15);"EINKOMMENSTEUER":[153]:[153][163]16);"ZAHLE $200" 3420 [153]:[153]:[153]:M(PT)[178]M(PT)[171]200:FP[178]FP[170]200:[141]1830:[142] 3430 CC[178]CC[170]1:[139]CC[177]16[167]CC[178]CC[171]16 3440 PO[178]3[171]PT:CC$[178]CC$(CC):[139]CC[178]1[175]CJ(1)[167]CC[178]CC[170]1:CC$[178]CC$(CC) 3450 [153]"LOAD SYSGEMEINDPLATZ":[129]U[178]0[164]500:[130]U:[153]CC$"" 3460 [139]CC[178]1[167]CJ(1)[178]PT 3470 [139]CC[178]2[167][141]1830:[137]3300 3480 [139]CC[178]3[167]PL(PT)[178]1:MF[178]1:[141]1830:[141]1800:[142] 3490 [139]CC[178]4[167]M(PT)[178]M(PT)[170]45 3500 [139]CC[178]5[167]M(PT)[178]M(PT)[170]50:M(PO)[178]M(PO)[171]50 3510 [139]CC[178]6[167]M(PT)[178]M(PT)[170]25 3520 [139]CC[178]7[167]M(PT)[178]M(PT)[171]150:FP[178]FP[170]150 3530 [139]CC[178]8[167]M(PT)[178]M(PT)[170]20 3540 [139]CC[178]9[167][141]3630 3550 [139]CC[178]10[167]M(PT)[178]M(PT)[170]10 3560 [139]CC[178]11[167]M(PT)[178]M(PT)[170]100 3570 [139]CC[178]12[167]M(PT)[178]M(PT)[170]100 3580 [139]CC[178]13[167]M(PT)[178]M(PT)[171]100 3590 [139]CC[178]14[167]M(PT)[178]M(PT)[170]200 3600 [139]CC[178]15[167]M(PT)[178]M(PT)[171]50 3610 [139]CC[178]16[167]M(PT)[178]M(PT)[170]100 3620 [141]1830:[142] 3630 YP[178]0:[129]I[178]1[164]40 3640 [139]PS(I)[178](PT)[175]H(I)[179]5[167]YP[178]YP[170](40[172]H(I)) 3650 [139]PS(I)[178](PT)[175]H(I)[178]5[167]YP[178]YP[170]115 3660 [130]:[153]"ZAHLE $"YP:M(PT)[178]M(PT)[171]YP:FP[178]FP[170]YP:[142] 3670 CH[178]CH[170]1:[139]CH[177]16[167]CH[178]CH[171]16 3680 PO[178]3[171]PT:CH$[178]CH$(CH):[139]CH[178]8[175]CJ(2)[167]CH[178]CH[170]1:CH$[178]CH$(CH) 3690 [153]"LOAD DEF? ? CHANCE ? ?":[129]U[178]0[164]500:[130]U:[153]CH$"" 3700 [139]CH[178]1[167]M(PT)[178]M(PT)[171]15:FP[178]FP[170]15 3710 [139]CH[178]2[167][141]1830:[137]3300 3720 [139]CH[178]3[167]PL(PT)[178]1:MF[178]1:[141]1830:[141]1800:[142] 3730 [139]CH[178]4[167]M(PT)[178]M(PT)[170]150 3740 [139]CH[178]5[167][141]3870:MF[178]1 3750 [139]CH[178]6[167][141]3910:MF[178]1 3760 [139]CH[178]7[167]M(PT)[178]M(PT)[170]50 3770 [139]CH[178]8[167]CJ(2)[178]PT 3780 [139]CH[178]9[167]M(PT)[178]M(PT)[171]50:M(PO)[178]M(PO)[170]50 3790 [139]CH[178]10[167][141]3930:MF[178]1 3800 [139]CH[178]11[167][141]3950:MF[178]1 3810 [139]CH[178]12[167]PL(PT)[178]PL(PT)[171]3:MF[178]1 3820 [139]CH[178]13[167][141]3970:MF[178]1 3830 [139]CH[178]14[167][141]3990 3840 [139]CH[178]15[167][141]3870:MF[178]1 3850 [139]CH[178]16[167][141]4030:MF[178]1 3860 [141]1830:[142] 3870 PL(PT)[178]PL(PT)[170]1:[139]PL(PT)[177]40[167][141]6720:PL(PT)[178]PL(PT)[171]40 3880 [139]PT$(PL(PT))[178]"RR"[167]3900 3890 [137]3870 3900 DV[178]1:[142] 3910 [139]PL(PT)[177]25[167][141]6720 3920 PL(PT)[178]25:[142] 3930 [139]PL(PT)[177]12[167][141]6720 3940 PL(PT)[178]12:[142] 3950 [139]PL(PT)[177]6[167][141]6720 3960 PL(PT)[178]6:[142] 3970 PL(PT)[178]40:[142] 3980 [142] 3990 DF[178]0:YP[178]0:[129]I[178]1[164]40 4000 [139]PS(I)[178](PT)[175]H(I)[179]5[167]YP[178]YP[170](25[172]H(I)) 4010 [139]PS(I)[178](PT)[175]H(I)[178]5[167]YP[178]YP[170]100 4020 [130]:[153]"ZAHLE $"YP:M(PT)[178]M(PT)[171]YP:FP[178]FP[178]YP:[142] 4030 PL(PT)[178]PL(PT)[170]1 4040 [139]PL(PT)[177]40[167][141]6720:PL(PT)[178]PL(PT)[171]40 4050 [139]PT$(PL(PT))[178]"U"[167]4070 4060 [137]4030 4070 MF[178]1:[142] 4080 [153]"LOAD" 4090 JT(PT)[178]JT(PT)[170]1 4100 [153]"SPIELER "PT"IST IM GEFAENGNIS" 4110 [153]:[153]"DU KANNST FREIKOMMEN "JT(PT)"DURCH" 4120 [153]" 1. ZAHLE $500" 4130 [153]" 2. GIB EINE 'GEH AUS DEM GEFAENGNIS' KARTE" 4140 [153]" 3. WUERFEL EINEN PASCH" 4150 [153]:[133]"WAEHLE";I:[139]I[179]1[176]I[177]3[167]4150 4160 [139]I[178]1[167]M(PT)[178]M(PT)[171]500:FP[178]FP[170]50:PL(PT)[178]11:[141]1830:JE[178]1:[142] 4170 [139]I[178]2[175]CJ(1)[178]PT[167]CJ(1)[178]0:PL(PT)[178]11:[141]1830:JE[178]1:[142] 4180 [139]I[178]2[175]CJ(2)[178]PT[167]CJ(2)[178]0:PL(PT)[178]11:[141]1830:JE[178]1:[142] 4190 [139]I[178]2[167][153]"DU HAST KEINE KARTE":[137]4150 4200 [139]I[178]3[167][141]1700:[139]DB[167]4260 4210 [153]"DU HAST KEINEN PASCH" 4220 [139]JT(PT)[177]2[167][153]"DU MUSST ZAHLEN $50":M(PT)[178]M(PT)[171]50:PL(PT)[178]11:JB[178]1 4230 [139]JT(PT)[177]2[167][141]1830:FP[178]FP[170]50:[142] 4240 [141]1830:[142] 4250 [139]PL(PT)[178]11[167][141]1830:JE[178]1:[142] 4260 [153]"DU BIST DRAUSSEN!!":PL(PT)[178]11:[141]1830:JB[178]1:DB[178]0:[142] 4270 [137]6390 4280 [153]"LOAD":[139]PF[167][153]"GELD IN 'FREI PARKEN' JACKPOT $";FP 4290 [153]"SPIELER 1 HAT $";M(1):[153]"SPIELER 2 HAT $";M(2) 4300 [153]:[153]"SPIELER";PT"FUEHRT" 4310 [153]:[153]:[153][163]15);" WAEHLE" 4320 [153] 4330 [153]" E=LISTE DES EIGENTUMS" 4340 [153]" L=LISTE ALLER GRUNDSTUECKE" 4350 [153]" K=HAEUSER/HOTELS KAUFEN" 4360 [153]" V=EIGENTUM VERKAUFEN" 4370 [153]" H=HYPOTHEK AUFNEHMEN(NUR OHNE HAEUSER)" 4380 [153]" A=ANZEIGE DER GRUNDSTCK. EINER GRUPPE" 4390 [153]" Q=ZURUECK ZUM SPIELFELD" 4400 [153]"XX=SPIELENDE":[153] 4410 [133]"WAEHLE QCMDCMDCMD";C$ 4420 [139]C$[178]"E"[167][141]4510 4430 [139]C$[178]"L"[167][141]4680 4440 [139]C$[178]"K"[167][141]4830 4450 [139]C$[178]"V"[167][141]5270 4460 [139]C$[178]"H"[167][141]5630 4470 [139]C$[178]"A"[167][141]6690 4480 [139]C$[178]"Q"[167][142] 4490 [139]C$[178]"XX"[167]6470 4500 [137]4280 4510 [133]"FUER WELCHEN SPIELER (1 ODER 2)";PN 4520 [139]PN[179]1[176]PN[177]2[167]4510 4530 [153]"LOAD" 4540 [153][163]6)"EIGENTUM VON SPIELER ";PN 4550 [153] 4560 [129]I[178]1[164]40:PO$[178]"":[139]PS(I)[178]PN[167][153]PN$(I); 4570 [139]PS(I)[179][177]PN[167]4640 4580 [139]PT$(I)[179][177]"P"[167]4620 4590 [153][166]20[171]([195](PN$(I))[171]2));" -";:[139]H(I)[179]5[167]PO$[178][196](H(I))[170]" HS" 4600 [139]H(I)[178]5[167]PO$[178]" HOTELWAIT" 4610 PO$[178]PO$[170]"/$"[170][202]([196](P(I,H(I)[170]2)),2) 4620 [139]MG(I)[178]1[167]PO$[178]"- HYPTK BELASTET" 4630 [153]PO$ 4640 [130] 4650 [153]:[139]CJ(1)[178]PN[176]CJ(2)[178]PN[167][153]"'GEH AUS DEM GEFAENGNIS' KARTE" 4660 [153]"SPIELER"PN"HAT $";M(PN) 4670 [153]:[141]1830:[142] 4680 [153]"LOAD" 4690 TT$[178]"NAME EIGENTUEMER/CMDCMDCMDCMDCMDCMDCMDCMDCMD HAEUSER":[153]TT$ 4700 [129]K[178]1[164]40:[139]PT$(K)[179][177]"P"[175]PT$(K)[179][177]"RR"[175]PT$(K)[179][177]"U"[167]4790 4710 [153]PN$(K)"";[163]21); 4720 [153][163]33) 4730 P$[178][196](PS(K)):PP$[178][202]([196](H(K)),2):[139]H(K)[177]4[167]PP$[178]"H" 4740 [139]PT$(K)[179][177]"P"[167]PP$[178]"X" 4750 [139]MG(K)[167]PP$[178]"HYPWAIT" 4760 P$[178]P$[170]" -"[170]PP$ 4770 [139]PS(K)[178]0[167]P$[178]"FREI " 4780 [153]P$ 4790 [139]K[178]20[167][153]:[141]1830:[153]"LOAD":[153]TT$ 4800 [130]K 4810 [153]:[141]1830 4820 [142] 4830 [153]"LOAD" 4840 HO[178]0 4850 [153]" ZU WELCHER GRUPPE":[153]PG$ 4860 [153] 4870 [133]"WELCHE FARBE";C$ 4880 [129]I8[178]1[164]41:[139]C$[178][200](C$(I8),[195](C$))[167]PL[178]I8:C$[178]C$(I8):[137]4910 4890 [130]I8 4900 [153]"FALSCHE GRUPPE":[137]4870 4910 P7[178]PT 4920 P5[178]P7:[141]2430:[139]MG[167]OA[178]0 4930 [139]OA[167]4960 4940 [153]"SORRY DU BESITZT NICHT ALLE GRUND- STUECKE IN DIESER GRUPPE"; 4950 [153]" MIT HYPOTHEK BELASTET":[141]1830:[142] 4960 [153]" GRUNDSTUECK ZAHL DER HAEUSER(5=HOTEL)" 4970 HS[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167][153]PN$(I)"";[163]30);H(I):HS[178]HS[170]H(I) 4980 [130] 4990 [153]:[153]"HAEUSER IN DER GRUPPE KOSTEN $"P(PL,9)"JEDES" 5000 [153]"HOTEL KOSTET $"P(PL,9)"+ 4 HAEUSER ODER $";(P(PL,9)[172]5) 5010 [153] 5020 [153]" DU HAST $"M(PT) 5030 [153]"NACH DEM 4. HAUS AUTOMATISCH EIN HOTEL" 5040 [153]"WIEVIEL HAEUSER WILLST DU ANKF.(MX=";:MX[178]((5[172]PC)[171]HS):[153]MX")" 5050 [133]HN:[139]HN[177]MX[167][137]5040 5060 H7[178][181](HN[173]PC):H8[178]HN[171](H7[172]PC) 5070 [139]M(P7)[179](HN[172]P(PL,9))[167][153]"DU HAST NICHT GENUG GELD!!!!":[137]5040 5080 [139]HN[178]0[167][153]"OK":[141]1830:[142] 5090 M(P7)[178]M(P7)[171](HN[172]P(PL,9)):[129]E[178]PL[164]PL[170]4:[139]C$[178]C$(E)[167]H(E)[178]H(E)[170]H7 5100 [130] 5110 [139]H8[167]5130 5120 [137]5260 5130 [153]" DU HAST"H8"HAEUSER UEBER" 5140 [153]:F1[178]0:[129]F[178]PL[164]PL[170]4:[139]C$[178]C$(F)[167]F1[178]F1[170]1:[153]F1,PN$(F);" "H(F) 5150 [130]:[153]:[129]G[178]1[164]H8 5160 [153]"WOHIN WILLST DU HAUS NR."G;:[133]HL:[139]HL[178]HO[167][153]"GEHT NICHT":[137]5160 5170 F2[178]0:F1[178]0:F9[178]0 5180 [129]F[178]PL[164]PL[170]3:[139]C$[178]C$(F)[167]F1[178]F1[170]1:[139]F1[178]HL[167]F9[178]F 5190 [130]F 5200 [139]F9[178]0[167][153]"DIESE NR. NICHT":[137]5160 5210 H2[178]0:[129]F[178]PL[164]PL[170]3:[139]C$[178]C$(F)[167][139]H(F9)[177]H(F)[167]H2[178]H2[170]1 5220 [130] 5230 [139]H2[167][153]"FALSCHE VERTEILUNG DER HAEUSER!":[137]5160 5240 HO[178]HL:H(F9)[178]H(F9)[170]1 5250 [130]G 5260 [153]"FERTIG":[141]1830:[142] 5270 [133]"WELCHER SPLR. HAT EIGENTUM ZU VERKFN.";P1 5280 [139]P1[178]0[167][141]1830:[142] 5290 P2[178]P1[170]1:[139]P2[177]2[167]P2[178]P2[171]2 5300 [153]"IST ES EIN GRUNDSTUECK";:[133]Q$:[139][200](Q$,1)[178]"N"[167]5510 5310 [153]"IN WELCHER FARBGRUPPE":[153]PG$ 5320 [153]:[133]"WELCHE";C$ 5330 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]5360 5340 [130]I6 5350 [153]"FALSCHE GRUPPE":[137]5320 5360 [153]"GRUNDSTUECK NR.";[163]29);"EIGENTUEMER" 5370 HO[178]0:CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[153]CT" "PN$(I)"";[163]35);PS(I) 5380 [139]H(I)[167]HO[178]1 5390 [130] 5400 [153]:[153]"WELCHE NR. WILL SPIELER"P1"VERKAUFEN" 5410 [133]TP 5420 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1 5430 [130] 5440 [139]FF[178]0[167][153]"FALSCHE NUMMER":[137]5400 5450 [139]PS(T4)[179][177]P1[167][153]"SPIELER "P1"DAS GEHOERT DIR NICHT":[137]5270 5460 [139]HO[167][153]"DU HAST HAEUSER IN DER GRUPPE DU KANST NICHT VERKF.":[137]5500 5470 [133] "WAS IST DAS HOECHSTE ANGEBOT:";SP 5480 M(P1)[178]M(P1)[170]SP:M(P2)[178]M(P2)[171]SP:PS(T4)[178]P2 5490 [153]"SPIELER "P2"KAUFT "PN$(T4)"":[153]"FUER $"SP 5500 [153]:[141]1830:[142] 5510 [153]"GRUNDSTUECK";[163]29);"EIGENTUEMER" 5520 [129]I[178]6[164]36[169]10:N[178]N[170]1:[153]N" "PN$(I)"";[163]35);PS(I):[130]:N[178]0 5530 [153]" 5 "PN$(13)"";[163]35);PS(13):[153]" 6 "PN$(29)"";[163]35);PS(29) 5540 [133]"WELCHE NR.";NM:[139]NM[178]0[167][142] 5550 [139]NM[179]1[176]NM[177]6[167]5540 5560 [139]NM[178]5[175]PS(13)[178]P1[167]SN[178]13:[137]5600 5570 [139]NM[178]6[175]PS(29)[178]P1[167]SN[178]29:[137]5600 5580 [139]NM[177]0[175]NM[179]5[167]SN[178]6[170]((NM[171]1)[172]10):[139]PS(SN)[178]P1[167][137]5600 5590 [153]"DU KANNST ES NICHT BELASTEN":[137]5510 5600 [133]"HOECHSTPREIS";SP 5610 M(P1)[178]M(P1)[170]SP:M(P2)[178]M(P2)[171]SP:PS(SN)[178]P2 5620 [141]1830:[142] 5630 [153]"LOAD":[153]" WAEHLE ":[153]"0 ZURUECK ZUM UNTERPROGRAMM":[153]"1 HYPOTHEK GRUNDSTUECK" 5640 [153]"2 HYPOTHEK BAHNHOEFE":[153]"3 HYPOTHEK STADTWERKE" 5650 [153]"4 HYPOTHEK ZURUECKKAUFEN(& 10% ZINSEN)":[153]"5 HAEUSER VERKAUFEN":[153] 5660 [133]"WAEHLE";GG:[139]GG[179]0[176]GG[177]5[167]5660 5670 [139]GG[178]0[167][141]1830:[142] 5680 [145]GG[141]5700,5930,6020,6100,6730 5690 [137]5630 5700 [153]:[153]"IN WELCHER GRP. WILLST DU AUF GRUNDSTCK":[153]"HYPOTHEK AUFNEHMEN ?":[153]PG$ 5710 [153]:[133]"FARBGRUPPE";C$ 5720 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]5750 5730 [130]I6 5740 [153]"FALSCHE GRUPPE":[137]5710 5750 CM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CM[178]CM[170]H(I) 5760 [130] 5770 [139]CM[167][153]"KEINE HYPOTHEK AUF GRUNDSTCK. MIT HAUS IN DIESER GRUPPE" 5780 [153]"GRUNDSTUECK NR.";[163]25);"EIGENTUEMER" 5790 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[179][177]C$(I)[167]5820 5800 CT[178]CT[170]1:[153]CT" "PN$(I)"";[163]27)PS(I);:PP$[178]"":[139]MG(I)[167]PP$[178]"BELASTET" 5810 [153]PP$ 5820 [130] 5830 [153]:[153]"WELCHE NR. WILLST DU BELASTEN";:[133]TP 5840 [139]TP[178]0[167][141]1830:[142] 5850 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1 5860 [130] 5870 [139]FF[178]0[167][153]"FALSCHE NUMMER":[137]5830 5880 [139]PS(T4)[179][177]PT[167][153]"DU KANNST ES NICHT BELASTEN":[141]1830:[137]5630 5890 [139]MG(T4)[178]1[167][153]"IST BEREITS BELASTET":[137]5830 5900 [153]:[153]"OK":MG(T4)[178]1 5910 [153]"DU BEKOMMST $"P(T4,8)"FUER DIE HYPOTHEK":M(PT)[178]M(PT)[170]P(T4,8) 5920 [141]1830:[142] 5930 RC[178]0:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[167]RC[178]RC[170]1:[153]RC" "PN$(I)" SPLR."PS(I) 5940 [130] 5950 [133]"WELCHE NR.";RG 5960 [139]RG[179]1[176]RG[177]4[167]5950 5970 RG[178]6[170]((RG[171]1)[172]10) 5980 [139]PS(RG)[179][177]PT[167][153]"DU KANNST ES NICHT BELASTEN":[141]1830:[137]5630 5990 [139]MG(RG)[178]1[167][153]"IST BEREITS BELASTET":[141]1830:[137]5630 6000 MG(RG)[178]1:[153]"DU BEKOMMST $100 FUER HYOTHEK":M(PT)[178]M(PT)[170]100 6010 [141]1830:[142] 6020 U(1)[178]13:U(2)[178]29 6030 [129]I[178]1[164]2:[153]I" "PN$(U(I))"":[130] 6040 [133]"WELCHE?";UM 6050 [139]UM[179]1[176]UM[177]2[167]6040 6060 [139]PS(U(UM))[179][177]PT[167][153]"DU KANNST ES NICHT BELASTEN":[141]1830:[137]5630 6070 [139]MG(U(UM))[178]1[167][153]"IST BEREITS BELASTET":[141]1830:[137]5630 6080 MG(U(UM))[178]1:[153]"DU BEKOMMST $75 DIE FUER HYPTHEK":M(PT)[178]M(PT)[170]75 6090 [141]1830:[142] 6100 [153]:[153]"DIESE EIGENTUEMER SIND MIT HYPOTHEK BELASTET" 6110 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[153]ML" "PN$(I)"" 6120 [130] 6130 [139]ML[178]0[167][153]"DU HAST KEINE HYPOTHEK A.DEM GRUNDSTCK.":[141]1830:[142] 6140 [153]:[133]"WELCHE HYPOTHEK WILLST DU ZURUECKKFN.";LF 6150 [139]LF[179]1[176]LF[177]ML[167][153]"FALSCH":[137]6140 6160 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[139]ML[178]LF[167]FT[178]I 6170 [130] 6180 [153]"DIE HYPOTHEK IST FUER $"P(FT,8) 6190 [153]"DU MUSST BEZAHLEN $";:PY[178]P(FT,8)[172]1.10:[153]PY 6200 [139]PY[177]M(PT)[167][153]"DU HAST ZU WENIG GELD":[141]1830:[142] 6210 M(PT)[178]M(PT)[171]PY:MG(FT)[178]0 6220 [141]1830:[142] 6230 [139]AF[167]6250 6240 [142] 6250 PL[178]PL(PT):[153]PN$(PL)" WIRD VERSTEIGERT" 6260 [153]"AN DEN HOECHSTBIETENDEN " 6270 PO[178]3[171]PT:[153]:HB[178]0:PA[178]PT:AC[178]0:[153]:HB[178]0:PA[178]PT:AC[178]0 6280 PA[178]3[171]PA 6290 [153]"SPIELER"PA"WAS IST DEIN GEBOT";:[133]BD:BD[178][181](BD):AC[178]AC[170]1 6300 [139]BD[178]0[167][145](AC[177]1)[170]2[137]6330,6280 6310 [139]BD[179][178]HB[167][153]"DU MUSST HOEHER BIETEN ALS"HB"ODER BIETE '0'":[137]6290 6320 HB[178]BD:HR[178]PA:[137]6280 6330 [139]HB[178]0[167]6380 6340 [153]PN$(PL)" GEHE ZU" 6350 [153]"SPIELER"HR" FUER $"HB 6360 M(HR)[178]M(HR)[171]HB:PS(PL)[178]HR 6370 [142] 6380 [153]:[153]PN$(PL)" WURDE NOCH NICT GEKAUFT":[142] 6390 [153]"LOAD":[153]"SPIELER "PT"IST DER GEWINNER!!! 6400 PRINT" DIR FEHLEN NOCH $"ABS(M(PT))"SONST BIST DU DER GEWINNER" 6410 PRINT"DRUECKE'Q' (ZUM GEWINNEN) ODER BESCHAFFE DIR DAS"; 6420 PRINT" FEHLENDE GELD" 6430 GOSUB1830:GOSUB4280 6440 IFM(PT)>=0THENRETURN 6450 IFM(PT)<0THENPRINT"DU BIST BANKROTT!!!":PT=3+PT 6460 PRINT" --SPIELER "PT"GEWINNT!-- AETSCH":END 6470 PRINT"SPIELENDE" 6480 PRINT"GEWINNER IST:"; 6490 IFM(1)(PT)ANDC$=C$(I)THENDO=1 6780 IFC$=C$(I)THENHN=HN+H(I) 6790 NEXT 6800 IFDO=1ORHN=0THENPRINT"DU BIST KEIN EIGENTUEMER DES GRUND- STCKS":GOSUB1830:RETURN 6810 PRINT"EIGENTUM NR.";TAB(25);"HAEUSER(5=HOTEL)" 6820 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:PRINTCT" "PN$(I)"";TAB(27)H(I) 6830 NEXT 6840 INPUT"WILLST DU ALLE HAEUSER VERKAUFEN";A$:IFLEFT$(A$,1)="Y"THEN6980 6850 PRINT:INPUT"VON WELCHER NR. WILLST DU VERK.";TP 6860 IFTP=0THEN RETURN 6870 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1 6880 NEXT 6890 IFFF=0THENPRINT"FALSCHE NUMMER":GOTO6850 6900 IFH(T4)=0THENPRINT"ES IST KEIN HAUS DA":GOTO6850 6910 NN=0:NH=H(T4):FORI=PLTOPL+3:IFH(I)>NHTHENNN=1 6920 NEXT 6930 IFNNTHENPRINT"DAS HAUS GEHT NICHT":GOTO6850 6940 PRINT:PRINT"OK.":H(T4)=H(T4)-1 6950 HM=P(PL,9)/2 6960 PRINT"DU BEKOMMST $"HM"FUER DEIN HAUS":M(PT)=M(PT)+HM 6970 GOSUB1830:GOTO5630 6980 HM=0:FORI=PLTOPL+3:IFC$=C$(I)THENHM=HM+(P(PL,9)/2)*H(I):H(I)=0 6990 NEXT:PRINT"DU BEKOMMST $"HM"FUER DEINE HAEUSER ":M(PT)=M(PT)+HM:GOTO6970 7000 READA$:PN$(I)=LEFT$(A$+" ",14):RETURN