10 REM RUSSISCH ROULETTE =======64
20 REM (P) COMMODORE WELT TEAM   =
30 REM ===========================
40 REM (C) BY GUENTER KRAMER     =
50 REM        EMSDETTEN          =
60 REM                           =
70 REM VERSION 2,0  40Z/ASCII    =
80 REM C64 + FLOPPY/DATASETTE    =
90 REM ===========================
100 IFA=1THEN130
110 A=1
120 LOAD"RAND UND SPRITES",8,1
130 GOSUB3870
140 GOSUB4390
150 GOSUB5440
160 GOSUB5650
170 GOSUB7010
180 GOSUB2700
190 POKE198,0
200 GETA$:IFA$=""THEN200
210 _END:END
220 REM **************************
230 REM ********** SETZEN PUNKTE *
240 REM **************************
250 A$=STR$(MS(S,36))
260 A$=RIGHT$(A$,LEN(A$)-1)
270 A$=RIGHT$("....."+A$,6)
280 A1=7:IFMS(S,36)<0THENA1=10
290 IFS=0THEN350
300 IFS>4THENA2=4:A=S-4:GOSUB390
310 IFS<5THENA2=1:A=S:GOSUB410
320 A=(A-1)*6+1:A3=0
330 A1=14:GOSUB5160
340 GOTO380
350 POKEZE,17:POKESP,17:SYSCU
360 A0=150:IFA1=7THENA0=144
370 PRINTCHR$(144)CHR$(A0)A$
380 RETURN
390 _SUC,A1,A*2:_SUC,A1,A*2-1
400 RETURN
410 _SOC,A1,A*2:_SOC,A1,A*2-1
420 RETURN
430 REM **************************
440 REM ************** EINSAETZE *
450 REM **************************
460 _SMA:_SMF,0:_SMX,1:_SMY,1
470 F1=1:A5=S+S:IFS>4THENA5=A5-8
480 FF=0:KF=0:KB=0
490 GOTO1090
500 POKE198,0
510 GETE$:_SME,F1:IFE$<>""THEN610
520 FORI=1TO150:NEXT
530 GETE$:IFE$<>""THEN610
540 _SMA,F1
550 IFS<5THEN:_SOA,A5:_SOA,A5-1
560 IFS>4THEN:_SUA,A5:_SUA,A5-1
570 FORI=1TO50:NEXT:_SME,F1
580 IFS<5THEN:_SOE,A5:_SOE,A5-1
590 IFS>4THEN:_SUE,A5:_SUE,A5-1
600 GOTO510
610 E=ASC(E$)
620 IFZ$="1"THEN750
630 IFE<>29THEN660
640 FF=FF+1:IFFF>35THENFF=0
650 GOTO960
660 IFE<>17THEN710
670 IFFF>23THEN690
680 FF=24+INT(FF/4):GOTO960
690 IFFF<30THENFF=30:GOTO960
700 FF=0:GOTO960
710 IFE=133THEN1450
720 IFE=140THEN1450
730 IFE$<"0"ORE$>"9"THEN750
740 A0=VAL(E$):GOTO1320
750 IFE$<>"R"THEN770
760 KF=4:E$=CHR$(017):GOTO1030
770 IFE$<>"S"THEN790
780 KF=5:E$=CHR$(017):GOTO1030
790 IFE=211THENKF=0:GOTO840
800 IFE=193THENKF=1:GOTO840
810 IFE=218THENKF=2:GOTO840
820 IFE=216THENKF=3:GOTO840
830 GOTO850
840 KB=6:Z$="1":GOTO510
850 IFE$="B"THENKB=0:GOTO920
860 IFE$="D"THENKB=1:GOTO920
870 IFE$="K"THENKB=2:GOTO920
880 IFE$="A"THENKB=3:GOTO920
890 IFE$="N"THENKB=4:GOTO920
900 IFE$="Z"THENKB=5:GOTO920
910 GOTO940
920 IFZ$<>"1"THENKF=6
930 Z$="":GOTO1030
940 IFZ$="1"THENIFE=13THEN930
950 GOTO510
960 KB=INT(FF/4)
970 KF=FF-4*KB
980 IFFF<24THEN1090
990 KB=FF-24:KF=6
1000 IFFF<30THEN1090
1010 KB=6:KF=FF-30
1020 GOTO1090
1030 IFKB+KF=12THEN610
1040 FF=KF+4*KB:IFKB<6ANDKF<4THEN1090
1050 IFKF=4THENFF=34:GOTO1090
1060 IFKF=5THENFF=35:GOTO1090
1070 IFKF=6THENFF=KB+24:GOTO1090
1080 IFKB=6THENFF=KF+30
1090 IFMS(S,FF)=0THEN1150
1100 IFMS(0,S)>35THEN1120
1110 E$=CHR$(029):GOTO610
1120 E$=CHR$(133)
1130 IFMS(0,0)=ANTHENE$=CHR$(140)
1140 GOTO610
1150 MS(0,S)=MS(0,S)+1
1160 IFMS(0,S)=36THENMS(0,0)=MS(0,0)+1
1170 _SMA,F1:_SMX,1,F1:_SMF,0,F1
1180 _SMB,86,11,F1*3-2:_SMC,15,F1
1190 _SMK,PO(FF,0),PO(FF,1),F1
1200 SZ=0:_SME,F1
1210 A0=28:IF(KFAND1)=1THENA0=144
1220 A$=CHR$(KF(KF))+CHR$(KB(KB))
1230 IFKB=5THENA$=A$+"0"
1240 IFKB<>5THENA$=A$+CHR$(032)
1250 IFFF<24THEN1290
1260 IFFF<30THENA$=CHR$(032)+RIGHT$(A$,LEN(A$)-1):GOTO1290
1270 IFFF<34THENA$=LEFT$(A$,1)+CHR$(032)+CHR$(032):GOTO1290
1280 A$=CHR$(018)+CHR$(032)+CHR$(032)+CHR$(032)
1290 POKEZE,7:POKESP,18:SYSCU
1300 PRINTCHR$(A0)A$CHR$(032)
1310 GOTO510
1320 _SMB,A0+48,11,F1*3-2
1330 IFA0>0THEN1380
1340 A0=10
1350 _SMB,49,11,F1*3-2
1360 _SMB,48,11,F1*3-1
1370 _SMX,0,F1
1380 MS(S,FF)=A0:MS(S,36)=MS(S,36)-A0
1390 MS(0,36)=MS(0,36)+A0
1400 F1=F1+1:IFF1>8THENF1=1
1410 S$="1"
1420 GOSUB250
1430 AB=S:S=0:GOSUB250
1440 S=AB:E$=CHR$(029):GOTO1090
1450 POKEZE,7:POKESP,18:SYSCU
1460 A$=CHR$(032)+CHR$(032)
1470 PRINTA$A$
1480 RETURN
1490 REM *************************
1500 REM ******** PRUEFEN GEWINN *
1510 REM *************************
1520 FORS=1TOAN
1530 IFMS(S,FF)>0THENGOSUB1580
1540 NEXT:RETURN
1550 REM *************************
1560 REM ****** AUSZAHLEN GEWINN *
1570 REM *************************
1580 FORI=2TO6:_SMX,0,I:_SMY,0,I
1590 _SMF,0,I:_SMC,6,I:NEXT
1600 _SMY,1,6
1610 _SMK,PO(FF,0),PO(FF,1),6
1620 Z=MS(S,FF):A$=STR$(Z)
1630 A3=0:A1=11:A=15:GOSUB5300
1640 A$="X"+RIGHT$(A$,2)
1650 A$=RIGHT$(STR$(AU),2)+A$
1660 A=4:A1=13:GOSUB5300
1670 A$=STR$(Z*AU)
1680 A1=2:A=11:GOSUB5300
1690 POKE198,0
1700 A5=S+S:IFS>4THENA5=A5-8
1710 FORI=2TO6:_SME,I:NEXT
1720 GETE$
1730 IFS<5THEN:_SOA,A5:_SOA,A5-1
1740 IFS>4THEN:_SUA,A5:_SUA,A5-1
1750 FORI=1TO150:NEXT
1760 IFS<5THEN:_SOE,A5:_SOE,A5-1
1770 IFS>4THEN:_SUE,A5:_SUE,A5-1
1780 FORI=1TO50:NEXT
1790 IFE$=""THEN1720
1800 FORI0=1TOAU
1810 MS(S,36)=MS(S,36)+Z:GOSUB250
1820 NEXT:A5=S:S=0
1830 MS(S,36)=MS(S,36)-Z*AU:GOSUB250
1840 S=A5
1850 FORI=2TO6:_SMA,I:NEXT
1860 RETURN
1870 REM *************************
1880 REM ********* PISTOLENRUNDE *
1890 REM *************************
1900 _SMA:_SME,1:_SMC,1,1
1910 _SMA,7:_SMA,8
1920 SYS51200:_RC,0,255
1930 FORI=2TO4
1940 _SMF,0,I:_SMF,255,I+3
1950 _SMX,1,I:_SMX,1,I+3
1960 _SMY,0,I:_SMY,0,I+3
1970 _SMK,I*48+16,140,I
1980 _SMK,I*48+16,140,I+3
1990 _SMC,2,I+3:_SMC,10,I:NEXT
2000 A$="DREHE DIE"
2010 A=4:A1=3:A3=0:GOSUB5300
2020 A$="TROMMEL"
2030 A=5:A1=12:GOSUB5300
2040 _SMF,0,8:_SMC,7,8
2050 _SMB,87,11,22
2060 _SMK,PO(FP+24,0),PO(FP+24,1),8
2070 A5=P+P:IFP>4THENA5=A5-8
2080 POKE198,0:_SMY,1,8
2090 _SOA:IFAN>4THEN:_SUA
2100 IFP>4THEN:_SUE,A5:_SUE,A5-1
2110 IFP<5THEN:_SOE,A5:_SOE,A5-1
2120 GETE$
2130 FORI=2TO8:_SME,I:NEXT
2140 FORI=1TO150:NEXT
2150 FORI=2TO8:_SMA,I:NEXT
2160 FORI=1TO50:NEXT
2170 IFE$=""THEN2120
2180 A1=INT(RND(1)*6)+50:A=FP
2190 A(0)=0:A(1)=1:A(2)=5
2200 A(3)=3:A(4)=2:A(5)=4:_SME,8
2210 FORI=1TOA1
2220 A=A+1:IFA=6THENA=0
2230 A0=A(A)
2240 _SMK,PO(A0+24,0),PO(A0+24,1),8
2250 IFI<(A1-15)THEN2270
2260 FORJ=1TO(I-A1+15)^2:NEXT
2270 NEXT
2280 IFA0<>FPTHEN2550
2290 GOSUB7620
2300 FORI=2TO4:_SMF,0,I:_SMF,255,I+3
2310 NEXT
2320 A5=INT(ABS(MS(P,36))/2)
2330 IFA5<10THENA5=10
2340 MS(P,36)=MS(P,36)-A5
2350 MS(0,36)=MS(0,36)+A5
2360 A$="VERLUST ="
2370 A3=0:A1=3:A=4:GOSUB5300
2380 A$=STR$(A5)
2390 A1=12:A=7+LEN(A$)/2:GOSUB5300
2400 FORI=2TO4:_SMC,2,I:_SMC,10,I+3
2410 _SME,I:_SME,I+3:NEXT
2420 POKE198,0
2430 T1=0:GOSUB7530
2440 FORJ=1TO3
2450 GETE$
2460 FORI=1TO50:_RC,I,7
2470 POKET+1,150+I:NEXT
2480 FORI=1TO150:_RC,I,19
2490 POKET+1,256-I:NEXT
2500 IFE$<>""THENJ=6
2510 NEXT:GOSUB7480
2520 _RC,0,255:S=P:GOSUB250
2530 S=0:GOSUB250
2540 FORI=F+697TOI+5:POKEI,15:NEXT
2550 FORI=1TOAN:A=I+I
2560 IFI>4THEN2590
2570 _SOE,A:_SOE,A-1
2580 GOTO2610
2590 A=A-8
2600 _SUE,A:_SUE,A-1
2610 FORJ=0TO35
2620 MS(I,J)=0:NEXTJ,I
2630 _SMA:_RC,0,15:_RC,7,32
2640 _RC,9,24:GOSUB7690
2650 SYS51200
2660 RETURN
2670 REM *************************
2680 REM ********** SPIEL LAEUFT *
2690 REM *************************
2700 S=0:S$="0"
2710 S=S+1:IFS>ANTHENS=1
2720 GOSUB460
2730 IFE$<>CHR$(140)THEN2710
2740 FORI=0TOAN:MS(0,I)=0:NEXT
2750 _SMA:_SMC,0:_SMX,1:_SMY,0
2760 _SMF,0:_SMK,100,96,1
2770 IFS$="0"THEN3720
2780 FORI=0TO47
2790 POKEPI+9+I,PI(I)
2800 NEXT
2810 _SME,1:P=INT(RND(1)*AN)+1
2820 FP=0:AP=P+P:IFP>4THENAP=AP-8
2830 POKE198,0:A=0
2840 GETE$
2850 FORI=1TO150:NEXT:_SMA,1
2860 IFP<5THEN:_SOA,AP:_SOA,AP-1
2870 IFP>4THEN:_SUA,AP:_SUA,AP-1
2880 FORI=1TO50:NEXT:_SME,1
2890 IFP<5THEN:_SOE,AP:_SOE,AP-1
2900 IFP>4THEN:_SUE,AP:_SUE,AP-1
2910 IFE$=""THEN2840
2920 IFE$="B"THENFP=0:A=100:A0=96
2930 IFE$="D"THENFP=1:A=220:A0=96
2940 IFE$="K"THENFP=2:A=100:A0=172
2950 IFE$="A"THENFP=3:A=220:A0=172
2960 IFE$="N"THENFP=4:A=60:A0=140
2970 IFE$="Z"THENFP=5:A=260:A0=140
2980 IFA=0THEN2840
2990 _SMK,A,A0,1:A$="NICHTS"
3000 FORI=2TO7:_SMF,255,I:NEXT
3010 A3=128:A1=3:A=4:GOSUB5300
3020 A$="GEHT MEHR"
3030 A1=12:GOSUB5300
3040 FORI=2TO4:_SMK,I*48+16,140,I
3050 _SMK,I*48+16,140,I+3
3060 _SMC,2,I+3:_SMC,10,I:NEXT
3070 FORJ=2TO7:_SME,J:NEXT
3080 GOSUB7690
3090 FORI=1TO23
3100 A=INT(RND(1)*I)
3110 A0=KA(I):KA(I)=KA(A):KA(A)=A0
3120 NEXT
3130 FORJ=2TO7:_SMA,J:NEXT
3140 A$="BITTE"
3150 FORI=2TO4:_SMF,0,I:_SMF,255,I+3
3160 _SMC,6,I:_SMC,14,I+3:NEXT
3170 A1=3:A=6:A3=0:GOSUB5300
3180 A$="ABHEBEN"
3190 A1=12:A=5:GOSUB5300
3200 POKE198,0:GK=0
3210 GETE$
3220 FORI=1TO25:NEXT
3230 FORJ=2TO7:_SME,J:NEXT
3240 FORI=1TO250:NEXT
3250 FORJ=2TO7:_SMA,J:NEXT
3260 IFE$=""THEN3210
3270 IFE$<"0"ORE$>"9"THEN3210
3280 E=VAL(E$)
3290 IFGK=0THEN3310
3300 GK=GK+E:GOTO3350
3310 IFE=2THENGK=20:GOTO3350
3320 IFE>3THENGK=E:GOTO3350
3330 IFE=1THENGK=10
3340 GOTO3210
3350 GK=KA(GK)
3360 A0=INT(GK/4):A=GK-4*A0
3370 _SMF,0,7:_SMC,0,7
3380 IF(AAND1)=0THEN:_SMC,2,7
3390 _SMX,1,7:_SMY,1,7
3400 _SMK,160,100,8:_SMF,255,8
3410 _SMX,1,8:_SMC,10,8
3420 _SMK,160,104,7
3430 A$=CHR$(83):IFA=1THENA$=CHR$(065)
3440 IFA=2THENA$=CHR$(090)
3450 IFA=3THENA$=CHR$(088)
3460 IFA0=0THENA$=A$+CHR$(002)
3470 IFA0=1THENA$=A$+CHR$(004)
3480 IFA0=2THENA$=A$+CHR$(011)
3490 IFA0=3THENA$=A$+CHR$(001)
3500 IFA0=4THENA$=A$+CHR$(057)
3510 IFA0=5THENA$=A$+CHR$(049)+CHR$(048)
3520 A$=CHR$(KF(A)-32)+CHR$(KB(A0)AND63)
3530 IFA0=5THENA$=A$+"0"
3540 IFA0<>5THENA$=A$+CHR$(032)
3550 FORI=1TOLEN(A$)
3560 A3=ASC(MID$(A$,I,1))
3570 _SMB,A3,1,18+I:NEXT
3580 _SME,7:_SME,8
3590 _SMX,0,2:_SMY,0,2:_SMF,0,2
3600 _SMC,6,2:_SMK,24,59,2
3610 _SMX,0,3:_SMY,0,3:_SMF,0,3
3620 _SMC,6,3:_SMK,48,59,3
3630 _SMX,0,4:_SMY,0,4:_SMF,0,4
3640 _SMC,6,4:_SMK,24,80,4
3650 _SMX,0,5:_SMY,0,5:_SMF,0,5
3660 _SMC,6,5:_SMK,48,80,5
3670 FF=GK:AU=24:GOSUB1520
3680 FF=INT(GK/4)+24:AU=6:GOSUB1520
3690 FF=GK-4*INT(GK/4)+30:AU=4:GOSUB1520
3700 FF=34+(GKAND1):AU=2:GOSUB1520
3710 GOSUB1900:GOTO2700
3720 FORI=2TO4:_SMF,255,I+3
3730 _SMK,I*48+16,140,I
3740 _SMK,I*48+16,140,I+3
3750 _SMC,2,I+3:_SMC,10,I:NEXT
3760 A$="ENDE?"
3770 A=6:A1=3:A3=0:GOSUB5300
3780 A$="(J/N)"
3790 A=6:A1=12:GOSUB5300
3800 FORI=2TO7:_SME,I:NEXT
3810 GETE$:IFE$="N"THEN2700
3820 IFE$<>"J"THEN3810
3830 RETURN
3840 REM *************************
3850 REM ********** ANFANGSWERTE *
3860 REM *************************
3870 SYS12*4096:A=INT(RND(-TI))
3880 _RF,0:_RC,4,255
3890 _RC,3,31:_RE:_SAA:_SAF,0
3900 PRINTCHR$(150)CHR$(147)
3910 PRINTCHR$(158)
3920 B=52224:REM ** BILDSPEICHER *
3930 F=55296:REM ** FARBSPEICHER *
3940 CU=58640:REM CRSR-STEUERUNG *
3950 ZE=214:REM ***** CRSR-ZEILE *
3960 SP=211:REM **** CRSR-SPALTE *
3970 T=54272:REM *********** SID *
3980 PI=64000:REM SPRITE PISTOLE *
3990 DIMMS(8,36):REM SPIELERWERT *
4000 DIMPI(47):REM  SPRITE-DATAS *
4010 DIMPO(35,1):REM  SPRITE-POS *
4020 DIMKF(6),KB(6):REM K-BILDER *
4030 DIMKA(23):REM  KARTENSTAPEL *
4040 KF(0)=115:KF(1)=97:KF(2)=122
4050 KF(3)=120:KF(4)=160
4060 KF(5)=160:KF(6)=32
4070 KB(0)=66:KB(1)=68:KB(2)=75
4080 KB(3)=65:KB(4)=57
4090 KB(5)=49:KB(6)=32
4100 FORI=0TO7:A=72+I*24
4110 IFI>3THENA=A+32
4120 PO(I,0)=A:PO(I,1)=56
4130 PO(I+8,0)=A:PO(I+8,1)=196
4140 IFI>3THEN4180
4150 A=84+I*24
4160 PO(I+16,0)=36:PO(I+16,1)=A
4170 PO(I+20,0)=316:PO(I+20,1)=A
4180 NEXT
4190 PO(24,0)=120:PO(24,1)=80
4200 PO(25,0)=224:PO(25,1)=80
4210 PO(26,0)=120:PO(26,1)=160
4220 PO(27,0)=224:PO(27,1)=160
4230 PO(28,0)=72:PO(28,1)=120
4240 PO(29,0)=280:PO(29,1)=120
4250 PO(30,0)=128:PO(30,1)=112
4260 PO(31,0)=224:PO(31,1)=112
4270 PO(32,0)=128:PO(32,1)=131
4280 PO(33,0)=224:PO(33,1)=131
4290 PO(34,0)=160:PO(34,1)=120
4300 PO(35,0)=192:PO(35,1)=120
4310 FORI=0TO47:READPI(I):NEXT
4320 FORI=0TO23:KA(I)=I:NEXT
4330 FORI=51200TOI+41
4340 READA:POKEI,A:NEXT
4350 RETURN
4360 REM *************************
4370 REM ************* TITELBILD *
4380 REM *************************
4390 A$="RUSSISCH ROULETTE"
4400 GOSUB7280
4410 A1=1:A2=7:A3=128
4420 GOSUB4720
4430 A=2:A1=8:A2=7
4440 GOSUB5160
4450 A=INT(LEN(A$)/2):A1=176-8*A
4460 _SRC,3:_SMC,3:_SRX,1:_SRY,1
4470 _SRK,168-8*LEN(A$)
4480 _SMK,A1,67:_SOE:_SME
4490 POKEZE,3:POKESP,20-A:SYSCU
4500 PRINTA$
4510 FORI=1TO200:NEXT
4520 POKEZE,7:POKESP,12:SYSCU
4530 PRINT"EIN PROGRAMM VON"
4540 FORI=1TO200:NEXT
4550 FORI=67TO200
4560 _SMK,A1,I
4570 NEXT
4580 _SMA:_SUE
4590 _SMF,0:A$="GUENTER KRAMER"
4600 A1=1:A2=2:A3=0:_SME
4610 _SMX,1:_SMY,1
4620 _SMK,56,92
4630 GOSUB4720
4640 A=2:A2=2:A1=14
4650 GOSUB5160
4660 _RC,2,56
4670 _RC,14,31
4680 RETURN
4690 REM *************************
4700 REM ********* RAHMEN SETZEN *
4710 REM *************************
4720 A=LEN(A$)
4730 IF(A2AND1)=1THENGOSUB4800
4740 IF(A2AND2)=2THENGOSUB4920
4750 IF(A2AND4)=4THENGOSUB5040
4760 RETURN
4770 REM *************************
4780 REM *********** OBERER RAND *
4790 REM *************************
4800 FORI=1+A1TOA+A1
4810 _SOB,64+A3,1,I:NEXT
4820 _SOB,73+A3,1,I:_SOB,66+A3,9,I
4830 _SOB,75+A3,14,I
4840 FORI=A+A1TO1+A1STEP-1
4850 _SOB,64+A3,14,I:NEXT
4860 _SOB,74+A3,14,I
4870 _SOB,66+A3,9,I:_SOB,85+A3,1,I
4880 RETURN
4890 REM *************************
4900 REM ********* MITTELSPRITES *
4910 REM *************************
4920 FORI=1+A1TOA+A1
4930 _SMB,64+A3,1,I:NEXT
4940 _SMB,73+A3,1,I:_SMB,66+A3,9,I
4950 _SMB,75+A3,14,I
4960 FORI=A+A1TO1+A1STEP-1
4970 _SMB,64+A3,14,I:NEXT
4980 _SMB,74+A3,14,I
4990 _SMB,66+A3,9,I:_SMB,85+A3,1,I
5000 RETURN
5010 REM *************************
5020 REM ********** UNTERER RAND *
5030 REM *************************
5040 FORI=1+A1TOA+A1
5050 _SUB,64+A3,1,I:NEXT
5060 _SUB,73+A3,1,I:_SUB,66+A3,9,I
5070 _SUB,75+A3,14,I
5080 FORI=A+A1TO1+A1STEP-1
5090 _SUB,64+A3,14,I:NEXT
5100 _SUB,74+A3,14,I
5110 _SUB,66+A3,9,I:_SUB,85+A3,1,I
5120 RETURN
5130 REM *************************
5140 REM *********** TEXT SETZEN *
5150 REM *************************
5160 IF(A2AND1)=1THENGOSUB5230
5170 IF(A2AND2)=2THENGOSUB5300
5180 IF(A2AND4)=4THENGOSUB5370
5190 RETURN
5200 REM *************************
5210 REM ************* TEXT OBEN *
5220 REM *************************
5230 FORI=0TOLEN(A$)-1
5240 A4=ASC(MID$(A$,I+1,1))AND63
5250 _SOB,A4+A3,A1,A+I:NEXT
5260 RETURN
5270 REM *************************
5280 REM ************ TEXT MITTE *
5290 REM *************************
5300 FORI=0TOLEN(A$)-1
5310 A4=ASC(MID$(A$,I+1,1))AND63
5320 _SMB,A4+A3,A1,A+I:NEXT
5330 RETURN
5340 REM *************************
5350 REM ************ TEXT UNTEN *
5360 REM *************************
5370 FORI=0TOLEN(A$)-1
5380 A4=ASC(MID$(A$,I+1,1))AND63
5390 _SUB,A4+A3,A1,A+I:NEXT
5400 RETURN
5410 REM *************************
5420 REM **************** ANFANG *
5430 REM *************************
5440 PRINTCHR$(150)
5450 POKEZE,12:POKESP,10:SYSCU
5460 PRINT"WIEVIELE MITSPIELER?"
5470 PRINTTAB(12)"OHNE BANKHALTER"
5480 PRINT
5490 POKE198,0
5500 GETA$
5510 IFA$<"1"ORA$>"8"THEN5500
5520 AN=VAL(A$)
5530 PRINTTAB(11)AN"SPIELER - OK?"
5540 POKE198,0
5550 GETA$
5560 IFA$="J"THEN5610
5570 IFA$<>"N"THEN5550
5580 FORI=12TO24
5590 POKE781,I:SYS59903
5600 NEXT:GOTO5440
5610 RETURN
5620 REM *************************
5630 REM **** SPIELFELD AUFBAUEN *
5640 REM *************************
5650 _RA:POKE53265,11
5660 _SMA:_RC,0,15:_RC,7,32
5670 _RC,9,24:GOSUB7690
5680 A$=CHR$(117)+CHR$(099)+CHR$(099)
5690 A0$=CHR$(098)+CHR$(032)+CHR$(032)
5700 A1$=CHR$(106)+CHR$(099)+CHR$(099)
5710 A$=CHR$(028)+A$+CHR$(144)+A$
5720 A0$=CHR$(028)+A0$+CHR$(144)+A0$
5730 A1$=CHR$(028)+A1$+CHR$(144)+A1$
5740 A$=A$+A$+CHR$(099)+CHR$(105)
5750 A0$=A0$+A0$+CHR$(032)+CHR$(098)
5760 A1$=A1$+A1$+CHR$(099)+CHR$(107)
5770 A$=A$+CHR$(167)+CHR$(032)+A$
5780 A0$=A0$+CHR$(167)+CHR$(032)+A0$
5790 A1$=A1$+CHR$(167)+CHR$(032)+A1$
5800 A3$=RIGHT$(A$,5)
5810 A4$=RIGHT$(A0$,5)
5820 A5$=RIGHT$(A1$,5)
5830 PRINTCHR$(147);
5840 FORI=1TO2
5850 PRINTTAB(5)A$
5860 PRINTTAB(5)A0$
5870 PRINTTAB(5)A0$
5880 PRINTTAB(5)A0$
5890 PRINTTAB(5)A0$
5900 PRINTTAB(5)A1$;
5910 POKEZE,19:POKESP,0:SYSCU
5920 NEXT
5930 POKEZE,5:POKESP,0:SYSCU
5940 FORI=1TO2
5950 PRINTCHR$(028)A3$TAB(35)A3$;
5960 PRINTA4$TAB(75)A4$;
5970 PRINTA4$TAB(35)A4$;
5980 PRINTCHR$(144)A3$TAB(75)A3$;
5990 PRINTA4$TAB(35)A4$;
6000 PRINTA4$TAB(75)A4$;
6010 NEXT
6020 PRINTA4$TAB(35)A4$;
6030 PRINTA4$TAB(75)A4$;
6040 PRINTA5$TAB(35)A5$;
6050 POKEZE,6:POKESP,0:SYSCU
6060 PRINTTAB(46)CHR$(109)TAB(59);
6070 PRINTCHR$(167)TAB(73)CHR$(110)
6080 PRINTTAB(7)CHR$(109)TAB(19);
6090 PRINTCHR$(167)TAB(32)CHR$(110);
6100 PRINTTAB(48)CHR$(109)TAB(59);
6110 PRINTCHR$(167)TAB(71)CHR$(110)
6120 PRINTTAB(9)CHR$(109)TAB(19);
6130 PRINTCHR$(167)TAB(30)CHR$(110);
6140 A$=CHR$(183)+CHR$(183)
6150 A$=CHR$(183)+A$+A$
6160 A0$=CHR$(032)+CHR$(032)
6170 A0$=A0$+A0$
6180 A1$=CHR$(175)+CHR$(175)
6190 A1$=CHR$(175)+A1$+A1$
6200 A2$=CHR$(096)+CHR$(096)
6210 A2$=CHR$(096)+A2$+A2$
6220 A3$=CHR$(018)+A0$+CHR$(144)
6230 A3$=A3$+A0$+CHR$(146)
6240 A4$=CHR$(028)+CHR$(165)
6250 A4$=A4$+A0$+CHR$(032)
6260 PRINTTAB(50)CHR$(028)CHR$(111)A$;
6270 PRINTA3$A$CHR$(112)
6280 PRINTTAB(10)A4$A3$;
6290 PRINTA0$CHR$(032)CHR$(167);
6300 PRINTTAB(50)CHR$(028)CHR$(165)A2$;
6310 PRINTA3$A2$CHR$(167)
6320 PRINTTAB(10)A4$A3$;
6330 PRINTCHR$(032)A0$CHR$(167);
6340 PRINTTAB(50)CHR$(028)CHR$(108)A1$;
6350 PRINTA3$A1$CHR$(186)
6360 PRINTTAB(9)CHR$(110)TAB(19);
6370 PRINTCHR$(167)TAB(30)CHR$(109);
6380 PRINTTAB(48)CHR$(110)TAB(59);
6390 PRINTCHR$(167)TAB(71)CHR$(109)
6400 PRINTTAB(7)CHR$(110)TAB(19);
6410 PRINTCHR$(167)TAB(32)CHR$(109);
6420 PRINTTAB(46)CHR$(110)TAB(59);
6430 PRINTCHR$(167)TAB(73)CHR$(109)
6440 GOSUB7620
6450 A1=2:A=46:A0=3:GOSUB6770
6460 A1=4:A=62:GOSUB6770
6470 A1=11:A=806:GOSUB6770
6480 A1=1:A=822:GOSUB6770
6490 A1=57:A=241:A0=120:GOSUB6770
6500 A1=49:A=276:GOSUB6770
6510 GOSUB7620
6520 POKEF+452,2:POKEB+452,83
6530 POKEF+532,2:POKEB+532,90
6540 POKEF+467,0:POKEB+467,65
6550 POKEF+547,0:POKEB+547,88
6560 A$=CHR$(117)+CHR$(096)+CHR$(096)
6570 A$=A$+RIGHT$(A$,2)+CHR$(105)
6580 A0$=CHR$(098)+CHR$(032)+CHR$(032)
6590 A0$=A0$+RIGHT$(A0$,2)+CHR$(098)
6600 A1$=CHR$(106)+MID$(A$,2,4)
6610 A1$=A1$+CHR$(107)
6620 POKEZE,6:POKESP,0:SYSCU
6630 PRINTSPC(17)A$
6640 PRINTSPC(17)A0$;
6650 PRINTSPC(34)A1$
6660 A$=LEFT$(A$,4)+RIGHT$(A$,4)
6670 A0$=LEFT$(A0$,4)+RIGHT$(A0$,4)
6680 A1$=LEFT$(A1$,4)+RIGHT$(A1$,4)
6690 POKEZE,16:POKESP,0:SYSCU
6700 PRINTSPC(16)A$
6710 PRINTSPC(16)A0$;
6720 PRINTSPC(32)A1$
6730 GOSUB7620:RETURN
6740 REM *************************
6750 REM ********** KARTENBILDER *
6760 REM *************************
6770 A4=0:A2=2:A3=83:GOSUB6960
6780 A3=A1:GOSUB6960
6790 IFA3=49THENA3=48:GOSUB6960
6800 A=A+A0
6810 A4=0:A2=0:A3=65:GOSUB6960
6820 A3=A1:GOSUB6960
6830 IFA3=49THENA3=48:GOSUB6960
6840 A=A+A0
6850 A4=0:A2=2:A3=90:GOSUB6960
6860 A3=A1:GOSUB6960
6870 IFA3=49THENA3=48:GOSUB6960
6880 A=A+A0
6890 A4=0:A2=0:A3=88:GOSUB6960
6900 A3=A1:GOSUB6960
6910 IFA3=49THENA3=48:GOSUB6960
6920 RETURN
6930 REM *************************
6940 REM ************** AUSGEBEN *
6950 REM *************************
6960 POKEF+A+A4,A2:POKEB+A+A4,A3
6970 A4=A4+1:RETURN
6980 REM *************************
6990 REM ****** NULLWERTE SETZEN *
7000 REM *************************
7010 _SOA:_SOF,0:_SOC,3
7020 A=130-30*((AN-1)AND3)
7030 IFAN>4THENA=40
7040 GOSUB7150
7050 IFAN<5THEN7090
7060 _SUA:_SUF,0:_SUC,14
7070 A=130-30*((AN-5)AND3)
7080 GOSUB7200
7090 FORS=0TOAN:GOSUB250
7100 A$=RIGHT$(STR$(S),1)
7110 A$=" - "+A$+" -"
7120 A1=3:GOSUB5160:NEXT
7130 _SRE:POKE53265,27:_RE
7140 GOSUB7690:RETURN
7150 _SOY,1:_SOX,0
7160 FORI=1TO7STEP2
7170 _SOK,A+I*30,0,I
7180 _SOK,A+24+I*30,0,I+1
7190 NEXT:RETURN
7200 _SUY,1:_SUX,0
7210 FORI=1TO7STEP2
7220 _SUK,A+I*30,0,I
7230 _SUK,A+24+I*30,0,I+1
7240 NEXT:RETURN
7250 REM *************************
7260 REM ********** TITEL ROLLEN *
7270 REM *************************
7280 _SMA:_SMC,7:_SMF,0
7290 A0$=A$:A$=LEFT$(A0$,8)
7300 A3=0:A1=1:A=1:GOSUB5300
7310 T1=0:GOSUB7530:_SMK,0,82:_SME
7320 FORI=0TO120STEP8
7330 _SMK,I,82:POKET+1,I
7340 FORK=1TO8:_SMR,1,K:NEXTK,I
7350 POKEZE,3:POKESP,12:SYSCU
7360 _SMA:PRINTA$:GOSUB7620
7370 A$=RIGHT$(A0$,8):GOSUB5300
7380 T1=0:GOSUB7530:_SMK,360,82:_SME
7390 FORI=360TO192STEP-8
7400 _SMK,I,82:POKET+1,I-110
7410 FORK=1TO8:_SML,1,K:NEXTK,I
7420 POKEZE,3:POKESP,21:SYSCU
7430 _SMA:PRINTA$:GOSUB7620
7440 A$=A0$:RETURN
7450 REM *************************
7460 REM ********** LOESCHEN SID *
7470 REM *************************
7480 FORT0=0TO24:POKET+T0,0:NEXT
7490 RETURN
7500 REM *************************
7510 REM **************** HEULEN *
7520 REM *************************
7530 GOSUB7480
7540 POKET,T1-256*INT(T1/256)
7550 POKET+1,INT(T1/256)
7560 POKET+6,255:POKET+5,15
7570 POKET+24,15:POKET+4,33
7580 RETURN
7590 REM *************************
7600 REM **************** SCHUSS *
7610 REM *************************
7620 GOSUB7480
7630 POKET+5,9:POKET+1,21
7640 POKET+24,15:POKET+4,129
7650 RETURN
7660 REM *************************
7670 REM ****************** GONG *
7680 REM *************************
7690 GOSUB7480
7700 POKET+1,8:POKET,180
7710 POKET+5,12:POKET+8,15
7720 POKET+7,247
7730 POKET+15,13:POKET+14,10
7740 POKET+12,12:POKET+19,12
7750 POKET+24,15:POKET+4,23
7760 POKET+11,23:POKET+18,23
7770 RETURN
7780 DATA 048,001,144,048,127,200
7790 DATA 255,129,232,255,191,240
7800 DATA 000,129,248,000,127,248
7810 DATA 000,017,248,000,017,252
7820 DATA 000,009,252,000,007,252
7830 DATA 000,003,252,000,001,252
7840 DATA 000,001,252,000,001,252
7850 DATA 000,000,252,000,000,120
7860 DATA 169,216,133,252,160,000
7870 DATA 132,251,177,251,041,015
7880 DATA 201,000,208,006,169,255
7890 DATA 145,251,208,008,201,015
7900 DATA 208,004,169,240,145,251
7910 DATA 200,208,231,230,252,165
7920 DATA 252,201,220,208,223,096
7930 REM RUSSISCHES ROULETTE ===64
7940 REM 038911 BYTES MEMORY     =
7950 REM 017371 BYTES PROGRAM    =
7960 REM 000000 BYTES VARIABLES  =
7970 REM 000000 BYTES ARRAYS     =
7980 REM 000000 BYTES STRINGS    =
7990 REM 000000 BYTES FREE (0)   =
8000 REM =========================