home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh73b.d64 / omni.main (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.