0 D0$="":D1$=D0$+"":RESTORE:A1%=30:GOSUB1237:PRINTD1$;:FORA=1TO7:PRINTD$:NEXTA
2 DEFFNJOY(X)=INT((LOG(255.5-(PEEK(56322-X)OR224)))/LOG(2)+2):D2$=D1$+""
9 R$=CHR$(141):D4$="":POKE53280,4:POKE53281,4:FORA=0TO4:READX:IFPEEK(51530+A)=XTHENGW=GW+1
11 NEXTA:POKE850,.:ONABS(GW=5)GOTO22:PRINT"[147]"LEFT$(D1$,11)TAB(15)"[158]LOADING..."
13 PRINTD1$"[156]LOAD "CHR$(34)"HOTEL"CHR$(34)",8"CHR$(141)"RUN"D1$"[145][145][145]"
15 POKE631,13:POKE632,13:POKE198,2:END
22 A=15:B=4:DIMKA(B),NA$(B),GW(7),M$(A+2),ZM%(1,A,B),LX%(B,A,B),QM%(1,A,B),WA%(B)
23 DIMAR%(5,A,B),GH%(5,A,B),FT%(A,B),DA%(B),ZI%(B),KO(7),FL%(B),F%(5,B),F$(5)
24 DIMJ%(B),KR%(B),MO$(12),SD$(A),R%(15,15),MI%(1,A,B),LX$(7),AR$(5),MI$(1),P%(1)
25 DIMAT%(3),AM%(3),AJ%(3),AO%(3),OA%(3),G(1),TA%(12),SD%(B),HN%(A,B),BA%(A,B)
28 DIMA%(5,A,B),B%(5,A,B),WT(A,B):IFPEEK(51456)=1THENGOSUB8500:GOTO140
40 GOSUB2010:MS=PEEK(51457):FORA=1TOMS:FORB=0TO14:GW=PEEK(51446+B+15*A)
60 NA$(A)=NA$(A)+CHR$(GW):NEXTB,A:FORA=1TOMS:FORB=1TO10
70 IFRIGHT$(NA$(A),1)=CHR$(32)THENNA$(A)=LEFT$(NA$(A),15-B)
80 NEXTB,A:FORA=52001TO52020:POKEA,.:NEXTA
140 T=PEEK(51456):POKE51456,.:POKE53272,48:POKE56576,.:POKE648,204:ONABS(T=.)GOSUB9350
500 GOSUB2950:SA=.:GOSUB1235:GOSUB1233
505 M$(1)="SAMMLUNG":M$(2)="BANK":M$(3)="AUTOMARKT":M$(4)="HOTELS":GOSUB1600
520 M$(5)="]BERSICHT":M$(6)="REISEN":GOSUB1260:GOSUB1210:MP=6:W=9:SL=1:GOSUB1300
600 ONABS(WA=6)GOTO3000:SA=WA:ONWAGOSUB9000,4000,7900,7000,9100:GOTO505
1000 PRINT"";:A1%=36:A2%=2:GOSUB1240:PRINT"";:A1%=18:GOSUB1237:FORA=1TO2:PRINT"[158]"D$"[159]"D$
1030 NEXTA:PRINT""D4$"[158]"NA$(SP):PRINTD4$"IN "SD$(S):PRINT""TAB(22)"[159]KAPITAL: "
1080 PRINT"[159]";:A1%=35:A2=KA(SP):GOSUB1200:PRINTTAB(35)"[145].-":PRINTD0$"[144][171]"TAB(38)"[179]":RETURN
1100 A1%=36:A2%=10:FORA=1TO4:IFGW(A)=.THENA2%=A2%-1
1103 NEXTA:IFA2%=6THENA2%=7
1104 PRINTD0$;:GOSUB1240:PRINTD0$"[144][171]"TAB(38)"[179]":PRINTD4$"[153] HOTEL:  EXISTIERT";
1109 IFB2%=.THENPRINT" NICHT";
1110 PRINT" [146]"R$D4$"[153]";:FORA=1TO34:PRINT"=";:NEXTA:PRINTR$;
1111 PRINTD4$"GR\SSE:[145]":B$="INSGESAMT":FORA=0TO1:PRINTTAB(16)"<> "B$"[158]"
1115 A1%=15:A2=QM%(A,S,SP):GOSUB1200:B$="FREI":NEXTA:GOSUB1230:PRINTTAB(24)"[145][159]ETAGEN:[158]  "W%
1120 PRINTD4$"ZIMMER:[145]":FORA=.TO1:PRINTTAB(16)""MI$(A)" ^ [159]MIETE:    .-[158]"
1130 A1%=35:A2=MI%(A,S,SP):GOSUB1200:A1%=15:A2=ZM%(A,S,SP):GOSUB1200:NEXTA
1145 PRINTD4$"BESONDERHEITEN: [159]";:C=0:FORA=1TO4:IFGW(A)>.THENPRINTTAB(19)"[209] "LX$(A):C=C+1
1180 NEXTA:IFC=.THENPRINT"[150] NICHTS..."
1190 RETURN
1200 PRINTTAB(A1%-LEN(STR$(A2)))"[145]"A2:RETURN
1210 PRINTD1$;:A1%=19:A2%=2:GOSUB1240:PRINTD1$D4$"[153]HEUTIGES DATUM:":PRINT""TA%"[157]."MO$(MO)JA%
1220 PRINT"[144][171]"TAB(21)"[179]":RETURN
1230 W%=1+INT((QM%(.,S,SP)+LX%(1,S,SP))/500):RETURN
1233 GOSUB1000:GOSUB1100:RETURN
1234 GOSUB3070:GOSUB3066:RETURN
1235 PRINT"[147]":SYS828:RETURN
1237 D$="":FORB=1TOA1%:D$=D$+" ":NEXTB:RETURN
1240 GOSUB1237:PRINTTAB(A3%)"[144][176]";:FORA=1TOA1%:PRINT"[192]";:NEXTA:PRINT"[174]":FORA=1TOA2%:PRINTTAB(A3%)"[221]"D$"[221]"
1250 NEXTA:PRINTTAB(A3%)"[173]";:FORA=1TOA1%:PRINT"[192]";:NEXTA:PRINT"[189]":A3%=.:RETURN
1260 PRINTD1$"";:A1%=19:A2%=3:GOSUB1240:PRINTD1$D4$"[159]N[CHSTE AUKTION:"
1265 PRINT""AT%(1)"[157]."MO$(AM%(1))AJ%(1):PRINTD4$"IN "SD$(AO%(1)):RETURN
1285 IFI%>.THENI%=I%-1:IFI%=.THENXY%=2:YZ%=O%:O%=.:VW%=OA%(1)
1286 FORA=2TO3:AT%(A-1)=AT%(A):AM%(A-1)=AM%(A):AJ%(A-1)=AJ%(A)
1287 AO%(A-1)=AO%(A):OA%(A-1)=OA%(A):NEXTA:MA=EA:WX=3:GOSUB2800:RETURN
1300 IFSL<>1THENM$(MP)="ZUR]CK"
1301 FORA=1TOMP:M$(A)=LEFT$(M$(A)+"          ",W):NEXTA
1302 PRINTD2$:FORA=1TOMP+1:PRINT"[145]";:NEXTA:PRINT:A1%=W:A2%=MP:A3%=36-W:GOSUB1240
1305 PRINTLEFT$(D2$,LEN(D2$)-MP-3)"[158]":FORA=1TOMP-1:PRINTTAB(38-W)M$(A):NEXTA
1306 PRINTTAB(38-W)""M$(MP):PRINTD2$"[158]":W%=MP
1330 GOSUB6800:ONTGOTO1330,1380,1410,1330,1330,1360:GOTO1330
1360 SL=.:WA=W%:RETURN
1380 ONABS(W%-1<1)GOTO1330
1385 W%=W%-1
1390 PRINTTAB(38-W)"[145][145]"M$(W%):PRINTTAB(38-W)"[146]"M$(W%+1)"[145]":GOTO1330
1410 ONABS(W%+1>MP)GOTO1330
1415 W%=W%+1
1420 PRINTTAB(38-W)"[146][145]"M$(W%-1):PRINTTAB(38-W)""M$(W%):GOTO1330
1450 GOSUB1235:PRINTD0$"";:A1%=36:A2%=8:GOSUB1240:PRINTD0$"[153]"TAB(11)TA%"[157]."MO$(MO)JA%
1460 SP=E2%:GOSUB1470:PRINTTAB(3)"[158]MELDUNG F]R "SL$":":RETURN
1470 SL$=LEFT$(NA$(SP),4):IFSL$="HERR"THENSL$=SL$+"N"
1475 SL$=SL$+RIGHT$(NA$(SP),LEN(NA$(SP))-4):RETURN
1500 PRINTD2$;:A1%=15+LEN(SL$):A2%=1:GOSUB1240:W=1:CC=A1%
1505 PRINTD2$"[158] "SL$"   JA  [146] NEIN  ":PO=53108+LEN(SL$):P=PO
1515 GOSUB6800:ONTGOTO1515,1515,1515,1560,1530:GOSUB1730:WA=W:RETURN
1530 ONABS(W+1>2)GOTO1515
1540 PO=PO+6:W=W+1:FORA=.TO5:X=PO+A:POKEX,PEEK(X)+128:POKEX-6,PEEK(X-6)-128:NEXT:GOTO1515
1560 ONABS(W-1<1)GOTO1515
1570 PO=PO+5:W=W-1:FORA=.TO5:X=PO-A:POKEX,PEEK(X)-128:POKEX-6,PEEK(X-6)+128:NEXT:PO=P:GOTO1515
1600 PRINTD1$"";:GOSUB1930:FORA=1TO8:PRINTD$:NEXTA:PRINTD$"":RETURN
1650 WE=.:PRINTD2$;:A1%=LEN(SL$)+SL+4:A2%=1:GOSUB1240:CC=A1%:PP=53108+LEN(SL$)
1655 PRINTD2$D4$"[158]"SL$" [159]0[146]";:IFSL>.THENFORA=.TOSL-1:PRINT"0";:NEXTA:PRINT""
1660 P=PP
1665 GOSUB6800:ONTGOTO1665,1684,1694,1714,1704,1724
1684 W%=PEEK(PP):IFW%-175=10THENW%=176:GOTO1688
1686 W%=W%+1
1688 POKEPP,W%:GOTO1665
1694 W%=PEEK(PP):IFW%-177=-1THENW%=185:GOTO1698
1696 W%=W%-1
1698 POKEPP,W%:GOTO1665
1704 IFPP+1>P+SLGOTO1665
1708 PP=PP+1:POKEPP,PEEK(PP)+128:POKEPP-1,PEEK(PP-1)-128:GOTO1665
1714 IFPP-1<PGOTO1665
1718 PP=PP-1:POKEPP,PEEK(PP)+128:POKEPP+1,PEEK(PP+1)-128:GOTO1665
1724 POKEPP,PEEK(PP)-128
1725 FORA=0TOSL:B=PEEK((P+SL)-A)-48:WE=INT(VAL(STR$(WE+B*10^A))):NEXTA:GOSUB1730:RETURN
1730 PRINTD2$"";:GOSUB1930:D$=LEFT$(D$,CC+4):FORA=1TO2:PRINTD$:NEXTA:PRINTD$"":RETURN
1750 PRINTD2$;:A1%=19:A2%=1:GOSUB1240:CC=A1%
1760 PRINTD2$TAB(5)"[158]NICHT M\GLICH":GOSUB1993:GOSUB1730:RETURN
1800 W=51531+20*B4%:FORZZ=0TO19:PRINTCHR$(PEEK(W+ZZ));:NEXTZZ:ZZ=.:PRINT:RETURN
1850 IFAT%(1)<TA%ANDAM%(1)=MOANDAJ%(1)<=JA%THENGOSUB1285:GOTO1850
1855 IFAM%(1)<MOANDAJ%(1)=JA%THENGOSUB1285:GOTO1850
1857 IFAJ%(1)<JA%THENGOSUB1285:GOTO1850
1860 RETURN
1870 GOSUB1930:PRINTD1$"[145][145]";:FORA=1TO2:PRINTLEFT$(D$,29):NEXTA:RETURN
1910 PRINTD2$;:SL$="KOSTEN":IFZZ>.THENSL$="GEWINN"
1915 A1%=LEN(SL$)+LEN(STR$(KO))+5:A2%=1:GOSUB1240:CC=A1%
1920 PRINTD2$D4$"[158]"SL$":[159]"KO"[157].-":GOSUB1993:ZZ=.:GOSUB1730:RETURN
1930 D$="":FORA=1TO39:D$=D$+"[166]":NEXTA:RETURN
1975 GOSUB1730:PRINTD2$;:A1%=23:A2%=1:GOSUB1240:DA%(SP)=7:WA%(SP)=.
1980 PRINTD2$D4$"[158]7 TAGE "M$(16):GOSUB1993:GOSUB1235:RETURN
1993 GOSUB6800:ONABS(T<>6)GOTO1993:RETURN
2010 SP=1:S=1:TA%=1:MO=1:JA%=1989:FORA=1TO4:KA(A)=75000:F%(5,A)=100:DA%(A)=1
2012 SD%(A)=1:FORB=1TO4:F%(B,A)=10:NEXTB,A
2020 FORA=1TO4:FL%(A)=300+100*A:NEXTA:US=1.5:QP%=20:ZP%=50:ZS%=4
2054 XA=MO:JX=JA%:FORA=1TO3:MA=-9+10*A:WX=A:GOSUB2800:NEXTA
2060 FORA=1TO5:READF$(A),AR$(A):AR$(A)=LEFT$(AR$(A)+"    ",11):NEXTA
2065 FORA=1TO7:READLX$(A):NEXTA:FORA=0TO1
2066 MI$(A)=LEFT$(LX$(A+5),6):NEXTA:FORA=1TO12:READMO$(A),TA%(A):NEXTA
2067 FORA=1TO15:READSD$(A):NEXTA:FORA=1TO15:FORB=1TO15:READR%(A,B):NEXTB,A:RETURN
2069 DATA 15,46,11,46,50,PAN AM,PORTIERS,LUFTHANSA,KELLNER,AIR FRANCE,CHEFKOCHS
2094 DATA BRIT.AIRWAYS,RAUMPFLEGER,US-DOLLAR,WASCHFRAUEN
2105 DATA RESTAURANT,AUFZ]GE,ZIMMERSERVICE,REINIGUNG,EINZELZI.
2106 DATA DOPPELZI.,INSGESAMT,JANUAR,31,FEBRUAR,28,M[RZ,31,APRIL,30,MAI,31
2110 DATA JUNI,30,JULI,31,AUGUST,31,SEPTEMBER,30,OKTOBER,31,NOVEMBER,30,DEZEMBER
2200 DATA 31,LOS ANGELES,CHICAGO,NEW YORK,LONDON,PARIS,Z]RICH
2220 DATA M]NCHEN,WIEN,BERLIN,PRAG,MOSKAU,BOMBAY,BANGKOK,MELBOURNE,TOKIO
2230 DATA 0,-2,-3,11,0,0,0,0,0,0,0,14,12,11,7,-2,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,-3
2232 DATA -1,0,6,0,0,0,0,0,0,0,15,17,15,16,11,0,6,0,-1,-2,-2,-2,-2,-2,-5,-13,-17
2234 DATA 15,20,0,0,0,-1,0,-1,-1,-1,-2,-2,-5,-13,-17,0,0,0,0,0,-2,-1,0,-1,-1,-1
2236 DATA -1,-4,-12,-16,0,0,0,0,0,-2,-1,-1,0,-1,-1,-1,-4,-12,-16,0,0,0,0,0,-2,-1
2238 DATA -1,-1,0,-1,-1,-3,-11,-15,0,0,0,0,0,-2,-2,-1,-1,-1,0,-1,-2,-11,-15,0,0
2240 DATA 0,0,0,-2,-2,-1,-1,-1,-1,0,-2,-11,-15,0,0,0,0,0,-5,-5,-4,-4,-3,-2,-2,0
2242 DATA -11,-15,0,0,14,0,15,-13,-13,-12,-12,-11,-11,-11,-11,0,4,10,10,12,0
2244 DATA 17,-17,-17,-16,-16,-15,-15,-15,-15,4,0,8,7,11,0,15,15,0,0,0,0,0,0,0,10
2246 DATA 8,0,10,7,0,16,20,0,0,0,0,0,0,0,10,7,10,0
2500 PRINTTAB(INT((40-LEN(SL$))/2))SL$:RETURN
2800 EA=MA+9:IFEA>30THENMA=1:EA=10:XA=XA+1:IFXA=13THENXA=1:JX=JX+1
2810 AT%(WX)=INT(RND(0)*(EA-MA))+MA:AM%(WX)=XA
2815 IFMO=2ANDWX=3ANDAT%(WX)>28THENAT%(WX)=27
2820 AJ%(WX)=JX:AO%(WX)=INT(RND(0)*15)+1:OA%(WX)=INT(RND(0)*20)+1:RETURN
2900 FORA=1TO4:LX%(A,S,SP)=GW(A):NEXTA:HN%(S,SP)=B2%:RETURN
2950 S=SD%(SP):FORA=1TO4:GW(A)=LX%(A,S,SP):NEXTA:B2%=HN%(S,SP):RETURN
3000 GOSUB1235:GOSUB2900:FORA=1TO15:B$=" ":IFA<>SANDR%(S,A)=.THENB$="*"
3020 M$(A)=B$+SD$(A):NEXTA:PRINTD1$"";:A1%=17:A2%=2:GOSUB1240
3030 PRINTD1$D4$"[158]"NA$(SP)R$D4$"[158]IN "SD$(S):M$(16)="AUFENTHALT":MP=17:W=12
3043 MP=17:W=12:GOSUB1300:ONABS(WA=17)GOTO500:ONABS(WA<16ANDWA<>S)GOTO3057
3052 SL$=M$(16)+" ?":SL=1:GOSUB1650:ONABS(WE=.)GOTO3043:WA%(SP)=.:DA%(SP)=WE
3054 GOSUB3500:GOTO3144
3057 IFR%(S,WA)=.GOTO3043
3060 DA%(SP)=ABS(R%(S,WA)):KO=75+DA%(SP)*25:WA%(SP)=WA:ONABS(KA(SP)-KO>=.)GOTO3065
3063 SL$=LEFT$(M$(16),6)+" ?":GOSUB1500:ONABS(WA=2)GOTO3043:GOSUB1975:GOSUB3500:GOTO3144
3065 KA(SP)=KA(SP)-KO:ZZ=.:GOSUB1910:GOSUB3500:GOTO3144
3066 PRINTD2$"[145][145]";:A1%=36:A2%=2:GOSUB1240:PRINTD2$D4$"[145][153]"B1$":"NA$(B6%)" IN"
3067 PRINTD4$SD$(B1%)" AM"B3%"[157]."MO$(B4%)B5%:RETURN
3070 PRINT"";:A1%=36:A2%=MS*4-1:GOSUB1240
3090 PRINT"";:FORA=1TOMS:PRINTD4$""NA$(A)"[153]:":Q$="( BAHN )"
3093 IFR%(SD%(A),WA%(A))>.THENQ$="(SCHIFF)"
3100 IFWA%(A)=.THENPRINTTAB(3)"[159]"M$(16)"/"SD$(SD%(A)):GOTO3113
3110 PRINTTAB(29)"[145]"Q$R$D4$"[159]REISE "SD$(SD%(A))" ^ "SD$(WA%(A))
3113 PRINTD4$"SEIT";:IFJ%(A)=1THENPRINT" EINEM [159]TAG";:GOTO3140
3114 PRINTJ%(A)"[157][159] TAGEN";
3140 PRINT" UNTERWEGS    "R$"";:IFA<>MSTHENFORB=1TO36:PRINT"-";:NEXTB:PRINT
3141 NEXTA
3143 RETURN
3144 B1$="ABFAHRT":B1%=S:B6%=SP:B3%=TA%:B4%=MO:B5%=JA%:CC=SP+1:IFCC>MSTHENCC=1
3146 BA%(S,SP)=1:TT%=.:IFWA%(SP)=.THENB1$="AUFENT."
3147 GOSUB1235:GOSUB1234:ONABS(CC>1)GOTO3154
3148 GW%=INT(RND(0)*7)+1:TA%=TA%+1:GOSUB3165:ONABS(GW%=1)GOSUB9700
3149 ONABS(GW%=2)GOSUB6600:GOSUB1850:GOSUB6000
3151 IFWR%>.THENWR%=WR%-1:ONABS(WR%=.)GOSUB9500
3154 GOSUB6700:J%(CC)=J%(CC)+1:FORA=1TO15:FT%(A,CC)=FT%(A,CC)+1:NEXTA
3155 IFJ%(CC)=DA%(CC)THENGOSUB3090:GOTO3200
3156 CC=CC+1:IFCC>MSTHENCC=1:TT%=TT%+1:GOSUB3090:GOTO3148
3163 GOTO3154
3165 IFTA%>TA%(MO)THENTA%=1:MO=MO+1:EW%=3:IFMO=13THENJA%=JA%+1:MO=1
3169 IFEW%=3THENGOSUB9350:GOSUB1235:GOSUB1234
3170 EW%=.:RETURN
3200 SP=CC:J%(SP)=.:IFWA%(SP)<>.THENSD%(SP)=WA%(SP)
3203 B1$="ANKUNFT":B1%=SD%(SP):B6%=SP:B3%=TA%:B4%=MO:B5%=JA%:GOSUB3066
3204 GOSUB1993
3220 S=SD%(SP):B2%=HN%(S,SP):GOSUB1235:A1%=36:A2%=1:GOSUB1240
3225 PRINT""D4$"[159]  "NA$(SP)" IN "SD$(S)"  [146]"
3227 FORA=1TO7:GW(A)=.:KO(A)=.:NEXTA
3230 PRINT:A1%=36:A2%=1:GOSUB1240:PRINT"";:ONABS(BA%(S,SP)<>.)GOTO3240
3235 PRINTD4$"ERSTER BESUCH":FT%(S,SP)=0:GW=.:GOTO3425
3240 PRINTD4$"[158]LETZTER BESUCH VOR";:IFFT%(S,SP)=1THENPRINT" EINEM TAG":GOTO3250
3245 PRINTFT%(S,SP)"TAGEN"
3250 KO(1)=(AR%(2,S,SP)*GH%(2,S,SP)+AR%(3,S,SP)*GH%(3,S,SP))*FT%(S,SP)
3255 KO(2)=(AR%(1,S,SP)*GH%(1,S,SP))*FT%(S,SP):ZI=ZM%(.,S,SP)+ZM%(1,S,SP)
3260 AR=.:FORA=1TO5:AR=AR+AR%(A,S,SP):NEXTA:KO(4)=AR%(5,S,SP)*GH%(5,S,SP)*FT%(S,SP)
3270 KO(5)=(AR%(4,S,SP)*GH%(4,S,SP)+(40-S)*ZI*S)*FT%(S,SP)
3273 KO=.:FORA=1TO5:KO=KO+KO(A):NEXTA:KO(6)=.:FORA=1TO7:GW(A)=.:NEXTA
3280 ONABS(B2%<>.ANDFT%(S,SP)>4ANDFT%(S,SP)<91ANDZI>.ANDAR>.)GOTO3310
3285 A1%=36:A2%=2:GOSUB1240:PRINTD0$""D4$"[153]";
3286 IFB2%=.THENPRINT"SIE BESITZEN IN "SD$(S)" KEIN"R$D4$"HOTEL.":GOTO3300
3287 IFFT%(S,SP)<5THENPRINT"IN DER KURZEN ZEIT WURDEN KEINE"R$D4$"EINNAHMEN GEMACHT."
3288 ONABS(FT%(S,SP)<5)GOTO3300
3289 IFZI=.THENPRINT"SIE HABEN KEINE ZIMMER ZU VERMIE-"R$D4$"TEN.":GOTO3300
3290 IFAR=.THENPRINT"SIE HABEN KEIN[160]PERSONAL.":GOTO3300
3291 PRINT"[159]DER DIREKTOR IST MIT DEN EINNAHMEN"R$D4$"VERSCHWUNDEN."
3300 PRINT:KA(SP)=KA(SP)-KO:A1%=36:A2%=2:GOSUB1240:PRINTD1$"[145][145][145][145]";:FT%(S,SP)=.:GW=.
3305 PRINTD4$"[154]EINNAHMEN: KEINE"R$D4$"[150]AUSGABEN :";:IFKO=.THENPRINT" KEINE":GOTO3425
3306 PRINTKO"[157].-":GOTO3425
3310 R=1:ONABS(LX%(1,S,SP)<20ORAR%(2,S,SP)=.ORAR%(3,S,SP)=.)GOTO3330
3315 T=INT(S/4+.9)*(1.8+.8*(S>4ANDS<9)+1.1*(S>8ANDS<13)+1.25*(S>12))
3319 R=R+INT(LX%(1,S,SP)/50+.9):GW=(AR%(2,S,SP)+AR%(3,S,SP))/LX%(1,S,SP)+.7
3322 GW(1)=INT((AR%(2,S,SP)/AR%(3,S,SP))*LX%(1,S,SP)*FT%(S,SP)*GW*S*12*T)
3323 IFAR%(2,S,SP)>AR%(3,S,SP)*2ORGW<.9THENGW(1)=INT(GW(1)*.6)
3324 KO(1)=KO(1)+LX%(1,S,SP)*FT%(S,SP)*25*S:IFGW>1.2THENGW(1)=INT(GW(1)/2)
3330 GOSUB1230:ONABS(LX%(2,S,SP)=.ORAR%(1,S,SP)=.)GOTO3345:GW=AR%(1,S,SP)
3331 IFGW>LX%(2,S,SP)THENGW=LX%(2,S,SP)
3333 R=R+GW:IFAR%(1,S,SP)>=LX%(2,S,SP)THENR=R+1
3345 KO(2)=KO(2)+100*LX%(2,S,SP)*FT%(S,SP)*S
3350 ONABS(LX%(3,S,SP)=.ORAR%(2,S,SP)=.ORAR%(3,S,SP)=.)GOTO3360:GW=ZI/AR%(2,S,SP)
3355 GW(3)=INT(GW*(RND(0)*(180+110*S)+(240+130*S))*FT%(S,SP)*S)
3356 R=R+2:KO(3)=(7+15*S)*AR%(2,S,SP)*FT%(S,SP)*S:IFGW>2THENGW(3)=INT(GW(3)*.75)
3360 ONABS(LX%(4,S,SP)=.ORAR%(5,S,SP)=.)GOTO3370:GW=ZI/AR%(5,S,SP):A=FT%(S,SP)
3365 GW(4)=INT(GW*(RND(0)*(100+50*S)+(150+50*S))*A*S)
3366 KO(4)=KO(4)+100*FT%(S,SP)*S:R=R+2:IFGW>2ORGW<1.2THENGW(4)=INT(GW(4)/2)
3370 IFZI/2>AR%(4,S,SP)THENR=INT(R/2+.9)
3371 FORC=.TO1:IFZM%(C,S,SP)>.THENG(C)=INT((RND(0)*ZM%(C,S,SP)+3)*R/4)
3372 GOSUB6500:IFMI%(C,S,SP)/(45+(3-4*S>10)*S*(C+1))>W%THENG(C)=INT(G(C)/.75+.9)
3375 NEXTC:A1%=36:A2%=2:GOSUB1240:PRINTD0$D4$"[158]  IHRE G[STE:  [146]":FORA=.TO1
3381 T=INT(RND(0)*(FT%(S,SP)/2)+1+FT%(S,SP)/2)
3382 PRINTTAB(22)"[145][153]"MI$(A)": [159]"G(A)""
3383 GW(A+5)=MI%(A,S,SP)*G(A)*T:NEXTA
3387 A1%=36:A2%=11:GOSUB1240:GW(7)=.:KO(7)=.
3390 PRINTD0$""TAB(11)"-- [154]EINNAHMEN - [150]AUSGABEN --"
3395 FORA=1TO7:IFA=7THENPRINTD4$;:FORB=1TO34:PRINT"[153]=";:NEXTB:PRINT:GOTO3400
3397 KO(7)=KO(7)+KO(A):GW(7)=GW(7)+GW(A)
3400 PRINTD4$"[153]"LEFT$(LX$(A)+"    ",10)":"SPC(9)"[154].-"SPC(9)"[150].-[154]"
3405 A1%=23:A2=GW(A):GOSUB1200:PRINT"[150][145]":A1%=34:A2=KO(A):GOSUB1200:NEXTA
3410 A$="[154]GEWINN ":GW=GW(7)-KO(7):IFGW<.THENA$="[150]VERLUST"
3420 PRINTD4$A$":"ABS(GW)"[157].-"
3425 IFKR%(SP)>.THENZI%(SP)=INT(KR%(SP)*ZS%/100)*(INT(DA%(SP)/30)+1)
3430 KA(SP)=KA(SP)+GW-ZI%(SP):DA%(SP)=.:FT%(S,SP)=.:GOSUB1993:GOTO500
3500 FORD=1TO5:GW=((10*(D-6)*-1)+(US>3)*-10)*S
3510 ONABS(GW<=GH%(D,S,SP)ORAR%(D,S,SP)=.)GOTO3565:GOSUB3600:ONABS(WA=2)GOTO3565
3560 GH%(D,S,SP)=GW
3565 NEXTD
3595 RETURN
3600 IFGH%(D,S,SP)=.THENA%(D,S,SP)=D:B%(D,S,SP)=S:WA=2:RETURN
3605 E2%=SP:GOSUB1450
3607 PRINTTAB(7)"[153]IHRE "AR$(D)" FORDERN"
3610 PRINTTAB(5)"EINE GEHALTSERH\HUNG AUF"GW"[157].-"
3620 PRINTTAB(5)"[153]STIMMEN SIE ZU ?     JA  [146] NEIN ":PO=52768:W=1:P=PO:GOSUB1515
3630 IFWA=2THENA%(D,S,SP)=D:B%(D,S,SP)=S
3640 RETURN
3800 FORA=1TOMS:NA$(A)=LEFT$(NA$(A)+"         ",15):FORB=1TO15
3810 CC=ASC(MID$(NA$(A),B,1)):POKE51446+B+15*A,CC:NEXTB,A
3900 RETURN
4000 GOSUB1235:GOSUB1000:GOSUB4005:GOSUB4020:GOTO4030
4005 PRINTD0$;:A1%=23:A2%=7:GW=A3%:GOSUB1240:A3%=GW
4007 PRINTD0$""TAB(7+A3%)"[153] AKTIENKURSE [146]":PRINTTAB(7+A3%);
4008 FORA=1TO13:PRINT"-";:NEXTA:PRINTR$"[145]"
4010 FORA=1TO5:PRINTTAB(A3%)D4$"[159]"F$(A):PRINTTAB(A3%+15)"[145]:"SPC(6)".-"
4015 A1%=22+A3%:IFA=5THENA2=US:GOTO4017
4016 A2=FL%(A)
4017 GOSUB1200:NEXTA:RETURN
4020 PRINTD0$;:A1%=12:A2%=7:A3%=24:GOSUB1240:PRINTD0$TAB(25)"[144][178][157][177]"
4021 PRINTD0$"[171]"TAB(38)"[179]":PRINTTAB(28)"[153] BESITZ [146]":PRINTTAB(28);
4022 FORA=1TO8:PRINT"-";:NEXTA:PRINT
4023 FORA=1TO5:PRINTTAB(33)"[153]STK.":A1%=32:A2=F%(A,SP):GOSUB1200
4024 NEXTA:A3%=0:RETURN
4030 GOSUB1600:GOSUB4130:M$(1)="ANKAUF":M$(2)="VERKAUF":M$(3)="KREDITE":MP=4
4040 W=8:GOSUB1300:IFWA=4THENGOSUB1235:GOSUB1233:RETURN
4050 GW=WA:SL$=M$(GW)+" ?":ONGWGOSUB4060,4060,4170
4055 GOTO4030
4060 FORA=1TO5:M$(A)=F$(A):NEXTA:MP=6:W=12
4065 GOSUB1300:IFWA=6THENRETURN
4070 W=US:IFWA<5THENW=FL%(WA)
4090 SL=3:GOSUB1650:ONABS(WE=.)GOTO4060
4100 IFGW=2THENWE=WE*-1
4103 IFF%(A,SP)+WE>32000ORF%(WA,SP)+WE<0THENGOSUB1750:GOTO4090
4104 KO=W*WE:KA(SP)=KA(SP)-KO:F%(WA,SP)=F%(WA,SP)+WE
4107 GOSUB1000:GOSUB4020:IFGW=2THENKO=ABS(KO):ZZ=1
4110 GOSUB1910:RETURN
4130 PRINTD1$;:A1%=19:A2%=3:GOSUB1240
4135 PRINTD1$D4$"[158]KREDIT  :"SPC(6)".-[153]"
4140 A1%=18:A2=KR%(SP):GOSUB1200:PRINTD4$"[158]ZINSSATZ:"SPC(6)" %[153]"
4150 A2=ZS%:GOSUB1200:PRINTD4$"[158]ZINSEN  :"SPC(6)".-[153]"
4160 A2=ZI%(SP):GOSUB1200:RETURN
4170 GOSUB1600:GOSUB4130:M$(1)="TILGEN":M$(2)="AUFNEHMEN":W=9:MP=3
4180 GOSUB1300:IFWA=3THENRETURN
4190 SL$=M$(WA)+" ?"
4193 SL=4:GOSUB1650:ONABS(WE=.)GOTO4180
4195 IFWA=1THENWE=WE*-1
4197 IFKR%(SP)+WE>32000ORKR%(SP)+WE<0THENGOSUB1750:GOTO4180
4210 KA(SP)=KA(SP)+WE:KR%(SP)=KR%(SP)+WE:GOSUB1000:PRINTD0$TAB(25)"[144][178]"
4220 GOSUB4130:GOTO4180
6000 IFXY%=.THENRETURN
6010 E2%=YZ%:GOSUB1450:FS%=B4%
6020 IFXY%=2THENWG=25000*VW%+5000*INT(RND(0)*5+1)
6030 PRINTD4$"[153]IHR ";:B4%=VW%:GOSUB1800:PRINTTAB(28)"[145]WURDE F]R"
6035 PRINT""WG"[157].- VERKAUFT.":KA(YZ%)=KA(YZ%)+WG
6040 GOSUB1993:GOSUB1235:GOSUB1234:XY%=.:B4%=FS%:RETURN
6500 W%=.:FORB=1TO4:IFGW(B)>.THENW%=W%+1
6510 NEXTB:RETURN
6600 FORD=1TOMS:ONABS(KA(D)>-150000)GOTO6640:S=.:GW=.:WW=.:PP=.
6605 S=S+1:IFF%(S,D)>.THENKA(D)=KA(D)+F%(S,D)*FL%(S):F%(S,D)=.:GW=GW+1
6607 ONABS(KA(D)<-150000ANDS<4)GOTO6605
6608 FS%=.:FORT=1TO15:IFHN%(T,D)=1THENFS%=FS%+1
6610 NEXTT:ONABS(KA(D)>-150000ORFS%<2ORPP=15)GOTO6617
6615 PP=PP+1:ONABS(PP=SD%(D))GOTO6608:S=PP:SP=D:ZZ=2:B2%=HN%(S,SP):GOSUB7845:GOTO6608
6617 ONABS(GW=.ANDWW=.)GOTO6640
6620 E2%=D:GOSUB1450:PRINTD4$"[159]SIE VERKAUFTEN WEGEN BANKROTTS:"
6625 IFGW>.THENPRINTD4$"[209] EINIGE IHRER AKTIEN"
6630 IFWW>.THENPRINTD4$"[209]"WW"IHRER HOTELS"
6635 SA=1:GOSUB1993:GOSUB1235:GOSUB1234
6640 NEXTD:RETURN
6700 IFTT%=2THENRETURN
6705 H=.:FORD=1TO5:C=SD%(CC):E3%=A%(D,C,CC):E1%=B%(D,C,CC)
6707 ONABS(E1%>.ANDE3%>.)GOSUB6710:NEXTD:IFH=1THENGOSUB1235:GOSUB1234
6708 RETURN
6710 E2%=CC:GOSUB1450:GOSUB9770:A%(D,C,CC)=.:B%(D,C,CC)=.:E3%=.:E1%=.:GOSUB1993:H=1:RETURN
6800 T=FNJOY(2):IFT<>1THENRETURN
6805 T=.:GETA$:IFA$="[145]"THENT=2:RETURN
6810 IFA$=""THENT=3:RETURN
6815 IFA$="[157]"THENT=4:RETURN
6817 IFA$=""THENT=5:RETURN
6820 IFA$=CHR$(13)THENT=6:RETURN
6825 T=1:RETURN
7000 GOSUB1600:M$(1)="GRUNDST]CK":M$(2)="MIETPREISE":M$(3)="PERSONAL"
7020 M$(4)="BESONDERES":M$(5)="VERKAUF":MP=6:W=10:IFB2%=1THENM$(1)="ERWEITERN"
7090 GOSUB1300:IFWA=6THENRETURN
7100 ONWAGOSUB7125,7350,7450,7570,7845:GOTO7000
7125 IFB2%=1THENGOSUB7223:RETURN
7130 GOSUB1600:PRINTD1$;:A1%=26:A2%=3:GOSUB1240:PRINTD1$D4$"[153]DER KAUF DES "M$(1)"S"
7140 KO=45000+5000*S:PRINTD4$"KOSTET IN "SD$(S)R$""KO"[157].-"
7150 IFKA(SP)=KO<.THENGOSUB1730:RETURN
7160 SL$=M$(1)+" OK. ?":GOSUB1500:IFWA=2THENRETURN
7200 KA(SP)=KA(SP)-KO:WT(S,SP)=KO/2:FORA=.TO1:QM%(A,S,SP)=300:NEXT:B2%=1:GOSUB1233:RETURN
7223 GOSUB1600:G(.)=.:G(1)=.
7225 PRINTD1$;:A1%=25:A2%=3:GOSUB1240
7227 PRINTD1$D4$"[153]<>-PREIS:"SPC(6)".-":PQ%=20+INT(S*QP%/2)
7230 M$(1)="<> KAUFEN":A1%=18:A2=PQ%:GOSUB1200:FORA=.TO1:M$(A+2)=LX$(A+5)
7235 P%(A)=200+ZP%*S*(A+1):PRINTD4$"[153]"M$(A+2)"[157][157].:"SPC(6)".- "5+15*(A+1)"[157][157][157][157]=<>"
7237 A2=P%(A):GOSUB1200:NEXTA
7238 MP=4:W=9:GOSUB1300:ONABS(WA=4)GOTO7325:ONWAGOTO7260,7280,7280
7255 :
7260 SL$="WIEVIEL <> ?":SL=3:GOSUB1650:ONABS(WE=.)GOTO7238
7263 IFQM%(.,S,SP)+WE>2000THENGOSUB1750:GOTO7238
7265 KO=WE*PQ%:KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+INT(KO/2):FORA=0TO1
7270 QM%(A,S,SP)=QM%(A,S,SP)+WE:NEXTA:GOSUB1230:GOSUB1233:ZZ=.:GOSUB1910:GOTO7238
7275 :
7280 SL$=MI$(WA-2)+"ZIMMER ?":SL=2:GOSUB1650:ONABS(WE=.)GOTO7238
7283 W%=WA-2:IFQM%(1,S,SP)-WE*(5+15*(W%+1))<.THENGOSUB1750:GOTO7238
7285 QM%(1,S,SP)=QM%(1,S,SP)-WE*(5+15*(W%+1))
7287 ZM%(W%,S,SP)=ZM%(W%,S,SP)+WE:G(W%)=G(W%)+WE
7290 KO=P%(W%)*WE:KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+INT(KO/2):GOSUB1230:GOSUB1233
7295 GOSUB1910:GOTO7238
7320 :
7325 FS%=G(0)*8+G(1)*9:IFFS%=.THENRETURN
7326 GOSUB1600:A2=.:QF=QM%(1,S,SP):QF=QF-FS%:IFQF<.THENA2=A2-QF:QF=.
7327 PRINTD1$;:IFA2>0THENPRINT"[145]";
7328 A1%=25:A2%=3:GOSUB1240:PRINTD1$"";:IFA2>0THENPRINT"[145]";
7329 PRINTD4$"[158]MELDUNG:"
7330 PRINTD4$"[153]SIE MU_TEN NOCH"SPC(5)"<>":PRINTD4$"[153]F]R FLURE ANLEGEN"
7331 GW=A2:A1%=22:A2=FS%:PRINT"[158][145][145]":GOSUB1200:PRINT
7332 A2=GW:IFA2=.THENPRINTTAB(25)"[145].":GOTO7335
7333 PRINT"[144][221] [153]UND     <> DAZU KAUFEN. [144][221]":PRINT"[173]";:FORA=1TO25:PRINT"[192]";:NEXTA:PRINT"[189]"
7334 A1%=10:PRINT"[158][145][145]":GOSUB1200:GOSUB6500:IFW%=4THENPRINTD1$"[145][144][171]"TAB(27)"[178]"
7335 KO=A2*PQ%:QM%(.,S,SP)=QM%(.,S,SP)+A2:QM%(1,S,SP)=QF
7337 KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+INT(KO/2)
7340 IFKO=.THENGOSUB1993:GOTO7343
7341 GOSUB1910
7343 ONABS(W%<4)GOSUB1870:GOSUB1600:GOSUB1233:RETURN
7350 GOSUB1600
7353 PRINTD1$"";:A1%=21:A2%=2:GOSUB1240:PRINTD1$;"":SL$="MIETE ?"
7355 FORA=0TO1:PRINTD4$"[153]"LEFT$(SL$,6)MI$(A)":    .-":M$(A+1)=LX$(A+5)
7360 A1%=20:A2=MI%(A,S,SP):GOSUB1200:NEXTA:MP=3:W=9
7370 GOSUB1300
7375 IFWA=3THENGOSUB1100:RETURN
7380 SL=2:GOSUB1650:ONABS(WE=.)GOTO7370
7383 MI%(WA-1,S,SP)=WE
7390 GOTO7353
7400 PRINTD1$"[145][145]";:A1%=22:A2%=5:B$="    STK. ":IFGW=3THENB$="     .- ":A1%=21
7405 GOSUB1240:PRINTD1$"[145]";:GOSUB6500
7406 ONABS(W%<3)GOTO7409
7407 PRINTD1$"[145][145][144][171]"TAB(A1%+2);:IFW%=3THENPRINT"[178]":GOTO7409
7408 PRINT"[171][145]"
7409 FORA=1TO5:PRINTD4$"[153]"AR$(A)"[159]:"B$
7410 A2=AR%(A,S,SP):IFGW=3THENA2=GH%(A,S,SP)
7420 A1%=18-(GW>2)*2:GOSUB1200:NEXTA:RETURN
7450 GOSUB1600
7460 M$(1)="EINSTELLEN":M$(2)="ENTLASSEN":M$(3)="GEH[LTER":MP=4
7470 W=10:GOSUB1300:IFWA=4THENRETURN
7475 C$=M$(WA)+" ?":FORA=1TO5:M$(A)=AR$(A):NEXTA:MP=6:GW=WA:ONGWGOSUB7500,7500,7530
7490 GOSUB1870:GOSUB1600:GOSUB6500:ONABS(W%>2)GOSUB1100:GOTO7460
7500 GOSUB7400:SL$=C$
7505 W=11:GOSUB1300:IFWA=6THENRETURN
7510 SL=1:GOSUB1650:IFGW=2THENWE=WE*-1
7513 ONABS(WE=.)GOTO7505:GW%=.:FORC=1TO4:GW%=GW%+AR%(WA,S,SP):NEXTC
7514 IFAR%(WA,S,SP)+WE<0ORGW%+WE>180THENGOSUB1750:GOTO7505
7515 KO=ABS(WE)*10*(GW-1):AR%(WA,S,SP)=AR%(WA,S,SP)+WE
7520 KA(SP)=KA(SP)-KO:IFKO>.THENGOSUB1910:GOSUB1000
7525 GOTO7500
7530 GOSUB7400
7533 W=11:GOSUB1300:IFWA=6THENRETURN
7540 SL$="TAGESGEHALT ?":SL=2:GOSUB1650:ONABS(WE=.)GOTO7533
7545 GH%(WA,S,SP)=WE:GOTO7530
7570 IFB2%=.THENRETURN
7575 GOSUB1600:FORA=1TO4:M$(A)=LX$(A):NEXTA:MP=5:W=13:GOSUB1300:IFWA=5THENRETURN
7595 ONABS(LX%(WA,S,SP)>.ANDWA=4)GOTO7575
7600 SL$=LX$(WA)+" OK. ?":ONWAGOSUB7610,7700,7760,7800:GOTO7575
7610 IFGW(1)>.GOTO7640
7611 GOSUB1600:PRINTD1$;:A1%=19:A2%=3:GOSUB1240:PRINTD1$D4$"[153]DIE EINRICHTUNG"
7615 PRINTD4$"EINES "LX$(1)"S":PRINTD4$"KOSTET:"SPC(8)".-[158]":KO=25000+5000*S
7620 A1%=18:A2=KO:GOSUB1200:GOSUB1500:IFWA=2THENRETURN
7630 KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+KO/2:GW(1)=20:GOSUB1233:RETURN
7640 GOSUB1600
7643 PRINTD1$"";:A1%=21:A2%=2:GOSUB1240:PRINTD1$D4$"[153]GR\SSE DES RESTAU-"
7645 PRINTD4$"RANTS"SPC(5)"<>.[158]":A1%=12:A2=GW(1):GOSUB1200
7650 M$(1)="ERWEITERN":M$(2)="VERKLEINERN":MP=3:W=11:GOSUB1300:IFWA=3THENRETURN
7660 SL=2:SL$=M$(WA)+" ?":GOSUB1650:IFWE=.GOTO7650
7670 IFWA=2THENWE=WE*-1
7675 KO=(40+S*QP%)*WE:IFGW(1)+WE<.ORGW(1)+WE>200ORKA(SP)-KO<.THENGOSUB1750:GOTO7643
7677 KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+INT(KO/2)
7685 GW(1)=GW(1)+WE:GOSUB1000:ZZ=ABS(WA=2):KO=ABS(KO):GOSUB1910:GOTO7643
7700 GOSUB1600
7705 PRINTD1$"";:A1%=30:A2%=2:GOSUB1240
7710 PRINTD1$D4$"[153]EIN AUFZUG KOSTET:"SPC(8)".-[158]":A2=10000+5000*S:A1%=29
7715 GOSUB1200:PRINTD4$"[153]SIE BESITZEN BEREITS [158]"GW(2)"STK."
7717 IFGW(2)=4THENGOSUB1993:RETURN
7720 SL$=LX$(WA)+" ?":SL=.:GOSUB1650:IFWE=.THENRETURN
7730 KO=A2*WE:K=KO:IFGW(2)+WE>4ORKO>KA(SP)THENGOSUB1750:GOTO7705
7740 KA(SP)=KA(SP)-K:WT(S,SP)=WT(S,SP)+KO/2:GW(2)=GW(2)+WE:GOSUB1233:GOSUB1910:GOTO7705
7760 GOSUB1600:PRINTD1$;:A1%=25:A2%=3:GOSUB1240
7765 PRINTD1$D4$"[153]"LX$(3)":":PRINTD4$"[153]"AR$(2)":";:IFAR%(2,S,SP)=.THENPRINT"KEINE":GOSUB1993:RETURN
7770 PRINTAR%(2,S,SP):KO=(7+15*S)*AR%(2,S,SP):PRINTD4$"KOSTEN PRO TAG:"KO"[157].-"
7785 IFGW(3)=1THENGOSUB1993:RETURN
7790 GOSUB1500:IFWA=2THENRETURN
7795 GW(3)=1:KA(SP)=KA(SP)-KO:GOSUB1233:RETURN
7800 GOSUB1600:PRINTD1$;:A1%=17:A2%=3:GOSUB1240:PRINTD1$D4$"[153]DIE EINRICHTUNG"
7810 PRINTD4$"EINER "LX$(4)
7830 PRINTD4$"KOSTET"SPC(7)".-[158]":KO=10000+5000*S:A1%=16:A2=KO:GOSUB1200
7835 GOSUB1500:IFWA=2THENRETURN
7840 GW(4)=1:KA(SP)=KA(SP)-KO:WT(S,SP)=WT(S,SP)+KO/2:GOSUB1233:RETURN
7845 IFB2%=.THENRETURN
7858 KO=WT(S,SP):ONABS(ZZ=2)GOTO7863:GOSUB1600
7860 PRINTD1$"";:A1%=31:A2%=1:GOSUB1240:PRINTD1$D4$"[158]WERT IHRES HOTELS:"SPC(9)".-"
7862 A1%=30:A2=KO:GOSUB1200:SL$=LEFT$(M$(5),8)+"OK.?":GOSUB1500:IFWA=2THENRETURN
7863 FORA=SPTOSP:HN%(S,SP)=.:E1%=S:FS%=.:GOSUB9910:NEXTA:KA(SP)=KA(SP)+KO:WT(S,SP)=.
7865 WW=WW+1:IFZZ<>2THENGOSUB2950:GOSUB1235:GOSUB1233:ZZ=1:GOSUB1910
7880 RETURN
7900 IFAT%(1)<>TA%ORAM%(1)<>MOORAJ%(1)<>JA%ORS<>AO%(1)THENGOSUB9280:RETURN
7905 GOSUB1235:PRINT"";:A1%=36:A2%=7:GOSUB1240
7906 PRINT"[153]";:SL$=" AUF DEM "+M$(3)+" VON "+SD$(S)+": ":GOSUB2500
7908 PRINT"";:FORA=1TO36:PRINT"-";:NEXTA
7910 PRINTR$D4$"[158]ES STEHT ZUM VERKAUF:"R$D4$;:B4%=OA%(1):GOSUB1800
7911 PR=20000*OA%(1)+10000*INT(RND(0)*3+1):P1=PR
7913 PRINTR$D4$"NEUPREIS:"P1"[157].-":CC=.
7914 D=1:FS%=INT(RND(0)*18)+1
7915 ONABS(D=4)GOTO7985:PRINTR$D1$"[145][145][145][145][145][145]";:A1%=36:A2%=3:GOSUB1240
7916 PRINTD1$D4$"[145][145][145][145][145][159]LETZTES GEBOT VON ";:IFCC=1THENGOSUB1470:PRINTSL$:GOTO7918
7917 PRINT"FSH"
7918 PRINTD4$"[158]GEBOT   :"PR"[157].- ZUM"D"[157]."
7921 PRINTD4$"[159]";:IFCC=.THENPRINTNA$(SP):GOTO7923
7922 PRINT"FSH"
7923 PRINTTAB(18)"[145]:";:A=.:IFKA(SP)<PRANDCC=.THENPRINT"[157] IST PLEITE !":GOTO7999
7925 A=A+1:PRINT".";
7927 IFCC=1ANDFS%>15THENFORW=1TO50:NEXTW:GOTO7935
7928 GOSUB6800:ONABS(T=6ANDCC=0ORA=FS%ANDCC=1)GOTO7970
7935 IFA=18THEND=D+1:GOTO7915
7949 GOTO7925
7970 PR=PR+5000:IFCC=1THENCC=.:GOTO7914
7980 CC=1:GOTO7914
7985 PRINTD1$"[145][145][145][145][145][145]";:A1%=36:A2%=3:GOSUB1240:PRINTD1$"[145][145][145][145][145][145]"
7987 W=.:PRINTD4$"[153]DAS AUTOMOBIL ";:B4%=OA%(1):GOSUB1800:A1%=25:GOSUB1237
7990 PRINTD4$"[153]WURDE VON ";:IFCC=.THENPRINT"FSH GEKAUFT.":GOTO7999
7991 GOSUB1470:PRINTSL$" GEKAUFT."R$D4$"[153]PREIS:"PR"[157].-":KA(SP)=KA(SP)-PR
7992 A=INT(RND(0)*5)+1:IFPEEK(52000+OA%(1))=SPTHENA=1:GOTO7996
7993 IFPEEK(52000+OA%(1))=.THENPOKE52000+OA%(1),SP:GOTO7999
7994 ONABS(A<5)GOTO7996:A1%=17:GOSUB1237:PRINT"[144][221] [159]DAS AUTO WURDE VON"D$
7995 PRINT"[145]"TAB(22)SL$TAB(38)"[144][221]":A1%=25:GOSUB1237:PRINT"[221] [159]GESTOHLEN."D$TAB(38)"[144][221]":GOTO7998
7996 PRINT"[144][221] [159]EIN IRRER KLAUTE IHR AUTO UND BAU- [144][221]"
7997 PRINT"[221] [159]TE EINEN  UNFALL:  TOTALSCHADEN... [144][221]"
7998 PRINT"[144][173]";:FORA=1TO36:PRINT"[192]";:NEXTA:PRINT"[189]"
7999 CC=.:FORA=1TO20:IFPEEK(52000+A)=.THENCC=CC+1
8000 NEXTA:ONABS(CC=.)GOTO8010
8001 GOSUB1285:GOTO9260
8010 PRINT"[147]":POKE53280,0:POKE53281,0:FORA=55496TO55535:POKEA,1:NEXTA
8020 FORA=55738TO55775:POKEA,1:NEXTA:POKE53272,21:POKE56576,151:POKE648,4:GOSUB3800
8030 PRINTD1$"[144]LOAD"CHR$(34)"HOTEL.VICTORY"CHR$(34)",8"CHR$(141)"RUN[145][145][145][145][145][145][145][145]"
8040 POKE631,13:POKE632,13:POKE198,2:POKE51456,255:END
8500 ONABS(PEEK(51456)=1)GOSUB2060:IFPEEK(51456)=.THENSL$="SICHERN ?":GOSUB1500:IFWA=2THENRETURN
8530 PRINTD2$"[145]";:A1%=20:A2%=2:GOSUB1240:PRINTD2$D4$"[158]DISKETTE  EINLEGEN":GOSUB1993
8535 ONABS(PEEK(51456)=1)GOTO8617
8541 OPEN1,8,15,"I":PRINT#1,"M-R"CHR$(250)CHR$(2)CHR$(3):GET#1,A$,D$,D$
8542 A=ASC(A$+CHR$(0))+256*ASC(D$+CHR$(0)):CLOSE1
8543 IFA<30THENSL$="DISK FULL":GOSUB8700:GOSUB1993:GOTO8500
8544 PRINTD2$D4$"SAVING GAME ...   ":OPEN4,8,4,"@:HOTEL...BY 'FSH',S,W"
8545 GOSUB8680:IFGW<>.THENGOSUB1993:GOSUB8800:CLOSE1:CLOSE4:GOTO8500
8546 PRINT#4,TA%:PRINT#4,MO:PRINT#4,JA%:PRINT#4,MS:PRINT#4,WR%
8547 PRINT#4,SP:FORA=1TO4:PRINT#4,FL%(A):NEXTA:PRINT#4,US:PRINT#4,ZS%:PRINT#4,QP%:PRINT#4,ZP%
8548 PRINT#4,EA:PRINT#4,WX:PRINT#4,XA:PRINT#4,MA:PRINT#4,JX:FORA=52001TO52020:PRINT#4,PEEK(A):NEXTA
8550 PRINT#4,I%:PRINT#4,O%:PRINT#4,XY%:PRINT#4,YZ%:PRINT#4,VW%:PRINT#4,WG
8555 FORA=1TO3:PRINT#4,AT%(A):PRINT#4,AM%(A):PRINT#4,AJ%(A):PRINT#4,OA%(A):PRINT#4,AO%(A):NEXTA
8566 FORA=1TOMS:PRINT#4,NA$(A):PRINT#4,KA(A):PRINT#4,WA%(A):PRINT#4,SD%(A)
8567 PRINT#4,DA%(A):PRINT#4,J%(A):PRINT#4,KR%(A):FORB=1TO5:PRINT#4,F%(B,A):NEXTB,A
8575 FORA=1TO15:FORB=1TOMS:FORC=0TO1:PRINT#4,QM%(C,A,B):PRINT#4,ZM%(C,A,B)
8580 PRINT#4,MI%(C,A,B):NEXTC
8585 FORC=1TO4:PRINT#4,LX%(C,A,B):NEXTC
8590 FORC=1TO5:PRINT#4,AR%(C,A,B):PRINT#4,GH%(C,A,B):PRINT#4,A%(C,A,B):PRINT#4,B%(C,A,B):NEXTC
8600 PRINT#4,FT%(A,B):PRINT#4,BA%(A,B):PRINT#4,HN%(A,B):PRINT#4,WT(A,B)
8605 NEXTB,A:CLOSE4:CLOSE1:GOSUB8680:CLOSE1:GOSUB1993:GOSUB1600:RETURN
8617 PRINTD2$D4$"LOADING GAME ...   "
8620 OPEN4,8,4,"HOTEL...BY 'FSH',S,R":GOSUB8680:IFGW<>0THENGOSUB1993:CLOSE4:CLOSE1:GOTO8500
8625 INPUT#4,TA%,MO,JA%,MS,WR%,SP:FORA=1TO4:INPUT#4,FL%(A):NEXTA:INPUT#4,US,ZS%,QP%,ZP%
8627 INPUT#4,EA,WX,XA,MA,JX:FORA=52001TO52020:INPUT#4,D:POKEA,D:NEXTA
8629 INPUT#4,I%,O%,XY%,YZ%,VW%,WG
8635 FORA=1TO3:INPUT#4,AT%(A),AM%(A),AJ%(A),OA%(A),AO%(A):NEXTA
8645 FORA=1TOMS
8646 INPUT#4,NA$(A),KA(A),WA%(A),SD%(A),DA%(A),J%(A),KR%(A)
8647 FORB=1TO5:INPUT#4,F%(B,A):NEXTB,A
8655 FORA=1TO15:FORB=1TOMS:FORC=0TO1:INPUT#4,QM%(C,A,B),ZM%(C,A,B),MI%(C,A,B):NEXTC
8660 FORC=1TO4:INPUT#4,LX%(C,A,B):NEXTC
8665 FORC=1TO5:INPUT#4,AR%(C,A,B),GH%(C,A,B),A%(C,A,B),B%(C,A,B):NEXTC
8670 INPUT#4,FT%(A,B),BA%(A,B),HN%(A,B),WT(A,B):NEXTB,A:CLOSE4:CLOSE1
8675 GOSUB8680:CLOSE1:IFGW<>0THENGOSUB1993:GOTO8500
8677 GOSUB8800:RETURN
8680 OPEN1,8,15:INPUT#1,GW,SL$,C,D
8700 PRINTD2$D4$""SL$
8720 RETURN
8800 GOSUB1930:D$=LEFT$(D$,22):IFPEEK(51456)=1THENA1%=23:GOSUB1237
8810 PRINTD2$"[145]";:FORCC=1TO4:PRINTD$:NEXTCC:PRINT"":RETURN
9000 GOSUB1235:A1%=36:A2%=21:GOSUB1240
9005 GOSUB1470:PRINT""D4$"[153] "M$(1)" VON "SL$": [146]"
9010 WW=.:FORA=1TO20:ONABS(PEEK(52000+A)<>SP)GOTO9030:PRINTD4$"[158]#[154]";:IFA<10THENPRINT" ";
9016 PRINTA":";:B4%=A:GOSUB1800:WW=WW+1
9030 NEXTA:M$(1)="VERKAUF":MP=2:W=7
9035 GOSUB1300:ONABS(WW=.ANDWA=1)GOTO9035:ONABS(WA=2)GOTO9060
9037 SL$="WAGENNUMMER ?":SL=1
9040 GOSUB1650:IFWE<1ORWE>20ORPEEK(52000+WE)<>SPTHENGOSUB1750:GOTO9060
9050 OA%(3)=WE:I%=3:O%=SP:POKE52000+WE,.                               
9060 GOSUB1235:GOSUB1233:RETURN
9100 GOSUB2900:SD%(SP)=S:GOSUB1600:M$(1)="SPEICHERN":M$(2)="HOTELS"
9105 M$(3)="AUTOM[RKTE":MP=4
9110 W=10:GOSUB1300:IFWA=4THENRETURN
9120 GW=.5:ONWAGOSUB8500,9130,9280:GOTO9110
9130 GOSUB1235:PRINT"":A1%=36:A2%=18:GOSUB1240
9140 PRINTD0$D4$"[159]STADT"SPC(9)"EZ   DZ [145]PERSONAL/[159][157][157][157]STERNE"
9150 PRINT"";:FORA=1TO36:PRINT"=";:NEXTA:PRINT:FORA=1TO15:IFA=STHENPRINT"";
9155 PRINT"[159]";:IFHN%(A,SP)=1THENPRINT"";
9160 PRINTD4$LEFT$(SD$(A)+"       ",11)":[158]"
9170 FORB=.TO1:A1%=19+5*B:A2=ZM%(B,A,SP):GOSUB1200:NEXTB:B=1:A2=0
9190 A2=A2+AR%(B,A,SP):B=B+1:ONABS(B<6)GOTO9190
9195 A1%=30:GOSUB1200
9240 W%=0:PRINTTAB(32)"[145][159]";:FORB=1TO4:IFLX%(B,A,SP)<>0THENPRINT"*";:W%=W%+1
9245 NEXTB:IFW%=0THENPRINT"----";
9250 PRINT:NEXTA
9260 GOSUB1993:GOSUB1235:GOSUB1233:RETURN
9280 GOSUB1235:PRINTD0$;:A1%=36:A2%=13:GOSUB1240:PRINTD0$TAB(14)"[159] "M$(3)": [146]"
9283 PRINTTAB(14);:FORA=1TO12-(GW=.5):PRINT"-";:NEXTA:PRINT:FORB=1TO3
9285 PRINTD4$"[153]"B"[157].)TERMIN:[159]":A1%=17:A2=AT%(B):GOSUB1200:PRINTTAB(17)"[145]."MO$(AM%(B))AJ%(B)
9290 PRINTTAB(10)"[158]ORT:[159] "SD$(AO%(B)):PRINTTAB(4);:IFI%=BTHENPRINT"";
9295 B4%=OA%(B):GOSUB1800:PRINT
9300 NEXTB:GOTO9260
9350 IN=INT(RND(0)*35)-10:IN=IN+IN%:IN%=.
9360 GOSUB1235:PRINT"":A1%=36:A2%=1:GOSUB1240
9363 PRINT""D4$"[158]  PREISE IM "MO$(MO)JA%"[157]  [146]"
9365 FORA=1TO4:B=IN/100:FL%(A)=FL%(A)+FL%(A)*B+(10-FL%(A))*ABS(FL%(A)<10)
9370 NEXTA:QP%=QP%+QP%*B+(10-QP%)*ABS(QP%<10)
9371 ZP%=ZP%+ZP%*B+(10-ZP%)*ABS(ZP%<10):US=US*100:US=US+INT(US*B):US=US/100
9372 ZS%=ZS%+ZS%*B+(5-ZS%)*ABS(ZS%<5)
9373 IFQP%>50THENQP%=50
9375 IFZP%>75THENZP%=75
9378 IFZS%>9THENZS%=9
9380 IFUS<.5THENUS=.5
9387 A3%=8:GOSUB4005:PRINT:A1%=23:A2%=5:A3%=8:GOSUB1240
9390 PRINTD1$"[145][145]"TAB(11)"[153]ZINSSATZ"SPC(4)":"SPC(7)"%[158]":A1%=30:A2=ZS%:GOSUB1200
9395 PRINTTAB(11)"[153]INFLATION   :"SPC(7)"%[158]":A2=IN:GOSUB1200
9400 PRINTTAB(12)"[153]<>-ZUSCHLAG:"SPC(7)"%[158]":A2=QP%:GOSUB1200
9410 PRINTTAB(11)"[153]ZI.-ZUSCHLAG:"SPC(7)"%[158]":A2=ZP%:GOSUB1200:PRINT
9415 WR%=.:FORA=1TO4:IFFL%(A)>1000THENWR%=WR%+1
9417 NEXTA:IFUS>3.1THENWR%=WR%+1
9420 GOSUB1993:RETURN
9500 GOSUB1235:PRINTD0$"":A1%=36:A2%=6:GOSUB1240:PRINTD0$"";
9505 PRINTTAB(10)"[158]   GELDENTWERTUNG   [146]":PRINTTAB(10);:FORA=1TO20:PRINT"=";:NEXTA
9510 PRINTR$TAB(13)"[153]GELDWERT  2:5":IN=-40:GOSUB1993
9520 GOSUB1235:PRINT"":A1%=36:A2%=1:GOSUB1240:PRINT""D4$"[158]    NEUE PREISE:   [146]"
9605 GOSUB9365:KA(SP)=INT(KA(SP)/5):GOSUB1235:GOSUB1234:RETURN
9700 GOSUB1235:PRINTD0$"":A1%=36:A2%=10:GOSUB1240:KO=.:PRINTD0$"[153]";
9705 A$=STR$(TA%)+"."+MO$(MO)+STR$(JA%):PRINTTAB((39-LEN(A$))/2)A$"[158]"
9710 E%=INT(RND(0)*20)+1:E1%=INT(RND(0)*15)+1:E2%=INT(RND(0)*MS)+1:SP=E2%
9715 ONABS(E%>11)GOTO9730
9720 ONE%GOSUB9760,9890,9920,9950,9960,9980,9990,10110,10170,10180,10190:GOTO9740
9730 ONE%-11GOSUB10200,10213,10230,10240,10250,10280,10130,10130,10130
9737 ONABS(KO=.)GOTO9740:SL$="KOSTEN"+STR$(ABS(KO))+".-":GOSUB2500:KA(E2%)=KA(E2%)-KO
9740 GOSUB1993:GOSUB1235:GOSUB1234:RETURN
9760 E3%=INT(RND(0)*5)+1
9770 SL$="UNRUHEN IN "+SD$(E1%)+".":GOSUB2500:IFAR%(E3%,E1%,E2%)=.THENRETURN
9800 PRINT"[159]";:SL$="DIE "+AR$(E3%):GOSUB2500:GOSUB1470:SL$="VON "+SL$+" STREIKEN !"
9810 GOSUB2500:AR%(E3%,E1%,E2%)=.:RETURN
9890 SL$="FEUER IN "+SD$(E1%)+".":GOSUB2500
9900 PRINTTAB(8)"[159]ALLE HOTELS BRANNTEN AB!":FORA=1TOMS:FS%=1
9910 FORC=.TO1:ZM%(C,E1%,A)=.:QM%(C,E1%,A)=.:NEXTC
9915 FORC=1TO4:LX%(C,E1%,A)=.:NEXTC
9917 IFFS%=1THENFS%=.:NEXTA
9918 RETURN
9920 PRINTTAB(14)"LOTTOGEWINN:[159]"
9930 GW=15000+1000*INT(RND(0)*10+1):SL$=NA$(SP)+" ERH[LT"+STR$(GW)+".-":GOSUB2500
9940 KA(E2%)=KA(E2%)+GW:RETURN
9950 SL$="ROWDIES IN "+SD$(E1%)+".":GOSUB2500:E3%=INT(RND(0)*2+1)-1
9951 IFZM%(E3%,E1%,E2%)=.THENRETURN
9952 PRINTD4$"[159]SIE ZERST\RTEN ALLE "MI$(E3%)"ZIMMER":GOSUB1470:SL$="BEI "+SL$+" !"
9955 GOSUB2500:QM%(1,E1%,E2%)=QM%(1,E1%,E2%)+ZM%(E3%,E1%,E2%)*(5+15*E3%)
9956 ZM%(E3%,E1%,E2%)=.:RETURN
9960 IFWA%(E2%)=.GOTO9990
9962 R=R%(SD%(E2%),WA%(E2%)):A$="SCHIFFSUNGL]CK:[159]":IFR<.THENA$="  ZUGUNGL]CK:[159]"
9965 GW=INT(ABS(R)/2+1):PRINTTAB(12)A$:SL$=NA$(SP)+" IST"+STR$(GW)+" TAGE L[NGER"
9970 GOSUB2500:PRINTTAB(15)"UNTERWEGS.":DA%(E2%)=DA%(E2%)+GW:RETURN
9980 PRINTTAB(11)"STEUERR]CKZAHLUNG:":GOTO9930
9990 SL$="KATASTROPHE IN "+SD$(E1%)+".":GOSUB2500
10010 E3%=INT(RND(0)*4)+1:IFLX%(E3%,E1%,E2%)=.THENRETURN
10015 GOSUB1470:SL$="BEI "+SL$+":":GOSUB2500:PRINT"[159]":ONE3%GOSUB10020,10040,10060,10080
10017 IFE3%<>3THENLX%(E3%,E1%,E2%)=.:RETURN
10020 PRINTD4$"ES GAB EINEN GROSSBRAND IN IHREM":PRINTTAB(14)LX$(1)" !":RETURN
10040 PRINTTAB(5)"EIN AUFZUG WURDE ZERST\RT, ALS":PRINTTAB(8)"DIE  STAHLSEILE  RISSEN.":RETURN
10060 RETURN
10080 PRINTTAB(5)"EINE EXPLOSION  ZERST\RTE IHRE":PRINTTAB(15)"REINIGUNG.":RETURN
10100 GOSUB1470:SL$="SCHENKUNG F]R "+SL$+":":GOSUB2500:GOTO9930
10110 SL$="ZECHPRELLER IN "+SD$(E1%)+".":GOSUB2500:IFHN%(E1%,E2%)=.THENRETURN
10120 GOSUB1470:SL$="ER W]TETE BEI "+SL$+" !":GOSUB2500:KO=10000+1000*INT(RND(0)*10+1)
10125 RETURN
10130 IFPEEK(850)>.GOTO10110
10135 KO=10000+1000*INT(RND(0)*5+1):SL$=NA$(SP)+" KAUFTE EIN KLAVIER":GOSUB2500
10140 POKE850,1:RETURN
10150 PRINTTAB(14)"B\RSENKRACH:":PRINTTAB(7)"[159]ALLES F[LLT UM DIE H[LFTE."
10160 GOSUB1993:GOSUB1235:PRINTD0$"[145]";:IN=-50:GOSUB9365:RETURN
10170 ONABS(AR%(1,E1%,E2%)<2)GOTO10190:GOSUB1470:SL$="AN "+SL$+":":GOSUB2500
10173 SL$="ZWEI "+AR$(1)+" WURDEN IN "+SD$(E1%):GOSUB2500
10175 KO=2*50:E1%:PRINTTAB(14)"PENSIOOIERT.":AR%(1,E1%,E2%)=AR%(1,E1%,E2%)-2:RETURN
10180 IFHN%(E1%,E2%)=.GOTO10200
10183 KO=5000*E1%:SL$="REPARATUREN IN "+SD$(E1%)+".":GOSUB2500:RETURN
10190 PRINTTAB(8)"INFLATIONSBERUHIGUNG....":IN%=IN%-1:RETURN
10200 PRINTD4$"STEIGERUNG DER INFLATION ERWARTET":IN%=IN%+1:RETURN
10210 PRINTTAB(6)"FEHLER IHRES B\RSENMAKLERS:":PRINTTAB(11)"[159]SIE VERLIEREN ALLE":RETURN
10213 E3%=INT(RND(0)*4)+1:ONABS(F%(E3%,E2%)=.)GOTO10240:GOSUB1470:SL$="AN "+SL$+":"
10214 GOSUB2500:GOSUB10210:SL$=F$(E3%)+"-AKTIEN.":GOSUB2500:F%(E3%,E2%)=.:RETURN
10230 KO=15000+1000*INT(RND(0)*5+1):GOSUB1470:PRINTTAB(8)"STEUERNACHFORDERUNG F]R"
10235 GOSUB2500:RETURN
10240 PRINTTAB(11)"AKTIENSPEKULATIONEN:":GOTO9930
10250 ONABS(HN%(E1%,E2%)=.)GOTO10213:SL$="BRAND IN "+SD$(E1%)+".":GOSUB2500
10260 GOSUB1470:SL$="DAS HOTEL VON "+SL$:GOSUB2500
10270 PRINTTAB(14)"BRANNTE AUS.":FORA=E2%TOE2%:FS%=1:GOSUB9910:RETURN
10280 GOSUB1470:SL$="MELDUNG F]R "+SL$+":":GOSUB2500:PRINTTAB(8)"IHR B\RSENMAKLER KAUFTE:[159]"
10285 E3%=INT(RND(0)*4+1):F%(E3%,E2%)=F%(E3%,E2%)+10
10290 SL$="10 "+F$(E3%)+"-AKTIEN":GOSUB2500:KO=10*FL%(E3%):RETURN