Directory of image this file is from
This file as a plain text file

100 DIM E$(9),A(3)
110 PRINT"BEI MINIROULETTE WERDEN 3 NATUERLICHE ZAHLEN"
120 PRINT"AUS DEM INTERVALL [1;6] GEWUERFELT."
130 PRINT"STIMMEN ALLE 3 ZAHLEN UEBEREIN,"
140 PRINT"SO WIRD DER 35-FACHE EINSATZ GEZAHLT,"
150 PRINT"STIMMEN DIE LETZTEN BEIDEN ZAHLEN UEBEREIN,"
160 PRINT"SO WIRD DER 5-FACHE EINSATZ GEZAHLT."
170 PRINT"WOLLEN SIE DAS SPIEL BEENDEN,"
180 PRINT "SO GEBEN SIE E EIN."
185 LET K=1000
190 PRINT"IHR KONTOSTAND BETRAEGT 1000DM."\PRINT
200 PRINT"IHR EINSATZ";\INPUT E$
210 IF E$<>"E" THEN 230
220 GOTO 560
230 E=VAL(E$)
240 IF E<>0 THEN 260
250 GOTO 200
260 IF E<=K THEN 290
270 PRINT"SIE HABEN NUR NOCH";K;"DM !!!"
280 E=K
290 RANDOMIZE
300 K=K-E
310 FOR I=1 TO 3\A(I)=INT(1+6*RND(I))\NEXT I
320 PRINT A(1);A(2);A(3)
330 IF A(2)=A(3) THEN 370
340 K1=-E
350 GOSUB 460
360 GOTO 200
370 IF A(3)=A(1) THEN 420
380 K1=5*E
390 K=K+K1
400 GOSUB 460
410 GOTO 200
420 K1=35*E
430 K=K+K1
440 GOSUB 460
450 GOTO 200
460 PRINT TAB(19);" IHR ";
470 IF K1<0 THEN500
480 PRINT"GEWINN";
490 GOTO 510
500 PRINT"VERLUST";
510 PRINT ABS(K1);"DM.";TAB(42);"IHR KONTO";K;"DM."
520 IF K>0 THEN 550
530 PRINT"ALLES VERSPIELT"
532 PRINT\PRINT\PRINT\PRINT\PRINT
534 PRINT "WOLLEN SIE NOCHEINMAL SPIELEN (JA ODER NEIN)    ";
535 INPUT Z$
536 IF Z$="JA" THEN 170
537 IF Z$="NEIN" THEN 570
538 PRINT "WAS SOLL DAS BEDEUTEN?"
539 GOTO 534
540 STOP
550 RETURN
560 PRINT"AUF WIEDERSEHEN"
570 END