DataMuseum.dk

top - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »BANDIT.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »BANDIT.BAS« 

TextFile

1  REM PROGRAM BANDIT.BAS
10 RANDOMIZE
20 DIM D(3)
30 B=100
40 PRINT "THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTER"
50 PRINT "EACH TIME YOU 'PULL' I WILL ASK YOU IF YOU WISH TO PLAY"
60 PRINT "AGAIN, JUST ANSWER WITH A 'Y' FOR YES AND 'N' FOR NO."
70 PRINT 
80 PRINT "YOU START WITH 1 POUND, IT WILL COST YOU 5P A GO."
90 PRINT 
100 PRINT 
110 FOR B1=1 TO 3
120 D(B1)=INT(RND*7)+1
130 NEXT B1
140 IF D(1)<>D(2) THEN 170 
150 IF D(2)<>D(3) THEN 170 
160 IF INT(D(1)/3)<>D(1)/3 THEN 110 
170 FOR G1=1 TO 3
180 IF D(G1)=1 THEN 260 
190 IF D(G1)=2 THEN 280 
200 IF D(G1)=3 THEN 300 
210 IF D(G1)=4 THEN 320 
220 IF D(G1)=5 THEN 340 
230 IF D(G1)=6 THEN 360 
240 IF D(G1)=7 THEN 380 
250 GOTO 650 
260 PRINT TAB(G1*7);" BELL";
270 GOTO 390 
280 PRINT TAB(G1*7);" BAR";
290 GOTO 390 
300 PRINT TAB(G1*7);"CHERRY";
310 GOTO 390 
320 PRINT TAB(G1*7);"APPLE";
330 GOTO 390 
340 PRINT TAB(G1*7);"LEMON";
350 GOTO 390 
360 PRINT TAB(G1*7);"  $";
370 GOTO 390 
380 PRINT TAB(G1*7);"PLUM";
390 NEXT G1
400 PRINT TAB(32);
410 IF D(1)<>D(2) THEN 440 
420 IF D(2)=D(3) THEN 560 
430 IF D(1)=D(2) THEN 460 
440 IF D(1)<>D(3) THEN 500 
450 GOTO 530 
460 IF D(1)/2<>INT(D(1)/2) THEN 500 
470 B=B+25
480 PRINT "!!!YOU WIN 25P    TOTAL=";B;"P";
490 GOTO 610 
500 B=B-5
510 PRINT "YOU HAVE LOST 5P  TOTAL=";B;"P";
520 GOTO 610 
530 B=B+5
540 PRINT "YOU HAVE WON  5P  TOTAL=";B;"P";
550 GOTO 610 
560 B=B+100
570 FOR E=1 TO 200
580 PRINT CHR$(7);
590 NEXT E
600 PRINT "**JACKPOT** 100P  TOTAL=";B;"P";
610 IF B=0 THEN 710 
620 PRINT " AGAIN";
630 INPUT Y$
640 PRINT 
650 REM *** 650 Y$=SEG$(Y$,1,1)
660 IF Y$="" THEN 110 
670 IF Y$="Y" THEN 110 
680 IF Y$<>"N" THEN 610 
690 PRINT "THANK YOU FOR PLAYING,----CALL AGAIN SOON!"
700 GOTO 840
710 REM NO CASH SUBROTINE
720 PRINT 
730 PRINT 
740 PRINT "YOU HAVE NO MONEY LEFT, DO YOU WANT TO PUT IN"
750 PRINT "ANOTHER POUND";
760 INPUT Y$
770 REM *** 770 Y$=SEG$(Y$,1,1)
780 IF Y$="" THEN 750 
790 IF Y$<>"Y" THEN 820 
800 B=B+100
810 GOTO 110 
820 IF Y$="N" THEN 840 
830 IF Y$<>"" THEN 740 
840 PRINT "BYE"
850 RUN "MENU"
«eof»