1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
12 POKE781,23:SYS59903:POKE781,24:SYS59903
14 POKE211,2:POKE214,23:SYS58640:PRINT"[144]BITTE WARTEN SIE NOCH 15 SEKUNDEN!"
20 Z=20:S=29:DIMC(Z,S),N$(Z,S),F%(Z,S),F1%(36),M$(5,10)
22 P=3:A=20:DIMZ%(P,A),S%(P,A),B(P,A),V(P),P$(P),A%(P)
25 FORI=0TOP:V(I)=1000:NEXTI:F2%(0)=1:F2%(1)=7:F2%(2)=2:F2%(3)=6
30 FORZ=0TO20:FORS=0TO29:READH$
31 IFH$="*"THENREADH,H$:FORI=STOS+H:N$(Z,I)=H$:NEXT:S=S+H:GOTO33
32 N$(Z,S)=H$
33 NEXT:NEXT
34 FORZ=0TO20:FORS=0TO29:READH
35 IFH<0THENREADH1:FORI=STOS-H:C(Z,I)=H1:NEXT:S=S-H:GOTO37
36 C(Z,S)=H
37 NEXT:NEXT
38 FORZ=8TO12STEP2:FORS=3TO25STEP2:READF%(Z,S):NEXT:NEXT
39 FORI=1TO36:READF1%(I):NEXT:FORI=0TO5:FORJ=0TO10:READM$(I,J):NEXT:NEXT
40 POKE781,23:SYS59903:POKE781,24:SYS59903
42 POKE211,31:POKE214,20:SYS58640:PRINT"      ":GOSUB60000
50 POKE211,0:POKE214,23:SYS58640:PRINT"[144]WIEVIELE SPIELER SPIELEN MIT (1-4) ?"
52 Z=23:S=37:M=1:L=1:I$="":GOSUB60200
54 AP=VAL(I$)-1:IFAP<0ORAP>3GOTO52
56 FORI=0TOAP:POKE211,0:POKE214,24:SYS58640:PRINT"[144]NAME VON SPIELER"I+1"?";
57 Z=24:S=21:M=0:L=8:I$="":GOSUB60200
58 IFLEN(I$)<8THENFORJ=LEN(I$)TO7:I$=I$+" ":NEXTJ
59 P$(I)=I$:NEXTI
60 GOSUB60100:GOSUB60400
69 FORP=0TOAP:GOSUB41000:NEXT
70 AN=RND(-TI):AN=INT(RND(1)*37):RN=1:GOSUB60800
72 GOSUB60900
80 POKE53242,27:POKE53289,6:POKE53264,0:POKE53252,30:POKE53253,30:POKE53269,4
81 POKE53243,27:POKE53244,27:POKE53245,27:POKE53246,27:POKE53247,27
100 GOSUB60000
101 POKE214,20:POKE211,31:SYS58640:PRINT"MEN[186]    "
105 Z=7:S=6:M=0:GOSUB42000
150 Z=8:S=11:L=9:M=1:GOSUB60500
160 ONMGOTO1000,2000,3000,4000,5000,6000,8000,9000,10000
1000 POKE214,20:POKE211,31:SYS58640:PRINT"SETZEN"
1010 GOSUB40000
1030 M=1:S=19:Z=13:L=AP+2:GOSUB60500
1040 IFM-2=APGOTO101
1045 P=M-1:IFA%(P)=20GOTO101
1050 POKE211,18:POKE214,15+P:SYS58640:PRINT"[178][184][184][184][184][184][184][184][179]"
1052 POKE211,18:POKE214,16+P:SYS58640:PRINT"[182]BETRAG?[183]"
1054 POKE211,18:POKE214,17+P:SYS58640:PRINT"[182][192][192][192][192][192][192][192][183]"
1056 POKE211,18:POKE214,18+P:SYS58640:PRINT"[144][182]0000000[144][183]"
1058 POKE211,18:POKE214,19+P:SYS58640:PRINT"[180][185][185][185][185][185][185][185][181]"
1060 FORI=0TO6:B%(I)=0:NEXT:M=0:L=6:S=25:Z=18+P:POKE646,1:GOSUB60600
1070 B=0:FORI=0TO6:B=B+B%(I)*10^I:NEXT:B=INT(B+.1)
1080 IFB=0GOTO101
1085 IFB>V(P)+.5GOTO1056
1100 GOSUB60100:POKE214,20:POKE211,31:SYS58640:PRINT"SETZEN"
1105 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
1106 POKE53255,240:POKE53290,6:H=60+72*P:IFH>255THENH=H-255:POKE53264,8
1107 POKE53254,H:POKE53269,12
1109 S=27:Z=10
1110 M=0:GOSUB50000
1120 IFN$(Z,S)="EXIT"THENGOSUB60100:POKE53269,4:POKE53264,0:GOTO101
1125 IFN$(Z,S)="---"GOTO1110
1130 V(P)=INT(V(P)-B+.5):B(P,A%(P))=B:Z%(P,A%(P))=Z:S%(P,A%(P))=S:A%(P)=A%(P)+1
1140 FORI=11TO20STEP3:POKE214,I:POKE211,31:SYS58640:PRINT"        ":NEXT
1150 GOSUB41000
1160 POKE53269,4:POKE53264,0:GOTO100
2000 POKE214,20:POKE211,31:SYS58640:PRINT"KORREKT."
2010 GOSUB40000
2030 M=1:S=19:Z=13:L=AP+2:GOSUB60500
2040 IFM-2=APGOTO101
2045 P=M-1
2050 IFA%(P)=0GOTO101
2052 GOSUB60100
2055 S=27:Z=10
2060 FORI=0TOA%(P)-1:POKE211,S%(P,I):POKE214,Z%(P,I)+2:SYS58640:PRINT"[208][146]":NEXT
2070 POKE53255,240:POKE53290,6:H=60+72*P:IFH>255THENH=H-255:POKE53264,8
2072 POKE53254,H:POKE53269,12
2075 GOSUB50000
2077 IFN$(Z,S)="EXIT"THENGOSUB60100:POKE53269,4:POKE53264,0:GOTO101
2080 IFPEEK(52304+40*Z+S)<>208GOTO2075
2090 FORI=0TOA%(P)-1:IFZ%(P,I)=ZANDS%(P,I)=STHENH2=I:I=A%(P)-1
2095 NEXTI
2097 B=B(P,H2):POKE646,1
2100 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
2110 POKE214,22:POKE211,0:SYS58640:PRINT"[144]NEHMEN? JA  NEIN     "
2120 H1=0:POKE53252,140:POKE53253,230
2125 H=PEEK(56321):IFH=255GOTO2125
2130 IFH=247THENPOKE53252,140:H1=0:GOTO2125
2135 IFH=251THENPOKE53252,95:H1=1:GOTO2125
2140 IFH<>239GOTO2125
2145 POKE214,17:POKE211,31:SYS58640:PRINT"        "
2150 IFH1=0THENPOKE781,22:SYS59903:GOTO2070
2160 V(P)=V(P)+B:A%(P)=A%(P)-1
2170 FORI=H2TOA%(P):B(P,I)=B(P,I+1):S%(P,I)=S%(P,I+1):Z%(P,I)=Z%(P,I+1):NEXT
2200 GOSUB60100
2205 GOSUB41000
2220 POKE53269,4:POKE53264,0:GOTO100
3000 GOSUB60100:POKE211,31:POKE214,20:SYS58640:PRINT"ANZEIGEN"
3005 S=27:Z=10
3010 FORP=0TOAP:IFA%(P)=0GOTO3029
3020 FORI=0TOA%(P)-1:POKE211,S%(P,I):POKE214,Z%(P,I)+2:SYS58640:POKE646,F2%(P)
3022 IFPEEK(52304+Z%(P,I)*40+S%(P,I))=208THENPOKE646,0
3024 PRINT"[208][146]":NEXT
3029 POKE53290+P,F2%(P)
3030 POKE53255+P*2,240:H=60+72*P:IFH>255THENH=H-255:POKE53264,64
3032 POKE53254+P*2,H:POKE53269,PEEK(53269)+2^(3+P)
3040 NEXTP
3050 GOSUB50000
3060 IFN$(Z,S)="EXIT"THENPOKE53269,4:POKE53264,0:GOSUB60100:GOTO101
3065 IFPEEK(52304+Z*40+S)<>208GOTO3050
3075 P=0
3080 FORJ=PTOAP:FORI=0TOA%(J)-1:IFZ%(J,I)=ZANDS%(J,I)=STHENH2=I:I=25:P=J:J=5
3090 NEXT:NEXT
3097 B=B(P,H2):POKE646,1
3100 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
3105 POKE55974,F2%(P):POKE52902,208
3107 H3=PEEK(53269):POKE53269,4+2^(P+3)
3110 POKE214,22:POKE211,0:SYS58640:GOSUB43500
3125 POKE781,22:SYS59903:POKE52902,32:POKE53269,H3
3127 POKE214,17:POKE211,31:SYS58640:PRINT"        "
3130 IF((PEEK(55376+Z*40+S)AND15)=0)ANDP<APTHENP=P+1:GOTO3080
3140 GOTO3050
4000 GOSUB60100:POKE214,20:POKE211,31:SYS58640:PRINT"R.N.V.P."
4010 Z=5:S=5:M=1:GOSUB42000
4100 N=INT(RND(1)*37)
4190 H1=0:H=20-38-N
4200 FORI=0TO36:H=H+1:POKE211,24:POKE214,10:SYS58640:PRINTI;
4205 FORJ=1TOSGN(H)*H^2:NEXT
4210 H1=H1+1:IFH1=38+NTHENI=36:H1=38
4220 NEXT:IFH1<38THENPRINT"[157][157][157]  ":GOTO4200
4222 AN=N
4225 GOSUB60900
4240 POKE211,6:POKE214,11:SYS58640:PRINT"[144]DIE ZAHL:";
4242 IFF1%(N)=1THENPRINTN;"[144](SCHW.)"
4244 IFF1%(N)=2THENPRINTN;"(ROT)"
4246 IFF1%(N)=0THENPRINT" 0 (NULL)"
4248 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER":M=14:GOSUB43000
4250 POKE214,14:POKE211,6:SYS58640:PRINT"[144]EINEN MOMENT BITTE..."
4260 IFN=0GOTO4510
4270 FORP=0TOAP:H=0:G=0:FORI=0TOA%(P)-1
4280 S=S%(P,I):Z=Z%(P,I):B=B(P,I)
4300 H2=((S-2)/2)*3:H3=((S-3)/2)*3:H4=((S-4)/2)*3
4305 H5=(14-Z)/2:H6=(13-Z)/2:H7=(15-Z)/2
4310 IFZ<2ORZ>6GOTO4320
4312 IFS>2ANDS<10ANDN<19GOTO4500
4314 IFS>10ANDS<18ANDN/2<>INT(N/2)GOTO4500
4316 IFS>18ANDS<26ANDF1%(N)=2GOTO4500
4320 IFZ<14ORZ>18GOTO4330
4322 IFS>2ANDS<10ANDN>18GOTO4500
4324 IFS>10ANDS<18ANDN/2=INT(N/2)GOTO4500
4326 IFS>18ANDS<26ANDF1%(N)=1GOTO4500
4330 IF(Z=8ORZ=10ORZ=12)ANDS=27AND((Z-8)/2+N)/3=INT(((Z-8)/2+N)/3)GOTO4500
4335 IFNOT((Z=9ORZ=11)ANDS=27)GOTO4340
4337 IF((Z-9)/2+N)/3=INT(((Z-9)/2+N)/3)GOTO4500
4338 IF((Z-7)/2+N)/3=INT(((Z-7)/2+N)/3)GOTO4500
4340 IF(Z=2ORZ=18)ANDS=26ANDN<13GOTO4500
4342 IF(Z=4ORZ=16)AND(S=26ORS=27)ANDN>12ANDN<25GOTO4500
4344 IF(Z=6ORZ=14)ANDS=27ANDN>24GOTO4500
4346 IF(Z=3ORZ=17)AND(S=26ORS=27)ANDN<25GOTO4500
4348 IF(Z=5ORZ=15)AND(S=26ORS=27)ANDN>12GOTO4500
4350 IFS=2AND(Z=7ORZ=13)AND(N=1ORN=2ORN=3)GOTO4500
4352 IFS=2AND(Z=8ORZ=10ORZ=12)ANDN=H5GOTO4500
4354 IFS=2AND(Z=9ORZ=11)AND(N=H6ORN=H7)GOTO4500
4360 IFNOT((Z=7ORZ=13)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4370
4365 IFH2+1=NORH2+2=NORH2+3=NORH4+1=NORH4+2=NORH3+4=NGOTO4500
4370 IFNOT((Z=7ORZ=13)ANDS>2ANDS<26ANDS/2<>INT(S/2))GOTO4380
4375 IFH3+1=NORH3+2=NORH3+3=NGOTO4500
4380 IFNOT((Z=9ORZ=11)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4390
4385 IFH6+H4=NORH6+H2=NORH7+H4=NORH7+H2=NGOTO4500
4390 IF(Z=9ORZ=11)ANDS>2ANDS<26ANDS/2<>INT(S/2)AND(H6+H3=NORH7+S3=N)GOTO4500
4400 IFNOT((Z=8ORZ=10ORZ=12)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4410
4405 IFH5+H4=NORH5+H2=NGOTO4500
4410 IF(Z=8ORZ=10ORZ=12)ANDS>2ANDS<26ANDS/2<>INT(S/2)ANDH5+H3=NGOTO4500
4450 H=H+B:NEXTI:GOTO4600
4500 G=G+B*C(Z,S):GOTO4450
4510 FORP=0TOAP:H=0:G=0:FORI=0TOA%(P)-1
4515 S=S%(P,I):Z=Z%(P,I):B=B(P,I)
4520 IFS=1GOTO4590
4525 IFS=2AND(Z=7ORZ=13)GOTO4590
4527 IFS=2AND(Z=8ORZ=10ORZ=12)GOTO4590
4530 IFS=2AND(Z=9ORZ=11)GOTO4590
4540 IF(Z<7ORZ>13)ANDS<26THENG=G+B*.5
4550 H=H+B:NEXTI:GOTO4600
4590 G=G+B*C(Z,S):GOTO4550
4600 POKE214,6:POKE211,6:SYS58640:PRINT"[144]AUSWERTUNG F[186]R       "
4605 POKE214,7:POKE211,6:SYS58640:PRINT"SPIELER "P$(P)"     "
4610 POKE214,9:POKE211,6:SYS58640:PRINT"[144]SIE SETZTEN $        [157][157][157][157][157][157][157][157]";
4612 G=INT(G+.5):H=INT(H+.1):V(P)=V(P)+G:IFV(P)>9999999GOTO4990
4615 L=LEN(STR$(H)):PRINTSPC(9-L)RIGHT$(STR$(H),L-1)
4620 POKE214,10:POKE211,6:SYS58640:PRINT"[144]ZUR[186]CK      $        [157][157][157][157][157][157][157][157]";
4625 L=LEN(STR$(G)):PRINTSPC(9-L)RIGHT$(STR$(G),L-1)
4630 POKE214,11:POKE211,6:SYS58640
4632 IFG-H<0THENPRINT"[144]IHR VERLUST $        [157][157][157][157][157][157][157][157]";
4634 IFG-H<0THENL=LEN(STR$(H-G)):PRINTSPC(9-L)RIGHT$(STR$(H-G),L-1):GOTO4640
4636 PRINT"[144]IHR GEWINN  $        [157][157][157][157][157][157][157][157]";
4638 L=LEN(STR$(G-H)):PRINTSPC(9-L)RIGHT$(STR$(G-H),L-1)
4640 POKE214,12:POKE211,6:SYS58640:PRINT"[144]IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
4642 GOSUB44500
4645 POKE214,13:POKE211,6:SYS58640:PRINT"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4650 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER               ":M=14
4660 GOSUB43000
4700 IFK(P)=0GOTO4800
4710 POKE214,6:POKE211,6:SYS58640:PRINT"[144]ZINSFORDERUNG AN"
4712 POKE214,9:POKE211,6:SYS58640:PRINT"DAS BANKHAUS GIER AG "
4714 POKE214,10:POKE211,6:SYS58640:PRINT"FORDERT F[186]R IHRE     "
4716 POKE214,11:POKE211,6:SYS58640:PRINT"SCHULDEN ($          [157][157][157][157][157][157][157][157][157][157]"K(P);
4718 PRINT"[144][157])"
4720 POKE214,12:POKE211,6:SYS58640:PRINT"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
4722 PRINT"[157][157][157][157][157]$"INT(K(P)*5/100+.5)"[144]ZINSEN"
4730 GOSUB43000
4740 V(P)=V(P)-INT(K(P)*5/100+.5):IFV(P)<0THENK(P)=INT(K(P)-V(P)+.1):V(P)=0
4750 POKE214,6:POKE211,6:SYS58640:PRINT"[144]TILGUNGSM[GLICHKEIT"
4752 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
4753 GOSUB44500
4754 POKE214,10:POKE211,6:SYS58640:PRINT"[144]SCHULDEN    $        [157][157][157][157][157][157][157][157]";
4755 GOSUB44000
4756 POKE214,11:POKE211,6:SYS58640:PRINT"[144]WIEVIEL M[CHTEN SIE  "
4758 POKE214,12:POKE211,6:SYS58640:PRINT"[144]TILGEN ?    $00000000"
4759 POKE53269,0:POKE214,14:POKE211,6:SYS58640:PRINT"00000000 F[186]R NICHTS"
4760 FORJ=0TO7:B%(J)=0:NEXT:L=7:Z=12:S=26:M=0:GOSUB60600
4770 B=0:FORJ=OTO7:B=B+B%(J)*10^J:NEXT
4775 IFINT(B+.1)>INT(K(P)+.1)ORINT(B+.1)>INT(V(P)+.1)GOTO4758
4780 V(P)=INT(V(P)-B+.1):K(P)=INT(K(P)-B+.1)
4800 POKE214,6:POKE211,6:SYS58640:PRINT"[144]KREDITANGEBOT AN   "
4802 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
4803 GOSUB44500
4804 POKE214,10:POKE211,6:SYS58640:PRINT"[144]SCHULDEN    $        [157][157][157][157][157][157][157][157]";
4805 GOSUB44000
4806 POKE214,11:POKE211,6:SYS58640:PRINT"[144]WIEVIEL M[CHTEN SIE  "
4808 POKE214,12:POKE211,6:SYS58640:PRINT"AUFNEHMEN (5%)? $0000"
4809 POKE214,14:POKE211,6:SYS58640:PRINT"0000 F[186]R NICHTS      "
4810 FORJ=0TO3:B%(J)=0:NEXT:L=3:Z=12:S=26:M=0:GOSUB60600
4820 B=0:FORJ=OTO3:B=B+B%(J)*10^J:NEXT
4830 V(P)=INT(V(P)+B+.1):K(P)=INT(K(P)+B+.1)
4850 POKE214,6:POKE211,6:SYS58640:PRINT"[144]BILANZ F[186]R         "
4852 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
4853 GOSUB44500
4854 POKE214,10:POKE211,6:SYS58640:PRINT"[144]-SCHULDEN   $        [157][157][157][157][157][157][157][157]";
4855 GOSUB44000
4860 POKE214,11:POKE211,6:SYS58640:PRINT"[144]=IHR SPIELSTAND      "
4865 POKE214,12:POKE211,6:SYS58640:PRINT"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157]$";
4867 PRINTINT(V(P)-K(P))
4870 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER               ":M=14
4880 GOSUB43000
4890 A%(P)=0:B(P,0)=0:NEXTP
4900 IFAP=0GOTO4950
4902 POKE214,6:POKE211,6:SYS58640:PRINT"[144]SPIELSTAND           "
4905 POKE214,7:POKE211,6:SYS58640:PRINT"(KAPITAL - SCHULDEN) "
4908 FORH=9TO12:POKE214,H:POKE211,6:SYS58640:PRINT"                     ":NEXT
4910 FORP=0TOAP:POKE214,9+P:POKE211,6:SYS58640:PRINT"[144]"P$(P)"   $";
4915 L=LEN(STR$(V(P)-K(P))):PRINTSPC(9-L)STR$(V(P)-K(P))
4920 NEXTP
4925 IFH8=1THENH8=0:GOTO10100
4930 GOSUB43000
4950 GOSUB60100:RN=RN+1:AN=N
4960 GOSUB60800
4962 GOSUB60900
4980 FORP=0TOAP:GOSUB41000:NEXT
4985 GOTO100
4990 FORI=2TO24:POKE781,I:SYS59903:NEXT:POKE214,4:POKE211,0:SYS58640
4992 PRINT"GRATULIERE, SPIELER "P$(P):PRINT"SIE HABEN DIE BANK GEKNACKT!"
4994 PRINT"MIT EINEM VERM[GEN VON $"V(P):PRINT"SIND SIE DER ROULETTE-K[NIG."
4996 GOSUB43500:P=AP:H8=1:GOTO4920
5000 POKE214,20:POKE211,31:SYS58640:PRINT"LADEN"
5005 FORI=22TO24:POKE781,I:SYS59903:NEXT
5010 POKE214,22:POKE211,0:SYS58640:PRINT"[144]FILENAME ?"
5015 M=0:L=10:Z=22:S=11:I$="":GOSUB60200
5022 IFI$=""THENGOSUB60100:GOTO101
5025 POKE211,0:POKE214,23:SYS58640:PRINT"[144]BITTE LEGEN SIE DIE DISKETTE EIN!"
5030 H1=0:GOSUB60700:IFH1=1THENGOSUB60100:GOTO101
5035 POKE781,23:SYS59903
5036 POKE781,24:SYS59903
5037 POKE144,0:OPEN2,8,2:CLOSE2:IFST<>0THENPOKE211,0:POKE214,23:SYS58640
5038 IFST<>0THENPRINT"[144]BITTE SCHALTEN SIE DAS LAUFWERK EIN!":GOTO5030
5040 OPEN15,8,15:OPEN2,8,2,"SP."+I$+",S,R"
5050 INPUT#15,E,E$:POKE211,0:POKE214,23:SYS58640:PRINT"[144]"E;E$
5055 IFE<>0THENCLOSE2:CLOSE15:GOTO5030
5060 INPUT#2,AP,AN,RN
5070 FORI=0TOAP:INPUT#2,P$(I),V(I),K(I)
5075 INPUT#2,A%(I)
5080 IFA%(I)>0THENFORJ=0TOA%(I):INPUT#2,B(I,J),S%(I,J),Z%(I,J):NEXT
5090 NEXT:CLOSE2:CLOSE15
5095 IFAP<3THENFORI=AP+1TO3:P$(I)="":NEXT
5100 GOSUB60100:FORI=22TO24:POKE781,I:SYS59903:NEXT
5102 GOSUB60400
5110 FORP=0TOAP:GOSUB41000:NEXT:GOSUB60800
5120 GOTO72
6000 POKE214,20:POKE211,31:SYS58640:PRINT"SPEICH."
6005 FORI=22TO24:POKE781,I:SYS59903:NEXT
6010 POKE214,22:POKE211,0:SYS58640:PRINT"[144]FILENAME ?"
6015 M=0:L=10:Z=22:S=11:I$="":GOSUB60200
6022 IFI$=""THENGOSUB60100:GOTO101
6025 POKE211,0:POKE214,23:SYS58640:PRINT"[144]BITTE LEGEN SIE EINE DISKETTE EIN!"
6030 H1=0:GOSUB60700:IFH1=1THENGOSUB60100:GOTO101
6035 POKE781,23:SYS59903
6036 POKE781,24:SYS59903
6037 POKE144,0:OPEN2,8,2:CLOSE2:IFST<>0THENPOKE211,0:POKE214,23:SYS58640
6038 IFST<>0THENPRINT"[144]BITTE SCHALTEN SIE DAS LAUFWERK EIN!":GOTO6030
6040 OPEN15,8,15:OPEN2,8,2,"SP."+I$+",S,W"
6050 INPUT#15,E,E$:POKE211,0:POKE214,23:SYS58640:PRINT"[144]"E;E$
6055 IFE<>0THENCLOSE2:CLOSE15:GOTO6030
6060 PRINT#2,AP;CHR$(13);AN;CHR$(13);RN;CHR$(13);
6070 FORI=0TOAP:PRINT#2,P$(I);CHR$(13);V(I);CHR$(13);K(I);CHR$(13);
6075 PRINT#2,A%(I);CHR$(13);:IFA%(I)=0GOTO6090
6080 FORJ=0TOA%(I):PRINT#2,B(I,J);CHR$(13);S%(I,J);CHR$(13);Z%(I,J);CHR$(13);
6085 NEXT
6090 NEXT:CLOSE2:CLOSE15:GOSUB60100:GOTO101
8000 POKE214,20:POKE211,31:SYS58640:PRINT"DISKETTE"
8010 Z=10:S=15:M=2:GOSUB42000
8030 M=1:S=19:Z=13:L=3:GOSUB60500
8040 ONMGOTO101,8100,8200
8100 PRINT"[147][144]":OPEN15,8,15,"I"
8105 INPUT#15,E,E$:PRINTE,E$:PRINT
8110 IFE<>0THEN8175
8115 OPEN2,8,2,"#":H1=18:H2=1:H3=0
8120 PRINT#15,"U1:";2;0;H1;H2:GET#2,H1$,H2$:H1=ASC(H1$+CHR$(0))
8125 H2=ASC(H2$+CHR$(0))
8130 FORI=0TO7:PRINT#15,"B-P:";2;2+32*I:GET#2,H$:IFH$=""THENH$=CHR$(0)
8135 H=ASC(H$)AND15:IFH=0ORH>4THEN8165
8145 GET#2,H$,H$
8150 FORJ=0TO15:GET#2,H$:IFH$=CHR$(160)THENJ=15:GOTO8160
8155 PRINTH$;
8160 NEXTJ:PRINT
8165 H3=H3+1:NEXTI
8170 IFH1<>0THEN8120
8175 CLOSE2:CLOSE15:PRINT"":GOSUB43500:GOSUB60100:GOTO101
8200 Z=15:S=11:M=3:GOSUB42000
8240 I$="":L=10:Z=18:S=12:M=0:GOSUB60200
8245 IFI$=""THENGOTO101
8250 OPEN15,8,15,"S:SP."+I$:CLOSE15
8500 GOTO101
9000 POKE214,20:POKE211,31:SYS58640:PRINT"ANLEIT. "
9010 GOSUB60100:POKE781,23:SYS59903:POKE781,24:SYS59903
9015 POKE211,0:POKE214,24:SYS58640:PRINT"BITTE DR[186]CKEN SIE DEN FEUERKNOPF";
9020 Z=8:S=9:H$="ES GEWINNT DIE ZAHL 12.":GOSUB9100
9021 Z=9:S=9:H$="ES GEWINNEN DIE ZAHLEN 11-12.":GOSUB9100
9022 Z=7:S=9:H$="ES GEWINNEN DIE ZAHLEN 10,11,12.":GOSUB9100
9023 Z=9:S=10:H$="ES GEWINNEN DIE ZAHLEN 11,12,14,15.":GOSUB9100
9024 Z=7:S=2:H$="ES GEWINNEN DIE ZAHLEN 0,1,2,3":GOSUB9100
9025 Z=7:S=4:H$="ES GEWINNEN DIE ZAHLEN 1,2,3,4,5,6":GOSUB9100
9026 Z=8:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 3.REIHE":GOSUB9100
9027 Z=10:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 2.REIHE":GOSUB9100
9028 Z=12:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 1.REIHE":GOSUB9100
9029 Z=11:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 1.U.2.REIHE":GOSUB9100
9030 Z=2:S=26:H$="ES GEWINNEN DIE ZAHLEN 1-12":GOSUB9100
9031 Z=4:S=27:H$="ES GEWINNEN DIE ZAHLEN 13-24":GOSUB9100
9032 Z=6:S=27:H$="ES GEWINNEN DIE ZAHLEN 25-36":GOSUB9100
9033 Z=5:S=27:H$="ES GEWINNEN DIE ZAHLEN 13-36":GOSUB9100
9034 Z=5:S=16:H$="ES GEWINNEN ALLE UNGERADEN ZAHLEN":GOSUB9100
9035 Z=18:S=16:H$="ES GEWINNEN ALLE GERADEN ZAHLEN":GOSUB9100
9036 Z=5:S=22:H$="ES GEWINNEN ALLE ROTEN ZAHLEN":GOSUB9100
9037 Z=18:S=22:H$="ES GEWINNEN ALLE SCHWARZEN ZAHLEN":GOSUB9100
9038 Z=5:S=8:H$="ES GEWINNEN ALLE ZAHLEN 1-18":GOSUB9100
9039 Z=18:S=8:H$="ES GEWINNEN ALLE ZAHLEN 19-36":GOSUB9100
9050 GOSUB60100:GOTO101
9100 POKE53252,S*8+28:POKE53253,Z*8+70
9110 POKE214,11:POKE211,31:SYS58640:PRINT"        [157][157][157][157][157][157][157][157]"N$(Z,S);
9120 IFF%(Z,S)=1THENPRINT" [144]SCHW."
9130 IFF%(Z,S)=2THENPRINT"   ROT"
9140 POKE214,14:POKE211,31:SYS58640:PRINT"*"C(Z,S)"[157]  "
9150 POKE781,23:SYS59903
9160 POKE211,0:POKE214,23:SYS58640:PRINT"[144]"H$
9200 IFPEEK(56321)<>239GOTO9200
9210 RETURN
10000 POKE214,20:POKE211,31:SYS58640:PRINT"ENDE  "
10010 Z=10:S=15:M=4:GOSUB42000
10030 M=1:S=19:Z=13:L=3:GOSUB60500
10040 ONMGOTO101,10100,10200
10100 FORI=0TO3:P$(I)="":A%(I)=0:V(I)=1000:K(I)=0:NEXT:GOSUB60100:GOTO40
10200 GOSUB60100:Z=6:S=5:M=5:GOSUB42000
10225 H=0:POKE198,0:FORI=1TO150:IFPEEK(198)<>0THENH=1:I=150
10226 NEXTI
10228 IFH=1GOTO101
10230 SYS64738
40000 POKE214,10:POKE211,15:SYS58640:PRINT"[144][178][184][184][184][184][184][184][184][184][179]"
40005 POKE214,11:POKE211,15:SYS58640:PRINT"[182]SPIELER?[183]"
40010 POKE214,12:POKE211,15:SYS58640:PRINT"[182][192][192][192][192][192][192][192][192][183]"
40015 FORI=0TOAP:POKE214,13+I:POKE211,15:SYS58640:PRINT"[182]"P$(I)"[144][183]":NEXT
40020 POKE214,14+AP:POKE211,15:SYS58640:PRINT"[182]KEINER  [144][183]"
40030 POKE214,15+AP:POKE211,15:SYS58640:PRINT"[180][185][185][185][185][185][185][185][185][181]":RETURN
41000 POKE214,24:POKE211,3+P*9:SYS58640:PRINT"        ";:POKE214,24
41010 POKE211,(P+1)*9-INT(ABS(LOG(V(P)+.5)/LOG(10))):SYS58640:PRINTV(P);:RETURN
42000 FORI=0TO10:IFM$(M,I)=""THENI=11:GOTO42020
42010 POKE214,Z+I:POKE211,S:SYS58640:PRINTM$(M,I)
42020 NEXT:RETURN
43000 POKE53252,90:POKE53253,53+M*8:POKE53269,4
43010 IFPEEK(56321)<>239GOTO43010
43020 POKE53269,0:RETURN
43500 PRINT"BITTE DR[186]CKEN SIE DEN FEUERKNOPF!"
43510 IFPEEK(56321)<>239GOTO43510
43520 RETURN
44000 L=LEN(STR$(K(P))):PRINTSPC(9-L)RIGHT$(STR$(K(P)),L-1):RETURN
44500 L=LEN(STR$(V(P))):PRINTSPC(9-L)RIGHT$(STR$(V(P)),L-1):RETURN
50000 IFS<0THENS=28
50005 IFS>28THENS=0
50010 IFZ<0THENZ=20
50015 IFZ>20THENZ=0
50020 POKE53252,S*8+28:POKE53253,Z*8+70
50030 POKE214,11:POKE211,31:SYS58640:PRINT"        [157][157][157][157][157][157][157][157]"N$(Z,S);
50031 IFF%(Z,S)=1THENPRINT" [144]SCHW.":GOTO50035
50032 IFF%(Z,S)=2THENPRINT"   ROT"
50035 POKE214,14:POKE211,31:SYS58640:PRINT"*"C(Z,S)"[157]  "
50050 H=PEEK(56321):IFH=255GOTO50050
50060 IFH=254THENZ=Z-1:GOTO50010
50065 IFH=253THENZ=Z+1:GOTO50010
50070 IFH=251THENS=S-1:GOTO50000
50075 IFH=247THENS=S+1:GOTO50000
50080 IFH=239THENRETURN
50090 GOTO50050
60000 POKE781,204:POKE780,0:POKE91,207:POKE90,232:POKE89,7:POKE88,232:SYS50856
60005 POKE781,216:POKE780,0:POKE91,219:POKE90,232:POKE89,203:POKE88,232:SYS50856
60010 RETURN
60100 POKE781,4:POKE780,0:POKE91,7:POKE90,232:POKE89,207:POKE88,232:SYS50856
60105 POKE781,200:POKE780,0:POKE91,203:POKE90,232:POKE89,219:POKE88,232:SYS50856
60110 RETURN
60200 POKE198,0:SP=LEN(I$):POKE211,S:POKE214,Z:SYS58640
60202 FORJ=0TOL:PRINT" ";:NEXTJ:POKE214,Z:POKE211,S:SYS58640
60204 PRINTI$" [146]";
60220 GETG$:IFG$=""THEN60220
60230 A=ASC(G$):IFM=0AND((A>31ANDA<94)ORA=160ORA=186)GOTO60300
60235 IFM=1AND(A>47ANDA<58)GOTO60300
60240 IFA=13THENPRINT"[157] ";:RETURN
60245 IFA=20THENSP=0:I$="":GOTO60200
60250 GOTO60220
60300 SP=SP+1:IFSP>LTHENSP=L:GOTO60220
60305 I$=I$+G$:PRINT"[157]"G$" [146]";:GOTO60220
60400 POKE211,0:POKE214,23:SYS58640
60405 FORI=0TO3:PRINT"[144]"TAB(I*9+2)"[167]"P$(I);:NEXT:PRINTTAB(38)"[167]"
60410 FORI=0TO4:PRINTTAB(I*9+2)"[167]";:NEXT:RETURN
60500 POKE53269,4
60501 IFM<1THENM=1
60502 IFM>LTHENM=L
60510 POKE53252,S*8+28:POKE53253,(Z+M)*8+46
60520 H=PEEK(56321):IFH=255GOTO60520
60522 IFH=254THENM=M-1:GOTO60501
60524 IFH=253THENM=M+1:GOTO60501
60528 IFH=239THENRETURN
60530 GOTO60520
60600 IFB%(M)<0THENB%(M)=9
60602 IFB%(M)>9THENB%(M)=0
60605 IFM>LTHENM=L
60607 IFM<0THENM=0
60610 POKE214,Z:POKE211,S-M:SYS58640:PRINT""RIGHT$(STR$(B%(M)),1)"[146]"
60620 H=PEEK(56321):IFH=255GOTO60620
60630 IFH=254THENB%(M)=B%(M)+1:GOTO60600
60632 IFH=253THENB%(M)=B%(M)-1:GOTO60600
60634 IFH=251THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:M=M+1:GOTO60605
60636 IFH=247THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:M=M-1:GOTO60605
60638 IFH=239THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:RETURN
60640 GOTO60620
60700 POKE211,0:POKE214,24:SYS58640:PRINT"WEITER  MEN[186]";
60705 POKE53252,45:POKE53253,242
60710 H=PEEK(56321):IFH=255GOTO60710
60715 IFH=251THENPOKE53252,45:H1=0:GOTO60710
60720 IFH=247THENPOKE53252,100:H1=1:GOTO60710
60725 IFH=239THENRETURN
60730 GOTO60710
60800 POKE211,34:POKE214,5:SYS58640:PRINT"     [157][157][157][157][157]"RN:RETURN
60900 POKE214,8:POKE211,37:SYS58640:PRINT"  [157][157][157][157][157][157][157][157]"RIGHT$(STR$(AN),1-(AN>9));
60910 IFF1%(AN)=2THENPRINT"   ROT"
60920 IFF1%(AN)=1THENPRINT" [144]SCHW."
60930 IFF1%(AN)=0THENPRINT"       "
60940 RETURN
61000 DATA *,29,EXIT,*,2,EXIT,*,24,---,*,1,EXIT
61001 DATA *,2,EXIT,---,*,5,MANQUE,---,*,6,IMPAIR,---,*,5,ROT
61002 DATA ---,P12,---,*,1,EXIT,*,2,EXIT,*,6,MANQUE,---,*,6,IMPAIR
61003 DATA ---,*,6,ROT,*,1,M12/P12,*,1,EXIT,*,2,EXIT,*,6,MANQUE
61004 DATA ---,*,6,IMPAIR,---,*,6,ROT,*,1,M12,*,1,EXIT
61005 DATA *,2,EXIT,*,6,MANQUE,---,*,6,IMPAIR,---,*,6,ROT
61006 DATA *,1,D12/M12,*,1,EXIT,*,1,EXIT,---,*,6,MANQUE,---
61007 DATA *,6,IMPAIR,---,*,6,ROT,---,D12,---,EXIT
61008 DATA *,1,---,4ER,3ER,6ER,3ER,6ER,3ER,6ER
61009 DATA 3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER
61010 DATA 3ER,6ER,3ER,6ER,3ER,6ER,3ER,*,2,---,EXIT
61011 DATA ---,NULL,2ER,3,2ER,6,2ER,9,2ER,12,2ER,15
61012 DATA 2ER,18,2ER,21,2ER,24,2ER,27,2ER,30,2ER
61013 DATA 33,2ER,36,---,3.KOL.,---,EXIT
61014 DATA ---,NULL,3ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER
61015 DATA 4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER
61016 DATA 4ER,2ER,4ER,2ER,4ER,2ER,---,2./3.KOL,---,EXIT
61017 DATA ---,NULL,2ER,2,2ER,5,2ER,8,2ER,11,2ER,14,2ER
61018 DATA 17,2ER,20,2ER,23,2ER,26,2ER,29,2ER,32,2ER,35
61019 DATA ---,2.KOL.,---,EXIT
61020 DATA ---,NULL,3ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER
61021 DATA 2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER
61022 DATA 2ER,4ER,2ER,4ER,2ER,---,1./2.KOL,---,EXIT
61023 DATA ---,NULL,2ER,1,2ER,4,2ER,7,2ER,10,2ER,13
61024 DATA 2ER,16,2ER,19,2ER,22,2ER,25,2ER,28,2ER
61025 DATA 31,2ER,34,---,1.KOL.,---,EXIT
61026 DATA *,1,---,4ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER
61027 DATA 6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER
61028 DATA 6ER,3ER,6ER,3ER,6ER,3ER,*,2,---,EXIT
61029 DATA *,1,EXIT,---,*,6,PASSE,---,*,6,PAIR,---
61030 DATA *,6,SCHWARZ,---,D12,---,EXIT
61031 DATA *,2,EXIT,*,6,PASSE,---,*,6,PAIR,---,*,6,SCHWARZ
61032 DATA *,1,D12/M12,*,1,EXIT,*,2,EXIT,*,6,PASSE,---,*,6,PAIR
61033 DATA ---,*,6,SCHWARZ,*,1,M12,*,1,EXIT
61034 DATA *,2,EXIT,*,6,PASSE,---,*,6,PAIR,---,*,6,SCHWARZ
61035 DATA *,1,M12/P12,*,1,EXIT,*,2,EXIT,---,*,5,PASSE
61036 DATA ---,*,6,PAIR,---,*,5,SCHWARZ,---,P12,---,*,1,EXIT
61037 DATA *,2,EXIT,*,24,---,*,1,EXIT,*,29,EXIT
61050 DATA -29,0,-29,0,-3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0
61051 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
61052 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
61053 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
61054 DATA -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
61055 DATA -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
61056 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
61057 DATA 36,18,36,0,3,-1,0
61058 DATA 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
61059 DATA 18,0,1.5,-1,0
61060 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
61061 DATA 36,18,36,18,36,0,3,-1,0
61062 DATA 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
61063 DATA 18,9,18,9,18,0,1.5,-1,0
61064 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
61065 DATA 36,18,36,18,36,0,3,-1,0
61066 DATA -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
61067 DATA -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
61068 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
61069 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
61070 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
61071 DATA -3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0,-29,0,-29,0
61080 DATA 2,1,2,2,1,2,2,1,2,2,1,2
61081 DATA 1,2,1,1,2,1,1,2,1,1,2,1
61082 DATA 2,1,2,1,1,2,2,1,2,1,1,2
61090 DATA 2,1,2,1,2,1,2,1,2,1,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1,2,1,1,2,1,2,1
61091 DATA 2,1,2
61100 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
61101 DATA"[182]SETZEN         [144][183]"
61102 DATA"[182]KORREKTUR      [144][183]"
61103 DATA"[182]ANZEIGEN       [144][183]"
61104 DATA"[182]RIEN NE VA PLUS[144][183]"
61105 DATA"[182]SPIEL LADEN    [144][183]"
61106 DATA"[182]SPIEL SPEICHERN[144][183]"
61108 DATA"[182]DISKETTE       [144][183]"
61109 DATA"[182]ANLEITUNG      [144][183]"
61110 DATA"[182]ENDE           [144][183]"
61111 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
61113 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
61114 DATA"[182]  NICHTS GEHT MEHR   [183]"
61115 DATA"[182]  -RIEN NE VA PLUS   [183]"
61116 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
61117 DATA"[182]                     [183]"
61118 DATA"[182]DIE KUGEL ROLLT...   [183]"
61119 DATA"[182]                     [183]"
61120 DATA"[182]                     [183]"
61121 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
61122 DATA"[182]                     [183]"
61123 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
61140 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][179]"
61141 DATA"[182]DISKETTE  [183]"
61142 DATA"[182][192][192][192][192][192][192][192][192][192][192][183]"
61143 DATA"[182]MEN[186]      [144][183]"
61144 DATA"[182]DIRECTORY [144][183]"
61145 DATA"[182]SPIELSTAND[144][183]"
61146 DATA"[182]   L[SCHEN[144][183]"
61147 DATA"[180][185][185][185][185][185][185][185][185][185][185][181]","","",""
61150 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][179]"
61151 DATA"[182]NAME       [183]"
61152 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][183]"
61153 DATA"[182]           [183]"
61154 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""
61160 DATA"[144][178][184][184][184][184][184][184][184][184][184][179]"
61161 DATA"[182]ENDE     [183]"
61162 DATA"[182][192][192][192][192][192][192][192][192][192][183]"
61163 DATA"[182]MEN[186]     [144][183]"
61164 DATA"[182]NEUSTART [144][183]"
61165 DATA"[182]RESET    [144][183]"
61166 DATA"[180][185][185][185][185][185][185][185][185][185][181]","","","",""
61170 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
61171 DATA"[182]      ROULETTE[144]         [183]"
61172 DATA"[182]WRITTEN BY J.WELLHAUSEN[144][183]"
61173 DATA"[182]    AND M.RADETZKI     [144][183]"
61174 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""