Listing of file='SLOTS ' on disk='vmedia/more_games.wvd.zip'
# Sector 1290, program filename = 'SLOTS' 0015 LOAD DC T#6,"GAMES" 0020 %YOUR CURRENT BALANCE IS $#,###,### 0030 DIM S$(6)8 : S$(1)=" LEMON" : S$(2)=" CHERRY" : S$(3)=" ORANGE" : S$(4)=" PLUM" : S$(5)=" BELL" : S$(6)=" LIBERTY" 0040 DIM W$40 : FOR I=1TO 40 : STR(W$,I,1)=HEX(09) : NEXT I 0050 DIM W1$9 : W1$=HEX(0A0808080808080808) 0060 DIM T(3),P(3,6),R(9) 0070 FOR I=1TO 9 : R(I)=INT(1+5*RND(1)) : NEXT I 0080 FOR I=1TO 3 : FOR J=1TO 6 : READ P(I,J) : NEXT J : NEXT I : E4=0 0090 %######## ######## ######## ## 0100 PRINT HEX(03),,"****ONE-ARMED BANDIT****" : PRINT 0110 PRINT "EACH PLAY YOU CAN ENTER ANY AMOUNT OF SILVER DOLLARS" 0120 PRINT "INTO THE MACHINE UP TO THE BALANCE YOU HAVE BY TYPING" 0130 PRINT "IN THE QUANTITY OF DOLLARS." 0140 PRINT 0150 PRINT "YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE CR/LF KEY." 0160 PRINT 0170 PRINT "WHEN YOUR BALANCE REACHES ZERO,THE GAME IS OVER..." 0180 FOR Z=1TO 1000 : NEXT Z 0190 DEFFN'0 : S=INT(30+15*RND(1)) : PRINT HEX(03) : GOSUB '15 0200 PRINT HEX(010A0A0A0A) 0210 PRINT : PRINT TAB(63);HEX(0C) : PRINTUSING 20,S; : Z=0 0220 INPUT "DOLLARS BET=",Z 0230 Z=INT(Z) : IF Z<1THEN 240 : IF Z<S+1THEN 250 0240 PRINT "***ILLEGAL PLAY-----TRY AGAIN***" : GOTO 200 0250 PRINT TAB(63) : REM CLEAROUT WIN/LOSE 0260 FOR W=1 TO INT(1+30*RND(1)) : REM WHEELS 1,2,3 0270 GOSUB 470 : GOSUB 500 : GOSUB 530 : NEXT W 0280 FOR W=1TO INT(1+20*RND(1)) : REM WHEELS 2 AND 3 0290 GOSUB 500 : GOSUB 530 : NEXT W 0300 FOR W=1 TO INT(1+15*RND(1)) : REM WHEEL 3 0310 GOSUB 530 : NEXT W 0320 PRINT : PRINT 0330 D=100*R(1)+10*R(2)+1*R(3) 0340 W=2 : IF D=221THEN 430 : IF D=223THEN 430 : IF D=224THEN 430 0350 W=4 : IF D=225THEN 430 : W=6 : IF D=226THEN 430 0360 W=10 : IF D=333THEN 430 : W=12 : IF D=444THEN 430 0370 W=14 : IF D=555THEN 430 : W=16 : IF D=336THEN 430 0380 W=18 : IF D=446THEN 430 0390 W=20 : IF D=556THEN 430 : IF D=666THEN 410 0400 PRINT "....YOU LOSE...$";Z : S=S-Z : IF S<1THEN 440 : GOTO 200 0410 W=INT(200+400*RND(1)) : PRINT "...JACKPOT OF $";W 0420 S=S+W-Z : GOTO 200 0430 W=W*Z : PRINT "...YOU WIN $";W : GOTO 420 0440 PRINT "YOU HAVE RUN OUT OF MONEY..." 0450 PRINT "...THE GAME IS OVER...BETTER LUCK NEXT TIME SUCKER" 0460 PRINT TAB(63) : PRINT TAB(63) : PRINT TAB(63) : END 0470 R(1)=R(4) : R(4)=R(7) : REM WHEEL 1 0480 GOSUB '36(1) : R(7)=T(1) 0490 GOSUB '35(R(1),R(4),R(7),15) : RETURN 0500 R(2)=R(5) : R(5)=R(8) : REM WHEEL 2 0510 GOSUB '36(2) : R(8)=T(2) 0520 GOSUB '35(R(2),R(5),R(8),26) : RETURN 0530 R(3)=R(6) : R(6)=R(9) : REM WHEEL 3 0540 GOSUB '36(3) : R(9)=T(3) 0550 GOSUB '35(R(3),R(6),R(9),37) : RETURN 0560 DATA .10,.40,.65,.83,.94,1 : REM WHEEL 1 DATA 0570 DATA .10,.45,.65,.80,.90,1 : REM WHEEL 2 DATA 0580 DATA .30,.40,.70,.82,.96,1 : REM WHEEL 3 DATA 0590 DEFFN'15 : SELECT PRINT 005(64) : PRINT HEX(03),,"*WANG 2200 SLOT MACHINE*" 0600 PRINT HEX(0A);TAB(10);"--->";TAB(47);"<---" 0610 PRINT HEX(0A0A0A0A0A) 0620 GOSUB '34(2,2,1,2) : GOSUB '33(2,2,3,2) : GOSUB '34(2,2,4,2) 0630 GOSUB '33(2,2,5,4) : GOSUB '34(2,2,6,6) : GOSUB '33(3,3,3,10) 0640 GOSUB '34(4,4,4,12) : GOSUB '33(5,5,5,14) : GOSUB '34(3,3,6,16) 0650 GOSUB '33(4,4,6,18) : GOSUB '33(5,5,6,20) 0660 PRINTUSING 90,S$(6),S$(6),S$(6); : PRINT " JACKPOT" : RETURN 0670 DEFFN'33(A,B,C,D) : PRINTUSING 90,S$(A),S$(B),S$(C),D : RETURN 0680 DEFFN'34(A,B,C,D) : PRINTUSING 90,S$(A),S$(B),S$(C),D; : RETURN 0690 DEFFN'35(A,B,C,D) : PRINT HEX(010A0A);STR(W$,1,D);S$(A);HEX(0A) : RETURN 0700 DEFFN'36(I) : R=RND(1) : FOR J=1TO 6 : T(I)=J 0710 IF R<P(I,J)THEN 720 : NEXT J : RETURN 0720 J=6 : NEXT J : RETURN