-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSLOTS.BAS
103 lines (103 loc) · 2.46 KB
/
SLOTS.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
10 ' SLOT MACHINE GAME NOV 18/87
100 S=1000
110 P=100
120 B=0
200 CLS
210 FOR N=1 TO 8:PRINT:NEXT N
220 PRINT TAB(20);"S L O T M A C H I N E"
230 FOR N=1 TO 3:GOSUB 9900:NEXT N
240 CLS
250 GOSUB 9910:PRINT
260 INPUT "PRESS ENTER TO 'PULL'";A:CLS
270 J=INT(RND*10)+1
280 J=INT(J)
290 IF J<1 THEN 270
300 K=INT(RND*10)+1
310 K=INT(K)
320 IF K<1 THEN 300
330 L=INT(RND*10)+1
340 L=INT(L)
350 IF L<1 THEN 330
360 P=P-1
370 S=S+1
380 RESTORE
390 FOR X=1 TO 10
400 READ A$
410 LOCATE 7,60:PRINT A$
420 LOCATE 7,60:PRINT " "
430 LOCATE 7,40:PRINT A$
440 LOCATE 7,40:PRINT " "
450 LOCATE 7,20:PRINT A$
460 LOCATE 7,20:PRINT " "
470 NEXT X
560 IF (J=5)*(K=5)*(L=5)*(S>500) THEN 590
570 IF (J=5)*(K=5)*(L=5) THEN 650
580 GOTO 750
590 GOSUB 9800
600 LOCATE 12,34:PRINT "J A C K P O T"
610 GOSUB 9900
620 P=P+S:S=0:P=P-B:B=0
630 GOSUB 9910:GOSUB 9900
640 CLS:GOTO 260
650 GOSUB 9800
660 LOCATE 12,34:PRINT "JACKPOT HIT - INSUFFICIENT FUNDS"
670 LOCATE 15,34:PRINT "PAYING AS THREE OF A KIND"
680 P=P+10:S=S-10
690 IF P-B > 10 THEN 720
700 GOSUB 9910:GOSUB 9900
710 CLS:GOTO 260
720 P=P-B:B=0:GOTO 700
750 IF (J=K)*(J=L) THEN 900
760 IF (J=K)+(J=L) THEN 970
770 IF (K=J)+(K=L) THEN 970
780 IF (L=J)+(L=K) THEN 970
790 GOSUB 9800:GOSUB 9900
800 LOCATE 15,34:PRINT "YOU LOSE"
810 GOSUB 9910:GOSUB 9900
820 IF P=0 THEN 840
830 GOTO 260
840 FOR N=1 TO 5:GOSUB 9900:NEXT N:CLS:PRINT "DO YOU WISH TO BORROW (Y/N)?"
850 PRINT:INPUT A$
860 IF A$="Y" THEN 890
870 PRINT:PRINT "GAME ENDED"
880 END
890 P=P+10:B=B+10:GOSUB 9910:GOTO 260
900 GOSUB 9800:GOSUB 9900
910 LOCATE 15,34:PRINT "THREE OF A KIND"
920 GOSUB 9900
930 S=S-10:P=P+10
940 IF P-B > 10 THEN 960
950 GOSUB 9910:GOTO 260
960 P=P-B:B=0:GOTO 950
970 P=P+5:S=S-5
980 GOSUB 9800:GOSUB 9900
990 LOCATE 15,34:PRINT "TWO OF A KIND"
1000 GOSUB 9910:GOSUB 9900
1010 IF P-B > 10 THEN 1030
1020 GOTO 260
1030 P=P-B:B=0:GOTO 260
9000 DATA "BELL "
9010 DATA "CHERRY "
9020 DATA "ORANGE "
9030 DATA "PEAR "
9040 DATA "JACKPOT "
9050 DATA "PLUM "
9060 DATA "77777777"
9070 DATA "CLOCK "
9080 DATA "LEMON "
9090 DATA "$$$$$$$$"
9800 RESTORE:CLS
9810 FOR N=1 TO L:READ A$
9820 LOCATE 7,60:PRINT A$:NEXT N:RESTORE
9830 FOR N=1 TO K:READ A$
9840 LOCATE 7,40:PRINT A$:NEXT N:RESTORE
9850 FOR N=1 TO J:READ A$
9860 LOCATE 7,20:PRINT A$:NEXT N:RESTORE
9870 RETURN
9900 FOR Z= 1 TO 1000:NEXT Z:RETURN
9910 PRINT "THE MACHINE NOW HOLDS $";S
9920 PRINT:PRINT "PLAYER'S ACCOUNT $";P
9930 PRINT:PRINT "BORROW ACCOUNT $";B
9940 IF P=0 THEN 840
9950 RETURN