0010 DIM T(10/10)
0020 Q = RND(-1)
0030 DATA 100,2,2,8,2,8,2,2,2,8
0040 DATA 8,2,8,100,8,2,8,8,2,2
0050 DATA 8,2,2,2,2,2,100,0,8,0
0060 DATA 2,5,8,2,5,2,8,8,5,100
0070 DATA 2,2,2,8,2,100,0,0,2,2
0080 DATA 0,2,2,8,100,2,8,2,2,8
0090 DATA 2,8,0,2,2,8,2,100,8,2
0100 DATA 2,100,8,2,2,0,2,2,8,8
0110 DATA 2,2,2,2,100,8,2,8,0,0
0120 DATA 8,2,2,2,8,8,2,2,100,8
0130 FOR R = 1 TO 10
0140  FOR C = 1 TO 10
0150   READ T(R,C)
0160  NEXT C
0170 NEXT R
0180 PRINT 'F R U I T - A U T O M A A T  (S/3 VERSION)'
0190 PRINT 'WILT U DE VERKORTE PRINT VERSIE ?';
0200 INPUT Q$
0210 IF Q$ = 'JA' THEN 420
0220 PRINT 'WILT U INFORMATIE ?';
0230 INPUT P$
0240 IF P$ = 'NEE' THEN 390
0250 PRINT 'U KUNT ZELF UW INZET BEPALEN'
0260 PRINT 'UITBETALING GAAT ALS VOLGT'
0270 PRINT '100 100 100 BETAALT 100'
0280 PRINT ' 8   8   *          8 *'
0290 PRINT ' 2   2   2          2 *'
0300 PRINT 'ANY ANY  0          2 *'
0310 PRINT 'ANY  0  ANY         2 *'
0320 PRINT ' 0  ANY ANY         2 *'
0330 PRINT ' 0   0   0  100000 + INZET'
0340 PRINT 'SOMS KUNT U 1 OF MEER CYFERS -HOLDEN- '
0350 PRINT 'HET GEWENSTE CYFER MOET U DAN OPGEVEN'
0360 PRINT 'ER WORDT DAN AUTOMATISCH OPNIEUW INGEZET.'
0370 PRINT 'ALS U NIET WILT -HOLDEN- GEEFT U OP : 0.'
0380 PRINT 'OM TE STOPPEN MOET U 0 EURO INZETTEN.'
0390 O = 1000
0400 G = 1
0410 PRINT 'OM TE BEGINNEN KRIJGT U 1000 EURO :-)'
0420 O = 1000
0430 IF O = 0 THEN 1660
0440 IF Q$ = 'JA' THEN 460
0450 PRINT 'HOEVEEL ZET U IN ?';
0460 INPUT I
0470 IF I = 0 THEN 1630
0480 I = INT(I)
0490 IF I > 0 THEN 510
0500 I = I*(-1)
0510 A = 0
0520 B = 0
0530 C = 0
0540 IF Q$ = 'JA' THEN 560
0550 PRINT 'INZET: ';
0560 PRINT I;
0570 IF I = 0 THEN 1590
0580 O = O-I
0590 IF Q$ = 'JA' THEN 610
0600 PRINT 'OVER: ';
0610 PRINT O
0620 N = INT(1E+6*RND(0)*RND)
0630 GOSUB 930
0640 T3 = T3+1
0650 IF A > 0 THEN 700
0660 IF (O+I) > 30 THEN 690
0670 A = 8
0680 GOTO 700
0690 A = T(M,N)
0700 PRINT A;
0710 N = INT(1E+6*RND(0)*RND)
0720 GOSUB 930
0730 IF B > 0 THEN 780
0740 IF (O+I) > 30 THEN 770
0150 B = 8
0760 GOTO 780
0770 B = T(M,N)
0780 PRINT B;
0790 N = INT(1E+6*RND(0)*RND)
0800 GOSUB 930
0810 IF C > 0 THEN 860
0820 IF (O+I) > 30 THEN 850
0830 C = 8
0840 GOTO 860
0850 C = T(M,N)
0860 PRINT C;
0870 G = A+B+C
0880 IF G = 300 THEN 1180
0890 IF G = 24 THEN 1240
0900 IF G = 6 THEN 1300
0910 IF G = C THEN 1120
0920 GOTO 1360
0925 REM --------
0930 IF N < 10000 THEN 960
0940 N = N-10000
0950 GOTO 930
0960 IF N < 1000 THEN 990
0970 N = N-1000
0980 GOTO 960
0990 IF N < 100 THEN 1020
1000 N = N-100
1010 GOTO 990
1020 M = 0
1030 IF N < 10 THEN 1070
1040 M = M+1
1050 N = N-10
1060 GOTO 1030
1070 IF N > 0 THEN 1090
1080 N = 10
1090 IF M > 0 THEN 1110
1100 M = 10
1110 RETURN
1115 REM --------
1120 O  = O+100000+1
1130 T1 = T1+1
1140 T2 = T2+I+100000
1150 PRINT '? ';
1160 PRINT 'DRIE MAAL NUL GEEFT H O N D E R D  D U I Z E N D PLUS INZET'
1170 GOTO 1590
1180 O = O+100*I
1190 T1 = T1+1
1200 T2 = T2+100*I
1210 PRINT '? ';
1220 PRINT 'G E F E L I C I T E E R D  U WINT 1 0 0 * UW INZET'
1230 GOTO 1590
1240 O = O+8*I
1250 T1 = T1+1
1260 T2 = T2+8*I
1270 PRINT '? ';
1280 PRINT 'U WINT 8 * UW INZET'
1290 GOTO 1590
1300 O  = O+2*I
1310 T1 = T1+1
1320 T2 = T2+2*I
1330 PRINT '? ';
1340 PRINT 'KASSA'
1350 GOTO 1590
1360 IF C = 0 THEN 1300
1370 IF A = 0 THEN 1300
1380 IF B = 0 THEN 1300
1390 IF O < 500 THEN 1470
1400 IF I < 25 THEN 1430
1410 R = 8
1420 IF O > 1000 THEN 1440
1430 R = 14
1440 IF (N+M) < R THEN 1470
1450 PRINT 'NOHOLD'
1460 GOTO 1590
1470 IF I > O THEN 1580
1480 PRINT 'HOLD';
1490 INPUT D
1500 IF A = D THEN 1520
1510 A = 0
1520 IF B = D THEN 1540
1530 B = 0
1540 IF C = D THEN 1570
1550 C = 0
1560 IF D = 0 THEN 1590
1570 GO TO 540
1580 PRINT ' '
1590 GOTO 1600
1600 IF Q$ = 'JA' THEN 1620
1610 PRINT 'U HEEFT NU ' O ' EURO'
1620 GOTO 430
1630 PRINT 'UW SALDO IS ' O ' EURO'
1650 GOTO 1660
1660 GOTO 1673
1670 GOTO 1600
1673 PRINT 'WILT U NOG EEN KEER SPELEN ?'
1675 PRINT 'ANTWOORD MET JA OF NEE'
1677 INPUT L$
1678 IF L$ = 'JA' THEN 410
1680 PRINT 'AANTAL MALEN GESPEELD   =  ' T3
1690 PRINT 'AANTAL MALEN GEWONNEN   =  ' T1
1700 PRINT 'TOTAAL BEDRAG GEWONNEN  =  ' T2;
1720 END