home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 73 / 64er_Magazin_Sonderheft_73_19xx_Markt__Technik_de_Side_B.d64 / omni.main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  28KB  |  363 lines
  1. 1 re$=chr$(13):d2$="":fora=1to24:d2$=d2$+"":next:d1$=left$(d2$,19):ll$="                                       ":l1$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":gosub315:printleft$(d1$,11)tab(13)"[158]please wait ...":l2$="":fora=1to39:l2$=l2$+"[175]":nexta:hm$="hauptmen^":x$="\\\\\\":q$="[158][209] [159]"
  2. 2 f1$="[206][205][157][157][208][207][157][157]":f2$="[186][204][157][157][205][206]":f3$="  [157][157]  [157][157]":sp$="":qw=0:ja=1988:mo=1:zs=5.5:gosub21:sp=1:ms=peek(870):ifms=0thenqw=1:goto243
  3. 3 fora=1toms:na$(a)="":forb=1to10:a$=chr$(peek(860+10*a+b)):na$(a)=na$(a)+a$:nextb,a
  4. 4 print"[147]":poke53280,14:poke53281,14:qf=0:mm$=hm$:gosub14:mm$="":ifqf=1thenprint"":goto6
  5. 5 printm1$,m2$,m2$,m2$,m3$,m2$,m2$,m2$,m3$,m2$,m2$,m2$,m4$"":qf=1:fori=0to2:fort=4*ito4*i+3:print""mn$(t);:nextt:print"":nexti:printl2$:gosub17:print"";
  6. 6 nm=1:printleft$(d2$,4*my+6)tab(9*mx+2)"[223][157] [157][146][169]"spc(6)"[145][145][169][157] [157][146][223][145][145]":print""tab(24)""mp$(mp)"[146]":ifar=1thenar=0:gosub17:goto13
  7. 7 geta$:on-(a$="")goto7:ifa$=re$thenprint"[155]";:ar=1:goto6
  8. 8 printleft$(d2$,4*my+6)tab(9*mx+2)" [157] [157] "spc(6)"[145][145] [157] [157] [145][145]":ifa$="[145]"thenmy=my+(my>0)
  9. 9 ifa$=""thenmy=my-(my<2)
  10. 10 ifa$="[157]"thenmx=mx+(mx>0)
  11. 11 ifa$=""thenmx=mx-(mx<3)
  12. 12 mp=4*my+mx:print"";:goto6
  13. 13 onmp+1goto65,71,105,86,303,304,332,138,60,143,237,152
  14. 14 ifmm$<>hm$thenmm$=mp$(mp)
  15. 15 gosub19:print" [151]spieler: "na$(sp)" [151]                  [146]":printtab(32-len(mo$(mo)))"[145]"mo$(mo)ja:print" [151]kapital:          .-[151]                  ":a1%=19:a2=ka(sp):gosub37:printtab(37-len(he$(he%(sp))))"[145]"he$(he%(sp))
  16. 16 print" [151]kredit :          .-[151]                  ":a1%=19:a2=kr(sp):gosub37:print"[145]"tab(24)mp$(mp):return
  17. 17 printd1$;:fori=1to6:printll$:next:printll$d1$:return
  18. 18 printd2$"[150]       [167][170][182][146][161][181] nicht m]glich[150] [182][161][181][180][165]       ":gosub299:printd2$ll$"":return
  19. 19 mp$="":fora=1tolen(mm$):m$=mid$(mm$,a,1):ifm$<>" "thenmp$=mp$+m$
  20. 20 nexta:p1=int((33-len(mp$))/2):p2=33-len(mp$)-p1:print""left$(l1$,p1)"[163] [146] "mp$"  [163]"left$(l1$,p2):return
  21. 21 dimmn$(11),mp$(11),we$(4),mo$(12),he$(2),ka(4),kr(4),su%(1,4),he%(4),p(1):dimbu%(1,4),ix%(4),bb%(1,4),ar%(4,4),db%(1,4),ar$(4),gh%(4,4),ha$(9),pr(9):dims%(9),mp%(4),m$(4,6),gs%(1,4),b$(1),fb%(1,4),k(1),sh%(9,4),ga%(4,4)
  22. 22 dimfp%(9,4),z$(1),zs%(1,4),b(1,9),wt(9),e(9),ko(9),eb(4),ng%(4),g%(1,9):dimc(1),a$(12),wd%(4),wb(4),b%(1),gj(1,4),gp%(1),n%(9),wr%(1):dimkw%(1),zg%(4),gw(4),sk%(4),sr(4),as%(4),zn(4):a$="[192][192][192][192][192][192][192][192]":m1$=" [146][176]"+a$+"[178]"+a$+"[178]"+a$+"[178]"+a$+"[174] [146]"
  23. 23 b$="        ":m2$=" [146][221]"+b$+"[221]"+b$+"[221]"+b$+"[221]"+b$+"[221] [146]":m3$=" [146][171]"+a$+"[219]"+a$+"[219]"+a$+"[219]"+a$+"[179] [146]":m4$=" [146][173]"+a$+"[177]"+a$+"[177]"+a$+"[177]"+a$+"[189] [146]":fori=0to11:readmn$(i),mp$(i):next:data"[176][192][192][192][192][201][157][157][157][157][157][157][221][186][186][186][186][146][221][157][157][157][157][157][157][173][144][209][192][192][144][209][189][145][145]",busbestellung
  24. 24 data"[176][205][192][206][192][201][157][157][157][157][157][157][221][186][146][214][186][186][146][221][157][157][157][157][157][157][173][144][206][192][205][144][209][189][145][145]"," busverkauf  ":data"[144] [146]     [157][157][157][157][157][157] [164][164][164][164][164][146][157][157][157][157][157][157][144][223]     [145][145]"," reparaturen ":data"[129] [209]  [209] [157][157][157][157][157][157][208] [146][207][206] [146][205][157][157][157][157][157][157][170] [180] [221] [145][145]","  personal   "
  25. 25 data"?  [209][192][209][157][157][157][157][157][157]  [206]  [221][157][157][157][157][157][157][192][209] ? [221][145][145]","   linien    ":data"[169]bank[223][146][157][157][157][157][157][157][161][146]    [161][157][157][157][157][157][157][161][146][175][175][175][175][161][145][145]","     bank    ":data" b^ro[157][157][157][146][164][175][157][157][157][149][187][162][187][146][190] [145][145]","     b^ro    ":data"[169]    [223][146][157][157][157][157][157][157][161][146]    [161][157][157][157][157][157][157][161][146][175][175][175][175][161][145][145]","  gesch[fte  "
  26. 26 data"[176][192][192][192][192][174][157][157][157][157][157][157][221][159] 2.-[221][157][157][157][157][157][157][173][192][192][192][192][189][145][145]"," fahrpreise  ":data"  [156][167][208][159][167][146] [157][157][157][157][157][157] [167][156][167][167][159][167][146] [157][157][157][157][157][157] [167][156][167][167][159][167][146] [145][145]"," spielstand  ":data" [144]  [172][146]  [157][157][157][157][157][157]  [209] [146]  [157][157][157][157][157][157]  . [146]  [145][145]"," abspeichern ":data" [156][223][223][223][146][157][157][157][157][157][157] [169] [169] [169][145]","   weiter    "
  27. 27 fori=1to4:readwe$(i):next:data"totale flaute   ","wenig interesse ":data"normaler betrieb","g[ste-boom      ":y=12:og=2:fori=1to12:readmo$(i):next:datajanuar,februar,m[rz,april,mai,juni,juli,august,"septemb.",oktober
  28. 28 datanovember,dezember:kw%(0)=3112:kw%(1)=22133:zg=181:gp%(0)=1000:gp%(1)=250:he$(0)="ledig":he$(1)="verheiratet":he$(2)="geschieden":p(0)=25e4:p(1)=4e5:b$(0)="kurze":b$(1)="lange":fora=1to4:ka(a)=10000:ix%(a)=99:er%(0,a)=1
  29. 29 gs%(0,a)=1:bb%(1,a)=1:fb%(0,a)=1:forb=0to1:zs%(b,a)=99:nextb:eb(a)=1:gj(1,a)=50:ar%(0,a)=1:ga%(4,a)=1:ar%(4,a)=1:db%(0,a)=-1:db%(1,a)=4:zg%(a)=55:ga%(0,a)=1:nexta:fora=0to4:readar$(a),x:ng%(a)=x:forb=1to4:gh%(a,b)=x:nextb,a:z$(0)="kosten:":z$(1)="gewinn:"
  30. 30 databusfahrer,2800,kontrolleur,3100,putzfrau,1100,verk[ufer,2500:datatechniker,2900:fori=0to9:readha$(i),pr(i),s%(i),x:forb=1to4:fp%(i,b)=x:nextb,i:data"iserlohn-hemer   ",50000,3,10,"hagen-iserlohn   ",58000,2,11
  31. 31 data"hagen-herdecke   ",63000,2,11,"herdecke-dortmund",70000,5,12:data"iserlohn-herdecke",78000,5,13,"iserlohn-dortmund",84000,3,13:data"hagen-hemer      ",93000,2,13,"hagen-dortmund   ",105000,2,14
  32. 32 data"dortmund-hemer   ",130000,4,16,"hemer-herdecke   ",140000,5,17:fora=0to9:b(0,a)=int(pr(a)/5):b(1,a)=int(pr(a)/4.3):n%(a)=fp%(a,1):nexta:return
  33. 33 printleft$(d2$,y2+y)tab(x)"[156][145]  [157][157] _[157][157]  [145]";:geta$:ifa$=re$theny=12:og=2:return
  34. 34 ifa$="[145]"theny2=y2+(y2>0)
  35. 35 ifa$=""theny2=y2-(y2<og)
  36. 36 goto33
  37. 37 printtab(a1%-len(str$(a2)))"[145]"a2:return
  38. 38 printd1$""l1$left$(l1$,16):fora=1to5:print" "tab(38)" [146]":nexta:printl2$"":return
  39. 39 printtab(a1%-len(str$(a2)))"[145]"a2"[157][157][157][157][157]":return:print"[151]"sl$"[158]":a1%=23:gosub39:printtab(24)"[145][157]"a$:ifq=1thenq=0:printaa$
  40. 40 return
  41. 41 printtab(int((40-len(a$))/2))a$:return
  42. 42 forb=1tox:print"[208][146]";:nextb:printx"[157][157][157][157]":return
  43. 43 print"[147]":mm$="streckenkarte":gosub19:printl2$:s$=d1$+""+left$(sp$,12):prints$"[153]hagen[144] [146][145][145][145][145][145][145][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][153]herdecke[144] [146]";:print"[145][145][145][145][145][145][145][145][153]dortmund[144] [146][157][157][157][157][153]iserlohn[144] [146][153]hemer[144] [146]";:s$(1)="[159]":s$(0)="":s$(6)="[215]":s$(7)="[209]":s$(2)=s$+""
  44. 44 s$(3)=left$(d1$,17)+sp$+left$(sp$,10):s$(4)=""+sp$:s$(5)=left$(d1$,12)+left$(sp$,14):b=0
  45. 45 forw=0to9:on-(er%(w,sp)<>b)goto46:prints$(er%(w,sp)):h$=s$(sh%(w,sp)+6):s$=s$(s%(w)):onw+1gosub53,47,50,54,52,51,49,48,55,56
  46. 46 next:onabs(b=1)goto57:b=1:goto45
  47. 47 prints$"[145][206][145]"h$"[192][192][192]"h$"[192][192][192][192]"h$"[145][157][194][145][157][194]":return
  48. 48 prints$"[145][194][145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194][145][157]"h$"[145][206][163][163][145][157][157][164][164][206][145]"h$"[145][157][194][145][157]"h$"[145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194]":return
  49. 49 prints$"[192][192]"h$"[192][192][192]"h$"[192][192][192]"h$"[192][192][192]"h$"[192][192]"h$"[192]"h$"[145][157][194]":return
  50. 50 prints$;"[157][145][205][145][157][157][205][145][157][157]"h$"[157][157][192][157][157]"h$"[145][157][194][145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194]":return
  51. 51 prints$;"[145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194][145][157]"h$"[145][157][194][145][157][194][145][157]"h$"[157][157][192][157][157][192][157][157][192][157][157][192][157][157][192]":return
  52. 52 prints$"[205][205]"h$"[192]"h$"[192][192]"h$"[192][192]"h$"[192][192]"h$"[205]":return
  53. 53 prints$;"[192][192]"h$"[192][192]"h$"[192][192]"h$"[157][194][157][179]":return
  54. 54 prints$"[145][157][221][145][157][221][145][157]"h$"[192][192][192][192]"h$"[145][206][145][206][145]"h$"[145][206]":return:print"[192][192]"h$"[157][221][157][179]":return
  55. 55 prints$"[205][205]"h$"[192][192]"h$"[192][192]"h$"[192][192]"h$"[157][194][157][194][157]"h$"[157][194][157][194][157]"h$"[157][221][157][194][157][194][157][221][157][221][157]"h$;:print"[192][192][179]":return
  56. 56 prints$"[192][192]"h$"[192][192]"h$"[192][192][192]"h$"[205]"h$"[192][192][192]"h$"[192][192]"h$"[205][205]"h$"[157][221][157]"h$"[192][192][179]":return
  57. 57 printleft$(d1$,15)"[153][192][192][192][192][192][192][192][192][192][192][192][174]":fora=1to9:printtab(11)"[194]":nexta:printleft$(d1$,16)"blau =  [156]be-":print"steht nicht":print"[153]===========":print"[159]t^rkis =[156]":print"besteht":print"[153][192][192][192][192][192][192][192][192][192][192][192][179]":print"[159][209]  = [156]mit":print"[215]/[159][215]=[156] ohne":print"st.h[uschen":gosub298:return
  58. 58 open1,8,15:input#1,a,b$,c,d:ifa=0thenreturn
  59. 59 printd2$"[145][145] >>> fehler auf disk <<< [146]":print"[158]"a","b$","c","d:gosub299:gosub17:return
  60. 60 print"[147]":mm$=mp$(mp):gosub19:printl2$:y2=10:printtab(31)"[158]region":a$(1)=" ja":a$(0)="nein"
  61. 61 print"[158]strecke:"tab(20)"fahrpreis:"tab(31)"besteht:":printx$"\\"tab(20)x$"\\\\"tab(31)x$"\\":fora=0to9:printq$ha$(a)":":a1%=26:a2=fp%(a,sp):gosub39:printtab(33)"[158][145]"a$(er%(a,sp)):nexta:printq$hm$
  62. 62 y=8:og=10:x=27:gosub33:ifer%(y2,sp)=0andy2<>10thengosub18:goto62
  63. 63 on-(y2=10)goto4:printd1$"[153]neuer preis ? ==> ";:za=1:kc=48:gc=57:gosub217:ifval(a$)=0thengosub17:goto62
  64. 64 fp%(y2,sp)=val(a$):gosub17:goto61
  65. 65 print"[147]":gosub14:printl2$:y2=2
  66. 66 print"[158]"tab(9)"bestand:"tab(22)"bestellungen:":printtab(9)x$"\\"tab(22)x$x$"\":fora=0to1:printq$b$(a)" :[158]"tab(16)p(a)"[157].-":a1%=14:a2=gs%(a,sp):gosub39:a1%=30:a2=bb%(a,sp):gosub39:nexta:printq$hm$:d=0:print"[159]";:fora=0to1:a$=str$(db%(a,sp)):ifdb%(a,sp)=-1thena$=" -"
  67. 67 print"[157]"a+1"[157].best.: lieferbar in"a$" monaten":nexta:ifdb%(0,sp)<>-1anddb%(1,sp)<>-1thenprintleft$(d2$,y2+12)tab(33)" ":gosub298:goto4
  68. 68 x=32:gosub33:on-(y2=2)goto4:ifdb%(y2,sp)<>-1goto66
  69. 69 printd1$"[153]wieviele wollen sie bestellen ?":print"==> ";:za=0:gosub216:me=val(a$):gosub17:on-(me=0)goto66:pr=p(y2)*me:ifkr(sp)+pr>5e5thengosub18:goto68
  70. 70 printd1$"[159]sie haben einen kredit aufgenommen.":print"h]he:"pr"[157].-":kr(sp)=kr(sp)+pr:gosub299:bb%(y2,sp)=me:gosub14:db%(y2,sp)=3*(y2+2)*me:gosub17:goto66
  71. 71 print"[147]":gosub14:printl2$:y2=2
  72. 72 printleft$(d1$,9)tab(10)"[158]bestand:":printtab(10)x$"[158]\\":fora=0to1:printq$b$(a)" :":a1%=15:a2=fb%(a,sp):gosub39:nexta:printq$hm$:x=16:gosub33:onabs(y2=2)goto4:printd1$"[153]wieviele "b$(y2)" busse wollen sie ver-":print"kaufen ? ==> ";:za=0:gosub216:me=val(a$):gosub17:on-(me=0)goto72
  73. 73 pr=p(y2)*.75*me:ifme>fb%(y2,sp)thengosub18:goto72
  74. 74 printd1$"":fori=1toms:ifi<>spthenprint"[158]"i"[157] [146][159] "na$(i)":[153]"ka(i)"[157].-"
  75. 75 nexti:print"":zz=int(rnd(0)*(pr/3))+(pr/4)
  76. 76 printd1$"[153]verkaufspreis:    (+) "pr"[157].-  (-) ":ifpr<zzandm=0goto81
  77. 77 getw$:on-(w$="")goto77:ifw$="+"thenpr=pr+5000:goto76
  78. 78 ifw$=re$thenprintd1$ll$:printtab(8)"[145]   verkauf abgebrochen   [146]":goto85
  79. 79 ifw$="-"thenpr=pr-5000:goto76
  80. 80 m=val(w$):on-(m=sporm>msorm<1)goto76:on-(ka(m)<pr)goto76
  81. 81 ka(sp)=ka(sp)+pr:ifm=0thenprintd1$"[159]eine firma, die ungenannt bleiben will,":goto83
  82. 82 printd1$"[158]spieler "na$(m)" ";:ka(m)=ka(m)-pr
  83. 83 print"hat den bus gekauft.":x=sp:c=1
  84. 84 fb%(y2,x)=fb%(y2,x)-c:gs%(y2,x)=gs%(y2,x)-c:c=c+1:ifc=2thenx=m:c=-1:goto84
  85. 85 gosub14:gosub299:gosub17:goto72
  86. 86 print"[147]":gosub14:printl2$:y1=0:y2=1:printd2$tab(11)"[145][153][nderungen mit +[146]/-[146]"
  87. 87 print""tab(18)"[158]anzahl  gehalt":printtab(18)x$"  "x$"":fora=0to4:printtab(3)q$ar$(a)tab(16)":":a1%=31:a2=gh%(a,sp):gosub39:a1%=22:a2=ga%(a,sp):gosub39:nexta:printtab(3)""q$"fahrerlehrgang"tab(26)"500.-/ fahrer":printd1$tab(3)q$"fahrerindex:"ix%(sp)"[157] [159]%"
  88. 88 printleft$(d1$,y2+8-(y2>5))tab(24+y1*8)" [157] [157][156]_[157] [157] ":geta$:on-(a$=re$)goto4:ifa$="[145]"theny2=y2+(y2>1)
  89. 89 ifa$=""theny2=y2-(y2<(5-(y1=0)))
  90. 90 ifa$=""thenprintleft$(d1$,y2+10)tab(24)" ":y1=y1-(y1<1andy2<6)
  91. 91 ifa$="[157]"thenprintleft$(d1$,y2+10-(y2>5))tab(32)" ":y1=y1+(y1>0)
  92. 92 ifa$="+"thenme=1+49*y1:goto95
  93. 93 ifa$="-"thenme=-(1+49*y1):goto95
  94. 94 goto88
  95. 95 ify2=6thengosub100:goto87
  96. 96 ify1=0thenifar%(y2-1,sp)+me>=0thengosub99:goto87
  97. 97 ify1=0orgh%(y2-1,sp)+me>32000orgh%(y2-1,sp)<0goto87
  98. 98 gh%(y2-1,sp)=gh%(y2-1,sp)+me:goto87
  99. 99 ar%(y2-1,sp)=ar%(y2-1,sp)+me:ga%(y2-1,sp)=ga%(y2-1,sp)+me:return
  100. 100 on-(ix%(sp)<100)goto101:printd2$"[150]       [167][170][182][146][161][181]    w o z u    [150][182][161][181][180][165]       ":gosub299:printd2$ll$"":return
  101. 101 x=ga%(0,sp):printd1$tab(5)"[159]"z$(0)x*500"[157].-  [158]okay (j/n) ?"
  102. 102 geta$:on-(a$<>"j"anda$<>"n")goto102:ifa$="n"thenprint"[145]"ll$:return
  103. 103 ifka(sp)-x*500<0thengosub18:printd1$""ll$:return
  104. 104 ka(sp)=ka(sp)-x*500:print"[145]"ll$:gosub14:ix%(sp)=100:return
  105. 105 b=gs%(0,sp)+gs%(1,sp):k(0)=b*45:k(1)=b*135:print"[147]":gosub14:printl2$:y2=2
  106. 106 a$(0)="sitze":a$(1)="motor":printleft$(d1$,9)tab(9)"[158]zustand"tab(20)z$(0)"[157] / %":printtab(9)x$"\"tab(20)x$"\\\\":fora=0to1:printq$a$(a)":":a1%=13:a2=zs%(a,sp):gosub39:printtab(14)"[145][159]%":a1%=25:a2=k(a):gosub39:printtab(25)"[145][159].-":nexta:printq$hm$:print"[158]durchschnitt:[159]"int((zs%(0,sp)+zs%(1,sp))/2)"[158][157] %"
  107. 107 x=27:gosub33:ify2=2goto4
  108. 108 printd1$"[153]wieviel % wollen sie reparieren ?":print"==> ";:za=1:gosub216:me=val(a$):on-(me=0)goto110:ko=me*k(y2):ifzs%(y2,sp)+me>100orka(sp)-ko<0thengosub18:goto110
  109. 109 zs%(y2,sp)=zs%(y2,sp)+me:ka(sp)=ka(sp)-ko:gosub14
  110. 110 gosub17:goto106
  111. 111 print"[147]":gosub14:printl2$:v=10:y2=v:print"[158]"tab(24)"busse  personal":print"[158]strecke:"tab(24)"kb lb  bf ko pu":printx$"\\"tab(24)"\\ \\  \\ \\ \\":gosub112:fora=0to9:gosub113:nexta:printq$"zur^ck zum men^":goto115
  112. 112 printleft$(d1$,10)q$"frei":fora=0to1:a1%=26-(a=1)*3:a2=fb%(a,sp):gosub39:nexta:fora=0to2:a1%=33+3*a:a2=ar%(a,sp):gosub39:nexta:return
  113. 113 printq$ha$(a)":":ifer%(a,sp)=0thena1%=33:a2=pr(a):gosub39:printtab(33)"[145].-":return
  114. 114 forb=0to1:a1%=26-3*(b=1):a2=br%(b,a,sp):gosub39:nextb:forb=0to2:a1%=33+b*3:a2=ra%(b,a,sp):gosub39:nextb:return
  115. 115 x=21:y=11:og=10:gosub33:v=y2:ifv=10thenreturn
  116. 116 on-(er%(v,sp)=1)goto120:printd1$"[153]wollen sie die strecke kaufen (j/n) ?"
  117. 117 geta$:on-(a$="")goto117:ifa$<>"j"thenprintd1$""ll$:goto115
  118. 118 ifka(sp)<pr(y2)thengosub18:printd1$""ll$:goto115
  119. 119 eb(sp)=eb(sp)+1:er%(v,sp)=1:gosub328:ka(sp)=ka(sp)-pr(v):gosub14:printd1$"[155]"ll$left$(d1$,11+v)ll$"[145]":a=v:gosub113:goto115
  120. 120 a=v:printd1$"[153]":gosub113:y2=0
  121. 121 gosub112:printd1$"":a=v:gosub113:printtab(25+3*y2-(y2>1))"[156][255]"
  122. 122 geta$:on-(a$="")goto122:ifa$="+"thenme=1:on-(y2<2)gosub330:goto127
  123. 123 ifa$="-"thenme=-1:goto127
  124. 124 printd1$tab(25+3*y2-(y2>1))" ":ifa$="[157]"theny2=y2+(y2>0):goto121
  125. 125 ifa$=""theny2=y2-(y2<4):goto121
  126. 126 ifa$=re$thenprintd1$""ll$left$(d1$,10+v):a=v:gosub113:y2=v:goto115
  127. 127 on-(y2>1)goto129:ifbr%(y2,v,sp)+me<0orfb%(y2,sp)-me<0orff=1thenff=0:goto121
  128. 128 br%(y2,v,sp)=br%(y2,v,sp)+me:fb%(y2,sp)=fb%(y2,sp)-me:goto121
  129. 129 ifra%(y2-2,v,sp)+me<0orar%(y2-2,sp)-me<0goto121
  130. 130 ra%(y2-2,v,sp)=ra%(y2-2,v,sp)+me:ar%(y2-2,sp)=ar%(y2-2,sp)-me:goto121
  131. 131 print"[147]":gosub14:printl2$:y2=10
  132. 132 print"[158]":printtab(31)"region":print"strecke:"tab(23)"preis:"tab(31)"besteht:":printx$"\\"tab(23)x$tab(31)x$"\\":fora=0to9:printq$ha$(a)" [157] =>";:ifsh%(a,sp)=1thenprint"  -----":goto134
  133. 133 print:a1%=29:a2=pr(a)/5:gosub39
  134. 134 a$="nein":ifer%(a,sp)=1thena$=" ja"
  135. 135 printtab(33)"[158][145]"a$:nexta:printq$"zur^ck zum men^":x=29:y=11:og=10:gosub33:ify2=10thenreturn
  136. 136 ifpr(y2)/5>ka(sp)orsh%(y2,sp)=1orer%(y2,sp)=0thengosub18:goto132
  137. 137 ka(sp)=ka(sp)-pr(y2)/5:sh%(y2,sp)=1:gosub14:goto132
  138. 138 print"[147]":gosub14:printl2$:y2=2:a$(0)="kaufen":a$(1)="verkaufen"
  139. 139 w$="gesch[fte ":print"[159]fahrkarten"w$"[157]:"fg%(sp)"[157] stk. ":printtab(10)"[158]optionen:":printtab(10)x$"\\\":fora=0to1:printq$w$a$(a):nexta:printq$hm$:k(0)=7000:k(1)=4500:print"ausgaben / einnahmen :"k(0)"/"k(1):x=22:gosub33:on-(y2=2)goto4
  140. 140 printd1$"[153]wieviele "w$"wollen sie":printa$(y2)" ? ==> ";:za=1:gosub216:me=val(a$):ify2=1thenme=-me
  141. 141 ko=k(y2)*me:iffg%(sp)+me<0orka(sp)<koandy2=0thengosub18:gosub17:goto139
  142. 142 print"[158]"z$(y2)abs(ko)"[157].-":ka(sp)=ka(sp)-ko:fg%(sp)=fg%(sp)+me:gosub299:gosub14:gosub17:goto139
  143. 143 print"[147]":mm$=mp$(mp):gosub19:printl2$:q=0:printtab(18)"[158]kapital:"tab(31)"kredit:":print"";:fora=1toms:print"[159]  "na$(a)":  [146]":a1%=25:a2=ka(a):gosub39:printtab(25)"[145][158].-":a1%=37:a2=kr(a):gosub39:printtab(37)"[145][158].-":print"[210][210][210][158]stufen:":print"[210][210][210][210][158]busse:":print"[210][158]strecken:":print"gesch[fte:"
  144. 144 nexta:print"":forc=1toms:printtab(11);:x=su%(0,c):y2=x:ifx>0thengosub42
  145. 145 x=su%(1,c):ifx=0andy2=0thenprint
  146. 146 ifx=0thenprinttab(11+y2)"[145]"y2"/ [158]0":goto148
  147. 147 printtab(11+y2)"[158][145]";:gosub42:printtab(11+y2+x)"[145]"y2"/[158]"x""
  148. 148 x=gs%(0,c)+gs%(1,c):printtab(11);:ifx>25thenx=25
  149. 149 gosub42:printtab(11);:x=eb(c):gosub42:printtab(11);:x=fg%(c):ifx=0thenprint"0":goto151
  150. 150 gosub42
  151. 151 print:nextc:gosub298:goto4
  152. 152 printd1$tab(8)"[158]n[chster spieler (j/n) ?"
  153. 153 geta$:on-(a$<>"j"anda$<>"n")goto153:on-(a$="j")goto183:gosub17:goto6
  154. 154 ka(sp)=ka(sp)-sr(sp):ifzs%(0,sp)>10andzs%(1,sp)>10goto156
  155. 155 printd1$"ihre busse sind in einem schlechten zu-":print"stand.  damit l[sst sich kein geld ver-":print"dienen.":ei%=1
  156. 156 z1=0:ef=0:ks=0:ko=0:ei=0:wf=0:forx=0to1:z1=z1+zs%(x,sp):next:z1=z1*ix%(sp)/100:x=1:forb=0to2:x=x-(ng%(b)-gh%(b,sp))/2500:ifx<=0thenx=.1
  157. 157 next:z1=z1*x:fora=0to9:ko(a)=0:e(a)=0:g%(0,a)=0:g%(1,a)=0:ifer%(a,sp)=0orei%=1goto167
  158. 158 wt=int(rnd(0)*100+1):ifwt<21thenwt=wt+int((zg%(sp)+zs%(0,sp))/10)
  159. 159 wt(a)=1-(wt>7)-(wt>27)-(wt>72):wf=wf+wt(a):zu=z1:ga=0:b=0:forx=0to1:b=b+br%(x,a,sp):nextx:ifsh%(a,sp)=1thenzu=zu*1.5
  160. 160 ifra%(0,a,sp)<int(b*1.8)thene(a)=-1:goto166
  161. 161 ifra%(2,a,sp)<int(b*2.3)thenzu=zu-15*int(b*2.3-ra%(2,a,sp))
  162. 162 r=r%(a,sp)*.1+(fp%(a,sp)-n%(a))/50:zu=zu*(1.1-r):ifbr%(0,a,sp)>0theng%(0,a)=1150*(wt(a)-1)+zu*4+int(rnd(0)*150+1)
  163. 163 ifbr%(1,a,sp)>0theng%(1,a)=1300*(wt(a)-1)+zu*5+int(rnd(0)*200+1)
  164. 164 ifra%(1,a,sp)<b*2thenforb=0to1:g%(b,sp)=int(g%(b,sp)*(.9-.05*wt(a)))
  165. 165 forb=0to1:g%(b,a)=g%(b,a)*br%(b,a,sp):ga=ga+g%(b,a):nextb:e(a)=ga*fp%(a,sp)
  166. 166 forb=0to1:ko(a)=ko(a)+br%(b,a,sp)*b(b,a):nextb:forb=0to2:ko(a)=ko(a)+ra%(b,a,sp)*gh%(b,sp):nextb
  167. 167 ei=ei+e(a):ko=ko+ko(a):nexta:onabs(fg%(sp)=0)goto169:iffg%(sp)>2*ar%(3,sp)thenfg=2*ar%(3,sp)
  168. 168 iffg%(sp)<=2*ar%(3,sp)thenfg=fg%(sp)
  169. 169 uk=0:ifei%=1thenfora=0to4:uk=uk+ga%(a,sp)*gh%(a,sp):next:goto174
  170. 170 fora=0to4:uk=uk+ar%(a,sp)*gh%(a,sp):nexta:wf=int(wf/eb(sp)+.5):x=ar%(3,sp)*gh%(3,sp):uk=uk-x:ks=ks+x:fk=0:r=0:fora=0to9:ifer%(a,sp)=1thenfk=fk+fp%(a,sp):r=r+r%(a,sp)
  171. 171 nexta:fk=int(fk/eb(sp)):r=int(r/eb(sp)):gg=2*gh%(3,sp)/fk/eb(sp)*1.25:gf=(wf-1)*gg+eb(sp)*z1/2+int(rnd(0)*25+1):gf=int(gf*(1.1-r*.1)):x=fg%(sp)-int(eb(sp)*1.25):ifx>7thenx=7
  172. 172 ifx<0thenx=0
  173. 173 gf=int(gf/(1+x)):ef=fk*gf*fg
  174. 174 al=0:onabs(he%(sp)=0)goto175:al=1800+t%(sp)*750:ifhe%(sp)=2thenal=-al
  175. 175 ko=ko+uk+ks:ei=ei+wb(sp)+ef:ka(sp)=ka(sp)+al:gosub298:gosub300:gosub257:printleft$(d2$,13)tab(20)"[164][164]verlust[164][164]"z$(1)"[157][164][164]":print"[159]"tab(19)na$(sp):gw(sp)=ei-ko:ka(sp)=ka(sp)+gw(sp):print"[158]"tab(26-len(str$(ka(sp))))ka(sp)"[157].-":poke649,10:gosub271
  176. 176 ifwd%(sp)>0thenwd%(sp)=wd%(sp)-1:ifwd%(sp)=0thenwb(sp)=0:fb%(0,sp)=fb%(0,sp)+2
  177. 177 b=0:fora=0to1:b=b+gs%(a,sp)-fb%(a,sp):nexta:fora=0to1:x=int(b*.7):x=x-(x=0):e(a)=int((a+1)*wf*30*b/(9*b+25))-2*(b>10)-(b>15):e(a)=e(a)-(e(a)=0):ife(a)>35thene(a)=35
  178. 178 ifar%(4,sp)<xthene(a)=int(e(a)*1.25)
  179. 179 ifar%(4,sp)>xthene(a)=int(e(a)*.8)
  180. 180 zs%(a,sp)=zs%(a,sp)-e(a):ifzs%(a,sp)<0thenzs%(a,sp)=0
  181. 181 nexta:ix%(sp)=ix%(sp)-wf:ifix%(sp)<0thenix%(sp)=0
  182. 182 zg%(sp)=zg%(sp)-int(wf*1.5):vw=1:on-(zg%(sp)>10)goto4:zg%(sp)=10:goto4
  183. 183 g=int(rnd(0)*9+1):print"[147]":mm$="ereignis":gosub15:printl2$:gw=0:cx=cx+int(rnd(0)*3)+1:g2=(g+3)*100:gw=0:print"":ifcx>25thencx=cx-25
  184. 184 oncxgoto205,185,202,187,188,189,190,191,205,201,185,205,187:oncx-13goto196,197,197,199,199,200,195,201,192,200,205,201
  185. 185 print"wollen sie pokern ?  ";:gosub206:onabs(a$="n")goto209:gw=g2*3:a=int(rnd(0)*3)+1:ifa=3thengw=-gw:print"[159]verloren, "z$(0);-gw"[157].-":goto209
  186. 186 print"[159]"z$(1)gw"[157].-":goto209
  187. 187 gw=5000+g2*5:print"sie treten das testament ihres onkels   an [159]und erhalten";:printgw"[157].-":goto209
  188. 188 gw=-2000-g2*3:print"ein fahrkartengesch[ft wurde bestohlen. [159]"z$(0);-gw"[157].-":goto209
  189. 189 gw=1000+g2*6:print"ein lotto"z$(1)gw"[157].-":goto209
  190. 190 gw=-3000-g2*8:print"sie verloren bei aktienspekulationen... [159]"z$(0);-gw"[157].-":goto209
  191. 191 onabs(he%(sp)<>1)goto192:print"sie liessen  sich  scheiden  und m^ssen":print"monatlich alimente zahlen !":he%(sp)=2:goto209
  192. 192 on-(he%(sp)=1)goto194:print"wollen sie in eine  reiche familie ein- heiraten ? ";:gosub206:ifa$="j"thengw=50*int(g2/2):he%(sp)=1:print"[159]ihr mitgift betr[gt:"gw"[157].-"
  193. 193 t%(sp)=0:goto209
  194. 194 print"gratulation,  sie  und  ihr  ehepartner":t%(sp)=t%(sp)+1:print"sind stolze eltern eines kindes.":goto209
  195. 195 print"sie finden einen 10-mark-schein !":ka(sp)=ka(sp)+10:goto209:print"ein fahrkartengesch[ft musste einer fa- brik weichen. [159]entsch[digung:";:gw=g*500+1000:printgw"[157].-":fg%(sp)=fg%(sp)-1:goto209
  196. 196 gw=g*500:print"sie waren beim pferderennen.[159]":printz$(1)gw"[157].-":goto209
  197. 197 gw=-(180000+g2*6)-(cx-15)*110000:print"wollen sie einen "b$(cx-15)"n bus f^r":print"[157]";-gw"[157].- kaufen ?  ";:gosub206:ifa$="n"thengw=0:goto209
  198. 198 gs%(cx-15,sp)=gs%(cx-15,sp)+1:fb%(cx-15,sp)=fb%(cx-15,sp)+1:goto209
  199. 199 print"bei  einem [160]unwetter  wurden ihre busse":print"schwer besch[digt.":fora=0to1:zs%(a,sp)=zs%(a,sp)-(g+5)*3:nexta:goto209
  200. 200 on-(sh%(g,sp)=0)goto209:sh%(g,sp)=0:print"rowdies  zerst]rten alle stationsh[user auf der strecke "ha$(g):goto209
  201. 201 gw=8000*g:print"sie zogen den haupt"z$(1)"[157] im lotto.":print"[159]"z$(1)gw"[157].-":goto209
  202. 202 ifgs%(0,sp)<4orwd%(sp)<>0goto209
  203. 203 print"eine firma bietet ihnen einen werbever- trag an. dazu  werden zwei ";:d=int(g/3)+1:print"kurze  busse ben]tigt. dauer:"d"monate":print"nehmen sie an ?  ";:gosub206:ifa$="n"goto209
  204. 204 wd%(sp)=d:wb(sp)=int(g2*30.7699):print"[159]monatliche werbeeinnahmen:"wb(sp)"[157].-":dd=0:gosub319:gosub319:goto209
  205. 205 onabs(kr(sp)<500000)goto209:print"die bank hat  beschlossen,  ihnen [159]25 %":print"ihres kredits zu erlassen !":kr(sp)=int(kr(sp)*.75):goto209
  206. 206 print" j [146] /  n [146] ?";
  207. 207 geta$:on-(a$<>"j"anda$<>"n")goto207:ifa$="j"thenprint"  ja  ":return
  208. 208 print" nein ":return
  209. 209 ka(sp)=ka(sp)+gw:gosub15:fora=0to1:db%(a,sp)=db%(a,sp)+(db%(a,sp)>=0):nexta:printd1$"[145][145]"ll$"[145]":a$=" lieferungen: ":gosub41:gosub210:gosub354:gosub298:zn(sp)=int(kr(sp)*zs/100):kr(sp)=kr(sp)+zn(sp):gosub225:goto254
  210. 210 gosub322:printd1$"":fora=0to1:ifb%(a)=0goto212
  211. 211 printq$b$(a)" busse:"b%(a)" stk.":ww=1:fb%(a,sp)=fb%(a,sp)+b%(a):gs%(a,sp)=gs%(a,sp)+b%(a)
  212. 212 nexta:printd1$"[158]es wurde ";:ifww=0thenprint"nichts ";:goto214
  213. 213 print"folgendes ";
  214. 214 print"geliefert";:ifww<>0thenprint":":fora=1to29:print"\";:nexta
  215. 215 print:ww=0:return
  216. 216 kc=48:gc=57
  217. 217 printleft$("[164][164][164][164][164][164][164][164][164][164][164][164][164][164]",za+1)left$("[157][157][157][157][157][157][157][157][157][157][157][157][157][157]",za+1);:a$="":ms$="":wl=0:mf$="":m$="[157][164][157]":ifnm=1thenmf$=" [146][157]":m$="[157] [146][164][157][157]":printmf$;
  218. 218 getms$:on-(ms$="")goto218:v=asc(ms$):on-(v=13)goto220:on-(v=20)gosub221:on-(wl>za)goto218:ifv<kcorv>gcgoto218
  219. 219 printms$;:wl=wl+1:a$=a$+ms$:printmf$;:goto218
  220. 220 printleft$(ll$,za-wl+1):return
  221. 221 if(wl-1)<0thenreturn
  222. 222 wl=wl-1:printm$;:a$=left$(a$,(len(a$)-1)):return
  223. 223 su%(x,sp)=su%(x,sp)+1:ab$="herzlichen glueckwunsch, sie haben die":ab$=ab$+str$(su%(x,sp))+". "+a$+"stufe erreicht ! ":return
  224. 224 su%(x,sp)=su%(x,sp)-1:ab$="tut mir leid, sie wurden in die"+str$(su%(x,sp)):ab$=ab$+". "+a$+"stufe zurueckversetzt ! ":return
  225. 225 x=0:gosub350:ifkr(sp)>0thenreturn
  226. 226 a$="erfolgs":x=0:ifv1>=g1thengosub223:gosub361:gosub231:goto228
  227. 227 i=su%(0,sp)-1:gosub362:ifv1<jthengosub224:gosub361:gosub231
  228. 228 a$="image":x=1:ifas%(sp)>=g2thengosub223:gosub361:gosub231
  229. 229 ifas%(sp)<100*(su%(1,sp)-1)andsu%(1,sp)>0thengosub224:gosub361:gosub231
  230. 230 poke53272,48:poke56576,0:poke648,204:poke53280,14:poke53281,14:gosub234:return
  231. 231 print"";:ab$=left$(ll$,19)+ab$:s=1:t=19
  232. 232 print"[145]"mid$(ab$,s,t):forz=1to100:next:s=s+1:ifs>len(ab$)thens=0
  233. 233 onabs(s>0)goto232:gosub298:printd2$ll$""
  234. 234 ifsu%(0,sp)<7orsu%(1,sp)<11thenreturn
  235. 235 print"[147]":mm$="der[160]sieger":gosub19:print""l2$:gosub315:printtab(12)"[145][145][145][145][145][158]gewonnen hat:":printtab(13)""na$(sp):open3,8,4,"@:omni.end,s,w":print#3,ms:fori=1toms:print#3,na$(i):print#3,su%(0,i):print#3,su%(1,i):nexti:print#3,sp:close3:print"[144]load"chr$(34)"omni.abschluss"chr$(34)",8"
  236. 236 print"run[145][145][145][145][145][145][145][145]":poke631,13:poke632,13:poke198,2:end
  237. 237 close1:close4:gosub38:printd1$tab(6)"[153]spiel abspeichern (j/n) ?"
  238. 238 geta$:on-(a$<>"j"anda$<>"n")goto238:print"[145]"left$(ll$,30):ifa$="n"thengosub17:print"":goto6
  239. 239 printtab(6)"[145][158] dateiname: ";:za=7:kc=65:gc=90:gosub217:f$=a$:iflen(f$)<2goto239
  240. 240 fi$="@:ob."+f$+",s,w":open4,8,4,fi$:gosub58:on-(a<>0)goto237:print#4,cx:print#4,ja:print#4,mo:print#4,ms:print#4,zg:print#4,gp%(0):print#4,gp%(1):print#4,kw%(0):print#4,kw%(1):print#4,wr%(0):print#4,wr%(1):print#4,sp:print#4,qw%:print#4,zs:print#4,in:print#4,as%:fori=1toms:print#4,t%(i):print#4,na$(i):print#4,ka(i):print#4,kr(i):print#4,he%(i):print#4,as%(i)
  241. 241 print#4,wd%(i):print#4,wb(i):print#4,zg%(i):print#4,gw(i):print#4,sk%(i):print#4,sr(i):forj=0to1:print#4,su%(j,i):print#4,fb%(j,i):print#4,bb%(j,i):print#4,gs%(j,i):print#4,zs%(j,i):print#4,gj(j,i):print#4,db%(j,i):nextj:print#4,zn(i):print#4,fg%(i):forj=0to4:print#4,ar%(j,i):print#4,gh%(j,i):print#4,ga%(j,i):nextj:print#4,eb(i):print#4,ix%(i):forj=0to9
  242. 242 fork=0to1:print#4,br%(k,j,i):print#4,ra%(k,j,i):nextk:print#4,er%(j,i):print#4,sh%(j,i):print#4,fp%(j,i):print#4,ra%(2,j,i):nextj,i:close4:gosub17:print"":goto6
  243. 243 close4:close1:gosub315:print""tab(12)"[158]spiel fortsetzen:":printtab(11)"[158]dateiname: ";:za=7:kc=65:gc=90:nm=0:gosub217:nm=1:f$=a$:iflen(f$)<2goto243
  244. 244 fi$="ob."+f$+",s,r":open4,8,4,fi$:gosub58:ifa<>0goto243
  245. 245 input#4,cx,ja,mo,ms,zg,gp%(0),gp%(1),kw%(0),kw%(1),wr%(0),wr%(1),sp,qw%,zs,in:input#4,as%:fori=1toms:input#4,t%(i),na$(i),ka(i),kr(i),he%(i),as%(i),wd%(i),wb(i),zg%(i),gw(i):input#4,sk%(sp),sr(i):forj=0to1:input#4,su%(j,i),fb%(j,i),bb%(j,i),gs%(j,i),zs%(j,i)
  246. 246 input#4,gj(j,i),db%(j,i):nextj:input#4,zn(i),fg%(i):forj=0to4:input#4,ar%(j,i),gh%(j,i),ga%(j,i):nextj:input#4,eb(i),ix%(i):forj=0to9:fork=0to1:input#4,br%(k,j,i),ra%(k,j,i):nextk:input#4,er%(j,i),sh%(j,i),fp%(j,i):input#4,ra%(2,j,i):nextj,i:close1:gosub58:on-(a=0)goto4:gosub299:gosub17:goto243
  247. 247 fori=0to9:fora=1to4:r%(i,a)=a:nexta:fora=1to3:x1=fp%(i,a):x2=r%(i,a):forb=a+1to4:y1=fp%(i,b):y2=r%(i,b):ifx1>y1thenz=x2:x2=y2:y2=z
  248. 248 ifx1=y1theny2=x2
  249. 249 r%(i,b)=y2:r%(i,a)=x2:nextb,a,i:return
  250. 250 in=int(rnd(0)*10)/10-.5:zs=zs+in:ifzs<4thenzs=4:i=int(rnd(0)*5+1)
  251. 251 ifzs>6thenzs=6
  252. 252 x=abs(in*10)-1:ifi=1thenx=-x
  253. 253 fora=0to1:gp%(a)=int(gp%(a)+x*gp%(a)/100+.5):kw%(a)=kw%(a)+int(rnd(0)*5+1):nexta:zg=zg+int(rnd(0)*5+1):return
  254. 254 print"[147]":sp=sp+1:ifsp>msthensp=1:qw%=1:mo=mo+1:gosub250:ifmo=13thenmo=1:ja=ja+1
  255. 255 mx=0:my=0:mp=0:mm$="auswertung:":gosub19:print""l2$:print"[159]":a$="n[chster spieler: "+na$(sp):gosub41:ifqw%=0thengosub298:goto4
  256. 256 print"":a$="zeit: "+mo$(mo)+str$(ja):gosub41:printtab(14)"[158]neue preise:":a$="zinssatz: "+str$(zs)+" %":gosub41:a$="gold:"+str$(gp%(0))+".-/uz":gosub41:a$="aktien:"+str$(gp%(1))+".-/stk.":gosub41:printtab(10)"[159]auswertung l[uft...":gosub247:goto154
  257. 257 a$="personalmangel":printleft$(d1$,13)"[158] gesamt ...        [146]":fora=0to9:print"[158] "ha$(a)" :[145]":ifer%(a,sp)=0thenprinttab(25)"--"tab(33)"--":goto260
  258. 258 ife(a)=-1thenprinttab(22)a$:e(a)=0:goto260
  259. 259 q=(e(a)-ko(a))/10000:on-(q<>0)gosub265:print
  260. 260 nexta:printd2$"[145][159] gesch[fte:"fg%(sp)tab(19)":[145]":iffg%(sp)=0thenprinttab(25)"--"tab(33)"--":goto263
  261. 261 iffg=0thenprinttab(22)a$:goto263
  262. 262 q=(ef-ks)/1000:on-(q<>0)gosub265:print
  263. 263 printd2$"[159] sonstiges ...     :[145]":q=(al+wb(sp)-uk)/1000:ifq<>0thengosub265:print""
  264. 264 return
  265. 265 ifq>0goto268
  266. 266 q=int(q)+1:ifq<-9thenq=-9
  267. 267 printtab(29+q);:forb=qto0:print"[208]";:nextb:return
  268. 268 q=int(q):ifq=0thenq=1
  269. 269 ifq>9thenq=9
  270. 270 printtab(30);:forb=1toq:print"[208]";:nextb:return
  271. 271 y2=0:g1=0:g2=0:x2=0:print"[158]":a$(0)="[158] gesamt ...        [146]":fora=0to9:a$(a+1)="[158] "+ha$(a)+" [146]":g1=g1+g%(0,a):g2=g2+g%(1,a):nexta:a$(11)="[159] gesch[fte:"+str$(fg%(sp))+"     ":iffg%(sp)>9thena$(11)=a$(11)+" [146]"
  272. 272 a$(12)="[159] sonstiges ...     [146]":goto280
  273. 273 gosub316:geta$:ifa$=""goto273
  274. 274 ifa$=""goto278
  275. 275 ifa$="[145]"goto279
  276. 276 ifa$=re$thenreturn
  277. 277 goto273
  278. 278 onabs(y2+1>12)goto273:printleft$(d2$,y2+13)a$(y2):y2=y2+1:print""a$(y2)"":goto280
  279. 279 onabs(y2-1<0)goto273:y2=y2-1:printleft$(d2$,y2+13)""a$(y2):printa$(y2+1):goto280
  280. 280 r=y2-1:ifr=-1thena3=ei:a1=ko:c(0)=g1:c(1)=g2:goto284
  281. 281 ifr=10thena3=ef:a1=ks:c(0)=0:c(1)=0:t=1:goto284
  282. 282 ifr=11thenx2=1:q=0:gosub292:qq=0:on-(q=0)goto274:return
  283. 283 t=er%(r,sp):c(0)=g%(0,r):c(1)=g%(1,r):a3=e(r):a1=ko(r)
  284. 284 print"[158]"tab(16)"          ":a1%=26:a2=a3:gosub39:printtab(27)"[145][157].-":printtab(16)"          ":a2=a1:gosub39:printtab(27)"[145][157].-":a2=a3-a1:printtab(16)"          ":gosub39:printtab(27)"[145][157].-":printtab(17);:ifr=-1orr=10thenprint"[159]"we$(wf):goto287
  285. 285 ift=2ort=0thenprint"[159]     -----      ":goto287
  286. 286 print"[159]"we$(wt(r))
  287. 287 fora=0to1:printtab(16+13*a)"       [145][158]":printtab(22+13*a-len(str$(c(a))))c(a)"[145]":nexta:ifqq=0goto273
  288. 288 geta$:ifa$<>"[145]"anda$<>""anda$<>re$goto288
  289. 289 ifa$="[145]"thenx2=x2-1:ifx2=0thenreturn
  290. 290 ifa$=""thenx2=x2+1:ifx2=4thenx2=3:goto288
  291. 291 ifa$=re$thenq=1:return
  292. 292 gosub316:onx2gosub293,294,297:t=2:c(0)=0:c(1)=0:printd2$""a$"":qq=1:goto284:goto288
  293. 293 a$=" ^brig. geh[lter   ":a3=0:a1=uk:return
  294. 294 ifhe%(sp)=0thena$="[158] sie sing ledig... ":a3=0:a1=0:return
  295. 295 ifhe%(sp)=1thena$=" vom schwiegerpapa ":a3=al:a1=0:return
  296. 296 a$=" alimente ...      ":a3=0:a1=abs(al):return
  297. 297 a$=" werbung  ...      ":a3=wb(sp):a1=0:return
  298. 298 printd2$"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][164] [146] return  [164][175][175][175][175][175][175][175][175][175][175][175][175][175]":poke198,0
  299. 299 geta$:onabs(a$<>re$)goto299:return
  300. 300 j=ja:m=mo-1:ifm=0thenm=12:j=ja-1
  301. 301 print"[147]";:mm$="auswertung:"+mo$(m)+"/"+str$(j):gosub19:print""ll$:print" [146][176]";:fora=1to35:print"[192]";:nexta:print"[174] [146]":fora=1to7:print" [146][194]"tab(37)"[194] [146]":nexta:print""tab(3)"[158]name ------->":printtab(3)"einnahmen -->":printtab(3)"ausgaben --->":printtab(3)"differenz -->":printtab(3)"kapital ---->"
  302. 302 printtab(3)"g. ansturm ->":printtab(3)"g[ste <k> -->       <l> ->":print" [146][173]";:fora=1to35:print"[192]";:nexta:print"[189] [146]":printl2$:return
  303. 303 print"[147]":gosub14:print""ll$:y2=3:printleft$(d1$,9)"[158] bitte w[hlen sie:":printx$x$x$"\":w$="strecken":printq$"linienplanung":printq$w$"h[uschen":printq$w$"karte":printq$hm$:x=18:og=3:gosub33:onabs(y2=3)goto4:ony2+1gosub111,131,43:goto303
  304. 304 print"[147]":gosub14:print""ll$:y2=4:a$(0)="aufnehmen":a$(1)="tilgen":a$(2)="gold":a$(3)="aktien":gosub305:goto306
  305. 305 print"[159]zinssatz :     %[158]":a1%=14:a2=zs:gosub39:print"[159]inflation:     %[158]":a1%=14:a2=in:gosub39:print"[145][145][145]":a$="uz":fora=2to3:printtab(18)"[159]"a$(a)tab(25)":         "a$"[158]":a1%=34:a2=gj(a-2,sp):gosub39:a$="stk.":nexta:print"[159]z.z. zins:         .-[158]":a1%=19:a2=zn(sp):gosub39:return
  306. 306 printleft$(d1$,11)"[158] optionen:":printx$x$"":fora=0to1:printq$"kredit "a$(a):nexta:a$="uz":fora=2to3:printq$a$(a)tab(9)"kaufen (      .-/"a$")":a1%=23:a2=gp%(a-2):gosub39:a$="stk.":nexta:printq$hm$
  307. 307 og=4:y=14:x=32:gosub33:onabs(y2=4)goto4:ify2>1thengosub325:goto313
  308. 308 printd1$"[153]wieviel kredit wollen sie "a$(y2)"?":print"=> ";:za=6:gosub216:me=val(a$):on-(me=0)goto313:ify2=1thenme=-me
  309. 309 ify2=1and-me>kr(sp)thenme=-kr(sp)
  310. 310 ify2=1and-me>ka(sp)thenme=-ka(sp)
  311. 311 ify2=0andkr(sp)+me>6e5thengosub314:goto313
  312. 312 ka(sp)=ka(sp)+me:kr(sp)=kr(sp)+me:gosub14
  313. 313 gosub17:goto307
  314. 314 printd2$" dieser kredit wird nicht mehr gew[hrt [146]":gosub299:return
  315. 315 printleft$(d1$,8)tab(9)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":fora=1to5:printtab(9)"[158][221]"left$(ll$,21)"[221]":nexta:printtab(9)"[158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  316. 316 ify2+x2+1>15thenprint""tab(34)f1$f3$:return
  317. 317 ify2+x2-1<0thenprint""tab(34)f3$f2$:return
  318. 318 print""tab(34)f1$f2$:return
  319. 319 x=0:a=fb%(dd,sp):ifa>0thena=a-1:fb%(dd,sp)=a:return
  320. 320 r=br%(dd,x,sp):ifr>0thenr=r-1:br%(dd,x,sp)=r:return
  321. 321 x=x+1:onabs(x<10)goto320:return
  322. 322 b%(0)=0:b%(1)=0:fora=0to1:ifdb%(a,sp)>1ordb%(a,sp)=-1thennexta:return
  323. 323 k=int(bb%(a,sp)/2):ifbb%(a,sp)=1anddb%(a,sp)=0thenk=1:db%(a,sp)=-1
  324. 324 b%(a)=b%(a)+k:bb%(a,sp)=bb%(a,sp)-k:nexta:return
  325. 325 q=y2-2:printd1$"[153]wieviel "a$(y2)" wollen sie (ver-) kaufen":print"=> ";:kc=45:gc=57:za=6:gosub217:me=val(a$):ifme=0thenreturn
  326. 326 ko=me*gp%(q):if(ka(sp)-ko<0andme>0)orgj(q,sp)+me<0thengosub18:return
  327. 327 ka(sp)=ka(sp)-ko:gosub14:gj(q,sp)=gj(q,sp)+me:gosub305:return
  328. 328 fk=0:fora=0to9:ifer%(a,sp)=1thenfk=fk+n%(a)
  329. 329 nexta:fk=int(fk/eb(sp)):gh%(3,sp)=1600+100*fk:return
  330. 330 ff=0:forx=0to9:ifbr%(y2,v,sp)-br%(y2,x,sp)>=1andx<>vander%(x,sp)=1thenff=1
  331. 331 nextx:return
  332. 332 print"[147]":gosub14:printl2$:y2=5
  333. 333 a$(0)="zeitung":a$(1)=" radio ":print"[159]geb[udezustand:     %[158]":a1%=19:a2=zg%(sp):gosub39:print" optionen"tab(23)z$(0):printx$"\\\\"tab(22)x$"\\\":fora=0to1:printq$"werbung ("a$(a)")":a1%=28:a2=kw%(a):gosub39:printtab(28)"[145][159].-":printtab(34)"[145](-)":ifwr%(a)=1thenprinttab(35)"[145]+"
  334. 334 nexta:printq$"geb[ude ausbessern":a1%=28:a2=zg:gosub39:printtab(28)"[145][159].-/%":printq$"steuern":printq$"^bersicht":printq$hm$:og=5:x=20:y=12:gosub33:on-(y2=5)goto4:ony2+1gosub335,335,338,340,344:gosub14:printl2$:gosub17:goto333
  335. 335 ifwr%(y2)=1orka(sp)<kw%(y2)thengosub18:return
  336. 336 printd1$"[153]"z$(0)kw%(y2)"[157].-":print"[158]o.k. ? ";:gosub206:ifa$="n"thenreturn
  337. 337 wr%(y2)=1:ka(sp)=ka(sp)-kw%(y2):return
  338. 338 printd1$"[153]wieviel % wollen sie ausbessern ?":print"=> ";:za=2:gosub216:me=val(a$):ko=me*zg:ifzg%(sp)+me>100orka(sp)<kothengosub18:return
  339. 339 print"[153]"z$(0)ko"[157].-":ka(sp)=ka(sp)-ko:zg%(sp)=zg%(sp)+me:as%=as%+me:gosub299:return
  340. 340 print"[147]":gosub14:printl2$:a$(0)="ehrlich":a$(1)="normal":a$(2)="betr^gerisch":y2=3
  341. 341 print"[159]"z$(1)"[157] letzten monats:":a1%=33:a2=gw(sp):gosub39:printtab(a1%)"[145][159].-":gosub359:print"steuern:         .-":a1%=17:a2=sr(sp):gosub39:print"[159]rest   :":a2=gw(sp)-sr(sp):gosub39:print"[158] 'steuerklassen'":printx$x$x$"":fora=0to2:printq$;:ifsk%(sp)=athenprint"";
  342. 342 printa$(a)"[146]":nexta:printq$hm$:og=3:x=15:y=15:gosub33:ify2=3thenprint"[147]":return
  343. 343 sk%(sp)=y2:goto341
  344. 344 print"[147]":mm$="^bersicht":gosub19:printl2$:a$(0)="erfolgs":a$(1)="[158]image":print"":x=5:fora=1to0step-1:printa$(a)"stufe"tab(17)":"tab(28)su%(a,sp):print"":ifa=1thenprint""ll$""
  345. 345 nexta:gosub350:print"[145][145][145][145][145][145][145][145][145]";:x=0:a$=" pkte.":j=as%(sp):i=g2:na$="[158]punkte  "
  346. 346 y1=17:printna$" insges.":a1%=30:a2=j:gosub349:print"n[chste stufe bei":a2=i:gosub349:j=v1:i=g1:a$=".-":print"":na$="[159]verm]gen":x=x+1:on-(x=1)goto346:print"[145][145][145][159]kapital":a2=ka(sp):gosub349:a$(0)="gold":a$(1)="aktien":fora=0to1:printa$(a)"wert":a2=gj(a,sp)*gp%(a)
  347. 347 gosub349:nexta:print"buswert":a2=x1:gosub349:print"sonstiges":a2=x2:gosub349:ifkr(sp)>0thenprinttab(8)"sie haben einen kredit !"
  348. 348 gosub298:print"[147]":return
  349. 349 printtab(y1)"[145]:":gosub39:printtab(30)"[145]"a$:return
  350. 350 v1=0:x1=0:x2=0:fora=0to1:x1=x1+gs%(a,sp)*p(a):next:fora=0to9:ifer%(a,sp)=1thenx2=x2+pr(a)
  351. 351 next:x2=x2+fg%(sp)*7000:v1=x1+x2+ka(sp)+gj(0,sp)*gp%(0)+gj(1,sp)*gp%(1):i=su%(0,sp):gosub362:g1=j:g2=(su%(1,sp)+1)*100:ifx=5thenreturn
  352. 352 fora=0to1:ifwr%(a)=1thenas%(sp)=as%(sp)+10*(a+1):wr%(a)=0
  353. 353 nexta:as%(sp)=as%(sp)+as%*2:as%=0:return
  354. 354 gosub359:x=int(rnd(0)*10+1):ifsk%(sp)=0thenka(sp)=ka(sp)-sr(sp):return
  355. 355 ifx<>10thenreturn
  356. 356 printd1$"[145][145][145][145][145][145]"ll$"[145]":a$=" steuer: ":gosub41:x=5+sk%(sp):ko=450*x:ifsr(sp)>0thenko=sr(sp)*x
  357. 357 print"[151]ihr"a$"[157][157]skandal wurde entdeckt !":print"nachzahlung:"ko"[157].-":ka(sp)=ka(sp)-ko:as%(sp)=as%(sp)-sk%(sp)*7:ifas%(sp)<0thenas%(sp)=0
  358. 358 gosub14:return
  359. 359 x=gw(sp)-kr(sp):ifx<=0orgw(sp)<0thensr(sp)=0:return
  360. 360 sr(sp)=int(x*(.2-.05*sk%(sp))):return
  361. 361 poke53280,0:poke53281,0:poke838,200:poke841,216:poke53272,21:poke56576,151:poke648,4:sys832:return
  362. 362 j=(5e5-5e5*(i>0))*(i-(i=0)):return
  363.